$SPAD/src/input decimal.input

Timothy Daly December 3, 2016

Abstract

Contents

2

1 License

— license —

--Copyright The Numerical Algorithms Group Limited 1991.

———-

— * —

)set break resume
)spool decimal.output
)set message test on
)set message auto off
)clear all
-- Input generated from DecimalExpansionXmpPage
--S 1 of 7
r := decimal(22/7)
--R
--R
--R          ______
--R   (1)  3.142857
--R                                                       Type: DecimalExpansion
--E 1
--S 2 of 7
r + decimal(6/7)
--R
--R
--R   (2)  4
--R                                                       Type: DecimalExpansion
--E 2
--S 3 of 7
[decimal(1/i) for i in 350..354]
--R
--R
--R   (3)
--R        ______________________________________________
--R   [0.00285714, 0.002849, 0.0028409, 0.00283286118980169971671388101983,
--R       __________________________________________________________
--R    0.00282485875706214689265536723163841807909604519774011299435]
--R                                                 Type: List(DecimalExpansion)
--E 3
--S 4 of 7
decimal(1/2049)
--R

--R
--R   (4)
--R   0.
--R     OVERBAR
--R        00048804294777940458760370912640312347486578818936066373840897999023914
--R          104441190824792581747193753050268423621278672523182040019521717911176
--R          183504148365056124938994631527574426549536359199609565641776476329917
--R          032698877501220107369448511469009272816007808687164470473401659346022
--R          449975597852611029770619814543679843826256710590531966813079551
--R                                                       Type: DecimalExpansion
--E 4
--S 5 of 7
p := decimal(1/4)*x**2 + decimal(2/3)*x + decimal(4/9)
--R
--R
--R             2     __
--R   (5)  0.25x  + 0.6x + 0.4
--R                                           Type: Polynomial(DecimalExpansion)
--E 5
--S 6 of 7
q := differentiate(p, x)
--R
--R
--R                 _
--R   (6)  0.5x + 0.6
--R                                           Type: Polynomial(DecimalExpansion)
--E 6
--S 7 of 7
g := gcd(p, q)
--R
--R
--R              _
--R   (7)  x + 1.3
--R                                           Type: Polynomial(DecimalExpansion)
--E 7
)spool
)lisp (bye)

———-

References^{[1] nothing}

5