matlab语言转化问题

小乖小傻

1．编写一个程序，读取一句英语短语，并将其编制成莫尔斯码，再用一个程序将莫尔斯码变成英语。

科技在线

程序我倒不回编，给后面的高手点资料，帮忙解决问题
莫尔斯电码（Morse code)是美国人莫尔斯于1844年发明的，由点（.）、划（-）两种符号组成。

1、一点为一基本信号单位，一划的长度=3点的长度。

2、在一个字母或数字内，各点、划之间的间隔应为两点的长度。

3、字母（数字）与字母（数字）之间的间隔为7点的长度。

字符 电码符号 字符 电码符号
A ●— N —●
B —●●● O ———
C —●—● P ●——●
D —●● Q ——●—
E ● R ●—●
F ●●—● S ●●●
G ——● T —
H ●●●● U ●●—
I ●● V ●●●—
J ●——— W ●——
K —●— X —●●—
L ●—●● Y —●——
M —— Z ——●●


数字 电码符号 标点符号 电码符号
1 ●———— ？ ●●——●●
2 ●●——— / —●●—●
3 ●●●—— （ ) —●——●—
4 ●●●●— — —●●●●—
5 ●●●●● 。 ●—●—●—
6 —●●●●
7 ——●●●
8 ———●●
9 ————●
0 —————
摩尔斯电码
以下列出摩尔斯电码

摩尔斯电码
A .－
I ..
Q －－.－
Y －.－－
7 －－…
B －…
J .－－－
R .－.
Z －－..
8 －－－..
C －.－.
K －.－
S …
1 .－－－－
9 －－－－.
D －..
L .－..
T －
2 ..－－－
0 －－－－－
E .
M －－
U ..－
3 …－－
． .－.－.－
F ..－.
N －.
V …－
4 ….－
？ ..－－..
G －－.
O －－－
W .－－
5 …..
， －－..－－
H ….
P .－－.
X －..－
6 －….
1 ●—滴哒
2 ●●— 滴滴哒
3 ●●●—— 滴滴哒哒
4 ●●●●— 滴滴滴滴哒
5 ●●●●● 滴滴滴滴滴
6 —●●●● 哒滴滴滴滴
7 ——●●● 哒哒滴滴滴
8 —●● 哒滴滴
9 —● 哒滴
0 —哒

sogooda

1. 
   
2. function morse(varargin)
   
3. 
   
4. % MORSE converts text to playable morse code in wav format
   
5. %
   
6. % SYNTAX
   
7. % morse(text)
   
8. % morse(text,file);
   
9. %
   
10. % Description:
    
11. %
    
12. %   If the wave file name is specified, then the funtion will output a wav
    
13. %   file with that file name.  If only text is specified, then the function
    
14. %   will only play the morse code wav file without saving it to a wav file.
    
15. %
    
16. % Examples:
    
17. %
    
18. %   morse('Hello');
    
19. %   morse('How are you doing my friend?','morsecode.wav');
    
20. %
    
21. %   Copyright 2005 Fahad Al Mahmood
    
22. %   Version: 1.0 $  $Date: 05-Jun-2005
    
23. 
    
24. text = varargin{1};
    
25. if nargin==2
    
26.     file = varargin{2};
    
27. end
    
28. 
    
29. Fs=11025;
    
30. load wav;
    
31. Dit = wav(1106:2121);
    
32. ssp = wav(2121:3133);
    
33. Dah = wav(3133:6176);
    
34. lsp = wav(6176:23022);
    
35. 
    
36. % Defining Characters & Numbers
    
37. A = [Dit;ssp;Dah];
    
38. B = [Dah;ssp;Dit;ssp;Dit;ssp;Dit];
    
39. C = [Dah;ssp;Dit;ssp;Dah;ssp;Dit];
    
40. D = [Dah;ssp;Dit;ssp;Dit];
    
41. E = [Dit];
    
42. F = [Dit;ssp;Dit;ssp;Dah;ssp;Dit];
    
43. G = [Dah;ssp;Dah;ssp;Dit];
    
44. H = [Dit;ssp;Dit;ssp;Dit;ssp;Dit];
    
45. I = [Dit;ssp;Dit];
    
