13 lines
431 B
Text
13 lines
431 B
Text
define PI
|
|
-1 acos
|
|
|
|
PI exp PI - as r
|
|
r print "\n" print
|
|
r "" prefer "s=%s!\n" print
|
|
r dup dup dup dup "e=%e f=%f g=%g G=%G!\n" print
|
|
-1 r * dup dup "e=%9.4e f=%9.4f g=%9.4g!\n" print
|
|
r dup dup "e=%9.4e f=%9.4f g=%9.4g!\n" print
|
|
r dup dup "e=%-9.4e f=%-9.4f g=%-9.4g!\n" print
|
|
r -1 * dup dup "e=%09.4e f=%09.4f g=%09.4g!\n" print
|
|
r dup dup "e=%09.4e f=%09.4f g=%09.4g!\n" print
|
|
r dup dup "e=%-09.4e f=%-09.4f g=%-09.4g!\n" print
|