home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l292 / 1.ddi / SCATDEM.FOR < prev    next >
Encoding:
Text File  |  1989-10-09  |  1.4 KB  |  51 lines
  1.       !!! PROGRAM scatdem
  2.  
  3.       INCLUDE 'STDHDR.FOR'
  4.       INTEGER  n,wc,i
  5.       REAL rr
  6.       REAL xdata(0:maxv), ydata(0:maxv)
  7.  
  8.       n = 20
  9.       DO i = 0,  n-1
  10.         CALL random(rr)
  11.         xdata(i) = (4.0*PI* (rr-0.5))
  12.         ydata(i) =  30+ i - xdata(i) * xdata(i) *  rr
  13.       END DO
  14.       CALL InitSEGraphics(-1, 'c:\FOR\LIB\*.FON')
  15.       DO wc = 1, 6
  16.         CALL SetCurrentWindow(wc)
  17.         CALL ClearWindow
  18.         CALL SetAxesType(0,0)
  19.         CALL BorderCurrentWindow(3)
  20.         CALL SelectColor(3)
  21.         CALL AutoAxes(xdata,ydata,n,0)
  22.         CALL ScatterPlotData(xdata, ydata, n, 1,1)
  23.         CALL SelectColor(2)
  24.         CALL SetTextStyleXX(0,0,16,18)
  25.         CALL TitleWindow('Roach Study')
  26.         CALL SetTextStyleXX (0,0,10, 12)
  27.         CALL TitleXAxis('Radiation exposure')
  28.         CALL TitleYAxis('Pop. (10^6)')
  29.         READ(*,*)
  30.  
  31.  
  32.         CALL ClearWindow
  33.         CALL BorderCurrentWindow(3)
  34.         CALL SelectColor(3)
  35.         CALL AutoAxes(xdata,ydata,n,1)
  36.         CALL ScatterPlotData(xdata, ydata, n, 2,2)
  37.         CALL SelectColor(7)
  38.         CALL DrawGrid(5)
  39.         CALL SelectColor(4)
  40.         CALL SetTextStyleXX(0,0,16,18)
  41.         CALL TitleWindow('Roach Study')
  42.         CALL SetTextStyleXX(0,0,10,12)
  43.         CALL TitleXAxis('Radiation exposure')
  44.         CALL TitleYAxis('Pop. (10^6)')
  45.         READ(*,*)
  46.         CALL ClearWindow
  47.       END DO
  48.       CALL CloseSEGraphics
  49.  
  50.       END
  51.