aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

March 2014 update

Browse source
This commit is contained in:
Ingy döt Net 2014-04-02 16:56:35 +00:00
parent 09687c4926
commit a25938f123
1846 changed files with 21876 additions and 5203 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Trabb-Pardo-Knuth-algorithm/REXX/trabb-pardo-knuth-algorithm.rexx
View file

@ -1,10 +1,10 @@
/*REXX program to implement the Trabb-Pardo-Knuth algorthm for N nums.*/
/*REXX program to implement the Trabb-Pardo-Knuth algorithm for N nums.*/
N=11 /*N is the number of numbers. */
maxValue=400 /*the maximum value f(x) can have*/
precDigs=200 /*compute with this many digits. */
showDigs=20 /*...but only show this many digs*/
numeric digits precDigs /*the number of digits precision.*/
prompt='enter' N "nunbers for the Trabb-Pardo-Knuth algorthm: (or Quit)"
prompt='enter' N "numbers for the Trabb-Pardo-Knuth algorithm: (or Quit)"
say ' _____ ' /*vinculum.*/
say 'function: ƒ(x) ≡ √ │x│ + (5 * x^3)'
/*██████████████████████████████████████████████████████████████████████*/