home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l292 / 1.ddi / GRAPHFFT.FOR < prev    next >
Encoding:
Text File  |  1989-10-09  |  1.0 KB  |  42 lines
  1.       INCLUDE 'STDHDR.FOR'
  2.       REAL  xdata(0 : maxv), ydata(0 : maxv), tdata(0 : maxv), rr
  3.       INTEGER n, i
  4.  
  5.  
  6.  
  7.       n = 128
  8.       DO i = 0, n
  9.         CALL Random(rr)
  10.         xdata(i) = 6.0 * COS(pi*REAL(i)/(19.0+rr))+
  11.      +              2.5*COS(pi*REAL(i)/32.0)
  12.         ydata(i) = 0.0
  13.         tdata(i) = REAL(i) + 1
  14.       END DO
  15.       CALL InitSEGraphics(-1, 'C:\FOR\LIB\*.FON')
  16.  
  17.       CALL SetCurrentWindow(3)
  18.       CALL ClearWindow
  19.       CALL BorderCurrentWindow(4)
  20.       CALL SetAxesType(0, 0)
  21.       CALL SelectColor(2)
  22.       CALL AutoAxes(tdata, xdata, n, 0)
  23.       CALL LinePlotData(tdata, xdata, n, 1, 0)
  24.       CALL TitleWindow('Original data')
  25.  
  26.       CALL FFTCalc(xdata, ydata, n)
  27.  
  28.       CALL SetCurrentWindow(4)
  29.       CALL ClearWindow
  30.       CALL BorderCurrentWindow(4)
  31.       CALL SelectColor(2)
  32.       CALL SetAxesType(0, 0)
  33.       CALL AutoAxes(tdata, xdata, n / 2, 0)
  34.       CALL LinePlotData(tdata, xdata, n / 2, 3, 0)
  35.       CALL TitleWindow('FFT Data')
  36.  
  37.       READ (*,*)
  38.       CALL CloseSEGraphics
  39.       END
  40.  
  41.  
  42.