$SPAD/src/input exsum.input

Timothy Daly December 3, 2016

Abstract

Contents

2

1 License

— license —

--Copyright The Numerical Algorithms Group Limited 1991.

———-

— * —

)set break resume
)spool exsum.output
)set message test on
)set message auto off
)clear all
--S 1 of 13
sum(k * x**k,k = 1..n)
--R
--R
--R            2               n
--R        (n x  + (- n - 1)x)x  + x
--R   (1)  -------------------------
--R                2
--R               x  - 2x + 1
--R                                                    Type: Expression(Integer)
--E 1
)clear all
--S 2 of 13
limit( sum(1/(k * (k + 2)),k = 1..n) ,n = %plusInfinity)
--R
--R
--R        3
--R   (1)  -
--R        4
--R            Type: Union(OrderedCompletion(Fraction(Polynomial(Integer))),...)
--E 2
)clear all
--S 3 of 13
s := sum(k**2,k = a..b)
--R
--R
--R          3     2         3     2
--R        2b  + 3b  + b - 2a  + 3a  - a
--R   (1)  -----------------------------
--R                      6

--R                                          Type: Fraction(Polynomial(Integer))
--E 3
--S 4 of 13
eval(s,[a,b],[1,25])
--R
--R
--R   (2)  5525
--R                                          Type: Fraction(Polynomial(Integer))
--E 4
--S 5 of 13
reduce(+,[i**2 for i in 1..25])
--R
--R
--R   (3)  5525
--R                                                        Type: PositiveInteger
--E 5
)clear all
--S 6 of 13
sum(3*k**2/(c**2 + 1) + 12*k/d,k = (3*a)..(4*b))
--R
--R
--R   (1)
--R            3      2           3      2               2             2        2
--R       (128b  + 48b  + 4b - 54a  + 27a  - 3a)d + (192b  + 48b - 108a  + 36a)c
--R     +
--R           2             2
--R       192b  + 48b - 108a  + 36a
--R  /
--R        2
--R     (2c  + 2)d
--R                               Type: Union(Fraction(Polynomial(Integer)),...)
--E 6
)clear all
--S 7 of 13
[i for i in 1..15]
--R
--R
--R   (1)  [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15]
--R                                                  Type: List(PositiveInteger)
--E 7
--S 8 of 13
reduce(+,[i for i in 1..15])
--R

--R
--R   (2)  120
--R                                                        Type: PositiveInteger
--E 8
)clear all
--S 9 of 13
reduce(+,[1.0/factorial(n) for n in 0..20])
--R
--R
--R   (1)  2.7182818284 590452354
--R                                                                  Type: Float
--E 9
)clear all
--S 10 of 13
[n**2 for n in 5..20]
--R
--R
--R   (1)  [25,36,49,64,81,100,121,144,169,196,225,256,289,324,361,400]
--R                                                  Type: List(PositiveInteger)
--E 10
--S 11 of 13
reduce(+,[n**2 for n in 5..20])
--R
--R
--R   (2)  2840
--R                                                        Type: PositiveInteger
--E 11
)clear all
--S 12 of 13
sum(k**3,k = 1..n)
--R
--R
--R         4     3    2
--R        n  + 2n  + n
--R   (1)  -------------
--R              4
--R                                          Type: Fraction(Polynomial(Integer))
--E 12
--S 13 of 13
sum(k,k = 1..n) ** 2
--R
--R

--R         4     3    2
--R        n  + 2n  + n
--R   (2)  -------------
--R              4
--R                                          Type: Fraction(Polynomial(Integer))
--E 13
)spool
)lisp (bye)

———-

References^{[1] nothing}

7