--Copyright The Numerical Algorithms Group Limited 1991.

)set out len 57
)time off
)clear all

partialFraction(1,factor factorial 10)
f := padicFraction %
compactFraction %
numberOfFractionalTerms f
wholePart f
t3 := nthFractionalTerm(f,3)
firstNumer t3
firstDenom t3
g := - 13 + 14 * %i
1/g
partialFraction(1,factor g)
% :: FRAC COMPLEX INT
% :: COMPLEX FRAC INT

)clear all
u : FR UP(x,FRAC INT) := reduce(*,[primeFactor(x+i,i) for i in 0..4])
partialFraction(1,u)
padicFraction %
