%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%  外編譯碼模塊的自環模二加測試   %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

clear all;
close all;
signal=round(rand(1,184));          % 原始信息序列
fire_enc=fire_sys_encode(signal);   % 外編碼（法爾碼，編碼后輸出序列長度224bits）
[fire_dec,sysinfo]=fire_sys_decode(fire_enc);    % 外解碼（法爾碼譯碼，譯碼后輸出序列長度184bits）

% 自環模二加為零則顯示正確，否則顯示錯誤
if rem((fire_dec+signal),2)==0
    display "Correct!"
else
    display "Error!"
end