home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / DEMO1.FOR < prev    next >
Text File  |  1989-06-20  |  614b  |  33 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.     DO 100 I=1,101
  11.     X = 9.0*(I-1)/10.0 + 1.0
  12.     Y1(I) = X**2
  13.     Y2(I) = X**3
  14. 100    CONTINUE
  15.     XMIN = 1.0
  16.     XMAX = X
  17.     CALL MINMAX(Y1,101,YMIN,YMAX1)
  18.     CALL MINMAX(Y2,101,YMIN,YMAX2)
  19. C
  20.     CALL SELDEV
  21. 10    CALL BGNPLT
  22. C
  23.     CALL MAPSIZ(0.0,100.0,0.0,100.0,0.0)
  24.     CALL MAPIT(XMIN,XMAX,YMIN,YMAX1,'X TITLE'//CHAR(0)
  25.      1             ,'Y TITLE'//CHAR(0),'PLOT TITLE'//CHAR(0),15)
  26.     CALL GSCOLR(13,IERR)
  27.     CALL CURVEY(XMIN,XMAX,Y1,101,1,0.3,10)
  28. C
  29.     CALL ENDPLT
  30.     CALL RLSDEV
  31.     STOP
  32.     END
  33.