《電子技術(shù)應(yīng)用》
您所在的位置:首頁 > 通信與網(wǎng)絡(luò) > 設(shè)計應(yīng)用 > 基于MATLAB設(shè)計航空Morse Code軟件譯碼器
基于MATLAB設(shè)計航空Morse Code軟件譯碼器
2014年微型機與應(yīng)用第19期
邵 璇
中國商用飛機有限公司北京民用飛機技術(shù)研究中心 多電綜合設(shè)計團隊,北京 100000
摘要: 針對航空Morse Code無線通信系統(tǒng)存在的誤碼率高及相互協(xié)同困難的難題,提出一種基于MATLAB的新的“濾波、二值化、差分、去除零元素”譯碼算法,設(shè)計了一種新的航空摩爾斯無線通信用軟件譯碼器,并以單詞 “Hello” 譯碼為例,進行調(diào)試運行。通過Morse Code碼報文, 使用點與劃組合表征字符,且具唯一性, 定義一組英文字母、數(shù)字和標點符號(41個)作為基本元素,并對其進行編碼算法操作,結(jié)合所提出的“濾波、二值化、差分、去除零元素”譯碼算法操作,使得設(shè)計的Morse Code軟件譯碼器具有較強的魯棒性和抗干擾性,具備有“糾錯碼”的能力。實驗結(jié)果表明,設(shè)計的Morse Code軟件譯碼器降低了航空摩爾斯無線通信的誤碼率,在一定程度上解決了相互協(xié)同困難的問題,有效地提高了航空摩爾斯無線通信質(zhì)量。
Abstract:
Key words :

  摘 要:針對航空Morse Code無線通信系統(tǒng)存在的誤碼率高及相互協(xié)同困難的難題,提出一種基于MATLAB的新的“濾波、二值化、差分、去除零元素”譯碼算法,設(shè)計了一種新的航空摩爾斯無線通信用軟件譯碼器,并以單詞 “Hello” 譯碼為例,進行調(diào)試運行。通過Morse Code碼報文, 使用點與劃組合表征字符,且具唯一性, 定義一組英文字母、數(shù)字和標點符號(41個)作為基本元素,并對其進行編碼算法操作,結(jié)合所提出的“濾波、二值化、差分、去除零元素”譯碼算法操作,使得設(shè)計的Morse Code軟件譯碼器具有較強的魯棒性和抗干擾性,具備有“糾錯碼”的能力。實驗結(jié)果表明,設(shè)計的Morse Code軟件譯碼器降低了航空摩爾斯無線通信的誤碼率,在一定程度上解決了相互協(xié)同困難的問題,有效地提高了航空摩爾斯無線通信質(zhì)量。

  關(guān)鍵詞: MATLAB ;Morse Code; 軟件譯碼器; 航空無線通信

0 引言

  摩爾斯無線通信因其所具有的傳統(tǒng)性、經(jīng)濟性和有效性,目前,在航空和海事無線通信中仍占有一定的使用量 [1-3]。摩爾斯無線通信主要設(shè)備是摩爾斯碼無線收發(fā)報機,自1838年開始使用至今,經(jīng)過一百多年的技術(shù)演進和發(fā)展[4],摩爾斯無線收發(fā)報機已在許多方面得到提高,如鍵盤形式、控制系統(tǒng)、調(diào)制方式、信道編碼、傳輸速率、硬件的實現(xiàn)等,從模擬過渡到數(shù)字,在體積、重量、性能等方面也都取得長足進步[5-7]。然而,現(xiàn)有摩爾斯無線收發(fā)報機的載波頻率、調(diào)制技術(shù)和波形結(jié)構(gòu)各不相同,這使得在通信過程中互通協(xié)同困難,誤碼率高,不能很好地滿足現(xiàn)代通信質(zhì)量的需要[8,9]。為解決Morse Code無線通信系統(tǒng)的上述問題,本課題采用MATLAB程序[10,11]設(shè)計一種適用于摩爾斯無線通信的軟件譯碼器,側(cè)重解決Morse Code無線通信誤碼問題。

1 設(shè)計思路

  Morse 碼報文使用點與劃組合來表征字符,每個英文字母、數(shù)字或標點符號由不同點與劃的唯一組合來描述。因此,可利用點與劃組合的唯一性來確定字符。當點碼或劃碼出現(xiàn)時會有高電平輸出,從高電平的時長可區(qū)分出點碼與劃碼,從低電平的時長可區(qū)分出碼間隔與字符間隔。每當字符間隔出現(xiàn)時,記錄前面若干點碼與劃碼的組合,再對照Morse 碼字符表析出字符。高、低電平時長的獲取可以通過對輸入的波形文件進行濾波、二值化、差分、去除零元素等而得到。

  為描述方便,設(shè)點、劃、最小時間間隔、空格(稱為基本元素,簡稱基元)的代號分別為Dit、Dah、ssp和lsp。對基元的波形進行濾波、二值化、差分、去除零元素等操作可以得到高低電平波形。根據(jù)電平的高低和長度可以很容易地將Dit、Dah、ssp和lsp區(qū)分開來。對任意輸入的波形,通過濾波、二值化、差分、去除零元素等操作,獲取高、低電平時長,提取到每小段信號的開始與結(jié)束時間,然后根據(jù)每一小段的高低電平時長信息,通過比較,把原始波形分割成基元組成的序列,翻譯基元序列成為標點和字符,就完成了譯碼。下面以輸入字符串 InputString = “Hello”為例,詳述所設(shè)計的軟件譯碼器與譯碼過程。

