%3-8walsh碼產生器
function y=walshcode(n)
sourcedataI=n;
%***分別在sourcedataI、sourcedataQ兩路轉換成3列矩陣以進行3-8walsh碼正交變換***%
rownumber=ceil(length(sourcedataI)/3);   %ceil(x)為取整，即大于或等于x的整數
walshindataI=zeros(rownumber,3);
%walshindataQ=zeros(rownumber,3);
for var1=1:rownumber;
    var2=1:3;
    walshindataI(var1,var2)=sourcedataI(1,(var1-1)*3+var2);
%    walshindataQ(var1,var2)=sourcedataQ(1,(var1-1)*3+var2);
end
walshG=[0,0,0,0,1,1,1,1;0,0,1,1,1,1,0,0;0,1,1,0,0,1,1,0];
walshoutdataI=mod(walshindataI*walshG,2);% mod是取模函數
%walshoutdataQ=mod(walshindataQ*walshG,2);
%將walsh碼輸出數據矩陣轉為單行矩陣%
for var4=1:rownumber
    var5=1:8;
    walshdataI(1,(var4-1)*8+var5)=walshoutdataI(var4,var5);
%    walshdataQ(1,(var4-1)*8+var5)=walshoutdataQ(var4,var5);
end
y=walshdataI;