home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l292 / 1.ddi / ERRORDEM.FOR < prev    next >
Encoding:
Text File  |  1989-11-21  |  1.3 KB  |  47 lines
  1.  
  2.       !!!   PROGRAM errordem
  3.  
  4.       INCLUDE 'STDHDR.FOR'
  5.  
  6.  
  7.        INTEGER n,wc,i
  8.        REAL rr, rand
  9.        REAL xval(0:maxv), yval(0:maxv), y1val(0:maxv), y2val(0:maxv)
  10.  
  11.       n = 20
  12.       DO i = 0, n-1
  13.          rr = REAL(i)
  14.          CALL random(rand)
  15.          xval(i) = 4.0*pi*(rand-0.5)
  16.          yval(i) =   rr - xval(i) * xval(i) *  rand
  17.        END DO
  18.        CALL sortdatax(xval,yval,n,0)
  19.        DO i = 0, n-1
  20.          y1val(i) = yval(i) - 1.0
  21.          y2val(i) = yval(i) + 1.0
  22.        END DO
  23.       CALL InitSEGraphics(-1, 'C:\FOR\LIB\*.FON')
  24.       DO wc = 1, 10
  25.         CALL SetCurrentWindow(wc)
  26.         CALL ClearWindow
  27.         CALL SetAxesType(0,0)
  28.         CALL SelectColor(15)
  29.         CALL AutoAxes(xval,yval,n,MOD(wc, 2))
  30.         CALL LinePlotData(xval, yval, n,3, 0)
  31.         CALL ScatterPlotData(xval,yval,n,4,2)
  32.         CALL PlotErrorBars(xval, y1val, y2val, n,0.4,5)
  33.  
  34.         CALL SelectColor(2)
  35.         CALL SetTextStyleXX(0, 0, 10, 12)
  36.         CALL TitleWindow('Error Bar Demo')
  37.         CALL SetTextStyleXX(0,0,10, 12)
  38.         CALL SelectColor(3)
  39.         CALL TitleXAxis(' Independent Variable')
  40.         CALL TitleYAxis(' Dep. Var.')
  41.         READ (*,*)
  42.         CALL ClearWindow
  43.       END DO
  44.       CALL CloseSEGraphics
  45.  
  46.       END
  47.