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

5f892713c3 2021-03-03    1: %%%%%%%%%%%%%%%%%%%%%
5f892713c3 2021-03-03    2: %  ARBITRARY PRECISION
5f892713c3 2021-03-03    3: %%%%%%%%%%%%%%%%%%%%%
5f892713c3 2021-03-03    4: 
5f892713c3 2021-03-03    5: % Use real arithmetic
5f892713c3 2021-03-03    6: on rounded$
5f892713c3 2021-03-03    7: 
5f892713c3 2021-03-03    8: % Set precision to 50 digits
5f892713c3 2021-03-03    9: precision(50)$
5f892713c3 2021-03-03   10: 
5f892713c3 2021-03-03   11: % Print Pi
5f892713c3 2021-03-03   12: pi;
5f892713c3 2021-03-03   13: 
5f892713c3 2021-03-03   14: % Set precision back to default (12)
5f892713c3 2021-03-03   15: precision(12)$
5f892713c3 2021-03-03   16: 
5f892713c3 2021-03-03   17: % Restore precise arithmetic
5f892713c3 2021-03-03   18: off rounded$

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