Anonymous user
Continued fraction: Difference between revisions
m
→{{header|REXX}}: corrected a misspelling. -- ~~~~
m (→{{header|REXX}}: corrected a misspelling. -- ~~~~) |
|||
Line 494:
<br>any form of REXX numbers (negative, exponentiated, decimal fractions) can be used.
<br><br>There isn't any realistic limit on the precision that can be used, although 100,000 digits would be a bit unwieldly to display.
▲/*calculate some continous fractions. */
numeric digits 60 /*let's use sixty digits for show&tell*/
Line 540 ⟶ 539:
divzero: say; say '***error!***'; say 'division by zero.'; say; exit 13
tell:parse arg _,v;say right(_,8) '=' format(v) 'a terms='left(a,40);a=;b=;return</lang>
Output:
<pre style="height:25ex;overflow:scroll">
| |||