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