home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l292 / 1.ddi / SMOOTHSG.FOR < prev    next >
Encoding:
Text File  |  1989-10-10  |  1.2 KB  |  42 lines
  1.        INCLUDE 'STDHDR.FOR'
  2.        REAL xdata(0 : maxv), ydata(0 : maxv)
  3.        REAL  smoothdata(0 :maxv), rr
  4.        INTEGER smoothnum, derivnum
  5.        CHARACTER * 80 pathname
  6.  
  7.        PRINT *, 'smoothnum = (1<= smoothnum <=5) '
  8.        READ *,  smoothnum
  9.        PRINT *, 'derivnum = (0 <= derivnum <= 2)'
  10.        READ *, derivnum
  11.        n = 100
  12.        DO i = 0, n
  13.          CALL Random(rr)
  14.          ydata(i) = 5 * COS(REAL(i) / 10.0) + 2.0 * RR
  15.          xdata(i) = Real(i) + 1.0
  16.        END DO
  17.       pathname = 'c:\for\lib\*.fon'
  18.  
  19.       CALL InitSEGraphics(-1,pathname)
  20.  
  21.       CALL SetCurrentWindow(3)
  22.       CALL ClearWindow
  23.       CALL SetAxesType(0, 0)
  24.       CALL SelectColor(2)
  25.       CALL AutoAxes(xdata, ydata, n, 0)
  26.       CALL LinePlotData(xdata, ydata, n, 1, 0)
  27.       CALL TitleWindow('original data')
  28.  
  29.       CALL SetCurrentWindow(4)
  30.       CALL SelectColor(2)
  31.       CALL SetAxesType(0, 0)
  32.       CALL DataSmoothSg(ydata, n, smoothnum, derivnum, smoothdata)
  33.       CALL AutoAxes(xdata, smoothdata, n, 0)
  34.       CALL LinePlotData(xdata, smoothdata, n, 15, 0)
  35.       CALL TitleWindow('Smoothed Data')
  36.       READ (*,*)
  37.       CALL CloseSEGraphics
  38.       END
  39.  
  40.  
  41.  
  42.