fsk.m

轨道FSK信号发送的小函数。这个函数虽然少

function y=fsk(fs,f0,pinpian,fm,tn)
t=0:1/8192:(tn*fs-1)/8192;
y=sin(2*pi*t); 
fh1=f0+pinpian;     %%上边频
fl1=f0-pinpian;     %%下边频
fl=2*pi*fl1/fs;
fh=2*pi*fh1/fs;
jj=fs/(2*fm) ;     %%半个调制频率周期
f=0;
flag=0;
k=0;
%y=[];
for n=1:tn*fs %周期
   if flag == 0
      f=f+fl;
      y(n)=sin(f);
  else
       f=f+fh;
       y(n)=sin(f);
   end;
   if (k+1)*jj <= n 
       k=k+1;
       if flag ==0
           flag = 1;
       else flag=0;
       end;    
   end;   
end;