HAM Radio 1/HamRadio.cdr/tech/eepub05/fft.in

Text File | 1986-02-20 | 194b | 12 lines

procedure Input_Data;

begin
tinc:= N;
tinc:= 1.0/tinc;
for i:= 0 to N-1 do
    begin
    D1[i]:= exp(-tinc*i)*sin(2*tinc*i+i/7.5)*sqr(cos(4*tinc*i));
    D2[i]:= 0.0;
    end;
end;