Moderatoren: Heaterman, Finger, Sven, TDI, Marsupilami72, duese
Kuddel, Dein Übersetzer hat das Ü gefressenKuddel hat geschrieben:Nu aber:
.... . .-. --.. .-.. .. -.-. .... . -. --. .-.. -.-. -.- .-- ..- -. ... -.-. .... --.. ..- -- --. . -... ..- .-. - ... - .- --. ..- -. -.. .- .-.. .-.. . ... --. ..- - .
Gruß
Kuddel
Code: Alles auswählen
function y = MorseTranslator( MsgStr, Frequency, DitLenMs, fs)
% translate dit/dah string into CW morse signal
%
% USAGE:
% y = MorseTranslator( MsgStr, Frequency, DitLenMs, fs)
%
% MsgStr: Message to be translated into dit/dah sounds
% . -> dit
% - -> dah
% space -> character delimiter
% double space -> word delimiter
% / -> word delimiter (surrounded by spaces)
%
% Frequency: Tone frequency of the output sine signal
%
% DitLenMs: Length of a "dit" in milliseconds
%
% fs: Sampling frequency of the output signal
%
% y: Output signal (mono)
%
% Author: Sven
%
%
% derive signals lengths from dit length
DitLenS = DitLenMs/1000;
DahLenS = 3*DitLenS;
DitLenSamples = fix(DitLenS * fs);
DahLenSamples = DitLenSamples*3;
% one Dit shorter because a one Dit pause is appended to each dit/dah token
CharPause = 2*DitLenSamples;
WordPause = 6*DitLenSamples;
SWordPause = 5*DitLenSamples;
TokenPause = DitLenSamples;
% prepare message parsing
StrPos = 1;
StrLen = length(MsgStr);
MsgQueue = zeros(1,2*StrLen + 1);
QueuePos = 1;
% short commands for message queue
DitCmd = 1;
DahCmd = 3;
TPauseCmd = -1;
CPauseCmd = -2;
SPauseCmd = -5;
WPauseCmd = -6;
% parse message
MsgStr = strrep(MsgStr,'_','-');
MsgStr = strrep(MsgStr,char(26),'-');
MsgStr = strrep(MsgStr,char(183),'.');
while(StrPos <= StrLen)
switch MsgStr(StrPos)
case '.'
MsgQueue(QueuePos:QueuePos+1) = [DitCmd TPauseCmd];
QueuePos = QueuePos+2;
case '-'
MsgQueue(QueuePos:QueuePos+1) = [DahCmd TPauseCmd];
QueuePos = QueuePos+2;
case ' '
% last element of string -> end with long pause
if( StrPos == StrLen)
MsgQueue(QueuePos) = WPauseCmd;
QueuePos = QueuePos+1;
break;
else
% double space -> word pause
if ( MsgStr(StrPos+1) == ' ' )
StrPos = StrPos+1;
MsgQueue(QueuePos) = WPauseCmd;
QueuePos = QueuePos +1;
else % single space -> char pause
MsgQueue(QueuePos) = CPauseCmd;
QueuePos = QueuePos +1;
end
end
case '/'
MsgQueue(QueuePos:QueuePos+1) = [DitCmd SPauseCmd];
QueuePos = QueuePos+2;
otherwise
error(['Invalid character at position '...
num2str(StrPos) ]);
end
StrPos = StrPos+1;
end
% strip message queue to used entries
MsgQueue = MsgQueue(1:QueuePos-1);
% calculate signal length
SigLenDits = sum(MsgQueue(MsgQueue>0)) + sum(abs(MsgQueue(MsgQueue<0)));
% generate dit signal
t_dit = linspace(0,DitLenS,DitLenSamples).';
ramplen = fix(DitLenSamples*0.1);
ramp = hann(2*ramplen);
dit = sin(2*pi*t_dit*Frequency);
dit(1:ramplen) = dit(1:ramplen) .* ramp(1:ramplen);
dit(1+end-ramplen:end) = dit(1+end-ramplen:end) .* ramp(ramplen+1:end);
% generate dah signal
t_dah = linspace(0,DahLenS,DahLenSamples).';
dah = sin(2*pi*t_dah*Frequency);
dah(1:ramplen) = dah(1:ramplen) .* ramp(1:ramplen);
dah(1+end-ramplen:end) = dah(1+end-ramplen:end) .* ramp(ramplen+1:end);
% create signal vector
y = zeros(SigLenDits * DitLenSamples,1);
iSig = 1;
% fill signal with samples
for iQueue=1:length(MsgQueue)
switch MsgQueue(iQueue)
case DitCmd
y(iSig:iSig+DitLenSamples-1,1) = dit;
iSig = iSig + DitLenSamples;
case DahCmd
y(iSig:iSig+DahLenSamples-1,1) = dah;
iSig = iSig + DahLenSamples;
case TPauseCmd
iSig = iSig + TokenPause;
case CPauseCmd
iSig = iSig + CharPause;
case SPauseCmd
iSig = iSig + SWordPause;
case WPauseCmd
iSig = iSig + WordPause;
end
endJa aber wo ist das Ü dann geblieben?Kuddel hat geschrieben:Welcher Übersetzter? Du weißt doch, dass ich bei AFU bei bin.
Wie sieht es denn da bei Dir aus? *mitzusammengekniffenenaugenguck*
Gruß
Kuddel
