Page 21-62
The following program calculates the summation
Using a DO…UNTIL…END loop:
« 0. → n S « DO n SQ S + ‘S‘ STO n 1 – ‘n‘ STO UNTIL ‘n<0‘ END
S “S” →TAG » »
Store this program in a variable @@S3@@. Verify the following exercises: J
3 @@@S3@@ Result: S:14 4 @@@S3@@ Result: S:30
5 @@@S3@@ Result: S:55 8 @@@S3@@ Result: S:204
10 @@@S3@@ Result: S:385 20 @@@S3@@ Result: S:2870
30 @@@S3@@ Result: S:9455 100 @@@S3@@ Result: S:338350
Example 3
– generate a list using a DO…UNTIL…END construct
Type in the following program
« → xs xe dx « xe xs – dx / ABS 1. + xs → n x « xs DO
‘x+dx’ EVAL DUP ‘x’ STO UNTIL ‘x≥xe’ END n →LIST » » »
and store it in variable @GLIS3.
Θ Check out that the program call 0.5 ` 2.5 ` 0.5 ` @GLIS3
produces the list {0.5 1. 1.5 2. 2.5}.
Θ To see step-by-step operation use the program DBUG for a short list, for
example:
J1 # 1.5 # 0.5 ` Enter parameters 1 1.5 0.5
[‘] @GLIS3 ` Enter the program name in level 1
„°LL @)@RUN@ @@DBG@ Start the debugger.
Use @SST↓@ to step into the program and see the detailed operation of each
command.
∑
=
=
n
k
kS
0
2