--Copyright The Numerical Algorithms Group Limited 1991.

-- Examples used in Algebra document
-- Floats
)set message time off
)set message type off
)cl all
digits 20
p := numeric %pi
a := 163.0
b := sqrt a
exp(p * b)
digits 60
p := numeric %pi
a := 163.0
b := sqrt a
exp(p * b)
c := cos(p/12)
16*c**4 - 16*c**2 + 1
numeric(%pi, 500)