46. J = [Dit;ssp;Dah;ssp;Dah;ssp;Dah];
    
47. K = [Dah;ssp;Dit;ssp;Dah];
    
48. L = [Dit;ssp;Dah;ssp;Dit;ssp;Dit];
    
49. M = [Dah;ssp;Dah];
    
50. N = [Dah;ssp;Dit];
    
51. O = [Dah;ssp;Dah;ssp;Dah];
    
52. P = [Dit;ssp;Dah;ssp;Dah;ssp;Dit];
    
53. Q = [Dah;ssp;Dah;ssp;Dit;ssp;Dah];
    
54. R = [Dit;ssp;Dah;ssp;Dit];
    
55. S = [Dit;ssp;Dit;ssp;Dit];
    
56. T = [Dah];
    
57. U = [Dit;ssp;Dit;ssp;Dah];
    
58. V = [Dit;ssp;Dit;ssp;Dit;ssp;Dah];
    
59. W = [Dit;ssp;Dah;ssp;Dah];
    
60. X = [Dah;ssp;Dit;ssp;Dit;ssp;Dah];
    
61. Y = [Dah;ssp;Dit;ssp;Dah;ssp;Dah];
    
62. Z = [Dah;ssp;Dah;ssp;Dit;ssp;Dit];
    
63. period = [Dit;ssp;Dah;ssp;Dit;ssp;Dah;ssp;Dit;ssp;Dah];
    
64. comma = [Dah;ssp;Dah;ssp;Dit;ssp;Dit;ssp;Dah;ssp;Dah];
    
65. question = [Dit;ssp;Dit;ssp;Dah;ssp;Dah;ssp;Dit;ssp;Dit];
    
66. slash_ = [Dah;ssp;Dit;ssp;Dit;ssp;Dah;ssp;Dit];
    
67. n1 = [Dit;ssp;Dah;ssp;Dah;ssp;Dah;ssp;Dah];
    
68. n2 = [Dit;ssp;Dit;ssp;Dah;ssp;Dah;ssp;Dah];
    
69. n3 = [Dit;ssp;Dit;ssp;Dit;ssp;Dah;ssp;Dah];
    
70. n4 = [Dit;ssp;Dit;ssp;Dit;ssp;Dit;ssp;Dah];
    
71. n5 = [Dit;ssp;Dit;ssp;Dit;ssp;Dit;ssp;Dit];
    
72. n6 = [Dah;ssp;Dit;ssp;Dit;ssp;Dit;ssp;Dit];
    
73. n7 = [Dah;ssp;Dah;ssp;Dit;ssp;Dit;ssp;Dit];
    
74. n8 = [Dah;ssp;Dah;ssp;Dah;ssp;Dit;ssp;Dit];
    
75. n9 = [Dah;ssp;Dah;ssp;Dah;ssp;Dah;ssp;Dit];
    
76. n0 = [Dah;ssp;Dah;ssp;Dah;ssp;Dah;ssp;Dah];
    
77. 
    
78. text = upper(text);
    
79. text1 = text + 0
    
80. panjang=length(text1);
    
81. i=1;
    
82. for j=1;panjang
    
83.     if text1(j)~= 32
    
84.         text(i)=text1(j);
    
85.         i=i+1;
    
86.     end
    
87. end
    
88. vars ={'period','comma','question','slash_'};
    
89. morsecode=[];
    
90. for i=1:length(text)
    
91.     if isvarname(text(i))
    
92.     morsecode = [morsecode;eval(text(i))];
    
93.     elseif ismember(text(i),'.,?/')
    
94.         x = findstr(text(i),'.,?/');
    
95.         morsecode = [morsecode;eval(vars{x})];
    
96.     elseif ~isempty(str2num(text(i)))
    
97.         morsecode = [morsecode;eval(['n' text(i)])];
    
98.     elseif text(i)==' '
    
99.         morsecode = [morsecode;ssp;ssp];
    
100.     end
     
101.     morsecode = [morsecode;ssp;ssp;ssp];
     
102. end
     
103. if exist('file','var')
     
104.     wavwrite(morsecode,11025,16,file);
     
105. else
     
106.     wavplay(morsecode);
     
107. end
     

复制代码

小乖小傻

嘻嘻:lol :@)