home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / demo.for < prev    next >
Text File  |  1989-06-20  |  1KB  |  50 lines
  1.     PROGRAM DEMO
  2.     CHARACTER*1 BNAME(40)
  3.     DIMENSION Y1(101), Y2(101)
  4.     EXTERNAL LEN
  5.     INCLUDE GRAPH.INC
  6.     INCLUDE EXEC.INC
  7.     INCLUDE INTUIT.INC
  8.     INCLUDE GCBIG.PRM
  9. C
  10.  
  11. C
  12.     DO 100 I=1,101
  13.     X = 9.0*(I-1)/10.0 + 1.0
  14.     Y1(I) = X**2
  15.     Y2(I) = X**3
  16. 100    CONTINUE
  17.     XMIN = 1.0
  18.     XMAX = X
  19.     CALL MINMAX(Y1,101,YMIN,YMAX1)
  20.     CALL MINMAX(Y2,101,YMIN,YMAX2)
  21. C
  22.     CALL SELDEV
  23. 10    CALL BGNPLT
  24. C
  25.     CALL GSCOLR(1,IERR)
  26.     CALL MAPSIZ(0.0,100.0,0.0,47.5,0.0)
  27.     CALL MAPIT(XMIN,XMAX,YMIN,YMAX2,'X AXIS'//CHAR(0),
  28.      1              'Y AXIS'//CHAR(0),'plot 3'//CHAR(0),2)
  29.     CALL GSCOLR(5,IERR)
  30.     CALL CURVEY(XMIN,XMAX,Y1,101,1,0.3,10)
  31.     CALL GSCOLR(6,IERR)
  32.     CALL CURVEY(XMIN,XMAX,Y2,101,2,0.3,5)
  33.     CALL GSCOLR(1,IERR)
  34.     CALL MAPSIZ(0.0,48.5,52.5,90.0,0.0)
  35.     CALL MAPIT(XMIN,XMAX,YMIN,YMAX1,'x axis'//CHAR(0),
  36.      1             'y axis'//CHAR(0),'plot 1'//CHAR(0),0)
  37.     CALL GSCOLR(5,IERR)
  38.     CALL CURVEY(XMIN,XMAX,Y1,101,1,0.3,10)
  39.  
  40.     CALL GSCOLR(1,IERR)
  41.     CALL MAPSIZ(51.5,100.0,52.5,90.0,0.0)
  42.     CALL MAPIT(XMIN,XMAX,YMIN,YMAX2,'X AXIS'//CHAR(0),
  43.      1              'Y AXIS'//CHAR(0),'PLOT 2'//CHAR(0),0)
  44.     CALL GSCOLR(6,IERR)
  45.     CALL CURVEY(XMIN,XMAX,Y2,101,2,0.3,5)
  46.     CALL ENDPLT
  47.     CALL RLSDEV
  48.     STOP
  49.     END
  50.