SIMSCRIPT II.5 Programming Language

Programming Language Concepts
Table 2-5. Values for System Variables When Data Are Ended
_______________________________________________________________________________
Name
data
sfield.f 0
efield.f 0
mode
Value
ENDED
ALPHA
card
NEW
_______________________________________________________________________________
2.27 More Sample SIMSCRIPT II.5 Level 1 Programs
2.27.1 A Data Analysis Program: 1
This example illustrates a use of subscripted variables, with reserve and read statements, and the
use of for loops to control the indexing of subscripted variables.
The program reads a list of N data items into an array. It then goes through the list, computing for
each index value the averages of successive overlapping sequences of values, with sequence lengths
varying from 2 to a maximum of N-1. These moving averages are compared with an arbitrary tolerance
value. If they are less than this value, the values of the index, the sequence length, and the
average are printed.
Program 2-2.
_______________________________________________________________________________
main
define LIST as a 1-dimensional array
define I, J, SEQ.LEN and N as integer variables
define TOLERANCE.VALUE, SUM and AVERAGE as real variables
read N
reserve LIST(*) as N
read LIST, TOLERANCE.VALUE
for SEQ.LEN = 1 to N-1
for I = 1 to N-SEQ.LEN
do
let SUM = 0
for J = 0 to SEQ.LEN
add LIST(I+J) to SUM
let AVERAGE = SUM/(SEQ.LEN+1)
if AVERAGE is less than TOLERANCE.VALUE
print 1 line with I, I + SEQ.LEN and AVERAGE thus
ITEMS *** THROUGH *** HAVE AN AVERAGE OF **.***
always
loop
release LIST(*)
stop
end
_______________________________________________________________________________
89