readvb122c.m

用VB实现正弦波的采集和傅里叶变换。将时域信号变化为频域信号

 clear;
 N=1024; 
 x=zeros(1,10*N);   f=zeros(1,5*N);  y=zeros(1,5*N); 
 f_id=fopen('f:\yt.dat','r');
% 1024个数
% fseek(f_id,2048,-1);    
 x= fread(f_id,10*N, 'int16');  
 fclose(f_id);
 
 for i=1: 5*N
   f(i)=x(2*i-1)-2048;
   y(i)=x(2*i)-2048;
 end
  subplot(211);
 plot(f);
 subplot(212);
 plot(y);