VECT(n)
BEGIN
//RETURN(MAKELIST(COS(2*3.14*X/10),X,0,n,1));
RETURN(L0);
END;

ABS_VECT(v)
BEGIN
  LOCAL V_ABS, l1,l2,x,y;
  V_ABS := MAKEMAT(0,length(v),2);

RECT();
// Set canvas dimension
Xmin:=-2;
Xmax:=length(v)+length(v)*0.05;
Ymin:=-2;
Ymax:=MAX(ABS(v));

// Plot Axis
LINE(0,Ymin,0,Ymax,#202020h);
LINE(Xmin,0,Xmax,0,#202020h);

x:=1;
y=ABS(v(1));

//EXECON
FOR I FROM 1 TO length(v) DO
    I▶V_ABS(I,1);
    ABS(v(I))▶V_ABS(I,2);
    // Make the points stand out
    LINE(x,y,I,ABS(v(I)),RGB(255,0,0));
    x:=I;
    y:=ABS(v(I));
END;
WAIT(0);
RETURN(V_ABS);
END;

EXPORT FFT_TEST()
BEGIN
  // Initialize sample vector
  LOCAL vv;
  vv:=VECT(30);
  // go
  ST_L();
  RETURN(ABS_VECT(fft(vv)));
END;