tfsk.m

Agilent N5182A信号源自己产生psk fsk ofdm等信号的matlab程序 产生的文件在Agilent N5182A上测试成功

% NN=randsrc(1,50,[0 1 ]);   
NN=randsrc(1,40,[0 1 2 3 ]);  
% NN=randsrc(1,40,[0 1 2 3 4 5 6 7]);        %随机码元 
[B,A]=size(NN);
M=4;                                        %进制数
DIS=2000;                                   %频差
N=40;                                      %每个码元采样点数
fs=12000;                                   %采样频率
R=fs/N;                                     %码元速率
display '码元速率';
R
Y=FSKMOD(NN,M,DIS,N,fs);

r=fft(Y)/(N*length(NN));
r=fftshift(r); 
f=linspace(-fs/2,fs/2,N*length(NN));
plot(f,20*log10(abs(r))); 
axis([-fs/2,fs/2,-100,20]);                  %频谱图

waveform=change(real(Y),imag(Y),N*length(NN));%变换格式
filename2 = 'C:\Temp\Fsk';
[FID, message] = fopen(filename2,'w');       % Open a file to write data
if FID == -1 error('Cannot Open File'); end
fwrite(FID,waveform,'unsigned short');       % write to the file
fclose(FID);