diff --git a/books/bookvol10.4.pamphlet b/books/bookvol10.4.pamphlet index d12c074..f86f315 100644 --- a/books/bookvol10.4.pamphlet +++ b/books/bookvol10.4.pamphlet @@ -43480,15 +43480,16 @@ InnerNumericEigenPackage(K,F,Par) : C == T solve1(up:SUK, eps:Par) : List(F) == denom := "lcm"/[denom(c::RN) for c in coefficients up] up:=denom*up - upi := map(numer,up)$UnivariatePolynomialCategoryFunctions2(RN,SUP RN,I,SUP I) + upi:=map(numer,up)_ + $UnivariatePolynomialCategoryFunctions2(RN,SUP RN,I,SUP I) innerSolve1(upi, eps)$InnerNumericFloatSolvePackage(I,F,Par) else if K is GRN then solve1(up:SUK, eps:Par) : List(F) == denom := "lcm"/[lcm(denom real(c::GRN), denom imag(c::GRN)) for c in coefficients up] up:=denom*up - upgi := map(complex(numer(real #1), numer(imag #1)), - up)$UnivariatePolynomialCategoryFunctions2(GRN,SUP GRN,GI,SUP GI) + upgi := map((c:GRN):GI+->complex(numer(real c), numer(imag c)),up)_ + $UnivariatePolynomialCategoryFunctions2(GRN,SUP GRN,GI,SUP GI) innerSolve1(upgi, eps)$InnerNumericFloatSolvePackage(GI,F,Par) else error "unsupported matrix type" diff --git a/changelog b/changelog index 76ecfdf..d0b841e 100644 --- a/changelog +++ b/changelog @@ -1,3 +1,5 @@ +20090604 tpd src/axiom-website/patches.html 20090604.08.tpd.patch +20090604 tpd books/bookvol10.4 INEP +-> conversion 20090604 tpd src/axiom-website/patches.html 20090604.07.tpd.patch 20090604 tpd books/bookvol10.4 INNMFACT +-> conversion 20090604 tpd src/axiom-website/patches.html 20090604.06.tpd.patch diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html index 0f75178..7337d8b 100644 --- a/src/axiom-website/patches.html +++ b/src/axiom-website/patches.html @@ -1449,5 +1449,7 @@ bookvol10.4 IMATQF +-> conversion
bookvol10.4 INMODGCD +-> conversion
20090604.07.tpd.patch bookvol10.4 INNMFACT +-> conversion
+20090604.08.tpd.patch +bookvol10.4 INEP +-> conversion