Morse Code

This converts text to playable morse code in wav format.

Description

MORSE converts text to playable morse code in wav format.

SYNTAX
morse(text)
morse(text,file);

Description:

If the wave file name is specified, then the funtion will output a wav file with that file name. If only text is specified, then the function will only play the morse code wav file without saving it to a wav file.

Examples:

  morse('Hello');
  morse('How are you doing my friend?','morsecode.wav');

• Acknowledgements: This submission has inspired the following:; demorse
• MATLAB release: MATLAB 7 (R14)

[joe schmoe]

Pretty neat, though it has little use now-a-days

[Carlo Cauyan]

is there a code that does the opposite of this? convert a morse code audio into a alphanumeric message...a reply is greatly appreciated

[Osamah Rawashdeh]

Awesome, usefull for creating ringtones for my cellphone ... ( SMS, MMS, CQ CQ CQ , etc)

[mani khan]

how to convert wave file to .mat extension

[J Cea]

To convert morse audio into text, do a search for "cw get"

[senthil raj]

hou to convert text into speech more efficiently

[Craig Miller K3OOL]

Nice program. Brute force method of generating Morse code but it works very well.

[Elvin Hai]

It's a great program! May I know how the data in the wav.mat was obtained?

[Chris Knox]

 

[Chirag Bhatt]

Hi , While running this program , I found the following error,
*************************************
??? Index exceeds matrix dimensions.

Error in ==> morse at 23
text = varargin{1};
*****************************************
My version is 7.2(R2006a)
What I have to do?

[Esben]

Nice little useful program for training your morse skills:)

I updated the code a little, if anyone is interested... (feel free to add it to the original):

To have smaller spaces between letters, change line 33 from lsp = wav(6176:23022); to lsp = wav(6176:16022);

To add danish letters æ,ø,å (can be done for any additional signs, and I probably will later), add
AE = [Dit;ssp;Dah;ssp;Dit;ssp;Dah]; % danish Æ .-.-
OE = [Dah;ssp;Dah;ssp;Dah;ssp;Dit]; % danish Ø ---.
AA = [Dit;ssp;Dah;ssp;Dah;ssp;Dit;ssp;Dah]; % danish Å .--.-
and change
vars ={'period','comma','question','slash_'}; to
vars ={'period','comma','question','slash_','AE','OE','AA'};
and change
    elseif ismember(text(i),'.,?/')
        x = findstr(text(i),'.,?/');
to
    elseif ismember(text(i),'.,?/ÆØÅ')
        x = findstr(text(i),'.,?/ÆØÅ');

to modify the speed, a resampling is added in the last part (just after the loop):
morsecode=resample(morsecode,Fs,15000); % resample to Fs/15000
if the numberused is higher than Fs, the speed will be higher, if it is lower, the speed will be lower...