Origin for each line in 10000_digits_of_Pi.red from check-in 5f892713c3:

5f892713c3 2021-03-03    1: 
5f892713c3 2021-03-03    2: %%%%%%%%%%%%%%%%%%%%%
5f892713c3 2021-03-03    3: %  10,000 DIGITS OF PI
5f892713c3 2021-03-03    4: %%%%%%%%%%%%%%%%%%%%%
5f892713c3 2021-03-03    5: 
5f892713c3 2021-03-03    6: % This file shows the power of iCAS
5f892713c3 2021-03-03    7: % in computing PI to 10,000 digits
5f892713c3 2021-03-03    8: % 
5f892713c3 2021-03-03    9: % NOTE WELL-- After computing
5f892713c3 2021-03-03   10: % PI has finished, BE SURE to
5f892713c3 2021-03-03   11: % scroll down to reset iCAS to
5f892713c3 2021-03-03   12: % its standard settings (or else ALL
5f892713c3 2021-03-03   13: % of your computations will be to
5f892713c3 2021-03-03   14: % to 10,000 digits!)
5f892713c3 2021-03-03   15: % 
5f892713c3 2021-03-03   16: % Use real arithmetic
5f892713c3 2021-03-03   17: on rounded$
5f892713c3 2021-03-03   18: 
5f892713c3 2021-03-03   19: 
5f892713c3 2021-03-03   20: 
5f892713c3 2021-03-03   21: % Set precision to 10000 digits
5f892713c3 2021-03-03   22: precision(10000)$
5f892713c3 2021-03-03   23: 
5f892713c3 2021-03-03   24: 
5f892713c3 2021-03-03   25: 
5f892713c3 2021-03-03   26: % Print Pi
5f892713c3 2021-03-03   27: pi;
5f892713c3 2021-03-03   28: 
5f892713c3 2021-03-03   29: 
5f892713c3 2021-03-03   30: 
5f892713c3 2021-03-03   31: 
5f892713c3 2021-03-03   32: % Set precision back to default (12)
5f892713c3 2021-03-03   33: precision(12)$
5f892713c3 2021-03-03   34: 
5f892713c3 2021-03-03   35: % Restore precise arithmetic
5f892713c3 2021-03-03   36: off rounded$

iCAS Bundled REDUCE Scripts
Homepage | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]