� RECURSIVE CALCULATIONS
� by Jim Vernon
� (c) The Micro User
(�7
2"�''"   RECURSIVE CALCULATIONS"
< �''"   Any Suitable Formula"
F��'"The formula is iterated starting from "'"a selected value of x. A fixed value"'"of C is chosen. Its value can be"'"increased by pressing any key."
Pi�'"The number of iterations (M%) and the"'"number, if any, not to be printed(T%)"'"is also selected."
Z� '"Formula in x and C ",X$
d�' "Value of constant C ",C
n%� "Increment in C value (DC) ",DC
x�"Initial value of x ",IX
�'� "Total number of iterations ",IM%
�!� "Number to be ignored ",IT%
��0
�M%=IM%:T%=IT%
�x=IX
�� N% = 1 � M%
�� N% <=T% � �d\@
�
@%=&0080A
�"�"n= ";N%," F(x)= ";x," C= ";C
�x=�formula(x)
��
�A�"N for more iterations, I to increment C and E to finish",A$
�$� A$="N" T%=M% :M%=M%+30: � �tt@

� A$="I" C=C+DC :� �t`@

� A$="E" �


� �dp@

"� �formula(X)=�X$
�

00000000  0d 00 0a 1c f4 20 52 45  43 55 52 53 49 56 45 20  |..... RECURSIVE |
00000010  43 41 4c 43 55 4c 41 54  49 4f 4e 53 0d 00 14 13  |CALCULATIONS....|
00000020  f4 20 62 79 20 4a 69 6d  20 56 65 72 6e 6f 6e 0d  |. by Jim Vernon.|
00000030  00 1e 18 f4 20 28 63 29  20 54 68 65 20 4d 69 63  |.... (c) The Mic|
00000040  72 6f 20 55 73 65 72 0d  00 28 06 eb 37 0d 00 32  |ro User..(..7..2|
00000050  22 f1 27 27 22 20 20 20  52 45 43 55 52 53 49 56  |".''"   RECURSIV|
00000060  45 20 43 41 4c 43 55 4c  41 54 49 4f 4e 53 22 0d  |E CALCULATIONS".|
00000070  00 3c 20 f1 27 27 22 20  20 20 41 6e 79 20 53 75  |.< .''"   Any Su|
00000080  69 74 61 62 6c 65 20 46  6f 72 6d 75 6c 61 22 0d  |itable Formula".|
00000090  00 46 99 f1 27 22 54 68  65 20 66 6f 72 6d 75 6c  |.F..'"The formul|
000000a0  61 20 69 73 20 69 74 65  72 61 74 65 64 20 73 74  |a is iterated st|
000000b0  61 72 74 69 6e 67 20 66  72 6f 6d 20 22 27 22 61  |arting from "'"a|
000000c0  20 73 65 6c 65 63 74 65  64 20 76 61 6c 75 65 20  | selected value |
000000d0  6f 66 20 78 2e 20 41 20  66 69 78 65 64 20 76 61  |of x. A fixed va|
000000e0  6c 75 65 22 27 22 6f 66  20 43 20 69 73 20 63 68  |lue"'"of C is ch|
000000f0  6f 73 65 6e 2e 20 49 74  73 20 76 61 6c 75 65 20  |osen. Its value |
00000100  63 61 6e 20 62 65 22 27  22 69 6e 63 72 65 61 73  |can be"'"increas|
00000110  65 64 20 62 79 20 70 72  65 73 73 69 6e 67 20 61  |ed by pressing a|
00000120  6e 79 20 6b 65 79 2e 22  0d 00 50 69 f1 27 22 54  |ny key."..Pi.'"T|
00000130  68 65 20 6e 75 6d 62 65  72 20 6f 66 20 69 74 65  |he number of ite|
00000140  72 61 74 69 6f 6e 73 20  28 4d 25 29 20 61 6e 64  |rations (M%) and|
00000150  20 74 68 65 22 27 22 6e  75 6d 62 65 72 2c 20 69  | the"'"number, i|
00000160  66 20 61 6e 79 2c 20 6e  6f 74 20 74 6f 20 62 65  |f any, not to be|
00000170  20 70 72 69 6e 74 65 64  28 54 25 29 22 27 22 69  | printed(T%)"'"i|
00000180  73 20 61 6c 73 6f 20 73  65 6c 65 63 74 65 64 2e  |s also selected.|
00000190  22 0d 00 5a 1f e8 20 27  22 46 6f 72 6d 75 6c 61  |"..Z.. '"Formula|
000001a0  20 69 6e 20 78 20 61 6e  64 20 43 20 22 2c 58 24  | in x and C ",X$|
000001b0  0d 00 64 1f e8 27 20 22  56 61 6c 75 65 20 6f 66  |..d..' "Value of|
000001c0  20 63 6f 6e 73 74 61 6e  74 20 43 20 22 2c 43 0d  | constant C ",C.|
000001d0  00 6e 25 e8 20 22 49 6e  63 72 65 6d 65 6e 74 20  |.n%. "Increment |
000001e0  69 6e 20 43 20 76 61 6c  75 65 20 28 44 43 29 20  |in C value (DC) |
000001f0  22 2c 44 43 0d 00 78 1d  e8 22 49 6e 69 74 69 61  |",DC..x.."Initia|
00000200  6c 20 76 61 6c 75 65 20  6f 66 20 78 20 22 2c 49  |l value of x ",I|
00000210  58 0d 00 82 27 e8 20 22  54 6f 74 61 6c 20 6e 75  |X...'. "Total nu|
00000220  6d 62 65 72 20 6f 66 20  69 74 65 72 61 74 69 6f  |mber of iteratio|
00000230  6e 73 20 22 2c 49 4d 25  0d 00 8c 21 e8 20 22 4e  |ns ",IM%...!. "N|
00000240  75 6d 62 65 72 20 74 6f  20 62 65 20 69 67 6e 6f  |umber to be igno|
00000250  72 65 64 20 22 2c 49 54  25 0d 00 96 06 eb 30 0d  |red ",IT%.....0.|
00000260  00 a0 11 4d 25 3d 49 4d  25 3a 54 25 3d 49 54 25  |...M%=IM%:T%=IT%|
00000270  0d 00 aa 08 78 3d 49 58  0d 00 b4 11 e3 20 4e 25  |....x=IX..... N%|
00000280  20 3d 20 31 20 b8 20 4d  25 0d 00 be 14 e7 20 4e  | = 1 . M%..... N|
00000290  25 20 3c 3d 54 25 20 e5  20 8d 64 5c 40 0d 00 c8  |% <=T% . .d\@...|
000002a0  0d 40 25 3d 26 30 30 38  30 41 0d 00 d2 22 f1 22  |.@%=&0080A..."."|
000002b0  6e 3d 20 22 3b 4e 25 2c  22 20 46 28 78 29 3d 20  |n= ";N%," F(x)= |
000002c0  22 3b 78 2c 22 20 43 3d  20 22 3b 43 0d 00 dc 11  |";x," C= ";C....|
000002d0  78 3d a4 66 6f 72 6d 75  6c 61 28 78 29 0d 00 e6  |x=.formula(x)...|
000002e0  05 ed 0d 00 f0 41 e8 22  4e 20 66 6f 72 20 6d 6f  |.....A."N for mo|
000002f0  72 65 20 69 74 65 72 61  74 69 6f 6e 73 2c 20 49  |re iterations, I|
00000300  20 74 6f 20 69 6e 63 72  65 6d 65 6e 74 20 43 20  | to increment C |
00000310  61 6e 64 20 45 20 74 6f  20 66 69 6e 69 73 68 22  |and E to finish"|
00000320  2c 41 24 0d 00 fa 24 e7  20 41 24 3d 22 4e 22 20  |,A$...$. A$="N" |
00000330  54 25 3d 4d 25 20 3a 4d  25 3d 4d 25 2b 33 30 3a  |T%=M% :M%=M%+30:|
00000340  20 e5 20 8d 74 74 40 0d  01 04 1b e7 20 41 24 3d  | . .tt@..... A$=|
00000350  22 49 22 20 43 3d 43 2b  44 43 20 3a e5 20 8d 74  |"I" C=C+DC :. .t|
00000360  60 40 0d 01 0e 0e e7 20  41 24 3d 22 45 22 20 e0  |`@..... A$="E" .|
00000370  0d 01 18 0a e5 20 8d 64  70 40 0d 01 22 15 dd 20  |..... .dp@..".. |
00000380  a4 66 6f 72 6d 75 6c 61  28 58 29 3d a0 58 24 0d  |.formula(X)=.X$.|
00000390  ff                                                |.|
00000391