ploit_gen_psdu.asv

基于EMCA368国际标准的物理层超宽带协议的基本仿真程序,都是自己编写的

function [out]=Ploit_gen_psdu(data,length,rate);
p=[1,1,1,1,-1,-1,-1,1,-1,-1,-1,-1,1,1,-1,1,-1,-1,1,1,-1,1,1,-1,1,1,1,1,1,1,-1,1,...
1,1,-1,1,1,-1,-1,1,1,1,-1,1,-1,-1,-1,1,-1,1,-1,-1,1,-1,-1,1,1,1,1,1,-1,-1,1,1,...
-1,-1,1,-1,1,-1,1,1,-1,-1,-1,1,1,-1,-1,-1,-1,1,-1,-1,1,-1,1,1,1,1,-1,1,-1,1,-1,1,...
-1,-1,-1,-1,-1,1,-1,1,1,-1,1,-1,1,1,1,-1,-1,1,-1,-1,-1,1,1,1,-1,-1,-1,-1,-1,-1,-1];

if(isequal(rate,[0 0 0 0 0])|isequal(rate,[0 0 0 0 1]))
dpi(1)=(1-j)/sqrt(2);
dpi(4)=(1-j)/sqrt(2);
dpi(2)=(-1+j)/sqrt(2);
dpi(3)=(-1+j)/sqrt(2);
dpi(5)=(-1+j)/sqrt(2);
dpi(6)=(-1+j)/sqrt(2);
dpi(9)=(1+j)/sqrt(2);
dpi(12)=(1+j)/sqrt(2);
dpi(7)=(-1-j)/sqrt(2);
dpi(8)=(-1-j)/sqrt(2);
dpi(10)=(-1-j)/sqrt(2);
dpi(11)=(-1-j)/sqrt(2);
for i=1:(length/200)
    for k=1:12
        a((i-1)*24+k)=dpi(k)*p(mod(i+6,127));
        a((i-1)*24+12+k)=dpi(k)*p(mod(i+6,127))*p(mod(i+12,127));
    end
end
elseif(isequal(rate,[0 0 0 1 0])|isequal(rate,[0 0 0 1 1])|isequal(rate,[0 0 1 0 0]))
dpi(1)=(1+j)/sqrt(2);
dpi(4)=(1+j)/sqrt(2);
dpi(9)=(1+j)/sqrt(2);
dpi(12)=(1+j)/sqrt(2);
dpi(2)=(-1-j)/sqrt(2);
dpi(3)=(-1-j)/sqrt(2);
dpi(5)=(-1-j)/sqrt(2);
dpi(6)=(-1-j)/sqrt(2);
dpi(7)=(-1-j)/sqrt(2);
dpi(8)=(-1-j)/sqrt(2);
dpi(10)=(-1-j)/sqrt(2);
dpi(11)=(-1-j)/sqrt(2);
for i=1:(length/200)
    for k=1:12
        a((i-1)*24+k)=dpi(k)*p(mod(i+6,127));
        a((i-1)*24+12+k)=dpi(k)*p(mod(i+6,127))*p(mod(i+12,127));
    end
end
elseif(isequal(rate,[0 0 1 0 1])|isequal(rate,[0 0 1 1 0])|isequal(rate,[0 0 1 1 1]))
dpi(1)=(1+j)/sqrt(2);
dpi(4)=(1+j)/sqrt(2);
dpi(9)=(1+j)/sqrt(2);
dpi(12)=(1+j)/sqrt(2);
dpi(2)=(-1-j)/sqrt(2);
dpi(3)=(-1-j)/sqrt(2);
dpi(5)=(-1-j)/sqrt(2);
dpi(6)=(-1-j)/sqrt(2);
dpi(7)=(-1-j)/sqrt(2);
dpi(8)=(-1-j)/sqrt(2);
dpi(10)=(-1-j)/sqrt(2);
dpi(11)=(-1-j)/sqrt(2);
for i=1:(length/100)
    for k=1:12
        a((i-1)*12+k)=dpi(k)*p(mod(i+6,127));