home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l292 / 1.ddi / BARDEM.FOR next >
Encoding:
Text File  |  1989-10-09  |  1.1 KB  |  44 lines
  1.       !!! PROGRAM bardem
  2.  
  3.       INCLUDE 'STDHDR.FOR'
  4.  
  5.       INTEGER n, wc, i
  6.       REAL rr
  7.       REAL xdata(0:maxv), ydata(0:maxv)
  8.  
  9.  
  10.  
  11.       n = 50
  12.       DO i = 0, n-1
  13.        CALL Random(rr)
  14.        xdata(i) = (4.0*pi* (rr-0.5)) + 6.0
  15.        ydata(i) = 25.0*(1.0/(sqrt(2*pi*9.0)))*
  16.      +           exp(-((xdata(i)**2)/(18.0)))
  17.  
  18.       END DO
  19.       CALL InitSEGraphics(-1,'C:\FOR\LIB\*.FON')
  20.       DO wc = 1, 6
  21.         CALL SetCurrentWindow(wc)
  22.         CALL SetAxestype(0,0)
  23.         CALL SelectColor(7)
  24.         CALL AutoAxes(xdata,ydata,n,1)
  25.         CALL BargraphData(xdata, ydata, n, 0.50,2,4)
  26.         CALL SelectColor(3)
  27.         CALL DrawGrid(5)
  28.         CALL SelectColor(1)
  29.         CALL TitleWindow('College Drinking Study')
  30.         CALL TitleXAxis('Beers/Day')
  31.         CALL TitleYAxis('GPA')
  32.         READ (*,*)
  33.  
  34.         IF (wc .EQ. 4) then
  35.           CALL ClearWindow
  36.           CALL SetCurrentWindow(3)
  37.           CALL ClearWindow
  38.         END IF
  39.         IF (wc .EQ. 1 .OR. wc .EQ. 2) CALL ClearWindow
  40.       END DO
  41.       CALL CloseSEGraphics
  42.  
  43.       END
  44.