ソースコードの所在: /home/kizu/pgplot/samples/pgex09.f
(このプログラムで描ける絵は、こちら)
PROGRAM PGEX09
C----------------------------------------------------------------------
C Demonstration program for the PGPLOT plotting package. This example
C illustrates curve drawing with PGFUNT; the parametric curve drawn is
C a simple Lissajous figure.
C T. J. Pearson 1983 Oct 5
C----------------------------------------------------------------------
REAL PI, TWOPI
INTEGER PGOPEN
PARAMETER (PI=3.14159265359)
PARAMETER (TWOPI=2.0*PI)
REAL FX, FY
EXTERNAL FX, FY
C
C Call PGOPEN to initiate PGPLOT and open the output device; PGOPEN
C will prompt the user to supply the device name and type. Always
C check the return code from PGOPEN.
C
IF (PGOPEN('?') .LE. 0) STOP
C
C Call PGFUNT to draw the function (autoscaling).
C
CALL PGBBUF
CALL PGSAVE
CALL PGSCI(5)
CALL PGFUNT(FX,FY,360,0.0,TWOPI,0)
C
C Call PGLAB to label the graph in a different color.
C
CALL PGSCI(3)
CALL PGLAB('x','y','PGPLOT Example 9: routine PGFUNT')
CALL PGUNSA
CALL PGEBUF
C
C Finally, call PGCLOS to terminate things properly.
C
CALL PGCLOS
C
END
C----------------------------------------------------------------------
REAL FUNCTION FX(T)
REAL T
FX = SIN(T*5.0)
RETURN
END
C----------------------------------------------------------------------
REAL FUNCTION FY(T)
REAL T
FY = SIN(T*4.0)
RETURN
END