Subversion Repositories wdsp

function testveccon(N,bw,vecfile)

%testveccon(N,bw,vecfile)

%   This function generates a concaten      ated single line input for the FFT.

%   It creates a single line input of the following format

%   resetn  load_enable  xin_r  xin_i

%

%   N is the number of points in the fft

%   bw is the bit width of the input

%   vecfile is the v ector file name

%

%    Vectors will be some initial set up, then a sinc wave input,

%   followe d by two square wave inputs.  This file does not generate the

%   MATLAB calc ulated results, only the input waves.

%   In put waves are 1 bit of integer, bw-1 bits of fraction

%

%   This file uses:

%        frac2bin.m

%       writebin.m

%

 dutycycle=0.12 5;

 d atara=1:N;

 datarb=1:N;

datara=sinc((datara-N/2)/2)  ;

for k=1:N

    if k>(N*dutycycle)   %squar     e wave input

         datarb(k)=0;

    else

         data rb(k)=1;

    end

end;

%dataia=datarb;

%dataib=datara;

%

%datara=(sin(2*pi*dat ara*12/64)+cos(2*pi*datara*2/64))/2;

dataia=0;

dataib=0;

datara=da tara*(2^bw-1) /(2^bw);

datar b=datarb*(2^bw-1)/(2^bw);

fi n=fopen(vecfile,'w');

writebin(fin,frac2bin(0,1,bw*2+1));

fprintf(fin,'\n1');

writebin(fin,frac2bin(0,1,bw*2     ));

for k=1:N

    fprintf(fin,'\n11');

    writebin(fin,frac2bin(datara(k),1,bw-1));

    writebin(fin,frac2bin (dataia(1),1,bw-1));

%    fprintf(fin,'\n');

end

 101

for k=1:N

    fprintf(fin,'\n11');

    w datarb(k),1,bw-1));  ritebin(fin,frac2bin(

    writebin(fi n,frac2bin(dataib(1),1,bw-1));

%     fprintf(fin,'\n');

end

for k=1:N

    fprintf(fin,'\n11');

    writebin(fin,frac2bin(datarb(k),1,bw-1));

    writebin(fin,frac2bin(dataib(1),1,bw-1));

%   fprintf(fin,'\n');

end

fclose('all');