Prints a plot of up to 10 sets of points.
X — Vector of length NDATA containing the values of the independent variable. (Input)
A — Matrix of dimension NDATA by NFUN containing the NFUN sets of dependent variable values. (Input)
SYMBOL — CHARACTER string of
length NFUN.
(Input)
SYMBOL(I : I) is the symbol used
to plot function I.
XTITLE — CHARACTER string used to label the x-axis. (Input)
YTITLE — CHARACTER string used to label the y-axis. (Input)
TITLE — CHARACTER string used to label the plot. (Input)
NDATA — Number of
independent variable data points. (Input)
Default: NDATA = size
(X,1).
NFUN — Number of
sets of points. (Input)
NFUN must be less than
or equal to 10.
Default: NFUN = size
(A,2).
LDA — Leading
dimension of A
exactly as specified in the dimension statement of the calling
program. (Input)
Default: LDA = size
(A,1).
INC — Increment
between elements of the data to be used. (Input)
PLOTP plots X(1 + (I − 1) * INC) for I = 1, 2, …, NDATA.
Default:
INC = 1.
RANGE — Vector of length
four specifying minimum x, maximum x, minimum y and maximum
y. (Input)
PLOTP will calculate
the range of the axis if the minimum and maximum of that range are
equal.
Default: RANGE = 1.e0.
Generic: CALL PLOTP (X, A, SYMBOL, XTITLE, YTITLE, TITLE [,…])
Specific: The specific interface names are S_PLOTP and D_PLOTP.
Single: CALL PLOTP (NDATA, NFUN, X, A, LDA, INC, RANGE, SYMBOL, XTITLE, YTITLE, TITLE)
Double: The double precision name is DPLOTP.
Routine PLOTP produces a line printer plot of up to ten sets of points superimposed upon the same plot. A character “M” is printed to indicate multiple points. The user may specify the x and y-axis plot ranges and plotting symbols. Plot width and length may be reset in advance by calling PGOPT.
1. Informational errors
Type Code
3 7 NFUN is greater than 10. Only the first 10 functions are plotted.
3 8 TITLE is too long. TITLE is truncated from the right side.
3 9 YTITLE is too long. YTITLE is truncated from the right side.
3 10 XTITLE is too long. XTITLE is truncated from the right side. The maximum number of characters allowed depends on the page width and the page length. See Comment 5 below for more information.
2. YTITLE and TITLE are automatically centered.
3. For multiple plots, the character M is used if the same print position is shared by two or more data sets.
4. Output is written to the unit specified by UMACH (see Reference Material).
5. Default page width is 78 and default page length is 60. They may be changed by calling PGOPT in advance.
This example plots the sine and cosine functions from − 3.5 to + 3.5 and sets page width and length to 78 and 40, respectively, by calling PGOPT in advance.
USE PLOTP_INT
USE CONST_INT
USE PGOPT_INT
IMPLICIT NONE
INTEGER I, IPAGE
REAL A(200,2), DELX, PI, RANGE(4), X(200)
CHARACTER SYMBOL*2
INTRINSIC COS, SIN
!
DATA SYMBOL/'SC'/
DATA RANGE/-3.5, 3.5, -1.2, 1.2/
!
PI = 3.14159
DELX = 2.*PI/199.
DO 10 I= 1, 200
X(I) = -PI + FLOAT(I-1) * DELX
A(I,1) = SIN(X(I))
A(I,2) = COS(X(I))
10 CONTINUE
! Set page width and length
IPAGE = 78
CALL PGOPT (-1, IPAGE)
IPAGE = 40
CALL PGOPT (-2, IPAGE)
CALL PLOTP (X, A, SYMBOL, 'X AXIS', 'Y AXIS', ' C = COS, S = SIN', &
RANGE=RANGE)
!
END
C = COS, S =
SIN
1.2
::::+:::::::::::::::+:::::::::::::::+:::::::::::::::+::::
.
I
.
.
I
.
.
CCCCCCC
SSSSSSSS
.
.
CC I CC SS
SS
.
0.8
+
C I C
SS
SS
+
.
C I
MS
SS
.
.
C I
SSC
SS
.
.
CC I SS
CC
SS
.
.
CC I S
CC
S
.
0.4
+
C I S
C
S
+
.
C I
SS
C
SS
.
Y
.
CC I
S
CC
S
.
.
C
IS
C
S .
A
.
C
SS
C SS
.
X 0.0
+--S-----------CC-----------S-----------CC-----------S--+
I
. SS
CC
SS
CC
.
S
. S
C SI
C
.
. S
CC S
I
CC
.
. SS
C SS
I
C
.
-0.4
+ S
C S
I
C
+
. S
CC S
I
CC
.
. SS
CC SS
I
CC
.
.
SSC
SS
I
C
.
.
MS
SS
I
C
.
-0.8
+ C
SS SS
I
C
+
. CC SS
SS
I
CC
.
. CCCC
SSSSSSSS
I
CCCC
.
. C
I
C
.
.
I
.
-1.2
::::+:::::::::::::::+:::::::::::::::+:::::::::::::::+::::
-3
-1
1
3
X AXIS
|
Visual Numerics, Inc. PHONE: 713.784.3131 FAX:713.781.9260 |