diff options
Diffstat (limited to 'src/algebra/elfuts.spad.pamphlet')
| -rw-r--r-- | src/algebra/elfuts.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/elfuts.spad.pamphlet b/src/algebra/elfuts.spad.pamphlet index 89b64578..23b4f781 100644 --- a/src/algebra/elfuts.spad.pamphlet +++ b/src/algebra/elfuts.spad.pamphlet @@ -57,7 +57,7 @@ EllipticFunctionsUnivariateTaylorSeries(Coef,UTS): integrate(1,sign*k**2*$UPS scd.1*$UPS scd.2*$UPS dx)] sncndn(z,k) == - empty? z => [0 :: ST,1 :: ST,1::ST] + empty? z => [0@Coef :: ST,1@Coef :: ST,1@Coef::ST] frst z = 0 => YS(sncndnre(k,#1,deriv z,-1),3) error "ELFUTS:sncndn: constant coefficient should be 0" sn(x,k) == series sncndn.(coefficients x,k).1 |