untitled2.asv

来自「此程序为DS-CDMA链路中加入基于子空间的PASTd多用户检测方法。系统中采用」· ASV 代码 · 共 27 行

n = 6; % Try codeword length = 6.
% Find any valid message length for BCH code.
params = bchpoly(n);
n = params(1,1); % Redefine codeword length in case earlier one
% was invalid.
k = params(1,2); % Message length
m = log2(n+1); % Express n as 2^m-1.
msg = randint(100,1,[0,2^k-1]); % Column of decimal integers

% Create various codes.
% codehamming = encode(msg,n,k,'hamming/decimal');
% [parmat,genmat] = hammgen(m);
% codehamming2 = encode(msg,n,k,'linear/decimal',genmat);
% if codehamming==codehamming2
%    disp('The ''linear'' method can create Hamming code.')
% end
codebch = encode(msg,n,k,'bch/decimal');
% codecyclic = encode(msg,n,k,'cyclic/decimal');

% Decode to recover the original message.
% decodedhamming = decode(codehamming,n,k,'hamming/decimal');
decodedbch = decode(codebch,n,k,'bch/decimal');
ee = find(decodedbch )
% decodedcyclic = decode(codecyclic,n,k,'cyclic/decimal');
if (decodedhamming==msg & decodedbch==msg & decodedcyclic==msg)
   disp('All decoding worked flawlessly in this noiseless world.')
end