clear
close?all
DataS?=?input（‘請輸入數(shù)據(jù)比特：‘??‘s‘）;
AS?=?input（‘請輸入生成多項式系數(shù)：‘‘s‘）;
Length_D?=?length（DataS）;
Length_A?=?length（AS）;
for?i?=?1?:?Length_D
????Data（i）?=?str2num（DataS（i））;%轉(zhuǎn)化成數(shù)組
end
for?i?=?1?:?Length_A
????A（i）?=?str2num（AS（i））;
end
Data（Length_D+1?:?Length_A+Length_D-1）?=?0;
m?=??Length_A+Length_D-1;
n?=?Length_A;
CSC_code?=?Data;
for?i?=?1?:?m-n+1???????????????????????%長除法求余數(shù)
????if（Data（i）?==1）
????????for?j?=?1?:?n
????????????if（Data（i+j-1）?==?A（j））
????????????????Data（i+j-1）?=?0;
????????????else?
????????????????Data（i+j-1）?=?1;
????????????end
????????end
????end
end
CSC_code（m-n+2?:?m）?=?Data（m-n+2?:?m）;
for?i?=?1:m
????Code（i）?=?num2str（CSC_code（i））;?%轉(zhuǎn)化成字符串輸出
end
disp（[‘長除法所求的得余數(shù)為：‘num2str（Code（m-n+2?:?m））]）;
disp（[‘待發(fā)送數(shù)據(jù)的CRC編碼為：‘num2str（Code）]）;

%譯碼過程
%?dcCodes?=?input（‘請輸入接收到的編碼：‘‘s‘）;
%?for?i?=?1?:?m
%?dcCode（i）=str2num（dcCodes（i））;
%?end
%?for?i?=?1?:?m-n+1???????????????????????%長除法求余數(shù)
%?????if（dcCode（i）?==1）
%?????????for?j?=?1?:?n
%?????????????if（dcCode（i+j-1）?==?A（j））
%?????????????????dcCode（i+j-1）?=?0;
%?????????????else?
%?????????????????dcCode（i+j-1）?=?1;
%?????????????end
%?????????end
%?????end
%?end
%?l=zeros（1n-1）;
%?if（dcCode（m-n+2?:?m）==l）
%?????disp（‘接收正確‘）;
%?else
%?????disp（[‘接收錯誤余數(shù)為：‘num2str（dcCode（m-n+2?:?m））]）;
%?end
%?????

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2014-04-09?19:36??CRC\
?????文件????????1449??2014-03-19?21:26??CRC\CRC（編碼譯碼程序）.m
?????目錄???????????0??2014-04-09?19:36??CRC\封裝界面后\
?????文件????????3945??2014-03-20?21:20??CRC\封裝界面后\CRC.fig
?????文件????????4275??2014-03-20?21:23??CRC\封裝界面后\CRC.m
?????目錄???????????0??2014-04-09?19:37??hamming\
?????文件????????1517??2014-03-20?19:55??hamming\Hamming（編碼譯碼程序）.m
?????目錄???????????0??2014-04-09?19:37??hamming\封裝界面后\
?????文件????????4159??2014-03-20?21:47??hamming\封裝界面后\hamming.fig
?????文件????????3934??2014-03-24?18:58??hamming\封裝界面后\hamming.m