matlab - Output morse code from a file -

-

my program supposed read text file , output in morse code.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function morse(filename)  % morse converts text morse code , writes file    % defining characters & numbers     = ['.-'];     b = ['-...'];     c = ['-.-.'];     d = ['-..'];     e = ['.'];     f = ['..-.'];     g = ['--.'];     h = ['....'];     = ['..'];     j = ['.---'];     k = ['-.-'];     l = ['.-..'];     m = ['--'];     n = ['-.'];     o = ['---'];     p = ['.--.'];     q = ['--.-'];     r = ['.-.'];     s = ['...'];     t = ['-'];     u = ['..-'];     v = ['...-'];     w = ['.--'];     x = ['-..-'];     y = ['-.--'];     z = ['--..'];     period = ['.-.-.-'];     comma = ['--..--'];     question = ['..--..'];     slash_ = ['-..-.'];     n1 = ['.----'];     n2 = ['..---'];     n3 = ['...--'];     n4 = ['....-'];     n5 = ['.....'];       n6 = ['-....'];     n7 = ['--...'];     n8 = ['---..'];      n9 = ['----.'];     n0 = ['-----'];      text = upper(text);     vars ={'period','comma','question','slash_'};     morsecode=[];     i=1:length(text)         if isvarname(text(i))         morsecode = [morsecode;eval(text(i))];         elseif ismember(text(i),'.,?/')             x = findstr(text(i),'.,?/');             morsecode = [morsecode;eval(vars{x})];         elseif ~isempty(str2num(text(i)))             morsecode = [morsecode;eval(['n' text(i)])];         elseif text(i)==' '             morsecode = [' '];         end         morsecode = [morsecode;eval(text(i))];     end      code = morsecode;     if exist('file','var')         fprintf(code, '%c')     end

despite terrible question, is nice project imo , got me thinking: how can text-to-morse conversion in elegant way. lead me inevitably following implementation (to op: take humble piece of code , learn it).

the nicest quirk imo in there one-liner cell2mat , arrayfun (split code on more lines intermediate variable if want debug every step).

text2morsefile.m :

function text2morsefile(txt,filename)     fid = fopen(filename,'w');     fprintf(fid,text2morse(txt));     fclose(fid); end function m = text2morse(str)     m=cell2mat(arrayfun(@char2morse,str,'uni',false)); end function m = char2morse(ch)     persistent morsemap;     if isempty(morsemap)         morsemap ={'   ','-.-.--', '.-..-.', nan, '...-..-', nan, '.-...', '.----.',...             '-.--.', '-.--.-', nan, '.-.-.', '--..--', '-....-', '.-.-.-', '-..-.',...             '-----', '.----', '..---', '...--', '....-', '.....', '-....', '--...',...             '---..', '----.', '---...', '-.-.-.', nan, '-...-', nan, '..--..',...             '.--.-.', '.-', '-...', '-.-.', '-..', '.', '..-.', '--.', '....', '..',...             '.---', '-.-', '.-..', '--', '-.', '---', '.--.', '--.-', '.-.', '...',...             '-', '..-', '...-', '.--', '-..-', '-.--', '--..', nan,nan,nan,nan,'..--.-'};         end     % specify char non-morse character:     missingmorse_symbol = '';     ch = double(upper(ch));     m = nan;     if ch>=32 && ch<=95         m = morsemap{ch-31};     end     if isnan(m)         m = missingmorse_symbol;     else         % might add space between characters?         m = [m ' '];     end end

Comments

Post a Comment

Popular posts from this blog

c++ - Creating new partition disk winapi -

-
i'am trying create new partition , mount volume new, thought createfile let me this, code : lpctstr lpfilename=l"\\\\.\\device\\harddisk0\\partition3"; handle handl=createfile( lpfilename, generic_read | generic_write, file_share_read | file_share_write, null, create_always, file_attribute_normal, null ); if (handl==invalid_handle_value) { qdebug()<<"handl invalid"<<" error"<<getlasterror();} bool success = definedosdevice(ddd_raw_target_path,l"i:",l"\\device\\harddisk0\\partition3"); if(!success) qdebug()<<" definedosdevice failed "<<getlasterror(); bflag = getvolumenameforvolumemountpoint( l"i:\\", // input volume mount point or directory /** u in dir
Read more

Android Prevent Bluetooth Pairing Dialog -

-
i'm developing internal application uses bluetooth printing. want bluetooth pairing occur without user input. have managed working trapping android.bluetooth.device.action.pairing_request broadcast. in broadcast receiver call setpin method, , pairing works ok, bluetoothpairingdialog displayed second or two, disappears - see link below. https://github.com/android/platform_packages_apps_settings/blob/master/src/com/android/settings/bluetooth/bluetoothpairingdialog.java since broadcast non-ordered, can't call abortbroadcast() , , wondering if there other way prevent pairing dialog appearing. can hook window manager in way? i haven't been able come way without modifying sdk. if you're oem, it's easy (i'm on 4.3): in packages/apps/settings/androidmanifest.xml, comment intent filter pairing dialog: <activity android:name=".bluetooth.bluetoothpairingdialog" android:label="@string/bluetooth_pairing_request"
Read more

VBA function to include CDATA -

-
i have following function include cdata: function cdatasection() dim objdom domdocument dim objkmlrootelement ikmldomelement dim objkmlelement ikmldomelement dim cdata ikmldomcdatasection set objdom = new domdocument set objkmlrootelement = objdom.createelement("balloonstyle") objdom.appendchild objkmlrootelement set objkmlelement = objdom.createelement("text") objkmlrootelement.appendchild objkmlelement set cdata = objdom.createcdatasection("text") cdata.data = "<![cdata[<b>latitude = $[latitude]</b>?]]>;" end function when run above, getting error "user defined data type not found" function. yes ripster says find library reference. vba window tools>references for list of relevant references see... http://msdn.microsoft.com/en-us/library/windows/desktop/ms763701%28v=vs.85%29.aspx however, if have hard time tracking down reference, replace dim sta
Read more