function [mod2,num2]=dpsk1(mod1)%2DPSK調制
num1=length(mod1);
mod2=zeros(1,num1+1);
mod2(1,1)=-1;
for i=1:1:num1
    if mod1(1,i)==-1
        mod2(1,i+1)=mod2(1,i);
    end
    if mod1(1,i)==1
        mod2(1,i+1)=mod2(1,i)*(-1);
    end
end
num2=length(mod2);