home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / design2 / fft.in < prev    next >
Encoding:
Text File  |  1986-02-20  |  194 b   |  12 lines
  1. procedure Input_Data;
  2.  
  3. begin
  4. tinc:= N;
  5. tinc:= 1.0/tinc;
  6. for i:= 0 to N-1 do
  7.     begin
  8.     D1[i]:= exp(-tinc*i)*sin(2*tinc*i+i/7.5)*sqr(cos(4*tinc*i));
  9.     D2[i]:= 0.0;
  10.     end;
  11. end;
  12.