Spectrum analysis (Fourier)

[toshk]

(i don't have Hp prime to try it.) but works on Emulator.
the App assumes that you place your signal function on F0(X).
visualize your signal function (play with scales/auto zoom or whatever you want) for better representation of the signal. Type
>>Spect>>Enter.
   
   
   
   

PHP Code:

#pragma mode( separator(.,;) integer(h32) )
SamX();
dftY();
Set();
export Spect()
BEGIN
local dmin,dmax,dx;
dmin:=Function.Xmin;
dmax:=Function.Xmax;
dx:=(dmax-dmin)/1024;
L0:=makelist(X,X,dmin,dmax,dx);
SamX();
dftY();
L5:=makelist(X,X,0,1/dx,(1/dx)/1025);
Set();
END;

#cas
SamX()
BEGIN
L1:=F0(L0);
END;
#end

#cas
dftY()
BEGIN
local n;
L4:=mat2list(fft(L1));
FOR n FROM 1 TO size(L4) STEP 1 DO
L4(n):=approx(abs(L4(n))*(2/1024));END;
END;
#end

Set()
BEGIN
startapp("Statistics 1Var");
local n;
FOR n FROM 1 TO 64 STEP 1 DO
L8(n):=L5(n);L9(n):=L4(n);end;
D1:=L8;D2:=L9;

Statistics_1Var.H1:={'D2','D1','5'};
CHECK(1);
startview(1,1);
END;