SIMSCRIPT II.5 Programming Language

Advanced Topics
main
read N.SERIES
create every SERIES
for each SERIES,
do
read N
also for I = 1 to N
do
create a SAMPLE
read XVAL and YVAL
file SAMPLE in GRAPH
loop
for each SERIES,
call PLOT.GRAPH
stop
end
routine PLOT.GRAPH
''ASSUME XVAL BETWEEN 0 AND 132
''ASSUME YVAL BETWEEN 0 AND LINES.V-4
start new page
print 1 line with SERIES as follows
PLOT OF SERIES NUMBER **
for each I in GRAPH
compute X as the maximum of XVAL(I)
print 2 lines with X, YVAL(F.GRAPH) thus
X RANGE IS 0 TO ***.*
Y RANGE IS 0 TO **.*
skip 1 output line
for each I in GRAPH
do
if I ne F.GRAPH
skip trunc.f(YVAL(I)) - trunc.f(YVAL(P.GRAPH(I)))
output lines
always
write as B TRUNC.F(XVAL(I))+1,"*"
loop
return
end
''MONITOR ROUTINES CONVERT DATA VALUES BEFORE THEY ARE PLOTTED
''CONVERSION IS OUTSIDE THE PLOTTING ROUTINE
function XVAL(I)
define V as a real variable
move to V
return with log.e.f(V)''FOR EXAMPLE
end
function YVAL(I)
define V as a real variable
287