aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/fs2ups.spad.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2009-06-07 16:23:51 +0000
committerdos-reis <gdr@axiomatics.org>2009-06-07 16:23:51 +0000
commitf8913372cea43183d427cbe3d00c4967a840329b (patch)
tree0d650b74174ea15413221f1f6448b7870f0ab0c2 /src/algebra/fs2ups.spad.pamphlet
parent03ca123dfb990c5ea8dde05b6f10902e4a4019b9 (diff)
downloadopen-axiom-f8913372cea43183d427cbe3d00c4967a840329b.tar.gz
* algebra/kl.spad.pamphlet (name$Kernel): Remove.
* algebra/d01weights.spad.pamphlet: Adjust. * algebra/fs2expxp.spad.pamphlet: Likewise. * algebra/fs2ups.spad.pamphlet: Likewise. * algebra/fspace.spad.pamphlet: Likewise. * algebra/limitps.spad.pamphlet: Likewise. * algebra/transsolve.spad.pamphlet: Likewise.
Diffstat (limited to 'src/algebra/fs2ups.spad.pamphlet')
-rw-r--r--src/algebra/fs2ups.spad.pamphlet10
1 files changed, 6 insertions, 4 deletions
diff --git a/src/algebra/fs2ups.spad.pamphlet b/src/algebra/fs2ups.spad.pamphlet
index 055d5a7b..280666f1 100644
--- a/src/algebra/fs2ups.spad.pamphlet
+++ b/src/algebra/fs2ups.spad.pamphlet
@@ -302,7 +302,7 @@ FunctionSpaceToUnivariatePowerSeries(R,FE,Expon,UPS,TRAN,x):_
is?(ker,"nthRoot" :: Symbol) =>
n := retract(second args)@I
nthRootToUPS(first args,n :: NNI,posCheck?,atanFlag)
- stateProblem(string name ker,"unknown kernel")
+ stateProblem(string name operator ker,"unknown kernel")
nthRootToUPS(arg,n,posCheck?,atanFlag) ==
-- converts an nth root to a power series
@@ -431,7 +431,7 @@ FunctionSpaceToUnivariatePowerSeries(R,FE,Expon,UPS,TRAN,x):_
applyIfCan(asechIfCan,arg,"asech",posCheck?,atanFlag)
is?(ker,"acsch" :: SY) =>
applyIfCan(acschIfCan,arg,"acsch",posCheck?,atanFlag)
- stateProblem(string name ker,"unknown kernel")
+ stateProblem(string name operator ker,"unknown kernel")
powToUPS(args,posCheck?,atanFlag) ==
-- converts a power f(x) ** g(x) to a power series
@@ -580,7 +580,7 @@ FunctionSpaceToUnivariatePowerSeries(R,FE,Expon,UPS,TRAN,x):_
is?(ker,"nthRoot" :: Symbol) =>
n := retract(second args)@I
nthRootToGenUPS(first args,n :: NNI,posCheck?,atanFlag)
- stateProblem(string name ker,"unknown kernel")
+ stateProblem(string name operator ker,"unknown kernel")
nthRootToGenUPS(arg,n,posCheck?,atanFlag) ==
-- convert an nth root to a power series
@@ -752,7 +752,7 @@ FunctionSpaceToUnivariatePowerSeries(R,FE,Expon,UPS,TRAN,x):_
genUPSApplyIfCan(asechIfCan,arg,"asech",posCheck?,atanFlag)
is?(ker,"acsch" :: SY) =>
genUPSApplyIfCan(acschIfCan,arg,"acsch",posCheck?,atanFlag)
- stateProblem(string name ker,"unknown kernel")
+ stateProblem(string name operator ker,"unknown kernel")
powToGenUPS(args,posCheck?,atanFlag) ==
-- converts a power f(x) ** g(x) to a generalized power series
@@ -767,6 +767,8 @@ FunctionSpaceToUnivariatePowerSeries(R,FE,Expon,UPS,TRAN,x):_
<<license>>=
--Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
--All rights reserved.
+--Copyright (C) 2007-2009, Gabriel Dos Reis.
+--All rights reserved.
--
--Redistribution and use in source and binary forms, with or without
--modification, are permitted provided that the following conditions are