From f8913372cea43183d427cbe3d00c4967a840329b Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 7 Jun 2009 16:23:51 +0000 Subject: * 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. --- src/algebra/fs2ups.spad.pamphlet | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'src/algebra/fs2ups.spad.pamphlet') 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):_ <>= --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 -- cgit v1.2.3