2 編碼算法

  2.1 基元波形

  基元波形由wav.mat給出,提取基元編碼的Matlab程序為:

  load wav;

  Dit = wav(1106:2121);

  ssp = wav(2121:3133);

  Dah = wav(3133:6176);

  lsp = wav(6176:23022)

  2.2 定義字符基元編碼

  每個字符對應(yīng)的基元編碼如下(簡寫為“ΣA-Z”):

  % 定義字母、符號、間隔符號、數(shù)字的摩斯碼,將4種 基本波形組合成單字母或標點符號的波形

  A = [Dit;ssp;Dah]; %字母

  B = [Dah;ssp;Dit;ssp;Dit;ssp;Dit];

  ……

  Y = [Dah;ssp;Dit;ssp;Dah;ssp;Dah];

  Z = [Dah;ssp;Dah;ssp;Dit;ssp;Dit];

  period = [Dit;ssp;Dah;ssp;Dit;ssp;Dah;ssp;Dit;ssp;Dah];%符號

  comma = [Dah;ssp;Dah;ssp;Dit;ssp;Dit;ssp;Dah;ssp;Dah];

  question = [Dit;ssp;Dit;ssp;Dah;ssp;Dah;ssp;Dit;ssp;Dit];

  slash_ = [Dah;ssp;Dit;ssp;Dit;ssp;Dah;ssp;Dit];

  space = [Dit;ssp;Dit;ssp;Dit;ssp;Dit;ssp;Dit;ssp;Dit;ssp;Dit];

  n1 = [Dit;ssp;Dah;ssp;Dah;ssp;Dah;ssp;Dah]; %數(shù)字

  n2 = [Dit;ssp;Dit;ssp;Dah;ssp;Dah;ssp;Dah];

  ……

  n9 = [Dah;ssp;Dah;ssp;Dah;ssp;Dah;ssp;Dit];

  n0 = [Dah;ssp;Dah;ssp;Dah;ssp;Dah;ssp;Dah];

  2.3 字符串Morse編碼

  設(shè)輸入字符串為text,解析出的編碼為morsecode,則字符串的解析MATLAB代碼如下:

  text = upper(text);

  %upper函數(shù)使得text中所有小寫的字母都轉(zhuǎn)化為大寫字母

  vars ={'period','comma','question','slash_','space'};

  % vars ={'period','comma','question','slash_'};

  morsecode=[]; %將文本text轉(zhuǎn)化為摩斯碼

  for i=1:length(text) %循環(huán)次數(shù)為總字符數(shù)目

  if isvarname(text(i)) % 字母轉(zhuǎn)化為摩斯碼,isvarname函 數(shù)對字符進行判斷 如果為字母返回1,否則返回0

  temp = [];

  temp = eval(text(i));

  morsecode = [morsecode;temp];

  elseif ismember(text(i),'.,?/ ') %標點轉(zhuǎn)化為摩斯碼

  x = findstr(text(i),'.,?/ ');

  morsecode = [morsecode;eval(vars{x})];

  elseif ~isempty(str2num(text(i))) %數(shù)字轉(zhuǎn)化為摩斯碼

  morsecode = [morsecode;eval(['n' text(i)])];

  elseif text(i)==' '%空格轉(zhuǎn)化為摩斯碼

  morsecode = [morsecode;ssp;ssp;ssp];

  end

  morsecode = [morsecode;lsp];

  end

3 譯碼算法

  設(shè)輸入字符串InputString對應(yīng)的波形數(shù)組為X,閾值threshold = 0.05。

  3.1 濾波

  MATLAB代碼如下:

  % half-wave rectify x

  x2 = abs(x);

  % slow-wave filter

  y = filter(ones(1,20)/20,1, x2);

  濾波后波形y如圖1所示。

001.jpg

  3.2 二值化

  MATLAB代碼如下:

  % threshold (digitize) y

  z = y > threshold; % 比較器:信號y(n)大于閾值threshold

  時z(n)輸出1,否則為0

  二值化后波形z如圖2所示。

002.jpg

  3.3 差分

  MATLAB代碼如下:

  z = [zeros(10,1); z]; %給數(shù)組z前面增加10個單位0

  % 1: change from 1 to 0

  % 0: no change

  % -1: change from 0 to 1

  b = diff(z); %差分函數(shù)

  差分后波形b如圖3所示。

003.jpg

  3.4 去除零元素,得到高低電平時長信息

  MATLAB代碼如下:

  c = b(b~=0); %去除所有零元素

  c2 = find(b~=0); %記錄所有不為零元素的序號

  tokens = -c .* diff([0; c2]); %計算波形長度(時間間隔)

  高低電平時長信息tokens如圖4所示。

