C THIS GENERATES A SAMPLE GRAPH USING GRAF. C IT DIFFERS FROM SAMPLE1 IN THAT IT PLOTS SEVERAL FRAMES, C WITH LOG AND LINEAR AXES. C REAL X(100), Y(100) DO 10 J=1,100 X(J) = J Y(J) = SIN(X(J)/5.0) * EXP(-X(J)/30.0) 10 CONTINUE C C DRAW THE CURVE, WITH AUTOSCALED AXES. C CALL GRYETK !DRAW MINOR TICKS CALL GRAF1 (X, Y, 100) CALL GRTITL ('Sample 3 - lin/lin', 100, 'X axis label', 100, 1 'Y axis label', 100) C C PLOT ON NEW PAGE, WITH LOG X AXIS (AVOID ZEROS WITH LOG SCALES) C CALL GRLOG (1, 0) CALL GRAF1 (X, Y, 100) CALL GRTITL ('Sample 3 - log/lin', 100, 'X axis label', 100, 1 'Y axis label', 100) CALL EXIT END