004.jpg

  3.5 波形比較

  對波形進行比較,得到點、劃、最小時間間隔、空格等4種基本符號,MATLAB代碼如下:

  % 1: short, 2: long, +: tone, -: space

  tokens2 = tokens; %對波形進行比較,得到點、劃、最小時

  間間隔、空格等4種基本符號

  % cutoff tones, cutoff spaces;

  cut_t = mean(tokens2(tokens2>0));

  cut_s = mean(tokens2(tokens2<0));

  ……

  % now tokens 2 is a string of -1s, -2s, 1s, 2s, can trim first known space;

  % put final endstop at end

  tokens2 = [tokens2(2:end); -2];

  得到的基元序列tokens2如圖5所示。

005.jpg

  3.6 對照Morse 碼字符表析出字符

  MATLAB代碼如下:

  % can drop little spaces, b/c they don't matter when parsing;

  tokens2(tokens2 == -1) = [];

  tokens3 = tokens2;

  tokens4 = {};

  ctr = 1;

  start_idx = 1;

  %parse

  toparse = find(tokens3(start_idx:end) == -2);

  for j=1:length(toparse)

  a = toparse(j);

  temp = tokens3(start_idx:a-1);

  tokens4{j} = temp;

  % zeropad for easy comparison

  %tokens4{j} = [tokens4{j}; zeros(length(tokens4{j}), 1)];

  start_idx = a+1;

  end

  % now tokens4 is de-codeable tokens... proceed to setup lookups字符編碼表

  % letters

  ΣA-Z

  % compare tokens to tables

  out1 = [];

  for j = 1:length(tokens4) %譯碼輸出

  out1(j) = '_';

  %校驗輸入是否是41個標準字符中的一個

  if(length(tokens4{j})>=1 && length(tokens4{j})<=7)

  %zero pad temp_tok

  temp_tok = [tokens4{j}; zeros(7 - length(tokens4{j}), 1)];

  for k = 1:length(code)

  if (temp_tok == [code{k}'; zeros(7 -length(code{k}), 1)]);

  out1(j) = char(decode{k});

  %display(decode{k})

  end

  end

  % if didn't find a match

  if isempty(out1)

  out1(j) = '_';

  end

  if isempty(out1(j))

  out1(j) = '_';

  end

  end %if(length(tokens4{j})==0 && length(tokens4{j})>7)

  end

  3.7 解析出字符

  通過以上操作,字符串“Hello”被正確解析出來。

4 結(jié)論

  為航空摩爾斯無線通信提出一種實用的譯碼方法,由于采用了“濾波、二值化、差分、去除零元素”等操作,使得這種譯碼方法具有較強的魯棒性和抗干擾性,具備有“糾錯碼”的能力,可降低航空摩爾斯無線通信的誤碼率,提高通信質(zhì)量。

參考文獻

  [1] Bau.摩斯電碼(CW)的存在價值[EB/OL]. (2008)[2014-04-16] http://bau.blog.hexun.com/23126533_d.hml.

  [2] Loster.摩斯密碼及簡單運用[EB/OL].(2007-06-10)[2014-04-16]http://blog.sina.com.cn/s/blog_49800a6a01000843.html.

  [3] 樊昌元,文斌. 應(yīng)用于民航空管的TPU莫爾斯譯碼器[J]. 電子測量與儀器學報, 2004(9): 45-48 .

  [4] 嚴君平.業(yè)余無線電通信入門[M] .北京:化學工業(yè)出版社,2012.

  [5] 馬威,張敬修,王虎幫. Morse電碼自動譯碼系統(tǒng)[J].兵工自動化,2007,26(6):51-52,55.

  [6] 袁文澹,唐偉.微機模擬自動拍發(fā)MORSE電報[J].計算技術(shù)與自動化,2001,20(2):75-78,86.

  [7] 李春曉,趙旦峰,李強.用語音識別技術(shù)實現(xiàn)莫爾斯報的自動識別[J].信息技術(shù),2006,30(2): 56-57,125.

  [8] 張汝波, 何立剛, 李雪耀.強噪聲背景下莫爾斯信號的自動檢測與識別[J].哈爾濱工程大學學報, 2006,27(1):112-116.

  [9] 朱仁潔,施繼紅,陳德章.空中無線電監(jiān)測平臺最佳工作高度探究[J].計算機應(yīng)用,2012(S1):8-10.

  [10]腳本之家.Matlab編程基礎(chǔ)及應(yīng)用pdf教程.[EB/OL].(2012-03-09)[2014-04-16]http://www.codefans.net/soft/16802.shtml.

  [11]唐新來.基于FPGA的無線通信收發(fā)模塊設(shè)計方案[J].微計算機信息,2008,24(2):214-215,104.


此內(nèi)容為AET網(wǎng)站原創(chuàng),未經(jīng)授權(quán)禁止轉(zhuǎn)載。