diff --git a/changelog b/changelog index ae6a4d7..b584bed 100644 --- a/changelog +++ b/changelog @@ -1,3 +1,162 @@ +20110128 tpd src/input/zimmer.input fix overfull boxes +20110128 tpd src/input/zimmbron.input fix overfull boxes +20110128 tpd src/input/wester.input fix overfull boxes +20110128 tpd src/input/unittest2.input fix overfull boxes +20110128 tpd src/input/unittest1.input fix overfull boxes +20110128 tpd src/input/unit-macro.input fix overfull boxes +20110128 tpd src/input/typetower.input fix overfull boxes +20110128 tpd src/input/tsetcatvermeer.input fix overfull boxes +20110128 tpd src/input/triglim.input fix overfull boxes +20110128 tpd src/input/tpiezas002.input fix overfull boxes +20110128 tpd src/input/test.input fix overfull boxes +20110128 tpd src/input/tancot.input fix overfull boxes +20110128 tpd src/input/tanatan.input fix overfull boxes +20110128 tpd src/input/symbol.input fix overfull boxes +20110128 tpd src/input/summation.input fix overfull boxes +20110128 tpd src/input/sregset.input fix overfull boxes +20110128 tpd src/input/space3.input fix overfull boxes +20110128 tpd src/input/seccsc.input fix overfull boxes +20110128 tpd src/input/schaum9.input fix overfull boxes +20110128 tpd src/input/schaum5.input fix overfull boxes +20110128 tpd src/input/schaum4.input fix overfull boxes +20110128 tpd src/input/schaum34.input fix overfull boxes +20110128 tpd src/input/schaum28.input fix overfull boxes +20110128 tpd src/input/schaum27.input fix overfull boxes +20110128 tpd src/input/schaum25.input fix overfull boxes +20110128 tpd src/input/schaum24.input fix overfull boxes +20110128 tpd src/input/schaum2.input fix overfull boxes +20110128 tpd src/input/schaum19.input fix overfull boxes +20110128 tpd src/input/schaum18.input fix overfull boxes +20110128 tpd src/input/schaum17.input fix overfull boxes +20110128 tpd src/input/schaum15.input fix overfull boxes +20110128 tpd src/input/schaum14.input fix overfull boxes +20110128 tpd src/input/schaum13.input fix overfull boxes +20110128 tpd src/input/schaum11.input fix overfull boxes +20110128 tpd src/input/schaum10.input fix overfull boxes +20110128 tpd src/input/schaum1.input fix overfull boxes +20110128 tpd src/input/sae.input fix overfull boxes +20110128 tpd src/input/robidoux.input fix overfull boxes +20110128 tpd src/input/richtrig900-920.input fix overfull boxes +20110128 tpd src/input/richtrig800-899.input fix overfull boxes +20110128 tpd src/input/richtrig700-799.input fix overfull boxes +20110128 tpd src/input/richtrig600-699.input fix overfull boxes +20110128 tpd src/input/richtrig500-599.input fix overfull boxes +20110128 tpd src/input/richtrig400-499.input fix overfull boxes +20110128 tpd src/input/richtrig300-399.input fix overfull boxes +20110128 tpd src/input/richtrig200-299.input fix overfull boxes +20110128 tpd src/input/richrational.input fix overfull boxes +20110128 tpd src/input/richlog200-299.input fix overfull boxes +20110128 tpd src/input/richlog100-199.input fix overfull boxes +20110128 tpd src/input/richhyper800-899.input fix overfull boxes +20110128 tpd src/input/richhyper400-499.input fix overfull boxes +20110128 tpd src/input/richhyper300-399.input fix overfull boxes +20110128 tpd src/input/richhyper000-099.input fix overfull boxes +20110128 tpd src/input/richalgebraic100-199.input fix overfull boxes +20110128 tpd src/input/regset.input fix overfull boxes +20110128 tpd src/input/reclos2.input fix overfull boxes +20110128 tpd src/input/reclos.input fix overfull boxes +20110128 tpd src/input/radff.input fix overfull boxes +20110128 tpd src/input/r21bugsbig.input fix overfull boxes +20110128 tpd src/input/r21bugs.input fix overfull boxes +20110128 tpd src/input/r20abugs.input fix overfull boxes +20110128 tpd src/input/polycoer.input fix overfull boxes +20110128 tpd src/input/plotlist.input fix overfull boxes +20110128 tpd src/input/plotfile.input fix overfull boxes +20110128 tpd src/input/paffexample.input fix overfull boxes +20110128 tpd src/input/paff.input fix overfull boxes +20110128 tpd src/input/ode.input fix overfull boxes +20110128 tpd src/input/oct.input fix overfull boxes +20110128 tpd src/input/ntube.input fix overfull boxes +20110128 tpd src/input/newton.input fix overfull boxes +20110128 tpd src/input/newlodo.input fix overfull boxes +20110128 tpd src/input/multknot.input fix overfull boxes +20110128 tpd src/input/mult3d.input fix overfull boxes +20110128 tpd src/input/mult2d.input fix overfull boxes +20110128 tpd src/input/matrox.input fix overfull boxes +20110128 tpd src/input/mathml.input fix overfull boxes +20110128 tpd src/input/marcbench.input fix overfull boxes +20110128 tpd src/input/mapleok.input fix overfull boxes +20110128 tpd src/input/lpoly.input fix overfull boxes +20110128 tpd src/input/lodof.input fix overfull boxes +20110128 tpd src/input/lodo3.input fix overfull boxes +20110128 tpd src/input/lodo2.input fix overfull boxes +20110128 tpd src/input/lodo1.input fix overfull boxes +20110128 tpd src/input/lodo.input fix overfull boxes +20110128 tpd src/input/lode.input fix overfull boxes +20110128 tpd src/input/liska.input fix overfull boxes +20110128 tpd src/input/linalg.input fix overfull boxes +20110128 tpd src/input/limit.input fix overfull boxes +20110128 tpd src/input/knownbugs.input fix overfull boxes +20110128 tpd src/input/kamke7.input fix overfull boxes +20110128 tpd src/input/kamke3.input fix overfull boxes +20110128 tpd src/input/kamke2.input fix overfull boxes +20110128 tpd src/input/kamke1.input fix overfull boxes +20110128 tpd src/input/kamke0.input fix overfull boxes +20110128 tpd src/input/iprntpk.input fix overfull boxes +20110128 tpd src/input/images8a.input fix overfull boxes +20110128 tpd src/input/images7a.input fix overfull boxes +20110128 tpd src/input/images5a.input fix overfull boxes +20110128 tpd src/input/images2a.input fix overfull boxes +20110128 tpd src/input/images1a.input fix overfull boxes +20110128 tpd src/input/ifthenelse.input fix overfull boxes +20110128 tpd src/input/ideal.input fix overfull boxes +20110128 tpd src/input/hyperell.input fix overfull boxes +20110128 tpd src/input/hyperbolicrules.input fix overfull boxes +20110128 tpd src/input/gstbl.input fix overfull boxes +20110128 tpd src/input/grpthry.input fix overfull boxes +20110128 tpd src/input/graphics.input fix overfull boxes +20110128 tpd src/input/gonshor.input fix overfull boxes +20110128 tpd src/input/gbf.input fix overfull boxes +20110128 tpd src/input/gamma.input fix overfull boxes +20110128 tpd src/input/fr1.input fix overfull boxes +20110128 tpd src/input/fr.input fix overfull boxes +20110128 tpd src/input/fparfrc.input fix overfull boxes +20110128 tpd src/input/fparfrac.input fix overfull boxes +20110128 tpd src/input/folium.input fix overfull boxes +20110128 tpd src/input/float1.input fix overfull boxes +20110128 tpd src/input/fixed.input fix overfull boxes +20110128 tpd src/input/ffdemo.input fix overfull boxes +20110128 tpd src/input/f04qaf.input fix overfull boxes +20110128 tpd src/input/f04mbf.input fix overfull boxes +20110128 tpd src/input/f02fjf.input fix overfull boxes +20110128 tpd src/input/exprpoly.input fix overfull boxes +20110128 tpd src/input/exlimit.input fix overfull boxes +20110128 tpd src/input/exampleagcode.input fix overfull boxes +20110128 tpd src/input/equation2.input fix overfull boxes +20110128 tpd src/input/elfuts.input fix overfull boxes +20110128 tpd src/input/eigen.input fix overfull boxes +20110128 tpd src/input/easter.input fix overfull boxes +20110128 tpd src/input/e04ucf.input fix overfull boxes +20110128 tpd src/input/e04naf.input fix overfull boxes +20110128 tpd src/input/e04mbf.input fix overfull boxes +20110128 tpd src/input/e04jaf.input fix overfull boxes +20110128 tpd src/input/e04dgf.input fix overfull boxes +20110128 tpd src/input/e02dcf.input fix overfull boxes +20110128 tpd src/input/dropt.input fix overfull boxes +20110128 tpd src/input/drawex.input fix overfull boxes +20110128 tpd src/input/dpol.input fix overfull boxes +20110128 tpd src/input/dop.input fix overfull boxes +20110128 tpd src/input/divisor.input fix overfull boxes +20110128 tpd src/input/dhtri.input fix overfull boxes +20110128 tpd src/input/derham.input fix overfull boxes +20110128 tpd src/input/davenport.input fix overfull boxes +20110128 tpd src/input/d03eef.input fix overfull boxes +20110128 tpd src/input/d02raf.input fix overfull boxes +20110128 tpd src/input/cycles1.input fix overfull boxes +20110128 tpd src/input/cycles.input fix overfull boxes +20110128 tpd src/input/coordsys.input fix overfull boxes +20110128 tpd src/input/complexfactor.input fix overfull boxes +20110128 tpd src/input/clif.input fix overfull boxes +20110128 tpd src/input/classtalk.input fix overfull boxes +20110128 tpd src/input/chtheorem.input fix overfull boxes +20110128 tpd src/input/calculus2.input fix overfull boxes +20110128 tpd src/input/cachedf.input fix overfull boxes +20110128 tpd src/input/bstree.input fix overfull boxes +20110128 tpd src/input/biquat.input fix overfull boxes +20110128 tpd src/input/asinatan.input fix overfull boxes +20110128 tpd src/input/asec.input fix overfull boxes +20110128 tpd src/input/antoine.input fix overfull boxes +20110128 tpd src/input/allfact.input fix overfull boxes 20110125 tpd src/axiom-website/patches.html 20110125.01.tpd.patch 20110125 tpd src/input/richlog000-099.input fix long lines 20110125 tpd src/input/richhyper400-499.input fix long lines diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html index e5fc76c..b9bd7c9 100644 --- a/src/axiom-website/patches.html +++ b/src/axiom-website/patches.html @@ -3371,5 +3371,7 @@ books/Makefile, volumes 5,6,7 move to lisp tangle
books/bookvol7.1 move to lisp tangle
20110125.01.tpd.patch src/input/rich* fix long lines
+20110128.01.tpd.patch +src/input/* fix long lines
diff --git a/src/input/allfact.input.pamphlet b/src/input/allfact.input.pamphlet index 5393d09..cc75047 100644 --- a/src/input/allfact.input.pamphlet +++ b/src/input/allfact.input.pamphlet @@ -154,7 +154,7 @@ factor g --R (14) -- (x - --- y)(x + --- y) --R 2 a d a d --R b ---RType: Factored DistributedMultivariatePolynomial([x,y],Fraction Polynomial Integer) +--IType: Factored ... --E 14 -- decomposition of a rational function @@ -190,11 +190,11 @@ aa|aa**2+aa+1 --R Your statement has resulted in the following assignments and --R declaration: --R ---R SAEaa := SimpleAlgebraicExtension(Fraction Integer,UnivariatePolynomial(aa,Fraction Integer),aa*aa+aa+1) +--I SAEaa := SimpleAlgebraicExtension(Fraction Integer,... --R aa : SAEaa := aa --R --R (17) aa ---RType: SimpleAlgebraicExtension(Fraction Integer,UnivariatePolynomial(aa,Fraction Integer),aa*aa+aa+1) +--IType: SimpleAlgebraicExtension(Fraction Integer,... --E 17 --S 18 of 21 @@ -207,7 +207,7 @@ p:UP(x,SAEaa) :=(x**3+aa**2*x+1)*(aa*x**2+aa*x+aa)**2 --R + --R 2 --R (- aa - 3)x + (- aa - 2)x - aa - 1 ---RType: UnivariatePolynomial(x,SimpleAlgebraicExtension(Fraction Integer,UnivariatePolynomial(aa,Fraction Integer),aa*aa+aa+1)) +--IType: UnivariatePolynomial(x,SimpleAlgebraicExtension(... --E 18 --S 19 of 21 @@ -216,7 +216,7 @@ factor(p)$SAEFACT(UP('aa,FRAC INT),SAEaa,UP(x,SAEaa)) --R --R 2 2 3 --R (19) (- aa - 1)(x - aa) (x + aa + 1) (x + (- aa - 1)x + 1) ---RType: Factored UnivariatePolynomial(x,SimpleAlgebraicExtension(Fraction Integer,UnivariatePolynomial(aa,Fraction Integer),aa*aa+aa+1)) +--IType: Factored UnivariatePolynomial(x,SimpleAlgebraicExtension(... --E 19 -- factorization over algebraic numbers diff --git a/src/input/antoine.input.pamphlet b/src/input/antoine.input.pamphlet index ada3175..29d01c7 100644 --- a/src/input/antoine.input.pamphlet +++ b/src/input/antoine.input.pamphlet @@ -38,7 +38,8 @@ tri2tri(t1, t2) returns a DHMATRIX which transforms t1 to t2, where t1 and t2 are the vertices of two triangles in 3-space. \begin{chunk}{*} --S 2 of 11 -tri2tri(t1: List Point DoubleFloat, t2: List Point DoubleFloat): DHMATRIX(DoubleFloat) == +tri2tri(t1: List Point DoubleFloat, t2: List Point DoubleFloat): _ + DHMATRIX(DoubleFloat) == n1 := triangleNormal(t1) n2 := triangleNormal(t2) tet2tet(concat(t1, n1), concat(t2, n2)) @@ -54,7 +55,8 @@ tet2tet(t1, t2) returns a DHMATRIX which transforms t1 to t2, where t1 and t2 are the vertices of two tetrahedrons in 3-space. \begin{chunk}{*} --S 3 of 11 -tet2tet(t1: List Point DoubleFloat, t2: List Point DoubleFloat): DHMATRIX(DoubleFloat) == +tet2tet(t1: List Point DoubleFloat, t2: List Point DoubleFloat): _ + DHMATRIX(DoubleFloat) == m1 := makeColumnMatrix t1 m2 := makeColumnMatrix t2 m2 * inverse(m1) diff --git a/src/input/asec.input.pamphlet b/src/input/asec.input.pamphlet index 0c6fdfe..1c74c6f 100644 --- a/src/input/asec.input.pamphlet +++ b/src/input/asec.input.pamphlet @@ -198,7 +198,7 @@ asec(2.0) \end{chunk} \eject \begin{thebibliography}{99} -\bibitem{1} The Encyclopedia of Special Functions +\bibitem{1} The Encyclopedia of Special Functions\hfill\\ http://algo.inria.fr/esf/function/ASC/ASC.html \end{thebibliography} \end{document} diff --git a/src/input/asinatan.input.pamphlet b/src/input/asinatan.input.pamphlet index 437b55d..fcbd653 100644 --- a/src/input/asinatan.input.pamphlet +++ b/src/input/asinatan.input.pamphlet @@ -6,7 +6,7 @@ \author{Timothy Daly} \maketitle \begin{abstract} -This compares Axiom's asin and atan functions with the tables published in +This compares the asin and atan functions with the tables published in Abramowitz and Stegun. \end{abstract} \eject diff --git a/src/input/biquat.input.pamphlet b/src/input/biquat.input.pamphlet index e3859cb..baa3ee4 100644 --- a/src/input/biquat.input.pamphlet +++ b/src/input/biquat.input.pamphlet @@ -658,7 +658,7 @@ So let's find out more about this domain: --S 35 of 43 )show RewriteRule --R ---R RewriteRule(Base: SetCategory,R: Join(Ring,PatternMatchable Base,OrderedSet,ConvertibleTo Pattern Base),F: Join(FunctionSpace R,PatternMatchable Base,ConvertibleTo Pattern Base)) is a domain constructor +--I RewriteRule(Base: SetCategory,R: Join(Ring,... --R Abbreviation for RewriteRule is RULE --R This constructor is exposed in this frame. --R Issue )edit bookvol10.3.pamphlet to see algebra source code for RULE diff --git a/src/input/bstree.input.pamphlet b/src/input/bstree.input.pamphlet index bd7595c..fa10cbe 100644 --- a/src/input/bstree.input.pamphlet +++ b/src/input/bstree.input.pamphlet @@ -74,7 +74,7 @@ split(3,t) --R --R --R (7) [less= [1,2,.],greater= [[.,3,[4,5,[5,6,7]]],8,.]] ---RType: Record(less: BinarySearchTree PositiveInteger,greater: BinarySearchTree PositiveInteger) +--IType: Record(less: BinarySearchTree PositiveInteger,greater: ... --E 7 --S 8 of 12 diff --git a/src/input/cachedf.input.pamphlet b/src/input/cachedf.input.pamphlet index 558232e..e9628c4 100644 --- a/src/input/cachedf.input.pamphlet +++ b/src/input/cachedf.input.pamphlet @@ -138,7 +138,7 @@ recursiveDefine(fib,(n:I):I +-> if n<2 then 1 else fib(n-1)+fib(n-2)) --R --R --R LISP output: ---I(# (LAMBDA-CLOSURE (G2554 envArg) (COND ((SPADCALL G2554 2 (ELT *1;anonymousFunction;0;frame0;internal;MV 0)) 1) ((QUOTE T) (SPADCALL (SPADCALL (getValueFromEnvironment (QUOTE fib) (QUOTE (CachedFunction (Integer) (Integer)))) (SPADCALL G2554 1 (ELT *1;anonymousFunction;0;frame0;internal;MV 1)) (ELT *1;anonymousFunction;0;frame0;internal;MV 2)) (SPADCALL (getValueFromEnvironment (QUOTE fib) (QUOTE (CachedFunction (Integer) (Integer)))) (SPADCALL G2554 2 (ELT *1;anonymousFunction;0;frame0;internal;MV 1)) (ELT *1;anonymousFunction;0;frame0;internal;MV 2)) (ELT *1;anonymousFunction;0;frame0;internal;MV 3)))))) +--I(# (LAMBDA-CLOSURE ... --R Type: CachedFunction(Integer,Integer) --I Time: 0.02 (IN) + 0.01 (GC) = 0.03 sec --E 5 diff --git a/src/input/calculus2.input.pamphlet b/src/input/calculus2.input.pamphlet index 2285554..9a522be 100644 --- a/src/input/calculus2.input.pamphlet +++ b/src/input/calculus2.input.pamphlet @@ -360,7 +360,8 @@ y := operator 'y --E 27 --S 28 of 112 -eq := differentiate(y(x), x, 3) - sin(differentiate(y(x), x, 2)) * exp(y(x)) = cos(x) +eq := differentiate(y(x), x, 3) - sin(differentiate(y(x), x, 2))_ + * exp(y(x)) = cos(x) --R --R --R ,,, y(x) ,, diff --git a/src/input/chtheorem.input.pamphlet b/src/input/chtheorem.input.pamphlet index 354abe5..46e09cb 100644 --- a/src/input/chtheorem.input.pamphlet +++ b/src/input/chtheorem.input.pamphlet @@ -159,7 +159,7 @@ sp:=map(z+->(squareMatrix$SM)diagonalMatrix([z,z,z,z]),p) --R | | --R | 3 2 | --I + 0 0 0 %A + %A + %A+ ---RType: Polynomial SquareMatrix(4,FiniteFieldExtensionByPolynomial(PrimeField 2,?**4+?+1)) +--IType: Polynomial SquareMatrix(4,FiniteFieldExtensionByPolynomial(... --E 5 --S 6 of 28 random input -- failure ok @@ -191,7 +191,7 @@ eval(sp,y=sm) --R |0 0 0 0| --R | | --R +0 0 0 0+ ---RType: Polynomial SquareMatrix(4,FiniteFieldExtensionByPolynomial(PrimeField 2,?**4+?+1)) +--IType: Polynomial SquareMatrix(4,FiniteFieldExtensionByPolynomial(... --E 7 )clear all diff --git a/src/input/classtalk.input.pamphlet b/src/input/classtalk.input.pamphlet index f6a4096..a38875b 100644 --- a/src/input/classtalk.input.pamphlet +++ b/src/input/classtalk.input.pamphlet @@ -288,7 +288,7 @@ solve(deqx,y,x) --R x\|3 2 2 x\|3 --R (11) [particular= 0,basis= [cos(-----)%e ,%e sin(-----)]] --R 2 2 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,basis: ... --E 32 \end{chunk} @@ -308,7 +308,7 @@ limit((x^2-3*x+2)/(x^2-1),x=1) limit(x*log(x),x=0) --R --R (2) [leftHandLimit= "failed",rightHandLimit= 0] ---RType: Union(Record(leftHandLimit: Union(OrderedCompletion Expression Integer,"failed"),rightHandLimit: Union(OrderedCompletion Expression Integer,"failed")),...) +--IType: Union(Record(leftHandLimit: Union(OrderedCompletion ... --E 34 --S 35 of 72 @@ -714,14 +714,14 @@ solve([x+2*y+3*z=2,2*x+3*y+4*z=2,3*x+4*y+5*z=2],[x,y,z]) solve([[1,1,1],[3,-2,1],[1,2,2]],[8,0,17]) --R --R (3) [particular= [- 1,2,7],basis= [[0,0,0]]] ---RType: Record(particular: Union(Vector Fraction Integer,"failed"),basis: List Vector Fraction Integer) +--IType: Record(particular: Union(Vector Fraction Integer,"failed"),basis:... --E 71 --S 72 of 72 solve([[1,2,3],[2,3,4],[3,4,5]],[2,2,2]) --R --R (4) [particular= [- 2,2,0],basis= [[1,- 2,1]]] ---RType: Record(particular: Union(Vector Fraction Integer,"failed"),basis: List Vector Fraction Integer) +--IType: Record(particular: Union(Vector Fraction Integer,"failed"),basis: ... --E 72 )spool )lisp (bye) diff --git a/src/input/clif.input.pamphlet b/src/input/clif.input.pamphlet index 04280e0..163c266 100644 --- a/src/input/clif.input.pamphlet +++ b/src/input/clif.input.pamphlet @@ -274,7 +274,8 @@ x * y + y * x --E 27 --S 28 of 36 -dual2 a == coefficient(a,[2,3]) * i + coefficient(a,[3,1]) * j + coefficient(a,[1,2]) * k +dual2 a == coefficient(a,[2,3]) * i + coefficient(a,[3,1]) * j + _ + coefficient(a,[1,2]) * k --R --R Type: Void --E 28 @@ -341,7 +342,10 @@ m := 1; n:= 2; r := 3; s := 4; --E 34 --S 35 of 36 -lhs := reduce(+, [reduce(+, [ g(l,t)*gam(l)*gam(m)*gam(n)*gam(r)*gam(s)*gam(t) for l in 1..4]) for t in 1..4]) +lhs := reduce(+, _ + [reduce(+, [ g(l,t)*gam(l)*gam(m)*gam(n)*gam(r)*gam(s)*gam(t) _ + for l in 1..4]) _ + for t in 1..4]) --R --R --R (6) - 4e e e e diff --git a/src/input/complexfactor.input.pamphlet b/src/input/complexfactor.input.pamphlet index c047ad4..9c6f531 100644 --- a/src/input/complexfactor.input.pamphlet +++ b/src/input/complexfactor.input.pamphlet @@ -397,8 +397,8 @@ t1:=-7*x^6 + 10*x^4 + 24*x^3 - 14*x^2 - 27*x - 42 + _ --R -> no appropriate * found in Polynomial Complex Integer --R -> no appropriate * found in Complex Integer --R -> no appropriate * found in Polynomial Integer ---Rcost=43300 for *: (Complex Integer,Polynomial Complex Integer) -> Polynomial Complex Integer ---Rcost=83300 for *: (Polynomial Complex Integer,Polynomial Complex Integer) -> Polynomial Complex Integer +--Icost=43300 for *: (Complex Integer,Polynomial Complex Integer) -> ... +--Icost=83300 for *: (Polynomial Complex Integer,Polynomial Complex ... --R --R [1] signature: (COMPLEX INT,POLY COMPLEX INT) -> POLY COMPLEX INT --R implemented: slot $(Complex (Integer))$ from POLY COMPLEX INT @@ -434,7 +434,7 @@ t1:=-7*x^6 + 10*x^4 + 24*x^3 - 14*x^2 - 27*x - 42 + _ --R RING --R --R [1] signature: ((INT -> COMPLEX INT),POLY INT) -> POLY COMPLEX INT ---R implemented: slot (Polynomial (Complex (Integer)))(Mapping (Complex (Integer)) (Integer))(Polynomial (Integer)) from POLY2(INT,COMPLEX INT) +--I implemented: slot (Polynomial (Complex (Integer)))... --R --R --R Function Selection for + @@ -452,7 +452,7 @@ t1:=-7*x^6 + 10*x^4 + 24*x^3 - 14*x^2 - 27*x - 42 + _ --R Target type: POLY COMPLEX INT --R --R [1] signature: ((INT -> COMPLEX INT),POLY INT) -> POLY COMPLEX INT ---R implemented: slot (Polynomial (Complex (Integer)))(Mapping (Complex (Integer)) (Integer))(Polynomial (Integer)) from POLY2(INT,COMPLEX INT) +--I implemented: slot (Polynomial (Complex (Integer)))... --R --R --R (1) @@ -533,16 +533,16 @@ t2:=factor t1 --R [1] ((D4 -> D5),Complex D4) -> Complex D5 from ComplexFunctions2(D4, --R D5) --R if D4 has COMRING and D5 has COMRING ---Rcost=54500 for factor: Expression Complex Integer -> Factored Expression Complex Integer ---Rcost=14500 for factor: Polynomial Complex Integer -> Factored Polynomial Complex Integer ---Rcost=55500 for factor: SparseUnivariatePolynomial Polynomial Complex Integer -> Factored SparseUnivariatePolynomial Polynomial Complex Integer +--Icost=54500 for factor: Expression Complex Integer -> ... +--Icost=14500 for factor: Polynomial Complex Integer -> ... +--Icost=55500 for factor: SparseUnivariatePolynomial Polynomial ... --R --R [1] signature: POLY COMPLEX INT -> FR POLY COMPLEX INT ---R implemented: slot (Factored (Polynomial (Complex (Integer))))(Polynomial (Complex (Integer))) from MULTFACT(SYMBOL,INDE SYMBOL,COMPLEX INT,POLY COMPLEX INT) +--I implemented: slot (Factored (Polynomial (Complex (Integer))))... --R [2] signature: EXPR COMPLEX INT -> FR EXPR COMPLEX INT --R implemented: slot (Factored $)$ from EXPR COMPLEX INT --R [3] signature: SUP POLY COMPLEX INT -> FR SUP POLY COMPLEX INT ---R implemented: slot (Factored (SparseUnivariatePolynomial (Polynomial (Complex (Integer)))))(SparseUnivariatePolynomial (Polynomial (Complex (Integer)))) from MULTFACT(SYMBOL,INDE SYMBOL,COMPLEX INT,POLY COMPLEX INT) +--I implemented: slot (Factored (SparseUnivariatePolynomial ... --R --R --R (2) @@ -562,8 +562,8 @@ t3:=factors t2 --R Function Selection for factors --R Arguments: FR POLY COMPLEX INT --R ---R [1] signature: FR POLY COMPLEX INT -> LIST Record(factor: POLY COMPLEX INT,exponent: INT) ---R implemented: slot (List (Record (: factor (Polynomial (Complex (Integer)))) (: exponent (Integer))))$ from FR POLY COMPLEX INT +--I [1] signature: FR POLY COMPLEX INT -> LIST Record(... +--I implemented: slot (List (Record (: factor (Polynomial ... --R --R --R (3) @@ -588,7 +588,7 @@ t4:=unit t2 --R Arguments: FR POLY COMPLEX INT --R --R [1] signature: FR POLY COMPLEX INT -> POLY COMPLEX INT ---R implemented: slot (Polynomial (Complex (Integer)))$ from FR POLY COMPLEX INT +--I implemented: slot (Polynomial (Complex (Integer)))$ ... --R --R --R (4) %i diff --git a/src/input/coordsys.input.pamphlet b/src/input/coordsys.input.pamphlet index 971a977..ff0c2c5 100644 --- a/src/input/coordsys.input.pamphlet +++ b/src/input/coordsys.input.pamphlet @@ -21,7 +21,8 @@ draw(sin(x),x=0.5..%pi,coordinates == bipolar(1$DFLOAT)) m(u:DFLOAT,v:DFLOAT):DFLOAT == 1 draw(m,0..2*%pi, 0..%pi,coordinates == bipolar(1$DFLOAT)) -draw(surface(u*cos(v),u*sin(v),u),u=1..4,v=1..2*%pi,coordinates == bipolarCylindrical(1$DFLOAT)) +draw(surface(u*cos(v),u*sin(v),u),u=1..4,v=1..2*%pi,coordinates == _ + bipolarCylindrical(1$DFLOAT)) --conical(a,b) maps a 3D point (lambda,mu,nu) to the rectangular coordinates: --x = lambda*mu*nu/(a*b) @@ -45,7 +46,8 @@ x(u,v) == beta(u) + v*delta(u) beta u == vector [cos u, sin u, 0] delta u == (cos(u/2)) * beta(u) + sin(u/2) * U2 vec := x(u,v) -draw(surface(vec.1,vec.2,vec.3),v=-0.5..0.5,u=0..2*%pi,coordinates == ellipticCylindrical(1$DFLOAT),var1Steps == 50,var2Steps == 50) +draw(surface(vec.1,vec.2,vec.3),v=-0.5..0.5,u=0..2*%pi,coordinates == _ + ellipticCylindrical(1$DFLOAT),var1Steps == 50,var2Steps == 50) m(u:DFLOAT,v:DFLOAT):DFLOAT == 1 draw(m,-%pi/2..%pi/2,0..2*%pi,coordinates == oblateSpheroidal(1$DFLOAT)) @@ -53,11 +55,14 @@ draw(m,-%pi/2..%pi/2,0..2*%pi,coordinates == oblateSpheroidal(1$DFLOAT)) h1(t:DFLOAT):DFLOAT == t h2(t:DFLOAT):DFLOAT == 2 draw(curve(h1,h2),-3..3,coordinates == parabolic) -draw(surface(u*cos(v),u*sin(v),2*u),u=0..4,v=0..2*%pi,coordinates == parabolic) +draw(surface(u*cos(v),u*sin(v),2*u),u=0..4,v=0..2*%pi,coordinates == _ + parabolic) -draw(surface(u*cos(v),u*sin(v),v*cos(u)),u=0..4,v=0..2*%pi,coordinates == parabolicCylindrical) +draw(surface(u*cos(v),u*sin(v),v*cos(u)),u=0..4,v=0..2*%pi,coordinates == _ + parabolicCylindrical) -draw(surface(u*cos(v),u*sin(v),u*v),u=0..4,v=0..2*%pi,coordinates==paraboloidal,var1Steps == 50, var2Steps == 50) +draw(surface(u*cos(v),u*sin(v),u*v),u=0..4,v=0..2*%pi,coordinates == _ + paraboloidal,var1Steps == 50, var2Steps == 50) draw(sin(4*t/7),t=0..14*%pi,coordinates == polar) m(u:DFLOAT,v:DFLOAT):DFLOAT == 1 @@ -69,7 +74,8 @@ draw(m,-%pi/2..%pi/2,0..2*%pi,coordinates == prolateSpheroidal(1$DFLOAT)) m(u:DFLOAT,v:DFLOAT):DFLOAT == 1 draw(m,0..2*%pi,0..%pi,coordinates == spherical) -draw(surface(u*cos(v),u*sin(v),u),u=1..4,v=1..4*%pi,coordinates == toroidal(1$DFLOAT)) +draw(surface(u*cos(v),u*sin(v),u),u=1..4,v=1..4*%pi,coordinates == _ + toroidal(1$DFLOAT)) \end{chunk} diff --git a/src/input/cycles.input.pamphlet b/src/input/cycles.input.pamphlet index bd6a3d0..2fb869d 100644 --- a/src/input/cycles.input.pamphlet +++ b/src/input/cycles.input.pamphlet @@ -268,7 +268,8 @@ The number of 6-triples, first from {\tt a a a b b c}, second from {\tt d d e e f g}, third from {\tt h h i i j j} \begin{chunk}{*} --S 15 of 46 -eval(cup(complete 3*complete 2*complete 1, cup(complete 2**2*complete 1**2,complete 2**3))) +eval(cup(complete 3*complete 2*complete 1, _ + cup(complete 2**2*complete 1**2,complete 2**3))) --R --R --R (15) 1500 diff --git a/src/input/cycles1.input.pamphlet b/src/input/cycles1.input.pamphlet index 83ebbe4..0fdd9ea 100644 --- a/src/input/cycles1.input.pamphlet +++ b/src/input/cycles1.input.pamphlet @@ -178,7 +178,8 @@ cap(complete 3*complete 2*complete 1,elementary 2**2*elementary 1**2) --E 14 --S 15 of 46 -eval(cup(complete 3*complete 2*complete 1, cup(complete 2**2*complete 1**2,complete 2**3))) +eval(cup(complete 3*complete 2*complete 1, _ + cup(complete 2**2*complete 1**2,complete 2**3))) --R --R --R (15) 1500 diff --git a/src/input/d02raf.input.pamphlet b/src/input/d02raf.input.pamphlet index 5e6acd9..56f7868 100644 --- a/src/input/d02raf.input.pamphlet +++ b/src/input/d02raf.input.pamphlet @@ -45,7 +45,8 @@ fcn:Asp41(FCN,JACOBF,JACEPS):= retract vef vei:Vector Expression Integer:= [YA[1] ,YA[2] ,YB[2] -1 ] g:Asp42(G,JACOBG,JACGEP):=retract vei -result:=d02raf(n,mnp,numbeg,nummix,tol,init,iy,ijac,lwork,liwork,np,x,y,deleps,ifail,fcn,g) +result:=d02raf(n,mnp,numbeg,nummix,tol,init,iy,ijac,lwork,_ + liwork,np,x,y,deleps,ifail,fcn,g) \end{chunk} \eject \begin{thebibliography}{99} diff --git a/src/input/d03eef.input.pamphlet b/src/input/d03eef.input.pamphlet index a477407..9633bbe 100644 --- a/src/input/d03eef.input.pamphlet +++ b/src/input/d03eef.input.pamphlet @@ -26,13 +26,15 @@ ymin := 0.0 ymax := 1.0 psi := -sin(X)*sin(Y) + 50*cos(X)*cos(Y) +50*sin(X)*cos(Y) d03eea :Vector Expression Float := [1,0,1,50,50,0,psi] -d03eeb :Matrix Expression Float := matrix[[0,1,-sin(X)],[1,0,sin(X)*sin(Y)],[1,0,sin(X)*sin(Y)],[0,1,-sin(Y)]] +d03eeb :Matrix Expression Float := _ + matrix[[0,1,-sin(X)],[1,0,sin(X)*sin(Y)],[1,0,sin(X)*sin(Y)],[0,1,-sin(Y)]] ngx := 9 ngy := 9 lda := 133 scheme := "c" ifail := -1 -result:=d03eef(xmin,xmax,ymin,ymax,ngx,ngy,lda,scheme,ifail,d03eea::ASP73('PDEF),d03eeb::ASP74('BNDY)) +result:=d03eef(xmin,xmax,ymin,ymax,ngx,ngy,lda,scheme,ifail,_ + d03eea::ASP73('PDEF),d03eeb::ASP74('BNDY)) \end{chunk} \eject \begin{thebibliography}{99} diff --git a/src/input/davenport.input.pamphlet b/src/input/davenport.input.pamphlet index 22bc8f0..d257516 100644 --- a/src/input/davenport.input.pamphlet +++ b/src/input/davenport.input.pamphlet @@ -103,7 +103,7 @@ e:ext1:=convert(((3/4)*a**2-a+(7/4))::UP(a,FRAC INT)) --R 7 --R (6) - - a + 1 --R 4 ---RType: SimpleAlgebraicExtension(Fraction Integer,UnivariatePolynomial(a,Fraction Integer),a*a+a+1) +--IType: SimpleAlgebraicExtension(Fraction Integer,... --E 6 --S 7 of 12 @@ -113,7 +113,7 @@ recip(e) --R 28 44 --R (7) -- a + -- --R 93 93 ---RType: Union(SimpleAlgebraicExtension(Fraction Integer,UnivariatePolynomial(a,Fraction Integer),a*a+a+1),...) +--IType: Union(SimpleAlgebraicExtension(Fraction Integer,... --E 7 --S 8 of 12 @@ -123,7 +123,7 @@ e**2 --R 105 33 --R (8) - --- a - -- --R 16 16 ---RType: SimpleAlgebraicExtension(Fraction Integer,UnivariatePolynomial(a,Fraction Integer),a*a+a+1) +--IType: SimpleAlgebraicExtension(Fraction Integer,... --E 8 --S 9 of 12 @@ -131,7 +131,7 @@ e:=convert((a**2-1)::UP(a,FRAC INT)) --R --R --R (9) - a - 2 ---RType: SimpleAlgebraicExtension(Fraction Integer,UnivariatePolynomial(a,Fraction Integer),a*a+a+1) +--IType: SimpleAlgebraicExtension(Fraction Integer,... --E 9 --S 10 of 12 @@ -140,7 +140,7 @@ p1:UP(x,ext1):=x**4+3*x**3+(2*a+1)*x**2+(3*a+3)*x-1 --R --R 4 3 2 --R (10) x + 3x + (2a + 1)x + (3a + 3)x - 1 ---RType: UnivariatePolynomial(x,SimpleAlgebraicExtension(Fraction Integer,UnivariatePolynomial(a,Fraction Integer),a*a+a+1)) +--IType: UnivariatePolynomial(x,SimpleAlgebraicExtension(... --E 10 --S 11 of 12 @@ -149,7 +149,7 @@ p2:UP(x,ext1):=x**2+a+1 --R --R 2 --R (11) x + a + 1 ---RType: UnivariatePolynomial(x,SimpleAlgebraicExtension(Fraction Integer,UnivariatePolynomial(a,Fraction Integer),a*a+a+1)) +--IType: UnivariatePolynomial(x,SimpleAlgebraicExtension(... --E 11 --S 12 of 12 @@ -160,7 +160,7 @@ p2/p1 --R (12) ----------- --R 2 --R x + 3x + a ---RType: Fraction UnivariatePolynomial(x,SimpleAlgebraicExtension(Fraction Integer,UnivariatePolynomial(a,Fraction Integer),a*a+a+1)) +--IType: Fraction UnivariatePolynomial(x,SimpleAlgebraicExtension(... --E 12 )spool diff --git a/src/input/derham.input.pamphlet b/src/input/derham.input.pamphlet index 1e10970..77f76a2 100644 --- a/src/input/derham.input.pamphlet +++ b/src/input/derham.input.pamphlet @@ -162,7 +162,8 @@ gamma := alpha * beta --E 16 --S 17 of 33 -exteriorDifferential(gamma) - (exteriorDifferential(alpha)*beta - alpha * exteriorDifferential(beta)) +exteriorDifferential(gamma) - (exteriorDifferential(alpha)*beta - _ + alpha * exteriorDifferential(beta)) --R --R --R (17) 0 diff --git a/src/input/dhtri.input.pamphlet b/src/input/dhtri.input.pamphlet index 73e051a..ec11df1 100644 --- a/src/input/dhtri.input.pamphlet +++ b/src/input/dhtri.input.pamphlet @@ -30,7 +30,8 @@ to {\tt t2}, where {\tt t1} and {\tt t2} are the vertices of two triangles in 3-space. \begin{chunk}{*} --S 1 of 5 -tri2tri(t1: List Point DoubleFloat, t2: List Point DoubleFloat): DHMATRIX(DoubleFloat) == +tri2tri(t1: List Point DoubleFloat, t2: List Point DoubleFloat): _ + DHMATRIX(DoubleFloat) == n1 := triangleNormal(t1) n2 := triangleNormal(t2) tet2tet(concat(t1, n1), concat(t2, n2)) @@ -47,7 +48,8 @@ to {\tt t2}, where {\tt t1} and {\tt t2} are the vertices of two tetrahedrons in 3-space. \begin{chunk}{*} --S 2 of 5 -tet2tet(t1: List Point DoubleFloat, t2: List Point DoubleFloat): DHMATRIX(DoubleFloat) == +tet2tet(t1: List Point DoubleFloat, t2: List Point DoubleFloat): _ + DHMATRIX(DoubleFloat) == m1 := makeColumnMatrix t1 m2 := makeColumnMatrix t2 m2 * inverse(m1) diff --git a/src/input/divisor.input.pamphlet b/src/input/divisor.input.pamphlet index 7fe2c94..3194f0b 100644 --- a/src/input/divisor.input.pamphlet +++ b/src/input/divisor.input.pamphlet @@ -83,7 +83,7 @@ d1 := divisor(0, 1)$fd --R --R --R (6) (x,y - 1) ---RType: FiniteDivisor(Fraction Integer,UnivariatePolynomial(x,Fraction Integer),UnivariatePolynomial(y,Fraction UnivariatePolynomial(x,Fraction Integer)),RadicalFunctionField(Fraction Integer,UnivariatePolynomial(x,Fraction Integer),UnivariatePolynomial(y,Fraction UnivariatePolynomial(x,Fraction Integer)),x**8+1,2)) +--IType: FiniteDivisor(Fraction Integer,UnivariatePolynomial(... --E 6 --S 7 of 18 @@ -91,7 +91,7 @@ d2 := divisor(0, -1)$fd --R --R --R (7) (x,y + 1) ---RType: FiniteDivisor(Fraction Integer,UnivariatePolynomial(x,Fraction Integer),UnivariatePolynomial(y,Fraction UnivariatePolynomial(x,Fraction Integer)),RadicalFunctionField(Fraction Integer,UnivariatePolynomial(x,Fraction Integer),UnivariatePolynomial(y,Fraction UnivariatePolynomial(x,Fraction Integer)),x**8+1,2)) +--IType: FiniteDivisor(Fraction Integer,UnivariatePolynomial(... --E 7 --S 8 of 18 @@ -101,7 +101,7 @@ d := d1 - d2 --R 1 2 8 --R (8) - (- x ,- 2y + x + 2) --R x ---RType: FiniteDivisor(Fraction Integer,UnivariatePolynomial(x,Fraction Integer),UnivariatePolynomial(y,Fraction UnivariatePolynomial(x,Fraction Integer)),RadicalFunctionField(Fraction Integer,UnivariatePolynomial(x,Fraction Integer),UnivariatePolynomial(y,Fraction UnivariatePolynomial(x,Fraction Integer)),x**8+1,2)) +--IType: FiniteDivisor(Fraction Integer,UnivariatePolynomial(... --E 8 --S 9 of 18 @@ -111,7 +111,7 @@ d := reduce d --R 1 2 8 --R (9) - (- x ,- 2y + x + 2) --R x ---RType: FiniteDivisor(Fraction Integer,UnivariatePolynomial(x,Fraction Integer),UnivariatePolynomial(y,Fraction UnivariatePolynomial(x,Fraction Integer)),RadicalFunctionField(Fraction Integer,UnivariatePolynomial(x,Fraction Integer),UnivariatePolynomial(y,Fraction UnivariatePolynomial(x,Fraction Integer)),x**8+1,2)) +--IType: FiniteDivisor(Fraction Integer,UnivariatePolynomial(x,... --E 9 \end{chunk} @@ -149,7 +149,7 @@ generator reduce(4 * d) --R (13) - -- y + -- --R 4 4 --R x x ---RType: Union(RadicalFunctionField(Fraction Integer,UnivariatePolynomial(x,Fraction Integer),UnivariatePolynomial(y,Fraction UnivariatePolynomial(x,Fraction Integer)),x**8+1,2),...) +--IType: Union(RadicalFunctionField(Fraction Integer,... --E 13 \end{chunk} @@ -160,7 +160,7 @@ lSpaceBasis d1 --R --R --R (14) [- 1] ---RType: Vector RadicalFunctionField(Fraction Integer,UnivariatePolynomial(x,Fraction Integer),UnivariatePolynomial(y,Fraction UnivariatePolynomial(x,Fraction Integer)),x**8+1,2) +--IType: Vector RadicalFunctionField(Fraction Integer,... --E 14 --S 15 of 18 @@ -168,7 +168,7 @@ lSpaceBasis(2 * d1) --R --R --R (15) [- 1] ---RType: Vector RadicalFunctionField(Fraction Integer,UnivariatePolynomial(x,Fraction Integer),UnivariatePolynomial(y,Fraction UnivariatePolynomial(x,Fraction Integer)),x**8+1,2) +--IType: Vector RadicalFunctionField(Fraction Integer,... --E 15 --S 16 of 18 @@ -176,7 +176,7 @@ lSpaceBasis(3 * d1) --R --R --R (16) [- 1] ---RType: Vector RadicalFunctionField(Fraction Integer,UnivariatePolynomial(x,Fraction Integer),UnivariatePolynomial(y,Fraction UnivariatePolynomial(x,Fraction Integer)),x**8+1,2) +--IType: Vector RadicalFunctionField(Fraction Integer,... --E 16 --S 17 of 18 @@ -187,7 +187,7 @@ lSpaceBasis(4 * d1) --R (17) [-- y + --,- 1] --R 4 4 --R x x ---RType: Vector RadicalFunctionField(Fraction Integer,UnivariatePolynomial(x,Fraction Integer),UnivariatePolynomial(y,Fraction UnivariatePolynomial(x,Fraction Integer)),x**8+1,2) +--IType: Vector RadicalFunctionField(Fraction Integer,... --E 17 --S 18 of 18 @@ -198,7 +198,7 @@ lSpaceBasis(5 * d1) --R (18) [-- y + --,-- y + --,- 1] --R 5 5 4 4 --R x x x x ---RType: Vector RadicalFunctionField(Fraction Integer,UnivariatePolynomial(x,Fraction Integer),UnivariatePolynomial(y,Fraction UnivariatePolynomial(x,Fraction Integer)),x**8+1,2) +--IType: Vector RadicalFunctionField(Fraction Integer,... --E 18 )spool )lisp (bye) diff --git a/src/input/dop.input.pamphlet b/src/input/dop.input.pamphlet index 072b16b..e82d394 100644 --- a/src/input/dop.input.pamphlet +++ b/src/input/dop.input.pamphlet @@ -2208,10 +2208,10 @@ --R --RExamples of viewPosDefault from ViewDefaultsPackage --R ---Rand Y position of a viewport window unless overriden explicityly, newly created viewports will have th +--Iand Y position of a viewport window unless overriden explicityly, ... --Rand Y coordinates x, y. --R ---Rand Y position of a viewport window unless overriden explicityly, newly created viewports will have this +--Iand Y position of a viewport window unless overriden explicityly, ... --Rand Y coordinate. --R --E 49 @@ -5468,7 +5468,7 @@ --R --RExamples of groebnerFactorize from GroebnerFactorizationPackage --R ---Rmfzn : SQMATRIX(6,DMP([x,y,z],Fraction INT)) := ++X [ [0,1,1,1,1,1], [1,0,1,8/3,x,8/3], [1,1,0,1,8/3,y], ++X [1,8/3,1,0,1,8/3], [1,x,8/3,1,0,1], [1,8/3,y,8/3,1,0] ] +--Imfzn : SQMATRIX(6,DMP([x,y,z],Fraction INT)) := ++X [ [0,1,1,1,1,1], ... --Req := determinant mfzn --RgroebnerFactorize ++X [eq,eval(eq, [x,y,z],[y,z,x]), eval(eq,[x,y,z],[z,x,y])] --R diff --git a/src/input/dpol.input.pamphlet b/src/input/dpol.input.pamphlet index f798c15..9dc4123 100644 --- a/src/input/dpol.input.pamphlet +++ b/src/input/dpol.input.pamphlet @@ -79,7 +79,7 @@ w := makeVariable('w)$dpol --R --R --R (5) theMap(DPOLCAT-;makeVariable;AM;17!0,0) ---RType: (NonNegativeInteger -> DifferentialSparseMultivariatePolynomial(Fraction Integer,Symbol,OrderlyDifferentialVariable Symbol)) +--IType: (NonNegativeInteger -> DifferentialSparseMultivariatePolynomial(... --E 5 \end{chunk} @@ -91,7 +91,7 @@ z := makeVariable('z)$dpol --R --R --R (6) theMap(DPOLCAT-;makeVariable;AM;17!0,0) ---RType: (NonNegativeInteger -> DifferentialSparseMultivariatePolynomial(Fraction Integer,Symbol,OrderlyDifferentialVariable Symbol)) +--IType: (NonNegativeInteger -> DifferentialSparseMultivariatePolynomial(... --E 6 \end{chunk} @@ -110,7 +110,7 @@ f:=w.4::dpol - w.1 * w.1 * z.3 --R 2 --R (8) w - w z --R 4 1 3 ---RType: DifferentialSparseMultivariatePolynomial(Fraction Integer,Symbol,OrderlyDifferentialVariable Symbol) +--IType: DifferentialSparseMultivariatePolynomial(Fraction Integer,... --E 8 --S 9 of 18 @@ -120,7 +120,7 @@ b:=(z.1::dpol)**3 * (z.2)**2 - w.2 --R 3 2 --R (9) z z - w --R 1 2 2 ---RType: DifferentialSparseMultivariatePolynomial(Fraction Integer,Symbol,OrderlyDifferentialVariable Symbol) +--IType: DifferentialSparseMultivariatePolynomial(Fraction Integer,... --E 9 \end{chunk} @@ -145,7 +145,7 @@ sb:=separant b --R 3 --R (11) 2z z --R 1 2 ---RType: DifferentialSparseMultivariatePolynomial(Fraction Integer,Symbol,OrderlyDifferentialVariable Symbol) +--IType: DifferentialSparseMultivariatePolynomial(Fraction Integer,... --E 11 \end{chunk} @@ -160,7 +160,7 @@ bprime:= differentiate b --R 3 2 3 --R (12) 2z z z - w + 3z z --R 1 2 3 3 1 2 ---RType: DifferentialSparseMultivariatePolynomial(Fraction Integer,Symbol,OrderlyDifferentialVariable Symbol) +--IType: DifferentialSparseMultivariatePolynomial(Fraction Integer,... --E 12 \end{chunk} @@ -185,7 +185,7 @@ pbf:=differentiate (f, lbprime) --R 2 --R (14) - w --R 1 ---RType: DifferentialSparseMultivariatePolynomial(Fraction Integer,Symbol,OrderlyDifferentialVariable Symbol) +--IType: DifferentialSparseMultivariatePolynomial(Fraction Integer,... --E 14 \end{chunk} @@ -198,7 +198,7 @@ ftilde:=sb * f- pbf * bprime --R 3 2 2 2 3 --R (15) 2z z w - w w + 3w z z --R 1 2 4 1 3 1 1 2 ---RType: DifferentialSparseMultivariatePolynomial(Fraction Integer,Symbol,OrderlyDifferentialVariable Symbol) +--IType: DifferentialSparseMultivariatePolynomial(Fraction Integer,... --E 15 \end{chunk} @@ -213,7 +213,7 @@ ib:=initial b --R 3 --R (16) z --R 1 ---RType: DifferentialSparseMultivariatePolynomial(Fraction Integer,Symbol,OrderlyDifferentialVariable Symbol) +--IType: DifferentialSparseMultivariatePolynomial(Fraction Integer,... --E 16 \end{chunk} @@ -227,7 +227,7 @@ lcef:=leadingCoefficient univariate(ftilde, lb) --R 2 2 --R (17) 3w z --R 1 1 ---RType: DifferentialSparseMultivariatePolynomial(Fraction Integer,Symbol,OrderlyDifferentialVariable Symbol) +--IType: DifferentialSparseMultivariatePolynomial(Fraction Integer,... --E 17 \end{chunk} @@ -241,7 +241,7 @@ f0:=ib * ftilde - lcef * b * lb --R 6 2 3 2 2 --R (18) 2z z w - w z w + 3w z w z --R 1 2 4 1 1 3 1 1 2 2 ---RType: DifferentialSparseMultivariatePolynomial(Fraction Integer,Symbol,OrderlyDifferentialVariable Symbol) +--IType: DifferentialSparseMultivariatePolynomial(Fraction Integer,... --E 18 )spool )lisp (bye) diff --git a/src/input/drawex.input.pamphlet b/src/input/drawex.input.pamphlet index 44677cc..3af5f7e 100644 --- a/src/input/drawex.input.pamphlet +++ b/src/input/drawex.input.pamphlet @@ -67,11 +67,13 @@ draw(curve(3*(t**2-3),t*(t**2-3)),t = -3..3, title == "Tschirnhausen's Cubic") draw(curve(sin(t), cos(t), 0), t=0..2*%pi, tubeRadius == 0.5) -draw(curve((t**2-1)/(3*t**2+1),t*(t**2-1)/(3*t**2+1)),t = -3..3, title == "Folium of Descartes") +draw(curve((t**2-1)/(3*t**2+1),t*(t**2-1)/(3*t**2+1)),t = -3..3, title == _ + "Folium of Descartes") draw(curve(t - 2*sin t,1 - 2*cos t),t = -5..5) -draw(curve(cos(t)/(1+sin(t)**2),sin(t)*cos(t)/(1+sin(t)**2)),t = -%pi..%pi, title == "Lemniscate of Bernoulli") +draw(curve(cos(t)/(1+sin(t)**2),sin(t)*cos(t)/(1+sin(t)**2)),t = _ + -%pi..%pi, title == "Lemniscate of Bernoulli") \end{chunk} \eject diff --git a/src/input/dropt.input.pamphlet b/src/input/dropt.input.pamphlet index d74b8f0..9675779 100644 --- a/src/input/dropt.input.pamphlet +++ b/src/input/dropt.input.pamphlet @@ -70,13 +70,16 @@ draw(m,0..2*%pi,0..%pi,coordinates == spherical,title == "Sphere") --3D Options: colorFxn1(x:DFLOAT,y:DFLOAT):DFLOAT == x*sin(x) -draw(m,0..2*%pi,0..%pi,colorFunction == colorFxn1,title == "color = x*sin(x)",coordinates == spherical) +draw(m,0..2*%pi,0..%pi,colorFunction == colorFxn1,title == _ + "color = x*sin(x)",coordinates == spherical) colorFxn2(x:DFLOAT,y:DFLOAT):DFLOAT == x**2 - y**2 -draw(m,0..2*%pi,0..%pi,colorFunction == colorFxn2,title == "color = x**2 - y**2",coordinates == spherical) +draw(m,0..2*%pi,0..%pi,colorFunction == colorFxn2,title == _ + "color = x**2 - y**2",coordinates == spherical) colorFxn3(x:DFLOAT,y:DFLOAT,z:DFLOAT):DFLOAT == sin(x*z) + cos(y*z) -draw(m,0..2*%pi,0..%pi,colorFunction == colorFxn3,title == "color = sin(x*z)+cos(y*z)",coordinates == spherical) +draw(m,0..2*%pi,0..%pi,colorFunction == colorFxn3,title == _ + "color = sin(x*z)+cos(y*z)",coordinates == spherical) draw(curve(sin(t),cos(t),0),t=0..2*%pi,tubeRadius == .25) diff --git a/src/input/e02dcf.input.pamphlet b/src/input/e02dcf.input.pamphlet index c25c331..7bef19c 100644 --- a/src/input/e02dcf.input.pamphlet +++ b/src/input/e02dcf.input.pamphlet @@ -54,7 +54,8 @@ ny:=0 mu:Matrix SF:=new(1,13,0.0)$Matrix SF wrk:Matrix SF:=new(1,592,0.0)$Matrix SF iwrk:Matrix Integer:=new(1,51,0)$Matrix Integer -result:=e02dcf(start,mx,x,my,y,f,s,nxest,nyest,lwrk,liwrk,nx,lamda,ny,mu,wrk,iwrk,-1) +result:=e02dcf(start,mx,x,my,y,f,s,nxest,nyest,lwrk,liwrk,nx,_ + lamda,ny,mu,wrk,iwrk,-1) \end{chunk} \eject \begin{thebibliography}{99} diff --git a/src/input/e04dgf.input.pamphlet b/src/input/e04dgf.input.pamphlet index de361ce..97a5876 100644 --- a/src/input/e04dgf.input.pamphlet +++ b/src/input/e04dgf.input.pamphlet @@ -34,7 +34,8 @@ sto:=2 ve:=0 x:Matrix SF:= [[-1.0 ,1.0 ]] -ef:Expression Float:=(exp(X[1])*(4*X[1]**2+2*X[2]**2+4*X[1]*X[2]+2*X[2]+1))::EXPR FLOAT +ef:Expression Float:=_ + (exp(X[1])*(4*X[1]**2+2*X[2]**2+4*X[1]*X[2]+2*X[2]+1))::EXPR FLOAT objfun:ASP49(OBJFUN):= retract ef result:=e04dgf(n,es,fu,it,lin,list,ma,op,pr,sta,sto,ve,x,-1,objfun) \end{chunk} diff --git a/src/input/e04jaf.input.pamphlet b/src/input/e04jaf.input.pamphlet index 4faee7f..08f8b73 100644 --- a/src/input/e04jaf.input.pamphlet +++ b/src/input/e04jaf.input.pamphlet @@ -31,7 +31,8 @@ bu:Matrix SF:= x:Matrix SF:= [[3 ,-1 ,0 ,1 ]] ef:Expression Float:= - ((XC[1]+10*XC[2])**2+5*(XC[3]-XC[4])**2+(XC[2]-2*XC[3])**4+10*(XC[1]-XC[4])**4)::EXPR FLOAT + ((XC[1]+10*XC[2])**2+5*(XC[3]-XC[4])**2+(XC[2]-2*XC[3])**4+_ + 10*(XC[1]-XC[4])**4)::EXPR FLOAT funct1:Asp24(FUNCT1):=retract ef result:=e04jaf(n,ibound,liw,lw,bl,bu,x,-1,funct1) \end{chunk} diff --git a/src/input/e04mbf.input.pamphlet b/src/input/e04mbf.input.pamphlet index f044fae..87690ee 100644 --- a/src/input/e04mbf.input.pamphlet +++ b/src/input/e04mbf.input.pamphlet @@ -48,7 +48,8 @@ liwork:=14 lwork:=182 x:Matrix SF:= [[-0.01 ,-0.03 ,0.0 ,-0.01 ,-0.1 ,0.02 ,0.01 ]] -result:=e04mbf(itmax,msglvl,n,nclin,nctotl,nrowa,a,bl,bu,cvec,linobj,liwork,lwork,x,-1) +result:=e04mbf(itmax,msglvl,n,nclin,nctotl,nrowa,a,bl,bu,_ + cvec,linobj,liwork,lwork,x,-1) \end{chunk} \eject \begin{thebibliography}{99} diff --git a/src/input/e04naf.input.pamphlet b/src/input/e04naf.input.pamphlet index 46a602c..0f80da7 100644 --- a/src/input/e04naf.input.pamphlet +++ b/src/input/e04naf.input.pamphlet @@ -75,7 +75,8 @@ mei:Matrix Expression Integer:= [0 ,0 ,0 ,0 ,0 ,-2 ,-2 ],_ [0 ,0 ,0 ,0 ,0 ,-2 ,-2 ]] qphess:Asp20(QPHESS):= retract mei -result:=e04naf(itmax,msglvl,n,nclin,nctotl,nrowa,nrowh,ncolh,bigbnd,a,bl,bu,cvec,featol,_ +result:=e04naf(itmax,msglvl,n,nclin,nctotl,nrowa,nrowh,ncolh,_ + bigbnd,a,bl,bu,cvec,featol,_ hess,cold,lpp,orthog,liwork,lwork,x,istate,-1,qphess) \end{chunk} \eject diff --git a/src/input/e04ucf.input.pamphlet b/src/input/e04ucf.input.pamphlet index c45b732..7d1b849 100644 --- a/src/input/e04ucf.input.pamphlet +++ b/src/input/e04ucf.input.pamphlet @@ -88,7 +88,8 @@ vef:Vector Expression Float:=vector (X[4] - X[5])**2 + (X[9] - X[8])**2 ,_ X[5]**2 + X[9]**2 ] confun:Asp55(CONFUN):= retract vef -ef:Expression Float:=(-X[2]*X[6] + X[1]*X[7] - X[3]*X[7] - X[5]*X[8] + X[4]*X[9] + X[3]*X[8])::EXPR FLOAT +ef:Expression Float:=(-X[2]*X[6] + X[1]*X[7] - X[3]*X[7] - _ + X[5]*X[8] + X[4]*X[9] + X[3]*X[8])::EXPR FLOAT objfun:Asp49(OBJFUN):=retract ef result:=e04ucf(n,nclin,ncnln,nrowa,nrowj,nrowr,a,bl,bu,liwork,lwork,_ sta,cra,der,fea,fun,hes,infb,infs,linf,lint,list,maji,majp,_ diff --git a/src/input/easter.input.pamphlet b/src/input/easter.input.pamphlet index bf4a36c..387d9d7 100644 --- a/src/input/easter.input.pamphlet +++ b/src/input/easter.input.pamphlet @@ -2459,7 +2459,7 @@ solve(%, y, x) --R (154) [particular= - ------,basis= [--]] --R 3 3 --R x x ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,basis: ... --E 160 \end{chunk} @@ -2521,7 +2521,7 @@ solve(D(y(x), x, 2) + k**2*y(x) = 0, y, x) --R --R --R (157) [particular= 0,basis= [cos(k x),sin(k x)]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,basis: ... --E 165 -- bc(%, x = 0, y = 0, x = 1, D(y(x), x) = 0) @@ -2569,7 +2569,7 @@ s:=solve(system.1, x, t) --R --R t t --R (161) [particular= 0,basis= [%e sin(t) + 2%e ]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,basis: ... --E 169 --S 170 of 200 @@ -2592,7 +2592,7 @@ s1:=solve(map(e +-> subst(e, eq1), system.2), y, t) --R 5 --R - t --R basis= [%e ]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,basis: ... --E 171 --S 172 of 200 @@ -2767,7 +2767,10 @@ p(n, x) == 1/(2**n*factorial(n)) * D((x**2 - 1)**n, x, n) --E 187 --S 188 of 200 -for i in 0..4 repeat { output(""); output(concat(["p(", string(i), ", x) = "])); output(p(i, x))} +for i in 0..4 _ + repeat { output(""); _ + output(concat(["p(", string(i), ", x) = "])); _ + output(p(i, x))} --R --R Compiling function p with type (NonNegativeInteger,Variable x) -> --R Polynomial Fraction Integer @@ -2827,7 +2830,9 @@ pp(n, x) == ((2*n - 1)*x*pp(n - 1, x) - (n - 1)*pp(n - 2, x))/n --E 192 --S 193 of 200 -for i in 0..4 repeat { output(""); output(concat(["pp(", string(i), ", x) = "])); output(pp(i, x))} +for i in 0..4 repeat { output(""); _ + output(concat(["pp(", string(i), ", x) = "])); _ + output(pp(i, x))} --R --R Compiling function pp with type (Integer,Variable x) -> Polynomial --R Fraction Integer diff --git a/src/input/eigen.input.pamphlet b/src/input/eigen.input.pamphlet index 33912cc..81ff7ee 100644 --- a/src/input/eigen.input.pamphlet +++ b/src/input/eigen.input.pamphlet @@ -201,8 +201,9 @@ eigenvector(beta,m)$EP(INT) -- eigenvector(beta,m) not accepted by the interpreter \end{chunk} -Eigenvalues and eigenvectors can be computed simultaneously -with the function {\tt eigenvectors} +The function {\tt eigenvectors} can compute Eigenvalues and eigenvectors +simultaneously +with the function \begin{chunk}{*} --S 14 of 36 eigenvectors m @@ -221,7 +222,7 @@ eigenvectors m --R [eigval= (%E | %E - %E - 5),eigmult= 1,eigvec= [|2 |]]] --R | | --R +1 + ---RType: List Record(eigval: Union(Fraction Polynomial Integer,SuchThat(Symbol,Polynomial Integer)),eigmult: NonNegativeInteger,eigvec: List Matrix Fraction Polynomial Integer) +--IType: List Record(eigval: Union(Fraction Polynomial Integer,... --E 14 --S 15 of 36 @@ -248,7 +249,7 @@ eigenvectors(q) --R [eigval= 0,eigmult= 1,eigvec= [| y + x |]]] --R | | --R + 1 + ---RType: List Record(eigval: Union(Fraction Polynomial Integer,SuchThat(Symbol,Polynomial Integer)),eigmult: NonNegativeInteger,eigvec: List Matrix Fraction Polynomial Integer) +--IType: List Record(eigval: Union(Fraction Polynomial Integer,... --E 16 --S 17 of 36 @@ -290,7 +291,7 @@ ll := eigenvectors p --R | 0 | --R | | --R + 1 + ---RType: List Record(eigval: Union(Fraction Polynomial Integer,SuchThat(Symbol,Polynomial Integer)),eigmult: NonNegativeInteger,eigvec: List Matrix Fraction Polynomial Integer) +--IType: List Record(eigval: Union(Fraction Polynomial Integer,... --E 18 \end{chunk} @@ -314,7 +315,7 @@ generalizedEigenvectors p --R | 1 | +1+ + 0 + + 1 + --R | | --R + 0 + ---RType: List Record(eigval: Union(Fraction Polynomial Integer,SuchThat(Symbol,Polynomial Integer)),geneigvec: List Matrix Fraction Polynomial Integer) +--IType: List Record(eigval: Union(Fraction Polynomial Integer,... --E 19 --S 20 of 36 @@ -467,7 +468,7 @@ radicalEigenvectors m --R | 2| --R | | --R + 1 + ---RType: List Record(radval: Expression Integer,radmult: Integer,radvect: List Matrix Expression Integer) +--IType: List Record(radval: Expression Integer,radmult: Integer,... --E 27 --S 28 of 36 @@ -502,7 +503,7 @@ radicalEigenvectors mm --R [radval= 33,radmult= 1,radvect= [|- 3|]]] --R | | --R + 1 + ---RType: List Record(radval: Expression Integer,radmult: Integer,radvect: List Matrix Expression Integer) +--IType: List Record(radval: Expression Integer,radmult: Integer,... --E 28 \end{chunk} @@ -557,7 +558,7 @@ realEigenvectors(m,1/1000000) --R 2097152 | 2 | --R | | --R + 1 + ---RType: List Record(outval: Fraction Integer,outmult: Integer,outvect: List Matrix Fraction Integer) +--IType: List Record(outval: Fraction Integer,outmult: Integer,... --E 31 --S 32 of 36 @@ -588,7 +589,7 @@ complexEigenvectors(mm,1/1000000) --R | 58 58 | --R | | --R + 1 + ---RType: List Record(outval: Complex Fraction Integer,outmult: Integer,outvect: List Matrix Complex Fraction Integer) +--IType: List Record(outval: Complex Fraction Integer,outmult: Integer,... --E 32 \end{chunk} @@ -666,7 +667,7 @@ complexEigenvectors(mm,.000001) --R | | --R + 1.0 + --R ] ---RType: List Record(outval: Complex Float,outmult: Integer,outvect: List Matrix Complex Float) +--IType: List Record(outval: Complex Float,outmult: Integer,... --E 36 )spool )lisp (bye) diff --git a/src/input/elfuts.input.pamphlet b/src/input/elfuts.input.pamphlet index 2b0d25f..f8fa47d 100644 --- a/src/input/elfuts.input.pamphlet +++ b/src/input/elfuts.input.pamphlet @@ -83,7 +83,7 @@ yy:UTS(FRAC UP(k,RN),'y,0):=y --R --R --R (7) y ---RType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,Fraction Integer),y,0) +--IType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,... --E 7 --S 8 of 40 @@ -102,7 +102,7 @@ snn:=sn(yy,k::QF UP(k,RN)) --R 1 8 307 6 913 4 307 2 1 9 11 --R (------ k + ----- k + ----- k + ----- k + ------)y + O(y ) --R 362880 90720 60480 90720 362880 ---RType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,Fraction Integer),y,0) +--IType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,... --E 8 --S 9 of 40 @@ -121,7 +121,7 @@ cnn:=cn(yy,k::QF UP(k,RN)) --R 1 8 247 6 641 4 461 2 1 10 11 --R (- ----- k - ----- k - ----- k - ------ k - -------)y + O(y ) --R 14175 56700 75600 453600 3628800 ---RType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,Fraction Integer),y,0) +--IType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,... --E 9 --S 10 of 40 @@ -140,7 +140,7 @@ dnn:=dn(yy,k::QF UP(k,RN)) --R 1 10 461 8 641 6 247 4 1 2 10 11 --R (- ------- k - ------ k - ----- k - ----- k - ----- k )y + O(y ) --R 3628800 453600 75600 56700 14175 ---RType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,Fraction Integer),y,0) +--IType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,... --E 10 --S 11 of 40 @@ -149,7 +149,7 @@ snn**2+cnn**2 --R --R 11 --R (11) 1 + O(y ) ---RType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,Fraction Integer),y,0) +--IType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,... --E 11 --S 12 of 40 @@ -167,7 +167,7 @@ dnn**2+ksquared*snn**2 --R --R 11 --R (13) 1 + O(y ) ---RType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,Fraction Integer),y,0) +--IType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,... --E 13 --S 14 of 40 @@ -186,7 +186,7 @@ dnn**2+ksquared*snn**2 --R 2 10 109 8 6977 6 6977 4 109 2 2 10 11 --R (- ----- k - ---- k - ----- k - ----- k - ---- k - -----)y + O(y ) --R 14175 2025 14175 14175 2025 14175 ---RType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,Fraction Integer),y,0) +--IType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,... --E 14 --S 15 of 40 @@ -205,7 +205,7 @@ dnn**2+ksquared*snn**2 --R 2 10 109 8 6977 6 6977 4 109 2 2 10 11 --R (- ----- k - ---- k - ----- k - ----- k - ---- k - -----)y + O(y ) --R 14175 2025 14175 14175 2025 14175 ---RType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,Fraction Integer),y,0) +--IType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,... --E 15 --S 16 of 40 @@ -224,7 +224,7 @@ dnn**2+ksquared*snn**2 --R 512 8 6101 6 2242 4 761 2 2 10 11 --R (----- k + ----- k + ---- k + ----- k + -----)y + O(y ) --R 14175 14175 4725 14175 14175 ---RType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,Fraction Integer),y,0) +--IType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,... --E 16 --S 17 of 40 @@ -243,7 +243,7 @@ dnn**2+ksquared*snn**2 --R 512 8 6101 6 2242 4 761 2 2 10 11 --R (----- k + ----- k + ---- k + ----- k + -----)y + O(y ) --R 14175 14175 4725 14175 14175 ---RType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,Fraction Integer),y,0) +--IType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,... --E 17 --S 18 of 40 @@ -262,7 +262,7 @@ dnn**2+ksquared*snn**2 --R 2 12 761 10 2242 8 6101 6 512 4 10 11 --R (----- k + ----- k + ---- k + ----- k + ----- k )y + O(y ) --R 14175 14175 4725 14175 14175 ---RType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,Fraction Integer),y,0) +--IType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,... --E 18 --S 19 of 40 @@ -281,7 +281,7 @@ dnn**2+ksquared*snn**2 --R 2 12 761 10 2242 8 6101 6 512 4 10 11 --R (----- k + ----- k + ---- k + ----- k + ----- k )y + O(y ) --R 14175 14175 4725 14175 14175 ---RType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,Fraction Integer),y,0) +--IType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,... --E 19 --S 20 of 40 @@ -300,7 +300,7 @@ kkk:=integrate(1/((1-yy**2)*(1-ksquared*yy**2))**(1/2)) --R 35 8 5 6 1 4 5 2 35 9 11 --R (---- k + --- k + -- k + --- k + ----)y + O(y ) --R 1152 288 64 288 1152 ---RType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,Fraction Integer),y,0) +--IType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,... --E 20 --S 21 of 40 @@ -319,7 +319,7 @@ revert kkk --R 1 8 307 6 913 4 307 2 1 9 11 --R (------ k + ----- k + ----- k + ----- k + ------)y + O(y ) --R 362880 90720 60480 90720 362880 ---RType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,Fraction Integer),y,0) +--IType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,... --E 21 --S 22 of 40 @@ -352,7 +352,7 @@ snn --R + --R 12 --R O(y ) ---RType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,Fraction Integer),y,0) +--IType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,... --E 22 \end{chunk} @@ -494,7 +494,7 @@ qqq:UTS(FRAC UP(a,RN),'q,0):=q --R --R --R (37) q ---RType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(a,Fraction Integer),q,0) +--IType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(a,... --E 37 --S 38 of 40 @@ -525,7 +525,7 @@ eprod(1-qqq)*oprod(1-a*qqq)*oprod(1-qqq/a) --R (39) 1 + -------- q + ------ q + -------- q + O(q ) --R a 2 3 --R a a ---RType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(a,Fraction Integer),q,0) +--IType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(a,... --E 39 --S 40 of 40 @@ -544,7 +544,7 @@ sq:=ksquared*snn**2 --R 2 10 251 8 292 6 251 4 2 2 10 11 --R (----- k + ----- k + ---- k + ----- k + ----- k )y + O(y ) --R 14175 14175 4725 14175 14175 ---RType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,Fraction Integer),y,0) +--IType: UnivariateTaylorSeries(Fraction UnivariatePolynomial(k,... --E 40 )spool )lisp (bye) diff --git a/src/input/equation2.input.pamphlet b/src/input/equation2.input.pamphlet index a7ba18e..0e2b91d 100644 --- a/src/input/equation2.input.pamphlet +++ b/src/input/equation2.input.pamphlet @@ -386,7 +386,7 @@ solve([[1,1,1],[3,-2,1],[1,2,2]],[8,0,17]) --R --R --R (1) [particular= [- 1,2,7],basis= [[0,0,0]]] ---RType: Record(particular: Union(Vector Fraction Integer,"failed"),basis: List Vector Fraction Integer) +--IType: Record(particular: Union(Vector Fraction Integer,"failed"),basis: ... --E 24 --S 25 of 27 @@ -394,7 +394,7 @@ solve([[1,2,3],[2,3,4],[3,4,5]],[2,2,2]) --R --R --R (2) [particular= [- 2,2,0],basis= [[1,- 2,1]]] ---RType: Record(particular: Union(Vector Fraction Integer,"failed"),basis: List Vector Fraction Integer) +--IType: Record(particular: Union(Vector Fraction Integer,"failed"),basis: ... --E 25 --S 26 of 27 @@ -402,7 +402,7 @@ solve([[1,2,3],[2,3,4],[3,4,5]],[2,3,2]) --R --R --R (3) [particular= "failed",basis= [[1,- 2,1]]] ---RType: Record(particular: Union(Vector Fraction Integer,"failed"),basis: List Vector Fraction Integer) +--IType: Record(particular: Union(Vector Fraction Integer,"failed"),basis: ... --E 26 --S 27 of 27 diff --git a/src/input/exampleagcode.input.pamphlet b/src/input/exampleagcode.input.pamphlet index 9e5a1c2..a799eee 100644 --- a/src/input/exampleagcode.input.pamphlet +++ b/src/input/exampleagcode.input.pamphlet @@ -210,7 +210,7 @@ lB1:= lBasis(D)$P1 --R [num= [Z ,Y Z ,Y Z ,X Z ,X Y Z ,X Y Z,X Z ,X Y Z,X Z,X Y,X ], --R 4 2 2 4 --R den= X + X Y Z + X Y Z + Z ] ---RType: Record(num: List DistributedMultivariatePolynomial([X,Y,Z],PrimeField 2),den: DistributedMultivariatePolynomial([X,Y,Z],PrimeField 2)) +--IType: Record(num: List DistributedMultivariatePolynomial([X,Y,Z],... --E 11 -- Since we want to construct a code over GF(2^4), we defined the @@ -280,7 +280,7 @@ plc1 := placesOfDegree(1)$P4 --R [%A :%A :1] , [%A :%A :1] , [%A :%A :1] , [%A :%A :1] , [%A :%A :1] , --R 1 1 1 --R [0:0:1] , [0:1:1] , %I3 ] ---RType: List PlacesOverPseudoAlgebraicClosureOfFiniteField FiniteFieldCyclicGroup(2,4) +--IType: List PlacesOverPseudoAlgebraicClosureOfFiniteField ... --E 17 -- Now, we can construct the matrix of the AG-code, which code-words consist diff --git a/src/input/exlimit.input.pamphlet b/src/input/exlimit.input.pamphlet index 6bbe7a5..ee7aaa1 100644 --- a/src/input/exlimit.input.pamphlet +++ b/src/input/exlimit.input.pamphlet @@ -72,7 +72,7 @@ limit(x * log(x),x = 0) --R --R --R (2) [leftHandLimit= "failed",rightHandLimit= 0] ---RType: Union(Record(leftHandLimit: Union(OrderedCompletion Expression Integer,"failed"),rightHandLimit: Union(OrderedCompletion Expression Integer,"failed")),...) +--IType: Union(Record(leftHandLimit: Union(OrderedCompletion ... --E 6 )clear all @@ -82,7 +82,7 @@ limit(sqrt(y**2)/y,y = 0) --R --R --R (1) [leftHandLimit= - 1,rightHandLimit= 1] ---RType: Union(Record(leftHandLimit: Union(OrderedCompletion Expression Integer,"failed"),rightHandLimit: Union(OrderedCompletion Expression Integer,"failed")),...) +--IType: Union(Record(leftHandLimit: Union(OrderedCompletion ... --E 7 --S 8 of 13 @@ -93,7 +93,7 @@ limit(sqrt(1 - cos(t))/t,t = 0) --R (2) [leftHandLimit= - ----,rightHandLimit= ----] --R +-+ +-+ --R \|2 \|2 ---RType: Union(Record(leftHandLimit: Union(OrderedCompletion Expression Integer,"failed"),rightHandLimit: Union(OrderedCompletion Expression Integer,"failed")),...) +--IType: Union(Record(leftHandLimit: Union(OrderedCompletion ... --E 8 )clear all diff --git a/src/input/exprpoly.input.pamphlet b/src/input/exprpoly.input.pamphlet index 3f79465..2288066 100644 --- a/src/input/exprpoly.input.pamphlet +++ b/src/input/exprpoly.input.pamphlet @@ -213,7 +213,7 @@ b :: UP(y, HDMP([x,z], Integer)) --R (19) --R 3 2 2 2 3 2 2 3 --R - 8y + (12x + 36z)y + (- 6x - 36x z - 54z )y + x + 9x z + 27x z + 27z ---RType: UnivariatePolynomial(y,HomogeneousDistributedMultivariatePolynomial([x,z],Integer)) +--IType: UnivariatePolynomial(y,HomogeneousDistributedMultivariatePolynomial(... --E 19 --S 20 of 20 diff --git a/src/input/f02fjf.input.pamphlet b/src/input/f02fjf.input.pamphlet index edd9a97..d85c7cd 100644 --- a/src/input/f02fjf.input.pamphlet +++ b/src/input/f02fjf.input.pamphlet @@ -66,7 +66,8 @@ b(16,15) := -1/2 b(16,16) := 1 c : Matrix MachineFloat := (inverse (a))*b; bb := b :: Matrix MachineFloat -result:=f02fjf(n,k,tol,novecs,nrx,lwork,lrwork,liwork,m,noits,x,ifail,bb :: ASP27('DOT),c :: ASP28('IMAGE)) +result:=f02fjf(n,k,tol,novecs,nrx,lwork,lrwork,liwork,m,noits,_ + x,ifail,bb :: ASP27('DOT),c :: ASP28('IMAGE)) \end{chunk} \eject \begin{thebibliography}{99} diff --git a/src/input/f04mbf.input.pamphlet b/src/input/f04mbf.input.pamphlet index fc11142..b7814c5 100644 --- a/src/input/f04mbf.input.pamphlet +++ b/src/input/f04mbf.input.pamphlet @@ -49,7 +49,8 @@ m :Matrix MFLOAT:= [[2,1,0,0,0,0,0,0,0,0],[1,2,1,0,0,0,0,0,0,0],_ [0,1,2,1,0,0,0,0,0,0],[0,0,1,2,1,0,0,0,0,0],[0,0,0,1,2,1,0,0,0,0],_ [0,0,0,0,1,2,1,0,0,0],[0,0,0,0,0,1,2,1,0,0],[0,0,0,0,0,0,1,2,1,0],_ [0,0,0,0,0,0,0,1,2,1],[0,0,0,0,0,0,0,0,1,2]] -result:=f04mbf(n,b,precon,shft,itnlim,msglvl,lrwork,liwork,rtol,ifail,z::ASP28(APROD),(m::ASP34(MSOLVE))) +result:=f04mbf(n,b,precon,shft,itnlim,msglvl,lrwork,liwork,_ + rtol,ifail,z::ASP28(APROD),(m::ASP34(MSOLVE))) \end{chunk} \eject \begin{thebibliography}{99} diff --git a/src/input/f04qaf.input.pamphlet b/src/input/f04qaf.input.pamphlet index 88151e8..2745f3e 100644 --- a/src/input/f04qaf.input.pamphlet +++ b/src/input/f04qaf.input.pamphlet @@ -47,7 +47,8 @@ msglvl := 1 liwork := 1 lrwork := 1 ifail :=1 -result:=f04qaf(m,n,damp,atol,btol,conlim,itnlim,msglvl,lrwork,liwork,b,ifail,a::ASP30(APROD)) +result:=f04qaf(m,n,damp,atol,btol,conlim,itnlim,msglvl,lrwork,_ + liwork,b,ifail,a::ASP30(APROD)) \end{chunk} \eject \begin{thebibliography}{99} diff --git a/src/input/ffdemo.input.pamphlet b/src/input/ffdemo.input.pamphlet index 4e1bc67..b491ebb 100644 --- a/src/input/ffdemo.input.pamphlet +++ b/src/input/ffdemo.input.pamphlet @@ -1244,7 +1244,7 @@ f2:=createIrreduciblePoly(d2)$FFPOLY(F1) --R --R 3 --R (121) ? + ? + %D ---RType: SparseUnivariatePolynomial FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1) +--IType: SparseUnivariatePolynomial FiniteFieldExtensionByPolynomial(... --E 121 \end{chunk} @@ -1255,7 +1255,7 @@ F:=FFP(F1,f2) --R --R --R (122) ---R FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField +--I FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(... --R 3,?*?+1),?**3+?+D) --R Type: Domain --E 122 @@ -1280,7 +1280,7 @@ a:=index(size()$F quo 3)$F --R --R 2 --R (124) %D %E ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+?+D) +--IType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(... --E 124 --S 125 of 350 @@ -1289,7 +1289,7 @@ b:=index(size()$F quo 7)$F --R --R 2 --R (125) %E + 2%E + %D + 2 ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+?+D) +--IType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(... --E 125 \end{chunk} @@ -1301,7 +1301,7 @@ a+b --R --R 2 --R (126) (%D + 1)%E + 2%E + %D + 2 ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+?+D) +--IType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(... --E 126 --S 127 of 350 @@ -1310,7 +1310,7 @@ a-b --R --R 2 --R (127) (%D + 2)%E + %E + 2%D + 1 ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+?+D) +--IType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(... --E 127 --S 128 of 350 @@ -1319,7 +1319,7 @@ a*b --R --R 2 --R (128) (%D + 2)%E + (%D + 1)%E + 2 ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+?+D) +--IType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(... --E 128 --S 129 of 350 @@ -1328,7 +1328,7 @@ a/b --R --R 2 --R (129) 2%D %E + 2%D + 2 ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+?+D) +--IType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(... --E 129 --S 130 of 350 @@ -1337,7 +1337,7 @@ a**1234 --R --R 2 --R (130) 2%E + %D %E + 2 ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+?+D) +--IType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(... --E 130 --S 131 of 350 @@ -1346,7 +1346,7 @@ a**(-1) --R --R 2 --R (131) %D %E + %E + %D ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+?+D) +--IType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(... --E 131 --S 132 of 350 @@ -1354,7 +1354,7 @@ g := generator()$F --R --R --R (132) %E ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+?+D) +--IType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(... --E 132 --S 133 of 350 @@ -1362,7 +1362,7 @@ g := generator()$F --R --R --R (133) 0 ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+?+D) +--IType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(... --E 133 \end{chunk} @@ -1381,7 +1381,7 @@ g:=primitiveElement()$F --R --R --R (135) %E + 1 ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+?+D) +--IType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(... --E 135 --S 136 of 350 @@ -1400,7 +1400,7 @@ g**% - a --R --R --R (137) 0 ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+?+D) +--IType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(... --E 137 \end{chunk} @@ -1439,7 +1439,7 @@ normalElement()$F --R --R 2 --R (141) %E + %E ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+?+D) +--IType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(... --E 141 --S 142 of 350 @@ -1448,7 +1448,7 @@ definingPolynomial()$F --R --R 3 --R (142) ? + ? + %D ---RType: SparseUnivariatePolynomial FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1) +--IType: SparseUnivariatePolynomial FiniteFieldExtensionByPolynomial(... --E 142 --S 143 of 350 @@ -1457,7 +1457,7 @@ minimalPolynomial(a) --R --R 3 2 --R (143) ? + 2%D ? + 2? + 2%D ---RType: SparseUnivariatePolynomial FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1) +--IType: SparseUnivariatePolynomial FiniteFieldExtensionByPolynomial(... --E 143 --S 144 of 350 @@ -1466,7 +1466,7 @@ Frobenius(a) --R --R 2 --R (144) %D %E + 2%E + 2%D ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+?+D) +--IType: FiniteFieldExtensionByPolynomial(FiniteFieldExtensionByPolynomial(... --E 144 --S 145 of 350 @@ -1475,7 +1475,7 @@ linearAssociatedOrder(a) --R --R 3 --R (145) ? + 2 ---RType: SparseUnivariatePolynomial FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1) +--IType: SparseUnivariatePolynomial FiniteFieldExtensionByPolynomial(... --E 145 --S 146 of 350 @@ -1484,7 +1484,7 @@ linearAssociatedLog(a) --R --R 2 --R (146) (2%D + 2)? + (2%D + 1)? ---RType: SparseUnivariatePolynomial FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1) +--IType: SparseUnivariatePolynomial FiniteFieldExtensionByPolynomial(... --E 146 --S 147 of 350 @@ -1533,7 +1533,7 @@ f2:=createIrreduciblePoly(d2)$FFPOLY(F1) --R --R 3 --R (150) ? + ? + %F ---RType: SparseUnivariatePolynomial FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2) +--IType: SparseUnivariatePolynomial FiniteFieldNormalBasisExtensionByPolynomial(... --E 150 \end{chunk} @@ -1569,7 +1569,7 @@ a:=index(size()$F quo 3)$F --R --R q 2 --R (153) %F %G ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+?+F) +--IType: FiniteFieldExtensionByPolynomial(... --E 153 --S 154 of 350 @@ -1578,7 +1578,7 @@ b:=index(size()$F quo 7)$F --R --R 2 q --R (154) %F %G + 2%F %G + %F + 2%F ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+?+F) +--IType: FiniteFieldExtensionByPolynomial(... --E 154 \end{chunk} @@ -1590,7 +1590,7 @@ a+b --R --R 2 q --R (155) %G + 2%F %G + %F + 2%F ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+?+F) +--IType: FiniteFieldExtensionByPolynomial(... --E 155 --S 156 of 350 @@ -1599,7 +1599,7 @@ a-b --R --R q 2 q --R (156) (%F + 2%F)%G + %F %G + 2%F + %F ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+?+F) +--IType: FiniteFieldExtensionByPolynomial(... --E 156 --S 157 of 350 @@ -1608,7 +1608,7 @@ a*b --R --R q 2 q --R (157) %F %G + 2%F %G + 2%F ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+?+F) +--IType: FiniteFieldExtensionByPolynomial(... --E 157 --S 158 of 350 @@ -1617,7 +1617,7 @@ a/b --R --R 2 --R (158) %G + %G ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+?+F) +--IType: FiniteFieldExtensionByPolynomial(... --E 158 --S 159 of 350 @@ -1626,7 +1626,7 @@ a**1234 --R --R q 2 q --R (159) %F %G + %F %G + %F + 2%F ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+?+F) +--IType: FiniteFieldExtensionByPolynomial(... --E 159 --S 160 of 350 @@ -1635,7 +1635,7 @@ a**(-1) --R --R q 2 q --R (160) %F %G + %G + %F ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+?+F) +--IType: FiniteFieldExtensionByPolynomial(... --E 160 --S 161 of 350 @@ -1643,7 +1643,7 @@ g := generator()$F --R --R --R (161) %G ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+?+F) +--IType: FiniteFieldExtensionByPolynomial(... --E 161 --S 162 of 350 @@ -1651,7 +1651,7 @@ g := generator()$F --R --R --R (162) 0 ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+?+F) +--IType: FiniteFieldExtensionByPolynomial(... --E 162 \end{chunk} @@ -1670,7 +1670,7 @@ g:=primitiveElement()$F --R --R --R (164) %G ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+?+F) +--IType: FiniteFieldExtensionByPolynomial(... --E 164 --S 165 of 350 @@ -1689,7 +1689,7 @@ g**% - a --R --R --R (166) 0 ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+?+F) +--IType: FiniteFieldExtensionByPolynomial(... --E 166 \end{chunk} @@ -1729,7 +1729,7 @@ normalElement()$F --R --R 2 --R (170) %G ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+?+F) +--IType: FiniteFieldExtensionByPolynomial(... --E 170 --S 171 of 350 @@ -1738,7 +1738,7 @@ definingPolynomial()$F --R --R 3 --R (171) ? + ? + %F ---RType: SparseUnivariatePolynomial FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2) +--IType: SparseUnivariatePolynomial ... --E 171 --S 172 of 350 @@ -1747,7 +1747,7 @@ minimalPolynomial(a) --R --R 3 q 2 q q --R (172) ? + 2%F ? + (2%F + %F)? + 2%F ---RType: SparseUnivariatePolynomial FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2) +--IType: SparseUnivariatePolynomial ... --E 172 --S 173 of 350 @@ -1756,7 +1756,7 @@ Frobenius(a) --R --R q 2 q --R (173) %F %G + 2%F %G + 2%F ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+?+F) +--IType: FiniteFieldExtensionByPolynomial(... --E 173 --S 174 of 350 @@ -1765,7 +1765,7 @@ linearAssociatedOrder(a) --R --R 3 q --R (174) ? + 2%F + 2%F ---RType: SparseUnivariatePolynomial FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2) +--IType: SparseUnivariatePolynomial ... --E 174 --S 175 of 350 @@ -1774,7 +1774,7 @@ linearAssociatedLog(a) --R --R q --R (175) %F ---RType: SparseUnivariatePolynomial FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2) +--IType: SparseUnivariatePolynomial ... --E 175 --S 176 of 350 @@ -1825,7 +1825,7 @@ f2:=createIrreduciblePoly(d2)$FFPOLY(F1) --R --R 3 1 --R (179) ? + ? + %H ---RType: SparseUnivariatePolynomial FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2) +--IType: SparseUnivariatePolynomial ... --E 179 \end{chunk} @@ -1861,7 +1861,7 @@ a:=index(size()$F quo 3)$F --R --R 2 2 --R (182) %H %I ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+?+H**1) +--IType: FiniteFieldExtensionByPolynomial(... --E 182 --S 183 of 350 @@ -1870,7 +1870,7 @@ b:=index(size()$F quo 7)$F --R --R 2 1 4 --R (183) %I + %H %I + %H ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+?+H**1) +--IType: FiniteFieldExtensionByPolynomial(... --E 183 \end{chunk} @@ -1882,7 +1882,7 @@ a+b --R --R 3 2 1 4 --R (184) %H %I + %H %I + %H ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+?+H**1) +--IType: FiniteFieldExtensionByPolynomial(... --E 184 --S 185 of 350 @@ -1891,7 +1891,7 @@ a-b --R --R 5 2 5 --R (185) %H %I + %H %I + 1 ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+?+H**1) +--IType: FiniteFieldExtensionByPolynomial(... --E 185 --S 186 of 350 @@ -1900,7 +1900,7 @@ a*b --R --R 2 2 3 --R (186) %H %I + %H %I + 1 ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+?+H**1) +--IType: FiniteFieldExtensionByPolynomial(... --E 186 --S 187 of 350 @@ -1909,7 +1909,7 @@ a/b --R --R 1 2 6 --R (187) %H %I + %H %I ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+?+H**1) +--IType: FiniteFieldExtensionByPolynomial(... --E 187 --S 188 of 350 @@ -1918,7 +1918,7 @@ a**1234 --R --R 5 2 7 --R (188) %H %I + %H %I + 1 ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+?+H**1) +--IType: FiniteFieldExtensionByPolynomial(... --E 188 --S 189 of 350 @@ -1927,7 +1927,7 @@ a**(-1) --R --R 4 2 1 4 --R (189) %H %I + %H %I + %H ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+?+H**1) +--IType: FiniteFieldExtensionByPolynomial(... --E 189 --S 190 of 350 @@ -1935,7 +1935,7 @@ g := generator()$F --R --R --R (190) %I ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+?+H**1) +--IType: FiniteFieldExtensionByPolynomial(... --E 190 --S 191 of 350 @@ -1943,7 +1943,7 @@ g := generator()$F --R --R --R (191) 0 ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+?+H**1) +--IType: FiniteFieldExtensionByPolynomial(... --E 191 \end{chunk} @@ -1962,7 +1962,7 @@ g:=primitiveElement()$F --R --R --R (193) %I ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+?+H**1) +--IType: FiniteFieldExtensionByPolynomial(... --E 193 --S 194 of 350 @@ -1981,7 +1981,7 @@ g**% - a --R --R --R (195) 0 ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+?+H**1) +--IType: FiniteFieldExtensionByPolynomial(... --E 195 \end{chunk} @@ -2020,7 +2020,7 @@ normalElement()$F --R --R 2 --R (199) %I ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+?+H**1) +--IType: FiniteFieldExtensionByPolynomial(... --E 199 --S 200 of 350 @@ -2029,7 +2029,7 @@ definingPolynomial()$F --R --R 3 1 --R (200) ? + ? + %H ---RType: SparseUnivariatePolynomial FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2) +--IType: SparseUnivariatePolynomial ... --E 200 --S 201 of 350 @@ -2038,7 +2038,7 @@ minimalPolynomial(a) --R --R 3 6 2 4 4 --R (201) ? + %H ? + %H ? + %H ---RType: SparseUnivariatePolynomial FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2) +--IType: SparseUnivariatePolynomial ... --E 201 --S 202 of 350 @@ -2047,7 +2047,7 @@ Frobenius(a) --R --R 2 2 6 --R (202) %H %I + %I + %H ---RType: FiniteFieldExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+?+H**1) +--IType: FiniteFieldExtensionByPolynomial(... --E 202 --S 203 of 350 @@ -2056,7 +2056,7 @@ linearAssociatedOrder(a) --R --R 3 4 --R (203) ? + %H ---RType: SparseUnivariatePolynomial FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2) +--IType: SparseUnivariatePolynomial ... --E 203 --S 204 of 350 @@ -2065,7 +2065,7 @@ linearAssociatedLog(a) --R --R 2 --R (204) %H ---RType: SparseUnivariatePolynomial FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2) +--IType: SparseUnivariatePolynomial ... --E 204 --S 205 of 350 @@ -2115,7 +2115,7 @@ f2:=createNormalPoly(d2)$FFPOLY(F1) --R --R 3 2 --R (208) ? + 2? + 1 ---RType: SparseUnivariatePolynomial FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1) +--IType: SparseUnivariatePolynomial FiniteFieldExtensionByPolynomial(... --E 208 \end{chunk} @@ -2152,7 +2152,7 @@ a:=index(size()$F quo 3)$F --R 2 --R q --R (211) %D %J ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+2*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 211 --S 212 of 350 @@ -2162,7 +2162,7 @@ b:=index(size()$F quo 7)$F --R 2 --R q q --R (212) %J + 2%J + (%D + 2)%J ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+2*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 212 \end{chunk} @@ -2175,7 +2175,7 @@ a+b --R 2 --R q q --R (213) (%D + 1)%J + 2%J + (%D + 2)%J ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+2*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 213 --S 214 of 350 @@ -2185,7 +2185,7 @@ a-b --R 2 --R q q --R (214) (%D + 2)%J + %J + (2%D + 1)%J ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+2*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 214 --S 215 of 350 @@ -2195,7 +2195,7 @@ a*b --R 2 --R q q --R (215) (%D + 2)%J + %D %J + (2%D + 1)%J ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+2*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 215 --S 216 of 350 @@ -2205,7 +2205,7 @@ a/b --R 2 --R q q --R (216) 2%J + %D %J + 2%J ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+2*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 216 --S 217 of 350 @@ -2214,7 +2214,7 @@ a**1234 --R --R q --R (217) %J + 2%J ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+2*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 217 --S 218 of 350 @@ -2223,7 +2223,7 @@ a**(-1) --R --R q --R (218) 2%D %J + %D %J ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+2*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 218 --S 219 of 350 @@ -2231,7 +2231,7 @@ g := generator()$F --R --R --R (219) %J ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+2*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 219 --S 220 of 350 @@ -2239,7 +2239,7 @@ g := generator()$F --R --R --R (220) 0 ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+2*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 220 \end{chunk} @@ -2259,7 +2259,7 @@ g:=primitiveElement()$F --R --R q --R (222) (%D + 1)%J + 2%J ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+2*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 222 --S 223 of 350 @@ -2278,7 +2278,7 @@ g**% - a --R --R --R (224) 0 ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+2*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 224 \end{chunk} @@ -2316,7 +2316,7 @@ normalElement()$F --R --R --R (228) %J ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+2*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 228 --S 229 of 350 @@ -2325,7 +2325,7 @@ definingPolynomial()$F --R --R 3 2 --R (229) ? + 2? + 1 ---RType: SparseUnivariatePolynomial FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1) +--IType: SparseUnivariatePolynomial FiniteFieldExtensionByPolynomial(... --E 229 --S 230 of 350 @@ -2334,7 +2334,7 @@ minimalPolynomial(a) --R --R 3 2 --R (230) ? + 2%D ? + 2%D ---RType: SparseUnivariatePolynomial FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1) +--IType: SparseUnivariatePolynomial FiniteFieldExtensionByPolynomial(... --E 230 --S 231 of 350 @@ -2342,7 +2342,7 @@ Frobenius(a) --R --R --R (231) %D %J ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1),?**3+2*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 231 --S 232 of 350 @@ -2351,7 +2351,7 @@ linearAssociatedOrder(a) --R --R 3 --R (232) ? + 2 ---RType: SparseUnivariatePolynomial FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1) +--IType: SparseUnivariatePolynomial ... --E 232 --S 233 of 350 @@ -2360,7 +2360,7 @@ linearAssociatedLog(a) --R --R 2 --R (233) %D ? ---RType: SparseUnivariatePolynomial FiniteFieldExtensionByPolynomial(PrimeField 3,?*?+1) +--IType: SparseUnivariatePolynomial ... --E 233 --S 234 of 350 @@ -2414,7 +2414,7 @@ f2:=createNormalPoly(d2)$FFPOLY(F1) --R --R 3 q 2 q --R (237) ? + (2%F + 2%F)? + %F + %F ---RType: SparseUnivariatePolynomial FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2) +--IType: SparseUnivariatePolynomial ... --E 237 \end{chunk} @@ -2451,7 +2451,7 @@ a:=index(size()$F quo 3)$F --R 2 --R q q --R (240) %F %K ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+(2*F**q+2*F)*?*?+F**q+F) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 240 --S 241 of 350 @@ -2461,7 +2461,7 @@ b:=index(size()$F quo 7)$F --R 2 --R q q q --R (241) %F %K + 2%F %K + (%F + 2%F)%K ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+(2*F**q+2*F)*?*?+F**q+F) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 241 \end{chunk} @@ -2474,7 +2474,7 @@ a+b --R 2 --R q q q --R (242) %K + 2%F %K + (%F + 2%F)%K ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+(2*F**q+2*F)*?*?+F**q+F) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 242 --S 243 of 350 @@ -2484,7 +2484,7 @@ a-b --R 2 --R q q q q --R (243) (%F + 2%F)%K + %F %K + (2%F + %F)%K ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+(2*F**q+2*F)*?*?+F**q+F) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 243 --S 244 of 350 @@ -2494,7 +2494,7 @@ a*b --R 2 --R q q q q q --R (244) %F %K + (2%F + 2%F)%K + 2%F %K ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+(2*F**q+2*F)*?*?+F**q+F) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 244 --S 245 of 350 @@ -2504,7 +2504,7 @@ a/b --R 2 --R q q q q q --R (245) (2%F + 2%F)%K + (%F + 2%F)%K + (2%F + 2%F)%K ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+(2*F**q+2*F)*?*?+F**q+F) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 245 --S 246 of 350 @@ -2513,7 +2513,7 @@ a**1234 --R --R q q q --R (246) (%F + 2%F)%K + (2%F + %F)%K ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+(2*F**q+2*F)*?*?+F**q+F) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 246 --S 247 of 350 @@ -2522,7 +2522,7 @@ a**(-1) --R --R q --R (247) 2%F %K + %F %K ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+(2*F**q+2*F)*?*?+F**q+F) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 247 --S 248 of 350 @@ -2530,7 +2530,7 @@ g := generator()$F --R --R --R (248) %K ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+(2*F**q+2*F)*?*?+F**q+F) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 248 --S 249 of 350 @@ -2538,7 +2538,7 @@ g := generator()$F --R --R --R (249) 0 ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+(2*F**q+2*F)*?*?+F**q+F) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 249 \end{chunk} @@ -2558,7 +2558,7 @@ g:=primitiveElement()$F --R --R q q --R (251) %F %K + %F %K ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+(2*F**q+2*F)*?*?+F**q+F) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 251 --S 252 of 350 @@ -2577,7 +2577,7 @@ g**% - a --R --R --R (253) 0 ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+(2*F**q+2*F)*?*?+F**q+F) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 253 \end{chunk} @@ -2616,7 +2616,7 @@ normalElement()$F --R --R --R (257) %K ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+(2*F**q+2*F)*?*?+F**q+F) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 257 --S 258 of 350 @@ -2625,7 +2625,7 @@ definingPolynomial()$F --R --R 3 q 2 q --R (258) ? + (2%F + 2%F)? + %F + %F ---RType: SparseUnivariatePolynomial FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2) +--IType: SparseUnivariatePolynomial ... --E 258 --S 259 of 350 @@ -2634,7 +2634,7 @@ minimalPolynomial(a) --R --R 3 q 2 --R (259) ? + 2%F ? + %F ---RType: SparseUnivariatePolynomial FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2) +--IType: SparseUnivariatePolynomial ... --E 259 --S 260 of 350 @@ -2643,7 +2643,7 @@ Frobenius(a) --R --R q --R (260) %F %K ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2),?**3+(2*F**q+2*F)*?*?+F**q+F) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 260 --S 261 of 350 @@ -2652,7 +2652,7 @@ linearAssociatedOrder(a) --R --R 3 q --R (261) ? + 2%F + 2%F ---RType: SparseUnivariatePolynomial FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2) +--IType: SparseUnivariatePolynomial ... --E 261 --S 262 of 350 @@ -2661,7 +2661,7 @@ linearAssociatedLog(a) --R --R q 2 --R (262) %F ? ---RType: SparseUnivariatePolynomial FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?*?+2*?+2) +--IType: SparseUnivariatePolynomial ... --E 262 --S 263 of 350 @@ -2715,7 +2715,7 @@ f2:=createNormalPoly(d2)$FFPOLY(F1) --R --R 3 4 2 --R (266) ? + %H ? + 1 ---RType: SparseUnivariatePolynomial FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2) +--IType: SparseUnivariatePolynomial ... --E 266 \end{chunk} @@ -2752,7 +2752,7 @@ a:=index(size()$F quo 3)$F --R 2 --R 2 q --R (269) %H %L ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+H**4*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 269 --S 270 of 350 @@ -2762,7 +2762,7 @@ b:=index(size()$F quo 7)$F --R 2 --R q 1 q 4 --R (270) %L + %H %L + %H %L ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+H**4*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 270 \end{chunk} @@ -2775,7 +2775,7 @@ a+b --R 2 --R 3 q 1 q 4 --R (271) %H %L + %H %L + %H %L ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+H**4*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 271 --S 272 of 350 @@ -2785,7 +2785,7 @@ a-b --R 2 --R 5 q 5 q --R (272) %H %L + %H %L + %L ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+H**4*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 272 --S 273 of 350 @@ -2795,7 +2795,7 @@ a*b --R 2 --R 7 q q 6 --R (273) %H %L + %L + %H %L ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+H**4*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 273 --S 274 of 350 @@ -2805,7 +2805,7 @@ a/b --R 2 --R 2 q 5 q 6 --R (274) %H %L + %H %L + %H %L ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+H**4*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 274 --S 275 of 350 @@ -2814,7 +2814,7 @@ a**1234 --R --R q 4 --R (275) %L + %H %L ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+H**4*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 275 --S 276 of 350 @@ -2823,7 +2823,7 @@ a**(-1) --R --R 6 q 2 --R (276) %H %L + %H %L ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+H**4*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 276 --S 277 of 350 @@ -2831,7 +2831,7 @@ g := generator()$F --R --R --R (277) %L ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+H**4*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 277 --S 278 of 350 @@ -2839,7 +2839,7 @@ g := generator()$F --R --R --R (278) 0 ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+H**4*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 278 \end{chunk} @@ -2859,7 +2859,7 @@ g:=primitiveElement()$F --R --R 1 q 2 --R (280) %H %L + %H %L ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+H**4*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 280 --S 281 of 350 @@ -2878,7 +2878,7 @@ g**% - a --R --R --R (282) 0 ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+H**4*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 282 \end{chunk} @@ -2916,7 +2916,7 @@ normalElement()$F --R --R --R (286) %L ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+H**4*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 286 --S 287 of 350 @@ -2925,7 +2925,7 @@ definingPolynomial()$F --R --R 3 4 2 --R (287) ? + %H ? + 1 ---RType: SparseUnivariatePolynomial FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2) +--IType: SparseUnivariatePolynomial ... --E 287 --S 288 of 350 @@ -2934,7 +2934,7 @@ minimalPolynomial(a) --R --R 3 6 2 6 --R (288) ? + %H ? + %H ---RType: SparseUnivariatePolynomial FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2) +--IType: SparseUnivariatePolynomial ... --E 288 --S 289 of 350 @@ -2943,7 +2943,7 @@ Frobenius(a) --R --R 2 --R (289) %H %L ---RType: FiniteFieldNormalBasisExtensionByPolynomial(FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2),?**3+H**4*?*?+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 289 --S 290 of 350 @@ -2952,7 +2952,7 @@ linearAssociatedOrder(a) --R --R 3 4 --R (290) ? + %H ---RType: SparseUnivariatePolynomial FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2) +--IType: SparseUnivariatePolynomial ... --E 290 of 350 --S 291 of 350 @@ -2961,7 +2961,7 @@ linearAssociatedLog(a) --R --R 2 2 --R (291) %H ? ---RType: SparseUnivariatePolynomial FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?*?+?+2) +--IType: SparseUnivariatePolynomial ... --E 291 --S 292 of 350 @@ -3071,7 +3071,7 @@ an:=coerce(a)$FFHOM(F,P3,N) --R 4 3 --R q q q --R (301) %N + %N + %N + 2%N ---RType: FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?**6+2*?**5+?**3+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 301 --S 302 of 350 @@ -3081,7 +3081,7 @@ bn:=coerce(b)$FFHOM(F,P3,N) --R 3 2 --R q q q --R (302) %N + %N + 2%N + 2%N ---RType: FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?**6+2*?**5+?**3+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 302 --S 303 of 350 @@ -3091,7 +3091,7 @@ cn := an*bn --R 5 4 3 --R q q q q --R (303) 2%N + 2%N + %N + %N ---RType: FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?**6+2*?**5+?**3+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 303 --S 304 of 350 @@ -3160,7 +3160,7 @@ an:=coerce(a)$FFHOM(F,P3,N) --R 5 4 3 2 --R q q q q q --R (310) 2%N + %N + 2%N + %N + %N ---RType: FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?**6+2*?**5+?**3+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 310 --S 311 of 350 @@ -3170,7 +3170,7 @@ bn:=coerce(b)$FFHOM(F,P3,N) --R 3 2 --R q q --R (311) 2%N + %N ---RType: FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?**6+2*?**5+?**3+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 311 --S 312 of 350 @@ -3180,7 +3180,7 @@ cn := an*bn --R 5 4 3 2 --R q q q q q --R (312) 2%N + %N + %N + %N + %N + 2%N ---RType: FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?**6+2*?**5+?**3+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 312 --S 313 of 350 @@ -3249,7 +3249,7 @@ an:=coerce(a)$FFHOM(C,P3,N) --R 4 3 --R q q q --R (319) 2%N + 2%N + 2%N + 2%N ---RType: FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?**6+2*?**5+?**3+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 319 --S 320 of 350 @@ -3259,7 +3259,7 @@ bn:=coerce(b)$FFHOM(C,P3,N) --R 5 2 --R q q --R (320) 2%N + 2%N ---RType: FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?**6+2*?**5+?**3+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 320 --S 321 of 350 @@ -3269,7 +3269,7 @@ cn := an+bn --R 5 4 3 2 --R q q q q q --R (321) 2%N + 2%N + 2%N + 2%N + 2%N + 2%N ---RType: FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?**6+2*?**5+?**3+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 321 --S 322 of 350 @@ -3346,7 +3346,7 @@ ac:=coerce(ap)$FFHOM(Fc,P3,FP) --R --R 4 --R (329) %R ---RType: FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?**5+2*?**4+1) +--IType: FiniteFieldCyclicGroupExtensionByPolynomial(... --E 329 --S 330 of 350 @@ -3356,7 +3356,7 @@ an:=coerce(ap)$FFHOM(FN,P3,FP) --R 3 2 --R q q q --R (330) 2%S + 2%S + 2%S + %S ---RType: FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?**5+2*?**4+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 330 --S 331 of 350 @@ -3374,7 +3374,7 @@ bc:=coerce(bp)$FFHOM(Fc,P3,FP) --R --R 133 --R (332) %R ---RType: FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?**5+2*?**4+1) +--IType: FiniteFieldCyclicGroupExtensionByPolynomial(... --E 332 --S 333 of 350 @@ -3384,7 +3384,7 @@ bn:=coerce(bp)$FFHOM(FN,P3,FP) --R 4 3 2 --R q q q q --R (333) %S + %S + %S + 2%S ---RType: FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?**5+2*?**4+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 333 \end{chunk} @@ -3396,7 +3396,7 @@ ac+bc --R --R 187 --R (334) %R ---RType: FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?**5+2*?**4+1) +--IType: FiniteFieldCyclicGroupExtensionByPolynomial(... --E 334 --S 335 of 350 @@ -3406,7 +3406,7 @@ an*bn --R 4 2 --R q q q --R (335) %S + %S + %S + 2%S ---RType: FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?**5+2*?**4+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 335 \end{chunk} @@ -3429,7 +3429,7 @@ an+bn --R 4 --R q q --R (337) %S + %S + %S ---RType: FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?**5+2*?**4+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 337 --S 338 of 350 @@ -3438,7 +3438,7 @@ ac+bc --R --R 187 --R (338) %R ---RType: FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?**5+2*?**4+1) +--IType: FiniteFieldCyclicGroupExtensionByPolynomial(... --E 338 \end{chunk} @@ -3460,7 +3460,7 @@ an*bn --R 4 2 --R q q q --R (340) %S + %S + %S + 2%S ---RType: FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?**5+2*?**4+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 340 --S 341 of 350 @@ -3469,7 +3469,7 @@ ac*bc --R --R 137 --R (341) %R ---RType: FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?**5+2*?**4+1) +--IType: FiniteFieldCyclicGroupExtensionByPolynomial(... --E 341 \end{chunk} @@ -3518,7 +3518,7 @@ an**1234567 --R 4 2 --R q q q --R (346) 2%S + 2%S + 2%S + %S ---RType: FiniteFieldNormalBasisExtensionByPolynomial(PrimeField 3,?**5+2*?**4+1) +--IType: FiniteFieldNormalBasisExtensionByPolynomial(... --E 346 --S 347 of 350 @@ -3527,7 +3527,7 @@ ac**1234567 --R --R 16 --R (347) %R ---RType: FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?**5+2*?**4+1) +--IType: FiniteFieldCyclicGroupExtensionByPolynomial(... --E 347 \end{chunk} @@ -3539,7 +3539,7 @@ ap+bc --R --R 187 --R (348) %R ---RType: FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?**5+2*?**4+1) +--IType: FiniteFieldCyclicGroupExtensionByPolynomial(... --E 348 --S 349 of 350 @@ -3548,7 +3548,7 @@ an+bc --R --R 187 --R (349) %R ---RType: FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField 3,?**5+2*?**4+1) +--IType: FiniteFieldCyclicGroupExtensionByPolynomial(... --E 349 --S 350 of 350 diff --git a/src/input/fixed.input.pamphlet b/src/input/fixed.input.pamphlet index b500144..13557dd 100644 --- a/src/input/fixed.input.pamphlet +++ b/src/input/fixed.input.pamphlet @@ -736,7 +736,7 @@ solve(deqx,y,x) --R x\|3 2 2 x\|3 --R (3) [particular= 0,basis= [cos(-----)%e ,%e sin(-----)]] --R 2 2 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E --S 53 of 267 @@ -767,7 +767,7 @@ solve(deqt,y,t) --R t\|3 2 2 t\|3 --R (6) [particular= 0,basis= [cos(-----)%e ,%e sin(-----)]] --R 2 2 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,basis: ... --E --S 56 of 267 @@ -798,7 +798,7 @@ solve(deqz,y,z) --R z\|3 2 2 z\|3 --R (9) [particular= 0,basis= [cos(-----)%e ,%e sin(-----)]] --R 2 2 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E --S 59 of 267 @@ -989,11 +989,11 @@ a | a**2+1 --R Your statement has resulted in the following assignments and --R declaration: --R ---R SAEa := SimpleAlgebraicExtension(Fraction Integer,UnivariatePolynomial(a,Fraction Integer),a*a+1) +--I SAEa := SimpleAlgebraicExtension(Fraction Integer,... --R a : SAEa := a --R --R (1) a ---RType: SimpleAlgebraicExtension(Fraction Integer,UnivariatePolynomial(a,Fraction Integer),a*a+1) +--IType: SimpleAlgebraicExtension(Fraction Integer,... --E --S 77 of 267 @@ -1001,14 +1001,14 @@ t1:=(x+a)*(x+a+1) --R --R 2 --R (2) x + (2a + 1)x + a - 1 ---RType: Polynomial SimpleAlgebraicExtension(Fraction Integer,UnivariatePolynomial(a,Fraction Integer),a*a+1) +--IType: Polynomial SimpleAlgebraicExtension(Fraction Integer,... --E --S 78 of 267 factor t1 --R --R (3) (x + a + 1)(x + a) ---RType: Factored Polynomial SimpleAlgebraicExtension(Fraction Integer,UnivariatePolynomial(a,Fraction Integer),a*a+1) +--IType: Factored Polynomial SimpleAlgebraicExtension(Fraction Integer,... --E \end{chunk} @@ -1140,7 +1140,7 @@ limit(atan(1/sin(x)),x=0) --R %pi %pi --R (1) [leftHandLimit= - ---,rightHandLimit= ---] --R 2 2 ---RType: Union(Record(leftHandLimit: Union(OrderedCompletion Expression Integer,"failed"),rightHandLimit: Union(OrderedCompletion Expression Integer,"failed")),...) +--IType: Union(Record(leftHandLimit: Union(OrderedCompletion ... --E \end{chunk} @@ -1156,7 +1156,7 @@ limit(atan(-sin(x)/(cos(x)+e)),x=acos(-e)) --R %pi %pi --R (1) [leftHandLimit= - ---,rightHandLimit= ---] --R 2 2 ---RType: Union(Record(leftHandLimit: Union(OrderedCompletion Expression Integer,"failed"),rightHandLimit: Union(OrderedCompletion Expression Integer,"failed")),...) +--IType: Union(Record(leftHandLimit: Union(OrderedCompletion ... --E --S 88 of 267 @@ -1165,7 +1165,7 @@ limit(atan(1/(cos(x)+e)),x=acos(-e)) --R %pi %pi --R (2) [leftHandLimit= ---,rightHandLimit= - ---] --R 2 2 ---RType: Union(Record(leftHandLimit: Union(OrderedCompletion Expression Integer,"failed"),rightHandLimit: Union(OrderedCompletion Expression Integer,"failed")),...) +--IType: Union(Record(leftHandLimit: Union(OrderedCompletion ... --E \end{chunk} @@ -2408,7 +2408,7 @@ normalForm(x1**2+x2**2+x3**2,gb) \end{chunk} bmt/11/17/92 Ifintegrate -It seems that one cannot simply parametrize reducible curves. +One cannot simply parametrize reducible curves, it seems. Any attempt at parametrization can only follow one branch. For curves of the form $y^2=a^2x^2+bx+c$, these are only reducible if $a^2x^2+bx+c$ is a perfect square. Basically I think we need to @@ -2546,7 +2546,7 @@ solve(eq,I,x) --R ------------- --R mu --R mu %e ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E \end{chunk} @@ -2659,7 +2659,7 @@ q : UP('x,sae) := x**5 - 1 --R --R 5 --R (4) x - 1 ---RType: UnivariatePolynomial(x,SimpleAlgebraicExtension(Fraction Integer,UnivariatePolynomial(w,Fraction Integer),w**4+w**3+w*w+w+1)) +--IType: UnivariatePolynomial(x,SimpleAlgebraicExtension(... --E \end{chunk} @@ -2670,7 +2670,7 @@ factor q --R --R 2 3 3 2 --R (5) (x - 1)(x - w)(x - w )(x - w )(x + w + w + w + 1) ---RType: Factored UnivariatePolynomial(x,SimpleAlgebraicExtension(Fraction Integer,UnivariatePolynomial(w,Fraction Integer),w**4+w**3+w*w+w+1)) +--IType: Factored UnivariatePolynomial(x,SimpleAlgebraicExtension(... --E --S 140 of 267 @@ -2689,7 +2689,7 @@ factor(q)$saefact --R --R 2 3 3 2 --R (7) (x - 1)(x - w)(x - w )(x - w )(x + w + w + w + 1) ---RType: Factored UnivariatePolynomial(x,SimpleAlgebraicExtension(Fraction Integer,UnivariatePolynomial(w,Fraction Integer),w**4+w**3+w*w+w+1)) +--IType: Factored UnivariatePolynomial(x,SimpleAlgebraicExtension(... --E \end{chunk} @@ -2818,7 +2818,8 @@ was a bug in the compiler and has been fixed for Axiom release 2.0. )lisp (format ofile " rightProductBy : Integer -> Mapping(Integer, Integer)~%") )lisp (format ofile " == add~%") )lisp (format ofile " leftProductBy(n) == n * #1~%") -)lisp (format ofile " rightProductBy(n : Integer) : Mapping(Integer, Integer) == #1 * n~%") +)lisp (format ofile " rightProductBy(n:Integer):Mapping(Integer,Integer) ==") +)lisp (format ofile " #1 * n~%") )lisp (close ofile) )compile /tmp/tpd.spad )sys rm -f /tmp/tpd.spad @@ -2835,8 +2836,8 @@ I have now fixed iroot from AF(R,) to call the sqrt from R only if either R is algebraically closed, or the root is odd, or the argument is positive. Here's the new behaviour: -As a side-effect, this fixes the problem with numeric -(which was instantiating \verb|sqrt(-1)\$EXPR(FLOAT))|. +As a side-effect, this fixes the problem with numeric\hfill\\ +(which was instantiating \verb|sqrt(-1)\$EXPR(FLOAT))|.\hfill \begin{chunk}{*} )clear all @@ -3388,7 +3389,7 @@ nthRoot(-2::EXPR FLOAT, 4) --E \end{chunk} -As a side-effect, this fixes the problem with numeric +As a side-effect, this fixes the problem with numeric\hfill\\ (which was instantiating sqrt(-1)\$EXPR(FLOAT)). bronstei@inf.ethz.ch/9/22/93 (manuel bronstein) @@ -4891,7 +4892,7 @@ ll:=radicalEigenvectors m --R ] --R ] --R ] ---RType: List Record(radval: Expression Integer,radmult: Integer,radvect: List Matrix Expression Integer) +--IType: List Record(radval: Expression Integer,radmult: Integer,... --E \end{chunk} @@ -5156,7 +5157,7 @@ ll 1 --R [1]] --R ] --R ] ---RType: Record(radval: Expression Integer,radmult: Integer,radvect: List Matrix Expression Integer) +--IType: Record(radval: Expression Integer,radmult: Integer,... --E --S 239 of 267 @@ -5436,7 +5437,7 @@ ll 2 --R [1]] --R ] --R ] ---RType: Record(radval: Expression Integer,radmult: Integer,radvect: List Matrix Expression Integer) +--IType: Record(radval: Expression Integer,radmult: Integer,... --E --S 240 of 267 @@ -5716,7 +5717,7 @@ ll 3 --R [1]] --R ] --R ] ---RType: Record(radval: Expression Integer,radmult: Integer,radvect: List Matrix Expression Integer) +--IType: Record(radval: Expression Integer,radmult: Integer,... --E \end{chunk} @@ -6022,7 +6023,7 @@ E := SimpleAlgebraicExtension(K, PolK, X**n + X**(n-3) -1) y : E := X::E --R --R (6) X ---RType: SimpleAlgebraicExtension(Fraction Integer,UnivariatePolynomial(X,Fraction Integer),X**15+X**12-1) +--IType: SimpleAlgebraicExtension(Fraction Integer,UnivariatePolynomial(... --E --S 260 of 267 diff --git a/src/input/float1.input.pamphlet b/src/input/float1.input.pamphlet index cbf054d..97087ca 100644 --- a/src/input/float1.input.pamphlet +++ b/src/input/float1.input.pamphlet @@ -327,7 +327,8 @@ d :: Float --E 31 --S 32 of 37 -b: Matrix DoubleFloat := matrix [[1/(i+j+1$DoubleFloat) for j in 0..9] for i in 0..9]; +b: Matrix DoubleFloat := matrix [[1/(i+j+1$DoubleFloat) _ + for j in 0..9] for i in 0..9]; --R --R --R Type: Matrix DoubleFloat diff --git a/src/input/folium.input.pamphlet b/src/input/folium.input.pamphlet index f67f53d..3f50141 100644 --- a/src/input/folium.input.pamphlet +++ b/src/input/folium.input.pamphlet @@ -11,7 +11,8 @@ \tableofcontents \eject \begin{chunk}{*} -draw(curve((t**2-1)/(3*t**2+1),t*(t**2-1)/(3*t**2+1)),t = -3..3, [title "Folium of Descartes"]) +draw(curve((t**2-1)/(3*t**2+1),t*(t**2-1)/(3*t**2+1)),_ + t = -3..3, [title "Folium of Descartes"]) \end{chunk} \eject \begin{thebibliography}{99} diff --git a/src/input/fparfrac.input.pamphlet b/src/input/fparfrac.input.pamphlet index bd3b797..77119c2 100644 --- a/src/input/fparfrac.input.pamphlet +++ b/src/input/fparfrac.input.pamphlet @@ -75,7 +75,7 @@ g := fullPartialFraction f --R x - 2 x + 1 --+ 2 --R 2 (x - %A) --R %A - 1= 0 ---RType: FullPartialFractionExpansion(Fraction Integer,UnivariatePolynomial(x,Fraction Integer)) +--IType: FullPartialFractionExpansion(Fraction Integer,... --E 5 \end{chunk} @@ -104,7 +104,7 @@ g5 := D(g, 5) --R 6 6 --+ 7 --R (x - 2) (x + 1) 2 (x - %A) --R %A - 1= 0 ---RType: FullPartialFractionExpansion(Fraction Integer,UnivariatePolynomial(x,Fraction Integer)) +--IType: FullPartialFractionExpansion(Fraction Integer,... --E 7 --S 8 of 18 @@ -175,7 +175,7 @@ g := fullPartialFraction f --R --+ 2 --R 2 (x - %A) --R %A + %A + 1= 0 ---RType: FullPartialFractionExpansion(Fraction Integer,UnivariatePolynomial(x,Fraction Integer)) +--IType: FullPartialFractionExpansion(Fraction Integer,... --E 11 --S 12 of 18 @@ -209,7 +209,7 @@ g := fullPartialFraction f --R --+ x - %A --+ 3 --+ x - %A --R 2 2 (x - %A) 2 --R %A - 2= 0 %A - 2= 0 %A + 1= 0 ---RType: FullPartialFractionExpansion(Fraction Integer,UnivariatePolynomial(x,Fraction Integer)) +--IType: FullPartialFractionExpansion(Fraction Integer,... --E 14 --S 15 of 18 @@ -296,7 +296,7 @@ g := fullPartialFraction f --R ------------------------------------------------------------------- --R 3 --R (x - %A) ---RType: FullPartialFractionExpansion(Fraction Integer,UnivariatePolynomial(x,Fraction Integer)) +--IType: FullPartialFractionExpansion(Fraction Integer,... --E 17 \end{chunk} diff --git a/src/input/fparfrc.input.pamphlet b/src/input/fparfrc.input.pamphlet index b582553..bdae515 100644 --- a/src/input/fparfrc.input.pamphlet +++ b/src/input/fparfrc.input.pamphlet @@ -49,7 +49,7 @@ g := fullPartialFraction f --R x - 2 x + 1 --+ 2 --R 2 (x - %A) --R %A - 1= 0 ---RType: FullPartialFractionExpansion(Fraction Integer,UnivariatePolynomial(x,Fraction Integer)) +--IType: FullPartialFractionExpansion(Fraction Integer,... --E 3 --S 4 of 16 @@ -72,7 +72,7 @@ g5 := D(g, 5) --R 6 6 --+ 7 --R (x - 2) (x + 1) 2 (x - %A) --R %A - 1= 0 ---RType: FullPartialFractionExpansion(Fraction Integer,UnivariatePolynomial(x,Fraction Integer)) +--IType: FullPartialFractionExpansion(Fraction Integer,... --E 5 --S 6 of 16 @@ -137,7 +137,7 @@ g := fullPartialFraction f --R --+ 2 --R 2 (x - %A) --R %A + %A + 1= 0 ---RType: FullPartialFractionExpansion(Fraction Integer,UnivariatePolynomial(x,Fraction Integer)) +--IType: FullPartialFractionExpansion(Fraction Integer,... --E 9 --S 10 of 16 @@ -171,7 +171,7 @@ g := fullPartialFraction f --R --+ x - %A --+ 3 --+ x - %A --R 2 2 (x - %A) 2 --R %A - 2= 0 %A - 2= 0 %A + 1= 0 ---RType: FullPartialFractionExpansion(Fraction Integer,UnivariatePolynomial(x,Fraction Integer)) +--IType: FullPartialFractionExpansion(Fraction Integer,... --E 12 --S 13 of 16 @@ -183,7 +183,10 @@ g :: Fx - f --E 13 --S 14 of 16 -f:Fx := x**3 / (x**21 + 2*x**20 + 4*x**19 + 7*x**18 + 10*x**17 + 17*x**16 + 22*x**15 + 30*x**14 + 36*x**13 + 40*x**12 + 47*x**11 + 46*x**10 + 49*x**9 + 43*x**8 + 38*x**7 + 32*x**6 + 23*x**5 + 19*x**4 + 10*x**3 + 7*x**2 + 2*x + 1) +f:Fx := x**3 / (x**21 + 2*x**20 + 4*x**19 + 7*x**18 + 10*x**17 + 17*x**16 + _ + 22*x**15 + 30*x**14 + 36*x**13 + 40*x**12 + 47*x**11 + 46*x**10 + _ + 49*x**9 + 43*x**8 + 38*x**7 + 32*x**6 + 23*x**5 + 19*x**4 + 10*x**3 + _ + 7*x**2 + 2*x + 1) --R --R --R (14) @@ -256,7 +259,7 @@ g := fullPartialFraction f --R ------------------------------------------------------------------- --R 3 --R (x - %A) ---RType: FullPartialFractionExpansion(Fraction Integer,UnivariatePolynomial(x,Fraction Integer)) +--IType: FullPartialFractionExpansion(Fraction Integer,... --E 15 --S 16 of 16 diff --git a/src/input/fr.input.pamphlet b/src/input/fr.input.pamphlet index 6b4e36b..7e8ad87 100644 --- a/src/input/fr.input.pamphlet +++ b/src/input/fr.input.pamphlet @@ -112,7 +112,7 @@ factorList z --R [flg= "prime",fctr= 31,xpnt= 1], [flg= "prime",fctr= 37,xpnt= 1], --R [flg= "prime",fctr= 41,xpnt= 1], [flg= "prime",fctr= 43,xpnt= 1], --R [flg= "prime",fctr= 47,xpnt= 1]] ---RType: List Record(flg: Union("nil","sqfr","irred","prime"),fctr: Integer,xpnt: Integer) +--IType: List Record(flg: Union("nil","sqfr","irred","prime"),fctr: ... --E 9 \end{chunk} @@ -319,7 +319,7 @@ l := factorList u --R [[flg= "prime",fctr= y - x,xpnt= 1], [flg= "prime",fctr= y + x,xpnt= 1], --R 2 2 --R [flg= "prime",fctr= y + x ,xpnt= 1]] ---RType: List Record(flg: Union("nil","sqfr","irred","prime"),fctr: Polynomial Integer,xpnt: Integer) +--IType: List Record(flg: Union("nil","sqfr","irred","prime"),fctr: ... --E 28 --S 29 of 55 @@ -330,7 +330,7 @@ factorList v --R [[flg= "prime",fctr= y - x,xpnt= 2], [flg= "prime",fctr= y + x,xpnt= 2], --R 2 2 --R [flg= "prime",fctr= y + x ,xpnt= 1]] ---RType: List Record(flg: Union("nil","sqfr","irred","prime"),fctr: Polynomial Integer,xpnt: Integer) +--IType: List Record(flg: Union("nil","sqfr","irred","prime"),fctr: ... --E 29 --S 30 of 55 @@ -339,7 +339,7 @@ factorList w --R --R (8) --R [[flg= "prime",fctr= y - x,xpnt= 2],[flg= "prime",fctr= y + x + 1,xpnt= 2]] ---RType: List Record(flg: Union("nil","sqfr","irred","prime"),fctr: Polynomial Integer,xpnt: Integer) +--IType: List Record(flg: Union("nil","sqfr","irred","prime"),fctr: ... --E 30 --S 31 of 55 diff --git a/src/input/fr1.input.pamphlet b/src/input/fr1.input.pamphlet index 36b40e9..17d41bd 100644 --- a/src/input/fr1.input.pamphlet +++ b/src/input/fr1.input.pamphlet @@ -77,7 +77,7 @@ factorList(g) --R (7) --R [[flg= "prime",fctr= 2,xpnt= 3], [flg= "prime",fctr= 7,xpnt= 2], --R [flg= "prime",fctr= 11,xpnt= 1]] ---RType: List Record(flg: Union("nil","sqfr","irred","prime"),fctr: Integer,xpnt: Integer) +--IType: List Record(flg: Union("nil","sqfr","irred","prime"),... --E 7 --S 8 of 38 diff --git a/src/input/gamma.input.pamphlet b/src/input/gamma.input.pamphlet index 9d075c3..6ea72c4 100644 --- a/src/input/gamma.input.pamphlet +++ b/src/input/gamma.input.pamphlet @@ -2526,7 +2526,7 @@ log(Gamma(1. + 10.0 * %i))-(- 13.637732188247 + 13.802912974230 * %i)]] \end{chunk} \section{log(Gamma) 1+0.0i to 1+10.0i by 0+0.1i} -As you can see from the above, Axiom's value diverges from the published +As you can see from the above, Axiom's value differs from the published values in Abramowitz at 1+4.6i and above. Mathematica shows the same divergence at the same place. @@ -3409,7 +3409,7 @@ H(1. + 10.0 * %i)-(- 13.637732188247 + 13.802912974230 * %i)]] --R Type: List List Complex Float --E 10 \end{chunk} -Another useful definition of the logGamma function that is +Another definition of the logGamma function that is continuous across the cut [1+4.5i,1+4.6i] is: \begin{chunk}{*} --S 11 of 12 diff --git a/src/input/gbf.input.pamphlet b/src/input/gbf.input.pamphlet index 3c7964e..55fd502 100644 --- a/src/input/gbf.input.pamphlet +++ b/src/input/gbf.input.pamphlet @@ -22,7 +22,9 @@ )clear all --S 1 of 3 -mfzn : SQMATRIX(6,DMP([x,y,z],Fraction INT)) := [[0,1,1,1,1,1], [1,0,1,8/3,x,8/3], [1,1,0,1,8/3,y], [1,8/3,1,0,1,8/3], [1,x,8/3,1,0,1], [1,8/3,y,8/3,1,0]] +mfzn : SQMATRIX(6,DMP([x,y,z],Fraction INT)) := _ + [[0,1,1,1,1,1], [1,0,1,8/3,x,8/3], [1,1,0,1,8/3,y], _ + [1,8/3,1,0,1,8/3], [1,x,8/3,1,0,1], [1,8/3,y,8/3,1,0]] --R --R --R +0 1 1 1 1 1+ diff --git a/src/input/gonshor.input.pamphlet b/src/input/gonshor.input.pamphlet index 604ae48..d8e9675 100644 --- a/src/input/gonshor.input.pamphlet +++ b/src/input/gonshor.input.pamphlet @@ -138,28 +138,28 @@ The canonical basis: e0 : GonshorGenetic := [1, 0, 0, 0] :: Vector R ; --R --R ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 11 --S 12 of 98 e1 : GonshorGenetic := [0, 1, 0, 0] :: Vector R ; --R --R ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 12 --S 13 of 98 e2 : GonshorGenetic := [0, 0, 1, 0] :: Vector R ; --R --R ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 13 --S 14 of 98 e3 : GonshorGenetic := [0, 0, 0, 1] :: Vector R ; --R --R ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 14 \end{chunk} @@ -171,7 +171,7 @@ x : GonshorGenetic := x0*e0 + x1*e1 + x2*e2 + x3*e3 --R --R (15) x3 e + x2 e + x1 e + x0 e --R 3 2 1 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 15 \end{chunk} @@ -237,7 +237,7 @@ a := x --R --R (20) x3 e + x2 e + x1 e + x0 e --R 3 2 1 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 20 --S 21 of 98 @@ -247,7 +247,7 @@ b := (1/4)*e1 + (1/5)*e2 + (3/20)*e3 + (2/5)*e0 --R 3 1 1 2 --R (21) -- e + - e + - e + - e --R 20 3 5 2 4 1 5 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 21 --S 22 of 98 @@ -257,7 +257,7 @@ c := (1/3)*e1 + (1/7)*e2 + (8/21)*e3 + (1/7)*e0 --R 8 1 1 1 --R (22) -- e + - e + - e + - e --R 21 3 7 2 3 1 7 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 22 --S 23 of 98 @@ -283,7 +283,7 @@ b*c --R 2 1 47 2 --R (25) - e + - e - --- e + -- e --R 7 3 4 2 420 1 35 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 25 --S 26 of 98 @@ -293,7 +293,7 @@ b*c --R 893 277 4 4 --R (26) ---- e - ---- e + -- e + --- e --R 8400 3 1400 2 75 1 175 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 26 --S 27 of 98 @@ -303,7 +303,7 @@ b*(c*b) --R 893 277 4 4 --R (27) ---- e - ---- e + -- e + --- e --R 8400 3 1400 2 75 1 175 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 27 \end{chunk} @@ -330,7 +330,7 @@ r*a --R --R (29) r x3 e + r x2 e + r x1 e + r x0 e --R 3 2 1 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 29 --S 30 of 98 @@ -339,7 +339,7 @@ a*r --R --R (30) r x3 e + r x2 e + r x1 e + r x0 e --R 3 2 1 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 30 --S 31 of 98 @@ -349,7 +349,7 @@ a*b --R 8x3 + 5x1 + 7x0 - 8x2 + 18x1 + x0 - 8x1 + 3x0 2x0 --R (31) --------------- e + ----------------- e + ----------- e + --- e --R 20 3 20 2 20 1 5 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 31 --S 32 of 98 @@ -359,7 +359,7 @@ b*c --R 2 1 47 2 --R (32) - e + - e - --- e + -- e --R 7 3 4 2 420 1 35 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 32 --S 33 of 98 @@ -369,7 +369,7 @@ b*c --R 32 12 12 --R (33) -- e + -- e + 4e + -- e --R 7 3 7 2 1 7 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 32 --S 34 of 98 @@ -378,7 +378,7 @@ b*c --R --R (34) - 3x3 e - 3x2 e - 3x1 e - 3x0 e --R 3 2 1 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 34 --S 35 of 98 @@ -398,7 +398,7 @@ d := a ** 12 --R 11 10 2 11 11 12 12 --R (4x0 x2 - 92x0 x1 + 28x0 x1)e + (4x0 x1 - x0 )e + x0 e --R 2 1 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 35 --S 36 of 98 @@ -418,7 +418,7 @@ d := a ** 12 --R 11 10 2 11 11 12 12 --R (- 4x0 x2 + 92x0 x1 - 28x0 x1)e + (- 4x0 x1 + x0 )e - x0 e --R 2 1 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 36 --S 37 of 98 @@ -428,7 +428,7 @@ a + b --R 20x3 + 3 5x2 + 1 4x1 + 1 5x0 + 2 --R (37) -------- e + ------- e + ------- e + ------- e --R 20 3 5 2 4 1 5 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 37 --S 38 of 98 @@ -456,7 +456,7 @@ d-c --R 7x0 - 1 --R --------- e --R 7 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 38 --S 39 of 98 @@ -488,7 +488,7 @@ zero := 0$A --R --R --R (42) 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 42 --S 43 of 98 @@ -496,7 +496,7 @@ zero : A := 0 --R --R --R (43) 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 43 --S 44 of 98 @@ -540,7 +540,7 @@ commutator(a,b) --R --R --R (48) 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 48 --S 49 of 98 @@ -550,7 +550,7 @@ antiCommutator(a,b) --R 8x3 + 5x1 + 7x0 - 8x2 + 18x1 + x0 - 8x1 + 3x0 4x0 --R (49) --------------- e + ----------------- e + ----------- e + --- e --R 10 3 10 2 10 1 5 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 49 --S 50 of 98 @@ -560,7 +560,7 @@ associator(a,b,c) --R - 21x2 + 6x1 + 7x0 12x2 - 30x1 + 58x0 12x1 - 28x0 --R (50) ------------------ e + ------------------ e + ----------- e --R 42 3 105 2 105 1 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,... --E 50 --S 51 of 98 @@ -569,7 +569,7 @@ basis()$A --R --R (51) [e ,e ,e ,e ] --R 0 1 2 3 ---RType: Vector AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: Vector AlgebraGivenByStructuralConstants(... --E 51 --S 52 of 98 @@ -594,7 +594,7 @@ g : A := represents v --R --R (54) 4e + 3e + 2e + e --R 3 2 1 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,... --E 54 --S 55 of 98 @@ -658,7 +658,7 @@ sB := someBasis()$A --R --R (61) [e ,e ,e ,e ] --R 0 1 2 3 ---RType: Vector AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: Vector AlgebraGivenByStructuralConstants(... --E 61 --S 62 of 98 @@ -726,7 +726,7 @@ b2 := [reduce(+,[sB.i for i in 1..k]) for k in 1..n] --R --R (68) [e ,e + e ,e + e + e ,e + e + e + e ] --R 0 1 0 2 1 0 3 2 1 0 ---RType: List AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: List AlgebraGivenByStructuralConstants(... --E 68 --S 69 of 98 @@ -770,7 +770,7 @@ leftPower (a,10) --R 9 8 2 9 10 9 10 10 --R (- 2x0 x2 + 26x0 x1 + 6x0 x1 - 4x0 )e + (- 2x0 x1 + x0 )e + x0 e --R 2 1 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(... --E 72 --S 73 of 98 @@ -785,7 +785,7 @@ rightPower(a,10) --R 9 8 2 9 10 9 10 10 --R (- 2x0 x2 + 26x0 x1 + 6x0 x1 - 4x0 )e + (- 2x0 x1 + x0 )e + x0 e --R 2 1 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(... --E 73 --S 74 of 98 @@ -831,7 +831,7 @@ represents (v,bb) --R --R (77) 4e + 7e + 9e + 10e --R 3 2 1 0 ---RType: AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: AlgebraGivenByStructuralConstants(... --E 77 --S 78 of 98 @@ -963,7 +963,7 @@ basisOfCenter()$AP --R --R (90) [e ] --R 3 ---RType: List AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: List AlgebraGivenByStructuralConstants(... --E 90 --S 91 of 98 @@ -972,7 +972,7 @@ basisOfLeftNucleus()$AP --R --R (91) [e ] --R 3 ---RType: List AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: List AlgebraGivenByStructuralConstants(... --E 91 --S 92 of 98 @@ -981,7 +981,7 @@ basisOfNucleus()$AP --R --R (92) [e ] --R 3 ---RType: List AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: List AlgebraGivenByStructuralConstants(... --E 92 --S 93 of 98 @@ -990,7 +990,7 @@ basisOfRightNucleus()$AP --R --R (93) [e ] --R 3 ---RType: List AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: List AlgebraGivenByStructuralConstants(... --E 93 --S 94 of 98 @@ -1013,7 +1013,7 @@ basisOfCommutingElements()$AP --R --R (95) [e ,e ,e ,e ] --R 3 2 1 0 ---RType: List AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: List AlgebraGivenByStructuralConstants(... --E 95 --S 96 of 98 @@ -1036,7 +1036,7 @@ basisOfMiddleNucleus()$AP --R --R (97) [e ] --R 3 ---RType: List AlgebraGivenByStructuralConstants(Fraction Polynomial Integer,4,[*01e0,*01e1,*01e2,*01e3],[MATRIX,MATRIX,MATRIX,MATRIX]) +--IType: List AlgebraGivenByStructuralConstants(... --E 97 --S 98 of 98 diff --git a/src/input/graphics.input.pamphlet b/src/input/graphics.input.pamphlet index 5d73246..33b2925 100644 --- a/src/input/graphics.input.pamphlet +++ b/src/input/graphics.input.pamphlet @@ -35,7 +35,8 @@ draw(y**2 + y = x**3 - x, x, y, range == [-2..2, -2..1]) p := ((x**2 + y**2 + 1) - 8*x)**2 - (8*(x**2 + y**2 + 1) - 4*x - 1) draw(p = 0, x, y, range == [-1..11, -7..7], title == "Cartesian Ovals") q := (x**2 + y**2 + 7**2)**2 - (6**4 + 4*7**2*x**2) -draw(q = 0, x, y, range == [-10..10, -4..4], title == "Cassinian oval with two loops") +draw(q = 0, x, y, range == [-10..10, -4..4], title == _ + "Cassinian oval with two loops") All -- Input for page OneVariableGraphicsPage diff --git a/src/input/grpthry.input.pamphlet b/src/input/grpthry.input.pamphlet index 1e8b7c0..5833367 100644 --- a/src/input/grpthry.input.pamphlet +++ b/src/input/grpthry.input.pamphlet @@ -1399,15 +1399,15 @@ tensorProduct(gm2,gm2) --R RepresentationPackage1 R: Ring is a package constructor --R Abbreviation for RepresentationPackage1 is REP1 --R This constructor is exposed in this frame. ---I Issue )edit /research/research/s2/mnt/fedora5/../../src/algebra/REP1.spad to see algebra source code for REP1 +--I Issue )edit /research/research/s2/mnt/fedora5/... --R --R------------------------------- Operations -------------------------------- ---R antisymmetricTensors : (Matrix R,PositiveInteger) -> Matrix R if R has commutative * ---R antisymmetricTensors : (List Matrix R,PositiveInteger) -> List Matrix R if R has commutative * +--I antisymmetricTensors : (Matrix R,PositiveInteger) -> ... +--I antisymmetricTensors : (List Matrix R,PositiveInteger) -> ... --R createGenericMatrix : NonNegativeInteger -> Matrix Polynomial R --R permutationRepresentation : (Permutation Integer,Integer) -> Matrix Integer --R permutationRepresentation : List Integer -> Matrix Integer ---R permutationRepresentation : (List Permutation Integer,Integer) -> List Matrix Integer +--I permutationRepresentation : (List Permutation Integer,Integer) -> ... --R permutationRepresentation : List List Integer -> List Matrix Integer --R symmetricTensors : (Matrix R,PositiveInteger) -> Matrix R --R symmetricTensors : (List Matrix R,PositiveInteger) -> List Matrix R @@ -1821,7 +1821,7 @@ eval ( py , 7 ) --R Permutation S: SetCategory is a domain constructor --R Abbreviation for Permutation is PERM --R This constructor is exposed in this frame. ---I Issue )edit /research/research/s2/mnt/fedora5/../../src/algebra/PERM.spad to see algebra source code for PERM +--I Issue )edit /research/research/s2/mnt/fedora5/... --R --R------------------------------- Operations -------------------------------- --R ?*? : (%,%) -> % ?**? : (%,Integer) -> % diff --git a/src/input/gstbl.input.pamphlet b/src/input/gstbl.input.pamphlet index 189311f..501c235 100644 --- a/src/input/gstbl.input.pamphlet +++ b/src/input/gstbl.input.pamphlet @@ -22,7 +22,8 @@ )clear all --S 1 of 1 -patrons: GeneralSparseTable(String, Integer, KeyedAccessFile(Integer), 0) := table() ; +patrons: GeneralSparseTable(String, Integer, KeyedAccessFile(Integer), 0) := _ + table() ; --R --R --R Type: GeneralSparseTable(String,Integer,KeyedAccessFile Integer,0) diff --git a/src/input/hyperbolicrules.input.pamphlet b/src/input/hyperbolicrules.input.pamphlet index d4f38dd..a89d386 100644 --- a/src/input/hyperbolicrules.input.pamphlet +++ b/src/input/hyperbolicrules.input.pamphlet @@ -2601,7 +2601,7 @@ t2:=cothperiod t1 \end{chunk} -\section{Relationship between Inverse Hyperbolic and Inverse Trigonometric Functions} +\section{Inverse Hyperbolic and Inverse Trig Functions} These patterns do not match in Axiom. \subsection{8.92 $\sin^{-1}(ix)$} \[\sin^{-1}(ix) == i~{\rm sinh}^{-1}(x)\] @@ -3117,8 +3117,10 @@ t2:=cschcsc t1 \end{chunk} \begin{verbatim} -rootrule4a:RewriteRule(INT,COMPLEX(INT),EXPR(COMPLEX(INT))):=rule(sqrt(p^2-q^2)==sqrt(p-q)*sqrt(q+p)) schaum17.input.pamphlet: -tanrule2:RewriteRule(INT,COMPLEX(INT),EXPR(COMPLEX(INT))):=rule(tan(a) == sin(a)/cos(a)) schaum17.input.pamphlet: +rootrule4a:RewriteRule(INT,COMPLEX(INT),EXPR(COMPLEX(INT))):= + rule(sqrt(p^2-q^2)==sqrt(p-q)*sqrt(q+p)) schaum17.input.pamphlet: +tanrule2:RewriteRule(INT,COMPLEX(INT),EXPR(COMPLEX(INT))):= + rule(tan(a) == sin(a)/cos(a)) schaum17.input.pamphlet: \end{verbatim} \begin{chunk}{*} diff --git a/src/input/hyperell.input.pamphlet b/src/input/hyperell.input.pamphlet index f2c6a92..6bf8db5 100644 --- a/src/input/hyperell.input.pamphlet +++ b/src/input/hyperell.input.pamphlet @@ -225,7 +225,7 @@ lb:= lBasis( D + g*pInf )$P --R (23) --R 2 3 2 2 2 3 --R [num= [873819x y z + y z ],den= 873819x + x z + 174762x z + 87382y z + z ] ---RType: Record(num: List DistributedMultivariatePolynomial([x,y,z],PrimeField 1048583),den: DistributedMultivariatePolynomial([x,y,z],PrimeField 1048583)) +--IType: Record(num: List DistributedMultivariatePolynomial(... --E 23 --S 24 of 26 diff --git a/src/input/ideal.input.pamphlet b/src/input/ideal.input.pamphlet index a902d9b..7338563 100644 --- a/src/input/ideal.input.pamphlet +++ b/src/input/ideal.input.pamphlet @@ -52,7 +52,7 @@ id := ideal m + ideal n --R 2 1 2 1 --R (4) [x - -,y - -] --R 2 2 ---RType: PolynomialIdeals(Fraction Integer,DirectProduct(2,NonNegativeInteger),OrderedVariableList [x,y],DistributedMultivariatePolynomial([x,y],Fraction Integer)) +--IType: PolynomialIdeals(Fraction Integer,DirectProduct(... --E 4 --S 5 of 18 @@ -109,7 +109,7 @@ relationsIdeal [f,g] --R --R 2 3 2 2 3 --R (11) [- %B + %A + %A ] | [%A= x - 1,%B= x - x] ---RType: SuchThat(List Polynomial Fraction Integer,List Equation Polynomial Fraction Integer) +--IType: SuchThat(List Polynomial Fraction Integer,... --E 11 --S 12 of 18 @@ -134,7 +134,7 @@ ld:=primaryDecomp ideal l --R 1 2 1 2 --R (14) [[x + - y,y ,z + 2],[x - - y,y ,z - 2]] --R 2 2 ---RType: List PolynomialIdeals(Fraction Integer,DirectProduct(3,NonNegativeInteger),OrderedVariableList [x,y,z],DistributedMultivariatePolynomial([x,y,z],Fraction Integer)) +--IType: List PolynomialIdeals(Fraction Integer,DirectProduct(... --E 14 --S 15 of 18 @@ -144,7 +144,7 @@ reduce(intersect,ld) --R 1 2 2 --R (15) [x - - y z,y ,z - 4] --R 4 ---RType: PolynomialIdeals(Fraction Integer,DirectProduct(3,NonNegativeInteger),OrderedVariableList [x,y,z],DistributedMultivariatePolynomial([x,y,z],Fraction Integer)) +--IType: PolynomialIdeals(Fraction Integer,DirectProduct(... --E 15 --S 16 of 18 @@ -153,7 +153,7 @@ reduce(intersect,[radical ld.i for i in 1..2]) --R --R 2 --R (16) [x,y,z - 4] ---RType: PolynomialIdeals(Fraction Integer,DirectProduct(3,NonNegativeInteger),OrderedVariableList [x,y,z],DistributedMultivariatePolynomial([x,y,z],Fraction Integer)) +--IType: PolynomialIdeals(Fraction Integer,DirectProduct(... --E 16 --S 17 of 18 @@ -162,7 +162,7 @@ radical ideal l --R --R 2 --R (17) [x,y,z - 4] ---RType: PolynomialIdeals(Fraction Integer,DirectProduct(3,NonNegativeInteger),OrderedVariableList [x,y,z],DistributedMultivariatePolynomial([x,y,z],Fraction Integer)) +--IType: PolynomialIdeals(Fraction Integer,DirectProduct(... --E 17 --S 18 of 18 @@ -171,7 +171,7 @@ quotient(ideal l,y) --R --R 2 --R (18) [x,y,z - 4] ---RType: PolynomialIdeals(Fraction Integer,DirectProduct(3,NonNegativeInteger),OrderedVariableList [x,y,z],DistributedMultivariatePolynomial([x,y,z],Fraction Integer)) +--IType: PolynomialIdeals(Fraction Integer,DirectProduct(... --E 18 )spool )lisp (bye) diff --git a/src/input/ifthenelse.input.pamphlet b/src/input/ifthenelse.input.pamphlet index f275d0e..044318c 100644 --- a/src/input/ifthenelse.input.pamphlet +++ b/src/input/ifthenelse.input.pamphlet @@ -107,7 +107,7 @@ for i in 2..2 repeat --R --R Line 48: --R --R Line 49: --R positive ---R Line 50: --R Type: Void +--I Line 50: --R --R Line 51: --E 5 --R Line 52: --R Line 53: --S 6 of 20 @@ -148,7 +148,7 @@ for i in 2..2 repeat --R Line 84: --R --R Line 85: --R --R Line 86: --R (6) 2 ---R Line 87: --R Type: PositiveInteger +--I Line 87: --R --R Line 88: --E 7 --R Line 89: --R Line 90: --S 8 of 20 diff --git a/src/input/images1a.input.pamphlet b/src/input/images1a.input.pamphlet index 4b151e7..f66dfbf 100644 --- a/src/input/images1a.input.pamphlet +++ b/src/input/images1a.input.pamphlet @@ -35,8 +35,10 @@ R3 := Point DoubleFloat -- Points in 3-Space R2 := Point DoubleFloat -- Points in 2-Space S := Segment Float -- Draw ranges ThreeCurve := DoubleFloat -> R3 -- type of a space curve function -TwoCurve := (DoubleFloat, DoubleFloat) -> R2 -- type of a plane curve function -Surface := (DoubleFloat, DoubleFloat) -> R3 -- type of a parameterized surface function +-- type of a plane curve function +TwoCurve := (DoubleFloat, DoubleFloat) -> R2 +-- type of a parameterized surface function +Surface := (DoubleFloat, DoubleFloat) -> R3 -- Frenet frames define a coordinate system around a point on a space curve FrenetFrame := Record(value: R3, tagent: R3, normal: R3, binormal: R3) diff --git a/src/input/images2a.input.pamphlet b/src/input/images2a.input.pamphlet index d554393..08bdcaf 100644 --- a/src/input/images2a.input.pamphlet +++ b/src/input/images2a.input.pamphlet @@ -30,7 +30,8 @@ newtonStep(f) == -- create complex numeric functions from an expression -complexFunPack := MakeUnaryCompiledFunction(EXPR INT, Complex DoubleFloat, Complex DoubleFloat) +complexFunPack := _ + MakeUnaryCompiledFunction(EXPR INT, Complex DoubleFloat, Complex DoubleFloat) -- create a complex numeric function from an expression complexNumericFunction x == diff --git a/src/input/images5a.input.pamphlet b/src/input/images5a.input.pamphlet index fa7f020..257d1e9 100644 --- a/src/input/images5a.input.pamphlet +++ b/src/input/images5a.input.pamphlet @@ -67,8 +67,10 @@ R3 := Point DoubleFloat -- Points in 3-Space R2 := Point DoubleFloat -- Points in 2-Space S := Segment Float -- Draw ranges ThreeCurve := DoubleFloat -> R3 -- type of a space curve function -TwoCurve := (DoubleFloat, DoubleFloat) -> R2 -- type of a plane curve function -Surface := (DoubleFloat, DoubleFloat) -> R3 -- type of a parameterized surface function +-- type of a plane curve function +TwoCurve := (DoubleFloat, DoubleFloat) -> R2 +-- type of a parameterized surface function +Surface := (DoubleFloat, DoubleFloat) -> R3 -- Frenet frames define a coordinate system around a point on a space curve FrenetFrame := Record(value: R3, tagent: R3, normal: R3, binormal: R3) diff --git a/src/input/images7a.input.pamphlet b/src/input/images7a.input.pamphlet index a7c0536..11aef83 100644 --- a/src/input/images7a.input.pamphlet +++ b/src/input/images7a.input.pamphlet @@ -115,15 +115,15 @@ cartesian2Complex(r:DoubleFloat, i:DoubleFloat):C == complex(r, i) -- convert polar coordinates to cartesian form complex polar2Complex(r:DoubleFloat, th:DoubleFloat):C == complex(r*cos(th), r*sin(th)) --- convert a complex function into a mapping from (DoubleFloat,DoubleFloat) to R3 in the --- complex plane. +-- convert a complex function into a mapping from (DoubleFloat,DoubleFloat) +-- to R3 in the complex plane. makeConformalMap(f, transformC) == (u:DoubleFloat,v:DoubleFloat):R3 +-> z := f transformC(u, v) point [real z, imag z, 0.0@DoubleFloat] --- convert a complex function into a mapping from (DoubleFloat,DoubleFloat) to R3 on the --- Riemann sphere. +-- convert a complex function into a mapping from (DoubleFloat,DoubleFloat) +-- to R3 on the Riemann sphere. makeRiemannConformalMap(f, transformC) == (u:DoubleFloat, v:DoubleFloat):R3 +-> riemannTransform f transformC(u, v) diff --git a/src/input/images8a.input.pamphlet b/src/input/images8a.input.pamphlet index 2fcba1c..1627ec3 100644 --- a/src/input/images8a.input.pamphlet +++ b/src/input/images8a.input.pamphlet @@ -29,14 +29,16 @@ -- tri2tri(t1, t2) returns a DHMATRIX which transforms t1 to t2, -- where t1 and t2 are the vertices of two triangles in 3-space. -tri2tri(t1: List Point DoubleFloat, t2: List Point DoubleFloat): DHMATRIX(DoubleFloat) == +tri2tri(t1: List Point DoubleFloat, t2: List Point DoubleFloat): _ + DHMATRIX(DoubleFloat) == n1 := triangleNormal(t1) n2 := triangleNormal(t2) tet2tet(concat(t1, n1), concat(t2, n2)) -- tet2tet(t1, t2) returns a DHMATRIX which transforms t1 to t2, -- where t1 and t2 are the vertices of two tetrahedrons in 3-space. -tet2tet(t1: List Point DoubleFloat, t2: List Point DoubleFloat): DHMATRIX(DoubleFloat) == +tet2tet(t1: List Point DoubleFloat, t2: List Point DoubleFloat): _ + DHMATRIX(DoubleFloat) == m1 := makeColumnMatrix t1 m2 := makeColumnMatrix t2 m2 * inverse(m1) diff --git a/src/input/iprntpk.input.pamphlet b/src/input/iprntpk.input.pamphlet index c337503..ad69eb2 100644 --- a/src/input/iprntpk.input.pamphlet +++ b/src/input/iprntpk.input.pamphlet @@ -31,12 +31,12 @@ the stream. --S 2 of 3 iprint("Release the hounds!") ---RRelease the hounds! Type: Void +--IRelease the hounds! --E 2 --S 3 of 3 for i in 1..10 repeat iprint(i::String) ---R12345678910 Type: Void +--I12345678910 --E 3 )spool diff --git a/src/input/kamke0.input.pamphlet b/src/input/kamke0.input.pamphlet index 1f6d69c..1dfe4a5 100644 --- a/src/input/kamke0.input.pamphlet +++ b/src/input/kamke0.input.pamphlet @@ -68,7 +68,7 @@ ode1a:=solve(ode1,y,x) --R ++ +----------------------------------+ --R | 4 3 2 --I \|%N a4 + %N a3 + %N a2 + %N a1 + a0 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 5 --S 6 of 134 @@ -89,7 +89,7 @@ ode2a:=solve(ode2,y,x) --R c %e - a x --R (7) [particular= -------,basis= [%e ]] --R b + a ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 7 --S 8 of 134 @@ -125,7 +125,7 @@ ode3a:=solve(ode3,y,x) --R (11) [particular= ---------------------------,basis= [%e ]] --R 2 2 --R c + a ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 11 --S 12 of 134 @@ -163,7 +163,7 @@ ode4a:=solve(ode4,y,x) --R x %e - x --R (15) [particular= --------,basis= [%e ]] --R 2 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 15 --S 16 of 134 @@ -201,7 +201,7 @@ ode5a:=solve(ode5,y,x) --I (19) [particular= %e | ----------- d%H ,basis= [%e ]] --I ++ - sin(%H) --R %e ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 19 --S 20 of 134 @@ -220,7 +220,7 @@ ode6a:=solve(ode6,y,x) --R --R - sin(x) --R (21) [particular= sin(x) - 1,basis= [%e ]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 21 --S 22 of 134 @@ -267,7 +267,7 @@ ode7a:=solve(ode7,y,x) --R --R - sin(x) - sin(x) --R (27) [particular= x %e ,basis= [%e ]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 27 --S 28 of 134 @@ -307,7 +307,7 @@ ode8a:=solve(ode8,y,x) --R +-----------+ +-----------+ --R | 2 | 2 --R \|tan(x) + 1 \|tan(x) + 1 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 31 --S 32 of 134 @@ -356,7 +356,7 @@ ode9a:=solve(ode9,y,x) --R --R x sin(log(x)) + a x --R (35) [particular= 0,basis= [%e ]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 35 --S 36 of 134 diff --git a/src/input/kamke1.input.pamphlet b/src/input/kamke1.input.pamphlet index a43026f..3317fb4 100644 --- a/src/input/kamke1.input.pamphlet +++ b/src/input/kamke1.input.pamphlet @@ -1742,7 +1742,7 @@ ode89a:=solve(ode89,y,x) --R +---------+ --R | 2 2 --R \|- x + a - a ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 85 --S 86 of 120 @@ -1782,7 +1782,7 @@ ode90a:=solve(ode90,y,x) --R sin(x) - x cos(x) 1 --R (86) [particular= -----------------,basis= [-]] --R x x ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 89 --S 90 of 120 @@ -1816,7 +1816,7 @@ ode91 := x*D(y(x),x) - y(x) - x/log(x) ode91a:=solve(ode91,y,x) --R --R (90) [particular= x log(log(x)),basis= [x]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 93 --S 94 of 120 @@ -1846,7 +1846,7 @@ ode92 := x*D(y(x),x) - y(x) - x**2*sin(x) ode92a:=solve(ode92,y,x) --R --R (94) [particular= - x cos(x),basis= [x]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 97 --S 98 of 120 @@ -1879,7 +1879,7 @@ ode93 := x*D(y(x),x) - y(x) - x*cos(log(log(x)))/log(x) ode93a:=solve(ode93,y,x) --R --R (98) [particular= x sin(log(log(x))),basis= [x]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 101 --S 102 of 120 @@ -1912,7 +1912,7 @@ ode94a:=solve(ode94,y,x) --R b %e - a log(x) --R (102) [particular= - ------------,basis= [%e ]] --R n + a ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 105 --S 106 of 120 diff --git a/src/input/kamke2.input.pamphlet b/src/input/kamke2.input.pamphlet index daeeaec..6740b10 100644 --- a/src/input/kamke2.input.pamphlet +++ b/src/input/kamke2.input.pamphlet @@ -1082,7 +1082,7 @@ ode130a:=solve(ode130,y,x) --R 2x +-+ --R (65) [particular= ---,basis= [\|x ]] --R 5 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 65 --S 66 of 126 @@ -1267,7 +1267,7 @@ yx:=solve(ode133,y,x) --R -- --I %U --I %U %e ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 75 ------------------------------------------------------------------- @@ -1307,7 +1307,7 @@ ode134a:=solve(ode134,y,x) --R ------ - - --R x x --R (77) [particular= - %e ,basis= [%e ]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 77 --S 78 of 126 @@ -1357,7 +1357,7 @@ ode135a:=solve(ode135,y,x) --R - --R x --R (81) [particular= 0,basis= [x %e ]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 81 --S 82 of 126 @@ -2078,7 +2078,7 @@ ode148a:=solve(ode148,y,x) --R +------+ +------+ --R | 2 | 2 --R \|x + 1 \|x + 1 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 116 --S 117 of 126 @@ -2133,7 +2133,7 @@ ode149a:=solve(ode149,y,x) --R 3 +------+ --R | 2 --R \|x + 1 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 120 --S 121 of 126 @@ -2184,7 +2184,7 @@ ode150a:=solve(ode150,y,x) --R (124) [particular= -------,basis= [------]] --R 2 2 --R 3x + 3 x + 1 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 124 --S 125 of 126 diff --git a/src/input/kamke3.input.pamphlet b/src/input/kamke3.input.pamphlet index c1ecae2..dc47c38 100644 --- a/src/input/kamke3.input.pamphlet +++ b/src/input/kamke3.input.pamphlet @@ -81,7 +81,7 @@ ode153a:=solve(ode153,y,x) --R +------+ --R | 2 --R (7) [particular= a x,basis= [\|x - 1 ]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 7 --S 8 of 139 @@ -118,7 +118,7 @@ ode154a:=solve(ode154,y,x) --R (11) [particular= ------,basis= [------]] --R 2 2 --R x - 1 x - 1 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 11 --S 12 of 139 @@ -383,7 +383,7 @@ ode161a:=solve(ode161,y,x) --R (32) [particular= ------------------------,basis= [-------------------]] --R 3 2 3 2 --R 12x - 84x + 192x - 144 x - 7x + 16x - 12 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 32 --S 33 of 139 @@ -1039,7 +1039,7 @@ ode174a:=solve(ode174,y,x) --R +------+ --R | 2 --R \|x + 1 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 67 --S 68 of 139 @@ -1075,7 +1075,7 @@ ode175a:=solve(ode175,y,x) --R +------+ --R | 2 --R (71) [particular= a x,basis= [x\|x - 1 ]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 71 --S 72 of 139 @@ -1443,7 +1443,7 @@ ode183a:=solve(ode183,y,x) --R +-------+ --R 3| 3 --R \|2x - 1 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 92 --S 93 of 139 @@ -1630,7 +1630,7 @@ ode192a:=solve(ode192,y,x) --R +-------+ +-------+ +-------+ --R | 2 2 | 2 2 | 2 2 --R [particular= (- \|x + a + x)log(\|x + a - x),basis= [\|x + a - x]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 111 --S 112 of 139 @@ -1668,7 +1668,7 @@ ode193a:=solve(ode193,y,x) --R 1 --R (115) [particular= a x,basis= [------]] --R log(x) ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 115 --S 116 of 139 @@ -1778,7 +1778,7 @@ ode196a:=solve(ode196,y,x) --R sin(x) - cos(x) - 1 --R basis= [-------------------]] --R sin(x) + cos(x) + 1 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 124 --S 125 of 139 @@ -1908,7 +1908,7 @@ ode198a:=solve(ode198,y,x) --R sin(x) --R (131) [particular= - sin(x),basis= [------]] --R cos(x) ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 131 --S 132 of 139 @@ -1970,7 +1970,7 @@ ode200a:=solve(ode200,y,x) --R basis= [-----------------]] --R 2 --R a cos(x) - b - a ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 137 --S 138 of 139 diff --git a/src/input/kamke7.input.pamphlet b/src/input/kamke7.input.pamphlet index fc585aa..b698dac 100644 --- a/src/input/kamke7.input.pamphlet +++ b/src/input/kamke7.input.pamphlet @@ -620,7 +620,7 @@ ode434a:=solve(ode434,y,x) --R --R --R (39) [particular= x,basis= [1]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 39 --S 40 of 97 diff --git a/src/input/knownbugs.input.pamphlet b/src/input/knownbugs.input.pamphlet index 51c8bea..0924591 100644 --- a/src/input/knownbugs.input.pamphlet +++ b/src/input/knownbugs.input.pamphlet @@ -92,7 +92,7 @@ status: closed )set message autoload off \end{chunk} \subsection{bug8: 325 Severe bug in normalize\$EFSTRUC} -There is a severe bug in normalize\$EFSTRUC, which affects +There is a severe bug in normalize\$EFSTRUC. This affects summation ('innersum\$SUMFS), maybe also integration. sub\$SUMFS uses this method to check whether a function is diff --git a/src/input/limit.input.pamphlet b/src/input/limit.input.pamphlet index b64e2e6..30c1063 100644 --- a/src/input/limit.input.pamphlet +++ b/src/input/limit.input.pamphlet @@ -99,7 +99,7 @@ limit(sqrt(9-x^2),x=-3) --R --R --R (3) [leftHandLimit= "failed",rightHandLimit= 0] ---RType: Union(Record(leftHandLimit: Union(OrderedCompletion Expression Integer,"failed"),rightHandLimit: Union(OrderedCompletion Expression Integer,"failed")),...) +--IType: Union(Record(leftHandLimit: Union(OrderedCompletion ... --E 3 --S 4 of 15 @@ -133,7 +133,7 @@ limit(sqrt(9-x^2),x=3) --R --R --R (7) [leftHandLimit= 0,rightHandLimit= "failed"] ---RType: Union(Record(leftHandLimit: Union(OrderedCompletion Expression Integer,"failed"),rightHandLimit: Union(OrderedCompletion Expression Integer,"failed")),...) +--IType: Union(Record(leftHandLimit: Union(OrderedCompletion ... --E 7 --S 8 of 15 @@ -239,7 +239,7 @@ limit(1/x,x=0) --R --R --R (11) [leftHandLimit= - infinity,rightHandLimit= + infinity] ---RType: Union(Record(leftHandLimit: Union(OrderedCompletion Fraction Polynomial Integer,"failed"),rightHandLimit: Union(OrderedCompletion Fraction Polynomial Integer,"failed")),...) +--IType: Union(Record(leftHandLimit: Union(OrderedCompletion ... --E 11 \end{chunk} diff --git a/src/input/linalg.input.pamphlet b/src/input/linalg.input.pamphlet index 7e511a1..fc49322 100644 --- a/src/input/linalg.input.pamphlet +++ b/src/input/linalg.input.pamphlet @@ -811,7 +811,7 @@ leig := eigenvalues(m1) --R --R 2 --I (2) [5,%A | %A - %A - 5] ---RType: List Union(Fraction Polynomial Integer,SuchThat(Symbol,Polynomial Integer)) +--IType: List Union(Fraction Polynomial Integer,... --E 74 --S 75 of 82 @@ -843,7 +843,7 @@ eigenvectors(m1) --R [eigval= (%C | %C - %C - 5),eigmult= 1,eigvec= [|2 |]]] --R | | --R +1 + ---RType: List Record(eigval: Union(Fraction Polynomial Integer,SuchThat(Symbol,Polynomial Integer)),eigmult: NonNegativeInteger,eigvec: List Matrix Fraction Polynomial Integer) +--IType: List Record(eigval: Union(Fraction Polynomial Integer,... --E 76 --S 77 of 82 @@ -873,7 +873,7 @@ radicalEigenvectors(m1) --R | 2| --R | | --R + 1 + ---RType: List Record(radval: Expression Integer,radmult: Integer,radvect: List Matrix Expression Integer) +--IType: List Record(radval: Expression Integer,... --E 77 --S 78 of 82 diff --git a/src/input/liska.input.pamphlet b/src/input/liska.input.pamphlet index d8d3509..db727c8 100644 --- a/src/input/liska.input.pamphlet +++ b/src/input/liska.input.pamphlet @@ -980,7 +980,7 @@ solve(D(y(x),x)+y(x)*sin(x)/cos(x)-1/cos(x)=0,y,x) --R --R --R (2) [particular= sin(x),basis= [cos(x)]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 79 --S 80 of 94 @@ -1003,7 +1003,7 @@ solve(D(y(x),x,2)+4*D(y(x),x)+4*y(x)-x*exp(x)=0,y,x) --R (3x - 2)%e (%e ) - 2x - 2x --R (4) [particular= --------------------,basis= [%e ,x %e ]] --R 27 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 81 \end{chunk} \subsection{Substitutions -- pattern matching} @@ -1228,7 +1228,7 @@ eigenvectors v --R [[eigval= 1,eigmult= 2,eigvec= [|1|]],[eigval= 2,eigmult= 1,eigvec= [|1|]]] --R | | | | --R +0+ +1+ ---RType: List Record(eigval: Union(Fraction Polynomial Integer,SuchThat(Symbol,Polynomial Integer)),eigmult: NonNegativeInteger,eigvec: List Matrix Fraction Polynomial Integer) +--IType: List Record(eigval: Union(Fraction Polynomial Integer,... --E 94 \end{chunk} diff --git a/src/input/lode.input.pamphlet b/src/input/lode.input.pamphlet index b429f0e..84185f0 100644 --- a/src/input/lode.input.pamphlet +++ b/src/input/lode.input.pamphlet @@ -88,7 +88,7 @@ solve(deq = sin x, y, x) --R x cos(x) --R (6) [particular= - --------,basis= [cos(x),sin(x)]] --R 2 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 6 \end{chunk} @@ -114,7 +114,7 @@ solve(deq, y, x) --R x - 10x + 20x + 4 2x - 3x + 1 x - 1 x - 3x - 1 --R [particular= --------------------,basis= [-------------,------,------------]] --R 15x x x x ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 8 \end{chunk} diff --git a/src/input/lodo.input.pamphlet b/src/input/lodo.input.pamphlet index eb5f036..a7c83d1 100644 --- a/src/input/lodo.input.pamphlet +++ b/src/input/lodo.input.pamphlet @@ -59,7 +59,7 @@ Dx := D() --R --R --R (3) D ---RType: LinearOrdinaryDifferentialOperator2(Fraction Integer,UnivariatePolynomial(x,Fraction Integer)) +--IType: LinearOrdinaryDifferentialOperator2(... --E 3 --S 4 of 55 @@ -67,7 +67,7 @@ a := Dx + 1 --R --R --R (4) D + 1 ---RType: LinearOrdinaryDifferentialOperator2(Fraction Integer,UnivariatePolynomial(x,Fraction Integer)) +--IType: LinearOrdinaryDifferentialOperator2(... --E 4 --S 5 of 55 @@ -77,7 +77,7 @@ b := a + 1/2*Dx**2 - 1/2 --R 1 2 1 --R (5) - D + D + - --R 2 2 ---RType: LinearOrdinaryDifferentialOperator2(Fraction Integer,UnivariatePolynomial(x,Fraction Integer)) +--IType: LinearOrdinaryDifferentialOperator2(... --E 5 \end{chunk} @@ -130,7 +130,7 @@ c := (1/9)*b*(a + b)**2 --R 1 6 5 5 13 4 19 3 79 2 7 1 --R (9) -- D + -- D + -- D + -- D + -- D + -- D + - --R 72 36 24 18 72 12 8 ---RType: LinearOrdinaryDifferentialOperator2(Fraction Integer,UnivariatePolynomial(x,Fraction Integer)) +--IType: LinearOrdinaryDifferentialOperator2(... --E 9 \end{chunk} @@ -170,7 +170,7 @@ Dx := D() --R --R --R (3) D ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 ... --E 13 --S 14 of 55 @@ -180,7 +180,7 @@ b := 3*x**2*Dx**2 + 2*Dx + 1/x --R 2 2 1 --R (4) 3x D + 2D + - --R x ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 ... --E 14 --S 15 of 55 @@ -190,7 +190,7 @@ a := b*(5*x*Dx + 7) --R 3 3 2 2 7 --R (5) 15x D + (51x + 10x)D + 29D + - --R x ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 ... --E 15 --S 16 of 55 @@ -233,7 +233,7 @@ leftDivide(a,b) --R --R --R (8) [quotient= 5x D + 7,remainder= 0] ---RType: Record(quotient: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer),remainder: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer)) +--IType: Record(quotient: LinearOrdinaryDifferentialOperator1 ... --E 18 --S 19 of 55 @@ -241,7 +241,7 @@ a - (b * %.quotient + %.remainder) --R --R --R (9) 0 ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 19 --S 20 of 55 @@ -251,7 +251,7 @@ rightDivide(a,b) --R 5 --R (10) [quotient= 5x D + 7,remainder= 10D + -] --R x ---RType: Record(quotient: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer),remainder: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer)) +--IType: Record(quotient: LinearOrdinaryDifferentialOperator1 ... --E 20 --S 21 of 55 @@ -259,7 +259,7 @@ a - (%.quotient * b + %.remainder) --R --R --R (11) 0 ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 21 \end{chunk} @@ -272,7 +272,7 @@ e := leftGcd(a,b) --R 2 2 1 --R (12) 3x D + 2D + - --R x ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 22 \end{chunk} @@ -283,7 +283,7 @@ leftRemainder(a, e) --R --R --R (13) 0 ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 23 \end{chunk} @@ -296,7 +296,7 @@ rightRemainder(a, e) --R 5 --R (14) 10D + - --R x ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 ... --E 24 \end{chunk} @@ -309,7 +309,7 @@ f := rightLcm(a,b) --R 3 3 2 2 7 --R (15) 15x D + (51x + 10x)D + 29D + - --R x ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 ... --E 25 --S 26 of 55 @@ -317,7 +317,7 @@ leftRemainder(f, b) --R --R --R (16) 0 ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 ... --E 26 \end{chunk} @@ -330,7 +330,7 @@ rightRemainder(f, b) --R 5 --R (17) 10D + - --R x ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 ... --E 27 \end{chunk} @@ -354,7 +354,7 @@ Dx := D() --R --R --R (2) D ---IType: LinearOrdinaryDifferentialOperator(Expression Integer,theMap LAMBDA-CLOSURE(NIL,NIL,NIL,G1500 envArg,SPADCALL(G1500,QUOTE x,ELT(*1;anonymousFunction;0;initial;internal;MV,0)))) +--IType: LinearOrdinaryDifferentialOperator(Expression Integer,... --E 29 --S 30 of 55 @@ -366,7 +366,7 @@ Dop:= Dx**3 + G/x**2*Dx + H/x**3 - 1 --R (3) D + -- D + -------- --R 2 3 --R x x ---IType: LinearOrdinaryDifferentialOperator(Expression Integer,theMap LAMBDA-CLOSURE(NIL,NIL,NIL,G1500 envArg,SPADCALL(G1500,QUOTE x,ELT(*1;anonymousFunction;0;initial;internal;MV,0)))) +--IType: LinearOrdinaryDifferentialOperator(Expression Integer,... --E 30 --S 31 of 55 @@ -649,7 +649,7 @@ p := directProduct([3*x**2 + 1, 2*x, 7*x**3 + 2*x]::(VECTOR(PZ)))@Vect --R --R 2 3 --R (3) [3x + 1,2x,7x + 2x] ---RType: DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer)) +--IType: DirectProductMatrixModule(3,... --E 46 --S 47 of 55 @@ -676,7 +676,7 @@ q: Vect := m * p --R --R 4 2 5 2 5 3 --R (5) [3x + x + 2x,2x + 3x + 1,28x + 8x ] ---RType: DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer)) +--IType: DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),... --E 48 \end{chunk} @@ -687,7 +687,7 @@ Dx: Modo := D() --R --R --R (6) D ---RType: LinearOrdinaryDifferentialOperator2(SquareMatrix(3,UnivariatePolynomial(x,Integer)),DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer))) +--IType: LinearOrdinaryDifferentialOperator2(SquareMatrix(... --E 49 --S 50 of 55 @@ -702,7 +702,7 @@ a: Modo := 1*Dx + m --R | | --R | 2| --R +0 0 4x + ---RType: LinearOrdinaryDifferentialOperator2(SquareMatrix(3,UnivariatePolynomial(x,Integer)),DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer))) +--IType: LinearOrdinaryDifferentialOperator2(SquareMatrix(... --E 50 --S 51 of 55 @@ -717,7 +717,7 @@ b: Modo := m*Dx + 1 --R | | +0 0 1+ --R | 2| --R +0 0 4x + ---RType: LinearOrdinaryDifferentialOperator2(SquareMatrix(3,UnivariatePolynomial(x,Integer)),DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer))) +--IType: LinearOrdinaryDifferentialOperator2(SquareMatrix(... --E 51 --S 52 of 55 @@ -733,7 +733,7 @@ a*b --R | | | | | | --R | 2| | 4 | | 2| --R +0 0 4x + + 0 0 16x + 8x + 1+ +0 0 4x + ---RType: LinearOrdinaryDifferentialOperator2(SquareMatrix(3,UnivariatePolynomial(x,Integer)),DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer))) +--IType: LinearOrdinaryDifferentialOperator2(SquareMatrix(... --E 52 --S 53 of 55 @@ -742,7 +742,7 @@ a p --R --R 4 2 5 2 5 3 2 --R (10) [3x + x + 8x,2x + 3x + 3,28x + 8x + 21x + 2] ---RType: DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer)) +--IType: DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),... --E 53 --S 54 of 55 @@ -751,7 +751,7 @@ b p --R --R 3 2 4 4 3 2 --R (11) [6x + 3x + 3,2x + 8x,84x + 7x + 8x + 2x] ---RType: DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer)) +--IType: DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),... --E 54 --S 55 of 55 @@ -765,7 +765,7 @@ b p --R 2x + 10x + 3x + 10x + 16x + 12x + 7x + 18x + 6, --R 7 6 5 4 3 2 --R 112x + 560x + 88x + 320x + 23x + 53x + 2x + 2] ---RType: DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer)) +--IType: DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),... --E 55 )spool )lisp (bye) diff --git a/src/input/lodo1.input.pamphlet b/src/input/lodo1.input.pamphlet index 8ac573a..d9d88df 100644 --- a/src/input/lodo1.input.pamphlet +++ b/src/input/lodo1.input.pamphlet @@ -41,7 +41,7 @@ Dx : LODO1 RFZ := D() --R --R --R (3) D ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 3 --S 4 of 20 @@ -51,7 +51,7 @@ b : LODO1 RFZ := 3*x**2*Dx**2 + 2*Dx + 1/x --R 2 2 1 --R (4) 3x D + 2D + - --R x ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 4 --S 5 of 20 @@ -61,7 +61,7 @@ a : LODO1 RFZ := b*(5*x*Dx + 7) --R 3 3 2 2 7 --R (5) 15x D + (51x + 10x)D + 29D + - --R x ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 5 --S 6 of 20 @@ -93,7 +93,7 @@ ld := leftDivide(a,b) --R --R --R (8) [quotient= 5x D + 7,remainder= 0] ---RType: Record(quotient: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer),remainder: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer)) +--IType: Record(quotient: LinearOrdinaryDifferentialOperator1 ... --E 8 --S 9 of 20 @@ -103,7 +103,7 @@ a = b * ld.quotient + ld.remainder --R 3 3 2 2 7 3 3 2 2 7 --R (9) 15x D + (51x + 10x)D + 29D + -= 15x D + (51x + 10x)D + 29D + - --R x x ---RType: Equation LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: Equation LinearOrdinaryDifferentialOperator1 ... --E 9 --S 10 of 20 @@ -113,7 +113,7 @@ rd := rightDivide(a,b) --R 5 --R (10) [quotient= 5x D + 7,remainder= 10D + -] --R x ---RType: Record(quotient: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer),remainder: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer)) +--IType: Record(quotient: LinearOrdinaryDifferentialOperator1 ... --E 10 --S 11 of 20 @@ -123,7 +123,7 @@ a = rd.quotient * b + rd.remainder --R 3 3 2 2 7 3 3 2 2 7 --R (11) 15x D + (51x + 10x)D + 29D + -= 15x D + (51x + 10x)D + 29D + - --R x x ---RType: Equation LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: Equation LinearOrdinaryDifferentialOperator1 ... --E 11 --S 12 of 20 @@ -131,7 +131,7 @@ rightQuotient(a,b) --R --R --R (12) 5x D + 7 ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 12 --S 13 of 20 @@ -141,7 +141,7 @@ rightRemainder(a,b) --R 5 --R (13) 10D + - --R x ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 13 --S 14 of 20 @@ -149,7 +149,7 @@ leftExactQuotient(a,b) --R --R --R (14) 5x D + 7 ---RType: Union(LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer),...) +--IType: Union(LinearOrdinaryDifferentialOperator1 Fraction ... --E 14 --S 15 of 20 @@ -159,7 +159,7 @@ e := leftGcd(a,b) --R 2 2 1 --R (15) 3x D + 2D + - --R x ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 15 --S 16 of 20 @@ -167,7 +167,7 @@ leftRemainder(a, e) --R --R --R (16) 0 ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 16 --S 17 of 20 @@ -177,7 +177,7 @@ rightRemainder(a, e) --R 5 --R (17) 10D + - --R x ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 17 --S 18 of 20 @@ -187,7 +187,7 @@ f := rightLcm(a,b) --R 3 3 2 2 7 --R (18) 15x D + (51x + 10x)D + 29D + - --R x ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 18 --S 19 of 20 @@ -197,7 +197,7 @@ rightRemainder(f, b) --R 5 --R (19) 10D + - --R x ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 19 --S 20 of 20 @@ -205,7 +205,7 @@ leftRemainder(f, b) --R --R --R (20) 0 ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 20 )spool )lisp (bye) diff --git a/src/input/lodo2.input.pamphlet b/src/input/lodo2.input.pamphlet index 855ac3c..f2ab014 100644 --- a/src/input/lodo2.input.pamphlet +++ b/src/input/lodo2.input.pamphlet @@ -49,7 +49,7 @@ Dx: LODO2(Q, PQ) := D() --R --R --R (4) D ---RType: LinearOrdinaryDifferentialOperator2(Fraction Integer,UnivariatePolynomial(x,Fraction Integer)) +--IType: LinearOrdinaryDifferentialOperator2(Fraction Integer,... --E 4 --S 5 of 26 @@ -57,7 +57,7 @@ a := Dx + 1 --R --R --R (5) D + 1 ---RType: LinearOrdinaryDifferentialOperator2(Fraction Integer,UnivariatePolynomial(x,Fraction Integer)) +--IType: LinearOrdinaryDifferentialOperator2(Fraction Integer,... --E 5 --S 6 of 26 @@ -67,7 +67,7 @@ b := a + 1/2*Dx**2 - 1/2 --R 1 2 1 --R (6) - D + D + - --R 2 2 ---RType: LinearOrdinaryDifferentialOperator2(Fraction Integer,UnivariatePolynomial(x,Fraction Integer)) +--IType: LinearOrdinaryDifferentialOperator2(Fraction Integer,... --E 6 --S 7 of 26 @@ -107,7 +107,7 @@ c := (1/9)*b*(a + b)**2 --R 1 6 5 5 13 4 19 3 79 2 7 1 --R (10) -- D + -- D + -- D + -- D + -- D + -- D + - --R 72 36 24 18 72 12 8 ---RType: LinearOrdinaryDifferentialOperator2(Fraction Integer,UnivariatePolynomial(x,Fraction Integer)) +--IType: LinearOrdinaryDifferentialOperator2(Fraction Integer,... --E 10 --S 11 of 26 @@ -181,7 +181,7 @@ p:Vect := directProduct [3*x**2+1,2*x,7*x**3+2*x] --R --R 2 3 --R (7) [3x + 1,2x,7x + 2x] ---RType: DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer)) +--IType: DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),... --E 18 --S 19 of 26 @@ -190,7 +190,7 @@ q: Vect := m * p --R --R 4 2 5 2 5 3 --R (8) [3x + x + 2x,2x + 3x + 1,28x + 8x ] ---RType: DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer)) +--IType: DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),... --E 19 --S 20 of 26 @@ -198,7 +198,7 @@ Dx : Modo := D() --R --R --R (9) D ---RType: LinearOrdinaryDifferentialOperator2(SquareMatrix(3,UnivariatePolynomial(x,Integer)),DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer))) +--IType: LinearOrdinaryDifferentialOperator2(SquareMatrix(3,... --E 20 --S 21 of 26 @@ -213,7 +213,7 @@ a : Modo := Dx + m --R | | --R | 2| --R +0 0 4x + ---RType: LinearOrdinaryDifferentialOperator2(SquareMatrix(3,UnivariatePolynomial(x,Integer)),DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer))) +--IType: LinearOrdinaryDifferentialOperator2(SquareMatrix(3,... --E 21 --S 22 of 26 @@ -228,7 +228,7 @@ b : Modo := m*Dx + 1 --R | | +0 0 1+ --R | 2| --R +0 0 4x + ---RType: LinearOrdinaryDifferentialOperator2(SquareMatrix(3,UnivariatePolynomial(x,Integer)),DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer))) +--IType: LinearOrdinaryDifferentialOperator2(SquareMatrix(3,... --E 22 --S 23 of 26 @@ -244,7 +244,7 @@ c := a*b --R | | | | | | --R | 2| | 4 | | 2| --R +0 0 4x + + 0 0 16x + 8x + 1+ +0 0 4x + ---RType: LinearOrdinaryDifferentialOperator2(SquareMatrix(3,UnivariatePolynomial(x,Integer)),DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer))) +--IType: LinearOrdinaryDifferentialOperator2(SquareMatrix(3,... --E 23 --S 24 of 26 @@ -253,7 +253,7 @@ a p --R --R 4 2 5 2 5 3 2 --R (13) [3x + x + 8x,2x + 3x + 3,28x + 8x + 21x + 2] ---RType: DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer)) +--IType: DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),... --E 24 --S 25 of 26 @@ -262,7 +262,7 @@ b p --R --R 3 2 4 4 3 2 --R (14) [6x + 3x + 3,2x + 8x,84x + 7x + 8x + 2x] ---RType: DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer)) +--IType: DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),... --E 25 --S 26 of 26 @@ -276,7 +276,7 @@ b p --R 10x + 10x + 12x + 92x + 6x + 32x + 72x + 28x + 49x + 32x + 19, --R 8 7 6 5 4 3 2 --R 2240x + 224x + 1280x + 3508x + 492x + 751x + 98x + 18x + 4] ---RType: DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer)) +--IType: DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),... --E 26 )spool )lisp (bye) diff --git a/src/input/lodo3.input.pamphlet b/src/input/lodo3.input.pamphlet index 26b8fb7..72f23ee 100644 --- a/src/input/lodo3.input.pamphlet +++ b/src/input/lodo3.input.pamphlet @@ -31,7 +31,7 @@ Dx := D() --R --R --R (2) D ---IType: LinearOrdinaryDifferentialOperator(Expression Integer,theMap LAMBDA-CLOSURE(NIL,NIL,NIL,G1405 envArg,SPADCALL(G1405,QUOTE x,ELT(*1;anonymousFunction;0;initial;internal;MV,0)))) +--IType: LinearOrdinaryDifferentialOperator(Expression Integer,... --E 2 --S 3 of 16 @@ -43,7 +43,7 @@ Dop:= Dx**3 + G/x**2*Dx + H/x**3 - 1 --R (3) D + -- D + -------- --R 2 3 --R x x ---IType: LinearOrdinaryDifferentialOperator(Expression Integer,theMap LAMBDA-CLOSURE(NIL,NIL,NIL,G1405 envArg,SPADCALL(G1405,QUOTE x,ELT(*1;anonymousFunction;0;initial;internal;MV,0)))) +--IType: LinearOrdinaryDifferentialOperator(Expression Integer,... --E 3 --S 4 of 16 diff --git a/src/input/lodof.input.pamphlet b/src/input/lodof.input.pamphlet index 1d7f207..1656cd1 100644 --- a/src/input/lodof.input.pamphlet +++ b/src/input/lodof.input.pamphlet @@ -58,7 +58,7 @@ d := D()$L --R --R --R (4) D ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(t,AlgebraicNumber) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 5 --S 6 of 16 @@ -78,7 +78,7 @@ op := d**2 + t * d + 1 --R --R 2 --R (6) D + t D + 1 ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(t,AlgebraicNumber) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 7 --S 8 of 16 @@ -86,7 +86,7 @@ factor op --R --R --R (7) [D,D + t] ---RType: List LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(t,AlgebraicNumber) +--IType: List LinearOrdinaryDifferentialOperator1 Fraction ... --E 8 \end{chunk} @@ -98,7 +98,7 @@ op := 2*t**3 * d**2 + 3*t**2 * d - 2 --R --R 3 2 2 --R (8) 2t D + 3t D - 2 ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(t,AlgebraicNumber) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 9 --S 10 of 16 @@ -107,7 +107,7 @@ factor op --R --R 3 2 2 --R (9) [2t D + 3t D - 2] ---RType: List LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(t,AlgebraicNumber) +--IType: List LinearOrdinaryDifferentialOperator1 Fraction ... --E 10 \end{chunk} @@ -119,7 +119,7 @@ op := 2*t**3 * d**3 - (2*t**4 - 9*t**2) * d**2 - (3*t**3 - 6*t + 2) * d + 2*t --R --R 3 3 4 2 2 3 --R (10) 2t D + (- 2t + 9t )D + (- 3t + 6t - 2)D + 2t ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(t,AlgebraicNumber) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 11 --S 12 of 16 @@ -128,7 +128,7 @@ factor op --R --R 3 2 4 2 5 3 --R (11) [- D + t,- 2t D + (- 8t - 3t )D - 8t - 10t + 2] ---RType: List LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(t,AlgebraicNumber) +--IType: List LinearOrdinaryDifferentialOperator1 Fraction ... --E 12 \end{chunk} @@ -140,7 +140,7 @@ op := (t**9 + t**3) * d**3 + 18 * t**8 * d**2 - 90 * t * d - 30 * (11*t**6-3) --R --R 9 3 3 8 2 6 --R (12) (t + t )D + 18t D - 90t D - 330t + 90 ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(t,AlgebraicNumber) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 13 --S 14 of 16 @@ -158,7 +158,7 @@ factor op --R D + -------] --R 7 --R t + t ---RType: List LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(t,AlgebraicNumber) +--IType: List LinearOrdinaryDifferentialOperator1 Fraction ... --E 14 \end{chunk} @@ -172,7 +172,7 @@ op := d**3 + 2 * d**2 + 5 / t * d + 7 / t**2 --R (14) D + 2D + - D + -- --R t 2 --R t ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(t,AlgebraicNumber) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 15 --S 16 of 16 @@ -183,7 +183,7 @@ factor op --R (15) [D + 2D + - D + --] --R t 2 --R t ---RType: List LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(t,AlgebraicNumber) +--IType: List LinearOrdinaryDifferentialOperator1 Fraction ... --E 16 )spool )lisp (bye) diff --git a/src/input/lpoly.input.pamphlet b/src/input/lpoly.input.pamphlet index 343ad8f..18e03a4 100644 --- a/src/input/lpoly.input.pamphlet +++ b/src/input/lpoly.input.pamphlet @@ -172,7 +172,8 @@ mirror t --E 18 --S 19 of 28 -Jacobi(p: Lpoly, q: Lpoly, r: Lpoly): Lpoly == [[p,q]$Lpoly, r] + [[q,r]$Lpoly, p] + [[r,p]$Lpoly, q] +Jacobi(p: Lpoly, q: Lpoly, r: Lpoly): Lpoly == + [[p,q]$Lpoly, r] + [[q,r]$Lpoly, p] + [[r,p]$Lpoly, q] --R --R Function declaration Jacobi : (LiePolynomial(Symbol,Fraction Integer --R ),LiePolynomial(Symbol,Fraction Integer),LiePolynomial(Symbol, diff --git a/src/input/mapleok.input.pamphlet b/src/input/mapleok.input.pamphlet index 0e433c2..b7b81fb 100644 --- a/src/input/mapleok.input.pamphlet +++ b/src/input/mapleok.input.pamphlet @@ -146,7 +146,8 @@ in1112a:=integrate((1-1/z)^(1/2), z= %pi..2*%pi,"noPole") --E 11 --S 12 of 224 -in1114a:=integrate(-z-(1/2*2^(1/2)+1/2*%i*2^(1/2))*z^(1/2), z= 1..%plusInfinity,"noPole") +in1114a:=integrate(-z-(1/2*2^(1/2)+1/2*%i*2^(1/2))*z^(1/2), _ + z= 1..%plusInfinity,"noPole") --R --R --R (12) - infinity @@ -255,7 +256,27 @@ in1167a:=integrate((z^2)^(1/6), z= -3..-1,"noPole") --E 23 --S 24 of 224 -in1180:=integrate(z^(1/3)/(z^2+1), z= 0..10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) +in1180:=integrate(z^(1/3)/(z^2+1), z= 0..1000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +0000000000000000000000000000000000000000000000000000000000000000) --R --R --R (24) potentialPole @@ -263,7 +284,27 @@ in1180:=integrate(z^(1/3)/(z^2+1), z= 0..100000000000000000000000000000000000000 --E 24 --S 25 of 224 -in1180:=integrate(z^(1/3)/(z^2+1), z= 0..10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000,"noPole") +in1180:=integrate(z^(1/3)/(z^2+1), z= 0..1000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +000000000000000000000000000000000000000000000000000000000000000000000000000_ +0000000000000000000000000000000000000000000000000000000000000000,"noPole") --R --R --R (25) @@ -2402,7 +2443,8 @@ in1314a:=integrate(log(1-z)*atanh(z^(1/2)), z= 0..1,"noPole") --E 52 --S 53 of 224 -in1359a:=integrate((%i*z)^(1/2)*(-%i*z)^(1/2), z= %minusInfinity..%plusInfinity,"noPole") +in1359a:=integrate((%i*z)^(1/2)*(-%i*z)^(1/2), _ + z= %minusInfinity..%plusInfinity,"noPole") --R --R --R (53) + infinity @@ -5447,7 +5489,8 @@ integrate(1/sqrt(20+x^2+y^2), x = -5..5,"noPole") --E 216 --S 217 of 224 -in291:=integrate(cos(2*atan(z-sqrt(2)))-sin(2*atan(z-sqrt(2))), z = 0..%plusInfinity) +in291:=integrate(cos(2*atan(z-sqrt(2)))-sin(2*atan(z-sqrt(2))), _ + z = 0..%plusInfinity) --R --R --R (217) - infinity @@ -5463,7 +5506,8 @@ in2992a:=integrate(acoth(1-z^(1/2))+log(1+z^(1/3)), z= 1..%plusInfinity,"noPole" --E 218 --S 219 of 224 -in2997a:=integrate(log(1+1/z^3)-log(abs(1+z)), z= %minusInfinity..%plusInfinity,"noPole") +in2997a:=integrate(log(1+1/z^3)-log(abs(1+z)), _ + z= %minusInfinity..%plusInfinity,"noPole") --R --R --R (219) - infinity diff --git a/src/input/marcbench.input.pamphlet b/src/input/marcbench.input.pamphlet index 3e7a192..8d8d146 100644 --- a/src/input/marcbench.input.pamphlet +++ b/src/input/marcbench.input.pamphlet @@ -76,10 +76,14 @@ z: P := 'z; t: P := 't; u: P := 'u; f0 := u-2; -f1:= 2*(u-1)^2+2*(x-z*x+z^2)+y^2*(x-1)^2-2*u*x+2*y*t*(1-x)*(x-z)+2*u*z*t*(t-y)+u^2*t^2*(1-2*z)+2*u*t^2*(z-x)+2*u*t*y*(z-1)+2*u*z*x*(y+1)+(u^2-2*u)*z^2*t^2+2*u^2*z^2+4*u*(1-u)*z+t^2*(z-x)^2; -f2:= t*(2*z+1)*(x-z)+y*(z+2)*(1-x)+u*(u-2)*t+u*(1-2*u)*z*t+u*y*(x+u-z*x-1)+u*(u+1)*z^2*t; +f1:= 2*(u-1)^2+2*(x-z*x+z^2)+y^2*(x-1)^2-2*u*x+2*y*t*(1-x)*(x-z)+_ + 2*u*z*t*(t-y)+u^2*t^2*(1-2*z)+2*u*t^2*(z-x)+2*u*t*y*(z-1)+_ + 2*u*z*x*(y+1)+(u^2-2*u)*z^2*t^2+2*u^2*z^2+4*u*(1-u)*z+t^2*(z-x)^2; +f2:= t*(2*z+1)*(x-z)+y*(z+2)*(1-x)+u*(u-2)*t+u*(1-2*u)*z*t+u*y*(x+u-z*x-1)+_ + u*(u+1)*z^2*t; f3:= -u^2*(z-1)^2+2*z*(z-x)-2*(x-1); -f4:= u^2+4*(z-x^2)+3*y^2*(x-1)^2-3*t^2*(z-x)^2 +3*u^2*t^2*(z-1)^2+u^2*z*(z-2)+6*u*t*y*(z+x+z*x-1); +f4:= u^2+4*(z-x^2)+3*y^2*(x-1)^2-3*t^2*(z-x)^2 +3*u^2*t^2*(z-1)^2+_ + u^2*z*(z-2)+6*u*t*y*(z+x+z*x-1); lp :=[f0,f1,f2,f3,f4]; @@ -113,7 +117,12 @@ y: P := 'y; z: P := 'z; f1 := 7*y**4 - 20*x**2 ; f2:= (2160*x**2 + 1512*x +315)*z**4-4000*x**2-2800*x-490 ; -f3 := (67200000*x**5 + 94080000*x**4 + 40924800*x**3 + 2634240*x**2-2300844*x-432180)*y**3 + ((40320000*x**6 + 28800000*x**5 + 21168000*x**3 + 4939200*x**2 + 347508*x)*z)*y**2 + ((-23520000*x**4-41395200*x**3-26726560*x**2-7727104*x-852355)*z**2)*y + (-10080000*x**4-28224000*x**3-15288000*x**2-1978032*x-180075)*z**3 ; +f3 := (67200000*x**5 + 94080000*x**4 + 40924800*x**3 + 2634240*x**2-_ + 2300844*x-432180)*y**3 + ((40320000*x**6 + 28800000*x**5 + _ + 21168000*x**3 + 4939200*x**2 + 347508*x)*z)*y**2 + _ + ((-23520000*x**4-41395200*x**3-26726560*x**2-7727104*x-_ + 852355)*z**2)*y + (-10080000*x**4-28224000*x**3-15288000*x**2-_ + 1978032*x-180075)*z**3 ; lp := [f1,f2,f3]; @@ -275,8 +284,10 @@ LP := List(P); x: P := 'x; y: P := 'y; t: P := 't; -p1 := x-110*t^2+495*t^3-1320*t^4+2772*t^5-5082*t^6+7590*t^7-8085*t^8+5555*t^9-2189*t^10+374*t^11; -p2 := y-22*t+110*t^2-330*t^3+1848*t^5-3696*t^6+3300*t^7-1650*t^8+550*t^9-88*t^10-22*t^11; +p1 := x-110*t^2+495*t^3-1320*t^4+2772*t^5-5082*t^6+7590*t^7-_ + 8085*t^8+5555*t^9-2189*t^10+374*t^11; +p2 := y-22*t+110*t^2-330*t^3+1848*t^5-3696*t^6+3300*t^7-1650*t^8+_ + 550*t^9-88*t^10-22*t^11; lp := [p1, p2]; T := REGSET(R,E,V,P); @@ -407,7 +418,8 @@ output(" Ex. 11: Wu-Wang-2" ) ----------------------------------------------------------------------------- )clear all -ls : List Symbol := reverse [x10,x11,x12,x13,x21,x22,x23,x30,x101,x102,x103,x104,x105]; +ls : List Symbol := _ + reverse [x10,x11,x12,x13,x21,x22,x23,x30,x101,x102,x103,x104,x105]; V := OVAR(ls); R := Integer; E := IndexedExponents V; @@ -486,9 +498,11 @@ u4: P := 'u4; u3: P := 'u3; u2: P := 'u2; p1 := 2*u6 + 2*u5 + 2*u4 + 2*u3 + 2*u2 + 1; -p2 := 8*U5*u6 + 8*U5*u5 + 8*U4*u6 +8*U4*u5 + 8*U4*u4 + 8*U3*u6 + 8*U3*u5 + 8*U3*u4 + 8*U3*u3 + 8*U2*u6 +8*U2*u5 + 8*U2*u4 + 8*U2*u3 + 8*U2*u2 -13; +p2 := 8*U5*u6 + 8*U5*u5 + 8*U4*u6 +8*U4*u5 + 8*U4*u4 + 8*U3*u6 + 8*U3*u5 + _ + 8*U3*u4 + 8*U3*u3 + 8*U2*u6 +8*U2*u5 + 8*U2*u4 + 8*U2*u3 + 8*U2*u2 -13; p3 := 2*U6 + 2*U5 + 2*U4 + 2*U3 +2*U2 + 1; -p4 := 8*U6*u5 + 8*U6*u4 + 8*U6*u3 + 8*U6*u2 + 8*U5*u5 + 8*U5*u4 +8*U5*u3 + 8*U5*u2 + 8*U4*u4 + 8*U4*u3 + 8*U4*u2 + 8*U3*u3 + 8*U3*u2 +8*U2*u2 -13; +p4 := 8*U6*u5 + 8*U6*u4 + 8*U6*u3 + 8*U6*u2 + 8*U5*u5 + 8*U5*u4 +8*U5*u3 + _ + 8*U5*u2 + 8*U4*u4 + 8*U4*u3 + 8*U4*u2 + 8*U3*u3 + 8*U3*u2 +8*U2*u2 -13; p6 := U2*u2 -1; p7 := U3*u3 -1; p8 := U4*u4 -1; diff --git a/src/input/mathml.input.pamphlet b/src/input/mathml.input.pamphlet index 5004260..45c1770 100644 --- a/src/input/mathml.input.pamphlet +++ b/src/input/mathml.input.pamphlet @@ -51,7 +51,7 @@ coerce(%)$MMLFORM display(coerce(%)$MMLFORM)$MMLFORM --R --R ---Ry2+2xy+x2 +--Iy2... --R --R Type: Void --E 4 @@ -65,7 +65,7 @@ display(coerce(%)$MMLFORM)$MMLFORM --R 2 2 --R (5) y + 2x y + x --R ---Ry2+2xy+x2 +--Iy2... --R --R --R Type: Polynomial Integer @@ -80,7 +80,7 @@ integrate(x**x,x) --R (6) | %I d%I --R ++ --R ---R∫xxⅆx +--I∫x... --R --R --R Type: Union(Expression Integer,...) @@ -95,7 +95,7 @@ integral(x**x,x) --R (7) | %I d%I --R ++ --R ---R∫xxⅆx +--I∫x... --R --R --R Type: Expression Integer @@ -109,7 +109,7 @@ integral(x**x,x) --R 3| +-+ --R (8) \|14\|7 + 5 --R ---R147+53 +--I14... --R --R --R Type: AlgebraicNumber @@ -121,7 +121,7 @@ set [1,2,3] --R --R (9) {1,2,3} --R ---R{1,2,3} +--I{1,2,... --R --R --R Type: Set PositiveInteger @@ -133,7 +133,7 @@ multiset [x rem 5 for x in primes(2,1000)] --R --R (10) {0,40: 1,47: 2,42: 3,38: 4} --R ---R{0,40: 1,47: 2,42: 3,38: 4} +--I{0,40... --R --R --R Type: Multiset Integer @@ -148,7 +148,7 @@ series(sin(a*x),x=0) --R (11) a x - -- x + --- x - ---- x + ------ x - -------- x + O(x ) --R 6 120 5040 362880 39916800 --R ---Rax-a36x3+a5120x5-a75040x7+a9362880x9-a1139916800x11+O(x12) +--Iax... --R --R --R Type: UnivariatePuiseuxSeries(Expression Integer,x,0) @@ -200,7 +200,7 @@ matrix [[xi+yj for i in 1..10] for j in 1..10] --R yj + xi, yj + xi] --R ] --R ---R[yj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xiyj+xi] +--I[yj+... --R --R --R Type: Matrix Polynomial Integer @@ -225,7 +225,7 @@ D(y(x,z),[x,x,z,x]) --R (14) y (x,z) --R ,1,1,2,1 --R ---Ry,1,1,2,1(x,z) +--Iy,1,1,... --R --R --R Type: Expression Integer @@ -253,7 +253,7 @@ D(y x,x,2) --R (2) y (x) --R --R ---Ry′′⁡(x) +--Iy′′... --R --R --R Type: Expression Integer @@ -284,7 +284,7 @@ sin(1+x) --R - ------ x - ------ x + ------ x + ------ x - ------- x + O(x ) --R 720 5040 40320 362880 3628800 --R ---Rsin(1)+cos(1)x-sin(1)2x2-cos(1)6x3+sin(1)24x4+cos(1)120x5-sin(1)720x6-cos(1)5040x7+sin(1)40320x8+cos(1)362880x9-sin(1)3628800x10+O(x11) +--Isin(1)... --R --R --R Type: UnivariatePuiseuxSeries(Expression Integer,x,0) @@ -309,7 +309,7 @@ series(1/log(y),y=1) --R - --------- (y - 1) + O((y - 1) ) --R 479001600 --R ---R(y-1)(-1)+12-112(y-1)+124(y-1)2-19720(y-1)3+3160(y-1)4-86360480(y-1)5+27524192(y-1)6-339533628800(y-1)7+81831036800(y-1)8-3250433479001600(y-1)9+O((y-1)10) +--I(y-... --R --R --R Type: UnivariatePuiseuxSeries(Expression Integer,y,1) @@ -337,7 +337,7 @@ y:UTS(FLOAT,'z,0):=exp(z) --R 10 11 --R 0.2755731922 3985890653 E -6 z + O(z ) --R ---R1.0+z+0.5z2+0.1666666666 6666666667z3+0.0416666666 6666666666 7z4+0.0083333333 3333333333 34z5+0.0013888888 8888888888 89z6+0.0001984126 9841269841 27z7+0.0000248015 8730158730 1587z8+0.0000027557 3192239858 90653z9+0.2755731922 3985890653 E -6z10+O(z11) +--I1.0+z+0.5... --R --R --R Type: UnivariateTaylorSeries(Float,z,0.0) @@ -351,7 +351,7 @@ c:=continuedFraction(314159/100000) --R (2) 3 + +---+ + +----+ + +---+ + +----+ + +---+ + +---+ + +---+ --R | 7 | 15 | 1 | 25 | 1 | 7 | 4 --R ---R3+17+115+11+125+11+17+14 +--I3+17... --R --R --R Type: ContinuedFraction Integer diff --git a/src/input/matrox.input.pamphlet b/src/input/matrox.input.pamphlet index 8726752..a30ab8a 100644 --- a/src/input/matrox.input.pamphlet +++ b/src/input/matrox.input.pamphlet @@ -37,8 +37,10 @@ pointColor pastel yellow(); lineColor pastel blue(); --)r "/spad/graphics/oldInput/curl" rc := range curl1 ---draw2D(rc.xRange,rc.yRange,sin(t)*sin(2*t)*sin(3*t),sin(4*t)*sin(5*t)*sin(6*t),0..2*pi()) -draw(curve(sin(t)*sin(2*t)*sin(3*t),sin(4*t)*sin(5*t)*sin(6*t)),t=0..2*pi(),[ranges([rc.0,rc.1])]) +--draw2D(rc.xRange,rc.yRange,sin(t)*sin(2*t)*sin(3*t),_ +-- sin(4*t)*sin(5*t)*sin(6*t),0..2*pi()) +draw(curve(sin(t)*sin(2*t)*sin(3*t),sin(4*t)*sin(5*t)*sin(6*t)),_ + t=0..2*pi(),[ranges([rc.0,rc.1])]) curl2:=getGraph(c2:=%,1) curl:=viewport2D() diff --git a/src/input/mult2d.input.pamphlet b/src/input/mult2d.input.pamphlet index 1e2c3ce..05109ca 100644 --- a/src/input/mult2d.input.pamphlet +++ b/src/input/mult2d.input.pamphlet @@ -42,8 +42,9 @@ makeListFuns(fl:List(Expression Integer),_ seg:SegmentBinding Float):List(SF->SF) == lfuns:List(SF->SF) := empty() for f in fl repeat - ff : (SF->SF) := makeFloatFunction(f, variable seg)$MakeFloatCompiledFunction(Expression Integer) - lfuns := cons(ff, lfuns) + ff : (SF->SF) := _ + makeFloatFunction(f,variable seg)$MakeFloatCompiledFunction(Expression Integer) + lfuns := cons(ff, lfuns) lfuns drawFuns(makeListFuns([x**i for i in 1..5], x=-1..1), x=-1..1) diff --git a/src/input/mult3d.input.pamphlet b/src/input/mult3d.input.pamphlet index ca423fb..88a76c2 100644 --- a/src/input/mult3d.input.pamphlet +++ b/src/input/mult3d.input.pamphlet @@ -20,11 +20,13 @@ )clear all s := create3Space()$ThreeSpace(DFLOAT) draw(curve(sin(t),cos(t),0),t=0..2*%pi,tubeRadius==.3, space == s) -draw(curve(sin(t)*cos(%pi/2),cos(t),0-sin(t)*sin(%pi/2)),t=0..2*%pi,tubeRadius==.3, space == s) +draw(curve(sin(t)*cos(%pi/2),cos(t),0-sin(t)*sin(%pi/2)),_ + t=0..2*%pi,tubeRadius==.3, space == s) v1 := draw(curve(sin(t),cos(t),0),t=0..2*%pi,tubeRadius==.3) s1 := subspace(v1) -v2 := draw(curve(sin(t)*cos(%pi/2),cos(t),0-sin(t)*sin(%pi/2)),t=0..2*%pi,tubeRadius==.3, space == s1) +v2 := draw(curve(sin(t)*cos(%pi/2),cos(t),0-sin(t)*sin(%pi/2)),_ + t=0..2*%pi,tubeRadius==.3, space == s1) s2 := subspace(v2) )clear all @@ -35,15 +37,20 @@ makeObject(curve(4*sin(t),4*cos(t),0),t=0..2*%pi,tubeRadius==.3, space == s) draw(curve(4*sin(t),4*cos(t),4),t=0..2*%pi,tubeRadius==.3, space == s) )clear all -s := makeObject(surface(cos(t)*sin(p),sin(t)*sin(p),cos(p)),t=0..2*%pi,p=0..%pi) -makeObject(curve(4*sin(t)*cos(%pi/2),4*cos(t),0-sin(t)*sin(%pi/2)),t=0..2*%pi,tubeRadius==.3, space == s) +s := makeObject(surface(cos(t)*sin(p),sin(t)*sin(p),cos(p)),_ + t=0..2*%pi,p=0..%pi) +makeObject(curve(4*sin(t)*cos(%pi/2),4*cos(t),0-sin(t)*sin(%pi/2)),_ + t=0..2*%pi,tubeRadius==.3, space == s) draw(curve(2*sin(t),2*cos(t),0),t=0..2*%pi,tubeRadius==.3, space == s) )clear all s := makeObject(curve(4*sin(t),4*cos(t),0),t=0..2*%pi,tubeRadius==.3) -makeObject(surface(cos(t)*sin(p),sin(t)*sin(p),cos(p)),t=0..2*%pi,p=0..%pi, space == s) -makeObject(surface(cos(t)*sin(p)-3,sin(t)*sin(p)-3,cos(p)+2),t=0..2*%pi,p=0..%pi, space == s) -draw(surface(cos(t)*sin(p)-6,sin(t)*sin(p)-6,cos(p)+4),t=0..2*%pi,p=0..%pi, space == s) +makeObject(surface(cos(t)*sin(p),sin(t)*sin(p),cos(p)),_ + t=0..2*%pi,p=0..%pi, space == s) +makeObject(surface(cos(t)*sin(p)-3,sin(t)*sin(p)-3,cos(p)+2),_ + t=0..2*%pi,p=0..%pi, space == s) +draw(surface(cos(t)*sin(p)-6,sin(t)*sin(p)-6,cos(p)+4),_ + t=0..2*%pi,p=0..%pi, space == s) )clear all s := create3Space()$ThreeSpace(DFLOAT) @@ -65,7 +72,8 @@ torusInKnot(p,q,r) == draw(Curve, t=0..2*%pi, tubeRadius == r, title == Title, space == sp) torusInKnot(15,17,.1) -draw(curve(2.2*sin(t),2.2*cos(t),0),t=0..2*%pi,tubePoints==10,tubeRadius==.7, space == sp) +draw(curve(2.2*sin(t),2.2*cos(t),0),t=0..2*%pi,_ + tubePoints==10,tubeRadius==.7, space == sp) \end{chunk} \eject \begin{thebibliography}{99} diff --git a/src/input/multknot.input.pamphlet b/src/input/multknot.input.pamphlet index 5a9fc77..1bd2217 100644 --- a/src/input/multknot.input.pamphlet +++ b/src/input/multknot.input.pamphlet @@ -33,7 +33,8 @@ torusInKnot(p,q,r) == torusInKnot(15,17,.1) cfxn(t:DFLOAT):DFLOAT == .7 --draw(sp,curve(3*sin(t),3*cos(t),0),t=0..2*%pi,tubePoints==10,tubeRadius==.7) -draw(curve(2.4*sin(t),2.4*cos(t),0),t=0..2*%pi,tubePoints==10,tubeRadius==.8,colorFunction==cfxn, space == sp) +draw(curve(2.4*sin(t),2.4*cos(t),0),_ + t=0..2*%pi,tubePoints==10,tubeRadius==.8,colorFunction==cfxn, space == sp) \end{chunk} \eject \begin{thebibliography}{99} diff --git a/src/input/newlodo.input.pamphlet b/src/input/newlodo.input.pamphlet index c55bd2b..245d0b7 100644 --- a/src/input/newlodo.input.pamphlet +++ b/src/input/newlodo.input.pamphlet @@ -50,7 +50,7 @@ Dx := D() -- definition of an operator --R --R --R (3) D ---RType: LinearOrdinaryDifferentialOperator2(Fraction Integer,UnivariatePolynomial(x,Fraction Integer)) +--IType: LinearOrdinaryDifferentialOperator2(Fraction Integer,... --E 3 --S 4 of 55 @@ -58,7 +58,7 @@ a := Dx + 1 --R --R --R (4) D + 1 ---RType: LinearOrdinaryDifferentialOperator2(Fraction Integer,UnivariatePolynomial(x,Fraction Integer)) +--IType: LinearOrdinaryDifferentialOperator2(Fraction Integer,... --E 4 --S 5 of 55 @@ -68,7 +68,7 @@ b := a + 1/2*Dx**2 - 1/2 --R 1 2 1 --R (5) - D + D + - --R 2 2 ---RType: LinearOrdinaryDifferentialOperator2(Fraction Integer,UnivariatePolynomial(x,Fraction Integer)) +--IType: LinearOrdinaryDifferentialOperator2(Fraction Integer,... --E 5 --S 6 of 55 @@ -108,7 +108,7 @@ c := (1/9)*b*(a + b)**2 -- exponentiation follows from multiplication --R 1 6 5 5 13 4 19 3 79 2 7 1 --R (9) -- D + -- D + -- D + -- D + -- D + -- D + - --R 72 36 24 18 72 12 8 ---RType: LinearOrdinaryDifferentialOperator2(Fraction Integer,UnivariatePolynomial(x,Fraction Integer)) +--IType: LinearOrdinaryDifferentialOperator2(Fraction Integer,... --E 9 --S 10 of 55 @@ -145,7 +145,7 @@ Dx := D() --R --R --R (3) D ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 13 --S 14 of 55 @@ -155,7 +155,7 @@ b := 3*x**2*Dx**2 + 2*Dx + 1/x --R 2 2 1 --R (4) 3x D + 2D + - --R x ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 14 --S 15 of 55 @@ -165,7 +165,7 @@ a := b*(5*x*Dx + 7) --R 3 3 2 2 7 --R (5) 15x D + (51x + 10x)D + 29D + - --R x ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 15 --S 16 of 55 @@ -203,7 +203,7 @@ leftDivide(a,b) -- result is the quotient/remainder pair --R --R --R (8) [quotient= 5x D + 7,remainder= 0] ---RType: Record(quotient: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer),remainder: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer)) +--IType: Record(quotient: LinearOrdinaryDifferentialOperator1 ... --E 18 --S 19 of 55 @@ -211,7 +211,7 @@ a - (b * %.quotient + %.remainder) --R --R --R (9) 0 ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 19 --S 20 of 55 @@ -221,7 +221,7 @@ rightDivide(a,b) --R 5 --R (10) [quotient= 5x D + 7,remainder= 10D + -] --R x ---RType: Record(quotient: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer),remainder: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer)) +--IType: Record(quotient: LinearOrdinaryDifferentialOperator1 ... --E 20 --S 21 of 55 @@ -229,7 +229,7 @@ a - (%.quotient * b + %.remainder) --R --R --R (11) 0 ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 21 \end{chunk} @@ -242,7 +242,7 @@ e := leftGcd(a,b) --R 2 2 1 --R (12) 3x D + 2D + - --R x ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction --E 22 --S 23 of 55 @@ -250,7 +250,7 @@ leftRemainder(a, e) -- remainder from left division --R --R --R (13) 0 ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 23 --S 24 of 55 @@ -260,7 +260,7 @@ rightRemainder(a, e) -- remainder from right division --R 5 --R (14) 10D + - --R x ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 24 \end{chunk} @@ -273,7 +273,7 @@ f := rightLcm(a,b) --R 3 3 2 2 7 --R (15) 15x D + (51x + 10x)D + 29D + - --R x ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 25 --S 26 of 55 @@ -281,7 +281,7 @@ leftRemainder(f, b) --R --R --R (16) 0 ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 26 --S 27 of 55 @@ -291,7 +291,7 @@ rightRemainder(f, b) -- the remainder is non-zero --R 5 --R (17) 10D + - --R x ---RType: LinearOrdinaryDifferentialOperator1 Fraction UnivariatePolynomial(x,Integer) +--IType: LinearOrdinaryDifferentialOperator1 Fraction ... --E 27 \end{chunk} @@ -315,7 +315,7 @@ Dx := D() --R --R --R (2) D ---IType: LinearOrdinaryDifferentialOperator(Expression Integer,theMap LAMBDA-CLOSURE(NIL,NIL,NIL,G1500 envArg,SPADCALL(G1500,QUOTE x,ELT(*1;anonymousFunction;0;initial;internal;MV,0)))) +--IType: LinearOrdinaryDifferentialOperator(Expression Integer,... --E 29 --S 30 of 55 @@ -327,7 +327,7 @@ Dop:= Dx**3 + G/x**2*Dx + H/x**3 - 1 --R (3) D + -- D + -------- --R 2 3 --R x x ---IType: LinearOrdinaryDifferentialOperator(Expression Integer,theMap LAMBDA-CLOSURE(NIL,NIL,NIL,G1500 envArg,SPADCALL(G1500,QUOTE x,ELT(*1;anonymousFunction;0;initial;internal;MV,0)))) +--IType: LinearOrdinaryDifferentialOperator(Expression Integer,... --E 30 --S 31 of 55 @@ -610,7 +610,7 @@ p := directProduct([3*x**2 + 1, 2*x, 7*x**3 + 2*x]::(VECTOR(PZ)))@Vect --R --R 2 3 --R (3) [3x + 1,2x,7x + 2x] ---RType: DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer)) +--IType: DirectProductMatrixModule(3,... --E 46 --S 47 of 55 @@ -637,7 +637,7 @@ q: Vect := m * p --R --R 4 2 5 2 5 3 --R (5) [3x + x + 2x,2x + 3x + 1,28x + 8x ] ---RType: DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer)) +--IType: DirectProductMatrixModule(3,... --E 48 \end{chunk} @@ -648,7 +648,7 @@ Dx: Modo := D() --R --R --R (6) D ---RType: LinearOrdinaryDifferentialOperator2(SquareMatrix(3,UnivariatePolynomial(x,Integer)),DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer))) +--IType: LinearOrdinaryDifferentialOperator2(... --E 49 --S 50 of 55 @@ -663,7 +663,7 @@ a: Modo := 1*Dx + m --R | | --R | 2| --R +0 0 4x + ---RType: LinearOrdinaryDifferentialOperator2(SquareMatrix(3,UnivariatePolynomial(x,Integer)),DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer))) +--IType: LinearOrdinaryDifferentialOperator2(... --E 50 --S 51 of 55 @@ -678,7 +678,7 @@ b: Modo := m*Dx + 1 --R | | +0 0 1+ --R | 2| --R +0 0 4x + ---RType: LinearOrdinaryDifferentialOperator2(SquareMatrix(3,UnivariatePolynomial(x,Integer)),DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer))) +--IType: LinearOrdinaryDifferentialOperator2(... --E 51 --S 52 of 55 @@ -694,7 +694,7 @@ a*b --R | | | | | | --R | 2| | 4 | | 2| --R +0 0 4x + + 0 0 16x + 8x + 1+ +0 0 4x + ---RType: LinearOrdinaryDifferentialOperator2(SquareMatrix(3,UnivariatePolynomial(x,Integer)),DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer))) +--IType: LinearOrdinaryDifferentialOperator2(... --E 52 --S 53 of 55 @@ -703,7 +703,7 @@ a p --R --R 4 2 5 2 5 3 2 --R (10) [3x + x + 8x,2x + 3x + 3,28x + 8x + 21x + 2] ---RType: DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer)) +--IType: DirectProductMatrixModule(3,... --E 53 --S 54 of 55 @@ -712,7 +712,7 @@ b p --R --R 3 2 4 4 3 2 --R (11) [6x + 3x + 3,2x + 8x,84x + 7x + 8x + 2x] ---RType: DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer)) +--IType: DirectProductMatrixModule(3,... --E 54 --S 55 of 55 @@ -726,7 +726,7 @@ b p --R 2x + 10x + 3x + 10x + 16x + 12x + 7x + 18x + 6, --R 7 6 5 4 3 2 --R 112x + 560x + 88x + 320x + 23x + 53x + 2x + 2] ---RType: DirectProductMatrixModule(3,UnivariatePolynomial(x,Integer),SquareMatrix(3,UnivariatePolynomial(x,Integer)),UnivariatePolynomial(x,Integer)) +--IType: DirectProductMatrixModule(3,... --E 55 )spool )lisp (bye) diff --git a/src/input/newton.input.pamphlet b/src/input/newton.input.pamphlet index 377fb79..5904e15 100644 --- a/src/input/newton.input.pamphlet +++ b/src/input/newton.input.pamphlet @@ -42,7 +42,8 @@ newtonStep(f) == Create complex numeric functions from an expression \begin{chunk}{*} --S 2 of 5 -complexFunPack := MakeUnaryCompiledFunction(EXPR INT, Complex DoubleFloat, Complex DoubleFloat) +complexFunPack := _ + MakeUnaryCompiledFunction(EXPR INT, Complex DoubleFloat, Complex DoubleFloat) --R --R --R (2) diff --git a/src/input/ntube.input.pamphlet b/src/input/ntube.input.pamphlet index e16301b..b336b6f 100644 --- a/src/input/ntube.input.pamphlet +++ b/src/input/ntube.input.pamphlet @@ -26,8 +26,10 @@ R3 := Point DoubleFloat -- Points in 3-Space R2 := Point DoubleFloat -- Points in 2-Space S := Segment Float -- Draw ranges ThreeCurve := DoubleFloat -> R3 -- type of a space curve function -TwoCurve := (DoubleFloat, DoubleFloat) -> R2 -- type of a plane curve function -Surface := (DoubleFloat, DoubleFloat) -> R3 -- type of a parameterized surface function +-- type of a plane curve function +TwoCurve := (DoubleFloat, DoubleFloat) -> R2 +-- type of a parameterized surface function +Surface := (DoubleFloat, DoubleFloat) -> R3 -- Frenet frames define a coordinate system around a point on a space curve FrenetFrame := Record(value: R3, tagent: R3, normal: R3, binormal: R3) diff --git a/src/input/oct.input.pamphlet b/src/input/oct.input.pamphlet index 917f203..fd1f59a 100644 --- a/src/input/oct.input.pamphlet +++ b/src/input/oct.input.pamphlet @@ -53,7 +53,8 @@ oci3 := octon(quatern(-7,-12,3,-10), quatern(5,6,9,0)) --E 4 --S 5 of 15 -[real oci1, imagi oci1, imagj oci1, imagk oci1, imagE oci1, imagI oci1, imagJ oci1, imagK oci1] +[real oci1, imagi oci1, imagj oci1, imagk oci1, imagE oci1, _ + imagI oci1, imagJ oci1, imagK oci1] --R --R --R (5) [1,2,3,4,5,6,7,8] diff --git a/src/input/ode.input.pamphlet b/src/input/ode.input.pamphlet index ed4becd..ec38066 100644 --- a/src/input/ode.input.pamphlet +++ b/src/input/ode.input.pamphlet @@ -52,7 +52,7 @@ solve(deqx,y,x) --OK --R x\|3 2 2 x\|3 --R (3) [particular= 0,basis= [cos(-----)%e ,%e sin(-----)]] --R 2 2 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 3 --S 4 of 11 @@ -86,7 +86,7 @@ solve(deqt,y,t) --OK --R t\|3 2 2 t\|3 --R (6) [particular= 0,basis= [cos(-----)%e ,%e sin(-----)]] --R 2 2 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 6 --S 7 of 11 @@ -120,7 +120,7 @@ solve(deqz,y,z) --OK --R z\|3 2 2 z\|3 --R (9) [particular= 0,basis= [cos(-----)%e ,%e sin(-----)]] --R 2 2 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 9 --S 10 of 11 diff --git a/src/input/paff.input.pamphlet b/src/input/paff.input.pamphlet index 702f8bc..9d02ab8 100644 --- a/src/input/paff.input.pamphlet +++ b/src/input/paff.input.pamphlet @@ -140,7 +140,8 @@ BB:=BlowUpPackage(K,symb,PolyRing,E,BLMET) --E 13 --S 14 of 26 -P:= GeneralPackageForAlgebraicFunctionField(K,symb,PolyRing,E,ProjPt, PCS,Plc,DIVISOR,InfClsPoint,DesTree,BLMET) +P:= GeneralPackageForAlgebraicFunctionField(K,symb,PolyRing,E,ProjPt, _ + PCS,Plc,DIVISOR,InfClsPoint,DesTree,BLMET) --R --R --R (14) @@ -291,7 +292,7 @@ f:PolyRing:= x**28*z**8 + 4*x**26*z**10 + 6*x**24*z**12 + 4*x**22*z**14 + _ --R + --R 5 27 4 36 20 16 --R 4x y z + y - 2y z ---RType: DistributedMultivariatePolynomial([x,y,z],PseudoAlgebraicClosureOfRationalNumber) +--IType: DistributedMultivariatePolynomial(... --E 24 --S 25 of 26 @@ -307,7 +308,7 @@ fh:=homogenize(f,3)$P --R + --R 5 27 4 36 20 16 --R 4x y z + y - 2y z ---RType: DistributedMultivariatePolynomial([x,y,z],PseudoAlgebraicClosureOfRationalNumber) +--IType: DistributedMultivariatePolynomial([x,y,z],... --E 25 --S 26 of 26 @@ -323,7 +324,7 @@ setCurve(fh)$P --R + --R 5 27 4 36 20 16 --R 4x y z + y - 2y z ---RType: DistributedMultivariatePolynomial([x,y,z],PseudoAlgebraicClosureOfRationalNumber) +--IType: DistributedMultivariatePolynomial([x,y,z],... --E 26 )spool diff --git a/src/input/paffexample.input.pamphlet b/src/input/paffexample.input.pamphlet index cce44d7..b7c1b99 100644 --- a/src/input/paffexample.input.pamphlet +++ b/src/input/paffexample.input.pamphlet @@ -327,7 +327,7 @@ baseOfLofD:= lBasis(D10)$P --R , --R 5 2 5 2 --R den= X Y Z + X Y Z ] ---RType: Record(num: List DistributedMultivariatePolynomial([X,Y,Z],PrimeField 2),den: DistributedMultivariatePolynomial([X,Y,Z],PrimeField 2)) +--IType: Record(num: List DistributedMultivariatePolynomial(... --E 19 -- Of course, the number of element in the list of numerator diff --git a/src/input/plotfile.input.pamphlet b/src/input/plotfile.input.pamphlet index a73c92d..0102cef 100644 --- a/src/input/plotfile.input.pamphlet +++ b/src/input/plotfile.input.pamphlet @@ -51,7 +51,7 @@ drawList(lp:List Point DoubleFloat):VIEW2D == g := graphImage()$GRIMAGE for p in lp repeat point(g,p,pointColorDefault())$GRIMAGE --- component(g,p,pointColorDefault(),lineColorDefault(),pointSizeDefault())$GRIMAGE +--component(g,p,pointColorDefault(),lineColorDefault(),pointSizeDefault())$GRIMAGE gi := makeGraphImage(g)$GRIMAGE makeViewport2D(gi,[title("Points")])$VIEW2D diff --git a/src/input/plotlist.input.pamphlet b/src/input/plotlist.input.pamphlet index 1026bbb..39520c0 100644 --- a/src/input/plotlist.input.pamphlet +++ b/src/input/plotlist.input.pamphlet @@ -23,9 +23,11 @@ makePoint(x:DoubleFloat,y:DoubleFloat):(Point DoubleFloat) == point(l :List DoubleFloat := [x,y])$(Point DoubleFloat) -drawFun(fn:DoubleFloat->DoubleFloat, seg:Segment Float):List(List(Point DoubleFloat)) == +drawFun(fn:DoubleFloat->DoubleFloat, seg:Segment Float):_ + List(List(Point DoubleFloat)) == fp := (t:DoubleFloat):Point DoubleFloat +-> makePoint(t, fn(t)) - plot := pointPlot(fp, segment(convert(lo seg)@DoubleFloat, convert(hi seg)@DoubleFloat))$PLOT + plot := pointPlot(fp, segment(convert(lo seg)@DoubleFloat, _ + convert(hi seg)@DoubleFloat))$PLOT lp := listBranches(plot)$PLOT drawFuns(fl:List(DoubleFloat->DoubleFloat), seg:SegmentBinding Float):VIEW2D == @@ -44,8 +46,9 @@ makeListFuns(fl:List(Expression Integer),_ seg:SegmentBinding Float):List(DoubleFloat->DoubleFloat) == lfuns:List(DoubleFloat->DoubleFloat) := empty() for f in fl repeat - ff : (DoubleFloat->DoubleFloat) := makeFloatFunction(f, variable seg)$MakeFloatCompiledFunction(Expression Integer) - lfuns := cons(ff, lfuns) + ff : (DoubleFloat->DoubleFloat) := _ + makeFloatFunction(f,variable seg)$MakeFloatCompiledFunction(Expression Integer) + lfuns := cons(ff, lfuns) lfuns drawFuns(makeListFuns([x**i for i in 1..5], x=-1..1), x=-1..1) diff --git a/src/input/polycoer.input.pamphlet b/src/input/polycoer.input.pamphlet index fd33b5e..7723a53 100644 --- a/src/input/polycoer.input.pamphlet +++ b/src/input/polycoer.input.pamphlet @@ -211,7 +211,7 @@ f := u --R --R --R (4) x + y + z ---RType: UnivariatePolynomial(x,DistributedMultivariatePolynomial([y,z],Integer)) +--IType: UnivariatePolynomial(x,... --E 25 --S 26 of 41 @@ -339,7 +339,7 @@ l2 := l1 --R --R --R (8) [2a + 3b - c,f - 3e + 3,f + a + b + c + d + e] ---RType: List UnivariatePolynomial(f,DistributedMultivariatePolynomial([a,b,c,d,e],Fraction Integer)) +--IType: List UnivariatePolynomial(f,DistributedMultivariatePolynomial(... --E 41 )spool )lisp (bye) diff --git a/src/input/r20abugs.input.pamphlet b/src/input/r20abugs.input.pamphlet index 5531ac3..3c22272 100644 --- a/src/input/r20abugs.input.pamphlet +++ b/src/input/r20abugs.input.pamphlet @@ -200,7 +200,7 @@ qr := monicDivide(a, b) --R --R --R (6) [quotient= 2,remainder= 2] ---RType: Record(quotient: UnivariatePolynomial(X,IntegerMod 4),remainder: UnivariatePolynomial(X,IntegerMod 4)) +--IType: Record(quotient: UnivariatePolynomial(X,IntegerMod 4),... --E 18 --S 19 of 34 diff --git a/src/input/r21bugs.input.pamphlet b/src/input/r21bugs.input.pamphlet index 646e7b0..5411912 100644 --- a/src/input/r21bugs.input.pamphlet +++ b/src/input/r21bugs.input.pamphlet @@ -127,7 +127,7 @@ h:Q:=F/G --R (8) -------------- --R 4 2 2 4 --R X + X Y + Z ---RType: Fraction DistributedMultivariatePolynomial([X,Y,Z],FiniteFieldExtensionByPolynomial(PrimeField 2,?**4+?+1)) +--IType: Fraction DistributedMultivariatePolynomial([X,Y,Z],... --E 11 )clear completely @@ -306,11 +306,11 @@ a | a^2+1 --R Your statement has resulted in the following assignments and --R declaration: --R ---R SAEa := SimpleAlgebraicExtension(Fraction Integer,UnivariatePolynomial(a,Fraction Integer),a*a+1) +--I SAEa := SimpleAlgebraicExtension(Fraction Integer,... --R a : SAEa := a --R --R (2) a ---RType: SimpleAlgebraicExtension(Fraction Integer,UnivariatePolynomial(a,Fraction Integer),a*a+1) +--IType: SimpleAlgebraicExtension(Fraction Integer,... --E 28 \end{chunk} @@ -536,11 +536,11 @@ a | a**8+a**4+a**3+a**2+(1::PF 2) --R Your statement has resulted in the following assignments and --R declaration: --R ---R SAEa := SimpleAlgebraicExtension(PrimeField 2,UnivariatePolynomial(a,PrimeField 2),a**8+a**4+a**3+a*a+1) +--I SAEa := SimpleAlgebraicExtension(PrimeField 2,... --R a : SAEa := a --R --R (1) a ---RType: SimpleAlgebraicExtension(PrimeField 2,UnivariatePolynomial(a,PrimeField 2),a**8+a**4+a**3+a*a+1) +--IType: SimpleAlgebraicExtension(PrimeField 2,... --E 47 --S 48 of 95 @@ -555,7 +555,7 @@ tt:Matrix SAEa:=[_ [0,0,0,0,0,0,1,0]]; --R --R ---RType: Matrix SimpleAlgebraicExtension(PrimeField 2,UnivariatePolynomial(a,PrimeField 2),a**8+a**4+a**3+a*a+1) +--IType: Matrix SimpleAlgebraicExtension(PrimeField 2,... --E 48 --S 49 of 95 @@ -577,7 +577,7 @@ T:=transpose tt --R |0 0 0 0 0 0 0 1| --R | | --R +1 0 0 0 0 0 0 0+ ---RType: Matrix SimpleAlgebraicExtension(PrimeField 2,UnivariatePolynomial(a,PrimeField 2),a**8+a**4+a**3+a*a+1) +--IType: Matrix SimpleAlgebraicExtension(PrimeField 2,... --E 49 --S 50 of 95 @@ -599,7 +599,7 @@ T0:=T**91 --R |1 1 0 1 0 1 1 1| --R | | --R +1 1 1 0 1 0 1 1+ ---RType: Matrix SimpleAlgebraicExtension(PrimeField 2,UnivariatePolynomial(a,PrimeField 2),a**8+a**4+a**3+a*a+1) +--IType: Matrix SimpleAlgebraicExtension(PrimeField 2,... --E 50 --S 51 of 95 @@ -621,7 +621,7 @@ T1:=T**95 --R |0 1 0 1 1 1 0 1| --R | | --R +0 0 1 0 1 1 1 0+ ---RType: Matrix SimpleAlgebraicExtension(PrimeField 2,UnivariatePolynomial(a,PrimeField 2),a**8+a**4+a**3+a*a+1) +--IType: Matrix SimpleAlgebraicExtension(PrimeField 2,... --E 51 )clear completely diff --git a/src/input/r21bugsbig.input.pamphlet b/src/input/r21bugsbig.input.pamphlet index f0b9a92..806760b 100644 --- a/src/input/r21bugsbig.input.pamphlet +++ b/src/input/r21bugsbig.input.pamphlet @@ -118,7 +118,8 @@ xi : E := generator()$E --E 11 --S 12 of 22 -bList : List(E) := [reduce(+, [t(i+1) * xi**(i*j) for i in 0 .. #UZn-1]) for j in UZn] +bList : List(E) := _ + [reduce(+, [t(i+1) * xi**(i*j) for i in 0 .. #UZn-1]) for j in UZn] --R --R --R (12) @@ -133,7 +134,8 @@ delta(j) = delta(j, 1) avec les nouvelles notations \begin{chunk}{*} --S 13 of 22 delta : List(E) := - [reduce(*, [b**((j*rapport(1,k)) quo n) for b in bList for k in UZn]) for j in UZn] + [reduce(*, [b**((j*rapport(1,k)) quo n) for b in bList for k in UZn]) _ + for j in UZn] --R --R Compiling function rapport with type (Integer,Integer) -> Integer --R @@ -245,7 +247,8 @@ delta : List(E) := verification en introduisant la liste B des Bj \begin{chunk}{*} --S 14 of 22 -B : List(E) := [reduce(*, [b**rapport(j,i) for b in bList for i in UZn]) for j in UZn] +B : List(E) := [reduce(*, [b**rapport(j,i) for b in bList for i in UZn]) _ + for j in UZn] --R --R --R (14) @@ -843,7 +846,8 @@ B : List(E) := [reduce(*, [b**rapport(j,i) for b in bList for i in UZn]) for j i --E 15 --S 16 of 22 -L := SimpleAlgebraicExtension(E, UP('C1, E), C1**n - B(1)) ; C1 : L := generator()$L +L := SimpleAlgebraicExtension(E, UP('C1, E), C1**n - B(1)) ; _ + C1 : L := generator()$L --R --R --R (16) C1 @@ -1425,7 +1429,8 @@ C : List(L) := [C1**j / d for j in UZn for d in delta] en principe [c**n for c in C] = B \begin{chunk}{*} --S 19 of 22 -r : List(L) := [reduce(+, [c * xi**(k*j) for j in UZn for c in C]) for k in 0 .. n-1] +r : List(L) := _ + [reduce(+, [c * xi**(k*j) for j in UZn for c in C]) for k in 0 .. n-1] --R --R --R (19) diff --git a/src/input/radff.input.pamphlet b/src/input/radff.input.pamphlet index 1c1505f..e95d902 100644 --- a/src/input/radff.input.pamphlet +++ b/src/input/radff.input.pamphlet @@ -99,7 +99,7 @@ integralBasisAtInfinity()$R --R --- y ] --R 19 --R x ---RType: Vector RadicalFunctionField(Integer,UnivariatePolynomial(x,Integer),UnivariatePolynomial(y,Fraction UnivariatePolynomial(x,Integer)),(-x**20)+1,20) +--IType: Vector RadicalFunctionField(Integer,... --E 8 --S 9 of 27 @@ -123,7 +123,7 @@ y := generator()$R --R --R --R (11) y ---RType: RadicalFunctionField(Integer,UnivariatePolynomial(x,Integer),UnivariatePolynomial(y,Fraction UnivariatePolynomial(x,Integer)),(-x**20)+1,20) +--IType: RadicalFunctionField(Integer,... --E 11 --S 12 of 27 @@ -204,7 +204,7 @@ integralBasis()$R2 --R 1 2 1 3 --R (20) [1,y,- y ,- y ] --R x x ---RType: Vector RadicalFunctionField(Integer,UnivariatePolynomial(x,Integer),UnivariatePolynomial(y,Fraction UnivariatePolynomial(x,Integer)),2*x*x,4) +--IType: Vector RadicalFunctionField(Integer,... --E 20 --S 21 of 27 @@ -212,7 +212,7 @@ y := generator()$R2 --R --R --R (21) y ---RType: RadicalFunctionField(Integer,UnivariatePolynomial(x,Integer),UnivariatePolynomial(y,Fraction UnivariatePolynomial(x,Integer)),2*x*x,4) +--IType: RadicalFunctionField(Integer,... --E 21 --S 22 of 27 @@ -220,7 +220,7 @@ integralCoordinates(y**3) --R --R --R (22) [num= [0,0,0,x],den= 1] ---RType: Record(num: Vector UnivariatePolynomial(x,Integer),den: UnivariatePolynomial(x,Integer)) +--IType: Record(num: Vector UnivariatePolynomial(x,Integer),... --E 23 --S 24 of 27 @@ -229,7 +229,7 @@ integralRepresents(%.num, %.den)$R2 --R --R 3 --R (23) y ---RType: RadicalFunctionField(Integer,UnivariatePolynomial(x,Integer),UnivariatePolynomial(y,Fraction UnivariatePolynomial(x,Integer)),2*x*x,4) +--IType: RadicalFunctionField(Integer,... --E 24 --S 25 of 27 diff --git a/src/input/reclos.input.pamphlet b/src/input/reclos.input.pamphlet index 77ef9b2..8a2e537 100644 --- a/src/input/reclos.input.pamphlet +++ b/src/input/reclos.input.pamphlet @@ -348,7 +348,7 @@ removeDuplicates map(mainDefiningPolynomial,l) --R --R 4 2 --R (31) [? - 4? + 2] ---RType: List Union(SparseUnivariatePolynomial RealClosure Fraction Integer,"failed") +--IType: List Union(SparseUnivariatePolynomial ... --E 31 --S 32 of 70 @@ -356,7 +356,7 @@ map(mainCharacterization,l) --R --R --R (32) [[- 2,- 1[,[- 1,0[,[0,1[,[1,2[] ---RType: List Union(RightOpenIntervalRootCharacterization(RealClosure Fraction Integer,SparseUnivariatePolynomial RealClosure Fraction Integer),"failed") +--IType: List Union(RightOpenIntervalRootCharacterization(... --E 32 --S 33 of 70 diff --git a/src/input/reclos2.input.pamphlet b/src/input/reclos2.input.pamphlet index 72ea9ef..7d94769 100644 --- a/src/input/reclos2.input.pamphlet +++ b/src/input/reclos2.input.pamphlet @@ -483,7 +483,11 @@ t4:=radicalSolve(t2) --E 28 --S 29 of 31 -bound?(x,s) == (a:=complexNumeric rhs x; imag a < 10^-digits() and real a >= left(mainCharacterization s)::Float and real a < right(mainCharacterization s)::Float) +bound?(x,s) == _ + (a:=complexNumeric rhs x; _ + imag a < 10^-digits() and _ + real a >= left(mainCharacterization s)::Float and _ + real a < right(mainCharacterization s)::Float) --R Type: Void --E 29 diff --git a/src/input/regset.input.pamphlet b/src/input/regset.input.pamphlet index 2a32784..5383d81 100644 --- a/src/input/regset.input.pamphlet +++ b/src/input/regset.input.pamphlet @@ -134,7 +134,7 @@ lp := [p1, p2, p3] --R --R 31 6 8 10 --R (14) [x - x - x - y,x - z,x - t] ---RType: List NewSparseMultivariatePolynomial(Integer,OrderedVariableList [x,y,z,t]) +--IType: List NewSparseMultivariatePolynomial(... --E 14 --S 15 of 34 @@ -143,7 +143,7 @@ zeroSetSplit(lp)$T --R --R 5 4 2 3 8 5 3 2 4 2 --R (15) [{z - t ,t z y + 2z y - t + 2t + t - t ,(t - t)x - t y - z }] ---RType: List RegularTriangularSet(Integer,IndexedExponents OrderedVariableList [x,y,z,t],OrderedVariableList [x,y,z,t],NewSparseMultivariatePolynomial(Integer,OrderedVariableList [x,y,z,t])) +--IType: List RegularTriangularSet(Integer,... --E 15 --S 16 of 34 @@ -155,7 +155,7 @@ lts := zeroSetSplit(lp,false)$T --R [{z - t ,t z y + 2z y - t + 2t + t - t ,(t - t)x - t y - z }, --R 3 5 2 3 2 --R {t - 1,z - t,t z y + 2z y + 1,z x - t}, {t,z,y,x}] ---RType: List RegularTriangularSet(Integer,IndexedExponents OrderedVariableList [x,y,z,t],OrderedVariableList [x,y,z,t],NewSparseMultivariatePolynomial(Integer,OrderedVariableList [x,y,z,t])) +--IType: List RegularTriangularSet(Integer,... --E 16 --S 17 of 34 @@ -215,7 +215,7 @@ lf := [f1, f2, f3, f4] --R (t - 1)x + 2t z y - 2z, --R 3 2 2 3 2 2 --R (- z + (4t + 4)z)x + (4t z + 2t - 10t)y + 4z - 10t + 2] ---RType: List NewSparseMultivariatePolynomial(Integer,OrderedVariableList [x,y,z,t]) +--IType: List NewSparseMultivariatePolynomial(... --E 22 --S 23 of 34 @@ -231,7 +231,7 @@ zeroSetSplit(lf)$T --R {t - 10t + 10t - 1,z,(t - 5t)y - 5t + 1,x}, --R 2 2 --R {t + 3,z - 4,y + t,x - z}] ---RType: List RegularTriangularSet(Integer,IndexedExponents OrderedVariableList [x,y,z,t],OrderedVariableList [x,y,z,t],NewSparseMultivariatePolynomial(Integer,OrderedVariableList [x,y,z,t])) +--IType: List RegularTriangularSet(Integer,... --E 23 --S 24 of 34 @@ -245,7 +245,7 @@ lts2 := zeroSetSplit(lf,false)$T --R {t - 1,z - 16z + 256z - 256,t y - 1,(z - 8z)x - 8z + 16}, --R 2 2 2 2 2 --R {3t + 1,z - 7t - 1,y + t,x + z}, {t + 3,z - 4,y + t,x - z}] ---RType: List RegularTriangularSet(Integer,IndexedExponents OrderedVariableList [x,y,z,t],OrderedVariableList [x,y,z,t],NewSparseMultivariatePolynomial(Integer,OrderedVariableList [x,y,z,t])) +--IType: List RegularTriangularSet(Integer,... --E 24 --S 25 of 34 @@ -281,7 +281,10 @@ u : R := 2 --E 28 --S 29 of 34 -q1 := 2*(u-1)**2+ 2*(x-z*x+z**2)+ y**2*(x-1)**2- 2*u*x+ 2*y*t*(1-x)*(x-z)+ 2*u*z*t*(t-y)+ u**2*t**2*(1-2*z)+ 2*u*t**2*(z-x)+ 2*u*t*y*(z-1)+ 2*u*z*x*(y+1)+ (u**2-2*u)*z**2*t**2+ 2*u**2*z**2+ 4*u*(1-u)*z+ t**2*(z-x)**2 +q1 := 2*(u-1)**2+ 2*(x-z*x+z**2)+ y**2*(x-1)**2- 2*u*x+ 2*y*t*(1-x)*(x-z)+ _ + 2*u*z*t*(t-y)+ u**2*t**2*(1-2*z)+ 2*u*t**2*(z-x)+ 2*u*t*y*(z-1)+ _ + 2*u*z*x*(y+1)+ (u**2-2*u)*z**2*t**2+ 2*u**2*z**2+ 4*u*(1-u)*z+ _ + t**2*(z-x)**2 --R --R --R (29) @@ -294,7 +297,8 @@ q1 := 2*(u-1)**2+ 2*(x-z*x+z**2)+ y**2*(x-1)**2- 2*u*x+ 2*y*t*(1-x)*(x-z)+ 2*u*z --E 29 --S 30 of 34 -q2 := t*(2*z+1)*(x-z)+ y*(z+2)*(1-x)+ u*(u-2)*t+ u*(1-2*u)*z*t+ u*y*(x+u-z*x-1)+ u*(u+1)*z**2*t +q2 := t*(2*z+1)*(x-z)+ y*(z+2)*(1-x)+ u*(u-2)*t+ u*(1-2*u)*z*t+ _ + u*y*(x+u-z*x-1)+ u*(u+1)*z**2*t --R --R --R 2 @@ -312,7 +316,8 @@ q3 := -u**2*(z-1)**2+ 2*z*(z-x)-2*(x-1) --E 31 --S 32 of 34 -q4 := u**2+4*(z-x**2)+3*y**2*(x-1)**2- 3*t**2*(z-x)**2 +3*u**2*t**2*(z-1)**2+u**2*z*(z-2)+6*u*t*y*(z+x+z*x-1) +q4 := u**2+4*(z-x**2)+3*y**2*(x-1)**2- 3*t**2*(z-x)**2 +_ + 3*u**2*t**2*(z-1)**2+u**2*z*(z-2)+6*u*t*y*(z+x+z*x-1) --R --R --R (32) @@ -348,13 +353,13 @@ lq := [q1, q2, q3, q4] --R 2 2 2 2 --R (12t z - 12t)y + (9t + 4)z + (- 24t - 4)z + 12t + 4 --R ] ---RType: List NewSparseMultivariatePolynomial(Integer,OrderedVariableList [x,y,z,t]) +--IType: List NewSparseMultivariatePolynomial(... --E 33 --S 34 of 34 zeroSetSplit(lq,true,true)$T --R ---R[1 <4,0> -> |4|; {0}]W[2 <5,0>,<3,1> -> |8|; {0}][2 <4,1>,<3,1> -> |7|; {0}][1 <3,1> -> |3|; {0}]G[2 <4,1>,<4,1> -> |8|; {0}]W[3 <5,1>,<4,1>,<3,2> -> |12|; {0}]GI[3 <4,2>,<4,1>,<3,2> -> |11|; {0}]GWw[3 <4,1>,<3,2>,<5,2> -> |12|; {0}][3 <3,2>,<3,2>,<5,2> -> |11|; {0}]GIwWWWw[4 <3,2>,<4,2>,<5,2>,<2,3> -> |14|; {0}][4 <2,2>,<4,2>,<5,2>,<2,3> -> |13|; {0}]Gwww[5 <3,2>,<3,2>,<4,2>,<5,2>,<2,3> -> |17|; {0}]Gwwwwww[8 <3,2>,<4,2>,<4,2>,<4,2>,<4,2>,<4,2>,<5,2>,<2,3> -> |30|; {0}]Gwwwwww[8 <4,2>,<4,2>,<4,2>,<4,2>,<4,2>,<4,2>,<5,2>,<2,3> -> |31|; {0}][8 <3,3>,<4,2>,<4,2>,<4,2>,<4,2>,<4,2>,<5,2>,<2,3> -> |30|; {0}][8 <2,3>,<4,2>,<4,2>,<4,2>,<4,2>,<4,2>,<5,2>,<2,3> -> |29|; {0}][8 <1,3>,<4,2>,<4,2>,<4,2>,<4,2>,<4,2>,<5,2>,<2,3> -> |28|; {0}][7 <4,2>,<4,2>,<4,2>,<4,2>,<4,2>,<5,2>,<2,3> -> |27|; {0}][6 <4,2>,<4,2>,<4,2>,<4,2>,<5,2>,<2,3> -> |23|; {0}][5 <4,2>,<4,2>,<4,2>,<5,2>,<2,3> -> |19|; {0}]GIGIWwww[6 <5,2>,<4,2>,<4,2>,<5,2>,<3,3>,<2,3> -> |23|; {0}][6 <4,3>,<4,2>,<4,2>,<5,2>,<3,3>,<2,3> -> |22|; {0}]GIGI[6 <3,4>,<4,2>,<4,2>,<5,2>,<3,3>,<2,3> -> |21|; {0}][6 <2,4>,<4,2>,<4,2>,<5,2>,<3,3>,<2,3> -> |20|; {0}]GGG[5 <4,2>,<4,2>,<5,2>,<3,3>,<2,3> -> |18|; {0}]GIGIWwwwW[6 <5,2>,<4,2>,<5,2>,<3,3>,<3,3>,<2,3> -> |22|; {0}][6 <4,3>,<4,2>,<5,2>,<3,3>,<3,3>,<2,3> -> |21|; {0}]GIwwWwWWWWWWWwWWWWwwwww[8 <4,2>,<5,2>,<3,3>,<3,3>,<4,3>,<2,3>,<3,4>,<3,4> -> |27|; {0}][8 <3,3>,<5,2>,<3,3>,<3,3>,<4,3>,<2,3>,<3,4>,<3,4> -> |26|; {0}][8 <2,3>,<5,2>,<3,3>,<3,3>,<4,3>,<2,3>,<3,4>,<3,4> -> |25|; {0}]Gwwwwwwwwwwwwwwwwwwww[9 <5,2>,<3,3>,<3,3>,<4,3>,<3,3>,<3,3>,<2,3>,<3,4>,<3,4> -> |29|; {0}]GI[9 <4,3>,<3,3>,<3,3>,<4,3>,<3,3>,<3,3>,<2,3>,<3,4>,<3,4> -> |28|; {0}][9 <3,3>,<3,3>,<3,3>,<4,3>,<3,3>,<3,3>,<2,3>,<3,4>,<3,4> -> |27|; {0}][9 <2,3>,<3,3>,<3,3>,<4,3>,<3,3>,<3,3>,<2,3>,<3,4>,<3,4> -> |26|; {0}]GGwwwwwwwwwwwwWWwwwwwwww[11 <3,3>,<3,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |33|; {0}][11 <2,3>,<3,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |32|; {0}][11 <1,3>,<3,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |31|; {0}]GGGwwwwwwwwwwwww[12 <2,3>,<2,3>,<3,3>,<3,3>,<4,3>,<3,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |34|; {0}]GGwwwwwwwwwwwww[13 <3,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |38|; {0}]Gwwwwwwwwwwwww[13 <2,3>,<3,3>,<4,3>,<3,3>,<4,3>,<3,3>,<3,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |39|; {0}]GGGwwwwwwwwwwwww[15 <3,3>,<4,3>,<3,3>,<3,3>,<3,3>,<3,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |46|; {0}][14 <4,3>,<3,3>,<3,3>,<3,3>,<3,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |43|; {0}]GIGGGGIGGI[14 <3,4>,<3,3>,<3,3>,<3,3>,<3,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |42|; {0}]GGG[14 <2,4>,<3,3>,<3,3>,<3,3>,<3,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |41|; {0}][14 <1,4>,<3,3>,<3,3>,<3,3>,<3,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |40|; {0}]GGG[13 <3,3>,<3,3>,<3,3>,<3,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |39|; {0}]Gwwwwwwwwwwwww[15 <3,3>,<3,3>,<4,3>,<4,3>,<4,3>,<3,3>,<3,3>,<4,3>,<3,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |48|; {0}]Gwwwwwwwwwwwww[15 <4,3>,<4,3>,<3,3>,<4,3>,<4,3>,<3,3>,<4,3>,<3,3>,<3,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |49|; {0}]GIGI[15 <3,4>,<4,3>,<3,3>,<4,3>,<4,3>,<3,3>,<4,3>,<3,3>,<3,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |48|; {0}]G[14 <4,3>,<3,3>,<4,3>,<4,3>,<3,3>,<4,3>,<3,3>,<3,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |45|; {0}][13 <3,3>,<4,3>,<4,3>,<3,3>,<4,3>,<3,3>,<3,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |41|; {0}]Gwwwwwwwwwwwww[13 <4,3>,<4,3>,<4,3>,<3,3>,<3,3>,<4,3>,<3,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |42|; {0}]GIGGGGIGGI[13 <3,4>,<4,3>,<4,3>,<3,3>,<3,3>,<4,3>,<3,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |41|; {0}]GGGGGGGG[13 <2,4>,<4,3>,<4,3>,<3,3>,<3,3>,<4,3>,<3,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |40|; {0}][13 <1,4>,<4,3>,<4,3>,<3,3>,<3,3>,<4,3>,<3,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |39|; {0}][13 <0,4>,<4,3>,<4,3>,<3,3>,<3,3>,<4,3>,<3,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |38|; {0}][12 <4,3>,<4,3>,<3,3>,<3,3>,<4,3>,<3,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |38|; {1}][11 <4,3>,<3,3>,<3,3>,<4,3>,<3,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |34|; {1}][10 <3,3>,<3,3>,<4,3>,<3,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |30|; {1}][10 <2,3>,<3,3>,<4,3>,<3,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |29|; {1}]GGGwwwwwwwwwwwww[11 <3,3>,<3,3>,<4,3>,<3,3>,<3,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |33|; {1}]GGGwwwwwwwwwwwww[12 <4,3>,<3,3>,<4,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |38|; {1}]Gwwwwwwwwwwwww[12 <3,3>,<4,3>,<5,3>,<3,3>,<4,3>,<3,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |39|; {1}]GGwwwwwwwwwwwww[13 <5,3>,<4,3>,<4,3>,<4,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |44|; {1}]GIGGGGIGGIW[13 <4,4>,<4,3>,<4,3>,<4,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |43|; {1}]GGW[13 <3,4>,<4,3>,<4,3>,<4,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |42|; {1}]GGG[12 <4,3>,<4,3>,<4,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |39|; {1}]Gwwwwwwwwwwwww[12 <4,3>,<4,3>,<5,3>,<3,3>,<4,3>,<3,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |40|; {1}]Gwwwwwwwwwwwww[13 <5,3>,<5,3>,<4,3>,<5,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |46|; {1}]GIGIW[13 <4,4>,<5,3>,<4,3>,<5,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |45|; {1}][13 <3,4>,<5,3>,<4,3>,<5,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |44|; {1}][13 <2,4>,<5,3>,<4,3>,<5,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |43|; {1}]GG[12 <5,3>,<4,3>,<5,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |41|; {1}]GIGGGGIGGIW[12 <4,4>,<4,3>,<5,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |40|; {1}]GGGGGGW[12 <3,4>,<4,3>,<5,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |39|; {1}][12 <2,4>,<4,3>,<5,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |38|; {1}][12 <1,4>,<4,3>,<5,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |37|; {1}]GGG[11 <4,3>,<5,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |36|; {1}][10 <5,3>,<3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |32|; {1}][9 <3,3>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |27|; {1}]W[9 <2,4>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |26|; {1}][9 <1,4>,<3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |25|; {1}][8 <3,3>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |24|; {1}]W[8 <2,4>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |23|; {1}][8 <1,4>,<4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |22|; {1}][7 <4,3>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |21|; {1}]w[7 <3,4>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |20|; {1}][7 <2,4>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |19|; {1}][7 <1,4>,<2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |18|; {1}][6 <2,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |17|; {1}]GGwwwwww[7 <3,3>,<3,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |21|; {1}]GIW[7 <2,4>,<3,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |20|; {1}]GG[6 <3,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |18|; {1}]Gwwwwww[7 <4,3>,<4,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |23|; {1}]GIW[7 <3,4>,<4,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |22|; {1}][6 <4,3>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |19|; {1}]GIW[6 <3,4>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |18|; {1}]GGW[6 <2,4>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |17|; {1}][6 <1,4>,<3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |16|; {1}]GGG[5 <3,3>,<3,3>,<3,3>,<3,4>,<3,4> -> |15|; {1}]GIW[5 <2,4>,<3,3>,<3,3>,<3,4>,<3,4> -> |14|; {1}]GG[4 <3,3>,<3,3>,<3,4>,<3,4> -> |12|; {1}][3 <3,3>,<3,4>,<3,4> -> |9|; {1}]W[3 <2,4>,<3,4>,<3,4> -> |8|; {1}][3 <1,4>,<3,4>,<3,4> -> |7|; {1}]G[2 <3,4>,<3,4> -> |6|; {1}]G[1 <3,4> -> |3|; {1}][1 <2,4> -> |2|; {1}][1 <1,4> -> |1|; {1}] +--I[1 <4,0> -> |4|; {0}]W[2 <5,0>,<3,1> -> |8|; {0}]... --R *** QCMPACK Statistics *** --R Table size: 36 --R Entries reused: 255 @@ -542,7 +547,7 @@ zeroSetSplit(lq,true,true)$T --R 2 --R (z + 1)x + z - 4z + 1} --R ] ---RType: List RegularTriangularSet(Integer,IndexedExponents OrderedVariableList [x,y,z,t],OrderedVariableList [x,y,z,t],NewSparseMultivariatePolynomial(Integer,OrderedVariableList [x,y,z,t])) +--IType: List RegularTriangularSet(Integer,... --E 34 )spool )lisp (bye) diff --git a/src/input/richalgebraic100-199.input.pamphlet b/src/input/richalgebraic100-199.input.pamphlet index 1601d71..e0beb6c 100644 --- a/src/input/richalgebraic100-199.input.pamphlet +++ b/src/input/richalgebraic100-199.input.pamphlet @@ -2581,7 +2581,8 @@ t0142:= x^(-3+n)/((a+b*x)^n) --E 211 --S 212 of 512 -r0142:= 1/a^2/(-1+n)/(-2+n)*(a+b*x)^(-n)*(-x^(-2+n)*a^2+x^(-2+n)*a^2*n+x^(-1+n)*a*n*b+x^n*b^2) +r0142:= 1/a^2/(-1+n)/(-2+n)*(a+b*x)^(-n)*(-x^(-2+n)*a^2+x^(-2+n)*a^2*n+_ + x^(-1+n)*a*n*b+x^n*b^2) --R --R --R 2 n n - 1 2 2 n - 2 - n diff --git a/src/input/richhyper000-099.input.pamphlet b/src/input/richhyper000-099.input.pamphlet index 2392400..3856f9a 100644 --- a/src/input/richhyper000-099.input.pamphlet +++ b/src/input/richhyper000-099.input.pamphlet @@ -27,7 +27,8 @@ t0000:= sinh(a+b*x)^(1/2) --E 1 --S 2 of 510 -r0000:= -2*%i*EllipticE(-1/4*%pi+1/2*%i*(a+b*x),2)*sinh(a+b*x)^(1/2)/b/(%i*sinh(a+b*x))^(1/2) +r0000:= -2*%i*EllipticE(-1/4*%pi+1/2*%i*(a+b*x),2)*_ + sinh(a+b*x)^(1/2)/b/(%i*sinh(a+b*x))^(1/2) --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -85,7 +86,8 @@ t0001:= sinh(a+b*x)^(3/2) --E 6 --S 7 of 510 -r0001:= 2/3*(%i*EllipticF(-1/4*%pi+1/2*%i*a+1/2*%i*b*x,2)*(%i*sinh(a+b*x))^(1/2)+cosh(a+b*x)*sinh(a+b*x))/sinh(a+b*x)^(1/2)/b +r0001:= 2/3*(%i*EllipticF(-1/4*%pi+1/2*%i*a+1/2*%i*b*x,2)*_ + (%i*sinh(a+b*x))^(1/2)+cosh(a+b*x)*sinh(a+b*x))/sinh(a+b*x)^(1/2)/b --R --R There are 15 exposed and 5 unexposed library operations named + --R having 2 argument(s) but none was determined to be applicable. @@ -145,7 +147,9 @@ t0002:= sinh(a+b*x)^(5/2) --E 11 --S 12 of 510 -r0002:= 6/5*%i*EllipticE(-1/4*%pi+1/2*%i*(a+b*x),2)*sinh(a+b*x)^(1/2)/b/(%i*sinh(a+b*x))^(1/2)+2/5*cosh(a+b*x)*sinh(a+b*x)^(3/2)/b +r0002:= 6/5*%i*EllipticE(-1/4*%pi+1/2*%i*(a+b*x),2)*_ + sinh(a+b*x)^(1/2)/b/(%i*sinh(a+b*x))^(1/2)+_ + 2/5*cosh(a+b*x)*sinh(a+b*x)^(3/2)/b --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -205,7 +209,8 @@ t0003:= 1/sinh(a+b*x)^(1/2) --E 16 --S 17 of 510 -r0003:= -2*%i*EllipticF(-1/4*%pi+1/2*%i*(a+b*x),2)*(%i*sinh(a+b*x))^(1/2)/b/sinh(a+b*x)^(1/2) +r0003:= -2*%i*EllipticF(-1/4*%pi+1/2*%i*(a+b*x),2)*_ + (%i*sinh(a+b*x))^(1/2)/b/sinh(a+b*x)^(1/2) --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -269,7 +274,9 @@ t0004:= 1/sinh(a+b*x)^(3/2) --E 21 --S 22 of 510 -r0004:= -2*cosh(a+b*x)/b/sinh(a+b*x)^(1/2)-2*%i*EllipticE(-1/4*%pi+1/2*%i*(a+b*x),2)*sinh(a+b*x)^(1/2)/b/(%i*sinh(a+b*x))^(1/2) +r0004:= -2*cosh(a+b*x)/b/sinh(a+b*x)^(1/2)-_ + 2*%i*EllipticE(-1/4*%pi+1/2*%i*(a+b*x),2)*_ + sinh(a+b*x)^(1/2)/b/(%i*sinh(a+b*x))^(1/2) --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -333,7 +340,8 @@ t0005:= 1/sinh(a+b*x)^(5/2) --E 26 --S 27 of 510 -r0005:= 2/3*(-cosh(a+b*x)+%i*EllipticF(-1/4*%pi+1/2*%i*a+1/2*%i*b*x,2)*(%i*sinh(a+b*x))^(1/2)*sinh(a+b*x))/b/sinh(a+b*x)^(3/2) +r0005:= 2/3*(-cosh(a+b*x)+%i*EllipticF(-1/4*%pi+1/2*%i*a+1/2*%i*b*x,2)*_ + (%i*sinh(a+b*x))^(1/2)*sinh(a+b*x))/b/sinh(a+b*x)^(3/2) --R --R There are 15 exposed and 5 unexposed library operations named + --R having 2 argument(s) but none was determined to be applicable. @@ -524,7 +532,9 @@ t0008:= sinh(a+b*x)^3/x^2 --E 41 --S 42 of 510 -r0008:= -1/4*(3*b*cosh(a)*Chi(b*x)*x-3*b*cosh(3*a)*Chi(3*b*x)*x-3*sinh(a+b*x)+sinh(3*a+3*b*x)+3*b*sinh(a)*Shi(b*x)*x-3*b*sinh(3*a)*Shi(3*b*x)*x)/x +r0008:= -1/4*(3*b*cosh(a)*Chi(b*x)*x-3*b*cosh(3*a)*Chi(3*b*x)*x-_ + 3*sinh(a+b*x)+sinh(3*a+3*b*x)+3*b*sinh(a)*Shi(b*x)*x-_ + 3*b*sinh(3*a)*Shi(3*b*x)*x)/x --R --R There are no library operations named Chi --R Use HyperDoc Browse or issue @@ -588,7 +598,8 @@ t0009:= sinh(a+b*x)/x^3 --E 46 --S 47 of 510 -r0009:= 1/2*(-b*cosh(a+b*x)*x+b^2*Chi(b*x)*sinh(a)*x^2-sinh(a+b*x)+b^2*cosh(a)*Shi(b*x)*x^2)/x^2 +r0009:= 1/2*(-b*cosh(a+b*x)*x+b^2*Chi(b*x)*sinh(a)*x^2-_ + sinh(a+b*x)+b^2*cosh(a)*Shi(b*x)*x^2)/x^2 --R --R There are no library operations named Chi --R Use HyperDoc Browse or issue @@ -652,7 +663,8 @@ t0010:= sinh(a+b*x)^2/x^3 --E 51 --S 52 of 510 -r0010:= b^2*cosh(2*a)*Chi(2*b*x)-b*cosh(a+b*x)*sinh(a+b*x)/x-1/2*sinh(a+b*x)^2/x^2+b^2*sinh(2*a)*Shi(2*b*x) +r0010:= b^2*cosh(2*a)*Chi(2*b*x)-b*cosh(a+b*x)*sinh(a+b*x)/x-_ + 1/2*sinh(a+b*x)^2/x^2+b^2*sinh(2*a)*Shi(2*b*x) --R --R There are no library operations named Chi --R Use HyperDoc Browse or issue @@ -717,7 +729,9 @@ t0011:= sinh(a+b*x)^3/x^3 --E 56 --S 57 of 510 -r0011:= -3/8*b^2*Chi(b*x)*sinh(a)+9/8*b^2*Chi(3*b*x)*sinh(3*a)-3/2*b*cosh(a+b*x)*sinh(a+b*x)^2/x-1/2*sinh(a+b*x)^3/x^2-3/8*b^2*cosh(a)*Shi(b*x)+9/8*b^2*cosh(3*a)*Shi(3*b*x) +r0011:= -3/8*b^2*Chi(b*x)*sinh(a)+9/8*b^2*Chi(3*b*x)*sinh(3*a)-_ + 3/2*b*cosh(a+b*x)*sinh(a+b*x)^2/x-1/2*sinh(a+b*x)^3/x^2-_ + 3/8*b^2*cosh(a)*Shi(b*x)+9/8*b^2*cosh(3*a)*Shi(3*b*x) --R --R There are no library operations named Chi --R Use HyperDoc Browse or issue @@ -838,7 +852,8 @@ t0013:= (sinh(x)^3)^(1/2) --E 66 --S 67 of 510 -r0013:= -2/3*csch(x)^2*(sinh(x)^3)^(1/2)*(-%i*EllipticF(-1/4*%pi+1/2*%i*x,2)*(%i*sinh(x))^(1/2)-cosh(x)*sinh(x)) +r0013:= -2/3*csch(x)^2*(sinh(x)^3)^(1/2)*(-%i*EllipticF(-1/4*%pi+_ + 1/2*%i*x,2)*(%i*sinh(x))^(1/2)-cosh(x)*sinh(x)) --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -965,7 +980,8 @@ t0015:= 1/(a+b*sinh(c+d*x))^2 --E 76 --S 77 of 510 -r0015:= -2*a*atanh((b-a*tanh(1/2*c+1/2*d*x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(3/2)/d-b*cosh(c+d*x)/(a^2+b^2)/d/(a+b*sinh(c+d*x)) +r0015:= -2*a*atanh((b-a*tanh(1/2*c+1/2*d*x))/(a^2+b^2)^(1/2))/_ + (a^2+b^2)^(3/2)/d-b*cosh(c+d*x)/(a^2+b^2)/d/(a+b*sinh(c+d*x)) --R --R --R (63) @@ -1496,7 +1512,9 @@ t0016:= 1/(a+b*sinh(c+d*x))^3 --E 81 --S 82 of 510 -r0016:= -(-b^2+2*a^2)*atanh((b-a*tanh(1/2*c+1/2*d*x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(5/2)/d-1/2*b*cosh(c+d*x)/(a^2+b^2)/d/(a+b*sinh(c+d*x))^2-3/2*a*b*cosh(c+d*x)/(a^2+b^2)^2/d/(a+b*sinh(c+d*x)) +r0016:= -(-b^2+2*a^2)*atanh((b-a*tanh(1/2*c+1/2*d*x))/(a^2+b^2)^(1/2))/_ + (a^2+b^2)^(5/2)/d-1/2*b*cosh(c+d*x)/(a^2+b^2)/d/(a+b*sinh(c+d*x))^2-_ + 3/2*a*b*cosh(c+d*x)/(a^2+b^2)^2/d/(a+b*sinh(c+d*x)) --R --R --R (68) @@ -2936,7 +2954,11 @@ t0017:= 1/(a+b*sinh(c+d*x))^4 --E 86 --S 87 of 510 -r0017:= -a*(-3*b^2+2*a^2)*atanh((b-a*tanh(1/2*c+1/2*d*x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(7/2)/d-1/3*b*cosh(c+d*x)/(a^2+b^2)/d/(a+b*sinh(c+d*x))^3-5/6*a*b*cosh(c+d*x)/(a^2+b^2)^2/d/(a+b*sinh(c+d*x))^2-1/6*b*(11*a^2-4*b^2)*cosh(c+d*x)/(a^2+b^2)^3/d/(a+b*sinh(c+d*x)) +r0017:= -a*(-3*b^2+2*a^2)*atanh((b-a*tanh(1/2*c+1/2*d*x))/_ + (a^2+b^2)^(1/2))/(a^2+b^2)^(7/2)/d-1/3*b*cosh(c+d*x)/_ + (a^2+b^2)/d/(a+b*sinh(c+d*x))^3-5/6*a*b*cosh(c+d*x)/_ + (a^2+b^2)^2/d/(a+b*sinh(c+d*x))^2-1/6*b*(11*a^2-4*b^2)*_ + cosh(c+d*x)/(a^2+b^2)^3/d/(a+b*sinh(c+d*x)) --R --R --R (73) @@ -6268,7 +6290,9 @@ t0018:= 1/(1+%i*sinh(c+d*x))^4 --E 91 --S 92 of 510 -r0018:= 1/35*cosh(c+d*x)*(35+35*%i*sinh(c+d*x)-25*cosh(c+d*x)^2-10*%i*sinh(c+d*x)*cosh(c+d*x)^2+2*cosh(c+d*x)^4)/d/(-%i+sinh(c+d*x))/(1+%i*sinh(c+d*x))^4 +r0018:= 1/35*cosh(c+d*x)*(35+35*%i*sinh(c+d*x)-25*cosh(c+d*x)^2-_ + 10*%i*sinh(c+d*x)*cosh(c+d*x)^2+2*cosh(c+d*x)^4)/d/_ + (-%i+sinh(c+d*x))/(1+%i*sinh(c+d*x))^4 --R --R --R (78) @@ -7060,7 +7084,9 @@ t0019:= 1/(1-%i*sinh(c+d*x))^3 --E 96 --S 97 of 510 -r0019:= -1/5*%i*cosh(c+d*x)/d/(1-%i*sinh(c+d*x))^3-2/15*%i*cosh(c+d*x)/d/(1-%i*sinh(c+d*x))^2+2/15*cosh(c+d*x)/d/(%i+sinh(c+d*x)) +r0019:= -1/5*%i*cosh(c+d*x)/d/(1-%i*sinh(c+d*x))^3-_ + 2/15*%i*cosh(c+d*x)/d/(1-%i*sinh(c+d*x))^2+_ + 2/15*cosh(c+d*x)/d/(%i+sinh(c+d*x)) --R --R --R (83) @@ -7493,7 +7519,9 @@ t0020:= 1/(1-%i*sinh(c+d*x))^4 --E 101 --S 102 of 510 -r0020:= 1/35*cosh(c+d*x)*(35-35*%i*sinh(c+d*x)-25*cosh(c+d*x)^2+10*%i*sinh(c+d*x)*cosh(c+d*x)^2+2*cosh(c+d*x)^4)/d/(-1+%i*sinh(c+d*x))^4/(%i+sinh(c+d*x)) +r0020:= 1/35*cosh(c+d*x)*(35-35*%i*sinh(c+d*x)-25*cosh(c+d*x)^2+_ + 10*%i*sinh(c+d*x)*cosh(c+d*x)^2+2*cosh(c+d*x)^4)/d/_ + (-1+%i*sinh(c+d*x))^4/(%i+sinh(c+d*x)) --R --R --R (88) @@ -8283,7 +8311,8 @@ t0021:= (a+b*sinh(c+d*x))^(1/2) --E 106 --S 107 of 510 -r0021:= -2*%i*EllipticE(-1/4*%pi+1/2*%i*(c+d*x),2*%i*b/(a-%i*b))*(a+b*sinh(c+d*x))^(1/2)/d/((a+b*sinh(c+d*x))/(a-%i*b))^(1/2) +r0021:= -2*%i*EllipticE(-1/4*%pi+1/2*%i*(c+d*x),2*%i*b/(a-%i*b))*_ + (a+b*sinh(c+d*x))^(1/2)/d/((a+b*sinh(c+d*x))/(a-%i*b))^(1/2) --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -8341,7 +8370,10 @@ t0022:= (a+b*sinh(x))^(3/2) --E 111 --S 112 of 510 -r0022:= -2/3*(-4*a*EllipticE(-1/4*%pi+1/2*x,2*b/(a+b))+a*EllipticF(-1/4*%pi+1/2*x,2*b/(a+b))+b*cosh(x)*((a+b*sinh(x))/(a+b))^(1/2)-b*EllipticF(-1/4*%pi+1/2*x,2*b/(a+b)))*(a+b*sinh(x))^(1/2)/((a+b*sinh(x))/(a+b))^(1/2) +r0022:= -2/3*(-4*a*EllipticE(-1/4*%pi+1/2*x,2*b/(a+b))+_ + a*EllipticF(-1/4*%pi+1/2*x,2*b/(a+b))+b*cosh(x)*_ + ((a+b*sinh(x))/(a+b))^(1/2)-b*EllipticF(-1/4*%pi+_ + 1/2*x,2*b/(a+b)))*(a+b*sinh(x))^(1/2)/((a+b*sinh(x))/(a+b))^(1/2) --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -8401,7 +8433,8 @@ t0023:= 1/(a+b*sinh(x))^(1/2) --E 116 --S 117 of 510 -r0023:= -2*%i*EllipticF(-1/4*%pi+1/2*%i*x,2*%i*b/(a-%i*b))*((a+b*sinh(x))/(a-%i*b))^(1/2)/(a+b*sinh(x))^(1/2) +r0023:= -2*%i*EllipticF(-1/4*%pi+1/2*%i*x,2*%i*b/(a-%i*b))*_ + ((a+b*sinh(x))/(a-%i*b))^(1/2)/(a+b*sinh(x))^(1/2) --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -8465,7 +8498,9 @@ t0024:= 1/(a+b*sinh(x))^(3/2) --E 121 --S 122 of 510 -r0024:= -2*b*cosh(x)/(a^2+b^2)/(a+b*sinh(x))^(1/2)-2*%i*EllipticE(-1/4*%pi+1/2*%i*x,2*%i*b/(a-%i*b))*(a+b*sinh(x))^(1/2)/(a^2+b^2)/((a+b*sinh(x))/(a-%i*b))^(1/2) +r0024:= -2*b*cosh(x)/(a^2+b^2)/(a+b*sinh(x))^(1/2)-2*%i*EllipticE(-1/4*%pi+_ + 1/2*%i*x,2*%i*b/(a-%i*b))*(a+b*sinh(x))^(1/2)/(a^2+b^2)/_ + ((a+b*sinh(x))/(a-%i*b))^(1/2) --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -8529,7 +8564,12 @@ t0025:= 1/(a+b*sinh(x))^(5/2) --E 126 --S 127 of 510 -r0025:= -2/3*b*cosh(x)/(a^2+b^2)/(a+b*sinh(x))^(3/2)-8/3*a*b*cosh(x)/(a^2+b^2)^2/(a+b*sinh(x))^(1/2)-8/3*%i*a*EllipticE(-1/4*%pi+1/2*%i*x,2*%i*b/(a-%i*b))*(a+b*sinh(x))^(1/2)/(a^2+b^2)^2/((a+b*sinh(x))/(a-%i*b))^(1/2)+2/3*%i*EllipticF(-1/4*%pi+1/2*%i*x,2*%i*b/(a-%i*b))*((a+b*sinh(x))/(a-%i*b))^(1/2)/(a^2+b^2)/(a+b*sinh(x))^(1/2) +r0025:= -2/3*b*cosh(x)/(a^2+b^2)/(a+b*sinh(x))^(3/2)-8/3*a*b*_ + cosh(x)/(a^2+b^2)^2/(a+b*sinh(x))^(1/2)-8/3*%i*a*_ + EllipticE(-1/4*%pi+1/2*%i*x,2*%i*b/(a-%i*b))*(a+b*sinh(x))^(1/2)/_ + (a^2+b^2)^2/((a+b*sinh(x))/(a-%i*b))^(1/2)+2/3*%i*_ + EllipticF(-1/4*%pi+1/2*%i*x,2*%i*b/(a-%i*b))*((a+b*sinh(x))/_ + (a-%i*b))^(1/2)/(a^2+b^2)/(a+b*sinh(x))^(1/2) --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -8896,7 +8936,8 @@ t0028:= (a+%i*a*sinh(c+d*x))^(5/2) --E 141 --S 142 of 510 -r0028:= -2/15*%i*cosh(c+d*x)*(-46-14*%i*sinh(c+d*x)+3*cosh(c+d*x)^2)*a^3/(a*(1+%i*sinh(c+d*x)))^(1/2)/d +r0028:= -2/15*%i*cosh(c+d*x)*(-46-14*%i*sinh(c+d*x)+_ + 3*cosh(c+d*x)^2)*a^3/(a*(1+%i*sinh(c+d*x)))^(1/2)/d --R --R --R (123) @@ -9234,7 +9275,8 @@ t0029:= 1/(a+%i*a*sinh(c+d*x))^(1/2) --E 146 --S 147 of 510 -r0029:= 2*atan(sinh(1/2*c+1/4*%i*%pi+1/2*d*x))*cosh(1/2*c+1/4*%i*%pi+1/2*d*x)/d/(a+%i*a*sinh(c+d*x))^(1/2) +r0029:= 2*atan(sinh(1/2*c+1/4*%i*%pi+1/2*d*x))*_ + cosh(1/2*c+1/4*%i*%pi+1/2*d*x)/d/(a+%i*a*sinh(c+d*x))^(1/2) --R --R --R 2d x + %i %pi + 2c 2d x + %i %pi + 2c @@ -9810,7 +9852,9 @@ t0030:= 1/(a+%i*a*sinh(c+d*x))^(3/2) --E 153 --S 154 of 510 -r0030:= 1/2*%i*cosh(c+d*x)/d/(a+%i*a*sinh(c+d*x))^(3/2)+1/2*atan(sinh(1/2*c+1/4*%i*%pi+1/2*d*x))*cosh(1/2*c+1/4*%i*%pi+1/2*d*x)/a/d/(a+%i*a*sinh(c+d*x))^(1/2) +r0030:= 1/2*%i*cosh(c+d*x)/d/(a+%i*a*sinh(c+d*x))^(3/2)+_ + 1/2*atan(sinh(1/2*c+1/4*%i*%pi+1/2*d*x))*_ + cosh(1/2*c+1/4*%i*%pi+1/2*d*x)/a/d/(a+%i*a*sinh(c+d*x))^(1/2) --R --R --R (135) @@ -9997,7 +10041,10 @@ t0031:= 1/(a+%i*a*sinh(c+d*x))^(5/2) --E 158 --S 159 of 510 -r0031:= 1/4*%i*cosh(c+d*x)/d/(a+%i*a*sinh(c+d*x))^(5/2)+3/16*%i*cosh(c+d*x)/a/d/(a+%i*a*sinh(c+d*x))^(3/2)+3/16*atan(sinh(1/2*c+1/4*%i*%pi+1/2*d*x))*cosh(1/2*c+1/4*%i*%pi+1/2*d*x)/a^2/d/(a+%i*a*sinh(c+d*x))^(1/2) +r0031:= 1/4*%i*cosh(c+d*x)/d/(a+%i*a*sinh(c+d*x))^(5/2)+_ + 3/16*%i*cosh(c+d*x)/a/d/(a+%i*a*sinh(c+d*x))^(3/2)+_ + 3/16*atan(sinh(1/2*c+1/4*%i*%pi+1/2*d*x))*_ + cosh(1/2*c+1/4*%i*%pi+1/2*d*x)/a^2/d/(a+%i*a*sinh(c+d*x))^(1/2) --R --R --R (139) @@ -10515,7 +10562,8 @@ t0034:= (a-%i*a*sinh(c+d*x))^(5/2) --E 173 --S 174 of 510 -r0034:= 2/15*%i*cosh(c+d*x)*(-46+14*%i*sinh(c+d*x)+3*cosh(c+d*x)^2)*a^3/(-a*(-1+%i*sinh(c+d*x)))^(1/2)/d +r0034:= 2/15*%i*cosh(c+d*x)*(-46+14*%i*sinh(c+d*x)+_ + 3*cosh(c+d*x)^2)*a^3/(-a*(-1+%i*sinh(c+d*x)))^(1/2)/d --R --R --R (153) @@ -10838,7 +10886,8 @@ t0035:= 1/(a-%i*a*sinh(c+d*x))^(1/2) --E 178 --S 179 of 510 -r0035:= -2*atanh(cosh(1/2*c+1/4*%i*%pi+1/2*d*x))*sinh(1/2*c+1/4*%i*%pi+1/2*d*x)/d/(a-%i*a*sinh(c+d*x))^(1/2) +r0035:= -2*atanh(cosh(1/2*c+1/4*%i*%pi+1/2*d*x))*_ + sinh(1/2*c+1/4*%i*%pi+1/2*d*x)/d/(a-%i*a*sinh(c+d*x))^(1/2) --R --R --R 2d x + %i %pi + 2c 2d x + %i %pi + 2c @@ -11385,7 +11434,9 @@ t0036:= 1/(a-%i*a*sinh(c+d*x))^(3/2) --E 185 --S 186 of 510 -r0036:= -1/2*%i*cosh(c+d*x)/d/(a-%i*a*sinh(c+d*x))^(3/2)-1/2*atanh(cosh(1/2*c+1/4*%i*%pi+1/2*d*x))*sinh(1/2*c+1/4*%i*%pi+1/2*d*x)/a/d/(a-%i*a*sinh(c+d*x))^(1/2) +r0036:= -1/2*%i*cosh(c+d*x)/d/(a-%i*a*sinh(c+d*x))^(3/2)-_ + 1/2*atanh(cosh(1/2*c+1/4*%i*%pi+1/2*d*x))*_ + sinh(1/2*c+1/4*%i*%pi+1/2*d*x)/a/d/(a-%i*a*sinh(c+d*x))^(1/2) --R --R --R (165) @@ -11555,7 +11606,10 @@ t0037:= 1/(a-%i*a*sinh(c+d*x))^(5/2) --E 190 --S 191 of 510 -r0037:= -1/4*%i*cosh(c+d*x)/d/(a-%i*a*sinh(c+d*x))^(5/2)-3/16*%i*cosh(c+d*x)/a/d/(a-%i*a*sinh(c+d*x))^(3/2)-3/16*atanh(cosh(1/2*c+1/4*%i*%pi+1/2*d*x))*sinh(1/2*c+1/4*%i*%pi+1/2*d*x)/a^2/d/(a-%i*a*sinh(c+d*x))^(1/2) +r0037:= -1/4*%i*cosh(c+d*x)/d/(a-%i*a*sinh(c+d*x))^(5/2)-_ + 3/16*%i*cosh(c+d*x)/a/d/(a-%i*a*sinh(c+d*x))^(3/2)-_ + 3/16*atanh(cosh(1/2*c+1/4*%i*%pi+1/2*d*x))*_ + sinh(1/2*c+1/4*%i*%pi+1/2*d*x)/a^2/d/(a-%i*a*sinh(c+d*x))^(1/2) --R --R --R (169) @@ -11785,7 +11839,8 @@ t0038:= (b*sinh(c+d*x))^(1/2) --E 195 --S 196 of 510 -r0038:= -2*%i*EllipticE(-1/4*%pi+1/2*%i*(c+d*x),2)*(b*sinh(c+d*x))^(1/2)/d/(%i*sinh(c+d*x))^(1/2) +r0038:= -2*%i*EllipticE(-1/4*%pi+1/2*%i*(c+d*x),2)*_ + (b*sinh(c+d*x))^(1/2)/d/(%i*sinh(c+d*x))^(1/2) --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -11843,7 +11898,8 @@ t0039:= (b*sinh(c+d*x))^(3/2) --E 200 --S 201 of 510 -r0039:= 2/3*b^2*(%i*EllipticF(-1/4*%pi+1/2*%i*c+1/2*%i*d*x,2)*(%i*sinh(c+d*x))^(1/2)+cosh(c+d*x)*sinh(c+d*x))/(b*sinh(c+d*x))^(1/2)/d +r0039:= 2/3*b^2*(%i*EllipticF(-1/4*%pi+1/2*%i*c+1/2*%i*d*x,2)*_ + (%i*sinh(c+d*x))^(1/2)+cosh(c+d*x)*sinh(c+d*x))/(b*sinh(c+d*x))^(1/2)/d --R --R There are 15 exposed and 5 unexposed library operations named + --R having 2 argument(s) but none was determined to be applicable. @@ -11903,7 +11959,9 @@ t0040:= (b*sinh(c+d*x))^(5/2) --E 205 --S 206 of 510 -r0040:= 6/5*%i*b^2*EllipticE(-1/4*%pi+1/2*%i*(c+d*x),2)*(b*sinh(c+d*x))^(1/2)/d/(%i*sinh(c+d*x))^(1/2)+2/5*b*cosh(c+d*x)*(b*sinh(c+d*x))^(3/2)/d +r0040:= 6/5*%i*b^2*EllipticE(-1/4*%pi+1/2*%i*(c+d*x),2)*_ + (b*sinh(c+d*x))^(1/2)/d/(%i*sinh(c+d*x))^(1/2)+_ + 2/5*b*cosh(c+d*x)*(b*sinh(c+d*x))^(3/2)/d --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -11963,7 +12021,8 @@ t0041:= 1/(b*sinh(c+d*x))^(1/2) --E 210 --S 211 of 510 -r0041:= -2*%i*EllipticF(-1/4*%pi+1/2*%i*(c+d*x),2)*(%i*sinh(c+d*x))^(1/2)/d/(b*sinh(c+d*x))^(1/2) +r0041:= -2*%i*EllipticF(-1/4*%pi+1/2*%i*(c+d*x),2)*(%i*sinh(c+d*x))^(1/2)/_ + d/(b*sinh(c+d*x))^(1/2) --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -12027,7 +12086,9 @@ t0042:= 1/(b*sinh(c+d*x))^(3/2) --E 215 --S 216 of 510 -r0042:= -2*cosh(c+d*x)/b/d/(b*sinh(c+d*x))^(1/2)-2*%i*EllipticE(-1/4*%pi+1/2*%i*(c+d*x),2)*(b*sinh(c+d*x))^(1/2)/b^2/d/(%i*sinh(c+d*x))^(1/2) +r0042:= -2*cosh(c+d*x)/b/d/(b*sinh(c+d*x))^(1/2)-_ + 2*%i*EllipticE(-1/4*%pi+1/2*%i*(c+d*x),2)*_ + (b*sinh(c+d*x))^(1/2)/b^2/d/(%i*sinh(c+d*x))^(1/2) --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -12091,7 +12152,9 @@ t0043:= 1/(b*sinh(c+d*x))^(5/2) --E 220 --S 221 of 510 -r0043:= 2/3/b^2*(-cosh(c+d*x)+%i*EllipticF(-1/4*%pi+1/2*%i*c+1/2*%i*d*x,2)*(%i*sinh(c+d*x))^(1/2)*sinh(c+d*x))/d/sinh(c+d*x)/(b*sinh(c+d*x))^(1/2) +r0043:= 2/3/b^2*(-cosh(c+d*x)+%i*EllipticF(-1/4*%pi+1/2*%i*c+_ + 1/2*%i*d*x,2)*(%i*sinh(c+d*x))^(1/2)*sinh(c+d*x))/d/_ + sinh(c+d*x)/(b*sinh(c+d*x))^(1/2) --R --R There are 15 exposed and 5 unexposed library operations named + --R having 2 argument(s) but none was determined to be applicable. @@ -12157,7 +12220,12 @@ t0044:= x^2/(a+b*sinh(x)) --E 225 --S 226 of 510 -r0044:= -(-x^2*log((-a+(a^2+b^2)^(1/2)-b*exp(x))/((a^2+b^2)^(1/2)-a))+x^2*log((a+(a^2+b^2)^(1/2)+b*exp(x))/(a+(a^2+b^2)^(1/2)))-2*x*polylog(2,b*exp(x)/((a^2+b^2)^(1/2)-a))+2*x*polylog(2,-b*exp(x)/(a+(a^2+b^2)^(1/2)))+2*polylog(3,b*exp(x)/((a^2+b^2)^(1/2)-a))-2*polylog(3,-b*exp(x)/(a+(a^2+b^2)^(1/2))))/(a^2+b^2)^(1/2) +r0044:= -(-x^2*log((-a+(a^2+b^2)^(1/2)-b*exp(x))/((a^2+b^2)^(1/2)-a))+_ + x^2*log((a+(a^2+b^2)^(1/2)+b*exp(x))/(a+(a^2+b^2)^(1/2)))-_ + 2*x*polylog(2,b*exp(x)/((a^2+b^2)^(1/2)-a))+2*x*_ + polylog(2,-b*exp(x)/(a+(a^2+b^2)^(1/2)))+2*_ + polylog(3,b*exp(x)/((a^2+b^2)^(1/2)-a))-2*_ + polylog(3,-b*exp(x)/(a+(a^2+b^2)^(1/2))))/(a^2+b^2)^(1/2) --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -12219,7 +12287,14 @@ t0045:= x^3/(a+b*sinh(x)) --E 230 --S 231 of 510 -r0045:= (x^3*log((-a+(a^2+b^2)^(1/2)-b*exp(x))/((a^2+b^2)^(1/2)-a))-x^3*log((a+(a^2+b^2)^(1/2)+b*exp(x))/(a+(a^2+b^2)^(1/2)))+3*x^2*polylog(2,b*exp(x)/((a^2+b^2)^(1/2)-a))-3*x^2*polylog(2,-b*exp(x)/(a+(a^2+b^2)^(1/2)))-6*x*polylog(3,b*exp(x)/((a^2+b^2)^(1/2)-a))+6*x*polylog(3,-b*exp(x)/(a+(a^2+b^2)^(1/2)))+6*polylog(4,b*exp(x)/((a^2+b^2)^(1/2)-a))-6*polylog(4,-b*exp(x)/(a+(a^2+b^2)^(1/2))))/(a^2+b^2)^(1/2) +r0045:= (x^3*log((-a+(a^2+b^2)^(1/2)-b*exp(x))/((a^2+b^2)^(1/2)-a))-_ + x^3*log((a+(a^2+b^2)^(1/2)+b*exp(x))/(a+(a^2+b^2)^(1/2)))+_ + 3*x^2*polylog(2,b*exp(x)/((a^2+b^2)^(1/2)-a))-_ + 3*x^2*polylog(2,-b*exp(x)/(a+(a^2+b^2)^(1/2)))-_ + 6*x*polylog(3,b*exp(x)/((a^2+b^2)^(1/2)-a))+_ + 6*x*polylog(3,-b*exp(x)/(a+(a^2+b^2)^(1/2)))+_ + 6*polylog(4,b*exp(x)/((a^2+b^2)^(1/2)-a))-_ + 6*polylog(4,-b*exp(x)/(a+(a^2+b^2)^(1/2))))/(a^2+b^2)^(1/2) --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -12562,7 +12637,12 @@ t0048:= x/(a+b*sinh(x))^2 --E 245 --S 246 of 510 -r0048:= a*x*log(1+b*exp(x)/(a-(a^2+b^2)^(1/2)))/(a^2+b^2)^(3/2)-a*x*log(1+b*exp(x)/(a+(a^2+b^2)^(1/2)))/(a^2+b^2)^(3/2)+log(a+b*sinh(x))/(a^2+b^2)+a*polylog(2,-b*exp(x)/(a-(a^2+b^2)^(1/2)))/(a^2+b^2)^(3/2)-a*polylog(2,-b*exp(x)/(a+(a^2+b^2)^(1/2)))/(a^2+b^2)^(3/2)-b*x*cosh(x)/(a^2+b^2)/(a+b*sinh(x)) +r0048:= a*x*log(1+b*exp(x)/(a-(a^2+b^2)^(1/2)))/(a^2+b^2)^(3/2)-_ + a*x*log(1+b*exp(x)/(a+(a^2+b^2)^(1/2)))/(a^2+b^2)^(3/2)+_ + log(a+b*sinh(x))/(a^2+b^2)+a*polylog(2,-b*exp(x)/_ + (a-(a^2+b^2)^(1/2)))/(a^2+b^2)^(3/2)-_ + a*polylog(2,-b*exp(x)/(a+(a^2+b^2)^(1/2)))/(a^2+b^2)^(3/2)-_ + b*x*cosh(x)/(a^2+b^2)/(a+b*sinh(x)) --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -12624,7 +12704,9 @@ t0049:= x*(a+%i*a*sinh(c+d*x))^(1/2) --E 250 --S 251 of 510 -r0049:= -2*2^(1/2)*(a*cosh(1/2*c+1/4*%i*%pi+1/2*d*x)^2)^(1/2)*sech(1/2*c+1/4*%i*%pi+1/2*d*x)*(2*cosh(1/2*c+1/4*%i*%pi+1/2*d*x)-d*x*sinh(1/2*c+1/4*%i*%pi+1/2*d*x))/d^2 +r0049:= -2*2^(1/2)*(a*cosh(1/2*c+1/4*%i*%pi+1/2*d*x)^2)^(1/2)*_ + sech(1/2*c+1/4*%i*%pi+1/2*d*x)*(2*cosh(1/2*c+1/4*%i*%pi+1/2*d*x)-_ + d*x*sinh(1/2*c+1/4*%i*%pi+1/2*d*x))/d^2 --R --R --R (219) @@ -12742,7 +12824,9 @@ t0050:= x^2*(a+%i*a*sinh(c+d*x))^(1/2) --E 255 --S 256 of 510 -r0050:= -2*2^(1/2)*(a*cosh(1/2*c+1/4*%i*%pi+1/2*d*x)^2)^(1/2)*sech(1/2*c+1/4*%i*%pi+1/2*d*x)*(4*d*x*cosh(1/2*c+1/4*%i*%pi+1/2*d*x)-(8+d^2*x^2)*sinh(1/2*c+1/4*%i*%pi+1/2*d*x))/d^3 +r0050:= -2*2^(1/2)*(a*cosh(1/2*c+1/4*%i*%pi+1/2*d*x)^2)^(1/2)*_ + sech(1/2*c+1/4*%i*%pi+1/2*d*x)*(4*d*x*cosh(1/2*c+1/4*%i*%pi+1/2*d*x)-_ + (8+d^2*x^2)*sinh(1/2*c+1/4*%i*%pi+1/2*d*x))/d^3 --R --R --R (223) @@ -12861,7 +12945,9 @@ t0051:= (a+%i*a*sinh(c+d*x))^(1/2)/x --E 260 --S 261 of 510 -r0051:= 2^(1/2)*(a*cosh(1/2*c+1/4*%i*%pi+1/2*d*x)^2)^(1/2)*sech(1/2*c+1/4*%i*%pi+1/2*d*x)*(cosh(1/2*c+1/4*%i*%pi)*Chi(1/2*d*x)+sinh(1/2*c+1/4*%i*%pi)*Shi(1/2*d*x)) +r0051:= 2^(1/2)*(a*cosh(1/2*c+1/4*%i*%pi+1/2*d*x)^2)^(1/2)*_ + sech(1/2*c+1/4*%i*%pi+1/2*d*x)*(cosh(1/2*c+1/4*%i*%pi)*_ + Chi(1/2*d*x)+sinh(1/2*c+1/4*%i*%pi)*Shi(1/2*d*x)) --R --R There are no library operations named Chi --R Use HyperDoc Browse or issue @@ -12917,7 +13003,10 @@ t0052:= (a+%i*a*sinh(c+d*x))^(1/2)/x^2 --E 265 --S 266 of 510 -r0052:= -1/2*2^(1/2)*(a*cosh(1/2*c+1/4*%i*%pi+1/2*d*x)^2)^(1/2)*sech(1/2*c+1/4*%i*%pi+1/2*d*x)*(2*cosh(1/2*c+1/4*%i*%pi+1/2*d*x)/x-d*Chi(1/2*d*x)*sinh(1/2*c+1/4*%i*%pi)-d*cosh(1/2*c+1/4*%i*%pi)*Shi(1/2*d*x)) +r0052:= -1/2*2^(1/2)*(a*cosh(1/2*c+1/4*%i*%pi+1/2*d*x)^2)^(1/2)*_ + sech(1/2*c+1/4*%i*%pi+1/2*d*x)*(2*cosh(1/2*c+1/4*%i*%pi+1/2*d*x)/x-_ + d*Chi(1/2*d*x)*sinh(1/2*c+1/4*%i*%pi)-_ + d*cosh(1/2*c+1/4*%i*%pi)*Shi(1/2*d*x)) --R --R There are no library operations named Chi --R Use HyperDoc Browse or issue @@ -12973,7 +13062,11 @@ t0053:= (a+%i*a*sinh(c+d*x))^(1/2)/x^3 --E 270 --S 271 of 510 -r0053:= -1/8*2^(1/2)*(a*cosh(1/2*c+1/4*%i*%pi+1/2*d*x)^2)^(1/2)*sech(1/2*c+1/4*%i*%pi+1/2*d*x)*(4*cosh(1/2*c+1/4*%i*%pi+1/2*d*x)/x^2-d^2*cosh(1/2*c+1/4*%i*%pi)*Chi(1/2*d*x)+2*d*sinh(1/2*c+1/4*%i*%pi+1/2*d*x)/x-d^2*sinh(1/2*c+1/4*%i*%pi)*Shi(1/2*d*x)) +r0053:= -1/8*2^(1/2)*(a*cosh(1/2*c+1/4*%i*%pi+1/2*d*x)^2)^(1/2)*_ + sech(1/2*c+1/4*%i*%pi+1/2*d*x)*(4*cosh(1/2*c+1/4*%i*%pi+_ + 1/2*d*x)/x^2-d^2*cosh(1/2*c+1/4*%i*%pi)*Chi(1/2*d*x)+_ + 2*d*sinh(1/2*c+1/4*%i*%pi+1/2*d*x)/x-_ + d^2*sinh(1/2*c+1/4*%i*%pi)*Shi(1/2*d*x)) --R --R There are no library operations named Chi --R Use HyperDoc Browse or issue @@ -13026,7 +13119,9 @@ t0054:= x*(a-%i*a*sinh(c+d*x))^(1/2) --E 275 --S 276 of 510 -r0054:= -2*%i*2^(1/2)*(-a*sinh(1/2*c+1/4*%i*%pi+1/2*d*x)^2)^(1/2)*csch(1/2*c+1/4*%i*%pi+1/2*d*x)*(-2*%i*sinh(1/2*c+1/4*%i*%pi+1/2*d*x)+%i*d*x*cosh(1/2*c+1/4*%i*%pi+1/2*d*x))/d^2 +r0054:= -2*%i*2^(1/2)*(-a*sinh(1/2*c+1/4*%i*%pi+1/2*d*x)^2)^(1/2)*_ + csch(1/2*c+1/4*%i*%pi+1/2*d*x)*(-2*%i*sinh(1/2*c+1/4*%i*%pi+_ + 1/2*d*x)+%i*d*x*cosh(1/2*c+1/4*%i*%pi+1/2*d*x))/d^2 --R --R --R (236) @@ -13135,7 +13230,9 @@ t0055:= x^2*(a-%i*a*sinh(c+d*x))^(1/2) --E 280 --S 281 of 510 -r0055:= -2*%i*2^(1/2)*(-a*sinh(1/2*c+1/4*%i*%pi+1/2*d*x)^2)^(1/2)*csch(1/2*c+1/4*%i*%pi+1/2*d*x)*(-4*%i*d*x*sinh(1/2*c+1/4*%i*%pi+1/2*d*x)+%i*(8+d^2*x^2)*cosh(1/2*c+1/4*%i*%pi+1/2*d*x))/d^3 +r0055:= -2*%i*2^(1/2)*(-a*sinh(1/2*c+1/4*%i*%pi+1/2*d*x)^2)^(1/2)*_ + csch(1/2*c+1/4*%i*%pi+1/2*d*x)*(-4*%i*d*x*sinh(1/2*c+_ + 1/4*%i*%pi+1/2*d*x)+%i*(8+d^2*x^2)*cosh(1/2*c+1/4*%i*%pi+1/2*d*x))/d^3 --R --R --R (240) @@ -13246,7 +13343,9 @@ t0056:= (a-%i*a*sinh(c+d*x))^(1/2)/x --E 285 --S 286 of 510 -r0056:= %i*2^(1/2)*(-a*sinh(1/2*c+1/4*%i*%pi+1/2*d*x)^2)^(1/2)*csch(1/2*c+1/4*%i*%pi+1/2*d*x)*(-%i*sinh(1/2*c+1/4*%i*%pi)*Chi(1/2*d*x)-%i*cosh(1/2*c+1/4*%i*%pi)*Shi(1/2*d*x)) +r0056:= %i*2^(1/2)*(-a*sinh(1/2*c+1/4*%i*%pi+1/2*d*x)^2)^(1/2)*_ + csch(1/2*c+1/4*%i*%pi+1/2*d*x)*(-%i*sinh(1/2*c+1/4*%i*%pi)*_ + Chi(1/2*d*x)-%i*cosh(1/2*c+1/4*%i*%pi)*Shi(1/2*d*x)) --R --R There are no library operations named Chi --R Use HyperDoc Browse or issue @@ -13302,7 +13401,10 @@ t0057:= (a-%i*a*sinh(c+d*x))^(1/2)/x^2 --E 290 --S 291 of 510 -r0057:= -1/2*%i*2^(1/2)*(-a*sinh(1/2*c+1/4*%i*%pi+1/2*d*x)^2)^(1/2)*csch(1/2*c+1/4*%i*%pi+1/2*d*x)*(-2*%i*sinh(1/2*c+1/4*%i*%pi+1/2*d*x)/x+%i*d*Chi(1/2*d*x)*cosh(1/2*c+1/4*%i*%pi)+%i*d*sinh(1/2*c+1/4*%i*%pi)*Shi(1/2*d*x)) +r0057:= -1/2*%i*2^(1/2)*(-a*sinh(1/2*c+1/4*%i*%pi+1/2*d*x)^2)^(1/2)*_ + csch(1/2*c+1/4*%i*%pi+1/2*d*x)*(-2*%i*sinh(1/2*c+1/4*%i*%pi+_ + 1/2*d*x)/x+%i*d*Chi(1/2*d*x)*cosh(1/2*c+1/4*%i*%pi)+_ + %i*d*sinh(1/2*c+1/4*%i*%pi)*Shi(1/2*d*x)) --R --R There are no library operations named Chi --R Use HyperDoc Browse or issue @@ -13358,7 +13460,11 @@ t0058:= (a-%i*a*sinh(c+d*x))^(1/2)/x^3 --E 295 --S 296 of 510 -r0058:= -1/8*%i*2^(1/2)*(-a*sinh(1/2*c+1/4*%i*%pi+1/2*d*x)^2)^(1/2)*csch(1/2*c+1/4*%i*%pi+1/2*d*x)*(-4*%i*sinh(1/2*c+1/4*%i*%pi+1/2*d*x)/x^2+%i*d^2*sinh(1/2*c+1/4*%i*%pi)*Chi(1/2*d*x)-2*%i*d*cosh(1/2*c+1/4*%i*%pi+1/2*d*x)/x+%i*d^2*cosh(1/2*c+1/4*%i*%pi)*Shi(1/2*d*x)) +r0058:= -1/8*%i*2^(1/2)*(-a*sinh(1/2*c+1/4*%i*%pi+1/2*d*x)^2)^(1/2)*_ + csch(1/2*c+1/4*%i*%pi+1/2*d*x)*(-4*%i*sinh(1/2*c+1/4*%i*%pi+_ + 1/2*d*x)/x^2+%i*d^2*sinh(1/2*c+1/4*%i*%pi)*Chi(1/2*d*x)-_ + 2*%i*d*cosh(1/2*c+1/4*%i*%pi+1/2*d*x)/x+_ + %i*d^2*cosh(1/2*c+1/4*%i*%pi)*Shi(1/2*d*x)) --R --R There are no library operations named Chi --R Use HyperDoc Browse or issue @@ -13674,7 +13780,8 @@ t0060:= 1/(a+b*sinh(x)^2)^2 --E 307 --S 308 of 510 -r0060:= -1/2*(2*a-b)*atan((-a+b)^(1/2)*tanh(x)/a^(1/2))/a^(3/2)/(-a+b)^(3/2)-1/2*b*tanh(x)/a/(a-b)/(a-(a-b)*tanh(x)^2) +r0060:= -1/2*(2*a-b)*atan((-a+b)^(1/2)*tanh(x)/a^(1/2))/a^(3/2)/(-a+b)^(3/2)-_ + 1/2*b*tanh(x)/a/(a-b)/(a-(a-b)*tanh(x)^2) --R --R --R (260) @@ -14911,7 +15018,12 @@ t0061:= 1/(a+b*sinh(x)^2)^3 --E 314 --S 315 of 510 -r0061:= 1/8*(8*a^2-8*a*b+3*b^2)*atanh((a-b)^(1/2)*tanh(x)/a^(1/2))/a^(5/2)/(a-b)^(5/2)-a*tanh(x)/(a-b)^2/(a-(a-b)*tanh(x)^2)^2+1/4*b^2*tanh(x)/a/(a-b)^2/(a-(a-b)*tanh(x)^2)^2+tanh(x)^3/(a-b)/(a-(a-b)*tanh(x)^2)^2+1/8*(8*a^2-8*a*b+3*b^2)*tanh(x)/a^2/(a-b)^2/(a-(a-b)*tanh(x)^2) +r0061:= 1/8*(8*a^2-8*a*b+3*b^2)*atanh((a-b)^(1/2)*_ + tanh(x)/a^(1/2))/a^(5/2)/(a-b)^(5/2)-_ + a*tanh(x)/(a-b)^2/(a-(a-b)*tanh(x)^2)^2+_ + 1/4*b^2*tanh(x)/a/(a-b)^2/(a-(a-b)*tanh(x)^2)^2+_ + tanh(x)^3/(a-b)/(a-(a-b)*tanh(x)^2)^2+_ + 1/8*(8*a^2-8*a*b+3*b^2)*tanh(x)/a^2/(a-b)^2/(a-(a-b)*tanh(x)^2) --R --R --R (267) @@ -21722,7 +21834,8 @@ t0064:= 1/(1-sinh(x)^2)^3 --E 331 --S 332 of 510 -r0064:= 19/64*atanh(2^(1/2)*tanh(x))*2^(1/2)+1/16*tanh(x)/(-1+2*tanh(x)^2)^2-11*tanh(x)/(-32+64*tanh(x)^2) +r0064:= 19/64*atanh(2^(1/2)*tanh(x))*2^(1/2)+_ + 1/16*tanh(x)/(-1+2*tanh(x)^2)^2-11*tanh(x)/(-32+64*tanh(x)^2) --R --R --R (284) @@ -23898,7 +24011,8 @@ t0067:= (a+b*sinh(x)^2)^(1/2) --E 346 --S 347 of 510 -r0067:= -%i*(2*a-b+b*cosh(2*x))^(1/2)*EllipticE(%i*x,b/a)/((2*a-b+b*cosh(2*x))/a)^(1/2) +r0067:= -%i*(2*a-b+b*cosh(2*x))^(1/2)*_ + EllipticE(%i*x,b/a)/((2*a-b+b*cosh(2*x))/a)^(1/2) --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -24088,7 +24202,8 @@ t0070:= 1/(a+b*sinh(x)^2)^(1/2) --E 361 --S 362 of 510 -r0070:= -%i*((2*a-b+b*cosh(2*x))/a)^(1/2)*EllipticF(%i*x,b/a)/(2*a-b+b*cosh(2*x))^(1/2) +r0070:= -%i*((2*a-b+b*cosh(2*x))/a)^(1/2)*_ + EllipticF(%i*x,b/a)/(2*a-b+b*cosh(2*x))^(1/2) --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -24155,7 +24270,13 @@ t0071:= x/(a+b*sinh(x)^2) --E 366 --S 367 of 510 -r0071:= -1/4*(-2*x*log((-2*a+2*a^(1/2)*(a-b)^(1/2)+b-b*exp(2*x))/(-2*a+2*a^(1/2)*(a-b)^(1/2)+b))+2*x*log((2*a+2*a^(1/2)*(a-b)^(1/2)-b+b*exp(2*x))/(2*a+2*a^(1/2)*(a-b)^(1/2)-b))-polylog(2,b*exp(2*x)/(-2*a+2*a^(1/2)*(a-b)^(1/2)+b))+polylog(2,-1/(2*a+2*a^(1/2)*(a-b)^(1/2)-b)*b*exp(2*x)))/a^(1/2)/(a-b)^(1/2) +r0071:= -1/4*(-2*x*log((-2*a+2*a^(1/2)*(a-b)^(1/2)+b-_ + b*exp(2*x))/(-2*a+2*a^(1/2)*(a-b)^(1/2)+b))+_ + 2*x*log((2*a+2*a^(1/2)*(a-b)^(1/2)-b+b*exp(2*x))/_ + (2*a+2*a^(1/2)*(a-b)^(1/2)-b))-_ + polylog(2,b*exp(2*x)/(-2*a+2*a^(1/2)*(a-b)^(1/2)+b))+_ + polylog(2,-1/(2*a+2*a^(1/2)*(a-b)^(1/2)-b)*b*_ + exp(2*x)))/a^(1/2)/(a-b)^(1/2) --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -24220,7 +24341,15 @@ t0072:= x^2/(a+b*sinh(x)^2) --E 371 --S 372 of 510 -r0072:= -1/4*(-2*x^2*log((-2*a+2*a^(1/2)*(a-b)^(1/2)+b-b*exp(2*x))/(-2*a+2*a^(1/2)*(a-b)^(1/2)+b))+2*x^2*log((2*a+2*a^(1/2)*(a-b)^(1/2)-b+b*exp(2*x))/(2*a+2*a^(1/2)*(a-b)^(1/2)-b))-2*x*polylog(2,b*exp(2*x)/(-2*a+2*a^(1/2)*(a-b)^(1/2)+b))+2*x*polylog(2,-1/(2*a+2*a^(1/2)*(a-b)^(1/2)-b)*b*exp(2*x))+polylog(3,b*exp(2*x)/(-2*a+2*a^(1/2)*(a-b)^(1/2)+b))-polylog(3,-1/(2*a+2*a^(1/2)*(a-b)^(1/2)-b)*b*exp(2*x)))/a^(1/2)/(a-b)^(1/2) +r0072:= -1/4*(-2*x^2*log((-2*a+2*a^(1/2)*(a-b)^(1/2)+b-_ + b*exp(2*x))/(-2*a+2*a^(1/2)*(a-b)^(1/2)+b))+_ + 2*x^2*log((2*a+2*a^(1/2)*(a-b)^(1/2)-b+_ + b*exp(2*x))/(2*a+2*a^(1/2)*(a-b)^(1/2)-b))-_ + 2*x*polylog(2,b*exp(2*x)/(-2*a+2*a^(1/2)*(a-b)^(1/2)+b))+_ + 2*x*polylog(2,-1/(2*a+2*a^(1/2)*(a-b)^(1/2)-b)*b*exp(2*x))+_ + polylog(3,b*exp(2*x)/(-2*a+2*a^(1/2)*(a-b)^(1/2)+b))-_ + polylog(3,-1/(2*a+2*a^(1/2)*(a-b)^(1/2)-b)*_ + b*exp(2*x)))/a^(1/2)/(a-b)^(1/2) --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -24286,7 +24415,16 @@ t0073:= x^3/(a+b*sinh(x)^2) --E 376 --S 377 of 510 -r0073:= -1/8*(-4*x^3*log((-2*a+2*a^(1/2)*(a-b)^(1/2)+b-b*exp(2*x))/(-2*a+2*a^(1/2)*(a-b)^(1/2)+b))+4*x^3*log((2*a+2*a^(1/2)*(a-b)^(1/2)-b+b*exp(2*x))/(2*a+2*a^(1/2)*(a-b)^(1/2)-b))-6*x^2*polylog(2,b*exp(2*x)/(-2*a+2*a^(1/2)*(a-b)^(1/2)+b))+6*x^2*polylog(2,-1/(2*a+2*a^(1/2)*(a-b)^(1/2)-b)*b*exp(2*x))+6*x*polylog(3,b*exp(2*x)/(-2*a+2*a^(1/2)*(a-b)^(1/2)+b))-6*x*polylog(3,-1/(2*a+2*a^(1/2)*(a-b)^(1/2)-b)*b*exp(2*x))-3*polylog(4,b*exp(2*x)/(-2*a+2*a^(1/2)*(a-b)^(1/2)+b))+3*polylog(4,-1/(2*a+2*a^(1/2)*(a-b)^(1/2)-b)*b*exp(2*x)))/a^(1/2)/(a-b)^(1/2) +r0073:= -1/8*(-4*x^3*log((-2*a+2*a^(1/2)*(a-b)^(1/2)+b-b*exp(2*x))/_ + (-2*a+2*a^(1/2)*(a-b)^(1/2)+b))+4*x^3*log((2*a+2*a^(1/2)*_ + (a-b)^(1/2)-b+b*exp(2*x))/(2*a+2*a^(1/2)*(a-b)^(1/2)-b))-_ + 6*x^2*polylog(2,b*exp(2*x)/(-2*a+2*a^(1/2)*(a-b)^(1/2)+b))+_ + 6*x^2*polylog(2,-1/(2*a+2*a^(1/2)*(a-b)^(1/2)-b)*b*exp(2*x))+_ + 6*x*polylog(3,b*exp(2*x)/(-2*a+2*a^(1/2)*(a-b)^(1/2)+b))-_ + 6*x*polylog(3,-1/(2*a+2*a^(1/2)*(a-b)^(1/2)-b)*b*exp(2*x))-_ + 3*polylog(4,b*exp(2*x)/(-2*a+2*a^(1/2)*(a-b)^(1/2)+b))+_ + 3*polylog(4,-1/(2*a+2*a^(1/2)*(a-b)^(1/2)-b)*_ + b*exp(2*x)))/a^(1/2)/(a-b)^(1/2) --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -24351,7 +24489,13 @@ t0074:= 1/(a+b*sinh(x)^3) --E 381 --S 382 of 510 -r0074:= -2/3*atanh((b^(1/3)-a^(1/3)*tanh(1/2*x))/(a^(2/3)+b^(2/3))^(1/2))/a^(2/3)/(a^(2/3)+b^(2/3))^(1/2)-2/3*atanh(((-1)^(2/3)*b^(1/3)-a^(1/3)*tanh(1/2*x))/(a^(2/3)-(-1)^(1/3)*b^(2/3))^(1/2))/a^(2/3)/(a^(2/3)-(-1)^(1/3)*b^(2/3))^(1/2)+2/3*atanh(((-1)^(1/3)*b^(1/3)+a^(1/3)*tanh(1/2*x))/(a^(2/3)+(-1)^(2/3)*b^(2/3))^(1/2))/a^(2/3)/(a^(2/3)+(-1)^(2/3)*b^(2/3))^(1/2) +r0074:= -2/3*atanh((b^(1/3)-a^(1/3)*tanh(1/2*x))/(a^(2/3)+b^(2/3))^(1/2))/_ + a^(2/3)/(a^(2/3)+b^(2/3))^(1/2)-2/3*atanh(((-1)^(2/3)*b^(1/3)-_ + a^(1/3)*tanh(1/2*x))/(a^(2/3)-(-1)^(1/3)*b^(2/3))^(1/2))/_ + a^(2/3)/(a^(2/3)-(-1)^(1/3)*b^(2/3))^(1/2)+_ + 2/3*atanh(((-1)^(1/3)*b^(1/3)+_ + a^(1/3)*tanh(1/2*x))/(a^(2/3)+(-1)^(2/3)*b^(2/3))^(1/2))/_ + a^(2/3)/(a^(2/3)+(-1)^(2/3)*b^(2/3))^(1/2) --R --R --R (329) @@ -29045,7 +29189,9 @@ t0075:= 1/(a+b*sinh(x)^4) --E 386 --S 387 of 510 -r0075:= 1/2*atan((-a^(1/2)+(-b)^(1/2))^(1/2)*tanh(x)/a^(1/4))/a^(3/4)/(-a^(1/2)+(-b)^(1/2))^(1/2)+1/2*atanh((a^(1/2)+(-b)^(1/2))^(1/2)*tanh(x)/a^(1/4))/a^(3/4)/(a^(1/2)+(-b)^(1/2))^(1/2) +r0075:= 1/2*atan((-a^(1/2)+(-b)^(1/2))^(1/2)*tanh(x)/a^(1/4))/a^(3/4)/_ + (-a^(1/2)+(-b)^(1/2))^(1/2)+1/2*atanh((a^(1/2)+_ + (-b)^(1/2))^(1/2)*tanh(x)/a^(1/4))/a^(3/4)/(a^(1/2)+(-b)^(1/2))^(1/2) --R --R --R (334) @@ -29680,7 +29826,17 @@ t0076:= 1/(a+b*sinh(x)^5) --E 391 --S 392 of 510 -r0076:= -2/5*atanh((b^(1/5)-a^(1/5)*tanh(1/2*x))/(a^(2/5)+b^(2/5))^(1/2))/a^(4/5)/(a^(2/5)+b^(2/5))^(1/2)-2/5*atanh(((-1)^(2/5)*b^(1/5)-a^(1/5)*tanh(1/2*x))/(a^(2/5)+(-1)^(4/5)*b^(2/5))^(1/2))/a^(4/5)/(a^(2/5)+(-1)^(4/5)*b^(2/5))^(1/2)-2/5*atanh(((-1)^(4/5)*b^(1/5)-a^(1/5)*tanh(1/2*x))/(a^(2/5)-(-1)^(3/5)*b^(2/5))^(1/2))/a^(4/5)/(a^(2/5)-(-1)^(3/5)*b^(2/5))^(1/2)+2/5*atanh(((-1)^(1/5)*b^(1/5)+a^(1/5)*tanh(1/2*x))/(a^(2/5)+(-1)^(2/5)*b^(2/5))^(1/2))/a^(4/5)/(a^(2/5)+(-1)^(2/5)*b^(2/5))^(1/2)+2/5*atanh(((-1)^(3/5)*b^(1/5)+a^(1/5)*tanh(1/2*x))/(a^(2/5)-(-1)^(1/5)*b^(2/5))^(1/2))/a^(4/5)/(a^(2/5)-(-1)^(1/5)*b^(2/5))^(1/2) +r0076:= -2/5*atanh((b^(1/5)-a^(1/5)*tanh(1/2*x))/(a^(2/5)+b^(2/5))^(1/2))/_ + a^(4/5)/(a^(2/5)+b^(2/5))^(1/2)-2/5*atanh(((-1)^(2/5)*b^(1/5)-_ + a^(1/5)*tanh(1/2*x))/(a^(2/5)+(-1)^(4/5)*b^(2/5))^(1/2))/_ + a^(4/5)/(a^(2/5)+(-1)^(4/5)*b^(2/5))^(1/2)-2/5*atanh(((-1)^(4/5)*_ + b^(1/5)-a^(1/5)*tanh(1/2*x))/(a^(2/5)-(-1)^(3/5)*b^(2/5))^(1/2))/_ + a^(4/5)/(a^(2/5)-(-1)^(3/5)*b^(2/5))^(1/2)+_ + 2/5*atanh(((-1)^(1/5)*b^(1/5)+a^(1/5)*tanh(1/2*x))/(a^(2/5)+_ + (-1)^(2/5)*b^(2/5))^(1/2))/a^(4/5)/(a^(2/5)+(-1)^(2/5)*_ + b^(2/5))^(1/2)+2/5*atanh(((-1)^(3/5)*b^(1/5)+a^(1/5)*_ + tanh(1/2*x))/(a^(2/5)-(-1)^(1/5)*b^(2/5))^(1/2))/_ + a^(4/5)/(a^(2/5)-(-1)^(1/5)*b^(2/5))^(1/2) --R --R --R (339) @@ -32922,7 +33078,12 @@ t0077:= 1/(a+b*sinh(x)^6) --E 396 --S 397 of 510 -r0077:= 1/3*atan((-a^(1/3)+b^(1/3))^(1/2)*tanh(x)/a^(1/6))/a^(5/6)/(-a^(1/3)+b^(1/3))^(1/2)+1/3*atan((-a^(1/3)+(-1)^(2/3)*b^(1/3))^(1/2)*tanh(x)/a^(1/6))/a^(5/6)/(-a^(1/3)+(-1)^(2/3)*b^(1/3))^(1/2)+1/3*atanh((a^(1/3)+(-1)^(1/3)*b^(1/3))^(1/2)*tanh(x)/a^(1/6))/a^(5/6)/(a^(1/3)+(-1)^(1/3)*b^(1/3))^(1/2) +r0077:= 1/3*atan((-a^(1/3)+b^(1/3))^(1/2)*tanh(x)/a^(1/6))/a^(5/6)/_ + (-a^(1/3)+b^(1/3))^(1/2)+1/3*atan((-a^(1/3)+(-1)^(2/3)*_ + b^(1/3))^(1/2)*tanh(x)/a^(1/6))/a^(5/6)/(-a^(1/3)+_ + (-1)^(2/3)*b^(1/3))^(1/2)+1/3*atanh((a^(1/3)+_ + (-1)^(1/3)*b^(1/3))^(1/2)*tanh(x)/a^(1/6))/a^(5/6)/(a^(1/3)+_ + (-1)^(1/3)*b^(1/3))^(1/2) --R --R --R (343) @@ -33727,7 +33888,14 @@ t0078:= 1/(a+b*sinh(x)^8) --E 401 --S 402 of 510 -r0078:= 1/4*atanh((a^(1/4)+(-b)^(1/4))^(1/2)*tanh(x)/a^(1/8))/a^(7/8)/(a^(1/4)+(-b)^(1/4))^(1/2)+1/4*atanh((a^(1/2)-a^(1/4)*(-b)^(1/4))^(1/2)*tanh(x)/a^(1/4))/a^(3/4)/(a^(1/2)-a^(1/4)*(-b)^(1/4))^(1/2)+1/4*atanh((a^(1/2)-%i*a^(1/4)*(-b)^(1/4))^(1/2)*tanh(x)/a^(1/4))/a^(3/4)/(a^(1/2)-%i*a^(1/4)*(-b)^(1/4))^(1/2)+1/4*atanh((a^(1/2)+%i*a^(1/4)*(-b)^(1/4))^(1/2)*tanh(x)/a^(1/4))/a^(3/4)/(a^(1/2)+%i*a^(1/4)*(-b)^(1/4))^(1/2) +r0078:= 1/4*atanh((a^(1/4)+(-b)^(1/4))^(1/2)*tanh(x)/a^(1/8))/a^(7/8)/_ + (a^(1/4)+(-b)^(1/4))^(1/2)+1/4*atanh((a^(1/2)-a^(1/4)*_ + (-b)^(1/4))^(1/2)*tanh(x)/a^(1/4))/a^(3/4)/(a^(1/2)-_ + a^(1/4)*(-b)^(1/4))^(1/2)+1/4*atanh((a^(1/2)-%i*a^(1/4)*_ + (-b)^(1/4))^(1/2)*tanh(x)/a^(1/4))/a^(3/4)/(a^(1/2)-_ + %i*a^(1/4)*(-b)^(1/4))^(1/2)+1/4*atanh((a^(1/2)+_ + %i*a^(1/4)*(-b)^(1/4))^(1/2)*tanh(x)/a^(1/4))/a^(3/4)/_ + (a^(1/2)+%i*a^(1/4)*(-b)^(1/4))^(1/2) --R --R --R (347) @@ -35387,7 +35555,13 @@ t0079:= 1/(a-b*sinh(x)^3) --E 406 --S 407 of 510 -r0079:= -2/3*atanh(((-1)^(1/3)*b^(1/3)-a^(1/3)*tanh(1/2*x))/(a^(2/3)+(-1)^(2/3)*b^(2/3))^(1/2))/a^(2/3)/(a^(2/3)+(-1)^(2/3)*b^(2/3))^(1/2)+2/3*atanh((b^(1/3)+a^(1/3)*tanh(1/2*x))/(a^(2/3)+b^(2/3))^(1/2))/a^(2/3)/(a^(2/3)+b^(2/3))^(1/2)+2/3*atanh(((-1)^(2/3)*b^(1/3)+a^(1/3)*tanh(1/2*x))/(a^(2/3)-(-1)^(1/3)*b^(2/3))^(1/2))/a^(2/3)/(a^(2/3)-(-1)^(1/3)*b^(2/3))^(1/2) +r0079:= -2/3*atanh(((-1)^(1/3)*b^(1/3)-a^(1/3)*tanh(1/2*x))/(a^(2/3)+_ + (-1)^(2/3)*b^(2/3))^(1/2))/a^(2/3)/(a^(2/3)+_ + (-1)^(2/3)*b^(2/3))^(1/2)+2/3*atanh((b^(1/3)+_ + a^(1/3)*tanh(1/2*x))/(a^(2/3)+b^(2/3))^(1/2))/a^(2/3)/_ + (a^(2/3)+b^(2/3))^(1/2)+2/3*atanh(((-1)^(2/3)*b^(1/3)+_ + a^(1/3)*tanh(1/2*x))/(a^(2/3)-(-1)^(1/3)*b^(2/3))^(1/2))/_ + a^(2/3)/(a^(2/3)-(-1)^(1/3)*b^(2/3))^(1/2) --R --R --R (351) @@ -40078,7 +40252,9 @@ t0080:= 1/(a-b*sinh(x)^4) --E 411 --S 412 of 510 -r0080:= 1/2*atan((-a^(1/2)+b^(1/2))^(1/2)*tanh(x)/a^(1/4))/a^(3/4)/(-a^(1/2)+b^(1/2))^(1/2)+1/2*atanh((a^(1/2)+b^(1/2))^(1/2)*tanh(x)/a^(1/4))/a^(3/4)/(a^(1/2)+b^(1/2))^(1/2) +r0080:= 1/2*atan((-a^(1/2)+b^(1/2))^(1/2)*tanh(x)/a^(1/4))/a^(3/4)/_ + (-a^(1/2)+b^(1/2))^(1/2)+1/2*atanh((a^(1/2)+b^(1/2))^(1/2)*_ + tanh(x)/a^(1/4))/a^(3/4)/(a^(1/2)+b^(1/2))^(1/2) --R --R --R (356) @@ -40719,7 +40895,17 @@ t0081:= 1/(a-b*sinh(x)^5) --E 416 --S 417 of 510 -r0081:= -2/5*atanh(((-1)^(1/5)*b^(1/5)-a^(1/5)*tanh(1/2*x))/(a^(2/5)+(-1)^(2/5)*b^(2/5))^(1/2))/a^(4/5)/(a^(2/5)+(-1)^(2/5)*b^(2/5))^(1/2)-2/5*atanh(((-1)^(3/5)*b^(1/5)-a^(1/5)*tanh(1/2*x))/(a^(2/5)-(-1)^(1/5)*b^(2/5))^(1/2))/a^(4/5)/(a^(2/5)-(-1)^(1/5)*b^(2/5))^(1/2)+2/5*atanh((b^(1/5)+a^(1/5)*tanh(1/2*x))/(a^(2/5)+b^(2/5))^(1/2))/a^(4/5)/(a^(2/5)+b^(2/5))^(1/2)+2/5*atanh(((-1)^(2/5)*b^(1/5)+a^(1/5)*tanh(1/2*x))/(a^(2/5)+(-1)^(4/5)*b^(2/5))^(1/2))/a^(4/5)/(a^(2/5)+(-1)^(4/5)*b^(2/5))^(1/2)+2/5*atanh(((-1)^(4/5)*b^(1/5)+a^(1/5)*tanh(1/2*x))/(a^(2/5)-(-1)^(3/5)*b^(2/5))^(1/2))/a^(4/5)/(a^(2/5)-(-1)^(3/5)*b^(2/5))^(1/2) +r0081:= -2/5*atanh(((-1)^(1/5)*b^(1/5)-a^(1/5)*tanh(1/2*x))/(a^(2/5)+_ + (-1)^(2/5)*b^(2/5))^(1/2))/a^(4/5)/(a^(2/5)+_ + (-1)^(2/5)*b^(2/5))^(1/2)-2/5*atanh(((-1)^(3/5)*b^(1/5)-_ + a^(1/5)*tanh(1/2*x))/(a^(2/5)-(-1)^(1/5)*b^(2/5))^(1/2))/_ + a^(4/5)/(a^(2/5)-(-1)^(1/5)*b^(2/5))^(1/2)+2/5*atanh((b^(1/5)+_ + a^(1/5)*tanh(1/2*x))/(a^(2/5)+b^(2/5))^(1/2))/a^(4/5)/(a^(2/5)+_ + b^(2/5))^(1/2)+2/5*atanh(((-1)^(2/5)*b^(1/5)+a^(1/5)*_ + tanh(1/2*x))/(a^(2/5)+(-1)^(4/5)*b^(2/5))^(1/2))/a^(4/5)/(a^(2/5)+_ + (-1)^(4/5)*b^(2/5))^(1/2)+2/5*atanh(((-1)^(4/5)*b^(1/5)+_ + a^(1/5)*tanh(1/2*x))/(a^(2/5)-(-1)^(3/5)*b^(2/5))^(1/2))/_ + a^(4/5)/(a^(2/5)-(-1)^(3/5)*b^(2/5))^(1/2) --R --R --R (361) @@ -43969,7 +44155,12 @@ t0082:= 1/(a-b*sinh(x)^6) --E 421 --S 422 of 510 -r0082:= 1/3*atan((-a^(1/3)+(-1)^(1/3)*b^(1/3))^(1/2)*tanh(x)/a^(1/6))/a^(5/6)/(-a^(1/3)+(-1)^(1/3)*b^(1/3))^(1/2)+1/3*atanh((a^(1/3)+b^(1/3))^(1/2)*tanh(x)/a^(1/6))/a^(5/6)/(a^(1/3)+b^(1/3))^(1/2)+1/3*atanh((a^(1/3)+(-1)^(2/3)*b^(1/3))^(1/2)*tanh(x)/a^(1/6))/a^(5/6)/(a^(1/3)+(-1)^(2/3)*b^(1/3))^(1/2) +r0082:= 1/3*atan((-a^(1/3)+(-1)^(1/3)*b^(1/3))^(1/2)*_ + tanh(x)/a^(1/6))/a^(5/6)/(-a^(1/3)+(-1)^(1/3)*b^(1/3))^(1/2)+_ + 1/3*atanh((a^(1/3)+b^(1/3))^(1/2)*tanh(x)/a^(1/6))/a^(5/6)/_ + (a^(1/3)+b^(1/3))^(1/2)+1/3*atanh((a^(1/3)+(-1)^(2/3)*_ + b^(1/3))^(1/2)*tanh(x)/a^(1/6))/a^(5/6)/(a^(1/3)+_ + (-1)^(2/3)*b^(1/3))^(1/2) --R --R --R (365) @@ -53843,7 +54034,12 @@ t0083:= 1/(a-b*sinh(x)^8) --E 426 --S 427 of 510 -r0083:= 1/4*atan((-a^(1/4)+b^(1/4))^(1/2)*tanh(x)/a^(1/8))/a^(7/8)/(-a^(1/4)+b^(1/4))^(1/2)+1/4*atanh((a^(1/4)-%i*b^(1/4))^(1/2)*tanh(x)/a^(1/8))/a^(7/8)/(a^(1/4)-%i*b^(1/4))^(1/2)+1/4*atanh((a^(1/4)+%i*b^(1/4))^(1/2)*tanh(x)/a^(1/8))/a^(7/8)/(a^(1/4)+%i*b^(1/4))^(1/2)+1/4*atanh((a^(1/4)+b^(1/4))^(1/2)*tanh(x)/a^(1/8))/a^(7/8)/(a^(1/4)+b^(1/4))^(1/2) +r0083:= 1/4*atan((-a^(1/4)+b^(1/4))^(1/2)*tanh(x)/a^(1/8))/a^(7/8)/_ + (-a^(1/4)+b^(1/4))^(1/2)+1/4*atanh((a^(1/4)-%i*b^(1/4))^(1/2)*_ + tanh(x)/a^(1/8))/a^(7/8)/(a^(1/4)-%i*b^(1/4))^(1/2)+_ + 1/4*atanh((a^(1/4)+%i*b^(1/4))^(1/2)*tanh(x)/a^(1/8))/a^(7/8)/_ + (a^(1/4)+%i*b^(1/4))^(1/2)+1/4*atanh((a^(1/4)+b^(1/4))^(1/2)*_ + tanh(x)/a^(1/8))/a^(7/8)/(a^(1/4)+b^(1/4))^(1/2) --R --R --R (370) @@ -55471,7 +55667,10 @@ t0084:= 1/(1+sinh(x)^3) --E 431 --S 432 of 510 -r0084:= -1/3*2^(1/2)*atanh(1/2*(1-tanh(1/2*x))*2^(1/2))-2/3*atanh(((-1)^(2/3)-tanh(1/2*x))/(1-(-1)^(1/3))^(1/2))/(1-(-1)^(1/3))^(1/2)+2/3*atanh(((-1)^(1/3)+tanh(1/2*x))/(1+(-1)^(2/3))^(1/2))/(1+(-1)^(2/3))^(1/2) +r0084:= -1/3*2^(1/2)*atanh(1/2*(1-tanh(1/2*x))*2^(1/2))-_ + 2/3*atanh(((-1)^(2/3)-tanh(1/2*x))/(1-(-1)^(1/3))^(1/2))/_ + (1-(-1)^(1/3))^(1/2)+2/3*atanh(((-1)^(1/3)+_ + tanh(1/2*x))/(1+(-1)^(2/3))^(1/2))/(1+(-1)^(2/3))^(1/2) --R --R --R (374) @@ -55748,7 +55947,8 @@ t0085:= 1/(1+sinh(x)^4) --E 436 --S 437 of 510 -r0085:= 1/2*atanh((1-%i)^(1/2)*tanh(x))/(1-%i)^(1/2)+1/2*atanh((1+%i)^(1/2)*tanh(x))/(1+%i)^(1/2) +r0085:= 1/2*atanh((1-%i)^(1/2)*tanh(x))/(1-%i)^(1/2)+_ + 1/2*atanh((1+%i)^(1/2)*tanh(x))/(1+%i)^(1/2) --R --R --R +------+ +------+ +------+ +------+ @@ -61871,7 +62071,13 @@ t0086:= 1/(1+sinh(x)^5) --E 441 --S 442 of 510 -r0086:= -1/5*2^(1/2)*atanh(1/2*(1-tanh(1/2*x))*2^(1/2))-2/5*atanh(((-1)^(2/5)-tanh(1/2*x))/(1+(-1)^(4/5))^(1/2))/(1+(-1)^(4/5))^(1/2)-2/5*atanh(((-1)^(4/5)-tanh(1/2*x))/(1-(-1)^(3/5))^(1/2))/(1-(-1)^(3/5))^(1/2)+2/5*atanh(((-1)^(1/5)+tanh(1/2*x))/(1+(-1)^(2/5))^(1/2))/(1+(-1)^(2/5))^(1/2)+2/5*atanh(((-1)^(3/5)+tanh(1/2*x))/(1-(-1)^(1/5))^(1/2))/(1-(-1)^(1/5))^(1/2) +r0086:= -1/5*2^(1/2)*atanh(1/2*(1-tanh(1/2*x))*2^(1/2))-_ + 2/5*atanh(((-1)^(2/5)-tanh(1/2*x))/(1+(-1)^(4/5))^(1/2))/_ + (1+(-1)^(4/5))^(1/2)-2/5*atanh(((-1)^(4/5)-tanh(1/2*x))/_ + (1-(-1)^(3/5))^(1/2))/(1-(-1)^(3/5))^(1/2)+_ + 2/5*atanh(((-1)^(1/5)+tanh(1/2*x))/(1+(-1)^(2/5))^(1/2))/_ + (1+(-1)^(2/5))^(1/2)+2/5*atanh(((-1)^(3/5)+tanh(1/2*x))/_ + (1-(-1)^(1/5))^(1/2))/(1-(-1)^(1/5))^(1/2) --R --R --R (383) @@ -62904,7 +63110,8 @@ t0087:= 1/(1+sinh(x)^6) --E 446 --S 447 of 510 -r0087:= 1/3*atanh((1+(-1)^(1/3))^(1/2)*tanh(x))/(1+(-1)^(1/3))^(1/2)+1/3*atanh((1-(-1)^(2/3))^(1/2)*tanh(x))/(1-(-1)^(2/3))^(1/2)+1/3*tanh(x) +r0087:= 1/3*atanh((1+(-1)^(1/3))^(1/2)*tanh(x))/(1+(-1)^(1/3))^(1/2)+_ + 1/3*atanh((1-(-1)^(2/3))^(1/2)*tanh(x))/(1-(-1)^(2/3))^(1/2)+1/3*tanh(x) --R --R --R (387) @@ -63259,7 +63466,10 @@ t0088:= 1/(1+sinh(x)^8) --E 451 --S 452 of 510 -r0088:= 1/4*atanh((1-(-1)^(1/4))^(1/2)*tanh(x))/(1-(-1)^(1/4))^(1/2)+1/4*atanh((1+(-1)^(1/4))^(1/2)*tanh(x))/(1+(-1)^(1/4))^(1/2)+1/4*atanh((1-(-1)^(3/4))^(1/2)*tanh(x))/(1-(-1)^(3/4))^(1/2)+1/4*atanh((1+(-1)^(3/4))^(1/2)*tanh(x))/(1+(-1)^(3/4))^(1/2) +r0088:= 1/4*atanh((1-(-1)^(1/4))^(1/2)*tanh(x))/(1-(-1)^(1/4))^(1/2)+_ + 1/4*atanh((1+(-1)^(1/4))^(1/2)*tanh(x))/(1+(-1)^(1/4))^(1/2)+_ + 1/4*atanh((1-(-1)^(3/4))^(1/2)*tanh(x))/(1-(-1)^(3/4))^(1/2)+_ + 1/4*atanh((1+(-1)^(3/4))^(1/2)*tanh(x))/(1+(-1)^(3/4))^(1/2) --R --R --R (391) @@ -64642,7 +64852,11 @@ t0089:= 1/(1-sinh(x)^3) --E 456 --S 457 of 510 -r0089:= -2/3*atanh(((-1)^(1/3)-tanh(1/2*x))/(1+(-1)^(2/3))^(1/2))/(1+(-1)^(2/3))^(1/2)+1/3*2^(1/2)*atanh(1/2*(1+tanh(1/2*x))*2^(1/2))+2/3*atanh(((-1)^(2/3)+tanh(1/2*x))/(1-(-1)^(1/3))^(1/2))/(1-(-1)^(1/3))^(1/2) +r0089:= -2/3*atanh(((-1)^(1/3)-tanh(1/2*x))/(1+(-1)^(2/3))^(1/2))/_ + (1+(-1)^(2/3))^(1/2)+1/3*2^(1/2)*_ + atanh(1/2*(1+tanh(1/2*x))*2^(1/2))+2/3*_ + atanh(((-1)^(2/3)+tanh(1/2*x))/(1-(-1)^(1/3))^(1/2))/_ + (1-(-1)^(1/3))^(1/2) --R --R --R (395) @@ -65238,7 +65452,13 @@ t0091:= 1/(1-sinh(x)^5) --E 466 --S 467 of 510 -r0091:= -2/5*atanh(((-1)^(1/5)-tanh(1/2*x))/(1+(-1)^(2/5))^(1/2))/(1+(-1)^(2/5))^(1/2)-2/5*atanh(((-1)^(3/5)-tanh(1/2*x))/(1-(-1)^(1/5))^(1/2))/(1-(-1)^(1/5))^(1/2)+1/5*2^(1/2)*atanh(1/2*(1+tanh(1/2*x))*2^(1/2))+2/5*atanh(((-1)^(2/5)+tanh(1/2*x))/(1+(-1)^(4/5))^(1/2))/(1+(-1)^(4/5))^(1/2)+2/5*atanh(((-1)^(4/5)+tanh(1/2*x))/(1-(-1)^(3/5))^(1/2))/(1-(-1)^(3/5))^(1/2) +r0091:= -2/5*atanh(((-1)^(1/5)-tanh(1/2*x))/(1+(-1)^(2/5))^(1/2))/_ + (1+(-1)^(2/5))^(1/2)-2/5*atanh(((-1)^(3/5)-tanh(1/2*x))/_ + (1-(-1)^(1/5))^(1/2))/(1-(-1)^(1/5))^(1/2)+1/5*2^(1/2)*_ + atanh(1/2*(1+tanh(1/2*x))*2^(1/2))+2/5*_ + atanh(((-1)^(2/5)+tanh(1/2*x))/(1+(-1)^(4/5))^(1/2))/_ + (1+(-1)^(4/5))^(1/2)+2/5*atanh(((-1)^(4/5)+_ + tanh(1/2*x))/(1-(-1)^(3/5))^(1/2))/(1-(-1)^(3/5))^(1/2) --R --R --R (404) @@ -66271,7 +66491,9 @@ t0092:= 1/(1-sinh(x)^6) --E 471 --S 472 of 510 -r0092:= 1/6*atanh(2^(1/2)*tanh(x))*2^(1/2)+1/3*atanh((1-(-1)^(1/3))^(1/2)*tanh(x))/(1-(-1)^(1/3))^(1/2)+1/3*atanh((1+(-1)^(2/3))^(1/2)*tanh(x))/(1+(-1)^(2/3))^(1/2) +r0092:= 1/6*atanh(2^(1/2)*tanh(x))*2^(1/2)+1/3*atanh((1-(-1)^(1/3))^(1/2)*_ + tanh(x))/(1-(-1)^(1/3))^(1/2)+1/3*atanh((1+(-1)^(2/3))^(1/2)*_ + tanh(x))/(1+(-1)^(2/3))^(1/2) --R --R --R (408) @@ -66650,7 +66872,9 @@ t0093:= 1/(1-sinh(x)^8) --E 476 --S 477 of 510 -r0093:= 1/4*atanh((1-%i)^(1/2)*tanh(x))/(1-%i)^(1/2)+1/4*atanh((1+%i)^(1/2)*tanh(x))/(1+%i)^(1/2)+1/8*atanh(2^(1/2)*tanh(x))*2^(1/2)+1/4*tanh(x) +r0093:= 1/4*atanh((1-%i)^(1/2)*tanh(x))/(1-%i)^(1/2)+_ + 1/4*atanh((1+%i)^(1/2)*tanh(x))/(1+%i)^(1/2)+_ + 1/8*atanh(2^(1/2)*tanh(x))*2^(1/2)+1/4*tanh(x) --R --R --R (412) @@ -67034,7 +67258,10 @@ t0094:= x^2*sinh(a+b*x+c*x^2) --E 481 --S 482 of 510 -r0094:= -1/4*b*cosh(a+b*x+c*x^2)/c^2+1/2*x*cosh(a+b*x+c*x^2)/c-1/16*(b^2+2*c)*exp(1)^(-a+1/4*b^2/c)*%pi^(1/2)*erf(1/2*(b+2*c*x)/c^(1/2))/c^(5/2)+1/16*(b^2-2*c)*exp(1)^(a-1/4*b^2/c)*%pi^(1/2)*erfi(1/2*(b+2*c*x)/c^(1/2))/c^(5/2) +r0094:= -1/4*b*cosh(a+b*x+c*x^2)/c^2+1/2*x*cosh(a+b*x+c*x^2)/c-_ + 1/16*(b^2+2*c)*exp(1)^(-a+1/4*b^2/c)*%pi^(1/2)*_ + erf(1/2*(b+2*c*x)/c^(1/2))/c^(5/2)+1/16*(b^2-2*c)*_ + exp(1)^(a-1/4*b^2/c)*%pi^(1/2)*erfi(1/2*(b+2*c*x)/c^(1/2))/c^(5/2) --R --R There are no library operations named erfi --R Use HyperDoc Browse or issue @@ -67091,7 +67318,9 @@ t0095:= x*sinh(a+b*x+c*x^2) --E 486 --S 487 of 510 -r0095:= 1/8/c^(3/2)*(4*cosh(a+b*x+c*x^2)*c^(1/2)+b*exp(-1/4*(-b^2+4*a*c)/c)*%pi^(1/2)*erf(1/2*(b+2*c*x)/c^(1/2))+%i*b*exp(1/4*(-b^2+4*a*c)/c)*%pi^(1/2)*erf(1/2*%i*(b+2*c*x)/c^(1/2))) +r0095:= 1/8/c^(3/2)*(4*cosh(a+b*x+c*x^2)*c^(1/2)+_ + b*exp(-1/4*(-b^2+4*a*c)/c)*%pi^(1/2)*erf(1/2*(b+2*c*x)/c^(1/2))+_ + %i*b*exp(1/4*(-b^2+4*a*c)/c)*%pi^(1/2)*erf(1/2*%i*(b+2*c*x)/c^(1/2))) --R --R There are 14 exposed and 12 unexposed library operations named / --R having 2 argument(s) but none was determined to be applicable. @@ -67154,7 +67383,9 @@ t0096:= sinh(a+b*x+c*x^2)/x^2-b*cosh(a+b*x+c*x^2)/x --E 491 --S 492 of 510 -r0096:= 1/2*c^(1/2)*exp(1)^(-a+1/4*b^2/c)*%pi^(1/2)*erf(1/2*(b+2*c*x)/c^(1/2))+1/2*c^(1/2)*exp(1)^(a-1/4*b^2/c)*%pi^(1/2)*erfi(1/2*(b+2*c*x)/c^(1/2))-sinh(a+b*x+c*x^2)/x +r0096:= 1/2*c^(1/2)*exp(1)^(-a+1/4*b^2/c)*%pi^(1/2)*_ + erf(1/2*(b+2*c*x)/c^(1/2))+1/2*c^(1/2)*exp(1)^(a-1/4*b^2/c)*_ + %pi^(1/2)*erfi(1/2*(b+2*c*x)/c^(1/2))-sinh(a+b*x+c*x^2)/x --R --R There are no library operations named erfi --R Use HyperDoc Browse or issue @@ -67216,7 +67447,10 @@ t0097:= x^2*sinh(a+b*x-c*x^2) --E 496 --S 497 of 510 -r0097:= -1/4*b*cosh(a+b*x-c*x^2)/c^2-1/2*x*cosh(a+b*x-c*x^2)/c-1/16*(b^2+2*c)*exp(1)^(a+1/4*b^2/c)*%pi^(1/2)*erf(1/2*(b-2*c*x)/c^(1/2))/c^(5/2)+1/16*(b^2-2*c)*exp(1)^(-a-1/4*b^2/c)*%pi^(1/2)*erfi(1/2*(b-2*c*x)/c^(1/2))/c^(5/2) +r0097:= -1/4*b*cosh(a+b*x-c*x^2)/c^2-1/2*x*cosh(a+b*x-c*x^2)/c-_ + 1/16*(b^2+2*c)*exp(1)^(a+1/4*b^2/c)*%pi^(1/2)*_ + erf(1/2*(b-2*c*x)/c^(1/2))/c^(5/2)+1/16*(b^2-2*c)*_ + exp(1)^(-a-1/4*b^2/c)*%pi^(1/2)*erfi(1/2*(b-2*c*x)/c^(1/2))/c^(5/2) --R --R There are no library operations named erfi --R Use HyperDoc Browse or issue @@ -67273,7 +67507,11 @@ t0098:= x*sinh(a+b*x-c*x^2) --E 501 --S 502 of 510 -r0098:= -1/8/c^(3/2)*(4*cosh(a+b*x-c*x^2)*c^(1/2)+b*exp(1/4*(b^2+4*a*c)/c)*%pi^(1/2)*erf(1/2*(b-2*c*x)/c^(1/2))+%i*b*exp(-1/4*(b^2+4*a*c)/c)*%pi^(1/2)*erf(1/2*%i*(b-2*c*x)/c^(1/2))) +r0098:= -1/8/c^(3/2)*(4*cosh(a+b*x-c*x^2)*c^(1/2)+_ + b*exp(1/4*(b^2+4*a*c)/c)*%pi^(1/2)*_ + erf(1/2*(b-2*c*x)/c^(1/2))+%i*b*_ + exp(-1/4*(b^2+4*a*c)/c)*%pi^(1/2)*_ + erf(1/2*%i*(b-2*c*x)/c^(1/2))) --R --R There are 14 exposed and 12 unexposed library operations named / --R having 2 argument(s) but none was determined to be applicable. @@ -67336,7 +67574,10 @@ t0099:= sinh(a+b*x-c*x^2)/x^2-b*cosh(a+b*x-c*x^2)/x --E 506 --S 507 of 510 -r0099:= 1/2*c^(1/2)*exp(1)^(a+1/4*b^2/c)*%pi^(1/2)*erf(1/2*(b-2*c*x)/c^(1/2))+1/2*c^(1/2)*exp(1)^(-a-1/4*b^2/c)*%pi^(1/2)*erfi(1/2*(b-2*c*x)/c^(1/2))-sinh(a+b*x-c*x^2)/x +r0099:= 1/2*c^(1/2)*exp(1)^(a+1/4*b^2/c)*%pi^(1/2)*_ + erf(1/2*(b-2*c*x)/c^(1/2))+1/2*c^(1/2)*_ + exp(1)^(-a-1/4*b^2/c)*%pi^(1/2)*_ + erfi(1/2*(b-2*c*x)/c^(1/2))-sinh(a+b*x-c*x^2)/x --R --R There are no library operations named erfi --R Use HyperDoc Browse or issue diff --git a/src/input/richhyper300-399.input.pamphlet b/src/input/richhyper300-399.input.pamphlet index 554c1d2..6755f72 100644 --- a/src/input/richhyper300-399.input.pamphlet +++ b/src/input/richhyper300-399.input.pamphlet @@ -388,7 +388,8 @@ t0304:= (a+b*tanh(c+d*x))^3 --E 21 --S 22 of 508 -r0304:= a^3*x+3*a*b^2*x+3*a^2*b*log(cosh(c+d*x))/d+b^3*log(cosh(c+d*x))/d-3*a*b^2*tanh(c+d*x)/d-1/2*b^3*tanh(c+d*x)^2/d +r0304:= a^3*x+3*a*b^2*x+3*a^2*b*log(cosh(c+d*x))/d+_ + b^3*log(cosh(c+d*x))/d-3*a*b^2*tanh(c+d*x)/d-1/2*b^3*tanh(c+d*x)^2/d --R --R --R (22) @@ -2069,7 +2070,8 @@ t0311:= (-1-tanh(x)^2)^(1/2) --E 56 --S 57 of 508 -r0311:= -2^(1/2)*atan(2^(1/2)*tanh(x)/(-1-tanh(x)^2)^(1/2))-atan(coth(x)*(-1-tanh(x)^2)^(1/2)) +r0311:= -2^(1/2)*atan(2^(1/2)*tanh(x)/(-1-tanh(x)^2)^(1/2))-_ + atan(coth(x)*(-1-tanh(x)^2)^(1/2)) --R --R --R +--------------+ +-+ @@ -2312,7 +2314,8 @@ t0312:= (a+b*tanh(x)^2)^(1/2) --E 61 --S 62 of 508 -r0312:= (a+b)^(1/2)*atanh((a+b)^(1/2)*tanh(x)/(a+b*tanh(x)^2)^(1/2))-b^(1/2)*atanh(coth(x)*(a+b*tanh(x)^2)^(1/2)/b^(1/2)) +r0312:= (a+b)^(1/2)*atanh((a+b)^(1/2)*tanh(x)/(a+b*tanh(x)^2)^(1/2))-_ + b^(1/2)*atanh(coth(x)*(a+b*tanh(x)^2)^(1/2)/b^(1/2)) --R --R --R (62) @@ -4018,7 +4021,8 @@ t0316:= (1+tanh(x)^2)^(3/2) --E 83 --S 84 of 508 -r0316:= -5/2*asinh(tanh(x))+2*2^(1/2)*atanh(2^(1/2)*tanh(x)/(1+tanh(x)^2)^(1/2))-1/2*tanh(x)*(1+tanh(x)^2)^(1/2) +r0316:= -5/2*asinh(tanh(x))+2*2^(1/2)*atanh(2^(1/2)*tanh(x)/_ + (1+tanh(x)^2)^(1/2))-1/2*tanh(x)*(1+tanh(x)^2)^(1/2) --R --R --R (82) @@ -8332,7 +8336,8 @@ t0318:= (-1-tanh(x)^2)^(3/2) --E 93 --S 94 of 508 -r0318:= 2*2^(1/2)*atan(2^(1/2)*tanh(x)/(-1-tanh(x)^2)^(1/2))+5/2*atan(coth(x)*(-1-tanh(x)^2)^(1/2))+1/2*tanh(x)*(-1-tanh(x)^2)^(1/2) +r0318:= 2*2^(1/2)*atan(2^(1/2)*tanh(x)/(-1-tanh(x)^2)^(1/2))+_ + 5/2*atan(coth(x)*(-1-tanh(x)^2)^(1/2))+1/2*tanh(x)*(-1-tanh(x)^2)^(1/2) --R --R --R (92) @@ -8961,7 +8966,10 @@ t0319:= (a+b*tanh(x)^2)^(3/2) --E 98 --S 99 of 508 -r0319:= (a+b)^(3/2)*atanh((a+b)^(1/2)*tanh(x)/(a+b*tanh(x)^2)^(1/2))-3/2*a*b^(1/2)*atanh(coth(x)*(a+b*tanh(x)^2)^(1/2)/b^(1/2))-b^(3/2)*atanh(coth(x)*(a+b*tanh(x)^2)^(1/2)/b^(1/2))-1/2*b*tanh(x)*(a+b*tanh(x)^2)^(1/2) +r0319:= (a+b)^(3/2)*atanh((a+b)^(1/2)*tanh(x)/(a+b*tanh(x)^2)^(1/2))-_ + 3/2*a*b^(1/2)*atanh(coth(x)*(a+b*tanh(x)^2)^(1/2)/b^(1/2))-_ + b^(3/2)*atanh(coth(x)*(a+b*tanh(x)^2)^(1/2)/b^(1/2))-_ + 1/2*b*tanh(x)*(a+b*tanh(x)^2)^(1/2) --R --R --R (97) @@ -13054,7 +13062,8 @@ t0324:= coth(a+b*x)^(3/2) --E 125 --S 126 of 508 -r0324:= (atan(coth(a+b*x)^(1/2))+atanh(coth(a+b*x)^(1/2))-2*coth(a+b*x)^(1/2))/b +r0324:= (atan(coth(a+b*x)^(1/2))+atanh(coth(a+b*x)^(1/2))-_ + 2*coth(a+b*x)^(1/2))/b --R --R --R +-------------+ +-------------+ +-------------+ @@ -13769,7 +13778,8 @@ t0325:= coth(a+b*x)^(5/2) --E 130 --S 131 of 508 -r0325:= -1/3*(3*atan(coth(a+b*x)^(1/2))-3*atanh(coth(a+b*x)^(1/2))+2*coth(a+b*x)^(3/2))/b +r0325:= -1/3*(3*atan(coth(a+b*x)^(1/2))-3*atanh(coth(a+b*x)^(1/2))+_ + 2*coth(a+b*x)^(3/2))/b --R --R --R (127) @@ -15355,7 +15365,8 @@ t0326:= 1/coth(a+b*x)^(3/2) --E 135 --S 136 of 508 -r0326:= -atan(coth(a+b*x)^(1/2))/b+atanh(coth(a+b*x)^(1/2))/b-2/b/coth(a+b*x)^(1/2) +r0326:= -atan(coth(a+b*x)^(1/2))/b+atanh(coth(a+b*x)^(1/2))/b-_ + 2/b/coth(a+b*x)^(1/2) --R --R --R (132) @@ -16093,7 +16104,8 @@ t0327:= 1/coth(a+b*x)^(5/2) --E 140 --S 141 of 508 -r0327:= atan(coth(a+b*x)^(1/2))/b+atanh(coth(a+b*x)^(1/2))/b-2/3/b/coth(a+b*x)^(3/2) +r0327:= atan(coth(a+b*x)^(1/2))/b+atanh(coth(a+b*x)^(1/2))/b-_ + 2/3/b/coth(a+b*x)^(3/2) --R --R --R (137) @@ -17968,7 +17980,8 @@ t0328:= coth(8*x)^(1/3) --E 145 --S 146 of 508 -r0328:= -1/16*3^(1/2)*atan(1/3*(1+2*coth(8*x)^(2/3))*3^(1/2))-1/16*log(1-coth(8*x)^(2/3))+1/32*log(1+coth(8*x)^(2/3)+coth(8*x)^(4/3)) +r0328:= -1/16*3^(1/2)*atan(1/3*(1+2*coth(8*x)^(2/3))*3^(1/2))-_ + 1/16*log(1-coth(8*x)^(2/3))+1/32*log(1+coth(8*x)^(2/3)+coth(8*x)^(4/3)) --R --R --R (142) @@ -18005,7 +18018,8 @@ t0329:= x*coth(a+b*x) --E 150 --S 151 of 508 -r0329:= 1/2*(-b^2*x^2+2*x*log(1-exp(2*a+2*b*x))*b+polylog(2,exp(2*a+2*b*x)))/b^2 +r0329:= 1/2*(-b^2*x^2+2*x*log(1-exp(2*a+2*b*x))*b+_ + polylog(2,exp(2*a+2*b*x)))/b^2 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -18184,7 +18198,8 @@ t0331:= x*coth(a+b*x)^3 --E 160 --S 161 of 508 -r0331:= -1/2*x^2-1/2*coth(a+b*x)/b^2-1/2*x*csch(a+b*x)^2/b+x*log(1-exp(1)^(2*a+2*b*x))/b+1/2*polylog(2,exp(1)^(2*a+2*b*x))/b^2 +r0331:= -1/2*x^2-1/2*coth(a+b*x)/b^2-1/2*x*csch(a+b*x)^2/b+_ + x*log(1-exp(1)^(2*a+2*b*x))/b+1/2*polylog(2,exp(1)^(2*a+2*b*x))/b^2 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -18230,7 +18245,8 @@ t0332:= x^2*coth(a+b*x) --E 165 --S 166 of 508 -r0332:= 1/6*(-2*b^3*x^3+6*x^2*log(1-exp(2*a+2*b*x))*b^2+6*x*polylog(2,exp(2*a+2*b*x))*b-3*polylog(3,exp(2*a+2*b*x)))/b^3 +r0332:= 1/6*(-2*b^3*x^3+6*x^2*log(1-exp(2*a+2*b*x))*b^2+_ + 6*x*polylog(2,exp(2*a+2*b*x))*b-3*polylog(3,exp(2*a+2*b*x)))/b^3 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -18276,7 +18292,8 @@ t0333:= x^2*coth(a+b*x)^2 --E 170 --S 171 of 508 -r0333:= 1/3*(-3*b^2*x^2+b^3*x^3-3*x^2*coth(a+b*x)*b^2+6*x*log(1-exp(2*a+2*b*x))*b+3*polylog(2,exp(2*a+2*b*x)))/b^3 +r0333:= 1/3*(-3*b^2*x^2+b^3*x^3-3*x^2*coth(a+b*x)*b^2+_ + 6*x*log(1-exp(2*a+2*b*x))*b+3*polylog(2,exp(2*a+2*b*x)))/b^3 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -18322,7 +18339,10 @@ t0334:= x^2*coth(a+b*x)^3 --E 175 --S 176 of 508 -r0334:= -1/3*x^3-x*coth(a+b*x)/b^2-1/2*x^2*csch(a+b*x)^2/b+x^2*log(1-exp(1)^(2*a+2*b*x))/b+log(sinh(a+b*x))/b^3+x*polylog(2,exp(1)^(2*a+2*b*x))/b^2-1/2*polylog(3,exp(1)^(2*a+2*b*x))/b^3 +r0334:= -1/3*x^3-x*coth(a+b*x)/b^2-1/2*x^2*csch(a+b*x)^2/b+_ + x^2*log(1-exp(1)^(2*a+2*b*x))/b+log(sinh(a+b*x))/b^3+_ + x*polylog(2,exp(1)^(2*a+2*b*x))/b^2-_ + 1/2*polylog(3,exp(1)^(2*a+2*b*x))/b^3 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -18368,7 +18388,9 @@ t0335:= x^3*coth(a+b*x) --E 180 --S 181 of 508 -r0335:= 1/4*(-x^4*b^4+4*x^3*log(1-exp(2*a+2*b*x))*b^3+6*x^2*polylog(2,exp(2*a+2*b*x))*b^2-6*x*polylog(3,exp(2*a+2*b*x))*b+3*polylog(4,exp(2*a+2*b*x)))/b^4 +r0335:= 1/4*(-x^4*b^4+4*x^3*log(1-exp(2*a+2*b*x))*b^3+_ + 6*x^2*polylog(2,exp(2*a+2*b*x))*b^2-_ + 6*x*polylog(3,exp(2*a+2*b*x))*b+3*polylog(4,exp(2*a+2*b*x)))/b^4 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -18414,7 +18436,9 @@ t0336:= x^3*coth(a+b*x)^2 --E 185 --S 186 of 508 -r0336:= 1/4*(-4*b^3*x^3+x^4*b^4-4*x^3*coth(a+b*x)*b^3+12*x^2*log(1-exp(2*a+2*b*x))*b^2+12*x*polylog(2,exp(2*a+2*b*x))*b-6*polylog(3,exp(2*a+2*b*x)))/b^4 +r0336:= 1/4*(-4*b^3*x^3+x^4*b^4-4*x^3*coth(a+b*x)*b^3+_ + 12*x^2*log(1-exp(2*a+2*b*x))*b^2+_ + 12*x*polylog(2,exp(2*a+2*b*x))*b-6*polylog(3,exp(2*a+2*b*x)))/b^4 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -18460,7 +18484,12 @@ t0337:= x^3*coth(a+b*x)^3 --E 190 --S 191 of 508 -r0337:= -3/2*x^2/b^2-1/4*x^4-3/2*x^2*coth(a+b*x)/b^2-1/2*x^3*csch(a+b*x)^2/b+3*x*log(1-exp(1)^(2*a+2*b*x))/b^3+x^3*log(1-exp(1)^(2*a+2*b*x))/b+3/2*(1+b^2*x^2)*polylog(2,exp(1)^(2*a+2*b*x))/b^4-3/2*x*polylog(3,exp(1)^(2*a+2*b*x))/b^3+3/4*polylog(4,exp(1)^(2*a+2*b*x))/b^4 +r0337:= -3/2*x^2/b^2-1/4*x^4-3/2*x^2*coth(a+b*x)/b^2-_ + 1/2*x^3*csch(a+b*x)^2/b+3*x*log(1-exp(1)^(2*a+2*b*x))/b^3+_ + x^3*log(1-exp(1)^(2*a+2*b*x))/b+3/2*(1+b^2*x^2)*_ + polylog(2,exp(1)^(2*a+2*b*x))/b^4-3/2*x*_ + polylog(3,exp(1)^(2*a+2*b*x))/b^3+3/4*_ + polylog(4,exp(1)^(2*a+2*b*x))/b^4 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -18575,7 +18604,8 @@ t0339:= (a*coth(x)^3)^(1/2) --E 200 --S 201 of 508 -r0339:= (atan(coth(x)^(1/2))+atanh(coth(x)^(1/2))-2*coth(x)^(1/2))*(a*coth(x)^3)^(1/2)/coth(x)^(3/2) +r0339:= (atan(coth(x)^(1/2))+atanh(coth(x)^(1/2))-_ + 2*coth(x)^(1/2))*(a*coth(x)^3)^(1/2)/coth(x)^(3/2) --R --R --R (170) @@ -19419,7 +19449,8 @@ t0341:= (a*coth(x)^3)^(3/2) --E 210 --S 211 of 508 -r0341:= -1/21*a*(a*coth(x)^3)^(1/2)*(21*atan(coth(x)^(1/2))-21*atanh(coth(x)^(1/2))+14*coth(x)^(3/2)+6*coth(x)^(7/2))/coth(x)^(3/2) +r0341:= -1/21*a*(a*coth(x)^3)^(1/2)*(21*atan(coth(x)^(1/2))-_ + 21*atanh(coth(x)^(1/2))+14*coth(x)^(3/2)+6*coth(x)^(7/2))/coth(x)^(3/2) --R --R --R (180) @@ -21651,7 +21682,8 @@ t0343:= 1/(a*coth(x)^3)^(1/2) --E 220 --S 221 of 508 -r0343:= -(2+(atan(coth(x)^(1/2))-atanh(coth(x)^(1/2)))*coth(x)^(1/2))*coth(x)/(a*coth(x)^3)^(1/2) +r0343:= -(2+(atan(coth(x)^(1/2))-atanh(coth(x)^(1/2)))*_ + coth(x)^(1/2))*coth(x)/(a*coth(x)^3)^(1/2) --R --R --R (189) @@ -22654,7 +22686,8 @@ t0348:= (a+b*coth(c+d*x))^3 --E 245 --S 246 of 508 -r0348:= a^3*x+3*a*b^2*x-3*a*b^2*coth(c+d*x)/d-1/2*b^3*coth(c+d*x)^2/d+3*a^2*b*log(sinh(c+d*x))/d+b^3*log(sinh(c+d*x))/d +r0348:= a^3*x+3*a*b^2*x-3*a*b^2*coth(c+d*x)/d-1/2*b^3*coth(c+d*x)^2/d+_ + 3*a^2*b*log(sinh(c+d*x))/d+b^3*log(sinh(c+d*x))/d --R --R --R (214) @@ -24600,7 +24633,8 @@ t0356:= (-1-coth(x)^2)^(1/2) --E 285 --S 286 of 508 -r0356:= -2^(1/2)*atan(2^(1/2)*coth(x)/(-1-coth(x)^2)^(1/2))-atan((-1-coth(x)^2)^(1/2)*tanh(x)) +r0356:= -2^(1/2)*atan(2^(1/2)*coth(x)/(-1-coth(x)^2)^(1/2))-_ + atan((-1-coth(x)^2)^(1/2)*tanh(x)) --R --R --R +--------------+ +-+ @@ -24852,7 +24886,8 @@ t0357:= (a+b*coth(x)^2)^(1/2) --E 290 --S 291 of 508 -r0357:= (a+b)^(1/2)*atanh((a+b)^(1/2)*coth(x)/(a+b*coth(x)^2)^(1/2))-b^(1/2)*atanh((a+b*coth(x)^2)^(1/2)*tanh(x)/b^(1/2)) +r0357:= (a+b)^(1/2)*atanh((a+b)^(1/2)*coth(x)/(a+b*coth(x)^2)^(1/2))-_ + b^(1/2)*atanh((a+b*coth(x)^2)^(1/2)*tanh(x)/b^(1/2)) --R --R --R (256) @@ -31373,7 +31408,8 @@ t0361:= (1+coth(x)^2)^(3/2) --E 312 --S 313 of 508 -r0361:= -5/2*acsch(tanh(x))+2*2^(1/2)*atanh(2^(1/2)*coth(x)/(1+coth(x)^2)^(1/2))-1/2*coth(x)*(1+coth(x)^2)^(1/2) +r0361:= -5/2*acsch(tanh(x))+2*2^(1/2)*atanh(2^(1/2)*_ + coth(x)/(1+coth(x)^2)^(1/2))-1/2*coth(x)*(1+coth(x)^2)^(1/2) --R --R --R (277) @@ -37723,7 +37759,8 @@ t0363:= (-1-coth(x)^2)^(3/2) --E 322 --S 323 of 508 -r0363:= 2*2^(1/2)*atan(2^(1/2)*coth(x)/(-1-coth(x)^2)^(1/2))+5/2*atan((-1-coth(x)^2)^(1/2)*tanh(x))+1/2*coth(x)*(-1-coth(x)^2)^(1/2) +r0363:= 2*2^(1/2)*atan(2^(1/2)*coth(x)/(-1-coth(x)^2)^(1/2))+_ + 5/2*atan((-1-coth(x)^2)^(1/2)*tanh(x))+1/2*coth(x)*(-1-coth(x)^2)^(1/2) --R --R --R (287) @@ -38335,7 +38372,10 @@ t0364:= (a+b*coth(x)^2)^(3/2) --E 327 --S 328 of 508 -r0364:= (a+b)^(3/2)*atanh((a+b)^(1/2)*coth(x)/(a+b*coth(x)^2)^(1/2))-3/2*a*b^(1/2)*atanh((a+b*coth(x)^2)^(1/2)*tanh(x)/b^(1/2))-b^(3/2)*atanh((a+b*coth(x)^2)^(1/2)*tanh(x)/b^(1/2))-1/2*b*coth(x)*(a+b*coth(x)^2)^(1/2) +r0364:= (a+b)^(3/2)*atanh((a+b)^(1/2)*coth(x)/(a+b*coth(x)^2)^(1/2))-_ + 3/2*a*b^(1/2)*atanh((a+b*coth(x)^2)^(1/2)*tanh(x)/b^(1/2))-_ + b^(3/2)*atanh((a+b*coth(x)^2)^(1/2)*tanh(x)/b^(1/2))-_ + 1/2*b*coth(x)*(a+b*coth(x)^2)^(1/2) --R --R --R (292) @@ -41982,7 +42022,8 @@ t0366:= sech(a+b*x)^(3/2) --E 339 --S 340 of 508 -r0366:= 2*(1/cosh(a+b*x))^(1/2)*(%i*cosh(a+b*x)^(1/2)*EllipticE(1/2*%i*(a+b*x),2)+sinh(a+b*x))/b +r0366:= 2*(1/cosh(a+b*x))^(1/2)*(%i*cosh(a+b*x)^(1/2)*_ + EllipticE(1/2*%i*(a+b*x),2)+sinh(a+b*x))/b --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -42028,7 +42069,8 @@ t0367:= sech(a+b*x)^(5/2) --E 344 --S 345 of 508 -r0367:= -2/3*(1/cosh(a+b*x))^(1/2)*(%i*cosh(a+b*x)^(3/2)*EllipticF(1/2*%i*(a+b*x),2)-sinh(a+b*x))/b/cosh(a+b*x) +r0367:= -2/3*(1/cosh(a+b*x))^(1/2)*(%i*cosh(a+b*x)^(3/2)*_ + EllipticF(1/2*%i*(a+b*x),2)-sinh(a+b*x))/b/cosh(a+b*x) --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -42125,7 +42167,8 @@ t0369:= 1/sech(a+b*x)^(3/2) --E 354 --S 355 of 508 -r0369:= -2/3*%i*cosh(a+b*x)^(1/2)*EllipticF(1/2*%i*(a+b*x),2)*sech(a+b*x)^(1/2)/b+2/3*sinh(a+b*x)/b/sech(a+b*x)^(1/2) +r0369:= -2/3*%i*cosh(a+b*x)^(1/2)*EllipticF(1/2*%i*(a+b*x),2)*_ + sech(a+b*x)^(1/2)/b+2/3*sinh(a+b*x)/b/sech(a+b*x)^(1/2) --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -42174,7 +42217,8 @@ t0370:= 1/sech(a+b*x)^(5/2) --E 359 --S 360 of 508 -r0370:= -6/5*%i*cosh(a+b*x)^(1/2)*EllipticE(1/2*%i*(a+b*x),2)*sech(a+b*x)^(1/2)/b+2/5*sinh(a+b*x)/b/sech(a+b*x)^(3/2) +r0370:= -6/5*%i*cosh(a+b*x)^(1/2)*EllipticE(1/2*%i*(a+b*x),2)*_ + sech(a+b*x)^(1/2)/b+2/5*sinh(a+b*x)/b/sech(a+b*x)^(3/2) --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -42220,7 +42264,8 @@ t0371:= x*sech(a+b*x) --E 364 --S 365 of 508 -r0371:= (2*x*atan(exp(a+b*x))*b-%i*polylog(2,-%i*exp(a+b*x))+%i*polylog(2,%i*exp(a+b*x)))/b^2 +r0371:= (2*x*atan(exp(a+b*x))*b-%i*polylog(2,-%i*exp(a+b*x))+_ + %i*polylog(2,%i*exp(a+b*x)))/b^2 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -42266,7 +42311,9 @@ t0372:= x^2*sech(a+b*x) --E 369 --S 370 of 508 -r0372:= 2*(x^2*atan(exp(a+b*x))*b^2-%i*x*polylog(2,-%i*exp(a+b*x))*b+%i*x*polylog(2,%i*exp(a+b*x))*b+%i*polylog(3,-%i*exp(a+b*x))-%i*polylog(3,%i*exp(a+b*x)))/b^3 +r0372:= 2*(x^2*atan(exp(a+b*x))*b^2-%i*x*polylog(2,-%i*exp(a+b*x))*b+_ + %i*x*polylog(2,%i*exp(a+b*x))*b+%i*polylog(3,-%i*exp(a+b*x))-_ + %i*polylog(3,%i*exp(a+b*x)))/b^3 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -42312,7 +42359,12 @@ t0373:= x^3*sech(a+b*x) --E 374 --S 375 of 508 -r0373:= (2*x^3*atan(exp(a+b*x))*b^3-3*%i*x^2*polylog(2,-%i*exp(a+b*x))*b^2+3*%i*x^2*polylog(2,%i*exp(a+b*x))*b^2+6*%i*x*polylog(3,-%i*exp(a+b*x))*b-6*%i*x*polylog(3,%i*exp(a+b*x))*b-6*%i*polylog(4,-%i*exp(a+b*x))+6*%i*polylog(4,%i*exp(a+b*x)))/b^4 +r0373:= (2*x^3*atan(exp(a+b*x))*b^3-3*%i*x^2*polylog(2,-%i*exp(a+b*x))*b^2+_ + 3*%i*x^2*polylog(2,%i*exp(a+b*x))*b^2+_ + 6*%i*x*polylog(3,-%i*exp(a+b*x))*b-_ + 6*%i*x*polylog(3,%i*exp(a+b*x))*b-_ + 6*%i*polylog(4,-%i*exp(a+b*x))+_ + 6*%i*polylog(4,%i*exp(a+b*x)))/b^4 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -42406,7 +42458,8 @@ t0375:= x^2*sech(a+b*x)^2 --E 384 --S 385 of 508 -r0375:= (b^2*x^2-2*x*log(exp(2*a+2*b*x)+1)*b-polylog(2,-exp(2*a+2*b*x))+x^2*tanh(a+b*x)*b^2)/b^3 +r0375:= (b^2*x^2-2*x*log(exp(2*a+2*b*x)+1)*b-polylog(2,-exp(2*a+2*b*x))+_ + x^2*tanh(a+b*x)*b^2)/b^3 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -42452,7 +42505,9 @@ t0376:= x^3*sech(a+b*x)^2 --E 389 --S 390 of 508 -r0376:= 1/2*(2*b^3*x^3-6*x^2*log(exp(2*a+2*b*x)+1)*b^2-6*x*polylog(2,-exp(2*a+2*b*x))*b+3*polylog(3,-exp(2*a+2*b*x))+2*x^3*tanh(a+b*x)*b^3)/b^4 +r0376:= 1/2*(2*b^3*x^3-6*x^2*log(exp(2*a+2*b*x)+1)*b^2-_ + 6*x*polylog(2,-exp(2*a+2*b*x))*b+_ + 3*polylog(3,-exp(2*a+2*b*x))+2*x^3*tanh(a+b*x)*b^3)/b^4 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -42498,7 +42553,9 @@ t0377:= x*sech(a+b*x)^3 --E 394 --S 395 of 508 -r0377:= x*atan(exp(1)^(a+b*x))/b-1/2*%i*polylog(2,-%i*exp(1)^(a+b*x))/b^2+1/2*%i*polylog(2,%i*exp(1)^(a+b*x))/b^2+1/2*sech(a+b*x)/b^2+1/2*x*sech(a+b*x)*tanh(a+b*x)/b +r0377:= x*atan(exp(1)^(a+b*x))/b-1/2*%i*polylog(2,-%i*exp(1)^(a+b*x))/b^2+_ + 1/2*%i*polylog(2,%i*exp(1)^(a+b*x))/b^2+_ + 1/2*sech(a+b*x)/b^2+1/2*x*sech(a+b*x)*tanh(a+b*x)/b --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -42544,7 +42601,12 @@ t0378:= x^2*sech(a+b*x)^3 --E 399 --S 400 of 508 -r0378:= x^2*atan(exp(1)^(a+b*x))/b-atan(sinh(a+b*x))/b^3-%i*x*polylog(2,-%i*exp(1)^(a+b*x))/b^2+%i*x*polylog(2,%i*exp(1)^(a+b*x))/b^2+%i*polylog(3,-%i*exp(1)^(a+b*x))/b^3-%i*polylog(3,%i*exp(1)^(a+b*x))/b^3+x*sech(a+b*x)/b^2+1/2*x^2*sech(a+b*x)*tanh(a+b*x)/b +r0378:= x^2*atan(exp(1)^(a+b*x))/b-atan(sinh(a+b*x))/b^3-_ + %i*x*polylog(2,-%i*exp(1)^(a+b*x))/b^2+_ + %i*x*polylog(2,%i*exp(1)^(a+b*x))/b^2+_ + %i*polylog(3,-%i*exp(1)^(a+b*x))/b^3-_ + %i*polylog(3,%i*exp(1)^(a+b*x))/b^3+_ + x*sech(a+b*x)/b^2+1/2*x^2*sech(a+b*x)*tanh(a+b*x)/b --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -42589,7 +42651,8 @@ t0379:= (c+d*x)*sech(a+b*x) --E 404 --S 405 of 508 -r0379:= (2*atan(exp(a+b*x))*c*b+2*atan(exp(a+b*x))*d*x*b-%i*d*polylog(2,-%i*exp(a+b*x))+%i*d*polylog(2,%i*exp(a+b*x)))/b^2 +r0379:= (2*atan(exp(a+b*x))*c*b+2*atan(exp(a+b*x))*d*x*b-_ + %i*d*polylog(2,-%i*exp(a+b*x))+%i*d*polylog(2,%i*exp(a+b*x)))/b^2 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -42635,7 +42698,11 @@ t0380:= (c+d*x)^2*sech(a+b*x) --E 409 --S 410 of 508 -r0380:= 2*(c+d*x)^2*atan(exp(1)^(a+b*x))/b-2*%i*d*(c+d*x)*polylog(2,-%i*exp(1)^(a+b*x))/b^2+2*%i*d*(c+d*x)*polylog(2,%i*exp(1)^(a+b*x))/b^2+2*%i*d^2*polylog(3,-%i*exp(1)^(a+b*x))/b^3-2*%i*d^2*polylog(3,%i*exp(1)^(a+b*x))/b^3 +r0380:= 2*(c+d*x)^2*atan(exp(1)^(a+b*x))/b-2*%i*d*(c+d*x)*_ + polylog(2,-%i*exp(1)^(a+b*x))/b^2+2*%i*d*(c+d*x)*_ + polylog(2,%i*exp(1)^(a+b*x))/b^2+2*%i*d^2*_ + polylog(3,-%i*exp(1)^(a+b*x))/b^3-2*%i*d^2*_ + polylog(3,%i*exp(1)^(a+b*x))/b^3 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -42681,7 +42748,13 @@ t0381:= (c+d*x)^3*sech(a+b*x) --E 414 --S 415 of 508 -r0381:= 2*(c+d*x)^3*atan(exp(1)^(a+b*x))/b-3*%i*d*(c+d*x)^2*polylog(2,-%i*exp(1)^(a+b*x))/b^2+3*%i*d*(c+d*x)^2*polylog(2,%i*exp(1)^(a+b*x))/b^2+6*%i*d^2*(c+d*x)*polylog(3,-%i*exp(1)^(a+b*x))/b^3-6*%i*d^2*(c+d*x)*polylog(3,%i*exp(1)^(a+b*x))/b^3-6*%i*d^3*polylog(4,-%i*exp(1)^(a+b*x))/b^4+6*%i*d^3*polylog(4,%i*exp(1)^(a+b*x))/b^4 +r0381:= 2*(c+d*x)^3*atan(exp(1)^(a+b*x))/b-3*%i*d*(c+d*x)^2*_ + polylog(2,-%i*exp(1)^(a+b*x))/b^2+3*%i*d*(c+d*x)^2*_ + polylog(2,%i*exp(1)^(a+b*x))/b^2+6*%i*d^2*(c+d*x)*_ + polylog(3,-%i*exp(1)^(a+b*x))/b^3-6*%i*d^2*(c+d*x)*_ + polylog(3,%i*exp(1)^(a+b*x))/b^3-6*%i*d^3*_ + polylog(4,-%i*exp(1)^(a+b*x))/b^4+6*%i*d^3*_ + polylog(4,%i*exp(1)^(a+b*x))/b^4 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -42888,7 +42961,8 @@ t0383:= (c+d*x)^2*sech(a+b*x)^2 --E 424 --S 425 of 508 -r0383:= (c+d*x)^2/b-2*d*(c+d*x)*log(1+exp(1)^(2*a+2*b*x))/b^2-d^2*polylog(2,-exp(1)^(2*a+2*b*x))/b^3+(c+d*x)^2*tanh(a+b*x)/b +r0383:= (c+d*x)^2/b-2*d*(c+d*x)*log(1+exp(1)^(2*a+2*b*x))/b^2-_ + d^2*polylog(2,-exp(1)^(2*a+2*b*x))/b^3+(c+d*x)^2*tanh(a+b*x)/b --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -42934,7 +43008,9 @@ t0384:= (c+d*x)^3*sech(a+b*x)^2 --E 429 --S 430 of 508 -r0384:= (c+d*x)^3/b-3*d*(c+d*x)^2*log(1+exp(1)^(2*a+2*b*x))/b^2-3*d^2*(c+d*x)*polylog(2,-exp(1)^(2*a+2*b*x))/b^3+3/2*d^3*polylog(3,-exp(1)^(2*a+2*b*x))/b^4+(c+d*x)^3*tanh(a+b*x)/b +r0384:= (c+d*x)^3/b-3*d*(c+d*x)^2*log(1+exp(1)^(2*a+2*b*x))/b^2-_ + 3*d^2*(c+d*x)*polylog(2,-exp(1)^(2*a+2*b*x))/b^3+_ + 3/2*d^3*polylog(3,-exp(1)^(2*a+2*b*x))/b^4+(c+d*x)^3*tanh(a+b*x)/b --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -42980,7 +43056,10 @@ t0385:= (c+d*x)*sech(a+b*x)^3 --E 434 --S 435 of 508 -r0385:= (c+d*x)*atan(exp(1)^(a+b*x))/b-1/2*%i*d*polylog(2,-%i*exp(1)^(a+b*x))/b^2+1/2*%i*d*polylog(2,%i*exp(1)^(a+b*x))/b^2+1/2*d*sech(a+b*x)/b^2+1/2*(c+d*x)*sech(a+b*x)*tanh(a+b*x)/b +r0385:= (c+d*x)*atan(exp(1)^(a+b*x))/b-1/2*%i*d*_ + polylog(2,-%i*exp(1)^(a+b*x))/b^2+1/2*%i*d*_ + polylog(2,%i*exp(1)^(a+b*x))/b^2+1/2*d*_ + sech(a+b*x)/b^2+1/2*(c+d*x)*sech(a+b*x)*tanh(a+b*x)/b --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -43026,7 +43105,12 @@ t0386:= (c+d*x)^2*sech(a+b*x)^3 --E 439 --S 440 of 508 -r0386:= (c+d*x)^2*atan(exp(1)^(a+b*x))/b-d^2*atan(sinh(a+b*x))/b^3-%i*d*(c+d*x)*polylog(2,-%i*exp(1)^(a+b*x))/b^2+%i*d*(c+d*x)*polylog(2,%i*exp(1)^(a+b*x))/b^2+%i*d^2*polylog(3,-%i*exp(1)^(a+b*x))/b^3-%i*d^2*polylog(3,%i*exp(1)^(a+b*x))/b^3+d*(c+d*x)*sech(a+b*x)/b^2+1/2*(c+d*x)^2*sech(a+b*x)*tanh(a+b*x)/b +r0386:= (c+d*x)^2*atan(exp(1)^(a+b*x))/b-d^2*atan(sinh(a+b*x))/b^3-_ + %i*d*(c+d*x)*polylog(2,-%i*exp(1)^(a+b*x))/b^2+_ + %i*d*(c+d*x)*polylog(2,%i*exp(1)^(a+b*x))/b^2+_ + %i*d^2*polylog(3,-%i*exp(1)^(a+b*x))/b^3-_ + %i*d^2*polylog(3,%i*exp(1)^(a+b*x))/b^3+d*(c+d*x)*sech(a+b*x)/b^2+_ + 1/2*(c+d*x)^2*sech(a+b*x)*tanh(a+b*x)/b --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -43174,7 +43258,8 @@ t0389:= (sech(x)^3)^(1/2) --E 454 --S 455 of 508 -r0389:= 2*cosh(x)*(sech(x)^3)^(1/2)*(%i*cosh(x)^(1/2)*EllipticE(1/2*%i*x,2)+sinh(x)) +r0389:= 2*cosh(x)*(sech(x)^3)^(1/2)*(%i*cosh(x)^(1/2)*_ + EllipticE(1/2*%i*x,2)+sinh(x)) --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -43420,7 +43505,8 @@ t0393:= (3+3*sech(x))^(1/2) --E 474 --S 475 of 508 -r0393:= 2*3^(1/2)*atan((-1+sech(x))^(1/2))*tanh(x)/(-1+sech(x))^(1/2)/(1+sech(x))^(1/2) +r0393:= 2*3^(1/2)*atan((-1+sech(x))^(1/2))*tanh(x)/_ + (-1+sech(x))^(1/2)/(1+sech(x))^(1/2) --R --R --R +-+ +-----------+ @@ -44017,7 +44103,8 @@ t0394:= (3-3*sech(x))^(1/2) --E 479 --S 480 of 508 -r0394:= 2*3^(1/2)*atan((-1-sech(x))^(1/2))*tanh(x)/(-1-sech(x))^(1/2)/(1-sech(x))^(1/2) +r0394:= 2*3^(1/2)*atan((-1-sech(x))^(1/2))*tanh(x)/_ + (-1-sech(x))^(1/2)/(1-sech(x))^(1/2) --R --R --R +-+ +-------------+ @@ -44613,7 +44700,8 @@ t0395:= (a+a*sech(x))^(1/2) --E 484 --S 485 of 508 -r0395:= 2*a*atan((-1+sech(x))^(1/2))*tanh(x)/(-1+sech(x))^(1/2)/(a+a*sech(x))^(1/2) +r0395:= 2*a*atan((-1+sech(x))^(1/2))*tanh(x)/_ + (-1+sech(x))^(1/2)/(a+a*sech(x))^(1/2) --R --R --R +-----------+ @@ -45207,7 +45295,8 @@ t0396:= (a-a*sech(x))^(1/2) --E 489 --S 490 of 508 -r0396:= 2*a*atan((-1-sech(x))^(1/2))*tanh(x)/(-1-sech(x))^(1/2)/(a-a*sech(x))^(1/2) +r0396:= 2*a*atan((-1-sech(x))^(1/2))*tanh(x)/_ + (-1-sech(x))^(1/2)/(a-a*sech(x))^(1/2) --R --R --R +-------------+ @@ -45800,7 +45889,9 @@ t0397:= 1/(a+a*sech(x))^(1/2) --E 494 --S 495 of 508 -r0397:= -(2^(1/2)*atan(2^(1/2)*a^(1/2)/(-a+a*sech(x))^(1/2))+2*atan((-a+a*sech(x))^(1/2)/a^(1/2)))*coth(x)*(-a+a*sech(x))^(1/2)*(a+a*sech(x))^(1/2)/a^(3/2) +r0397:= -(2^(1/2)*atan(2^(1/2)*a^(1/2)/(-a+a*sech(x))^(1/2))+_ + 2*atan((-a+a*sech(x))^(1/2)/a^(1/2)))*coth(x)*_ + (-a+a*sech(x))^(1/2)*(a+a*sech(x))^(1/2)/a^(3/2) --R --R --R (386) @@ -46539,7 +46630,9 @@ t0398:= 1/(a-a*sech(x))^(1/2) --E 499 --S 500 of 508 -r0398:= -(2^(1/2)*atan(2^(1/2)*a^(1/2)/(-a-a*sech(x))^(1/2))+2*atan((-a-a*sech(x))^(1/2)/a^(1/2)))*coth(x)*(-a-a*sech(x))^(1/2)*(a-a*sech(x))^(1/2)/a^(3/2) +r0398:= -(2^(1/2)*atan(2^(1/2)*a^(1/2)/(-a-a*sech(x))^(1/2))+_ + 2*atan((-a-a*sech(x))^(1/2)/a^(1/2)))*coth(x)*(-a-a*sech(x))^(1/2)*_ + (a-a*sech(x))^(1/2)/a^(3/2) --R --R --R (390) diff --git a/src/input/richhyper400-499.input.pamphlet b/src/input/richhyper400-499.input.pamphlet index 97e4744..3a4a0eb 100644 --- a/src/input/richhyper400-499.input.pamphlet +++ b/src/input/richhyper400-499.input.pamphlet @@ -15393,7 +15393,8 @@ t0422:= x/sech(x)^(7/2)-5/21*x*sech(x)^(1/2) --E 125 --S 126 of 526 -r0422:= -2/441*(18*cosh(x)^3+70*cosh(x)-63*x*sinh(x)*cosh(x)^2-105*x*sinh(x))/(1/cosh(x))^(1/2) +r0422:= -2/441*(18*cosh(x)^3+70*cosh(x)-63*x*sinh(x)*cosh(x)^2-_ + 105*x*sinh(x))/(1/cosh(x))^(1/2) --R --R --R 2 3 diff --git a/src/input/richhyper800-899.input.pamphlet b/src/input/richhyper800-899.input.pamphlet index 61f643d..28df68a 100644 --- a/src/input/richhyper800-899.input.pamphlet +++ b/src/input/richhyper800-899.input.pamphlet @@ -7893,7 +7893,8 @@ t0876:= 1/(a*cosh(x)+b*sinh(x))^3 --E 381 --S 382 of 502 -r0876:= 1/2*atan((b*cosh(x)+a*sinh(x))/(a^2-b^2)^(1/2))/(a^2-b^2)^(3/2)+1/2*(b*cosh(x)+a*sinh(x))/(a^2-b^2)/(a*cosh(x)+b*sinh(x))^2 +r0876:= 1/2*atan((b*cosh(x)+a*sinh(x))/(a^2-b^2)^(1/2))/(a^2-b^2)^(3/2)+_ + 1/2*(b*cosh(x)+a*sinh(x))/(a^2-b^2)/(a*cosh(x)+b*sinh(x))^2 --R --R --R (218) diff --git a/src/input/richlog100-199.input.pamphlet b/src/input/richlog100-199.input.pamphlet index 1f06f42..cb2cdef 100644 --- a/src/input/richlog100-199.input.pamphlet +++ b/src/input/richlog100-199.input.pamphlet @@ -1520,7 +1520,8 @@ t0118:= log(c*(a+b*x^2)^n)/x^4 --E 99 --S 100 of 518 -r0118:= -2/3*b*n/a/x-2/3*b^(3/2)*n*atan(b^(1/2)*x/a^(1/2))/a^(3/2)-1/3*log(c*(a+b*x^2)^n)/x^3 +r0118:= -2/3*b*n/a/x-2/3*b^(3/2)*n*atan(b^(1/2)*x/a^(1/2))/a^(3/2)-_ + 1/3*log(c*(a+b*x^2)^n)/x^3 --R --R --R +-+ diff --git a/src/input/richlog200-299.input.pamphlet b/src/input/richlog200-299.input.pamphlet index e9dcab3..230594f 100644 --- a/src/input/richlog200-299.input.pamphlet +++ b/src/input/richlog200-299.input.pamphlet @@ -281,7 +281,8 @@ t0203:= log(c*(a+b*x)^n)^3 --E 16 --S 17 of 514 -r0203:= -6*n^3*x+6*n^2*(a+b*x)*log(c*(a+b*x)^n)/b-3*n*(a+b*x)*log(c*(a+b*x)^n)^2/b+(a+b*x)*log(c*(a+b*x)^n)^3/b +r0203:= -6*n^3*x+6*n^2*(a+b*x)*log(c*(a+b*x)^n)/b-_ + 3*n*(a+b*x)*log(c*(a+b*x)^n)^2/b+(a+b*x)*log(c*(a+b*x)^n)^3/b --R --R --R (11) @@ -1893,7 +1894,9 @@ t0227:= log(c*(a+b*x)^n)/(d*x+e*x^2) --E 136 --S 137 of 514 -r0227:= -1/d*(-log(-b*x/a)*log(c*(a+b*x)^n)+log(c*(a+b*x)^n)*log(-b*(d+e*x)/(a*e-b*d))+n*polylog(2,e*(a+b*x)/(a*e-b*d))-n*polylog(2,(a+b*x)/a)) +r0227:= -1/d*(-log(-b*x/a)*log(c*(a+b*x)^n)+_ + log(c*(a+b*x)^n)*log(-b*(d+e*x)/(a*e-b*d))+_ + n*polylog(2,e*(a+b*x)/(a*e-b*d))-n*polylog(2,(a+b*x)/a)) --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue diff --git a/src/input/richrational.input.pamphlet b/src/input/richrational.input.pamphlet index bca0d63..fb7a153 100644 --- a/src/input/richrational.input.pamphlet +++ b/src/input/richrational.input.pamphlet @@ -1,6 +1,6 @@ \documentclass{article} \usepackage{axiom} -\setlength{\textwidth}{400pt} +\setlength{\textwidth}{405pt} \begin{document} \title{\$SPAD/src/input richrational.input} \author{Albert Rich and Timothy Daly} @@ -62175,7 +62175,8 @@ t0249:= 1/x/(1+x^5+x^10) --E 1344 --S 1345 of 1483 -r0249:= -1/15*atan(1/3*(1+2*x^5)*3^(1/2)::EXPR(INT))*3^(1/2)+log(x)-1/10*log(1+x^5+x^10) +r0249:= -1/15*atan(1/3*(1+2*x^5)*3^(1/2)::EXPR(INT))*3^(1/2)+log(x)-_ + 1/10*log(1+x^5+x^10) --R --R --R 5 +-+ @@ -62229,7 +62230,8 @@ t0250:= 1/(x+x^6+x^11) --E 1349 --S 1350 of 1483 -r0250:= -1/15*atan(1/3*(1+2*x^5)*3^(1/2)::EXPR(INT))*3^(1/2)+log(x)-1/10*log(1+x^5+x^10) +r0250:= -1/15*atan(1/3*(1+2*x^5)*3^(1/2)::EXPR(INT))*3^(1/2)+log(x)-_ + 1/10*log(1+x^5+x^10) --R --R --R 5 +-+ diff --git a/src/input/richtrig200-299.input.pamphlet b/src/input/richtrig200-299.input.pamphlet index b111cb4..27572d8 100644 --- a/src/input/richtrig200-299.input.pamphlet +++ b/src/input/richtrig200-299.input.pamphlet @@ -27,7 +27,8 @@ t0200:= x^2*cos(a+b*log(c*x^n))^2 --E 1 --S 2 of 510 -r0200:= 1/3/(9+4*b^2*n^2)*x^3*(2*b^2*n^2+9*cos(a+b*log(c*x^n))^2+6*b*n*cos(a+b*log(c*x^n))*sin(a+b*log(c*x^n))) +r0200:= 1/3/(9+4*b^2*n^2)*x^3*(2*b^2*n^2+9*cos(a+b*log(c*x^n))^2+_ + 6*b*n*cos(a+b*log(c*x^n))*sin(a+b*log(c*x^n))) --R --R --R (2) @@ -118,7 +119,8 @@ t0201:= cos(a+b*log(c*x^n))^2/x^2 --E 6 --S 7 of 510 -r0201:= -1/(1+4*b^2*n^2)/x*(2*b^2*n^2+cos(a+b*log(c*x^n))^2-2*b*n*cos(a+b*log(c*x^n))*sin(a+b*log(c*x^n))) +r0201:= -1/(1+4*b^2*n^2)/x*(2*b^2*n^2+cos(a+b*log(c*x^n))^2-_ + 2*b*n*cos(a+b*log(c*x^n))*sin(a+b*log(c*x^n))) --R --R --R (7) @@ -198,7 +200,9 @@ t0202:= x^m*cos(a+b*log(c*x^n))^2 --E 11 --S 12 of 510 -r0202:= 2*b^2*n^2*x^(1+m)/(1+m)/((1+m)^2+4*b^2*n^2)+(1+m)*x^(1+m)*cos(a+b*log(c*x^n))^2/((1+m)^2+4*b^2*n^2)+2*b*n*x^(1+m)*cos(a+b*log(c*x^n))*sin(a+b*log(c*x^n))/((1+m)^2+4*b^2*n^2) +r0202:= 2*b^2*n^2*x^(1+m)/(1+m)/((1+m)^2+4*b^2*n^2)+(1+m)*x^(1+m)*_ + cos(a+b*log(c*x^n))^2/((1+m)^2+4*b^2*n^2)+2*b*n*x^(1+m)*_ + cos(a+b*log(c*x^n))*sin(a+b*log(c*x^n))/((1+m)^2+4*b^2*n^2) --R --R --R (12) @@ -302,7 +306,10 @@ t0203:= cos(a+b*log(c*x^n))^3 --E 16 --S 17 of 510 -r0203:= 6*b^2*n^2*x*cos(a+b*log(c*x^n))/(1+b^2*n^2)/(1+9*b^2*n^2)+x*cos(a+b*log(c*x^n))^3/(1+9*b^2*n^2)+6*b^3*n^3*x*sin(a+b*log(c*x^n))/(1+b^2*n^2)/(1+9*b^2*n^2)+3*b*n*x*cos(a+b*log(c*x^n))^2*sin(a+b*log(c*x^n))/(1+9*b^2*n^2) +r0203:= 6*b^2*n^2*x*cos(a+b*log(c*x^n))/(1+b^2*n^2)/(1+9*b^2*n^2)+_ + x*cos(a+b*log(c*x^n))^3/(1+9*b^2*n^2)+6*b^3*n^3*x*_ + sin(a+b*log(c*x^n))/(1+b^2*n^2)/(1+9*b^2*n^2)+_ + 3*b*n*x*cos(a+b*log(c*x^n))^2*sin(a+b*log(c*x^n))/(1+9*b^2*n^2) --R --R --R (17) @@ -415,7 +422,11 @@ t0204:= x*cos(a+b*log(c*x^n))^3 --E 21 --S 22 of 510 -r0204:= x^2*(12*b^2*n^2*cos(a+b*log(c*x^n))+8*cos(a+b*log(c*x^n))^3+2*cos(a+b*log(c*x^n))^3*b^2*n^2+6*b^3*n^3*sin(a+b*log(c*x^n))+12*b*n*cos(a+b*log(c*x^n))^2*sin(a+b*log(c*x^n))+3*b^3*n^3*cos(a+b*log(c*x^n))^2*sin(a+b*log(c*x^n)))/(4+b^2*n^2)/(4+9*b^2*n^2) +r0204:= x^2*(12*b^2*n^2*cos(a+b*log(c*x^n))+8*cos(a+b*log(c*x^n))^3+_ + 2*cos(a+b*log(c*x^n))^3*b^2*n^2+6*b^3*n^3*sin(a+b*log(c*x^n))+_ + 12*b*n*cos(a+b*log(c*x^n))^2*sin(a+b*log(c*x^n))+_ + 3*b^3*n^3*cos(a+b*log(c*x^n))^2*_ + sin(a+b*log(c*x^n)))/(4+b^2*n^2)/(4+9*b^2*n^2) --R --R --R (22) @@ -531,7 +542,10 @@ t0205:= x^2*cos(a+b*log(c*x^n))^3 --E 26 --S 27 of 510 -r0205:= 2*b^2*n^2*x^3*cos(a+b*log(c*x^n))/(1+b^2*n^2)/(9+b^2*n^2)+x^3*cos(a+b*log(c*x^n))^3/(3+3*b^2*n^2)+2/3*b^3*n^3*x^3*sin(a+b*log(c*x^n))/(1+b^2*n^2)/(9+b^2*n^2)+b*n*x^3*cos(a+b*log(c*x^n))^2*sin(a+b*log(c*x^n))/(3+3*b^2*n^2) +r0205:= 2*b^2*n^2*x^3*cos(a+b*log(c*x^n))/(1+b^2*n^2)/(9+b^2*n^2)+_ + x^3*cos(a+b*log(c*x^n))^3/(3+3*b^2*n^2)+2/3*b^3*n^3*_ + x^3*sin(a+b*log(c*x^n))/(1+b^2*n^2)/(9+b^2*n^2)+b*n*_ + x^3*cos(a+b*log(c*x^n))^2*sin(a+b*log(c*x^n))/(3+3*b^2*n^2) --R --R --R (27) @@ -650,7 +664,11 @@ t0206:= cos(a+b*log(c*x^n))^3/x^2 --E 31 --S 32 of 510 -r0206:= -1/(1+b^2*n^2)/(1+9*b^2*n^2)/x*(6*b^2*n^2*cos(a+b*log(c*x^n))+cos(a+b*log(c*x^n))^3+cos(a+b*log(c*x^n))^3*b^2*n^2-6*b^3*n^3*sin(a+b*log(c*x^n))-3*b*n*cos(a+b*log(c*x^n))^2*sin(a+b*log(c*x^n))-3*b^3*n^3*cos(a+b*log(c*x^n))^2*sin(a+b*log(c*x^n))) +r0206:= -1/(1+b^2*n^2)/(1+9*b^2*n^2)/x*(6*b^2*n^2*cos(a+b*log(c*x^n))+_ + cos(a+b*log(c*x^n))^3+cos(a+b*log(c*x^n))^3*b^2*n^2-_ + 6*b^3*n^3*sin(a+b*log(c*x^n))-3*b*n*cos(a+b*log(c*x^n))^2*_ + sin(a+b*log(c*x^n))-3*b^3*n^3*cos(a+b*log(c*x^n))^2*_ + sin(a+b*log(c*x^n))) --R --R --R (32) @@ -763,7 +781,12 @@ t0207:= x^m*cos(a+b*log(c*x^n))^3 --E 36 --S 37 of 510 -r0207:= 6*b^2*(1+m)*n^2*x^(1+m)*cos(a+b*log(c*x^n))/((1+m)^2+b^2*n^2)/((1+m)^2+9*b^2*n^2)+(1+m)*x^(1+m)*cos(a+b*log(c*x^n))^3/((1+m)^2+9*b^2*n^2)+6*b^3*n^3*x^(1+m)*sin(a+b*log(c*x^n))/((1+m)^2+b^2*n^2)/((1+m)^2+9*b^2*n^2)+3*b*n*x^(1+m)*cos(a+b*log(c*x^n))^2*sin(a+b*log(c*x^n))/((1+m)^2+9*b^2*n^2) +r0207:= 6*b^2*(1+m)*n^2*x^(1+m)*cos(a+b*log(c*x^n))/((1+m)^2+_ + b^2*n^2)/((1+m)^2+9*b^2*n^2)+(1+m)*x^(1+m)*_ + cos(a+b*log(c*x^n))^3/((1+m)^2+9*b^2*n^2)+_ + 6*b^3*n^3*x^(1+m)*sin(a+b*log(c*x^n))/((1+m)^2+b^2*n^2)/((1+m)^2+_ + 9*b^2*n^2)+3*b*n*x^(1+m)*cos(a+b*log(c*x^n))^2*_ + sin(a+b*log(c*x^n))/((1+m)^2+9*b^2*n^2) --R --R --R (37) @@ -1023,7 +1046,8 @@ t0210:= x*tan(a+b*x) --E 51 --S 52 of 510 -r0210:= -1/2*(-%i*x^2*b^2+2*x*log(1+exp(2*%i*(a+b*x)))*b-%i*polylog(2,-exp(2*%i*(a+b*x))))/b^2 +r0210:= -1/2*(-%i*x^2*b^2+2*x*log(1+exp(2*%i*(a+b*x)))*b-_ + %i*polylog(2,-exp(2*%i*(a+b*x))))/b^2 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -1080,7 +1104,9 @@ t0211:= x*tan(a+b*x)^3 --E 56 --S 57 of 510 -r0211:= -1/2*%i*x^2+x*log(1+exp(1)^(2*%i*a+2*%i*b*x))/b-1/2*%i*polylog(2,-exp(1)^(2*%i*a+2*%i*b*x))/b^2+1/2*x*sec(a+b*x)^2/b-1/2*tan(a+b*x)/b^2 +r0211:= -1/2*%i*x^2+x*log(1+exp(1)^(2*%i*a+2*%i*b*x))/b-_ + 1/2*%i*polylog(2,-exp(1)^(2*%i*a+2*%i*b*x))/b^2+_ + 1/2*x*sec(a+b*x)^2/b-1/2*tan(a+b*x)/b^2 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -1138,7 +1164,9 @@ t0212:= x^2*tan(a+b*x) --E 61 --S 62 of 510 -r0212:= -1/6*(-2*%i*x^3*b^3+6*x^2*log(1+exp(2*%i*(a+b*x)))*b^2-6*%i*x*polylog(2,-exp(2*%i*(a+b*x)))*b+3*polylog(3,-exp(2*%i*(a+b*x))))/b^3 +r0212:= -1/6*(-2*%i*x^3*b^3+6*x^2*log(1+exp(2*%i*(a+b*x)))*b^2-_ + 6*%i*x*polylog(2,-exp(2*%i*(a+b*x)))*b+_ + 3*polylog(3,-exp(2*%i*(a+b*x))))/b^3 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -1196,7 +1224,8 @@ t0213:= x^2*tan(a+b*x)^2 --E 66 --S 67 of 510 -r0213:= 1/3*(-3*%i*x^2*b^2-b^3*x^3+6*x*log(1+exp(2*%i*(a+b*x)))*b-3*%i*polylog(2,-exp(2*%i*(a+b*x)))+3*x^2*tan(a+b*x)*b^2)/b^3 +r0213:= 1/3*(-3*%i*x^2*b^2-b^3*x^3+6*x*log(1+exp(2*%i*(a+b*x)))*b-_ + 3*%i*polylog(2,-exp(2*%i*(a+b*x)))+3*x^2*tan(a+b*x)*b^2)/b^3 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -1254,7 +1283,10 @@ t0214:= x^2*tan(a+b*x)^3 --E 71 --S 72 of 510 -r0214:= -1/3*%i*x^3+x^2*log(1+exp(1)^(2*%i*a+2*%i*b*x))/b-log(cos(a+b*x))/b^3-%i*x*polylog(2,-exp(1)^(2*%i*a+2*%i*b*x))/b^2+1/2*polylog(3,-exp(1)^(2*%i*a+2*%i*b*x))/b^3+1/2*x^2*sec(a+b*x)^2/b-x*tan(a+b*x)/b^2 +r0214:= -1/3*%i*x^3+x^2*log(1+exp(1)^(2*%i*a+2*%i*b*x))/b-_ + log(cos(a+b*x))/b^3-%i*x*polylog(2,-exp(1)^(2*%i*a+2*%i*b*x))/b^2+_ + 1/2*polylog(3,-exp(1)^(2*%i*a+2*%i*b*x))/b^3+_ + 1/2*x^2*sec(a+b*x)^2/b-x*tan(a+b*x)/b^2 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -1312,7 +1344,10 @@ t0215:= x^3*tan(a+b*x) --E 76 --S 77 of 510 -r0215:= -1/4*(-%i*x^4*b^4+4*x^3*log(1+exp(2*%i*(a+b*x)))*b^3-6*%i*x^2*polylog(2,-exp(2*%i*(a+b*x)))*b^2+6*x*polylog(3,-exp(2*%i*(a+b*x)))*b+3*%i*polylog(4,-exp(2*%i*(a+b*x))))/b^4 +r0215:= -1/4*(-%i*x^4*b^4+4*x^3*log(1+exp(2*%i*(a+b*x)))*b^3-_ + 6*%i*x^2*polylog(2,-exp(2*%i*(a+b*x)))*b^2+_ + 6*x*polylog(3,-exp(2*%i*(a+b*x)))*b+_ + 3*%i*polylog(4,-exp(2*%i*(a+b*x))))/b^4 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -1370,7 +1405,9 @@ t0216:= x^3*tan(a+b*x)^2 --E 81 --S 82 of 510 -r0216:= 1/4*(-4*%i*x^3*b^3-x^4*b^4+12*x^2*log(1+exp(2*%i*(a+b*x)))*b^2-12*%i*x*polylog(2,-exp(2*%i*(a+b*x)))*b+6*polylog(3,-exp(2*%i*(a+b*x)))+4*x^3*tan(a+b*x)*b^3)/b^4 +r0216:= 1/4*(-4*%i*x^3*b^3-x^4*b^4+12*x^2*log(1+exp(2*%i*(a+b*x)))*b^2-_ + 12*%i*x*polylog(2,-exp(2*%i*(a+b*x)))*b+_ + 6*polylog(3,-exp(2*%i*(a+b*x)))+4*x^3*tan(a+b*x)*b^3)/b^4 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -1428,7 +1465,12 @@ t0217:= x^3*tan(a+b*x)^3 --E 86 --S 87 of 510 -r0217:= 3/2*%i*x^2/b^2-1/4*%i*x^4-3*x*log(1+exp(1)^(2*%i*a+2*%i*b*x))/b^3+x^3*log(1+exp(1)^(2*%i*a+2*%i*b*x))/b+3/2*%i*(1-b^2*x^2)*polylog(2,-exp(1)^(2*%i*a+2*%i*b*x))/b^4+3/2*x*polylog(3,-exp(1)^(2*%i*a+2*%i*b*x))/b^3+3/4*%i*polylog(4,-exp(1)^(2*%i*a+2*%i*b*x))/b^4+1/2*x^3*sec(a+b*x)^2/b-3/2*x^2*tan(a+b*x)/b^2 +r0217:= 3/2*%i*x^2/b^2-1/4*%i*x^4-3*x*log(1+exp(1)^(2*%i*a+2*%i*b*x))/b^3+_ + x^3*log(1+exp(1)^(2*%i*a+2*%i*b*x))/b+_ + 3/2*%i*(1-b^2*x^2)*polylog(2,-exp(1)^(2*%i*a+2*%i*b*x))/b^4+_ + 3/2*x*polylog(3,-exp(1)^(2*%i*a+2*%i*b*x))/b^3+_ + 3/4*%i*polylog(4,-exp(1)^(2*%i*a+2*%i*b*x))/b^4+_ + 1/2*x^3*sec(a+b*x)^2/b-3/2*x^2*tan(a+b*x)/b^2 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -1555,7 +1597,11 @@ t0219:= (a*tan(x)^3)^(1/2) --E 96 --S 97 of 510 -r0219:= -1/4*(2*2^(1/2)*atan(-1+2^(1/2)*tan(x)^(1/2))+2*2^(1/2)*atan(1+2^(1/2)*tan(x)^(1/2))-log(1-2^(1/2)*tan(x)^(1/2)+tan(x))*2^(1/2)+log(1+2^(1/2)*tan(x)^(1/2)+tan(x))*2^(1/2)-8*tan(x)^(1/2))*(a*tan(x)^3)^(1/2)/tan(x)^(3/2) +r0219:= -1/4*(2*2^(1/2)*atan(-1+2^(1/2)*tan(x)^(1/2))+_ + 2*2^(1/2)*atan(1+2^(1/2)*tan(x)^(1/2))-_ + log(1-2^(1/2)*tan(x)^(1/2)+tan(x))*2^(1/2)+_ + log(1+2^(1/2)*tan(x)^(1/2)+tan(x))*2^(1/2)-8*tan(x)^(1/2))*_ + (a*tan(x)^3)^(1/2)/tan(x)^(3/2) --R --R --R (89) @@ -1644,7 +1690,10 @@ t0220:= (a*tan(x)^3)^(3/2) --E 101 --S 102 of 510 -r0220:= 1/84*a*(a*tan(x)^3)^(1/2)*(42*2^(1/2)*atan(-1+2^(1/2)*tan(x)^(1/2))+42*2^(1/2)*atan(1+2^(1/2)*tan(x)^(1/2))+21*log(1-2^(1/2)*tan(x)^(1/2)+tan(x))*2^(1/2)-21*log(1+2^(1/2)*tan(x)^(1/2)+tan(x))*2^(1/2)-56*tan(x)^(3/2)+24*tan(x)^(7/2))/tan(x)^(3/2) +r0220:= 1/84*a*(a*tan(x)^3)^(1/2)*(42*2^(1/2)*atan(-1+2^(1/2)*tan(x)^(1/2))+_ + 42*2^(1/2)*atan(1+2^(1/2)*tan(x)^(1/2))+21*log(1-2^(1/2)*_ + tan(x)^(1/2)+tan(x))*2^(1/2)-21*log(1+2^(1/2)*tan(x)^(1/2)+_ + tan(x))*2^(1/2)-56*tan(x)^(3/2)+24*tan(x)^(7/2))/tan(x)^(3/2) --R --R --R (93) @@ -2358,7 +2407,10 @@ t0222:= 1/(a*tan(x)^3)^(1/2) --E 111 --S 112 of 510 -r0222:= -1/2/(a*tan(x)^3)^(1/2)*(4-(-2^(1/2)*atan(-1+2^(1/2)*tan(x)^(1/2))-2^(1/2)*atan(1+2^(1/2)*tan(x)^(1/2))-1/2*log(1-2^(1/2)*tan(x)^(1/2)+tan(x))*2^(1/2)+1/2*log(1+2^(1/2)*tan(x)^(1/2)+tan(x))*2^(1/2))*tan(x)^(1/2))*tan(x) +r0222:= -1/2/(a*tan(x)^3)^(1/2)*(4-(-2^(1/2)*atan(-1+2^(1/2)*tan(x)^(1/2))-_ + 2^(1/2)*atan(1+2^(1/2)*tan(x)^(1/2))-_ + 1/2*log(1-2^(1/2)*tan(x)^(1/2)+tan(x))*2^(1/2)+_ + 1/2*log(1+2^(1/2)*tan(x)^(1/2)+tan(x))*2^(1/2))*tan(x)^(1/2))*tan(x) --R --R --R (103) @@ -2645,7 +2697,8 @@ t0225:= (a+b*tan(x))^3 --E 126 --S 127 of 510 -r0225:= a^3*x-3*a*b^2*x-3*a^2*b*log(cos(x))+b^3*log(cos(x))+3*a*b^2*tan(x)+1/2*b^3*tan(x)^2 +r0225:= a^3*x-3*a*b^2*x-3*a^2*b*log(cos(x))+b^3*log(cos(x))+_ + 3*a*b^2*tan(x)+1/2*b^3*tan(x)^2 --R --R --R 3 2 3 2 2 2 3 @@ -2810,7 +2863,8 @@ t0228:= 1/(a+b*tan(x))^2 --E 141 --S 142 of 510 -r0228:= (a^2-b^2)*x/(a^2+b^2)^2+2*a*b*log(a*cos(x)+b*sin(x))/(a^2+b^2)^2-b/(a^2+b^2)/(a+b*tan(x)) +r0228:= (a^2-b^2)*x/(a^2+b^2)^2+2*a*b*log(a*cos(x)+b*sin(x))/_ + (a^2+b^2)^2-b/(a^2+b^2)/(a+b*tan(x)) --R --R --R (132) @@ -2886,7 +2940,9 @@ t0229:= 1/(a+b*tan(x))^3 --E 146 --S 147 of 510 -r0229:= a*(a^2-3*b^2)*x/(a^2+b^2)^3+b*(3*a^2-b^2)*log(a*cos(x)+b*sin(x))/(a^2+b^2)^3-1/2*b/(a^2+b^2)/(a+b*tan(x))^2-2*a*b/(a^2+b^2)^2/(a+b*tan(x)) +r0229:= a*(a^2-3*b^2)*x/(a^2+b^2)^3+b*(3*a^2-b^2)*log(a*cos(x)+b*sin(x))/_ + (a^2+b^2)^3-1/2*b/(a^2+b^2)/(a+b*tan(x))^2-_ + 2*a*b/(a^2+b^2)^2/(a+b*tan(x)) --R --R --R (137) @@ -2981,7 +3037,9 @@ t0230:= (a+b*tan(x))^(1/2) --E 151 --S 152 of 510 -r0230:= b*((a-(-b^2)^(1/2))^(1/2)*atanh((a+b*tan(x))^(1/2)/(a-(-b^2)^(1/2))^(1/2))-(a+(-b^2)^(1/2))^(1/2)*atanh((a+b*tan(x))^(1/2)/(a+(-b^2)^(1/2))^(1/2)))/(-b^2)^(1/2) +r0230:= b*((a-(-b^2)^(1/2))^(1/2)*atanh((a+b*tan(x))^(1/2)/_ + (a-(-b^2)^(1/2))^(1/2))-(a+(-b^2)^(1/2))^(1/2)*_ + atanh((a+b*tan(x))^(1/2)/(a+(-b^2)^(1/2))^(1/2)))/(-b^2)^(1/2) --R --R --R (142) @@ -3072,7 +3130,9 @@ t0231:= 1/(a+b*tan(x))^(1/2) --E 156 --S 157 of 510 -r0231:= b*atanh((a+b*tan(x))^(1/2)/(a-(-b^2)^(1/2))^(1/2))/(-b^2)^(1/2)/(a-(-b^2)^(1/2))^(1/2)-b*atanh((a+b*tan(x))^(1/2)/(a+(-b^2)^(1/2))^(1/2))/(-b^2)^(1/2)/(a+(-b^2)^(1/2))^(1/2) +r0231:= b*atanh((a+b*tan(x))^(1/2)/(a-(-b^2)^(1/2))^(1/2))/(-b^2)^(1/2)/_ + (a-(-b^2)^(1/2))^(1/2)-b*atanh((a+b*tan(x))^(1/2)/_ + (a+(-b^2)^(1/2))^(1/2))/(-b^2)^(1/2)/(a+(-b^2)^(1/2))^(1/2) --R --R --R (146) @@ -3169,7 +3229,8 @@ t0232:= (a+b*tan(x)^2)^(1/2) --E 161 --S 162 of 510 -r0232:= (a-b)^(1/2)*atan((a-b)^(1/2)*tan(x)/(a+b*tan(x)^2)^(1/2))+b^(1/2)*atanh(cot(x)*(a+b*tan(x)^2)^(1/2)/b^(1/2)) +r0232:= (a-b)^(1/2)*atan((a-b)^(1/2)*tan(x)/(a+b*tan(x)^2)^(1/2))+_ + b^(1/2)*atanh(cot(x)*(a+b*tan(x)^2)^(1/2)/b^(1/2)) --R --R --R +-------------+ @@ -4613,7 +4674,10 @@ t0235:= (a+b*tan(x)^2)^(3/2) --E 178 --S 179 of 510 -r0235:= (a-b)^(3/2)*atan((a-b)^(1/2)*tan(x)/(a+b*tan(x)^2)^(1/2))+3/2*a*b^(1/2)*atanh(cot(x)*(a+b*tan(x)^2)^(1/2)/b^(1/2))-b^(3/2)*atanh(cot(x)*(a+b*tan(x)^2)^(1/2)/b^(1/2))+1/2*b*tan(x)*(a+b*tan(x)^2)^(1/2) +r0235:= (a-b)^(3/2)*atan((a-b)^(1/2)*tan(x)/(a+b*tan(x)^2)^(1/2))+_ + 3/2*a*b^(1/2)*atanh(cot(x)*(a+b*tan(x)^2)^(1/2)/b^(1/2))-_ + b^(3/2)*atanh(cot(x)*(a+b*tan(x)^2)^(1/2)/b^(1/2))+_ + 1/2*b*tan(x)*(a+b*tan(x)^2)^(1/2) --R --R --R (166) @@ -12628,7 +12692,8 @@ t0238:= x*cot(a+b*x) --E 195 --S 196 of 510 -r0238:= -1/2*%i*x^2+x*log(1-exp(1)^(2*%i*a+2*%i*b*x))/b-1/2*%i*polylog(2,exp(1)^(2*%i*a+2*%i*b*x))/b^2 +r0238:= -1/2*%i*x^2+x*log(1-exp(1)^(2*%i*a+2*%i*b*x))/b-_ + 1/2*%i*polylog(2,exp(1)^(2*%i*a+2*%i*b*x))/b^2 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -12779,7 +12844,9 @@ t0240:= x*cot(a+b*x)^3 --E 205 --S 206 of 510 -r0240:= 1/2*%i*x^2-1/2*cot(a+b*x)/b^2-1/2*x*csc(a+b*x)^2/b-x*log(1-exp(1)^(2*%i*a+2*%i*b*x))/b+1/2*%i*polylog(2,exp(1)^(2*%i*a+2*%i*b*x))/b^2 +r0240:= 1/2*%i*x^2-1/2*cot(a+b*x)/b^2-1/2*x*csc(a+b*x)^2/b-_ + x*log(1-exp(1)^(2*%i*a+2*%i*b*x))/b+_ + 1/2*%i*polylog(2,exp(1)^(2*%i*a+2*%i*b*x))/b^2 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -12837,7 +12904,9 @@ t0241:= x^2*cot(a+b*x) --E 210 --S 211 of 510 -r0241:= 1/6*(-2*%i*x^3*b^3+6*x^2*log(1-exp(2*%i*(a+b*x)))*b^2-6*%i*x*polylog(2,exp(2*%i*(a+b*x)))*b+3*polylog(3,exp(2*%i*(a+b*x))))/b^3 +r0241:= 1/6*(-2*%i*x^3*b^3+6*x^2*log(1-exp(2*%i*(a+b*x)))*b^2-_ + 6*%i*x*polylog(2,exp(2*%i*(a+b*x)))*b+_ + 3*polylog(3,exp(2*%i*(a+b*x))))/b^3 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -12895,7 +12964,8 @@ t0242:= x^2*cot(a+b*x)^2 --E 215 --S 216 of 510 -r0242:= 1/3*(-3*%i*x^2*b^2-b^3*x^3-3*x^2*cot(a+b*x)*b^2+6*x*log(1-exp(2*%i*(a+b*x)))*b-3*%i*polylog(2,exp(2*%i*(a+b*x))))/b^3 +r0242:= 1/3*(-3*%i*x^2*b^2-b^3*x^3-3*x^2*cot(a+b*x)*b^2+_ + 6*x*log(1-exp(2*%i*(a+b*x)))*b-3*%i*polylog(2,exp(2*%i*(a+b*x))))/b^3 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -12953,7 +13023,10 @@ t0243:= x^2*cot(a+b*x)^3 --E 220 --S 221 of 510 -r0243:= 1/3*%i*x^3-x*cot(a+b*x)/b^2-1/2*x^2*csc(a+b*x)^2/b-x^2*log(1-exp(1)^(2*%i*a+2*%i*b*x))/b+log(sin(a+b*x))/b^3+%i*x*polylog(2,exp(1)^(2*%i*a+2*%i*b*x))/b^2-1/2*polylog(3,exp(1)^(2*%i*a+2*%i*b*x))/b^3 +r0243:= 1/3*%i*x^3-x*cot(a+b*x)/b^2-1/2*x^2*csc(a+b*x)^2/b-_ + x^2*log(1-exp(1)^(2*%i*a+2*%i*b*x))/b+log(sin(a+b*x))/b^3+_ + %i*x*polylog(2,exp(1)^(2*%i*a+2*%i*b*x))/b^2-_ + 1/2*polylog(3,exp(1)^(2*%i*a+2*%i*b*x))/b^3 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -13011,7 +13084,10 @@ t0244:= x^3*cot(a+b*x) --E 225 --S 226 of 510 -r0244:= 1/4*(-%i*x^4*b^4+4*x^3*log(1-exp(2*%i*(a+b*x)))*b^3-6*%i*x^2*polylog(2,exp(2*%i*(a+b*x)))*b^2+6*x*polylog(3,exp(2*%i*(a+b*x)))*b+3*%i*polylog(4,exp(2*%i*(a+b*x))))/b^4 +r0244:= 1/4*(-%i*x^4*b^4+4*x^3*log(1-exp(2*%i*(a+b*x)))*b^3-_ + 6*%i*x^2*polylog(2,exp(2*%i*(a+b*x)))*b^2+_ + 6*x*polylog(3,exp(2*%i*(a+b*x)))*b+_ + 3*%i*polylog(4,exp(2*%i*(a+b*x))))/b^4 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -13069,7 +13145,9 @@ t0245:= x^3*cot(a+b*x)^2 --E 230 --S 231 of 510 -r0245:= 1/4*(-4*%i*x^3*b^3-x^4*b^4-4*x^3*cot(a+b*x)*b^3+12*x^2*log(1-exp(2*%i*(a+b*x)))*b^2-12*%i*x*polylog(2,exp(2*%i*(a+b*x)))*b+6*polylog(3,exp(2*%i*(a+b*x))))/b^4 +r0245:= 1/4*(-4*%i*x^3*b^3-x^4*b^4-4*x^3*cot(a+b*x)*b^3+12*x^2*_ + log(1-exp(2*%i*(a+b*x)))*b^2-12*%i*x*_ + polylog(2,exp(2*%i*(a+b*x)))*b+6*polylog(3,exp(2*%i*(a+b*x))))/b^4 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -13127,7 +13205,12 @@ t0246:= x^3*cot(a+b*x)^3 --E 235 --S 236 of 510 -r0246:= -3/2*%i*x^2/b^2+1/4*%i*x^4-3/2*x^2*cot(a+b*x)/b^2-1/2*x^3*csc(a+b*x)^2/b+3*x*log(1-exp(1)^(2*%i*a+2*%i*b*x))/b^3-x^3*log(1-exp(1)^(2*%i*a+2*%i*b*x))/b-3/2*%i*(1-b^2*x^2)*polylog(2,exp(1)^(2*%i*a+2*%i*b*x))/b^4-3/2*x*polylog(3,exp(1)^(2*%i*a+2*%i*b*x))/b^3-3/4*%i*polylog(4,exp(1)^(2*%i*a+2*%i*b*x))/b^4 +r0246:= -3/2*%i*x^2/b^2+1/4*%i*x^4-3/2*x^2*cot(a+b*x)/b^2-_ + 1/2*x^3*csc(a+b*x)^2/b+3*x*log(1-exp(1)^(2*%i*a+2*%i*b*x))/b^3-_ + x^3*log(1-exp(1)^(2*%i*a+2*%i*b*x))/b-3/2*%i*(1-b^2*x^2)*_ + polylog(2,exp(1)^(2*%i*a+2*%i*b*x))/b^4-3/2*x*_ + polylog(3,exp(1)^(2*%i*a+2*%i*b*x))/b^3-3/4*%i*_ + polylog(4,exp(1)^(2*%i*a+2*%i*b*x))/b^4 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -13265,7 +13348,10 @@ t0248:= (a*cot(x)^3)^(1/2) --E 245 --S 246 of 510 -r0248:= 1/4*(a*cot(x)^3)^(1/2)*(2*2^(1/2)*atan(-1+2^(1/2)*cot(x)^(1/2))+2*2^(1/2)*atan(1+2^(1/2)*cot(x)^(1/2))-8*cot(x)^(1/2)-log(1-2^(1/2)*cot(x)^(1/2)+cot(x))*2^(1/2)+log(1+2^(1/2)*cot(x)^(1/2)+cot(x))*2^(1/2))/cot(x)^(3/2) +r0248:= 1/4*(a*cot(x)^3)^(1/2)*(2*2^(1/2)*atan(-1+2^(1/2)*cot(x)^(1/2))+_ + 2*2^(1/2)*atan(1+2^(1/2)*cot(x)^(1/2))-8*cot(x)^(1/2)-_ + log(1-2^(1/2)*cot(x)^(1/2)+cot(x))*2^(1/2)+_ + log(1+2^(1/2)*cot(x)^(1/2)+cot(x))*2^(1/2))/cot(x)^(3/2) --R --R --R (224) @@ -13354,7 +13440,11 @@ t0249:= (a*cot(x)^3)^(3/2) --E 250 --S 251 of 510 -r0249:= -1/84*a*(a*cot(x)^3)^(1/2)*(42*2^(1/2)*atan(-1+2^(1/2)*cot(x)^(1/2))+42*2^(1/2)*atan(1+2^(1/2)*cot(x)^(1/2))-56*cot(x)^(3/2)+24*cot(x)^(7/2)+21*log(1-2^(1/2)*cot(x)^(1/2)+cot(x))*2^(1/2)-21*log(1+2^(1/2)*cot(x)^(1/2)+cot(x))*2^(1/2))/cot(x)^(3/2) +r0249:= -1/84*a*(a*cot(x)^3)^(1/2)*(42*2^(1/2)*_ + atan(-1+2^(1/2)*cot(x)^(1/2))+42*2^(1/2)*_ + atan(1+2^(1/2)*cot(x)^(1/2))-56*cot(x)^(3/2)+24*cot(x)^(7/2)+_ + 21*log(1-2^(1/2)*cot(x)^(1/2)+cot(x))*2^(1/2)-_ + 21*log(1+2^(1/2)*cot(x)^(1/2)+cot(x))*2^(1/2))/cot(x)^(3/2) --R --R --R (228) @@ -14249,7 +14339,10 @@ t0251:= 1/(a*cot(x)^3)^(1/2) --E 260 --S 261 of 510 -r0251:= 1/2/(a*cot(x)^3)^(1/2)*cot(x)*(4-cot(x)^(1/2)*(-2^(1/2)*atan(-1+2^(1/2)*cot(x)^(1/2))-2^(1/2)*atan(1+2^(1/2)*cot(x)^(1/2))-1/2*log(1-2^(1/2)*cot(x)^(1/2)+cot(x))*2^(1/2)+1/2*log(1+2^(1/2)*cot(x)^(1/2)+cot(x))*2^(1/2))) +r0251:= 1/2/(a*cot(x)^3)^(1/2)*cot(x)*(4-cot(x)^(1/2)*(-2^(1/2)*_ + atan(-1+2^(1/2)*cot(x)^(1/2))-2^(1/2)*atan(1+2^(1/2)*cot(x)^(1/2))-_ + 1/2*log(1-2^(1/2)*cot(x)^(1/2)+cot(x))*2^(1/2)+_ + 1/2*log(1+2^(1/2)*cot(x)^(1/2)+cot(x))*2^(1/2))) --R --R --R (238) @@ -14709,7 +14802,8 @@ t0255:= (a+b*cot(x))^3 --E 280 --S 281 of 510 -r0255:= a^3*x-3*a*b^2*x-3*a*b^2*cot(x)-1/2*b^3*cot(x)^2+3*a^2*b*log(sin(x))-b^3*log(sin(x)) +r0255:= a^3*x-3*a*b^2*x-3*a*b^2*cot(x)-1/2*b^3*cot(x)^2+_ + 3*a^2*b*log(sin(x))-b^3*log(sin(x)) --R --R --R (257) @@ -15049,7 +15143,8 @@ t0259:= 1/(a+b*cot(x))^2 --E 300 --S 301 of 510 -r0259:= (a^2-b^2)*x/(a^2+b^2)^2+b/(a^2+b^2)/(a+b*cot(x))-2*a*b*log(b*cos(x)+a*sin(x))/(a^2+b^2)^2 +r0259:= (a^2-b^2)*x/(a^2+b^2)^2+b/(a^2+b^2)/_ + (a+b*cot(x))-2*a*b*log(b*cos(x)+a*sin(x))/(a^2+b^2)^2 --R --R --R (277) @@ -15430,7 +15525,9 @@ t0260:= 1/(a+b*cot(x))^3 --E 305 --S 306 of 510 -r0260:= a*(a^2-3*b^2)*x/(a^2+b^2)^3+1/2*b/(a^2+b^2)/(a+b*cot(x))^2+2*a*b/(a^2+b^2)^2/(a+b*cot(x))-b*(3*a^2-b^2)*log(b*cos(x)+a*sin(x))/(a^2+b^2)^3 +r0260:= a*(a^2-3*b^2)*x/(a^2+b^2)^3+1/2*b/(a^2+b^2)/(a+b*cot(x))^2+_ + 2*a*b/(a^2+b^2)^2/(a+b*cot(x))-b*(3*a^2-b^2)*log(b*cos(x)+_ + a*sin(x))/(a^2+b^2)^3 --R --R --R (282) @@ -16510,7 +16607,9 @@ t0261:= (a+b*cot(x))^(1/2) --E 310 --S 311 of 510 -r0261:= -b*((a-(-b^2)^(1/2))^(1/2)*atanh((a+b*cot(x))^(1/2)/(a-(-b^2)^(1/2))^(1/2))-(a+(-b^2)^(1/2))^(1/2)*atanh((a+b*cot(x))^(1/2)/(a+(-b^2)^(1/2))^(1/2)))/(-b^2)^(1/2) +r0261:= -b*((a-(-b^2)^(1/2))^(1/2)*atanh((a+b*cot(x))^(1/2)/_ + (a-(-b^2)^(1/2))^(1/2))-(a+(-b^2)^(1/2))^(1/2)*_ + atanh((a+b*cot(x))^(1/2)/(a+(-b^2)^(1/2))^(1/2)))/(-b^2)^(1/2) --R --R --R (287) @@ -16601,7 +16700,9 @@ t0262:= 1/(a+b*cot(x))^(1/2) --E 315 --S 316 of 510 -r0262:= -b*atanh((a+b*cot(x))^(1/2)/(a-(-b^2)^(1/2))^(1/2))/(-b^2)^(1/2)/(a-(-b^2)^(1/2))^(1/2)+b*atanh((a+b*cot(x))^(1/2)/(a+(-b^2)^(1/2))^(1/2))/(-b^2)^(1/2)/(a+(-b^2)^(1/2))^(1/2) +r0262:= -b*atanh((a+b*cot(x))^(1/2)/(a-(-b^2)^(1/2))^(1/2))/(-b^2)^(1/2)/_ + (a-(-b^2)^(1/2))^(1/2)+b*atanh((a+b*cot(x))^(1/2)/_ + (a+(-b^2)^(1/2))^(1/2))/(-b^2)^(1/2)/(a+(-b^2)^(1/2))^(1/2) --R --R --R (291) @@ -16698,7 +16799,8 @@ t0263:= (a+b*cot(x)^2)^(1/2) --E 320 --S 321 of 510 -r0263:= -(a-b)^(1/2)*atan((a-b)^(1/2)*cot(x)/(a+b*cot(x)^2)^(1/2))-b^(1/2)*atanh((a+b*cot(x)^2)^(1/2)*tan(x)/b^(1/2)) +r0263:= -(a-b)^(1/2)*atan((a-b)^(1/2)*cot(x)/(a+b*cot(x)^2)^(1/2))-_ + b^(1/2)*atanh((a+b*cot(x)^2)^(1/2)*tan(x)/b^(1/2)) --R --R --R (295) @@ -27741,7 +27843,10 @@ t0266:= (a+b*cot(x)^2)^(3/2) --E 337 --S 338 of 510 -r0266:= -(a-b)^(3/2)*atan((a-b)^(1/2)*cot(x)/(a+b*cot(x)^2)^(1/2))-3/2*a*b^(1/2)*atanh((a+b*cot(x)^2)^(1/2)*tan(x)/b^(1/2))+b^(3/2)*atanh((a+b*cot(x)^2)^(1/2)*tan(x)/b^(1/2))-1/2*b*cot(x)*(a+b*cot(x)^2)^(1/2) +r0266:= -(a-b)^(3/2)*atan((a-b)^(1/2)*cot(x)/(a+b*cot(x)^2)^(1/2))-_ + 3/2*a*b^(1/2)*atanh((a+b*cot(x)^2)^(1/2)*tan(x)/b^(1/2))+_ + b^(3/2)*atanh((a+b*cot(x)^2)^(1/2)*tan(x)/b^(1/2))-_ + 1/2*b*cot(x)*(a+b*cot(x)^2)^(1/2) --R --R --R (312) @@ -30382,7 +30487,8 @@ t0269:= sec(a+b*x)^(3/2) --E 354 --S 355 of 510 -r0269:= -2*(1/cos(a+b*x))^(1/2)*(cos(a+b*x)^(1/2)*EllipticE(1/2*a+1/2*b*x,2)-sin(a+b*x))/b +r0269:= -2*(1/cos(a+b*x))^(1/2)*(cos(a+b*x)^(1/2)*_ + EllipticE(1/2*a+1/2*b*x,2)-sin(a+b*x))/b --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -30440,7 +30546,8 @@ t0270:= sec(a+b*x)^(5/2) --E 359 --S 360 of 510 -r0270:= 2/3*(1/cos(a+b*x))^(1/2)*(cos(a+b*x)^(3/2)*EllipticF(1/2*a+1/2*b*x,2)+sin(a+b*x))/cos(a+b*x)/b +r0270:= 2/3*(1/cos(a+b*x))^(1/2)*(cos(a+b*x)^(3/2)*_ + EllipticF(1/2*a+1/2*b*x,2)+sin(a+b*x))/cos(a+b*x)/b --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -30564,7 +30671,8 @@ t0272:= 1/sec(a+b*x)^(3/2) --E 369 --S 370 of 510 -r0272:= 2/3*(EllipticF(1/2*a+1/2*b*x,2)+sin(a+b*x)*cos(a+b*x)^(1/2))/cos(a+b*x)^(1/2)/(1/cos(a+b*x))^(1/2)/b +r0272:= 2/3*(EllipticF(1/2*a+1/2*b*x,2)+_ + sin(a+b*x)*cos(a+b*x)^(1/2))/cos(a+b*x)^(1/2)/(1/cos(a+b*x))^(1/2)/b --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -30628,7 +30736,8 @@ t0273:= 1/sec(a+b*x)^(5/2) --E 374 --S 375 of 510 -r0273:= 2/5*(3*EllipticE(1/2*a+1/2*b*x,2)+sin(a+b*x)*cos(a+b*x)^(3/2))/cos(a+b*x)^(1/2)/(1/cos(a+b*x))^(1/2)/b +r0273:= 2/5*(3*EllipticE(1/2*a+1/2*b*x,2)+_ + sin(a+b*x)*cos(a+b*x)^(3/2))/cos(a+b*x)^(1/2)/(1/cos(a+b*x))^(1/2)/b --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -30748,7 +30857,8 @@ t0275:= (c*sec(a+b*x))^(3/2) --E 384 --S 385 of 510 -r0275:= -2*c^2*(cos(a+b*x)^(1/2)*EllipticE(1/2*a+1/2*b*x,2)-sin(a+b*x))/cos(a+b*x)/(c/cos(a+b*x))^(1/2)/b +r0275:= -2*c^2*(cos(a+b*x)^(1/2)*_ + EllipticE(1/2*a+1/2*b*x,2)-sin(a+b*x))/cos(a+b*x)/(c/cos(a+b*x))^(1/2)/b --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -30806,7 +30916,8 @@ t0276:= (c*sec(a+b*x))^(5/2) --E 389 --S 390 of 510 -r0276:= 2/3*c^2*(c/cos(a+b*x))^(1/2)*(cos(a+b*x)^(3/2)*EllipticF(1/2*a+1/2*b*x,2)+sin(a+b*x))/cos(a+b*x)/b +r0276:= 2/3*c^2*(c/cos(a+b*x))^(1/2)*(cos(a+b*x)^(3/2)*_ + EllipticF(1/2*a+1/2*b*x,2)+sin(a+b*x))/cos(a+b*x)/b --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -30930,7 +31041,8 @@ t0278:= 1/(c*sec(a+b*x))^(3/2) --E 399 --S 400 of 510 -r0278:= 2/3/c*(EllipticF(1/2*a+1/2*b*x,2)+sin(a+b*x)*cos(a+b*x)^(1/2))/cos(a+b*x)^(1/2)/b/(c/cos(a+b*x))^(1/2) +r0278:= 2/3/c*(EllipticF(1/2*a+1/2*b*x,2)+sin(a+b*x)*_ + cos(a+b*x)^(1/2))/cos(a+b*x)^(1/2)/b/(c/cos(a+b*x))^(1/2) --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -30994,7 +31106,8 @@ t0279:= 1/(c*sec(a+b*x))^(5/2) --E 404 --S 405 of 510 -r0279:= 2/5/c^2*(3*EllipticE(1/2*a+1/2*b*x,2)+sin(a+b*x)*cos(a+b*x)^(3/2))/cos(a+b*x)^(1/2)/b/(c/cos(a+b*x))^(1/2) +r0279:= 2/5/c^2*(3*EllipticE(1/2*a+1/2*b*x,2)+_ + sin(a+b*x)*cos(a+b*x)^(3/2))/cos(a+b*x)^(1/2)/b/(c/cos(a+b*x))^(1/2) --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -31055,7 +31168,8 @@ t0280:= x*sec(a+b*x) --E 409 --S 410 of 510 -r0280:= %i*(-2*x*atan(exp(%i*(a+b*x)))*b+polylog(2,-%i*exp(%i*(a+b*x)))-polylog(2,%i*exp(%i*(a+b*x))))/b^2 +r0280:= %i*(-2*x*atan(exp(%i*(a+b*x)))*b+polylog(2,-%i*exp(%i*(a+b*x)))-_ + polylog(2,%i*exp(%i*(a+b*x))))/b^2 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -31112,7 +31226,10 @@ t0281:= x^2*sec(a+b*x) --E 414 --S 415 of 510 -r0281:= -2*(%i*x^2*atan(exp(%i*(a+b*x)))*b^2-%i*x*polylog(2,-%i*exp(%i*(a+b*x)))*b+%i*x*polylog(2,%i*exp(%i*(a+b*x)))*b+polylog(3,-%i*exp(%i*(a+b*x)))-polylog(3,%i*exp(%i*(a+b*x))))/b^3 +r0281:= -2*(%i*x^2*atan(exp(%i*(a+b*x)))*b^2-_ + %i*x*polylog(2,-%i*exp(%i*(a+b*x)))*b+_ + %i*x*polylog(2,%i*exp(%i*(a+b*x)))*b+_ + polylog(3,-%i*exp(%i*(a+b*x)))-polylog(3,%i*exp(%i*(a+b*x))))/b^3 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -31170,7 +31287,13 @@ t0282:= x^3*sec(a+b*x) --E 419 --S 420 of 510 -r0282:= -(2*%i*x^3*atan(exp(%i*(a+b*x)))*b^3-3*%i*x^2*polylog(2,-%i*exp(%i*(a+b*x)))*b^2+3*%i*x^2*polylog(2,%i*exp(%i*(a+b*x)))*b^2+6*x*polylog(3,-%i*exp(%i*(a+b*x)))*b-6*x*polylog(3,%i*exp(%i*(a+b*x)))*b+6*%i*polylog(4,-%i*exp(%i*(a+b*x)))-6*%i*polylog(4,%i*exp(%i*(a+b*x))))/b^4 +r0282:= -(2*%i*x^3*atan(exp(%i*(a+b*x)))*b^3-_ + 3*%i*x^2*polylog(2,-%i*exp(%i*(a+b*x)))*b^2+_ + 3*%i*x^2*polylog(2,%i*exp(%i*(a+b*x)))*b^2+_ + 6*x*polylog(3,-%i*exp(%i*(a+b*x)))*b-_ + 6*x*polylog(3,%i*exp(%i*(a+b*x)))*b+_ + 6*%i*polylog(4,-%i*exp(%i*(a+b*x)))-_ + 6*%i*polylog(4,%i*exp(%i*(a+b*x))))/b^4 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -31228,7 +31351,8 @@ t0283:= x^2*sec(a+b*x)^2 --E 424 --S 425 of 510 -r0283:= (-%i*x^2*b^2+2*x*log(1+exp(2*%i*(a+b*x)))*b-%i*polylog(2,-exp(2*%i*(a+b*x)))+x^2*tan(a+b*x)*b^2)/b^3 +r0283:= (-%i*x^2*b^2+2*x*log(1+exp(2*%i*(a+b*x)))*b-_ + %i*polylog(2,-exp(2*%i*(a+b*x)))+x^2*tan(a+b*x)*b^2)/b^3 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -31286,7 +31410,9 @@ t0284:= x^3*sec(a+b*x)^2 --E 429 --S 430 of 510 -r0284:= 1/2*(-2*%i*x^3*b^3+6*x^2*log(1+exp(2*%i*(a+b*x)))*b^2-6*%i*x*polylog(2,-exp(2*%i*(a+b*x)))*b+3*polylog(3,-exp(2*%i*(a+b*x)))+2*x^3*tan(a+b*x)*b^3)/b^4 +r0284:= 1/2*(-2*%i*x^3*b^3+6*x^2*log(1+exp(2*%i*(a+b*x)))*b^2-_ + 6*%i*x*polylog(2,-exp(2*%i*(a+b*x)))*b+_ + 3*polylog(3,-exp(2*%i*(a+b*x)))+2*x^3*tan(a+b*x)*b^3)/b^4 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -31344,7 +31470,10 @@ t0285:= x*sec(a+b*x)^3 --E 434 --S 435 of 510 -r0285:= -%i*x*atan(exp(1)^(%i*b*x+%i*a))/b+1/2*%i*polylog(2,-%i*exp(1)^(%i*b*x+%i*a))/b^2-1/2*%i*polylog(2,%i*exp(1)^(%i*b*x+%i*a))/b^2-1/2*sec(a+b*x)/b^2+1/2*x*sec(a+b*x)*tan(a+b*x)/b +r0285:= -%i*x*atan(exp(1)^(%i*b*x+%i*a))/b+_ + 1/2*%i*polylog(2,-%i*exp(1)^(%i*b*x+%i*a))/b^2-_ + 1/2*%i*polylog(2,%i*exp(1)^(%i*b*x+%i*a))/b^2-_ + 1/2*sec(a+b*x)/b^2+1/2*x*sec(a+b*x)*tan(a+b*x)/b --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -31402,7 +31531,12 @@ t0286:= x^2*sec(a+b*x)^3 --E 439 --S 440 of 510 -r0286:= -%i*x^2*atan(exp(1)^(%i*b*x+%i*a))/b+atanh(sin(a+b*x))/b^3+%i*x*polylog(2,-%i*exp(1)^(%i*b*x+%i*a))/b^2-%i*x*polylog(2,%i*exp(1)^(%i*b*x+%i*a))/b^2-polylog(3,-%i*exp(1)^(%i*b*x+%i*a))/b^3+polylog(3,%i*exp(1)^(%i*b*x+%i*a))/b^3-x*sec(a+b*x)/b^2+1/2*x^2*sec(a+b*x)*tan(a+b*x)/b +r0286:= -%i*x^2*atan(exp(1)^(%i*b*x+%i*a))/b+atanh(sin(a+b*x))/b^3+_ + %i*x*polylog(2,-%i*exp(1)^(%i*b*x+%i*a))/b^2-_ + %i*x*polylog(2,%i*exp(1)^(%i*b*x+%i*a))/b^2-_ + polylog(3,-%i*exp(1)^(%i*b*x+%i*a))/b^3+_ + polylog(3,%i*exp(1)^(%i*b*x+%i*a))/b^3-_ + x*sec(a+b*x)/b^2+1/2*x^2*sec(a+b*x)*tan(a+b*x)/b --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -31459,7 +31593,8 @@ t0287:= (c+d*x)*sec(a+b*x) --E 444 --S 445 of 510 -r0287:= -%i*(2*atan(exp(%i*(a+b*x)))*c*b+2*atan(exp(%i*(a+b*x)))*d*x*b-d*polylog(2,-%i*exp(%i*(a+b*x)))+d*polylog(2,%i*exp(%i*(a+b*x))))/b^2 +r0287:= -%i*(2*atan(exp(%i*(a+b*x)))*c*b+2*atan(exp(%i*(a+b*x)))*d*x*b-_ + d*polylog(2,-%i*exp(%i*(a+b*x)))+d*polylog(2,%i*exp(%i*(a+b*x))))/b^2 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -31516,7 +31651,11 @@ t0288:= (c+d*x)^2*sec(a+b*x) --E 449 --S 450 of 510 -r0288:= -2*%i*(c+d*x)^2*atan(exp(1)^(%i*b*x+%i*a))/b+2*%i*d*(c+d*x)*polylog(2,-%i*exp(1)^(%i*b*x+%i*a))/b^2-2*%i*d*(c+d*x)*polylog(2,%i*exp(1)^(%i*b*x+%i*a))/b^2-2*d^2*polylog(3,-%i*exp(1)^(%i*b*x+%i*a))/b^3+2*d^2*polylog(3,%i*exp(1)^(%i*b*x+%i*a))/b^3 +r0288:= -2*%i*(c+d*x)^2*atan(exp(1)^(%i*b*x+%i*a))/b+_ + 2*%i*d*(c+d*x)*polylog(2,-%i*exp(1)^(%i*b*x+%i*a))/b^2-_ + 2*%i*d*(c+d*x)*polylog(2,%i*exp(1)^(%i*b*x+%i*a))/b^2-_ + 2*d^2*polylog(3,-%i*exp(1)^(%i*b*x+%i*a))/b^3+_ + 2*d^2*polylog(3,%i*exp(1)^(%i*b*x+%i*a))/b^3 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -31574,7 +31713,13 @@ t0289:= (c+d*x)^3*sec(a+b*x) --E 454 --S 455 of 510 -r0289:= -2*%i*(c+d*x)^3*atan(exp(1)^(%i*b*x+%i*a))/b+3*%i*d*(c+d*x)^2*polylog(2,-%i*exp(1)^(%i*b*x+%i*a))/b^2-3*%i*d*(c+d*x)^2*polylog(2,%i*exp(1)^(%i*b*x+%i*a))/b^2-6*d^2*(c+d*x)*polylog(3,-%i*exp(1)^(%i*b*x+%i*a))/b^3+6*d^2*(c+d*x)*polylog(3,%i*exp(1)^(%i*b*x+%i*a))/b^3-6*%i*d^3*polylog(4,-%i*exp(1)^(%i*b*x+%i*a))/b^4+6*%i*d^3*polylog(4,%i*exp(1)^(%i*b*x+%i*a))/b^4 +r0289:= -2*%i*(c+d*x)^3*atan(exp(1)^(%i*b*x+%i*a))/b+_ + 3*%i*d*(c+d*x)^2*polylog(2,-%i*exp(1)^(%i*b*x+%i*a))/b^2-_ + 3*%i*d*(c+d*x)^2*polylog(2,%i*exp(1)^(%i*b*x+%i*a))/b^2-_ + 6*d^2*(c+d*x)*polylog(3,-%i*exp(1)^(%i*b*x+%i*a))/b^3+_ + 6*d^2*(c+d*x)*polylog(3,%i*exp(1)^(%i*b*x+%i*a))/b^3-_ + 6*%i*d^3*polylog(4,-%i*exp(1)^(%i*b*x+%i*a))/b^4+_ + 6*%i*d^3*polylog(4,%i*exp(1)^(%i*b*x+%i*a))/b^4 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -31632,7 +31777,8 @@ t0290:= (c+d*x)^2*sec(a+b*x)^2 --E 459 --S 460 of 510 -r0290:= -%i*(c+d*x)^2/b+2*d*(c+d*x)*log(1+exp(1)^(2*%i*a+2*%i*b*x))/b^2-%i*d^2*polylog(2,-exp(1)^(2*%i*a+2*%i*b*x))/b^3+(c+d*x)^2*tan(a+b*x)/b +r0290:= -%i*(c+d*x)^2/b+2*d*(c+d*x)*log(1+exp(1)^(2*%i*a+2*%i*b*x))/b^2-_ + %i*d^2*polylog(2,-exp(1)^(2*%i*a+2*%i*b*x))/b^3+(c+d*x)^2*tan(a+b*x)/b --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -31690,7 +31836,9 @@ t0291:= (c+d*x)^3*sec(a+b*x)^2 --E 464 --S 465 of 510 -r0291:= -%i*(c+d*x)^3/b+3*d*(c+d*x)^2*log(1+exp(1)^(2*%i*a+2*%i*b*x))/b^2-3*%i*d^2*(c+d*x)*polylog(2,-exp(1)^(2*%i*a+2*%i*b*x))/b^3+3/2*d^3*polylog(3,-exp(1)^(2*%i*a+2*%i*b*x))/b^4+(c+d*x)^3*tan(a+b*x)/b +r0291:= -%i*(c+d*x)^3/b+3*d*(c+d*x)^2*log(1+exp(1)^(2*%i*a+2*%i*b*x))/b^2-_ + 3*%i*d^2*(c+d*x)*polylog(2,-exp(1)^(2*%i*a+2*%i*b*x))/b^3+_ + 3/2*d^3*polylog(3,-exp(1)^(2*%i*a+2*%i*b*x))/b^4+(c+d*x)^3*tan(a+b*x)/b --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -31748,7 +31896,10 @@ t0292:= (c+d*x)*sec(a+b*x)^3 --E 469 --S 470 of 510 -r0292:= -%i*(c+d*x)*atan(exp(1)^(%i*b*x+%i*a))/b+1/2*%i*d*polylog(2,-%i*exp(1)^(%i*b*x+%i*a))/b^2-1/2*%i*d*polylog(2,%i*exp(1)^(%i*b*x+%i*a))/b^2-1/2*d*sec(a+b*x)/b^2+1/2*(c+d*x)*sec(a+b*x)*tan(a+b*x)/b +r0292:= -%i*(c+d*x)*atan(exp(1)^(%i*b*x+%i*a))/b+_ + 1/2*%i*d*polylog(2,-%i*exp(1)^(%i*b*x+%i*a))/b^2-_ + 1/2*%i*d*polylog(2,%i*exp(1)^(%i*b*x+%i*a))/b^2-_ + 1/2*d*sec(a+b*x)/b^2+1/2*(c+d*x)*sec(a+b*x)*tan(a+b*x)/b --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -31806,7 +31957,13 @@ t0293:= (c+d*x)^2*sec(a+b*x)^3 --E 474 --S 475 of 510 -r0293:= -%i*(c+d*x)^2*atan(exp(1)^(%i*b*x+%i*a))/b+d^2*atanh(sin(a+b*x))/b^3+%i*d*(c+d*x)*polylog(2,-%i*exp(1)^(%i*b*x+%i*a))/b^2-%i*d*(c+d*x)*polylog(2,%i*exp(1)^(%i*b*x+%i*a))/b^2-d^2*polylog(3,-%i*exp(1)^(%i*b*x+%i*a))/b^3+d^2*polylog(3,%i*exp(1)^(%i*b*x+%i*a))/b^3-d*(c+d*x)*sec(a+b*x)/b^2+1/2*(c+d*x)^2*sec(a+b*x)*tan(a+b*x)/b +r0293:= -%i*(c+d*x)^2*atan(exp(1)^(%i*b*x+%i*a))/b+_ + d^2*atanh(sin(a+b*x))/b^3+%i*d*(c+d*x)*_ + polylog(2,-%i*exp(1)^(%i*b*x+%i*a))/b^2-%i*d*(c+d*x)*_ + polylog(2,%i*exp(1)^(%i*b*x+%i*a))/b^2-d^2*_ + polylog(3,-%i*exp(1)^(%i*b*x+%i*a))/b^3+d^2*_ + polylog(3,%i*exp(1)^(%i*b*x+%i*a))/b^3-d*(c+d*x)*_ + sec(a+b*x)/b^2+1/2*(c+d*x)^2*sec(a+b*x)*tan(a+b*x)/b --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -32366,7 +32523,8 @@ t0299:= (a*sec(x)^3)^(3/2) --E 506 --S 507 of 510 -r0299:= 2/21*a*cos(x)*(a*sec(x)^3)^(1/2)*(5*cos(x)^(1/2)*EllipticF(1/2*x,2)+5*tan(x)+3*sec(x)^2*tan(x)) +r0299:= 2/21*a*cos(x)*(a*sec(x)^3)^(1/2)*(5*cos(x)^(1/2)*EllipticF(1/2*x,2)+_ + 5*tan(x)+3*sec(x)^2*tan(x)) --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue diff --git a/src/input/richtrig300-399.input.pamphlet b/src/input/richtrig300-399.input.pamphlet index 97c7909..d152984 100644 --- a/src/input/richtrig300-399.input.pamphlet +++ b/src/input/richtrig300-399.input.pamphlet @@ -724,7 +724,9 @@ t0306:= (a+b*sec(c+d*x))^3 --E 33 --S 34 of 528 -r0306:= a^3*x+3*a^2*b*atanh(sin(c+d*x))/d+1/2*b^3*atanh(sin(c+d*x))/d+3*a*b^2*tan(c+d*x)/d+1/2*b^3*sec(c+d*x)*tan(c+d*x)/d +r0306:= a^3*x+3*a^2*b*atanh(sin(c+d*x))/d+1/2*b^3*_ + atanh(sin(c+d*x))/d+3*a*b^2*tan(c+d*x)/d+_ + 1/2*b^3*sec(c+d*x)*tan(c+d*x)/d --R --R --R (33) @@ -1136,7 +1138,9 @@ t0310:= 1/(a+b*sec(c+d*x))^2 --E 53 --S 54 of 528 -r0310:= x/a^2-2*b^3*atanh((a-b)*tan(1/2*c+1/2*d*x)/(a^2-b^2)^(1/2))/a^2/(a^2-b^2)^(3/2)/d-4*b*atanh((a-b)*tan(1/2*c+1/2*d*x)/(a^2-b^2)^(1/2))/a^2/(a^2-b^2)^(1/2)/d+b^2*sin(c+d*x)/a/(a^2-b^2)/d/(b+a*cos(c+d*x)) +r0310:= x/a^2-2*b^3*atanh((a-b)*tan(1/2*c+1/2*d*x)/(a^2-b^2)^(1/2))/a^2/_ + (a^2-b^2)^(3/2)/d-4*b*atanh((a-b)*tan(1/2*c+1/2*d*x)/_ + (a^2-b^2)^(1/2))/a^2/(a^2-b^2)^(1/2)/d+b^2*sin(c+d*x)/a/(a^2-b^2)/d/(b+a*cos(c+d*x)) --R --R --R (53) @@ -1405,7 +1409,13 @@ t0311:= 1/(a+b*sec(c+d*x))^3 --E 60 --S 61 of 528 -r0311:= x/a^3-6*b^3*atanh((a-b)*tan(1/2*c+1/2*d*x)/(a^2-b^2)^(1/2))/a^3/(a^2-b^2)^(3/2)/d-6*b*atanh((a-b)*tan(1/2*c+1/2*d*x)/(a^2-b^2)^(1/2))/a^3/(a^2-b^2)^(1/2)/d-b^3*(a^2+2*b^2)*atanh((a-b)*tan(1/2*c+1/2*d*x)/(a^2-b^2)^(1/2))/a^3/(a^2-b^2)^(5/2)/d-1/2*b^3*sin(c+d*x)/a^2/(a^2-b^2)/d/(b+a*cos(c+d*x))^2+3/2*b^4*sin(c+d*x)/a^2/(a^2-b^2)^2/d/(b+a*cos(c+d*x))+3*b^2*sin(c+d*x)/a^2/(a^2-b^2)/d/(b+a*cos(c+d*x)) +r0311:= x/a^3-6*b^3*atanh((a-b)*tan(1/2*c+1/2*d*x)/(a^2-b^2)^(1/2))/a^3/_ + (a^2-b^2)^(3/2)/d-6*b*atanh((a-b)*tan(1/2*c+1/2*d*x)/_ + (a^2-b^2)^(1/2))/a^3/(a^2-b^2)^(1/2)/d-b^3*(a^2+2*b^2)*atanh((a-b)*_ + tan(1/2*c+1/2*d*x)/(a^2-b^2)^(1/2))/a^3/(a^2-b^2)^(5/2)/d-_ + 1/2*b^3*sin(c+d*x)/a^2/(a^2-b^2)/d/(b+a*cos(c+d*x))^2+_ + 3/2*b^4*sin(c+d*x)/a^2/(a^2-b^2)^2/d/(b+a*cos(c+d*x))+_ + 3*b^2*sin(c+d*x)/a^2/(a^2-b^2)/d/(b+a*cos(c+d*x)) --R --R --R (60) @@ -2788,7 +2798,8 @@ t0316:= (a+b*sec(x)^2)^(1/2) --E 87 --S 88 of 528 -r0316:= a^(1/2)*atan(a^(1/2)*tan(x)/(a+b*sec(x)^2)^(1/2))+b^(1/2)*atanh(cot(x)*(a+b*sec(x)^2)^(1/2)/b^(1/2)) +r0316:= a^(1/2)*atan(a^(1/2)*tan(x)/(a+b*sec(x)^2)^(1/2))+_ + b^(1/2)*atanh(cot(x)*(a+b*sec(x)^2)^(1/2)/b^(1/2)) --R --R --R +-------------+ @@ -8131,7 +8142,8 @@ t0322:= (1+sec(x)^2)^(3/2) --E 119 --S 120 of 528 -r0322:= 2*asinh(1/2*2^(1/2)*tan(x))+atan(tan(x)/(2+tan(x)^2)^(1/2))+1/2*tan(x)*(2+tan(x)^2)^(1/2) +r0322:= 2*asinh(1/2*2^(1/2)*tan(x))+atan(tan(x)/(2+tan(x)^2)^(1/2))+_ + 1/2*tan(x)*(2+tan(x)^2)^(1/2) --R --R --R +-----------+ +-+ @@ -11616,7 +11628,8 @@ t0325:= (-1-sec(x)^2)^(3/2) --E 134 --S 135 of 528 -r0325:= -2*atan(cot(x)*(-2-tan(x)^2)^(1/2))+atanh(tan(x)/(-2-tan(x)^2)^(1/2))-1/2*tan(x)*(-2-tan(x)^2)^(1/2) +r0325:= -2*atan(cot(x)*(-2-tan(x)^2)^(1/2))+_ + atanh(tan(x)/(-2-tan(x)^2)^(1/2))-1/2*tan(x)*(-2-tan(x)^2)^(1/2) --R --R --R (133) @@ -12524,7 +12537,10 @@ t0326:= (a+b*sec(x)^2)^(3/2) --E 139 --S 140 of 528 -r0326:= a^(3/2)*atan(a^(1/2)*tan(x)/(a+b*sec(x)^2)^(1/2))+3/2*a*b^(1/2)*atanh(cot(x)*(a+b*sec(x)^2)^(1/2)/b^(1/2))+1/2*b^(3/2)*atanh(cot(x)*(a+b*sec(x)^2)^(1/2)/b^(1/2))+1/2*b*(a+b*sec(x)^2)^(1/2)*tan(x) +r0326:= a^(3/2)*atan(a^(1/2)*tan(x)/(a+b*sec(x)^2)^(1/2))+_ + 3/2*a*b^(1/2)*atanh(cot(x)*(a+b*sec(x)^2)^(1/2)/b^(1/2))+_ + 1/2*b^(3/2)*atanh(cot(x)*(a+b*sec(x)^2)^(1/2)/b^(1/2))+_ + 1/2*b*(a+b*sec(x)^2)^(1/2)*tan(x) --R --R --R (138) @@ -13443,7 +13459,8 @@ t0329:= x/sec(x)^(7/2)-5/21*x*sec(x)^(1/2) --E 156 --S 157 of 528 -r0329:= 2/441*(18*cos(x)^3+70*cos(x)+63*x*sin(x)*cos(x)^2+105*x*sin(x))/(1/cos(x))^(1/2) +r0329:= 2/441*(18*cos(x)^3+70*cos(x)+63*x*sin(x)*cos(x)^2+_ + 105*x*sin(x))/(1/cos(x))^(1/2) --R --R --R 2 3 @@ -13511,7 +13528,8 @@ t0330:= x^2/sec(x)^(3/2)-1/3*x^2*sec(x)^(1/2) --E 161 --S 162 of 528 -r0330:= 2/27*(12*x*cos(x)^(3/2)-8*EllipticF(1/2*x,2)-8*cos(x)^(1/2)*sin(x)+9*x^2*sin(x)*cos(x)^(1/2))/cos(x)^(1/2)/(1/cos(x))^(1/2) +r0330:= 2/27*(12*x*cos(x)^(3/2)-8*EllipticF(1/2*x,2)-8*cos(x)^(1/2)*sin(x)+_ + 9*x^2*sin(x)*cos(x)^(1/2))/cos(x)^(1/2)/(1/cos(x))^(1/2) --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -13742,7 +13760,8 @@ t0334:= csc(a+b*x)^(1/2) --E 181 --S 182 of 528 -r0334:= 2*csc(a+b*x)^(1/2)*EllipticF(1/2*a-1/4*%pi+1/2*b*x,2)*sin(a+b*x)^(1/2)/b +r0334:= 2*csc(a+b*x)^(1/2)*_ + EllipticF(1/2*a-1/4*%pi+1/2*b*x,2)*sin(a+b*x)^(1/2)/b --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -13800,7 +13819,8 @@ t0335:= csc(a+b*x)^(3/2) --E 186 --S 187 of 528 -r0335:= -2*(1/sin(a+b*x))^(1/2)*(cos(a+b*x)+EllipticE(1/2*a-1/4*%pi+1/2*b*x,2)*sin(a+b*x)^(1/2))/b +r0335:= -2*(1/sin(a+b*x))^(1/2)*(cos(a+b*x)+_ + EllipticE(1/2*a-1/4*%pi+1/2*b*x,2)*sin(a+b*x)^(1/2))/b --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -13858,7 +13878,8 @@ t0336:= csc(a+b*x)^(5/2) --E 191 --S 192 of 528 -r0336:= 2/3*(1/sin(a+b*x))^(1/2)*(-cos(a+b*x)+EllipticF(1/2*a-1/4*%pi+1/2*b*x,2)*sin(a+b*x)^(3/2))/b/sin(a+b*x) +r0336:= 2/3*(1/sin(a+b*x))^(1/2)*(-cos(a+b*x)+_ + EllipticF(1/2*a-1/4*%pi+1/2*b*x,2)*sin(a+b*x)^(3/2))/b/sin(a+b*x) --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -13918,7 +13939,8 @@ t0337:= 1/csc(a+b*x)^(1/2) --E 196 --S 197 of 528 -r0337:= 2*csc(a+b*x)^(1/2)*EllipticE(1/2*a-1/4*%pi+1/2*b*x,2)*sin(a+b*x)^(1/2)/b +r0337:= 2*csc(a+b*x)^(1/2)*EllipticE(1/2*a-1/4*%pi+1/2*b*x,2)*_ + sin(a+b*x)^(1/2)/b --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -13982,7 +14004,9 @@ t0338:= 1/csc(a+b*x)^(3/2) --E 201 --S 202 of 528 -r0338:= 2/3*(-cos(a+b*x)*sin(a+b*x)^(1/2)+EllipticF(1/2*a-1/4*%pi+1/2*b*x,2))/sin(a+b*x)^(1/2)/(1/sin(a+b*x))^(1/2)/b +r0338:= 2/3*(-cos(a+b*x)*sin(a+b*x)^(1/2)+_ + EllipticF(1/2*a-1/4*%pi+1/2*b*x,2))/sin(a+b*x)^(1/2)/_ + (1/sin(a+b*x))^(1/2)/b --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -14046,7 +14070,9 @@ t0339:= 1/csc(a+b*x)^(5/2) --E 206 --S 207 of 528 -r0339:= 2/5*(-cos(a+b*x)*sin(a+b*x)^(3/2)+3*EllipticE(1/2*a-1/4*%pi+1/2*b*x,2))/sin(a+b*x)^(1/2)/(1/sin(a+b*x))^(1/2)/b +r0339:= 2/5*(-cos(a+b*x)*sin(a+b*x)^(3/2)+_ + 3*EllipticE(1/2*a-1/4*%pi+1/2*b*x,2))/_ + sin(a+b*x)^(1/2)/(1/sin(a+b*x))^(1/2)/b --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -14108,7 +14134,8 @@ t0340:= (c*csc(a+b*x))^(1/2) --E 211 --S 212 of 528 -r0340:= 2*(c*csc(a+b*x))^(1/2)*EllipticF(1/2*a-1/4*%pi+1/2*b*x,2)*sin(a+b*x)^(1/2)/b +r0340:= 2*(c*csc(a+b*x))^(1/2)*EllipticF(1/2*a-1/4*%pi+1/2*b*x,2)*_ + sin(a+b*x)^(1/2)/b --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -14166,7 +14193,8 @@ t0341:= (c*csc(a+b*x))^(3/2) --E 216 --S 217 of 528 -r0341:= -2*c^2*(cos(a+b*x)+EllipticE(1/2*a-1/4*%pi+1/2*b*x,2)*sin(a+b*x)^(1/2))/sin(a+b*x)/(c/sin(a+b*x))^(1/2)/b +r0341:= -2*c^2*(cos(a+b*x)+EllipticE(1/2*a-1/4*%pi+1/2*b*x,2)*_ + sin(a+b*x)^(1/2))/sin(a+b*x)/(c/sin(a+b*x))^(1/2)/b --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -14224,7 +14252,8 @@ t0342:= (c*csc(a+b*x))^(5/2) --E 221 --S 222 of 528 -r0342:= 2/3*c^2*(c/sin(a+b*x))^(1/2)*(-cos(a+b*x)+EllipticF(1/2*a-1/4*%pi+1/2*b*x,2)*sin(a+b*x)^(3/2))/b/sin(a+b*x) +r0342:= 2/3*c^2*(c/sin(a+b*x))^(1/2)*(-cos(a+b*x)+_ + EllipticF(1/2*a-1/4*%pi+1/2*b*x,2)*sin(a+b*x)^(3/2))/b/sin(a+b*x) --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -14284,7 +14313,8 @@ t0343:= 1/(c*csc(a+b*x))^(1/2) --E 226 --S 227 of 528 -r0343:= 2*EllipticE(1/2*a-1/4*%pi+1/2*b*x,2)/b/(c*csc(a+b*x))^(1/2)/sin(a+b*x)^(1/2) +r0343:= 2*EllipticE(1/2*a-1/4*%pi+1/2*b*x,2)/b/(c*csc(a+b*x))^(1/2)/_ + sin(a+b*x)^(1/2) --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -14348,7 +14378,9 @@ t0344:= 1/(c*csc(a+b*x))^(3/2) --E 231 --S 232 of 528 -r0344:= 2/3/c*(-cos(a+b*x)*sin(a+b*x)^(1/2)+EllipticF(1/2*a-1/4*%pi+1/2*b*x,2))/sin(a+b*x)^(1/2)/(c/sin(a+b*x))^(1/2)/b +r0344:= 2/3/c*(-cos(a+b*x)*sin(a+b*x)^(1/2)+_ + EllipticF(1/2*a-1/4*%pi+1/2*b*x,2))/sin(a+b*x)^(1/2)/_ + (c/sin(a+b*x))^(1/2)/b --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -14412,7 +14444,9 @@ t0345:= 1/(c*csc(a+b*x))^(5/2) --E 236 --S 237 of 528 -r0345:= 2/5*(-cos(a+b*x)*sin(a+b*x)^(3/2)+3*EllipticE(1/2*a-1/4*%pi+1/2*b*x,2))/sin(a+b*x)^(1/2)/(c/sin(a+b*x))^(1/2)/b/c^2 +r0345:= 2/5*(-cos(a+b*x)*sin(a+b*x)^(3/2)+_ + 3*EllipticE(1/2*a-1/4*%pi+1/2*b*x,2))/sin(a+b*x)^(1/2)/_ + (c/sin(a+b*x))^(1/2)/b/c^2 --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -14473,7 +14507,8 @@ t0346:= x*csc(a+b*x) --E 241 --S 242 of 528 -r0346:= -(2*x*atanh(exp(%i*(a+b*x)))*b-%i*polylog(2,-exp(%i*(a+b*x)))+%i*polylog(2,exp(%i*(a+b*x))))/b^2 +r0346:= -(2*x*atanh(exp(%i*(a+b*x)))*b-%i*polylog(2,-exp(%i*(a+b*x)))+_ + %i*polylog(2,exp(%i*(a+b*x))))/b^2 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -14530,7 +14565,9 @@ t0347:= x^2*csc(a+b*x) --E 246 --S 247 of 528 -r0347:= -2*(x^2*atanh(exp(%i*(a+b*x)))*b^2-%i*polylog(2,-exp(%i*(a+b*x)))*x*b+%i*polylog(2,exp(%i*(a+b*x)))*x*b+polylog(3,-exp(%i*(a+b*x)))-polylog(3,exp(%i*(a+b*x))))/b^3 +r0347:= -2*(x^2*atanh(exp(%i*(a+b*x)))*b^2-%i*polylog(2,-exp(%i*(a+b*x)))*_ + x*b+%i*polylog(2,exp(%i*(a+b*x)))*x*b+polylog(3,-exp(%i*(a+b*x)))-_ + polylog(3,exp(%i*(a+b*x))))/b^3 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -14588,7 +14625,13 @@ t0348:= x^3*csc(a+b*x) --E 251 --S 252 of 528 -r0348:= -(2*x^3*atanh(exp(%i*(a+b*x)))*b^3-3*%i*polylog(2,-exp(%i*(a+b*x)))*x^2*b^2+3*%i*polylog(2,exp(%i*(a+b*x)))*x^2*b^2+6*polylog(3,-exp(%i*(a+b*x)))*x*b-6*polylog(3,exp(%i*(a+b*x)))*x*b+6*%i*polylog(4,-exp(%i*(a+b*x)))-6*%i*polylog(4,exp(%i*(a+b*x))))/b^4 +r0348:= -(2*x^3*atanh(exp(%i*(a+b*x)))*b^3-_ + 3*%i*polylog(2,-exp(%i*(a+b*x)))*x^2*b^2+_ + 3*%i*polylog(2,exp(%i*(a+b*x)))*x^2*b^2+_ + 6*polylog(3,-exp(%i*(a+b*x)))*x*b-_ + 6*polylog(3,exp(%i*(a+b*x)))*x*b+_ + 6*%i*polylog(4,-exp(%i*(a+b*x)))-_ + 6*%i*polylog(4,exp(%i*(a+b*x))))/b^4 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -14646,7 +14689,8 @@ t0349:= x^2*csc(a+b*x)^2 --E 256 --S 257 of 528 -r0349:= -(%i*x^2*b^2+x^2*cot(a+b*x)*b^2-2*x*log(1-exp(2*%i*(a+b*x)))*b+%i*polylog(2,exp(2*%i*(a+b*x))))/b^3 +r0349:= -(%i*x^2*b^2+x^2*cot(a+b*x)*b^2-_ + 2*x*log(1-exp(2*%i*(a+b*x)))*b+%i*polylog(2,exp(2*%i*(a+b*x))))/b^3 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -14704,7 +14748,10 @@ t0350:= x^3*csc(a+b*x)^2 --E 261 --S 262 of 528 -r0350:= -1/2*(2*%i*x^3*b^3+2*x^3*cot(a+b*x)*b^3-6*x^2*log(1-exp(2*%i*(a+b*x)))*b^2+6*%i*x*polylog(2,exp(2*%i*(a+b*x)))*b-3*polylog(3,exp(2*%i*(a+b*x))))/b^4 +r0350:= -1/2*(2*%i*x^3*b^3+2*x^3*cot(a+b*x)*b^3-_ + 6*x^2*log(1-exp(2*%i*(a+b*x)))*b^2+_ + 6*%i*x*polylog(2,exp(2*%i*(a+b*x)))*b-_ + 3*polylog(3,exp(2*%i*(a+b*x))))/b^4 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -14762,7 +14809,10 @@ t0351:= x*csc(a+b*x)^3 --E 266 --S 267 of 528 -r0351:= -x*atanh(exp(1)^(%i*b*x+%i*a))/b-1/2*csc(a+b*x)/b^2-1/2*x*cot(a+b*x)*csc(a+b*x)/b+1/2*%i*polylog(2,-exp(1)^(%i*b*x+%i*a))/b^2-1/2*%i*polylog(2,exp(1)^(%i*b*x+%i*a))/b^2 +r0351:= -x*atanh(exp(1)^(%i*b*x+%i*a))/b-1/2*csc(a+b*x)/b^2-_ + 1/2*x*cot(a+b*x)*csc(a+b*x)/b+_ + 1/2*%i*polylog(2,-exp(1)^(%i*b*x+%i*a))/b^2-_ + 1/2*%i*polylog(2,exp(1)^(%i*b*x+%i*a))/b^2 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -14820,7 +14870,12 @@ t0352:= x^2*csc(a+b*x)^3 --E 271 --S 272 of 528 -r0352:= -x^2*atanh(exp(1)^(%i*b*x+%i*a))/b-atanh(cos(a+b*x))/b^3-x*csc(a+b*x)/b^2-1/2*x^2*cot(a+b*x)*csc(a+b*x)/b+%i*x*polylog(2,-exp(1)^(%i*b*x+%i*a))/b^2-%i*x*polylog(2,exp(1)^(%i*b*x+%i*a))/b^2-polylog(3,-exp(1)^(%i*b*x+%i*a))/b^3+polylog(3,exp(1)^(%i*b*x+%i*a))/b^3 +r0352:= -x^2*atanh(exp(1)^(%i*b*x+%i*a))/b-atanh(cos(a+b*x))/b^3-_ + x*csc(a+b*x)/b^2-1/2*x^2*cot(a+b*x)*csc(a+b*x)/b+_ + %i*x*polylog(2,-exp(1)^(%i*b*x+%i*a))/b^2-_ + %i*x*polylog(2,exp(1)^(%i*b*x+%i*a))/b^2-_ + polylog(3,-exp(1)^(%i*b*x+%i*a))/b^3+_ + polylog(3,exp(1)^(%i*b*x+%i*a))/b^3 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -14877,7 +14932,8 @@ t0353:= (c+d*x)*csc(a+b*x) --E 276 --S 277 of 528 -r0353:= (-2*atanh(exp(%i*(a+b*x)))*c*b-2*atanh(exp(%i*(a+b*x)))*d*x*b+%i*d*polylog(2,-exp(%i*(a+b*x)))-%i*d*polylog(2,exp(%i*(a+b*x))))/b^2 +r0353:= (-2*atanh(exp(%i*(a+b*x)))*c*b-2*atanh(exp(%i*(a+b*x)))*d*x*b+_ + %i*d*polylog(2,-exp(%i*(a+b*x)))-%i*d*polylog(2,exp(%i*(a+b*x))))/b^2 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -14934,7 +14990,11 @@ t0354:= (c+d*x)^2*csc(a+b*x) --E 281 --S 282 of 528 -r0354:= -2*(c+d*x)^2*atanh(exp(1)^(%i*b*x+%i*a))/b+2*%i*d*(c+d*x)*polylog(2,-exp(1)^(%i*b*x+%i*a))/b^2-2*%i*d*(c+d*x)*polylog(2,exp(1)^(%i*b*x+%i*a))/b^2-2*d^2*polylog(3,-exp(1)^(%i*b*x+%i*a))/b^3+2*d^2*polylog(3,exp(1)^(%i*b*x+%i*a))/b^3 +r0354:= -2*(c+d*x)^2*atanh(exp(1)^(%i*b*x+%i*a))/b+_ + 2*%i*d*(c+d*x)*polylog(2,-exp(1)^(%i*b*x+%i*a))/b^2-_ + 2*%i*d*(c+d*x)*polylog(2,exp(1)^(%i*b*x+%i*a))/b^2-_ + 2*d^2*polylog(3,-exp(1)^(%i*b*x+%i*a))/b^3+_ + 2*d^2*polylog(3,exp(1)^(%i*b*x+%i*a))/b^3 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -14992,7 +15052,13 @@ t0355:= (c+d*x)^3*csc(a+b*x) --E 286 --S 287 of 528 -r0355:= -2*(c+d*x)^3*atanh(exp(1)^(%i*b*x+%i*a))/b+3*%i*d*(c+d*x)^2*polylog(2,-exp(1)^(%i*b*x+%i*a))/b^2-3*%i*d*(c+d*x)^2*polylog(2,exp(1)^(%i*b*x+%i*a))/b^2-6*d^2*(c+d*x)*polylog(3,-exp(1)^(%i*b*x+%i*a))/b^3+6*d^2*(c+d*x)*polylog(3,exp(1)^(%i*b*x+%i*a))/b^3-6*%i*d^3*polylog(4,-exp(1)^(%i*b*x+%i*a))/b^4+6*%i*d^3*polylog(4,exp(1)^(%i*b*x+%i*a))/b^4 +r0355:= -2*(c+d*x)^3*atanh(exp(1)^(%i*b*x+%i*a))/b+_ + 3*%i*d*(c+d*x)^2*polylog(2,-exp(1)^(%i*b*x+%i*a))/b^2-_ + 3*%i*d*(c+d*x)^2*polylog(2,exp(1)^(%i*b*x+%i*a))/b^2-_ + 6*d^2*(c+d*x)*polylog(3,-exp(1)^(%i*b*x+%i*a))/b^3+_ + 6*d^2*(c+d*x)*polylog(3,exp(1)^(%i*b*x+%i*a))/b^3-_ + 6*%i*d^3*polylog(4,-exp(1)^(%i*b*x+%i*a))/b^4+_ + 6*%i*d^3*polylog(4,exp(1)^(%i*b*x+%i*a))/b^4 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -15050,7 +15116,9 @@ t0356:= (c+d*x)^2*csc(a+b*x)^2 --E 291 --S 292 of 528 -r0356:= -%i*(c+d*x)^2/b-(c+d*x)^2*cot(a+b*x)/b+2*d*(c+d*x)*log(1-exp(1)^(2*%i*a+2*%i*b*x))/b^2-%i*d^2*polylog(2,exp(1)^(2*%i*a+2*%i*b*x))/b^3 +r0356:= -%i*(c+d*x)^2/b-(c+d*x)^2*cot(a+b*x)/b+_ + 2*d*(c+d*x)*log(1-exp(1)^(2*%i*a+2*%i*b*x))/b^2-_ + %i*d^2*polylog(2,exp(1)^(2*%i*a+2*%i*b*x))/b^3 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -15108,7 +15176,10 @@ t0357:= (c+d*x)^3*csc(a+b*x)^2 --E 296 --S 297 of 528 -r0357:= -%i*(c+d*x)^3/b-(c+d*x)^3*cot(a+b*x)/b+3*d*(c+d*x)^2*log(1-exp(1)^(2*%i*a+2*%i*b*x))/b^2-3*%i*d^2*(c+d*x)*polylog(2,exp(1)^(2*%i*a+2*%i*b*x))/b^3+3/2*d^3*polylog(3,exp(1)^(2*%i*a+2*%i*b*x))/b^4 +r0357:= -%i*(c+d*x)^3/b-(c+d*x)^3*cot(a+b*x)/b+_ + 3*d*(c+d*x)^2*log(1-exp(1)^(2*%i*a+2*%i*b*x))/b^2-_ + 3*%i*d^2*(c+d*x)*polylog(2,exp(1)^(2*%i*a+2*%i*b*x))/b^3+_ + 3/2*d^3*polylog(3,exp(1)^(2*%i*a+2*%i*b*x))/b^4 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -15166,7 +15237,10 @@ t0358:= (c+d*x)*csc(a+b*x)^3 --E 301 --S 302 of 528 -r0358:= -(c+d*x)*atanh(exp(1)^(%i*b*x+%i*a))/b-1/2*d*csc(a+b*x)/b^2-1/2*(c+d*x)*cot(a+b*x)*csc(a+b*x)/b+1/2*%i*d*polylog(2,-exp(1)^(%i*b*x+%i*a))/b^2-1/2*%i*d*polylog(2,exp(1)^(%i*b*x+%i*a))/b^2 +r0358:= -(c+d*x)*atanh(exp(1)^(%i*b*x+%i*a))/b-1/2*d*csc(a+b*x)/b^2-_ + 1/2*(c+d*x)*cot(a+b*x)*csc(a+b*x)/b+_ + 1/2*%i*d*polylog(2,-exp(1)^(%i*b*x+%i*a))/b^2-_ + 1/2*%i*d*polylog(2,exp(1)^(%i*b*x+%i*a))/b^2 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -15224,7 +15298,12 @@ t0359:= (c+d*x)^2*csc(a+b*x)^3 --E 306 --S 307 of 528 -r0359:= -(c+d*x)^2*atanh(exp(1)^(%i*b*x+%i*a))/b-d^2*atanh(cos(a+b*x))/b^3-d*(c+d*x)*csc(a+b*x)/b^2-1/2*(c+d*x)^2*cot(a+b*x)*csc(a+b*x)/b+%i*d*(c+d*x)*polylog(2,-exp(1)^(%i*b*x+%i*a))/b^2-%i*d*(c+d*x)*polylog(2,exp(1)^(%i*b*x+%i*a))/b^2-d^2*polylog(3,-exp(1)^(%i*b*x+%i*a))/b^3+d^2*polylog(3,exp(1)^(%i*b*x+%i*a))/b^3 +r0359:= -(c+d*x)^2*atanh(exp(1)^(%i*b*x+%i*a))/b-d^2*atanh(cos(a+b*x))/b^3-_ + d*(c+d*x)*csc(a+b*x)/b^2-1/2*(c+d*x)^2*cot(a+b*x)*csc(a+b*x)/b+_ + %i*d*(c+d*x)*polylog(2,-exp(1)^(%i*b*x+%i*a))/b^2-_ + %i*d*(c+d*x)*polylog(2,exp(1)^(%i*b*x+%i*a))/b^2-_ + d^2*polylog(3,-exp(1)^(%i*b*x+%i*a))/b^3+_ + d^2*polylog(3,exp(1)^(%i*b*x+%i*a))/b^3 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -15406,7 +15485,8 @@ t0362:= (a*csc(x)^3)^(1/2) --E 321 --S 322 of 528 -r0362:= -2*(a*csc(x)^3)^(1/2)*(cos(x)+EllipticE(-1/4*%pi+1/2*x,2)*sin(x)^(1/2))*sin(x) +r0362:= -2*(a*csc(x)^3)^(1/2)*(cos(x)+_ + EllipticE(-1/4*%pi+1/2*x,2)*sin(x)^(1/2))*sin(x) --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -15659,7 +15739,8 @@ t0365:= (a*csc(x)^3)^(3/2) --E 336 --S 337 of 528 -r0365:= -2/21*a*(a*csc(x)^3)^(1/2)*(5*cot(x)+3*cot(x)*csc(x)^2-5*EllipticF(-1/4*%pi+1/2*x,2)*sin(x)^(1/2))*sin(x) +r0365:= -2/21*a*(a*csc(x)^3)^(1/2)*(5*cot(x)+3*cot(x)*csc(x)^2-_ + 5*EllipticF(-1/4*%pi+1/2*x,2)*sin(x)^(1/2))*sin(x) --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -15784,7 +15865,8 @@ t0367:= 1/(a*csc(x)^3)^(1/2) --E 346 --S 347 of 528 -r0367:= -2/3*csc(x)*(cos(x)-EllipticF(-1/4*%pi+1/2*x,2)/sin(x)^(1/2))/(a*csc(x)^3)^(1/2) +r0367:= -2/3*csc(x)*(cos(x)-_ + EllipticF(-1/4*%pi+1/2*x,2)/sin(x)^(1/2))/(a*csc(x)^3)^(1/2) --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -15999,7 +16081,8 @@ t0370:= (3+3*csc(x))^(1/2) --E 361 --S 362 of 528 -r0370:= -2*3^(1/2)*atan((-1+csc(x))^(1/2))*cot(x)/(-1+csc(x))^(1/2)/(1+csc(x))^(1/2) +r0370:= -2*3^(1/2)*atan((-1+csc(x))^(1/2))*cot(x)/_ + (-1+csc(x))^(1/2)/(1+csc(x))^(1/2) --R --R --R +-+ +----------+ @@ -16539,7 +16622,8 @@ t0371:= (3-3*csc(x))^(1/2) --E 366 --S 367 of 528 -r0371:= -2*3^(1/2)*atan((-1-csc(x))^(1/2))*cot(x)/(-1-csc(x))^(1/2)/(1-csc(x))^(1/2) +r0371:= -2*3^(1/2)*atan((-1-csc(x))^(1/2))*cot(x)/_ + (-1-csc(x))^(1/2)/(1-csc(x))^(1/2) --R --R --R +-+ +------------+ @@ -16596,7 +16680,8 @@ t0372:= (a+a*csc(x))^(1/2) --E 371 --S 372 of 528 -r0372:= -2*a*atan((-1+csc(x))^(1/2))*cot(x)/(-1+csc(x))^(1/2)/(a+a*csc(x))^(1/2) +r0372:= -2*a*atan((-1+csc(x))^(1/2))*cot(x)/(-1+csc(x))^(1/2)/_ + (a+a*csc(x))^(1/2) --R --R --R +----------+ @@ -17475,7 +17560,8 @@ t0373:= (a-a*csc(x))^(1/2) --E 378 --S 379 of 528 -r0373:= -2*a*atan((-1-csc(x))^(1/2))*cot(x)/(-1-csc(x))^(1/2)/(a-a*csc(x))^(1/2) +r0373:= -2*a*atan((-1-csc(x))^(1/2))*cot(x)/(-1-csc(x))^(1/2)/_ + (a-a*csc(x))^(1/2) --R --R --R +------------+ @@ -18320,7 +18406,9 @@ t0374:= 1/(a+a*csc(x))^(1/2) --E 385 --S 386 of 528 -r0374:= -(2^(1/2)*atan(2^(1/2)*a^(1/2)/(-a+a*csc(x))^(1/2))+2*atan((-a+a*csc(x))^(1/2)/a^(1/2)))*(-a+a*csc(x))^(1/2)*(a+a*csc(x))^(1/2)*tan(x)/a^(3/2) +r0374:= -(2^(1/2)*atan(2^(1/2)*a^(1/2)/(-a+a*csc(x))^(1/2))+_ + 2*atan((-a+a*csc(x))^(1/2)/a^(1/2)))*(-a+a*csc(x))^(1/2)*_ + (a+a*csc(x))^(1/2)*tan(x)/a^(3/2) --R --R --R (348) @@ -20786,7 +20874,9 @@ t0375:= 1/(a-a*csc(x))^(1/2) --E 392 --S 393 of 528 -r0375:= -(2^(1/2)*atan(2^(1/2)*a^(1/2)/(-a-a*csc(x))^(1/2))+2*atan((-a-a*csc(x))^(1/2)/a^(1/2)))*(-a-a*csc(x))^(1/2)*(a-a*csc(x))^(1/2)*tan(x)/a^(3/2) +r0375:= -(2^(1/2)*atan(2^(1/2)*a^(1/2)/(-a-a*csc(x))^(1/2))+_ + 2*atan((-a-a*csc(x))^(1/2)/a^(1/2)))*(-a-a*csc(x))^(1/2)*_ + (a-a*csc(x))^(1/2)*tan(x)/a^(3/2) --R --R --R (355) @@ -23227,7 +23317,9 @@ t0376:= (a+b*csc(c+d*x))^3 --E 399 --S 400 of 528 -r0376:= a^3*x-3*a^2*b*atanh(cos(c+d*x))/d-1/2*b^3*atanh(cos(c+d*x))/d-3*a*b^2*cot(c+d*x)/d-1/2*b^3*cot(c+d*x)*csc(c+d*x)/d +r0376:= a^3*x-3*a^2*b*atanh(cos(c+d*x))/d-_ + 1/2*b^3*atanh(cos(c+d*x))/d-3*a*b^2*cot(c+d*x)/d-_ + 1/2*b^3*cot(c+d*x)*csc(c+d*x)/d --R --R --R (362) @@ -23624,7 +23716,8 @@ t0380:= 1/(a+b*csc(c+d*x)) --E 419 --S 420 of 528 -r0380:= x/a+2*b*atanh((a+b*tan(1/2*c+1/2*d*x))/(a^2-b^2)^(1/2))/a/(a^2-b^2)^(1/2)/d +r0380:= x/a+2*b*atanh((a+b*tan(1/2*c+1/2*d*x))/(a^2-b^2)^(1/2))/a/_ + (a^2-b^2)^(1/2)/d --R --R --R d x + c @@ -23939,7 +24032,10 @@ t0381:= 1/(a+b*csc(c+d*x))^2 --E 426 --S 427 of 528 -r0381:= x/a^2+2*b^3*atanh((a+b*tan(1/2*c+1/2*d*x))/(a^2-b^2)^(1/2))/a^2/(a^2-b^2)^(3/2)/d+4*b*atanh((a+b*tan(1/2*c+1/2*d*x))/(a^2-b^2)^(1/2))/a^2/(a^2-b^2)^(1/2)/d-b^2*cos(c+d*x)/a/(a^2-b^2)/d/(b+a*sin(c+d*x)) +r0381:= x/a^2+2*b^3*atanh((a+b*tan(1/2*c+1/2*d*x))/(a^2-b^2)^(1/2))/_ + a^2/(a^2-b^2)^(3/2)/d+4*b*atanh((a+b*tan(1/2*c+1/2*d*x))/_ + (a^2-b^2)^(1/2))/a^2/(a^2-b^2)^(1/2)/d-_ + b^2*cos(c+d*x)/a/(a^2-b^2)/d/(b+a*sin(c+d*x)) --R --R --R (389) @@ -24328,7 +24424,13 @@ t0382:= 1/(a+b*csc(c+d*x))^3 --E 433 --S 434 of 528 -r0382:= x/a^3+6*b^3*atanh((a+b*tan(1/2*c+1/2*d*x))/(a^2-b^2)^(1/2))/a^3/(a^2-b^2)^(3/2)/d+6*b*atanh((a+b*tan(1/2*c+1/2*d*x))/(a^2-b^2)^(1/2))/a^3/(a^2-b^2)^(1/2)/d+b^3*(a^2+2*b^2)*atanh((a+b*tan(1/2*c+1/2*d*x))/(a^2-b^2)^(1/2))/a^3/(a^2-b^2)^(5/2)/d+1/2*b^3*cos(c+d*x)/a^2/(a^2-b^2)/d/(b+a*sin(c+d*x))^2-3/2*b^4*cos(c+d*x)/a^2/(a^2-b^2)^2/d/(b+a*sin(c+d*x))-3*b^2*cos(c+d*x)/a^2/(a^2-b^2)/d/(b+a*sin(c+d*x)) +r0382:= x/a^3+6*b^3*atanh((a+b*tan(1/2*c+1/2*d*x))/(a^2-b^2)^(1/2))/a^3/_ + (a^2-b^2)^(3/2)/d+6*b*atanh((a+b*tan(1/2*c+1/2*d*x))/_ + (a^2-b^2)^(1/2))/a^3/(a^2-b^2)^(1/2)/d+b^3*(a^2+2*b^2)*_ + atanh((a+b*tan(1/2*c+1/2*d*x))/(a^2-b^2)^(1/2))/a^3/_ + (a^2-b^2)^(5/2)/d+1/2*b^3*cos(c+d*x)/a^2/(a^2-b^2)/d/_ + (b+a*sin(c+d*x))^2-3/2*b^4*cos(c+d*x)/a^2/(a^2-b^2)^2/d/_ + (b+a*sin(c+d*x))-3*b^2*cos(c+d*x)/a^2/(a^2-b^2)/d/(b+a*sin(c+d*x)) --R --R --R (396) @@ -28541,7 +28643,8 @@ t0387:= (a+b*csc(x)^2)^(1/2) --E 460 --S 461 of 528 -r0387:= -a^(1/2)*atan(a^(1/2)*cot(x)/(a+b*csc(x)^2)^(1/2))-b^(1/2)*atanh((a+b*csc(x)^2)^(1/2)*tan(x)/b^(1/2)) +r0387:= -a^(1/2)*atan(a^(1/2)*cot(x)/(a+b*csc(x)^2)^(1/2))-_ + b^(1/2)*atanh((a+b*csc(x)^2)^(1/2)*tan(x)/b^(1/2)) --R --R --R +-------------+ @@ -36850,7 +36953,8 @@ t0393:= (1+csc(x)^2)^(3/2) --E 492 --S 493 of 528 -r0393:= -2*asinh(1/2*2^(1/2)*cot(x))-atan(cot(x)/(2+cot(x)^2)^(1/2))-1/2*cot(x)*(2+cot(x)^2)^(1/2) +r0393:= -2*asinh(1/2*2^(1/2)*cot(x))-atan(cot(x)/(2+cot(x)^2)^(1/2))-_ + 1/2*cot(x)*(2+cot(x)^2)^(1/2) --R --R --R +-----------+ +-+ @@ -41013,7 +41117,8 @@ t0396:= (-1-csc(x)^2)^(3/2) --E 507 --S 508 of 528 -r0396:= 2*atan((-2-cot(x)^2)^(1/2)*tan(x))-atanh(cot(x)/(-2-cot(x)^2)^(1/2))+1/2*cot(x)*(-2-cot(x)^2)^(1/2) +r0396:= 2*atan((-2-cot(x)^2)^(1/2)*tan(x))-atanh(cot(x)/(-2-cot(x)^2)^(1/2))+_ + 1/2*cot(x)*(-2-cot(x)^2)^(1/2) --R --R --R (469) @@ -41820,7 +41925,10 @@ t0397:= (a+b*csc(x)^2)^(3/2) --E 512 --S 513 of 528 -r0397:= -a^(3/2)*atan(a^(1/2)*cot(x)/(a+b*csc(x)^2)^(1/2))-3/2*a*b^(1/2)*atanh((a+b*csc(x)^2)^(1/2)*tan(x)/b^(1/2))-1/2*b^(3/2)*atanh((a+b*csc(x)^2)^(1/2)*tan(x)/b^(1/2))-1/2*b*cot(x)*(a+b*csc(x)^2)^(1/2) +r0397:= -a^(3/2)*atan(a^(1/2)*cot(x)/(a+b*csc(x)^2)^(1/2))-_ + 3/2*a*b^(1/2)*atanh((a+b*csc(x)^2)^(1/2)*tan(x)/b^(1/2))-_ + 1/2*b^(3/2)*atanh((a+b*csc(x)^2)^(1/2)*tan(x)/b^(1/2))-_ + 1/2*b*cot(x)*(a+b*csc(x)^2)^(1/2) --R --R --R (474) diff --git a/src/input/richtrig400-499.input.pamphlet b/src/input/richtrig400-499.input.pamphlet index 15759bb..e2ad8c8 100644 --- a/src/input/richtrig400-499.input.pamphlet +++ b/src/input/richtrig400-499.input.pamphlet @@ -30,7 +30,8 @@ t0400:= x/csc(x)^(7/2)-5/21*x*csc(x)^(1/2) --E 1 --S 2 of 546 -r0400:= 2/441*(88*sin(x)-18*sin(x)*cos(x)^2-168*x*cos(x)+63*x*cos(x)^3)/(1/sin(x))^(1/2) +r0400:= 2/441*(88*sin(x)-18*sin(x)*cos(x)^2-168*x*cos(x)+_ + 63*x*cos(x)^3)/(1/sin(x))^(1/2) --R --R --R 2 3 @@ -102,7 +103,9 @@ t0401:= x^2/csc(x)^(3/2)-1/3*x^2*csc(x)^(1/2) --E 6 --S 7 of 546 -r0401:= -2/27*(-12*x*sin(x)^(3/2)-8*cos(x)*sin(x)^(1/2)+9*x^2*cos(x)*sin(x)^(1/2)+8*EllipticF(-1/4*%pi+1/2*x,2))/sin(x)^(1/2)/(1/sin(x))^(1/2) +r0401:= -2/27*(-12*x*sin(x)^(3/2)-8*cos(x)*sin(x)^(1/2)+_ + 9*x^2*cos(x)*sin(x)^(1/2)+8*_ + EllipticF(-1/4*%pi+1/2*x,2))/sin(x)^(1/2)/(1/sin(x))^(1/2) --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -236,7 +239,8 @@ t0403:= sin(x)^2/(a+b*sin(x)) --E 16 --S 17 of 546 -r0403:= -a*x/b^2+2*a^2*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^2/(a^2-b^2)^(1/2)-cos(x)/b +r0403:= -a*x/b^2+2*a^2*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^2/_ + (a^2-b^2)^(1/2)-cos(x)/b --R --R --R x @@ -514,7 +518,8 @@ t0404:= sin(x)^3/(a+b*sin(x)) --E 23 --S 24 of 546 -r0404:= a^2*x/b^3+1/2*x/b-2*a^3*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^3/(a^2-b^2)^(1/2)+a*cos(x)/b^2-1/2*cos(x)*sin(x)/b +r0404:= a^2*x/b^3+1/2*x/b-2*a^3*atan((b+a*tan(1/2*x))/_ + (a^2-b^2)^(1/2))/b^3/(a^2-b^2)^(1/2)+a*cos(x)/b^2-1/2*cos(x)*sin(x)/b --R --R --R (21) @@ -797,7 +802,9 @@ t0405:= sin(x)^4/(a+b*sin(x)) --E 30 --S 31 of 546 -r0405:= -a^3*x/b^4-1/2*a*x/b^2+2*a^4*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^4/(a^2-b^2)^(1/2)-a^2*cos(x)/b^3-cos(x)/b+1/3*cos(x)^3/b+1/2*a*cos(x)*sin(x)/b^2 +r0405:= -a^3*x/b^4-1/2*a*x/b^2+2*a^4*atan((b+a*tan(1/2*x))/_ + (a^2-b^2)^(1/2))/b^4/(a^2-b^2)^(1/2)-a^2*cos(x)/b^3-cos(x)/b+_ + 1/3*cos(x)^3/b+1/2*a*cos(x)*sin(x)/b^2 --R --R --R (28) @@ -1299,7 +1306,8 @@ t0409:= sin(x)^4/(a+a*sin(x)) --E 52 --S 53 of 546 -r0409:= 1/6*(2*cos(x)^4+3*cos(x)^2*sin(x)-12*cos(x)^2-9*x*cos(x)-6+6*sin(x))/a/cos(x) +r0409:= 1/6*(2*cos(x)^4+3*cos(x)^2*sin(x)-12*cos(x)^2-9*x*cos(x)-_ + 6+6*sin(x))/a/cos(x) --R --R --R 2 4 2 @@ -1376,7 +1384,8 @@ t0410:= cos(x)^2/(a+b*sin(x)) --E 57 --S 58 of 546 -r0410:= a*x/b^2-2*(a^2-b^2)^(1/2)*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^2+cos(x)/b +r0410:= a*x/b^2-2*(a^2-b^2)^(1/2)*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^2+_ + cos(x)/b --R --R --R x @@ -1653,7 +1662,9 @@ t0411:= cos(x)^4/(a+b*sin(x)) --E 64 --S 65 of 546 -r0411:= -a^3*x/b^4+3/2*a*x/b^2+2*(a^2-b^2)^(3/2)*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^4-a^2*cos(x)/b^3+cos(x)/b+1/3*cos(x)^3/b+1/2*a*cos(x)*sin(x)/b^2 +r0411:= -a^3*x/b^4+3/2*a*x/b^2+2*(a^2-b^2)^(3/2)*_ + atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^4-_ + a^2*cos(x)/b^3+cos(x)/b+1/3*cos(x)^3/b+1/2*a*cos(x)*sin(x)/b^2 --R --R --R (62) @@ -2011,7 +2022,11 @@ t0413:= tan(x)^4/(a+b*sin(x)) --E 76 --S 77 of 546 -r0413:= 2*a^4*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/(a^2-b^2)^(5/2)+1/12*cos(x)/(a+b)/(1-sin(x))^2+1/12*cos(x)/(a+b)/(1-sin(x))-1/4*(3*a+2*b)*cos(x)/(a+b)^2/(1-sin(x))-1/12*cos(x)/(a-b)/(1+sin(x))^2+1/4*(3*a-2*b)*cos(x)/(a-b)^2/(1+sin(x))-1/12*cos(x)/(a-b)/(1+sin(x)) +r0413:= 2*a^4*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/(a^2-b^2)^(5/2)+_ + 1/12*cos(x)/(a+b)/(1-sin(x))^2+1/12*cos(x)/(a+b)/(1-sin(x))-_ + 1/4*(3*a+2*b)*cos(x)/(a+b)^2/(1-sin(x))-_ + 1/12*cos(x)/(a-b)/(1+sin(x))^2+_ + 1/4*(3*a-2*b)*cos(x)/(a-b)^2/(1+sin(x))-1/12*cos(x)/(a-b)/(1+sin(x)) --R --R --R (74) @@ -4529,7 +4544,8 @@ t0416:= tan(x)^3/(a+a*sin(x)) --E 93 --S 94 of 546 -r0416:= -1/8/cos(x)^4*(3*atanh(sin(x))*cos(x)^4+2*sin(x)-2-5*sin(x)*cos(x)^2+4*cos(x)^2)/a +r0416:= -1/8/cos(x)^4*(3*atanh(sin(x))*cos(x)^4+2*sin(x)-2-_ + 5*sin(x)*cos(x)^2+4*cos(x)^2)/a --R --R --R 4 2 2 @@ -4653,7 +4669,8 @@ t0417:= tan(x)^4/(a+a*sin(x)) --E 98 --S 99 of 546 -r0417:= -1/15*(-1-4*sin(x)+12*sin(x)*cos(x)^2+6*cos(x)^2+3*cos(x)^4)/cos(x)^3/a/(1+sin(x)) +r0417:= -1/15*(-1-4*sin(x)+12*sin(x)*cos(x)^2+6*cos(x)^2+_ + 3*cos(x)^4)/cos(x)^3/a/(1+sin(x)) --R --R --R 2 4 2 @@ -4707,7 +4724,8 @@ t0418:= cot(x)^2/(a+b*sin(x)) --E 103 --S 104 of 546 -r0418:= -2*(a^2-b^2)^(1/2)*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/a^2+b*atanh(cos(x))/a^2-cot(x)/a +r0418:= -2*(a^2-b^2)^(1/2)*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/a^2+_ + b*atanh(cos(x))/a^2-cot(x)/a --R --R --R x @@ -5445,7 +5463,9 @@ t0419:= cot(x)^4/(a+b*sin(x)) --E 110 --S 111 of 546 -r0419:= 2*(a^2-b^2)^(3/2)*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/a^4-3/2*b*atanh(cos(x))/a^2+b^3*atanh(cos(x))/a^4+cot(x)/a-b^2*cot(x)/a^3-1/3*cot(x)^3/a+1/2*b*cot(x)*csc(x)/a^2 +r0419:= 2*(a^2-b^2)^(3/2)*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/a^4-_ + 3/2*b*atanh(cos(x))/a^2+b^3*atanh(cos(x))/a^4+cot(x)/a-_ + b^2*cot(x)/a^3-1/3*cot(x)^3/a+1/2*b*cot(x)*csc(x)/a^2 --R --R --R (108) @@ -7584,7 +7604,10 @@ t0423:= sec(x)^4/(a+b*sin(x)) --E 132 --S 133 of 546 -r0423:= 2*b^4*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/(a^2-b^2)^(5/2)+1/12*cos(x)/(a+b)/(1-sin(x))^2+1/12*cos(x)/(a+b)/(1-sin(x))+1/4*(a+2*b)*cos(x)/(a+b)^2/(1-sin(x))-1/12*cos(x)/(a-b)/(1+sin(x))^2-1/4*(a-2*b)*cos(x)/(a-b)^2/(1+sin(x))-1/12*cos(x)/(a-b)/(1+sin(x)) +r0423:= 2*b^4*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/(a^2-b^2)^(5/2)+_ + 1/12*cos(x)/(a+b)/(1-sin(x))^2+1/12*cos(x)/(a+b)/(1-sin(x))+_ + 1/4*(a+2*b)*cos(x)/(a+b)^2/(1-sin(x))-1/12*cos(x)/(a-b)/(1+sin(x))^2-_ + 1/4*(a-2*b)*cos(x)/(a-b)^2/(1+sin(x))-1/12*cos(x)/(a-b)/(1+sin(x)) --R --R --R (130) @@ -10196,7 +10219,8 @@ t0426:= csc(x)^2/(a+b*sin(x)) --E 149 --S 150 of 546 -r0426:= 2*b^2*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/a^2/(a^2-b^2)^(1/2)+b*atanh(cos(x))/a^2-cot(x)/a +r0426:= 2*b^2*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/a^2/(a^2-b^2)^(1/2)+_ + b*atanh(cos(x))/a^2-cot(x)/a --R --R --R (147) @@ -11019,7 +11043,9 @@ t0427:= csc(x)^3/(a+b*sin(x)) --E 156 --S 157 of 546 -r0427:= -2*b^3*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/a^3/(a^2-b^2)^(1/2)-1/2*atanh(cos(x))/a-b^2*atanh(cos(x))/a^3+b*cot(x)/a^2-1/2*cot(x)*csc(x)/a +r0427:= -2*b^3*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/a^3/(a^2-b^2)^(1/2)-_ + 1/2*atanh(cos(x))/a-b^2*atanh(cos(x))/a^3+b*cot(x)/a^2-_ + 1/2*cot(x)*csc(x)/a --R --R --R (154) @@ -12698,7 +12724,9 @@ t0428:= csc(x)^4/(a+b*sin(x)) --E 163 --S 164 of 546 -r0428:= 2*b^4*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/a^4/(a^2-b^2)^(1/2)+1/2*b*atanh(cos(x))/a^2+b^3*atanh(cos(x))/a^4-cot(x)/a-b^2*cot(x)/a^3-1/3*cot(x)^3/a+1/2*b*cot(x)*csc(x)/a^2 +r0428:= 2*b^4*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/a^4/(a^2-b^2)^(1/2)+_ + 1/2*b*atanh(cos(x))/a^2+b^3*atanh(cos(x))/a^4-cot(x)/a-_ + b^2*cot(x)/a^3-1/3*cot(x)^3/a+1/2*b*cot(x)*csc(x)/a^2 --R --R --R (161) @@ -15445,7 +15473,8 @@ t0432:= csc(x)^4/(a+a*sin(x)) --E 185 --S 186 of 546 -r0432:= 3/2*atanh(cos(x))/a-2*cot(x)/a-1/3*cot(x)^3/a+1/2*cot(x)*csc(x)/a-cos(x)/a/(1+sin(x)) +r0432:= 3/2*atanh(cos(x))/a-2*cot(x)/a-1/3*cot(x)^3/a+1/2*cot(x)*csc(x)/a-_ + cos(x)/a/(1+sin(x)) --R --R --R (183) @@ -15827,7 +15856,8 @@ t0433:= sin(x)^2/(a+b*cos(x)) --E 190 --S 191 of 546 -r0433:= 1/b^2*(a*x+2*(a^2-b^2)^(1/2)*atan((a-b)/(a^2-b^2)^(1/2)*(-1+cos(x))/sin(x))-b*sin(x)) +r0433:= 1/b^2*(a*x+2*(a^2-b^2)^(1/2)*_ + atan((a-b)/(a^2-b^2)^(1/2)*(-1+cos(x))/sin(x))-b*sin(x)) --R --R --R +---------+ @@ -16013,7 +16043,9 @@ t0434:= sin(x)^4/(a+b*cos(x)) --E 197 --S 198 of 546 -r0434:= -a^3*x/b^4+3/2*a*x/b^2+2*(a^2-b^2)^(3/2)*atan((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/b^4+a^2*sin(x)/b^3-sin(x)/b-1/2*a*cos(x)*sin(x)/b^2-1/3*sin(x)^3/b +r0434:= -a^3*x/b^4+3/2*a*x/b^2+2*(a^2-b^2)^(3/2)*_ + atan((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/b^4+a^2*sin(x)/b^3-_ + sin(x)/b-1/2*a*cos(x)*sin(x)/b^2-1/3*sin(x)^3/b --R --R --R (195) @@ -16471,7 +16503,8 @@ t0438:= cos(x)^2/(a+b*cos(x)) --E 219 --S 220 of 546 -r0438:= -a*x/b^2+2*a^2*atan((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/b^2/(a^2-b^2)^(1/2)+sin(x)/b +r0438:= -a*x/b^2+2*a^2*atan((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/b^2/_ + (a^2-b^2)^(1/2)+sin(x)/b --R --R --R x @@ -16657,7 +16690,8 @@ t0439:= cos(x)^3/(a+b*cos(x)) --E 226 --S 227 of 546 -r0439:= a^2*x/b^3+1/2*x/b-2*a^3*atan((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/b^3/(a^2-b^2)^(1/2)-a*sin(x)/b^2+1/2*cos(x)*sin(x)/b +r0439:= a^2*x/b^3+1/2*x/b-2*a^3*atan((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/_ + b^3/(a^2-b^2)^(1/2)-a*sin(x)/b^2+1/2*cos(x)*sin(x)/b --R --R --R (224) @@ -16853,7 +16887,9 @@ t0440:= cos(x)^4/(a+b*cos(x)) --E 233 --S 234 of 546 -r0440:= -a^3*x/b^4-1/2*a*x/b^2+2*a^4*atan((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/b^4/(a^2-b^2)^(1/2)+a^2*sin(x)/b^3+sin(x)/b-1/2*a*cos(x)*sin(x)/b^2-1/3*sin(x)^3/b +r0440:= -a^3*x/b^4-1/2*a*x/b^2+2*a^4*atan((a-b)*tan(1/2*x)/_ + (a^2-b^2)^(1/2))/b^4/(a^2-b^2)^(1/2)+a^2*sin(x)/b^3+_ + sin(x)/b-1/2*a*cos(x)*sin(x)/b^2-1/3*sin(x)^3/b --R --R --R (231) @@ -17188,7 +17224,8 @@ t0441:= tan(x)^2/(a+b*cos(x)) --E 240 --S 241 of 546 -r0441:= -2*(a^2-b^2)^(1/2)*atan((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a^2-b*atanh(sin(x))/a^2+tan(x)/a +r0441:= -2*(a^2-b^2)^(1/2)*atan((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a^2-_ + b*atanh(sin(x))/a^2+tan(x)/a --R --R --R x @@ -17968,7 +18005,9 @@ t0442:= tan(x)^4/(a+b*cos(x)) --E 247 --S 248 of 546 -r0442:= 2*(a^2-b^2)^(3/2)*atan((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a^4+3/2*b*atanh(sin(x))/a^2-b^3*atanh(sin(x))/a^4-tan(x)/a+b^2*tan(x)/a^3-1/2*b*sec(x)*tan(x)/a^2+1/3*tan(x)^3/a +r0442:= 2*(a^2-b^2)^(3/2)*atan((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a^4+_ + 3/2*b*atanh(sin(x))/a^2-b^3*atanh(sin(x))/a^4-tan(x)/a+_ + b^2*tan(x)/a^3-1/2*b*sec(x)*tan(x)/a^2+1/3*tan(x)^3/a --R --R --R (245) @@ -19884,7 +19923,8 @@ t0446:= sec(x)/(a+b*cos(x)) --E 269 --S 270 of 546 -r0446:= -2*b*atan((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a/(a^2-b^2)^(1/2)+atanh(sin(x))/a +r0446:= -2*b*atan((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a/(a^2-b^2)^(1/2)+_ + atanh(sin(x))/a --R --R --R x @@ -20419,7 +20459,8 @@ t0447:= sec(x)^2/(a+b*cos(x)) --E 276 --S 277 of 546 -r0447:= 2*b^2*atan((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a^2/(a^2-b^2)^(1/2)-b*atanh(sin(x))/a^2+tan(x)/a +r0447:= 2*b^2*atan((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a^2/(a^2-b^2)^(1/2)-_ + b*atanh(sin(x))/a^2+tan(x)/a --R --R --R (274) @@ -21338,7 +21379,9 @@ t0448:= sec(x)^3/(a+b*cos(x)) --E 283 --S 284 of 546 -r0448:= -2*b^3*atan((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a^3/(a^2-b^2)^(1/2)+1/2*atanh(sin(x))/a+b^2*atanh(sin(x))/a^3-b*tan(x)/a^2+1/2*sec(x)*tan(x)/a +r0448:= -2*b^3*atan((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a^3/(a^2-b^2)^(1/2)+_ + 1/2*atanh(sin(x))/a+b^2*atanh(sin(x))/a^3-b*tan(x)/a^2+_ + 1/2*sec(x)*tan(x)/a --R --R --R (281) @@ -22822,7 +22865,9 @@ t0449:= sec(x)^4/(a+b*cos(x)) --E 290 --S 291 of 546 -r0449:= 2*b^4*atan((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a^4/(a^2-b^2)^(1/2)-1/2*b*atanh(sin(x))/a^2-b^3*atanh(sin(x))/a^4+tan(x)/a+b^2*tan(x)/a^3-1/2*b*sec(x)*tan(x)/a^2+1/3*tan(x)^3/a +r0449:= 2*b^4*atan((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a^4/(a^2-b^2)^(1/2)-_ + 1/2*b*atanh(sin(x))/a^2-b^3*atanh(sin(x))/a^4+tan(x)/a+_ + b^2*tan(x)/a^3-1/2*b*sec(x)*tan(x)/a^2+1/3*tan(x)^3/a --R --R --R (288) @@ -25047,7 +25092,8 @@ t0453:= sec(x)^4/(a+a*cos(x)) --E 312 --S 313 of 546 -r0453:= -3/2*atanh(sin(x))/a+sin(x)/a/(cos(x)+1)+2*tan(x)/a-1/2*sec(x)*tan(x)/a+1/3*tan(x)^3/a +r0453:= -3/2*atanh(sin(x))/a+sin(x)/a/(cos(x)+1)+2*tan(x)/a-_ + 1/2*sec(x)*tan(x)/a+1/3*tan(x)^3/a --R --R --R (310) @@ -25232,7 +25278,8 @@ t0455:= sin(x)/(a+b*tan(x)) --E 322 --S 323 of 546 -r0455:= a*b*atanh((b*cos(x)-a*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(3/2)-a*cos(x)/(a^2+b^2)+b*sin(x)/(a^2+b^2) +r0455:= a*b*atanh((b*cos(x)-a*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(3/2)-_ + a*cos(x)/(a^2+b^2)+b*sin(x)/(a^2+b^2) --R --R --R +-------+ @@ -25342,7 +25389,9 @@ t0456:= sin(x)^2/(a+b*tan(x)) --E 327 --S 328 of 546 -r0456:= -1/2*(-a^3*x+a*b^2*x-2*a^2*b*log(a*cos(x)+b*sin(x))+sin(x)*a^3*cos(x)+sin(x)*a*b^2*cos(x)-a^2*b+a^2*b*cos(x)^2-b^3+b^3*cos(x)^2)/(a^2+b^2)^2 +r0456:= -1/2*(-a^3*x+a*b^2*x-2*a^2*b*log(a*cos(x)+b*sin(x))+_ + sin(x)*a^3*cos(x)+sin(x)*a*b^2*cos(x)-a^2*b+a^2*b*cos(x)^2-_ + b^3+b^3*cos(x)^2)/(a^2+b^2)^2 --R --R --R (325) @@ -25412,7 +25461,14 @@ t0457:= sin(x)^3/(a+b*tan(x)) --E 332 --S 333 of 546 -r0457:= 2/3*(3*a^3*b*atanh(1/(a^2+b^2)^(1/2)*(a*cos(x)-a+b*sin(x))/sin(x))-6*a^3*cos(1/2*x)^4*(a^2+b^2)^(1/2)+4*a^3*cos(1/2*x)^6*(a^2+b^2)^(1/2)+4*b*cos(1/2*x)^3*sin(1/2*x)*(a^2+b^2)^(1/2)*a^2-4*b*cos(1/2*x)^5*sin(1/2*x)*(a^2+b^2)^(1/2)*a^2+3*b*cos(1/2*x)*sin(1/2*x)*(a^2+b^2)^(1/2)*a^2+3*a*cos(1/2*x)^2*(a^2+b^2)^(1/2)*b^2+4*a*cos(1/2*x)^6*(a^2+b^2)^(1/2)*b^2-6*a*cos(1/2*x)^4*(a^2+b^2)^(1/2)*b^2+4*b^3*cos(1/2*x)^3*sin(1/2*x)*(a^2+b^2)^(1/2)-4*b^3*cos(1/2*x)^5*sin(1/2*x)*(a^2+b^2)^(1/2))/(a^2+b^2)^(5/2) +r0457:= 2/3*(3*a^3*b*atanh(1/(a^2+b^2)^(1/2)*(a*cos(x)-a+b*sin(x))/sin(x))-_ + 6*a^3*cos(1/2*x)^4*(a^2+b^2)^(1/2)+4*a^3*cos(1/2*x)^6*(a^2+b^2)^(1/2)+_ + 4*b*cos(1/2*x)^3*sin(1/2*x)*(a^2+b^2)^(1/2)*a^2-4*b*cos(1/2*x)^5*_ + sin(1/2*x)*(a^2+b^2)^(1/2)*a^2+3*b*cos(1/2*x)*sin(1/2*x)*_ + (a^2+b^2)^(1/2)*a^2+3*a*cos(1/2*x)^2*(a^2+b^2)^(1/2)*b^2+_ + 4*a*cos(1/2*x)^6*(a^2+b^2)^(1/2)*b^2-6*a*cos(1/2*x)^4*_ + (a^2+b^2)^(1/2)*b^2+4*b^3*cos(1/2*x)^3*sin(1/2*x)*(a^2+b^2)^(1/2)-_ + 4*b^3*cos(1/2*x)^5*sin(1/2*x)*(a^2+b^2)^(1/2))/(a^2+b^2)^(5/2) --R --R --R (330) @@ -26749,7 +26805,8 @@ t0458:= cos(x)/(a+b*tan(x)) --E 337 --S 338 of 546 -r0458:= -b^2*atanh((b*cos(x)-a*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(3/2)+b*cos(x)/(a^2+b^2)+a*sin(x)/(a^2+b^2) +r0458:= -b^2*atanh((b*cos(x)-a*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(3/2)+_ + b*cos(x)/(a^2+b^2)+a*sin(x)/(a^2+b^2) --R --R --R +-------+ @@ -26861,7 +26918,9 @@ t0459:= cos(x)^2/(a+b*tan(x)) --E 342 --S 343 of 546 -r0459:= 1/2/(a^2+b^2)^2*(3*a*b^2*x+a^3*x+2*b^3*log(a*cos(x)+b*sin(x))+a^3*cos(x)*sin(x)+a*cos(x)*sin(x)*b^2-a^2*b+a^2*b*cos(x)^2-b^3+b^3*cos(x)^2) +r0459:= 1/2/(a^2+b^2)^2*(3*a*b^2*x+a^3*x+2*b^3*log(a*cos(x)+b*sin(x))+_ + a^3*cos(x)*sin(x)+a*cos(x)*sin(x)*b^2-a^2*b+a^2*b*cos(x)^2-_ + b^3+b^3*cos(x)^2) --R --R --R (340) @@ -27052,7 +27111,9 @@ t0462:= sec(x)^3/(a+b*tan(x)) --E 357 --S 358 of 546 -r0462:= 1/b^2*(-2*(a^2+b^2)^(1/2)*atanh(1/(a^2+b^2)^(1/2)*(a*cos(x)-a+b*sin(x))/sin(x))*cos(x)+2*a*atanh((-1+cos(x))/sin(x))*cos(x)+b*cos(x)+b)/cos(x) +r0462:= 1/b^2*(-2*(a^2+b^2)^(1/2)*atanh(1/(a^2+b^2)^(1/2)*_ + (a*cos(x)-a+b*sin(x))/sin(x))*cos(x)+2*a*atanh((-1+cos(x))/sin(x))*_ + cos(x)+b*cos(x)+b)/cos(x) --R --R --R (355) @@ -27536,7 +27597,8 @@ t0464:= csc(x)^4/(a+b*tan(x)) --E 367 --S 368 of 546 -r0464:= -(a^2+b^2)*cot(x)/a^3+1/2*b*cot(x)^2/a^2-1/3*cot(x)^3/a+b*(a^2+b^2)*log(b+a*cot(x))/a^4 +r0464:= -(a^2+b^2)*cot(x)/a^3+1/2*b*cot(x)^2/a^2-1/3*cot(x)^3/a+_ + b*(a^2+b^2)*log(b+a*cot(x))/a^4 --R --R --R (365) @@ -27783,7 +27845,8 @@ t0468:= sin(x)^4/(%i+tan(x)) --E 387 --S 388 of 546 -r0468:= -1/16*%i*x-1/16*%i*cos(x)*sin(x)+1/8*%i*cos(x)^3*sin(x)+1/6*%i*cos(x)^3*sin(x)^3+1/6*sin(x)^6 +r0468:= -1/16*%i*x-1/16*%i*cos(x)*sin(x)+1/8*%i*cos(x)^3*sin(x)+_ + 1/6*%i*cos(x)^3*sin(x)^3+1/6*sin(x)^6 --R --R --R (376) @@ -27919,7 +27982,8 @@ t0472:= cos(x)^4/(%i+tan(x)) --E 407 --S 408 of 546 -r0472:= -5/16*%i*x-1/6*cos(x)^6-5/16*%i*cos(x)*sin(x)-5/24*%i*cos(x)^3*sin(x)-1/6*%i*cos(x)^5*sin(x) +r0472:= -5/16*%i*x-1/6*cos(x)^6-5/16*%i*cos(x)*sin(x)-_ + 5/24*%i*cos(x)^3*sin(x)-1/6*%i*cos(x)^5*sin(x) --R --R --R (384) @@ -28239,7 +28303,8 @@ t0478:= cot(x)^4/(%i+tan(x)) --E 437 --S 438 of 546 -r0478:= -5/2*%i*x-2*%i*cot(x)-1/2*cot(x)^2+1/3*%i*cot(x)^3-2*log(sin(x))-%i/(2*%i+2*tan(x)) +r0478:= -5/2*%i*x-2*%i*cot(x)-1/2*cot(x)^2+1/3*%i*cot(x)^3-_ + 2*log(sin(x))-%i/(2*%i+2*tan(x)) --R --R --R (406) @@ -28629,7 +28694,8 @@ t0484:= sin(x)/(a+b*cot(x)) --E 467 --S 468 of 546 -r0484:= -b^2*atanh((a*cos(x)-b*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(3/2)-a*cos(x)/(a^2+b^2)-b*sin(x)/(a^2+b^2) +r0484:= -b^2*atanh((a*cos(x)-b*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(3/2)-_ + a*cos(x)/(a^2+b^2)-b*sin(x)/(a^2+b^2) --R --R --R +-------+ @@ -28741,7 +28807,9 @@ t0485:= sin(x)^2/(a+b*cot(x)) --E 472 --S 473 of 546 -r0485:= -1/2*(-a^3*x-3*a*b^2*x+2*b^3*log(b*cos(x)+a*sin(x))+a^3*sin(x)*cos(x)+b^2*a*sin(x)*cos(x)+a^2*b-a^2*b*cos(x)^2+b^3-b^3*cos(x)^2)/(a^2+b^2)^2 +r0485:= -1/2*(-a^3*x-3*a*b^2*x+2*b^3*log(b*cos(x)+a*sin(x))+_ + a^3*sin(x)*cos(x)+b^2*a*sin(x)*cos(x)+a^2*b-a^2*b*cos(x)^2+_ + b^3-b^3*cos(x)^2)/(a^2+b^2)^2 --R --R --R (438) @@ -28811,7 +28879,14 @@ t0486:= sin(x)^3/(a+b*cot(x)) --E 477 --S 478 of 546 -r0486:= 2/3*(-6*a^3*cos(1/2*x)^4*(a^2+b^2)^(1/2)+4*a^3*cos(1/2*x)^6*(a^2+b^2)^(1/2)+4*b*cos(1/2*x)^5*sin(1/2*x)*(a^2+b^2)^(1/2)*a^2-4*b*cos(1/2*x)^3*sin(1/2*x)*(a^2+b^2)^(1/2)*a^2-6*a*cos(1/2*x)^4*(a^2+b^2)^(1/2)*b^2+4*a*cos(1/2*x)^6*(a^2+b^2)^(1/2)*b^2-3*a*cos(1/2*x)^2*(a^2+b^2)^(1/2)*b^2-3*b^4*atanh(1/(a^2+b^2)^(1/2)*(b*cos(x)-b+a*sin(x))/sin(x))+4*b^3*cos(1/2*x)^5*sin(1/2*x)*(a^2+b^2)^(1/2)-3*b^3*cos(1/2*x)*sin(1/2*x)*(a^2+b^2)^(1/2)-4*b^3*cos(1/2*x)^3*sin(1/2*x)*(a^2+b^2)^(1/2))/(a^2+b^2)^(5/2) +r0486:= 2/3*(-6*a^3*cos(1/2*x)^4*(a^2+b^2)^(1/2)+4*a^3*cos(1/2*x)^6*_ + (a^2+b^2)^(1/2)+4*b*cos(1/2*x)^5*sin(1/2*x)*(a^2+b^2)^(1/2)*a^2-_ + 4*b*cos(1/2*x)^3*sin(1/2*x)*(a^2+b^2)^(1/2)*a^2-6*a*cos(1/2*x)^4*_ + (a^2+b^2)^(1/2)*b^2+4*a*cos(1/2*x)^6*(a^2+b^2)^(1/2)*b^2-_ + 3*a*cos(1/2*x)^2*(a^2+b^2)^(1/2)*b^2-3*b^4*atanh(1/(a^2+b^2)^(1/2)*_ + (b*cos(x)-b+a*sin(x))/sin(x))+4*b^3*cos(1/2*x)^5*sin(1/2*x)*_ + (a^2+b^2)^(1/2)-3*b^3*cos(1/2*x)*sin(1/2*x)*(a^2+b^2)^(1/2)-_ + 4*b^3*cos(1/2*x)^3*sin(1/2*x)*(a^2+b^2)^(1/2))/(a^2+b^2)^(5/2) --R --R --R (443) @@ -30146,7 +30221,8 @@ t0487:= cos(x)/(a+b*cot(x)) --E 482 --S 483 of 546 -r0487:= a*b*atanh((a*cos(x)-b*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(3/2)-b*cos(x)/(a^2+b^2)+a*sin(x)/(a^2+b^2) +r0487:= a*b*atanh((a*cos(x)-b*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(3/2)-_ + b*cos(x)/(a^2+b^2)+a*sin(x)/(a^2+b^2) --R --R --R +-------+ @@ -30256,7 +30332,9 @@ t0488:= cos(x)^2/(a+b*cot(x)) --E 487 --S 488 of 546 -r0488:= -1/2*(a*b^2*x-a^3*x+2*a^2*b*log(b*cos(x)+a*sin(x))-a^3*sin(x)*cos(x)-b^2*a*sin(x)*cos(x)-a^2*b+a^2*b*cos(x)^2-b^3+b^3*cos(x)^2)/(a^2+b^2)^2 +r0488:= -1/2*(a*b^2*x-a^3*x+2*a^2*b*log(b*cos(x)+a*sin(x))-_ + a^3*sin(x)*cos(x)-b^2*a*sin(x)*cos(x)-a^2*b+a^2*b*cos(x)^2-_ + b^3+b^3*cos(x)^2)/(a^2+b^2)^2 --R --R --R (453) @@ -30410,7 +30488,8 @@ t0490:= sec(x)/(a+b*cot(x)) --E 497 --S 498 of 546 -r0490:= atanh(sin(x))/a+b*atanh((a*cos(x)-b*sin(x))/(a^2+b^2)^(1/2))/a/(a^2+b^2)^(1/2) +r0490:= atanh(sin(x))/a+b*atanh((a*cos(x)-b*sin(x))/(a^2+b^2)^(1/2))/a/_ + (a^2+b^2)^(1/2) --R --R --R +-------+ @@ -30854,7 +30933,10 @@ t0491:= sec(x)^3/(a+b*cot(x)) --E 502 --S 503 of 546 -r0491:= (a^2+2*b^2)*atanh(tan(1/2*x))/a^3+2*b*(a^2+b^2)^(1/2)*atanh((a-b*tan(1/2*x))/(a^2+b^2)^(1/2))/a^3+1/2/a/(1-tan(1/2*x))^2-1/2*(a+2*b)/a^2/(1-tan(1/2*x))-1/2/a/(1+tan(1/2*x))^2+1/2*(a-2*b)/a^2/(1+tan(1/2*x)) +r0491:= (a^2+2*b^2)*atanh(tan(1/2*x))/a^3+2*b*(a^2+b^2)^(1/2)*_ + atanh((a-b*tan(1/2*x))/(a^2+b^2)^(1/2))/a^3+_ + 1/2/a/(1-tan(1/2*x))^2-1/2*(a+2*b)/a^2/(1-tan(1/2*x))-_ + 1/2/a/(1+tan(1/2*x))^2+1/2*(a-2*b)/a^2/(1+tan(1/2*x)) --R --R --R (468) @@ -32892,7 +32974,8 @@ t0498:= sin(x)^4/(%i+cot(x)) --E 537 --S 538 of 546 -r0498:= -5/16*%i*x+5/16*%i*cos(x)*sin(x)+5/24*%i*cos(x)*sin(x)^3+1/6*%i*cos(x)*sin(x)^5+1/6*sin(x)^6 +r0498:= -5/16*%i*x+5/16*%i*cos(x)*sin(x)+5/24*%i*cos(x)*sin(x)^3+_ + 1/6*%i*cos(x)*sin(x)^5+1/6*sin(x)^6 --R --R --R (494) diff --git a/src/input/richtrig500-599.input.pamphlet b/src/input/richtrig500-599.input.pamphlet index 503cf68..c6efa63 100644 --- a/src/input/richtrig500-599.input.pamphlet +++ b/src/input/richtrig500-599.input.pamphlet @@ -95,7 +95,8 @@ t0502:= cos(x)^4/(%i+cot(x)) --E 11 --S 12 of 586 -r0502:= -1/16*%i*x-1/6*cos(x)^6-1/16*%i*cos(x)*sin(x)-1/24*%i*cos(x)^3*sin(x)+1/6*%i*cos(x)^5*sin(x) +r0502:= -1/16*%i*x-1/6*cos(x)^6-1/16*%i*cos(x)*sin(x)-_ + 1/24*%i*cos(x)^3*sin(x)+1/6*%i*cos(x)^5*sin(x) --R --R --R (6) @@ -669,7 +670,9 @@ t0512:= sin(x)^2/(a+b*sec(x)) --E 61 --S 62 of 586 -r0512:= 1/2/a^3*(a^2*x-2*b^2*x+4*b*(a^2-b^2)^(1/2)*atanh((a-b)/(a^2-b^2)^(1/2)*(-1+cos(x))/sin(x))+2*a*b*sin(x)-cos(x)*sin(x)*a^2) +r0512:= 1/2/a^3*(a^2*x-2*b^2*x+4*b*(a^2-b^2)^(1/2)*_ + atanh((a-b)/(a^2-b^2)^(1/2)*(-1+cos(x))/sin(x))+_ + 2*a*b*sin(x)-cos(x)*sin(x)*a^2) --R --R --R (47) @@ -869,7 +872,10 @@ t0513:= sin(x)^4/(a+b*sec(x)) --E 68 --S 69 of 586 -r0513:= -5/8*x/a+1/2*b^2*x/a^3+(a^2-b^2)^2*x/a^5-2*b*(a^2-b^2)^(3/2)*atanh((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a^5+b*sin(x)/a^2-b^3*sin(x)/a^4-5/8*cos(x)*sin(x)/a+1/2*b^2*cos(x)*sin(x)/a^3+1/4*cos(x)^3*sin(x)/a+1/3*b*sin(x)^3/a^2 +r0513:= -5/8*x/a+1/2*b^2*x/a^3+(a^2-b^2)^2*x/a^5-2*b*(a^2-b^2)^(3/2)*_ + atanh((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a^5+b*sin(x)/a^2-_ + b^3*sin(x)/a^4-5/8*cos(x)*sin(x)/a+1/2*b^2*cos(x)*sin(x)/a^3+_ + 1/4*cos(x)^3*sin(x)/a+1/3*b*sin(x)^3/a^2 --R --R --R (54) @@ -1183,7 +1189,8 @@ t0514:= cos(x)/(a+b*sec(x)) --E 75 --S 76 of 586 -r0514:= -b*x/a^2+2*b^2*atanh((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a^2/(a^2-b^2)^(1/2)+sin(x)/a +r0514:= -b*x/a^2+2*b^2*atanh((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/_ + a^2/(a^2-b^2)^(1/2)+sin(x)/a --R --R --R x @@ -1376,7 +1383,8 @@ t0515:= cos(x)^2/(a+b*sec(x)) --E 82 --S 83 of 586 -r0515:= 1/2*x/a+b^2*x/a^3-2*b^3*atanh((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a^3/(a^2-b^2)^(1/2)-b*sin(x)/a^2+1/2*cos(x)*sin(x)/a +r0515:= 1/2*x/a+b^2*x/a^3-2*b^3*atanh((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/_ + a^3/(a^2-b^2)^(1/2)-b*sin(x)/a^2+1/2*cos(x)*sin(x)/a --R --R --R (68) @@ -1576,7 +1584,9 @@ t0516:= cos(x)^3/(a+b*sec(x)) --E 89 --S 90 of 586 -r0516:= -1/2*b*x/a^2-b^3*x/a^4+2*b^4*atanh((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a^4/(a^2-b^2)^(1/2)+sin(x)/a+b^2*sin(x)/a^3-1/2*b*cos(x)*sin(x)/a^2-1/3*sin(x)^3/a +r0516:= -1/2*b*x/a^2-b^3*x/a^4+2*b^4*atanh((a-b)*tan(1/2*x)/_ + (a^2-b^2)^(1/2))/a^4/(a^2-b^2)^(1/2)+sin(x)/a+_ + b^2*sin(x)/a^3-1/2*b*cos(x)*sin(x)/a^2-1/3*sin(x)^3/a --R --R --R (75) @@ -1908,7 +1918,10 @@ t0517:= cos(x)^4/(a+b*sec(x)) --E 96 --S 97 of 586 -r0517:= 3/8*x/a+1/2*b^2*x/a^3+b^4*x/a^5-2*b^5*atanh((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a^5/(a^2-b^2)^(1/2)-b*sin(x)/a^2-b^3*sin(x)/a^4+3/8*cos(x)*sin(x)/a+1/2*b^2*cos(x)*sin(x)/a^3+1/4*cos(x)^3*sin(x)/a+1/3*b*sin(x)^3/a^2 +r0517:= 3/8*x/a+1/2*b^2*x/a^3+b^4*x/a^5-2*b^5*atanh((a-b)*tan(1/2*x)/_ + (a^2-b^2)^(1/2))/a^5/(a^2-b^2)^(1/2)-b*sin(x)/a^2-b^3*sin(x)/a^4+_ + 3/8*cos(x)*sin(x)/a+1/2*b^2*cos(x)*sin(x)/a^3+1/4*cos(x)^3*_ + sin(x)/a+1/3*b*sin(x)^3/a^2 --R --R --R (82) @@ -2321,7 +2334,8 @@ t0519:= tan(x)^2/(a+b*sec(x)) --E 108 --S 109 of 586 -r0519:= 1/a/b*(-b*x+a*atanh(sin(x))+2*(a^2-b^2)^(1/2)*atanh((a-b)/(a^2-b^2)^(1/2)*(-1+cos(x))/sin(x))) +r0519:= 1/a/b*(-b*x+a*atanh(sin(x))+2*(a^2-b^2)^(1/2)*_ + atanh((a-b)/(a^2-b^2)^(1/2)*(-1+cos(x))/sin(x))) --R --R --R +---------+ @@ -2711,7 +2725,9 @@ t0520:= tan(x)^4/(a+b*sec(x)) --E 115 --S 116 of 586 -r0520:= x/a+a^2*atanh(sin(x))/b^3-3/2*atanh(sin(x))/b-2*(a^2-b^2)^(3/2)*atanh((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a/b^3-a*tan(x)/b^2+1/2*sec(x)*tan(x)/b +r0520:= x/a+a^2*atanh(sin(x))/b^3-3/2*atanh(sin(x))/b-_ + 2*(a^2-b^2)^(3/2)*atanh((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a/b^3-_ + a*tan(x)/b^2+1/2*sec(x)*tan(x)/b --R --R --R (101) @@ -4050,7 +4066,8 @@ t0521:= sec(x)^2/(a+b*sec(x)) --E 122 --S 123 of 586 -r0521:= atanh(sin(x))/b-2*a*atanh((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/b/(a^2-b^2)^(1/2) +r0521:= atanh(sin(x))/b-2*a*atanh((a-b)*_ + tan(1/2*x)/(a^2-b^2)^(1/2))/b/(a^2-b^2)^(1/2) --R --R --R x @@ -4605,7 +4622,8 @@ t0522:= sec(x)^3/(a+b*sec(x)) --E 129 --S 130 of 586 -r0522:= -a*atanh(sin(x))/b^2+2*a^2*atanh((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/b^2/(a^2-b^2)^(1/2)+tan(x)/b +r0522:= -a*atanh(sin(x))/b^2+2*a^2*atanh((a-b)*tan(1/2*x)/_ + (a^2-b^2)^(1/2))/b^2/(a^2-b^2)^(1/2)+tan(x)/b --R --R --R (115) @@ -5525,7 +5543,9 @@ t0523:= sec(x)^4/(a+b*sec(x)) --E 136 --S 137 of 586 -r0523:= a^2*atanh(sin(x))/b^3+1/2*atanh(sin(x))/b-2*a^3*atanh((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/b^3/(a^2-b^2)^(1/2)-a*tan(x)/b^2+1/2*sec(x)*tan(x)/b +r0523:= a^2*atanh(sin(x))/b^3+1/2*atanh(sin(x))/b-_ + 2*a^3*atanh((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/b^3/(a^2-b^2)^(1/2)-_ + a*tan(x)/b^2+1/2*sec(x)*tan(x)/b --R --R --R (122) @@ -7725,7 +7745,8 @@ t0534:= sin(x)/(a+b*csc(x)) --E 193 --S 194 of 586 -r0534:= -b*x/a^2-2*b^2*atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/a^2/(a^2-b^2)^(1/2)-cos(x)/a +r0534:= -b*x/a^2-2*b^2*atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/_ + a^2/(a^2-b^2)^(1/2)-cos(x)/a --R --R --R x @@ -8000,7 +8021,8 @@ t0535:= sin(x)^2/(a+b*csc(x)) --E 200 --S 201 of 586 -r0535:= 1/2*x/a+b^2*x/a^3+2*b^3*atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/a^3/(a^2-b^2)^(1/2)+b*cos(x)/a^2-1/2*cos(x)*sin(x)/a +r0535:= 1/2*x/a+b^2*x/a^3+2*b^3*atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/_ + a^3/(a^2-b^2)^(1/2)+b*cos(x)/a^2-1/2*cos(x)*sin(x)/a --R --R --R (186) @@ -8286,7 +8308,9 @@ t0536:= sin(x)^3/(a+b*csc(x)) --E 207 --S 208 of 586 -r0536:= -1/2*b*x/a^2-b^3*x/a^4-2*b^4*atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/a^4/(a^2-b^2)^(1/2)-cos(x)/a-b^2*cos(x)/a^3+1/3*cos(x)^3/a+1/2*b*cos(x)*sin(x)/a^2 +r0536:= -1/2*b*x/a^2-b^3*x/a^4-2*b^4*atanh((a+b*tan(1/2*x))/_ + (a^2-b^2)^(1/2))/a^4/(a^2-b^2)^(1/2)-cos(x)/a-b^2*cos(x)/a^3+_ + 1/3*cos(x)^3/a+1/2*b*cos(x)*sin(x)/a^2 --R --R --R (193) @@ -8590,7 +8614,10 @@ t0537:= sin(x)^4/(a+b*csc(x)) --E 214 --S 215 of 586 -r0537:= 3/8*x/a+1/2*b^2*x/a^3+b^4*x/a^5+2*b^5*atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/a^5/(a^2-b^2)^(1/2)+b*cos(x)/a^2+b^3*cos(x)/a^4-1/3*b*cos(x)^3/a^2-3/8*cos(x)*sin(x)/a-1/2*b^2*cos(x)*sin(x)/a^3-1/4*cos(x)*sin(x)^3/a +r0537:= 3/8*x/a+1/2*b^2*x/a^3+b^4*x/a^5+2*b^5*_ + atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/a^5/(a^2-b^2)^(1/2)+_ + b*cos(x)/a^2+b^3*cos(x)/a^4-1/3*b*cos(x)^3/a^2-_ + 3/8*cos(x)*sin(x)/a-1/2*b^2*cos(x)*sin(x)/a^3-1/4*cos(x)*sin(x)^3/a --R --R --R (200) @@ -9125,7 +9152,9 @@ t0538:= cos(x)^2/(a+b*csc(x)) --E 221 --S 222 of 586 -r0538:= 1/2*x/a-b^2*x/a^3+2*b*(a^2-b^2)^(1/2)*atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/a^3-b*cos(x)/a^2+1/2*cos(x)*sin(x)/a +r0538:= 1/2*x/a-b^2*x/a^3+2*b*(a^2-b^2)^(1/2)*_ + atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/a^3-_ + b*cos(x)/a^2+1/2*cos(x)*sin(x)/a --R --R --R (207) @@ -9421,7 +9450,10 @@ t0539:= cos(x)^4/(a+b*csc(x)) --E 228 --S 229 of 586 -r0539:= -5/8*x/a+1/2*b^2*x/a^3+(a^2-b^2)^2*x/a^5+2*b*(a^2-b^2)^(3/2)*atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/a^5-b*cos(x)/a^2+b^3*cos(x)/a^4-1/3*b*cos(x)^3/a^2+5/8*cos(x)*sin(x)/a-1/2*b^2*cos(x)*sin(x)/a^3-1/4*cos(x)*sin(x)^3/a +r0539:= -5/8*x/a+1/2*b^2*x/a^3+(a^2-b^2)^2*x/a^5+2*b*(a^2-b^2)^(3/2)*_ + atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/a^5-b*cos(x)/a^2+_ + b^3*cos(x)/a^4-1/3*b*cos(x)^3/a^2+5/8*cos(x)*sin(x)/a-_ + 1/2*b^2*cos(x)*sin(x)/a^3-1/4*cos(x)*sin(x)^3/a --R --R --R (214) @@ -9925,7 +9957,8 @@ t0540:= tan(x)^2/(a+b*csc(x)) --E 235 --S 236 of 586 -r0540:= -x/a+2*b^3*atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/a/(a^2-b^2)^(3/2)+1/2*cos(x)/(a+b)/(1-sin(x))-1/2*cos(x)/(a-b)/(1+sin(x)) +r0540:= -x/a+2*b^3*atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/a/(a^2-b^2)^(3/2)+_ + 1/2*cos(x)/(a+b)/(1-sin(x))-1/2*cos(x)/(a-b)/(1+sin(x)) --R --R --R (221) @@ -10966,7 +10999,11 @@ t0541:= tan(x)^4/(a+b*csc(x)) --E 242 --S 243 of 586 -r0541:= x/a+2*b^5*atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/a/(a^2-b^2)^(5/2)+1/12*cos(x)/(a+b)/(1-sin(x))^2+1/12*cos(x)/(a+b)/(1-sin(x))-1/4*(3*a+4*b)*cos(x)/(a+b)^2/(1-sin(x))-1/12*cos(x)/(a-b)/(1+sin(x))^2+1/4*(3*a-4*b)*cos(x)/(a-b)^2/(1+sin(x))-1/12*cos(x)/(a-b)/(1+sin(x)) +r0541:= x/a+2*b^5*atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/a/(a^2-b^2)^(5/2)+_ + 1/12*cos(x)/(a+b)/(1-sin(x))^2+1/12*cos(x)/(a+b)/(1-sin(x))-_ + 1/4*(3*a+4*b)*cos(x)/(a+b)^2/(1-sin(x))-_ + 1/12*cos(x)/(a-b)/(1+sin(x))^2+1/4*(3*a-4*b)*cos(x)/(a-b)^2/_ + (1+sin(x))-1/12*cos(x)/(a-b)/(1+sin(x)) --R --R --R (228) @@ -13471,7 +13508,8 @@ t0543:= cot(x)^2/(a+b*csc(x)) --E 254 --S 255 of 586 -r0543:= -x/a-atanh(cos(x))/b+2*(a^2-b^2)^(1/2)*atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/a/b +r0543:= -x/a-atanh(cos(x))/b+2*(a^2-b^2)^(1/2)*_ + atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/a/b --R --R --R x @@ -13933,7 +13971,9 @@ t0544:= cot(x)^4/(a+b*csc(x)) --E 261 --S 262 of 586 -r0544:= x/a-a^2*atanh(cos(x))/b^3+3/2*atanh(cos(x))/b+2*(a^2-b^2)^(3/2)*atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/a/b^3+a*cot(x)/b^2-1/2*cot(x)*csc(x)/b +r0544:= x/a-a^2*atanh(cos(x))/b^3+3/2*atanh(cos(x))/b+2*(a^2-b^2)^(3/2)*_ + atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/a/b^3+a*cot(x)/b^2-_ + 1/2*cot(x)*csc(x)/b --R --R --R (247) @@ -15487,7 +15527,10 @@ t0545:= sec(x)^4/(a+b*csc(x)) --E 268 --S 269 of 586 -r0545:= 2*a^3*b*atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/(a^2-b^2)^(5/2)+1/12*cos(x)/(a+b)/(1-sin(x))^2+1/4*a*cos(x)/(a+b)^2/(1-sin(x))+1/12*cos(x)/(a+b)/(1-sin(x))-1/12*cos(x)/(a-b)/(1+sin(x))^2-1/4*a*cos(x)/(a-b)^2/(1+sin(x))-1/12*cos(x)/(a-b)/(1+sin(x)) +r0545:= 2*a^3*b*atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/(a^2-b^2)^(5/2)+_ + 1/12*cos(x)/(a+b)/(1-sin(x))^2+1/4*a*cos(x)/(a+b)^2/(1-sin(x))+_ + 1/12*cos(x)/(a+b)/(1-sin(x))-1/12*cos(x)/(a-b)/(1+sin(x))^2-_ + 1/4*a*cos(x)/(a-b)^2/(1+sin(x))-1/12*cos(x)/(a-b)/(1+sin(x)) --R --R --R (254) @@ -17714,7 +17757,8 @@ t0546:= csc(x)^3/(a+b*csc(x)) --E 275 --S 276 of 586 -r0546:= a*atanh(cos(x))/b^2-2*a^2*atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/b^2/(a^2-b^2)^(1/2)-cot(x)/b +r0546:= a*atanh(cos(x))/b^2-2*a^2*atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/_ + b^2/(a^2-b^2)^(1/2)-cot(x)/b --R --R --R (261) @@ -18532,7 +18576,9 @@ t0547:= csc(x)^4/(a+b*csc(x)) --E 282 --S 283 of 586 -r0547:= -a^2*atanh(cos(x))/b^3-1/2*atanh(cos(x))/b+2*a^3*atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/b^3/(a^2-b^2)^(1/2)+a*cot(x)/b^2-1/2*cot(x)*csc(x)/b +r0547:= -a^2*atanh(cos(x))/b^3-1/2*atanh(cos(x))/b+2*a^3*_ + atanh((a+b*tan(1/2*x))/(a^2-b^2)^(1/2))/b^3/(a^2-b^2)^(1/2)+_ + a*cot(x)/b^2-1/2*cot(x)*csc(x)/b --R --R --R (268) @@ -20347,7 +20393,8 @@ t0550:= sin(x)^3/(a+a*csc(x)) --E 299 --S 300 of 586 -r0550:= 1/6*(2*cos(x)^4+3*sin(x)*cos(x)^2-12*cos(x)^2-9*x*cos(x)-6+6*sin(x))/a/cos(x) +r0550:= 1/6*(2*cos(x)^4+3*sin(x)*cos(x)^2-12*cos(x)^2-_ + 9*x*cos(x)-6+6*sin(x))/a/cos(x) --R --R --R 2 4 2 @@ -21582,7 +21629,8 @@ t0564:= sin(x)/(a+b*sin(x))^2 --E 369 --S 370 of 586 -r0564:= -2*b*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/(a^2-b^2)^(3/2)-a*cos(x)/(a^2-b^2)/(a+b*sin(x)) +r0564:= -2*b*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/(a^2-b^2)^(3/2)-_ + a*cos(x)/(a^2-b^2)/(a+b*sin(x)) --R --R --R x @@ -21880,7 +21928,9 @@ t0565:= sin(x)^2/(a+b*sin(x))^2 --E 376 --S 377 of 586 -r0565:= x/b^2+2*a^3*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^2/(a^2-b^2)^(3/2)-4*a*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^2/(a^2-b^2)^(1/2)+a^2*cos(x)/b/(a^2-b^2)/(a+b*sin(x)) +r0565:= x/b^2+2*a^3*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^2/_ + (a^2-b^2)^(3/2)-4*a*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/_ + b^2/(a^2-b^2)^(1/2)+a^2*cos(x)/b/(a^2-b^2)/(a+b*sin(x)) --R --R --R (362) @@ -22222,7 +22272,9 @@ t0566:= sin(x)^3/(a+b*sin(x))^2 --E 383 --S 384 of 586 -r0566:= -2*a*x/b^3-2*a^4*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^3/(a^2-b^2)^(3/2)+6*a^2*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^3/(a^2-b^2)^(1/2)-cos(x)/b^2-a^3*cos(x)/b^2/(a^2-b^2)/(a+b*sin(x)) +r0566:= -2*a*x/b^3-2*a^4*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^3/_ + (a^2-b^2)^(3/2)+6*a^2*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/_ + b^3/(a^2-b^2)^(1/2)-cos(x)/b^2-a^3*cos(x)/b^2/(a^2-b^2)/(a+b*sin(x)) --R --R --R (369) @@ -22583,7 +22635,10 @@ t0567:= sin(x)^4/(a+b*sin(x))^2 --E 390 --S 391 of 586 -r0567:= 3*a^2*x/b^4+1/2*x/b^2+2*a^5*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^4/(a^2-b^2)^(3/2)-8*a^3*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^4/(a^2-b^2)^(1/2)+2*a*cos(x)/b^3-1/2*cos(x)*sin(x)/b^2+a^4*cos(x)/b^3/(a^2-b^2)/(a+b*sin(x)) +r0567:= 3*a^2*x/b^4+1/2*x/b^2+2*a^5*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/_ + b^4/(a^2-b^2)^(3/2)-8*a^3*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/_ + b^4/(a^2-b^2)^(1/2)+2*a*cos(x)/b^3-1/2*cos(x)*sin(x)/b^2+_ + a^4*cos(x)/b^3/(a^2-b^2)/(a+b*sin(x)) --R --R --R (376) @@ -23536,7 +23591,8 @@ t0569:= sin(x)^3/(a+a*sin(x))^2 --E 402 --S 403 of 586 -r0569:= -2*x/a^2-cos(x)/a^2+1/3*cos(x)/a^2/(1+sin(x))^2-8/3*cos(x)/a^2/(1+sin(x)) +r0569:= -2*x/a^2-cos(x)/a^2+1/3*cos(x)/a^2/(1+sin(x))^2-_ + 8/3*cos(x)/a^2/(1+sin(x)) --R --R --R 2 @@ -23644,7 +23700,8 @@ t0570:= cos(x)^2/(a+b*sin(x))^2 --E 407 --S 408 of 586 -r0570:= -x/b^2+2*a*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^2/(a^2-b^2)^(1/2)-cos(x)/b/(a+b*sin(x)) +r0570:= -x/b^2+2*a*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^2/_ + (a^2-b^2)^(1/2)-cos(x)/b/(a+b*sin(x)) --R --R --R (393) @@ -23932,7 +23989,9 @@ t0571:= cos(x)^4/(a+b*sin(x))^2 --E 414 --S 415 of 586 -r0571:= 3*a^2*x/b^4-3/2*x/b^2-6*a*(a^2-b^2)^(1/2)*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^4+2*a*cos(x)/b^3-1/2*cos(x)*sin(x)/b^2+(a^2-b^2)*cos(x)/b^3/(a+b*sin(x)) +r0571:= 3*a^2*x/b^4-3/2*x/b^2-6*a*(a^2-b^2)^(1/2)*_ + atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^4+_ + 2*a*cos(x)/b^3-1/2*cos(x)*sin(x)/b^2+(a^2-b^2)*cos(x)/b^3/(a+b*sin(x)) --R --R --R (400) @@ -24641,7 +24700,10 @@ t0574:= tan(x)^2/(a+b*sin(x))^2 --E 431 --S 432 of 586 -r0574:= -2*a^3*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/(a^2-b^2)^(5/2)-4*a*b^2*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/(a^2-b^2)^(5/2)+1/2*cos(x)/(a+b)^2/(1-sin(x))-1/2*cos(x)/(a-b)^2/(1+sin(x))-a^2*b*cos(x)/(a^2-b^2)^2/(a+b*sin(x)) +r0574:= -2*a^3*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/(a^2-b^2)^(5/2)-_ + 4*a*b^2*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/(a^2-b^2)^(5/2)+_ + 1/2*cos(x)/(a+b)^2/(1-sin(x))-1/2*cos(x)/(a-b)^2/(1+sin(x))-_ + a^2*b*cos(x)/(a^2-b^2)^2/(a+b*sin(x)) --R --R --R (417) @@ -26596,7 +26658,8 @@ t0576:= tan(x)^2/(a+a*sin(x))^2 --E 443 --S 444 of 586 -r0576:= 1/15/cos(x)^5/a^2*(cos(x)^4*sin(x)-7*sin(x)*cos(x)^2+6*sin(x)-6+10*cos(x)^2) +r0576:= 1/15/cos(x)^5/a^2*(cos(x)^4*sin(x)-_ + 7*sin(x)*cos(x)^2+6*sin(x)-6+10*cos(x)^2) --R --R --R 4 2 2 @@ -26676,7 +26739,9 @@ t0577:= cot(x)^2/(a+b*sin(x))^2 --E 448 --S 449 of 586 -r0577:= -2*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/a/(a^2-b^2)^(1/2)+4*b^2*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/a^3/(a^2-b^2)^(1/2)+2*b*atanh(cos(x))/a^3-cot(x)/a^2-b*cos(x)/a^2/(a+b*sin(x)) +r0577:= -2*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/a/(a^2-b^2)^(1/2)+_ + 4*b^2*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/a^3/(a^2-b^2)^(1/2)+_ + 2*b*atanh(cos(x))/a^3-cot(x)/a^2-b*cos(x)/a^2/(a+b*sin(x)) --R --R --R (434) @@ -29793,7 +29858,9 @@ t0579:= sec(x)^2/(a+b*sin(x))^2 --E 460 --S 461 of 586 -r0579:= -6*a*b^2*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/(a^2-b^2)^(5/2)+1/2*cos(x)/(a+b)^2/(1-sin(x))-1/2*cos(x)/(a-b)^2/(1+sin(x))-b^3*cos(x)/(a^2-b^2)^2/(a+b*sin(x)) +r0579:= -6*a*b^2*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/(a^2-b^2)^(5/2)+_ + 1/2*cos(x)/(a+b)^2/(1-sin(x))-1/2*cos(x)/(a-b)^2/(1+sin(x))-_ + b^3*cos(x)/(a^2-b^2)^2/(a+b*sin(x)) --R --R --R (446) @@ -31829,7 +31896,8 @@ t0582:= sec(x)^3/(a+a*sin(x))^2 --E 477 --S 478 of 586 -r0582:= 1/12/cos(x)^6*(3*cos(x)^6*atanh(sin(x))-4+4*sin(x)+2*sin(x)*cos(x)^2+3*cos(x)^4*sin(x))/a^2 +r0582:= 1/12/cos(x)^6*(3*cos(x)^6*atanh(sin(x))-_ + 4+4*sin(x)+2*sin(x)*cos(x)^2+3*cos(x)^4*sin(x))/a^2 --R --R --R 6 4 2 @@ -32010,7 +32078,9 @@ t0583:= csc(x)/(a+b*sin(x))^2 --E 482 --S 483 of 586 -r0583:= -2*b*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/(a^2-b^2)^(3/2)-2*b*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/a^2/(a^2-b^2)^(1/2)-atanh(cos(x))/a^2-b^2*cos(x)/a/(a^2-b^2)/(a+b*sin(x)) +r0583:= -2*b*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/(a^2-b^2)^(3/2)-_ + 2*b*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/a^2/(a^2-b^2)^(1/2)-_ + atanh(cos(x))/a^2-b^2*cos(x)/a/(a^2-b^2)/(a+b*sin(x)) --R --R --R (468) @@ -32696,7 +32766,9 @@ t0584:= csc(x)^2/(a+b*sin(x))^2 --E 489 --S 490 of 586 -r0584:= 2*b^2*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/a/(a^2-b^2)^(3/2)+4*b^2*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/a^3/(a^2-b^2)^(1/2)+2*b*atanh(cos(x))/a^3-cot(x)/a^2+b^3*cos(x)/a^2/(a^2-b^2)/(a+b*sin(x)) +r0584:= 2*b^2*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/a/(a^2-b^2)^(3/2)+_ + 4*b^2*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/a^3/(a^2-b^2)^(1/2)+_ + 2*b*atanh(cos(x))/a^3-cot(x)/a^2+b^3*cos(x)/a^2/(a^2-b^2)/(a+b*sin(x)) --R --R --R (475) @@ -36436,7 +36508,10 @@ t0585:= csc(x)^3/(a+b*sin(x))^2 --E 496 --S 497 of 586 -r0585:= -2*b^3*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/a^2/(a^2-b^2)^(3/2)-6*b^3*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/a^4/(a^2-b^2)^(1/2)-1/2*atanh(cos(x))/a^2-3*b^2*atanh(cos(x))/a^4+2*b*cot(x)/a^3-1/2*cot(x)*csc(x)/a^2-b^4*cos(x)/a^3/(a^2-b^2)/(a+b*sin(x)) +r0585:= -2*b^3*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/a^2/(a^2-b^2)^(3/2)-_ + 6*b^3*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/a^4/(a^2-b^2)^(1/2)-_ + 1/2*atanh(cos(x))/a^2-3*b^2*atanh(cos(x))/a^4+2*b*cot(x)/a^3-_ + 1/2*cot(x)*csc(x)/a^2-b^4*cos(x)/a^3/(a^2-b^2)/(a+b*sin(x)) --R --R --R (482) @@ -39928,7 +40003,8 @@ t0586:= csc(x)/(a+a*sin(x))^2 --E 503 --S 504 of 586 -r0586:= -atanh(cos(x))/a^2+1/3*cos(x)/a^2/(1+sin(x))^2+4/3*cos(x)/a^2/(1+sin(x)) +r0586:= -atanh(cos(x))/a^2+1/3*cos(x)/a^2/(1+sin(x))^2+_ + 4/3*cos(x)/a^2/(1+sin(x)) --R --R --R 2 @@ -40107,7 +40183,8 @@ t0587:= csc(x)^2/(a+a*sin(x))^2 --E 508 --S 509 of 586 -r0587:= 2*atanh(cos(x))/a^2-cot(x)/a^2-1/3*cos(x)/a^2/(1+sin(x))^2-7/3*cos(x)/a^2/(1+sin(x)) +r0587:= 2*atanh(cos(x))/a^2-cot(x)/a^2-1/3*cos(x)/a^2/(1+sin(x))^2-_ + 7/3*cos(x)/a^2/(1+sin(x)) --R --R --R (494) @@ -40389,7 +40466,8 @@ t0588:= csc(x)^3/(a+a*sin(x))^2 --E 513 --S 514 of 586 -r0588:= -7/2*atanh(cos(x))/a^2+2*cot(x)/a^2-1/2*cot(x)*csc(x)/a^2+1/3*cos(x)/a^2/(1+sin(x))^2+10/3*cos(x)/a^2/(1+sin(x)) +r0588:= -7/2*atanh(cos(x))/a^2+2*cot(x)/a^2-1/2*cot(x)*csc(x)/a^2+_ + 1/3*cos(x)/a^2/(1+sin(x))^2+10/3*cos(x)/a^2/(1+sin(x)) --R --R --R (499) @@ -41288,7 +41366,8 @@ t0592:= cos(x)^4/(a+b*sin(x)^2) --E 537 --S 538 of 586 -r0592:= -a*x/b^2-3/2*x/b+(a+b)^(3/2)*atan((a+b)^(1/2)*tan(x)/a^(1/2))/a^(1/2)/b^2-1/2*cos(x)*sin(x)/b +r0592:= -a*x/b^2-3/2*x/b+(a+b)^(3/2)*atan((a+b)^(1/2)*tan(x)/a^(1/2))/_ + a^(1/2)/b^2-1/2*cos(x)*sin(x)/b --R --R --R (523) @@ -41497,7 +41576,8 @@ t0593:= cos(x)^5/(a+b*sin(x)^2) --E 544 --S 545 of 586 -r0593:= (a+b)^2*atan(b^(1/2)*sin(x)/a^(1/2))/a^(1/2)/b^(5/2)-a*sin(x)/b^2-2*sin(x)/b+1/3*sin(x)^3/b +r0593:= (a+b)^2*atan(b^(1/2)*sin(x)/a^(1/2))/a^(1/2)/b^(5/2)-_ + a*sin(x)/b^2-2*sin(x)/b+1/3*sin(x)^3/b --R --R --R (530) @@ -41828,7 +41908,9 @@ t0594:= cos(x)^6/(a+b*sin(x)^2) --E 551 --S 552 of 586 -r0594:= -1/2*a*x/b^2-7/8*x/b-(a+b)^2*x/b^3+(a+b)^(5/2)*atan((a+b)^(1/2)*tan(x)/a^(1/2))/a^(1/2)/b^3-1/2*a*cos(x)*sin(x)/b^2-7/8*cos(x)*sin(x)/b-1/4*cos(x)^3*sin(x)/b +r0594:= -1/2*a*x/b^2-7/8*x/b-(a+b)^2*x/b^3+(a+b)^(5/2)*atan((a+b)^(1/2)*_ + tan(x)/a^(1/2))/a^(1/2)/b^3-1/2*a*cos(x)*sin(x)/b^2-_ + 7/8*cos(x)*sin(x)/b-1/4*cos(x)^3*sin(x)/b --R --R --R (537) @@ -42060,7 +42142,9 @@ t0595:= cos(x)^7/(a+b*sin(x)^2) --E 558 --S 559 of 586 -r0595:= (a+b)^3*atan(b^(1/2)*sin(x)/a^(1/2))/a^(1/2)/b^(7/2)-a*sin(x)/b^2-2*sin(x)/b-(a+b)^2*sin(x)/b^3+1/3*a*sin(x)^3/b^2+sin(x)^3/b-1/5*sin(x)^5/b +r0595:= (a+b)^3*atan(b^(1/2)*sin(x)/a^(1/2))/a^(1/2)/b^(7/2)-_ + a*sin(x)/b^2-2*sin(x)/b-(a+b)^2*sin(x)/b^3+_ + 1/3*a*sin(x)^3/b^2+sin(x)^3/b-1/5*sin(x)^5/b --R --R --R (544) diff --git a/src/input/richtrig600-699.input.pamphlet b/src/input/richtrig600-699.input.pamphlet index 69be01f..2f80d8b 100644 --- a/src/input/richtrig600-699.input.pamphlet +++ b/src/input/richtrig600-699.input.pamphlet @@ -152,7 +152,8 @@ t0601:= sin(x)^4/(a+b*cos(x)^2) --E 8 --S 9 of 534 -r0601:= -a*x/b^2-3/2*x/b+(a+b)^(3/2)*atan(a^(1/2)*tan(x)/(a+b)^(1/2))/a^(1/2)/b^2+1/2*cos(x)*sin(x)/b +r0601:= -a*x/b^2-3/2*x/b+(a+b)^(3/2)*atan(a^(1/2)*tan(x)/(a+b)^(1/2))/_ + a^(1/2)/b^2+1/2*cos(x)*sin(x)/b --R --R --R (9) @@ -330,7 +331,8 @@ t0602:= sin(x)^5/(a+b*cos(x)^2) --E 15 --S 16 of 534 -r0602:= -(a+b)^2*atan(b^(1/2)*cos(x)/a^(1/2))/a^(1/2)/b^(5/2)+a*cos(x)/b^2+2*cos(x)/b-1/3*cos(x)^3/b +r0602:= -(a+b)^2*atan(b^(1/2)*cos(x)/a^(1/2))/a^(1/2)/b^(5/2)+_ + a*cos(x)/b^2+2*cos(x)/b-1/3*cos(x)^3/b --R --R --R (16) @@ -467,7 +469,9 @@ t0603:= sin(x)^6/(a+b*cos(x)^2) --E 22 --S 23 of 534 -r0603:= -1/2*a*x/b^2-7/8*x/b-(a+b)^2*x/b^3+(a+b)^(5/2)*atan(a^(1/2)*tan(x)/(a+b)^(1/2))/a^(1/2)/b^3+1/2*a*cos(x)*sin(x)/b^2+7/8*cos(x)*sin(x)/b+1/4*cos(x)*sin(x)^3/b +r0603:= -1/2*a*x/b^2-7/8*x/b-(a+b)^2*x/b^3+(a+b)^(5/2)*atan(a^(1/2)*_ + tan(x)/(a+b)^(1/2))/a^(1/2)/b^3+1/2*a*cos(x)*sin(x)/b^2+_ + 7/8*cos(x)*sin(x)/b+1/4*cos(x)*sin(x)^3/b --R --R --R (23) @@ -755,7 +759,9 @@ t0604:= sin(x)^7/(a+b*cos(x)^2) --E 29 --S 30 of 534 -r0604:= -(a+b)^3*atan(b^(1/2)*cos(x)/a^(1/2))/a^(1/2)/b^(7/2)+a*cos(x)/b^2+2*cos(x)/b+(a+b)^2*cos(x)/b^3-1/3*a*cos(x)^3/b^2-cos(x)^3/b+1/5*cos(x)^5/b +r0604:= -(a+b)^3*atan(b^(1/2)*cos(x)/a^(1/2))/a^(1/2)/b^(7/2)+_ + a*cos(x)/b^2+2*cos(x)/b+(a+b)^2*cos(x)/b^3-1/3*a*cos(x)^3/b^2-_ + cos(x)^3/b+1/5*cos(x)^5/b --R --R --R (30) @@ -1112,7 +1118,8 @@ t0609:= cos(a+b*x)^5*sin(a+b*x)^n --E 56 --S 57 of 534 -r0609:= sin(a+b*x)^(1+n)/b/(1+n)-2*sin(a+b*x)^(3+n)/b/(3+n)+sin(a+b*x)^(5+n)/b/(5+n) +r0609:= sin(a+b*x)^(1+n)/b/(1+n)-2*sin(a+b*x)^(3+n)/b/(3+n)+_ + sin(a+b*x)^(5+n)/b/(5+n) --R --R --R (57) @@ -1265,7 +1272,8 @@ t0611:= cos(a+b*x)^m*sin(a+b*x)^5 --E 66 --S 67 of 534 -r0611:= -cos(a+b*x)^(1+m)/b/(1+m)+2*cos(a+b*x)^(3+m)/b/(3+m)-cos(a+b*x)^(5+m)/b/(5+m) +r0611:= -cos(a+b*x)^(1+m)/b/(1+m)+2*cos(a+b*x)^(3+m)/b/(3+m)-_ + cos(a+b*x)^(5+m)/b/(5+m) --R --R --R (67) @@ -2280,7 +2288,8 @@ t0623:= sec(1/2*x)^3*tan(1/2*x)^2 --E 126 --S 127 of 534 -r0623:= -1/4*atanh(sin(1/2*x))+1/4*sec(1/2*x)*tan(1/2*x)+1/2*sec(1/2*x)*tan(1/2*x)^3 +r0623:= -1/4*atanh(sin(1/2*x))+1/4*sec(1/2*x)*tan(1/2*x)+_ + 1/2*sec(1/2*x)*tan(1/2*x)^3 --R --R --R x x x 3 x x @@ -2664,7 +2673,8 @@ t0627:= cot(a+b*x)^2*csc(a+b*x)^3 --E 146 --S 147 of 534 -r0627:= 1/8*atanh(cos(a+b*x))/b-1/8*cot(a+b*x)*csc(a+b*x)/b-1/4*cot(a+b*x)^3*csc(a+b*x)/b +r0627:= 1/8*atanh(cos(a+b*x))/b-1/8*cot(a+b*x)*csc(a+b*x)/b-_ + 1/4*cot(a+b*x)^3*csc(a+b*x)/b --R --R --R 3 @@ -2767,7 +2777,8 @@ t0628:= cot(a+b*x)^4*csc(a+b*x) --E 151 --S 152 of 534 -r0628:= -3/8*atanh(cos(a+b*x))/b+3/8*cot(a+b*x)*csc(a+b*x)/b-1/4*cot(a+b*x)^3*csc(a+b*x)/b +r0628:= -3/8*atanh(cos(a+b*x))/b+3/8*cot(a+b*x)*csc(a+b*x)/b-_ + 1/4*cot(a+b*x)^3*csc(a+b*x)/b --R --R --R (152) @@ -2950,7 +2961,8 @@ t0630:= cot(x)^4*csc(x)^3 --E 161 --S 162 of 534 -r0630:= -1/16*atanh(cos(x))+1/16*cot(x)*csc(x)-1/24*cot(x)^3*csc(x)-1/6*cot(x)^5*csc(x) +r0630:= -1/16*atanh(cos(x))+1/16*cot(x)*csc(x)-_ + 1/24*cot(x)^3*csc(x)-1/6*cot(x)^5*csc(x) --R --R --R 5 3 @@ -3124,7 +3136,10 @@ t0633:= sin(x)^(1/2)/cos(x)^(1/2) --E 176 --S 177 of 534 -r0633:= -1/2*atan(1-2^(1/2)*sin(x)^(1/2)/cos(x)^(1/2))*2^(1/2)+1/2*atan(1+2^(1/2)*sin(x)^(1/2)/cos(x)^(1/2))*2^(1/2)+1/4*log(1-2^(1/2)*sin(x)^(1/2)/cos(x)^(1/2)+tan(x))*2^(1/2)-1/4*log(1+2^(1/2)*sin(x)^(1/2)/cos(x)^(1/2)+tan(x))*2^(1/2) +r0633:= -1/2*atan(1-2^(1/2)*sin(x)^(1/2)/cos(x)^(1/2))*2^(1/2)+_ + 1/2*atan(1+2^(1/2)*sin(x)^(1/2)/cos(x)^(1/2))*2^(1/2)+_ + 1/4*log(1-2^(1/2)*sin(x)^(1/2)/cos(x)^(1/2)+tan(x))*2^(1/2)-_ + 1/4*log(1+2^(1/2)*sin(x)^(1/2)/cos(x)^(1/2)+tan(x))*2^(1/2) --R --R --R (171) @@ -3229,7 +3244,11 @@ t0634:= sin(x)^(5/2)/cos(x)^(1/2) --E 181 --S 182 of 534 -r0634:= -3/8*atan(1-2^(1/2)*sin(x)^(1/2)/cos(x)^(1/2))*2^(1/2)+3/8*atan(1+2^(1/2)*sin(x)^(1/2)/cos(x)^(1/2))*2^(1/2)+3/16*log(1-2^(1/2)*sin(x)^(1/2)/cos(x)^(1/2)+tan(x))*2^(1/2)-3/16*log(1+2^(1/2)*sin(x)^(1/2)/cos(x)^(1/2)+tan(x))*2^(1/2)-1/2*cos(x)^(1/2)*sin(x)^(3/2) +r0634:= -3/8*atan(1-2^(1/2)*sin(x)^(1/2)/cos(x)^(1/2))*2^(1/2)+_ + 3/8*atan(1+2^(1/2)*sin(x)^(1/2)/cos(x)^(1/2))*2^(1/2)+_ + 3/16*log(1-2^(1/2)*sin(x)^(1/2)/cos(x)^(1/2)+tan(x))*2^(1/2)-_ + 3/16*log(1+2^(1/2)*sin(x)^(1/2)/cos(x)^(1/2)+tan(x))*2^(1/2)-_ + 1/2*cos(x)^(1/2)*sin(x)^(3/2) --R --R --R (175) @@ -3693,7 +3712,8 @@ t0640:= x^2*sin(a+b*x)^2*cos(a+b*x)^2 --E 211 --S 212 of 534 -r0640:= -1/768*(-32*b^3*x^3+12*b*x*cos(4*a+4*b*x)-3*sin(4*a+4*b*x)+24*x^2*sin(4*a+4*b*x)*b^2)/b^3 +r0640:= -1/768*(-32*b^3*x^3+12*b*x*cos(4*a+4*b*x)-3*sin(4*a+4*b*x)+_ + 24*x^2*sin(4*a+4*b*x)*b^2)/b^3 --R --R --R 2 2 3 3 @@ -3768,7 +3788,8 @@ t0641:= x^3*sin(a+b*x)^2*cos(a+b*x)^2 --E 216 --S 217 of 534 -r0641:= -1/1024*(-32*x^4*b^4-3*cos(4*a+4*b*x)+24*b^2*x^2*cos(4*a+4*b*x)-12*x*sin(4*a+4*b*x)*b+32*x^3*sin(4*a+4*b*x)*b^3)/b^4 +r0641:= -1/1024*(-32*x^4*b^4-3*cos(4*a+4*b*x)+24*b^2*x^2*cos(4*a+4*b*x)-_ + 12*x*sin(4*a+4*b*x)*b+32*x^3*sin(4*a+4*b*x)*b^3)/b^4 --R --R --R (209) @@ -3970,7 +3991,9 @@ t0643:= x^2*sec(a+b*x)*tan(a+b*x) --E 226 --S 227 of 534 -r0643:= 4*%i*x*atan(exp(1)^(%i*b*x+%i*a))/b^2-2*%i*polylog(2,-%i*exp(1)^(%i*b*x+%i*a))/b^3+2*%i*polylog(2,%i*exp(1)^(%i*b*x+%i*a))/b^3+x^2*sec(a+b*x)/b +r0643:= 4*%i*x*atan(exp(1)^(%i*b*x+%i*a))/b^2-_ + 2*%i*polylog(2,-%i*exp(1)^(%i*b*x+%i*a))/b^3+_ + 2*%i*polylog(2,%i*exp(1)^(%i*b*x+%i*a))/b^3+x^2*sec(a+b*x)/b --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -4028,7 +4051,11 @@ t0644:= x^3*sec(a+b*x)*tan(a+b*x) --E 231 --S 232 of 534 -r0644:= 6*%i*x^2*atan(exp(1)^(%i*b*x+%i*a))/b^2-6*%i*x*polylog(2,-%i*exp(1)^(%i*b*x+%i*a))/b^3+6*%i*x*polylog(2,%i*exp(1)^(%i*b*x+%i*a))/b^3+6*polylog(3,-%i*exp(1)^(%i*b*x+%i*a))/b^4-6*polylog(3,%i*exp(1)^(%i*b*x+%i*a))/b^4+x^3*sec(a+b*x)/b +r0644:= 6*%i*x^2*atan(exp(1)^(%i*b*x+%i*a))/b^2-_ + 6*%i*x*polylog(2,-%i*exp(1)^(%i*b*x+%i*a))/b^3+_ + 6*%i*x*polylog(2,%i*exp(1)^(%i*b*x+%i*a))/b^3+_ + 6*polylog(3,-%i*exp(1)^(%i*b*x+%i*a))/b^4-_ + 6*polylog(3,%i*exp(1)^(%i*b*x+%i*a))/b^4+x^3*sec(a+b*x)/b --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -4086,7 +4113,9 @@ t0645:= x^3*sec(a+b*x)^2*tan(a+b*x) --E 236 --S 237 of 534 -r0645:= 3/2*%i*x^2/b^2-3*x*log(1+exp(1)^(2*%i*a+2*%i*b*x))/b^3+3/2*%i*polylog(2,-exp(1)^(2*%i*a+2*%i*b*x))/b^4+1/2*x^3*sec(a+b*x)^2/b-3/2*x^2*tan(a+b*x)/b^2 +r0645:= 3/2*%i*x^2/b^2-3*x*log(1+exp(1)^(2*%i*a+2*%i*b*x))/b^3+_ + 3/2*%i*polylog(2,-exp(1)^(2*%i*a+2*%i*b*x))/b^4+_ + 1/2*x^3*sec(a+b*x)^2/b-3/2*x^2*tan(a+b*x)/b^2 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -4217,7 +4246,9 @@ t0647:= x^2*csc(a+b*x)*cot(a+b*x) --E 246 --S 247 of 534 -r0647:= -4*x*atanh(exp(1)^(%i*b*x+%i*a))/b^2-x^2*csc(a+b*x)/b+2*%i*polylog(2,-exp(1)^(%i*b*x+%i*a))/b^3-2*%i*polylog(2,exp(1)^(%i*b*x+%i*a))/b^3 +r0647:= -4*x*atanh(exp(1)^(%i*b*x+%i*a))/b^2-x^2*csc(a+b*x)/b+_ + 2*%i*polylog(2,-exp(1)^(%i*b*x+%i*a))/b^3-_ + 2*%i*polylog(2,exp(1)^(%i*b*x+%i*a))/b^3 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -4275,7 +4306,11 @@ t0648:= x^3*csc(a+b*x)*cot(a+b*x) --E 251 --S 252 of 534 -r0648:= -6*x^2*atanh(exp(1)^(%i*b*x+%i*a))/b^2-x^3*csc(a+b*x)/b+6*%i*x*polylog(2,-exp(1)^(%i*b*x+%i*a))/b^3-6*%i*x*polylog(2,exp(1)^(%i*b*x+%i*a))/b^3-6*polylog(3,-exp(1)^(%i*b*x+%i*a))/b^4+6*polylog(3,exp(1)^(%i*b*x+%i*a))/b^4 +r0648:= -6*x^2*atanh(exp(1)^(%i*b*x+%i*a))/b^2-x^3*csc(a+b*x)/b+_ + 6*%i*x*polylog(2,-exp(1)^(%i*b*x+%i*a))/b^3-_ + 6*%i*x*polylog(2,exp(1)^(%i*b*x+%i*a))/b^3-_ + 6*polylog(3,-exp(1)^(%i*b*x+%i*a))/b^4+_ + 6*polylog(3,exp(1)^(%i*b*x+%i*a))/b^4 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -4333,7 +4368,9 @@ t0649:= x^3*csc(a+b*x)^2*cot(a+b*x) --E 256 --S 257 of 534 -r0649:= -3/2*%i*x^2/b^2-3/2*x^2*cot(a+b*x)/b^2-1/2*x^3*csc(a+b*x)^2/b+3*x*log(1-exp(1)^(2*%i*a+2*%i*b*x))/b^3-3/2*%i*polylog(2,exp(1)^(2*%i*a+2*%i*b*x))/b^4 +r0649:= -3/2*%i*x^2/b^2-3/2*x^2*cot(a+b*x)/b^2-1/2*x^3*csc(a+b*x)^2/b+_ + 3*x*log(1-exp(1)^(2*%i*a+2*%i*b*x))/b^3-_ + 3/2*%i*polylog(2,exp(1)^(2*%i*a+2*%i*b*x))/b^4 --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -4390,7 +4427,8 @@ t0650:= x*csc(x)*sec(x) --E 261 --S 262 of 534 -r0650:= -2*x*atanh(exp(2*%i*x))+1/2*%i*polylog(2,-exp(2*%i*x))-1/2*%i*polylog(2,exp(2*%i*x)) +r0650:= -2*x*atanh(exp(2*%i*x))+1/2*%i*polylog(2,-exp(2*%i*x))-_ + 1/2*%i*polylog(2,exp(2*%i*x)) --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -4447,7 +4485,8 @@ t0651:= x*csc(x)*sec(x)^2 --E 266 --S 267 of 534 -r0651:= -2*atanh(tan(1/2*x))+x*log(1-exp(1)^(%i*x))-x*log(1+exp(1)^(%i*x))+%i*polylog(2,-exp(1)^(%i*x))-%i*polylog(2,exp(1)^(%i*x))+x*sec(x) +r0651:= -2*atanh(tan(1/2*x))+x*log(1-exp(1)^(%i*x))-x*log(1+exp(1)^(%i*x))+_ + %i*polylog(2,-exp(1)^(%i*x))-%i*polylog(2,exp(1)^(%i*x))+x*sec(x) --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -4505,7 +4544,10 @@ t0652:= x*csc(x)*sec(x)^3 --E 271 --S 272 of 534 -r0652:= x*log(1-exp(1)^(2*%i*x))-x*log(1+exp(1)^(2*%i*x))+1/2*%i*polylog(2,-exp(1)^(2*%i*x))-1/2*%i*polylog(2,exp(1)^(2*%i*x))+1/2*x*sec(x)^2-1/2*tan(x) +r0652:= x*log(1-exp(1)^(2*%i*x))-x*log(1+exp(1)^(2*%i*x))+_ + 1/2*%i*polylog(2,-exp(1)^(2*%i*x))-_ + 1/2*%i*polylog(2,exp(1)^(2*%i*x))+_ + 1/2*x*sec(x)^2-1/2*tan(x) --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -4563,7 +4605,8 @@ t0653:= x*sin(a+b*x)*cos(a+b*x)^(3/2) --E 276 --S 277 of 534 -r0653:= -2/25*(5*x*cos(a+b*x)^(5/2)*b-6*EllipticE(1/2*a+1/2*b*x,2)-2*cos(a+b*x)^(3/2)*sin(a+b*x))/b^2 +r0653:= -2/25*(5*x*cos(a+b*x)^(5/2)*b-_ + 6*EllipticE(1/2*a+1/2*b*x,2)-2*cos(a+b*x)^(3/2)*sin(a+b*x))/b^2 --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -4617,7 +4660,8 @@ t0654:= x*sin(a+b*x)*cos(a+b*x)^(1/2) --E 281 --S 282 of 534 -r0654:= -2/9*(3*x*cos(a+b*x)^(3/2)*b-2*EllipticF(1/2*a+1/2*b*x,2)-2*cos(a+b*x)^(1/2)*sin(a+b*x))/b^2 +r0654:= -2/9*(3*x*cos(a+b*x)^(3/2)*b-_ + 2*EllipticF(1/2*a+1/2*b*x,2)-2*cos(a+b*x)^(1/2)*sin(a+b*x))/b^2 --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -4785,7 +4829,8 @@ t0657:= x*sin(a+b*x)/cos(a+b*x)^(5/2) --E 296 --S 297 of 534 -r0657:= 2/3*(b*x+2*EllipticE(1/2*a+1/2*b*x,2)*cos(a+b*x)^(3/2)-2*cos(a+b*x)*sin(a+b*x))/b^2/cos(a+b*x)^(3/2) +r0657:= 2/3*(b*x+2*EllipticE(1/2*a+1/2*b*x,2)*cos(a+b*x)^(3/2)-_ + 2*cos(a+b*x)*sin(a+b*x))/b^2/cos(a+b*x)^(3/2) --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -4839,7 +4884,8 @@ t0658:= x*cos(a+b*x)*sin(a+b*x)^(3/2) --E 301 --S 302 of 534 -r0658:= -2/25*(6*EllipticE(1/2*a-1/4*%pi+1/2*b*x,2)-2*cos(a+b*x)*sin(a+b*x)^(3/2)-5*x*sin(a+b*x)^(5/2)*b)/b^2 +r0658:= -2/25*(6*EllipticE(1/2*a-1/4*%pi+1/2*b*x,2)-_ + 2*cos(a+b*x)*sin(a+b*x)^(3/2)-5*x*sin(a+b*x)^(5/2)*b)/b^2 --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -4893,7 +4939,8 @@ t0659:= x*cos(a+b*x)*sin(a+b*x)^(1/2) --E 306 --S 307 of 534 -r0659:= 2/9*(-2*EllipticF(1/2*a-1/4*%pi+1/2*b*x,2)+2*cos(a+b*x)*sin(a+b*x)^(1/2)+3*x*sin(a+b*x)^(3/2)*b)/b^2 +r0659:= 2/9*(-2*EllipticF(1/2*a-1/4*%pi+1/2*b*x,2)+_ + 2*cos(a+b*x)*sin(a+b*x)^(1/2)+3*x*sin(a+b*x)^(3/2)*b)/b^2 --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -5061,7 +5108,8 @@ t0662:= x*cos(a+b*x)/sin(a+b*x)^(5/2) --E 321 --S 322 of 534 -r0662:= -2/3*(2*EllipticE(1/2*a-1/4*%pi+1/2*b*x,2)*sin(a+b*x)^(3/2)+b*x+2*cos(a+b*x)*sin(a+b*x))/b^2/sin(a+b*x)^(3/2) +r0662:= -2/3*(2*EllipticE(1/2*a-1/4*%pi+1/2*b*x,2)*sin(a+b*x)^(3/2)+_ + b*x+2*cos(a+b*x)*sin(a+b*x))/b^2/sin(a+b*x)^(3/2) --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -5115,7 +5163,9 @@ t0663:= x*sin(a+b*x)*sec(a+b*x)^(5/2) --E 326 --S 327 of 534 -r0663:= 2/3*(1/cos(a+b*x))^(1/2)*(b*x+2*EllipticE(1/2*a+1/2*b*x,2)*cos(a+b*x)^(3/2)-2*cos(a+b*x)*sin(a+b*x))/cos(a+b*x)/b^2 +r0663:= 2/3*(1/cos(a+b*x))^(1/2)*(b*x+_ + 2*EllipticE(1/2*a+1/2*b*x,2)*cos(a+b*x)^(3/2)-_ + 2*cos(a+b*x)*sin(a+b*x))/cos(a+b*x)/b^2 --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -5169,7 +5219,8 @@ t0664:= x*sin(a+b*x)*sec(a+b*x)^(3/2) --E 331 --S 332 of 534 -r0664:= -2*(1/cos(a+b*x))^(1/2)*(-b*x+2*EllipticF(1/2*a+1/2*b*x,2)*cos(a+b*x)^(1/2))/b^2 +r0664:= -2*(1/cos(a+b*x))^(1/2)*(-b*x+2*EllipticF(1/2*a+1/2*b*x,2)*_ + cos(a+b*x)^(1/2))/b^2 --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -5223,7 +5274,8 @@ t0665:= x*sin(a+b*x)*sec(a+b*x)^(1/2) --E 336 --S 337 of 534 -r0665:= -2*x/b/sec(a+b*x)^(1/2)+4*cos(a+b*x)^(1/2)*EllipticE(1/2*a+1/2*b*x,2)*sec(a+b*x)^(1/2)/b^2 +r0665:= -2*x/b/sec(a+b*x)^(1/2)+4*cos(a+b*x)^(1/2)*_ + EllipticE(1/2*a+1/2*b*x,2)*sec(a+b*x)^(1/2)/b^2 --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -5279,7 +5331,9 @@ t0666:= x*sin(a+b*x)/sec(a+b*x)^(1/2) --E 341 --S 342 of 534 -r0666:= -2/9*(3*b*x*cos(a+b*x)^(3/2)-2*EllipticF(1/2*a+1/2*b*x,2)-2*sin(a+b*x)*cos(a+b*x)^(1/2))/cos(a+b*x)^(1/2)/(1/cos(a+b*x))^(1/2)/b^2 +r0666:= -2/9*(3*b*x*cos(a+b*x)^(3/2)-2*EllipticF(1/2*a+1/2*b*x,2)-_ + 2*sin(a+b*x)*cos(a+b*x)^(1/2))/_ + cos(a+b*x)^(1/2)/(1/cos(a+b*x))^(1/2)/b^2 --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -5335,7 +5389,9 @@ t0667:= x*sin(a+b*x)/sec(a+b*x)^(3/2) --E 346 --S 347 of 534 -r0667:= 2/25*(-5*b*x*cos(a+b*x)^(5/2)+6*EllipticE(1/2*a+1/2*b*x,2)+2*sin(a+b*x)*cos(a+b*x)^(3/2))/cos(a+b*x)^(1/2)/(1/cos(a+b*x))^(1/2)/b^2 +r0667:= 2/25*(-5*b*x*cos(a+b*x)^(5/2)+6*EllipticE(1/2*a+1/2*b*x,2)+_ + 2*sin(a+b*x)*cos(a+b*x)^(3/2))/cos(a+b*x)^(1/2)/_ + (1/cos(a+b*x))^(1/2)/b^2 --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -5389,7 +5445,8 @@ t0668:= x*cos(a+b*x)*csc(a+b*x)^(5/2) --E 351 --S 352 of 534 -r0668:= -2/3*(1/sin(a+b*x))^(1/2)*(2*cos(a+b*x)*sin(a+b*x)+b*x+2*EllipticE(1/2*a-1/4*%pi+1/2*b*x,2)*sin(a+b*x)^(3/2))/sin(a+b*x)/b^2 +r0668:= -2/3*(1/sin(a+b*x))^(1/2)*(2*cos(a+b*x)*sin(a+b*x)+b*x+_ + 2*EllipticE(1/2*a-1/4*%pi+1/2*b*x,2)*sin(a+b*x)^(3/2))/sin(a+b*x)/b^2 --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -5443,7 +5500,8 @@ t0669:= x*cos(a+b*x)*csc(a+b*x)^(3/2) --E 356 --S 357 of 534 -r0669:= 2*(1/sin(a+b*x))^(1/2)*(-b*x+2*EllipticF(1/2*a-1/4*%pi+1/2*b*x,2)*sin(a+b*x)^(1/2))/b^2 +r0669:= 2*(1/sin(a+b*x))^(1/2)*(-b*x+2*EllipticF(1/2*a-1/4*%pi+1/2*b*x,2)*_ + sin(a+b*x)^(1/2))/b^2 --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -5497,7 +5555,8 @@ t0670:= x*cos(a+b*x)*csc(a+b*x)^(1/2) --E 361 --S 362 of 534 -r0670:= 2*x/b/csc(a+b*x)^(1/2)-4*csc(a+b*x)^(1/2)*EllipticE(1/2*a-1/4*%pi+1/2*b*x,2)*sin(a+b*x)^(1/2)/b^2 +r0670:= 2*x/b/csc(a+b*x)^(1/2)-4*csc(a+b*x)^(1/2)*_ + EllipticE(1/2*a-1/4*%pi+1/2*b*x,2)*sin(a+b*x)^(1/2)/b^2 --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -5553,7 +5612,9 @@ t0671:= x*cos(a+b*x)/csc(a+b*x)^(1/2) --E 366 --S 367 of 534 -r0671:= -2/9*(-3*b*x*sin(a+b*x)^(3/2)-2*cos(a+b*x)*sin(a+b*x)^(1/2)+2*EllipticF(1/2*a-1/4*%pi+1/2*b*x,2))/sin(a+b*x)^(1/2)/(1/sin(a+b*x))^(1/2)/b^2 +r0671:= -2/9*(-3*b*x*sin(a+b*x)^(3/2)-2*cos(a+b*x)*sin(a+b*x)^(1/2)+_ + 2*EllipticF(1/2*a-1/4*%pi+1/2*b*x,2))/sin(a+b*x)^(1/2)/_ + (1/sin(a+b*x))^(1/2)/b^2 --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -5609,7 +5670,9 @@ t0672:= x*cos(a+b*x)/csc(a+b*x)^(3/2) --E 371 --S 372 of 534 -r0672:= -2/25*(-5*b*x*sin(a+b*x)^(5/2)-2*cos(a+b*x)*sin(a+b*x)^(3/2)+6*EllipticE(1/2*a-1/4*%pi+1/2*b*x,2))/sin(a+b*x)^(1/2)/(1/sin(a+b*x))^(1/2)/b^2 +r0672:= -2/25*(-5*b*x*sin(a+b*x)^(5/2)-2*cos(a+b*x)*sin(a+b*x)^(3/2)+_ + 6*EllipticE(1/2*a-1/4*%pi+1/2*b*x,2))/sin(a+b*x)^(1/2)/_ + (1/sin(a+b*x))^(1/2)/b^2 --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -5664,7 +5727,11 @@ t0673:= x/(a+b*sin(x)*cos(x)) --E 376 --S 377 of 534 -r0673:= -1/2*(2*%i*x*log((-2*a+(4*a^2-b^2)^(1/2)+%i*b*exp(2*%i*x))/(-2*a+(4*a^2-b^2)^(1/2)))-2*%i*x*log((2*a+(4*a^2-b^2)^(1/2)-%i*b*exp(2*%i*x))/(2*a+(4*a^2-b^2)^(1/2)))+polylog(2,-%i*b*exp(2*%i*x)/(-2*a+(4*a^2-b^2)^(1/2)))-polylog(2,%i*b*exp(2*%i*x)/(2*a+(4*a^2-b^2)^(1/2))))/(4*a^2-b^2)^(1/2) +r0673:= -1/2*(2*%i*x*log((-2*a+(4*a^2-b^2)^(1/2)+%i*b*exp(2*%i*x))/_ + (-2*a+(4*a^2-b^2)^(1/2)))-2*%i*x*log((2*a+(4*a^2-b^2)^(1/2)-_ + %i*b*exp(2*%i*x))/(2*a+(4*a^2-b^2)^(1/2)))+_ + polylog(2,-%i*b*exp(2*%i*x)/(-2*a+(4*a^2-b^2)^(1/2)))-_ + polylog(2,%i*b*exp(2*%i*x)/(2*a+(4*a^2-b^2)^(1/2))))/(4*a^2-b^2)^(1/2) --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -5725,7 +5792,14 @@ t0674:= x^2/(a+b*sin(x)*cos(x)) --E 381 --S 382 of 534 -r0674:= 1/2*(-2*%i*x^2*log((-2*a+(4*a^2-b^2)^(1/2)+%i*b*exp(2*%i*x))/(-2*a+(4*a^2-b^2)^(1/2)))+2*%i*x^2*log((2*a+(4*a^2-b^2)^(1/2)-%i*b*exp(2*%i*x))/(2*a+(4*a^2-b^2)^(1/2)))-2*x*polylog(2,-%i*b*exp(2*%i*x)/(-2*a+(4*a^2-b^2)^(1/2)))+2*x*polylog(2,%i*b*exp(2*%i*x)/(2*a+(4*a^2-b^2)^(1/2)))-%i*polylog(3,-%i*b*exp(2*%i*x)/(-2*a+(4*a^2-b^2)^(1/2)))+%i*polylog(3,%i*b*exp(2*%i*x)/(2*a+(4*a^2-b^2)^(1/2))))/(4*a^2-b^2)^(1/2) +r0674:= 1/2*(-2*%i*x^2*log((-2*a+(4*a^2-b^2)^(1/2)+_ + %i*b*exp(2*%i*x))/(-2*a+(4*a^2-b^2)^(1/2)))+_ + 2*%i*x^2*log((2*a+(4*a^2-b^2)^(1/2)-%i*b*exp(2*%i*x))/_ + (2*a+(4*a^2-b^2)^(1/2)))-2*x*polylog(2,-%i*b*exp(2*%i*x)/_ + (-2*a+(4*a^2-b^2)^(1/2)))+2*x*polylog(2,%i*b*exp(2*%i*x)/_ + (2*a+(4*a^2-b^2)^(1/2)))-%i*polylog(3,-%i*b*exp(2*%i*x)/_ + (-2*a+(4*a^2-b^2)^(1/2)))+%i*polylog(3,%i*b*exp(2*%i*x)/_ + (2*a+(4*a^2-b^2)^(1/2))))/(4*a^2-b^2)^(1/2) --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -5787,7 +5861,16 @@ t0675:= x^3/(a+b*sin(x)*cos(x)) --E 386 --S 387 of 534 -r0675:= 1/4*(-4*%i*x^3*log((-2*a+(4*a^2-b^2)^(1/2)+%i*b*exp(2*%i*x))/(-2*a+(4*a^2-b^2)^(1/2)))+4*%i*x^3*log((2*a+(4*a^2-b^2)^(1/2)-%i*b*exp(2*%i*x))/(2*a+(4*a^2-b^2)^(1/2)))-6*x^2*polylog(2,-%i*b*exp(2*%i*x)/(-2*a+(4*a^2-b^2)^(1/2)))+6*x^2*polylog(2,%i*b*exp(2*%i*x)/(2*a+(4*a^2-b^2)^(1/2)))-6*%i*x*polylog(3,-%i*b*exp(2*%i*x)/(-2*a+(4*a^2-b^2)^(1/2)))+6*%i*x*polylog(3,%i*b*exp(2*%i*x)/(2*a+(4*a^2-b^2)^(1/2)))+3*polylog(4,-%i*b*exp(2*%i*x)/(-2*a+(4*a^2-b^2)^(1/2)))-3*polylog(4,%i*b*exp(2*%i*x)/(2*a+(4*a^2-b^2)^(1/2))))/(4*a^2-b^2)^(1/2) +r0675:= 1/4*(-4*%i*x^3*log((-2*a+(4*a^2-b^2)^(1/2)+%i*b*exp(2*%i*x))/_ + (-2*a+(4*a^2-b^2)^(1/2)))+4*%i*x^3*log((2*a+(4*a^2-b^2)^(1/2)-_ + %i*b*exp(2*%i*x))/(2*a+(4*a^2-b^2)^(1/2)))-_ + 6*x^2*polylog(2,-%i*b*exp(2*%i*x)/(-2*a+(4*a^2-b^2)^(1/2)))+_ + 6*x^2*polylog(2,%i*b*exp(2*%i*x)/(2*a+(4*a^2-b^2)^(1/2)))-_ + 6*%i*x*polylog(3,-%i*b*exp(2*%i*x)/(-2*a+(4*a^2-b^2)^(1/2)))+_ + 6*%i*x*polylog(3,%i*b*exp(2*%i*x)/(2*a+(4*a^2-b^2)^(1/2)))+_ + 3*polylog(4,-%i*b*exp(2*%i*x)/(-2*a+(4*a^2-b^2)^(1/2)))-_ + 3*polylog(4,%i*b*exp(2*%i*x)/_ + (2*a+(4*a^2-b^2)^(1/2))))/(4*a^2-b^2)^(1/2) --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -6015,7 +6098,8 @@ t0679:= sin(x)/(a+a*sin(x))^(1/2) --E 406 --S 407 of 534 -r0679:= 2*(-cos(x)+atanh(cos(1/4*%pi+1/2*x))*sin(1/4*%pi+1/2*x))/(a*(1+sin(x)))^(1/2) +r0679:= 2*(-cos(x)+atanh(cos(1/4*%pi+1/2*x))*_ + sin(1/4*%pi+1/2*x))/(a*(1+sin(x)))^(1/2) --R --R --R 2x + %pi 2x + %pi @@ -7389,7 +7473,8 @@ t0680:= sin(x)/(a-a*sin(x))^(1/2) --E 413 --S 414 of 534 -r0680:= 2*(-cos(x)+atanh(sin(1/4*%pi+1/2*x))*cos(1/4*%pi+1/2*x))/(-a*(sin(x)-1))^(1/2) +r0680:= 2*(-cos(x)+atanh(sin(1/4*%pi+1/2*x))*_ + cos(1/4*%pi+1/2*x))/(-a*(sin(x)-1))^(1/2) --R --R --R 2x + %pi 2x + %pi @@ -8600,7 +8685,10 @@ t0681:= sin(x)/(a+b*sin(x))^(1/2) --E 420 --S 421 of 534 -r0681:= 2*EllipticE(-1/4*%pi+1/2*x,2*b/(a+b))*(a+b*sin(x))^(1/2)/b/((a+b*sin(x))/(a+b))^(1/2)-2*a*EllipticF(-1/4*%pi+1/2*x,2*b/(a+b))*((a+b*sin(x))/(a+b))^(1/2)/b/(a+b*sin(x))^(1/2) +r0681:= 2*EllipticE(-1/4*%pi+1/2*x,2*b/(a+b))*_ + (a+b*sin(x))^(1/2)/b/((a+b*sin(x))/(a+b))^(1/2)-_ + 2*a*EllipticF(-1/4*%pi+1/2*x,2*b/(a+b))*((a+b*sin(x))/(a+b))^(1/2)/_ + b/(a+b*sin(x))^(1/2) --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -8664,7 +8752,8 @@ t0682:= (A+B*sin(x))/(a+a*sin(x))^(1/2) --E 425 --S 426 of 534 -r0682:= -2*B*cos(x)/(a+a*sin(x))^(1/2)-2*(A-B)*atanh(cos(1/4*%pi+1/2*x))*cos(-1/4*%pi+1/2*x)/(a+a*sin(x))^(1/2) +r0682:= -2*B*cos(x)/(a+a*sin(x))^(1/2)-2*(A-B)*atanh(cos(1/4*%pi+1/2*x))*_ + cos(-1/4*%pi+1/2*x)/(a+a*sin(x))^(1/2) --R --R --R 2x - %pi 2x + %pi @@ -10531,7 +10620,8 @@ t0683:= (A+B*sin(x))/(a-a*sin(x))^(1/2) --E 432 --S 433 of 534 -r0683:= -2*B*cos(x)/(a-a*sin(x))^(1/2)+2*(A+B)*atanh(cos(-1/4*%pi+1/2*x))*cos(1/4*%pi+1/2*x)/(a-a*sin(x))^(1/2) +r0683:= -2*B*cos(x)/(a-a*sin(x))^(1/2)+2*(A+B)*atanh(cos(-1/4*%pi+1/2*x))*_ + cos(1/4*%pi+1/2*x)/(a-a*sin(x))^(1/2) --R --R --R 2x + %pi 2x - %pi @@ -12233,7 +12323,10 @@ t0684:= (A+B*sin(x))/(a+b*sin(x))^(1/2) --E 439 --S 440 of 534 -r0684:= 2*B*EllipticE(-1/4*%pi+1/2*x,2*b/(a+b))*(a+b*sin(x))^(1/2)/b/((a+b*sin(x))/(a+b))^(1/2)+2*(A*b-a*B)*EllipticF(-1/4*%pi+1/2*x,2*b/(a+b))*((a+b*sin(x))/(a+b))^(1/2)/b/(a+b*sin(x))^(1/2) +r0684:= 2*B*EllipticE(-1/4*%pi+1/2*x,2*b/(a+b))*_ + (a+b*sin(x))^(1/2)/b/((a+b*sin(x))/(a+b))^(1/2)+_ + 2*(A*b-a*B)*EllipticF(-1/4*%pi+1/2*x,2*b/(a+b))*_ + ((a+b*sin(x))/(a+b))^(1/2)/b/(a+b*sin(x))^(1/2) --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -13014,7 +13107,9 @@ t0687:= cos(x)/(a+b*cos(x))^(1/2) --E 458 --S 459 of 534 -r0687:= 2*(a+b*cos(x))^(1/2)*(EllipticE(1/2*x,2*b/(a+b))*a+EllipticE(1/2*x,2*b/(a+b))*b-a*EllipticF(1/2*x,2*b/(a+b)))/(a+b)/b/((a+b*cos(x))/(a+b))^(1/2) +r0687:= 2*(a+b*cos(x))^(1/2)*(EllipticE(1/2*x,2*b/(a+b))*a+_ + EllipticE(1/2*x,2*b/(a+b))*b-_ + a*EllipticF(1/2*x,2*b/(a+b)))/(a+b)/b/((a+b*cos(x))/(a+b))^(1/2) --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -13078,7 +13173,8 @@ t0688:= (A+B*cos(x))/(a+a*cos(x))^(1/2) --E 463 --S 464 of 534 -r0688:= 2*(A-B)*atanh(sin(1/2*x))*cos(1/2*x)/(a+a*cos(x))^(1/2)+2*B*sin(x)/(a+a*cos(x))^(1/2) +r0688:= 2*(A-B)*atanh(sin(1/2*x))*cos(1/2*x)/(a+a*cos(x))^(1/2)+_ + 2*B*sin(x)/(a+a*cos(x))^(1/2) --R --R --R x x @@ -13493,7 +13589,8 @@ t0689:= (A+B*cos(x))/(a-a*cos(x))^(1/2) --E 470 --S 471 of 534 -r0689:= -2*(A+B)*atanh(cos(1/2*x))*sin(1/2*x)/(a-a*cos(x))^(1/2)+2*B*sin(x)/(a-a*cos(x))^(1/2) +r0689:= -2*(A+B)*atanh(cos(1/2*x))*sin(1/2*x)/(a-a*cos(x))^(1/2)+_ + 2*B*sin(x)/(a-a*cos(x))^(1/2) --R --R --R x x @@ -13958,7 +14055,10 @@ t0690:= (A+B*cos(x))/(a+b*cos(x))^(1/2) --E 477 --S 478 of 534 -r0690:= 2*B*(a+b*cos(x))^(1/2)*EllipticE(1/2*x,2*b/(a+b))/b/((a+b*cos(x))/(a+b))^(1/2)+2*(A*b-a*B)*((a+b*cos(x))/(a+b))^(1/2)*EllipticF(1/2*x,2*b/(a+b))/b/(a+b*cos(x))^(1/2) +r0690:= 2*B*(a+b*cos(x))^(1/2)*_ + EllipticE(1/2*x,2*b/(a+b))/b/((a+b*cos(x))/(a+b))^(1/2)+_ + 2*(A*b-a*B)*((a+b*cos(x))/(a+b))^(1/2)*_ + EllipticF(1/2*x,2*b/(a+b))/b/(a+b*cos(x))^(1/2) --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -14072,7 +14172,8 @@ t0692:= (a+b*sin(x)^2)/(c+d*cos(x)) --E 487 --S 488 of 534 -r0692:= b*c*x/d^2+2*(a*d^2-b*(c^2-d^2))*atan((c-d)*tan(1/2*x)/(c^2-d^2)^(1/2))/d^2/(c^2-d^2)^(1/2)-b*sin(x)/d +r0692:= b*c*x/d^2+2*(a*d^2-b*(c^2-d^2))*atan((c-d)*_ + tan(1/2*x)/(c^2-d^2)^(1/2))/d^2/(c^2-d^2)^(1/2)-b*sin(x)/d --R --R --R (424) @@ -14507,7 +14608,8 @@ t0695:= (a+b*sin(x)^2)/(c+d*cos(x)^2) --E 504 --S 505 of 534 -r0695:= -b*x/d+(b*c+(a+b)*d)*atan(c^(1/2)*tan(x)/(c+d)^(1/2))/c^(1/2)/d/(c+d)^(1/2) +r0695:= -b*x/d+(b*c+(a+b)*d)*atan(c^(1/2)*tan(x)/(c+d)^(1/2))/_ + c^(1/2)/d/(c+d)^(1/2) --R --R --R +-+ @@ -14959,7 +15061,8 @@ t0697:= (a+b*cos(x)^2)/(c+d*sin(x)) --E 516 --S 517 of 534 -r0697:= b*c*x/d^2+2*(a*d^2-b*(c^2-d^2))*atan((d+c*tan(1/2*x))/(c^2-d^2)^(1/2))/d^2/(c^2-d^2)^(1/2)+b*cos(x)/d +r0697:= b*c*x/d^2+2*(a*d^2-b*(c^2-d^2))*atan((d+c*tan(1/2*x))/_ + (c^2-d^2)^(1/2))/d^2/(c^2-d^2)^(1/2)+b*cos(x)/d --R --R --R (453) @@ -15455,7 +15558,8 @@ t0699:= (a+b*cos(x)^2)/(c+d*sin(x)^2) --E 528 --S 529 of 534 -r0699:= -b*x/d+(b*c+(a+b)*d)*atan((c+d)^(1/2)*tan(x)/c^(1/2))/c^(1/2)/d/(c+d)^(1/2) +r0699:= -b*x/d+(b*c+(a+b)*d)*atan((c+d)^(1/2)*tan(x)/c^(1/2))/_ + c^(1/2)/d/(c+d)^(1/2) --R --R --R +-----+ diff --git a/src/input/richtrig700-799.input.pamphlet b/src/input/richtrig700-799.input.pamphlet index e0eba42..d206553 100644 --- a/src/input/richtrig700-799.input.pamphlet +++ b/src/input/richtrig700-799.input.pamphlet @@ -119,7 +119,8 @@ t0701:= (a+b*sec(x))/(c+d*cos(x)) --E 6 --S 7 of 532 -r0701:= 2*(a*c-b*d)*atan((c-d)*tan(1/2*x)/(c^2-d^2)^(1/2))/c/(c^2-d^2)^(1/2)+b*atanh(sin(x))/c +r0701:= 2*(a*c-b*d)*atan((c-d)*tan(1/2*x)/(c^2-d^2)^(1/2))/c/(c^2-d^2)^(1/2)+_ + b*atanh(sin(x))/c --R --R --R x @@ -751,7 +752,8 @@ t0702:= (a+b*csc(x))/(c+d*sin(x)) --E 13 --S 14 of 532 -r0702:= 2*(a*c-b*d)*atan((d+c*tan(1/2*x))/(c^2-d^2)^(1/2))/c/(c^2-d^2)^(1/2)-b*atanh(cos(x))/c +r0702:= 2*(a*c-b*d)*atan((d+c*tan(1/2*x))/(c^2-d^2)^(1/2))/c/(c^2-d^2)^(1/2)-_ + b*atanh(cos(x))/c --R --R --R x @@ -1406,7 +1408,8 @@ t0703:= (a+b*sec(x)^2)/(c+d*cos(x)) --E 20 --S 21 of 532 -r0703:= 2*(a*c^2+b*d^2)*atan((c-d)*tan(1/2*x)/(c^2-d^2)^(1/2))/c^2/(c^2-d^2)^(1/2)-b*d*atanh(sin(x))/c^2+b*tan(x)/c +r0703:= 2*(a*c^2+b*d^2)*atan((c-d)*tan(1/2*x)/(c^2-d^2)^(1/2))/c^2/_ + (c^2-d^2)^(1/2)-b*d*atanh(sin(x))/c^2+b*tan(x)/c --R --R --R (21) @@ -2485,7 +2488,8 @@ t0704:= (a+b*csc(x)^2)/(c+d*sin(x)) --E 27 --S 28 of 532 -r0704:= 2*(a*c^2+b*d^2)*atan((d+c*tan(1/2*x))/(c^2-d^2)^(1/2))/c^2/(c^2-d^2)^(1/2)+b*d*atanh(cos(x))/c^2-b*cot(x)/c +r0704:= 2*(a*c^2+b*d^2)*atan((d+c*tan(1/2*x))/(c^2-d^2)^(1/2))/c^2/_ + (c^2-d^2)^(1/2)+b*d*atanh(cos(x))/c^2-b*cot(x)/c --R --R --R (28) @@ -3765,7 +3769,8 @@ t0708:= (a+b*sin(x)*cos(x))^(1/2) --E 49 --S 50 of 532 -r0708:= 1/2*EllipticE(-1/4*%pi+x,2*b/(2*a+b))*(2*a+b*sin(2*x))^(1/2)*2^(1/2)/((2*a+b*sin(2*x))/(2*a+b))^(1/2) +r0708:= 1/2*EllipticE(-1/4*%pi+x,2*b/(2*a+b))*(2*a+b*sin(2*x))^(1/2)*_ + 2^(1/2)/((2*a+b*sin(2*x))/(2*a+b))^(1/2) --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -3825,7 +3830,8 @@ t0709:= 1/(a+b*sin(x)*cos(x))^(1/2) --E 54 --S 55 of 532 -r0709:= 2^(1/2)*EllipticF(-1/4*%pi+x,2*b/(2*a+b))*((2*a+b*sin(2*x))/(2*a+b))^(1/2)/(2*a+b*sin(2*x))^(1/2) +r0709:= 2^(1/2)*EllipticF(-1/4*%pi+x,2*b/(2*a+b))*((2*a+b*sin(2*x))/_ + (2*a+b))^(1/2)/(2*a+b*sin(2*x))^(1/2) --R --R There are no library operations named EllipticF --R Use HyperDoc Browse or issue @@ -3891,7 +3897,8 @@ t0710:= (a*cos(x)+b*sin(x))^4 --E 59 --S 60 of 532 -r0710:= 3/8*(a^2+b^2)^2*x-3/8*(a^2+b^2)*(b*cos(x)-a*sin(x))*(a*cos(x)+b*sin(x))-1/4*(b*cos(x)-a*sin(x))*(a*cos(x)+b*sin(x))^3 +r0710:= 3/8*(a^2+b^2)^2*x-3/8*(a^2+b^2)*(b*cos(x)-a*sin(x))*_ + (a*cos(x)+b*sin(x))-1/4*(b*cos(x)-a*sin(x))*(a*cos(x)+b*sin(x))^3 --R --R --R (58) @@ -3980,7 +3987,8 @@ t0711:= 1/(a*cos(x)+b*sin(x))^3 --E 64 --S 65 of 532 -r0711:= -1/2*atanh((b*cos(x)-a*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(3/2)-1/2*(b*cos(x)-a*sin(x))/(a^2+b^2)/(a*cos(x)+b*sin(x))^2 +r0711:= -1/2*atanh((b*cos(x)-a*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(3/2)-_ + 1/2*(b*cos(x)-a*sin(x))/(a^2+b^2)/(a*cos(x)+b*sin(x))^2 --R --R --R (63) @@ -4329,7 +4337,9 @@ t0712:= 1/(a*cos(x)+b*sin(x))^5 --E 69 --S 70 of 532 -r0712:= -3/8*atanh((b*cos(x)-a*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(5/2)-1/4*(b*cos(x)-a*sin(x))/(a^2+b^2)/(a*cos(x)+b*sin(x))^4-3/8*(b*cos(x)-a*sin(x))/(a^2+b^2)^2/(a*cos(x)+b*sin(x))^2 +r0712:= -3/8*atanh((b*cos(x)-a*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(5/2)-_ + 1/4*(b*cos(x)-a*sin(x))/(a^2+b^2)/(a*cos(x)+b*sin(x))^4-_ + 3/8*(b*cos(x)-a*sin(x))/(a^2+b^2)^2/(a*cos(x)+b*sin(x))^2 --R --R --R (68) @@ -5593,7 +5603,8 @@ t0713:= (a*cos(x)+b*sin(x))^(1/2) --E 74 --S 75 of 532 -r0713:= 2*EllipticE(1/2*x-1/2*atan(a,b),2)*(a*cos(x)+b*sin(x))^(1/2)/((a*cos(x)+b*sin(x))/(a^2+b^2)^(1/2))^(1/2) +r0713:= 2*EllipticE(1/2*x-1/2*atan(a,b),2)*(a*cos(x)+_ + b*sin(x))^(1/2)/((a*cos(x)+b*sin(x))/(a^2+b^2)^(1/2))^(1/2) --R --R There are 2 exposed and 0 unexposed library operations named atan --R having 2 argument(s) but none was determined to be applicable. @@ -5653,7 +5664,9 @@ t0714:= (a*cos(x)+b*sin(x))^(3/2) --E 79 --S 80 of 532 -r0714:= -2/3*(b*cos(x)-a*sin(x))*(a*cos(x)+b*sin(x))^(1/2)+2/3*(a^2+b^2)*EllipticF(1/2*x-1/2*atan(a,b),2)*((a*cos(x)+b*sin(x))/(a^2+b^2)^(1/2))^(1/2)/(a*cos(x)+b*sin(x))^(1/2) +r0714:= -2/3*(b*cos(x)-a*sin(x))*(a*cos(x)+b*sin(x))^(1/2)+_ + 2/3*(a^2+b^2)*EllipticF(1/2*x-1/2*atan(a,b),2)*_ + ((a*cos(x)+b*sin(x))/(a^2+b^2)^(1/2))^(1/2)/(a*cos(x)+b*sin(x))^(1/2) --R --R There are 2 exposed and 0 unexposed library operations named atan --R having 2 argument(s) but none was determined to be applicable. @@ -5713,7 +5726,9 @@ t0715:= (a*cos(x)+b*sin(x))^(5/2) --E 84 --S 85 of 532 -r0715:= -2/5*(b*cos(x)-a*sin(x))*(a*cos(x)+b*sin(x))^(3/2)+6/5*(a^2+b^2)*EllipticE(1/2*x-1/2*atan(a,b),2)*(a*cos(x)+b*sin(x))^(1/2)/((a*cos(x)+b*sin(x))/(a^2+b^2)^(1/2))^(1/2) +r0715:= -2/5*(b*cos(x)-a*sin(x))*(a*cos(x)+b*sin(x))^(3/2)+_ + 6/5*(a^2+b^2)*EllipticE(1/2*x-1/2*atan(a,b),2)*_ + (a*cos(x)+b*sin(x))^(1/2)/((a*cos(x)+b*sin(x))/(a^2+b^2)^(1/2))^(1/2) --R --R There are 2 exposed and 0 unexposed library operations named atan --R having 2 argument(s) but none was determined to be applicable. @@ -5786,7 +5801,8 @@ t0716:= 1/(a*cos(x)+b*sin(x))^(1/2) --E 89 --S 90 of 532 -r0716:= 2*EllipticF(1/2*x-1/2*atan(a,b),2)*((a*cos(x)+b*sin(x))/(a^2+b^2)^(1/2))^(1/2)/(a*cos(x)+b*sin(x))^(1/2) +r0716:= 2*EllipticF(1/2*x-1/2*atan(a,b),2)*_ + ((a*cos(x)+b*sin(x))/(a^2+b^2)^(1/2))^(1/2)/(a*cos(x)+b*sin(x))^(1/2) --R --R There are 2 exposed and 0 unexposed library operations named atan --R having 2 argument(s) but none was determined to be applicable. @@ -5852,7 +5868,9 @@ t0717:= 1/(a*cos(x)+b*sin(x))^(3/2) --E 94 --S 95 of 532 -r0717:= -2*(b*cos(x)-a*sin(x))/(a^2+b^2)/(a*cos(x)+b*sin(x))^(1/2)-2*EllipticE(1/2*x-1/2*atan(a,b),2)*(a*cos(x)+b*sin(x))^(1/2)/(a^2+b^2)/((a*cos(x)+b*sin(x))/(a^2+b^2)^(1/2))^(1/2) +r0717:= -2*(b*cos(x)-a*sin(x))/(a^2+b^2)/(a*cos(x)+b*sin(x))^(1/2)-_ + 2*EllipticE(1/2*x-1/2*atan(a,b),2)*(a*cos(x)+b*sin(x))^(1/2)/_ + (a^2+b^2)/((a*cos(x)+b*sin(x))/(a^2+b^2)^(1/2))^(1/2) --R --R There are 2 exposed and 0 unexposed library operations named atan --R having 2 argument(s) but none was determined to be applicable. @@ -5918,7 +5936,9 @@ t0718:= 1/(a*cos(x)+b*sin(x))^(5/2) --E 99 --S 100 of 532 -r0718:= -2/3*(b*cos(x)-a*sin(x))/(a^2+b^2)/(a*cos(x)+b*sin(x))^(3/2)+2/3*EllipticF(1/2*x-1/2*atan(a,b),2)*((a*cos(x)+b*sin(x))/(a^2+b^2)^(1/2))^(1/2)/(a^2+b^2)/(a*cos(x)+b*sin(x))^(1/2) +r0718:= -2/3*(b*cos(x)-a*sin(x))/(a^2+b^2)/(a*cos(x)+b*sin(x))^(3/2)+_ + 2/3*EllipticF(1/2*x-1/2*atan(a,b),2)*((a*cos(x)+b*sin(x))/_ + (a^2+b^2)^(1/2))^(1/2)/(a^2+b^2)/(a*cos(x)+b*sin(x))^(1/2) --R --R There are 2 exposed and 0 unexposed library operations named atan --R having 2 argument(s) but none was determined to be applicable. @@ -6003,7 +6023,10 @@ t0719:= (a*sec(x)+b*tan(x))^5 --E 104 --S 105 of 532 -r0719:= -1/16*(a+b)^3*(3*a^2-9*a*b+8*b^2)*log(1-sin(x))+1/16*(a-b)^3*(3*a^2+9*a*b+8*b^2)*log(1+sin(x))+1/16*(a+b)^5/(1-sin(x))^2+(3*a-7*b)*(a+b)^4/(16-16*sin(x))-1/16*(a-b)^5/(1+sin(x))^2-(a-b)^4*(3*a+7*b)/(16+16*sin(x)) +r0719:= -1/16*(a+b)^3*(3*a^2-9*a*b+8*b^2)*log(1-sin(x))+1/16*(a-b)^3*_ + (3*a^2+9*a*b+8*b^2)*log(1+sin(x))+1/16*(a+b)^5/(1-sin(x))^2+_ + (3*a-7*b)*(a+b)^4/(16-16*sin(x))-1/16*(a-b)^5/(1+sin(x))^2-_ + (a-b)^4*(3*a+7*b)/(16+16*sin(x)) --R --R --R (97) @@ -6381,7 +6404,8 @@ t0720:= 1/(a*sec(x)+b*tan(x))^2 --E 109 --S 110 of 532 -r0720:= -x/b^2+2*a*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^2/(a^2-b^2)^(1/2)-cos(x)/b/(a+b*sin(x)) +r0720:= -x/b^2+2*a*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^2/_ + (a^2-b^2)^(1/2)-cos(x)/b/(a+b*sin(x)) --R --R --R (102) @@ -6672,7 +6696,12 @@ t0721:= 1/(a*sec(x)+b*tan(x))^4 --E 116 --S 117 of 532 -r0721:= x/b^4+2*a^3*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^4/(a^2-b^2)^(3/2)-a*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^2/(a^2-b^2)^(3/2)-4*a*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^4/(a^2-b^2)^(1/2)+1/3*(a^2-b^2)*cos(x)/b^3/(a+b*sin(x))^3-7/6*a*cos(x)/b^3/(a+b*sin(x))^2+11/6*a^2*cos(x)/b^3/(a^2-b^2)/(a+b*sin(x))-4/3*cos(x)/b/(a^2-b^2)/(a+b*sin(x)) +r0721:= x/b^4+2*a^3*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^4/_ + (a^2-b^2)^(3/2)-a*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^2/_ + (a^2-b^2)^(3/2)-4*a*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b^4/_ + (a^2-b^2)^(1/2)+1/3*(a^2-b^2)*cos(x)/b^3/(a+b*sin(x))^3-_ + 7/6*a*cos(x)/b^3/(a+b*sin(x))^2+11/6*a^2*cos(x)/b^3/(a^2-b^2)/_ + (a+b*sin(x))-4/3*cos(x)/b/(a^2-b^2)/(a+b*sin(x)) --R --R --R (109) @@ -10693,7 +10722,8 @@ t0722:= (a*cot(x)+b*csc(x))^3 --E 123 --S 124 of 532 -r0722:= -(a+b)^3/(4-4*cos(x))-(a-b)^3/(4*cos(x)+4)-1/4*(2*a-b)*(a+b)^2*log(1-cos(x))-1/4*(a-b)^2*(2*a+b)*log(cos(x)+1) +r0722:= -(a+b)^3/(4-4*cos(x))-(a-b)^3/(4*cos(x)+4)-_ + 1/4*(2*a-b)*(a+b)^2*log(1-cos(x))-1/4*(a-b)^2*(2*a+b)*log(cos(x)+1) --R --R --R (116) @@ -10779,7 +10809,10 @@ t0723:= (a*cot(x)+b*csc(x))^5 --E 128 --S 129 of 532 -r0723:= -1/16*(a+b)^5/(1-cos(x))^2+(7*a-3*b)*(a+b)^4/(16-16*cos(x))-1/16*(a-b)^5/(cos(x)+1)^2+(a-b)^4*(7*a+3*b)/(16*cos(x)+16)+1/16*(a+b)^3*(8*a^2-9*a*b+3*b^2)*log(1-cos(x))+1/16*(a-b)^3*(8*a^2+9*a*b+3*b^2)*log(cos(x)+1) +r0723:= -1/16*(a+b)^5/(1-cos(x))^2+(7*a-3*b)*(a+b)^4/(16-16*cos(x))-_ + 1/16*(a-b)^5/(cos(x)+1)^2+(a-b)^4*(7*a+3*b)/(16*cos(x)+16)+_ + 1/16*(a+b)^3*(8*a^2-9*a*b+3*b^2)*log(1-cos(x))+1/16*(a-b)^3*_ + (8*a^2+9*a*b+3*b^2)*log(cos(x)+1) --R --R --R (121) @@ -10891,7 +10924,8 @@ t0724:= 1/(a*cot(x)+b*csc(x))^2 --E 133 --S 134 of 532 -r0724:= -x/a^2+2*b*atanh((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a^2/(a^2-b^2)^(1/2)+sin(x)/a/(b+a*cos(x)) +r0724:= -x/a^2+2*b*atanh((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a^2/_ + (a^2-b^2)^(1/2)+sin(x)/a/(b+a*cos(x)) --R --R --R (126) @@ -11090,7 +11124,12 @@ t0725:= 1/(a*cot(x)+b*csc(x))^4 --E 140 --S 141 of 532 -r0725:= x/a^4+5*b*atanh((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a^2/(a^2-b^2)^(3/2)-6*b^3*atanh((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a^4/(a^2-b^2)^(3/2)-8*b*atanh((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a^4/(a^2-b^2)^(1/2)+1/3*(a^2-b^2)*sin(x)/a^3/(b+a*cos(x))^3+7/6*b*sin(x)/a^3/(b+a*cos(x))^2-4/3*sin(x)/a/(a^2-b^2)/(b+a*cos(x))+11/6*b^2*sin(x)/a^3/(a^2-b^2)/(b+a*cos(x)) +r0725:= x/a^4+5*b*atanh((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/a^2/_ + (a^2-b^2)^(3/2)-6*b^3*atanh((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/_ + a^4/(a^2-b^2)^(3/2)-8*b*atanh((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/_ + a^4/(a^2-b^2)^(1/2)+1/3*(a^2-b^2)*sin(x)/a^3/(b+a*cos(x))^3+_ + 7/6*b*sin(x)/a^3/(b+a*cos(x))^2-4/3*sin(x)/a/(a^2-b^2)/_ + (b+a*cos(x))+11/6*b^2*sin(x)/a^3/(a^2-b^2)/(b+a*cos(x)) --R --R --R (133) @@ -13417,7 +13456,10 @@ t0756:= ((b^2+c^2)^(1/2)+b*cos(x)+c*sin(x))^3 --E 297 --S 298 of 532 -r0756:= 5/2*(b^2+c^2)^(3/2)*x-5/2*c*(b^2+c^2)*cos(x)+5/2*b*(b^2+c^2)*sin(x)-5/6*(b^2+c^2)^(1/2)*(c*cos(x)-b*sin(x))*((b^2+c^2)^(1/2)+b*cos(x)+c*sin(x))-1/3*(c*cos(x)-b*sin(x))*((b^2+c^2)^(1/2)+b*cos(x)+c*sin(x))^2 +r0756:= 5/2*(b^2+c^2)^(3/2)*x-5/2*c*(b^2+c^2)*cos(x)+_ + 5/2*b*(b^2+c^2)*sin(x)-5/6*(b^2+c^2)^(1/2)*(c*cos(x)-b*sin(x))*_ + ((b^2+c^2)^(1/2)+b*cos(x)+c*sin(x))-1/3*(c*cos(x)-b*sin(x))*_ + ((b^2+c^2)^(1/2)+b*cos(x)+c*sin(x))^2 --R --R --R (280) @@ -13473,7 +13515,9 @@ t0757:= 1/((b^2+c^2)^(1/2)+b*cos(x)+c*sin(x))^2 --E 302 --S 303 of 532 -r0757:= -1/3*(c*cos(x)-b*sin(x))/(b^2+c^2)^(1/2)/((b^2+c^2)^(1/2)+b*cos(x)+c*sin(x))^2-2/3/(b^2+c^2)^(1/2)/(c-(b-(b^2+c^2)^(1/2))*tan(1/2*x)) +r0757:= -1/3*(c*cos(x)-b*sin(x))/(b^2+c^2)^(1/2)/((b^2+c^2)^(1/2)+_ + b*cos(x)+c*sin(x))^2-2/3/(b^2+c^2)^(1/2)/(c-(b-(b^2+c^2)^(1/2))*_ + tan(1/2*x)) --R --R --R (282) @@ -13571,7 +13615,10 @@ t0758:= 1/((b^2+c^2)^(1/2)+b*cos(x)+c*sin(x))^3 --E 307 --S 308 of 532 -r0758:= -1/5*(c*cos(x)-b*sin(x))/(b^2+c^2)^(1/2)/((b^2+c^2)^(1/2)+b*cos(x)+c*sin(x))^3-2/15*(c*cos(x)-b*sin(x))/(b^2+c^2)/((b^2+c^2)^(1/2)+b*cos(x)+c*sin(x))^2-4/15/(b^2+c^2)/(c-(b-(b^2+c^2)^(1/2))*tan(1/2*x)) +r0758:= -1/5*(c*cos(x)-b*sin(x))/(b^2+c^2)^(1/2)/((b^2+c^2)^(1/2)+_ + b*cos(x)+c*sin(x))^3-2/15*(c*cos(x)-b*sin(x))/(b^2+c^2)/_ + ((b^2+c^2)^(1/2)+b*cos(x)+c*sin(x))^2-4/15/(b^2+c^2)/_ + (c-(b-(b^2+c^2)^(1/2))*tan(1/2*x)) --R --R --R (284) @@ -14118,7 +14165,9 @@ t0760:= ((b^2+c^2)^(1/2)+b*cos(x)+c*sin(x))^(3/2) --E 317 --S 318 of 532 -r0760:= -8/3*(b^2+c^2)^(1/2)*(c*cos(x)-b*sin(x))/((b^2+c^2)^(1/2)+b*cos(x)+c*sin(x))^(1/2)-2/3*(c*cos(x)-b*sin(x))*((b^2+c^2)^(1/2)+b*cos(x)+c*sin(x))^(1/2) +r0760:= -8/3*(b^2+c^2)^(1/2)*(c*cos(x)-b*sin(x))/((b^2+c^2)^(1/2)+_ + b*cos(x)+c*sin(x))^(1/2)-2/3*(c*cos(x)-b*sin(x))*((b^2+c^2)^(1/2)+_ + b*cos(x)+c*sin(x))^(1/2) --R --R --R (291) @@ -14367,7 +14416,10 @@ t0761:= ((b^2+c^2)^(1/2)+b*cos(x)+c*sin(x))^(5/2) --E 322 --S 323 of 532 -r0761:= -64/15*(b^2+c^2)*(c*cos(x)-b*sin(x))/((b^2+c^2)^(1/2)+b*cos(x)+c*sin(x))^(1/2)-16/15*(b^2+c^2)^(1/2)*(c*cos(x)-b*sin(x))*((b^2+c^2)^(1/2)+b*cos(x)+c*sin(x))^(1/2)-2/5*(c*cos(x)-b*sin(x))*((b^2+c^2)^(1/2)+b*cos(x)+c*sin(x))^(3/2) +r0761:= -64/15*(b^2+c^2)*(c*cos(x)-b*sin(x))/((b^2+c^2)^(1/2)+_ + b*cos(x)+c*sin(x))^(1/2)-16/15*(b^2+c^2)^(1/2)*(c*cos(x)-b*sin(x))*_ + ((b^2+c^2)^(1/2)+b*cos(x)+c*sin(x))^(1/2)-_ + 2/5*(c*cos(x)-b*sin(x))*((b^2+c^2)^(1/2)+b*cos(x)+c*sin(x))^(3/2) --R --R --R (296) @@ -14718,7 +14770,9 @@ t0762:= 1/(a+b*cos(x)+c*sin(x))^2 --E 327 --S 328 of 532 -r0762:= 2*a*atan((c+(a-b)*tan(1/2*x))/(a^2-b^2-c^2)^(1/2))/(a^2-b^2-c^2)^(3/2)+(c*cos(x)-b*sin(x))/(a^2-b^2-c^2)/(a+b*cos(x)+c*sin(x)) +r0762:= 2*a*atan((c+(a-b)*tan(1/2*x))/(a^2-b^2-c^2)^(1/2))/_ + (a^2-b^2-c^2)^(3/2)+(c*cos(x)-b*sin(x))/(a^2-b^2-c^2)/_ + (a+b*cos(x)+c*sin(x)) --R --R --R (301) @@ -15362,7 +15416,10 @@ t0763:= 1/(a+b*cos(x)+c*sin(x))^3 --E 334 --S 335 of 532 -r0763:= (2*a^2+b^2+c^2)*atan((c+(a-b)*tan(1/2*x))/(a^2-b^2-c^2)^(1/2))/(a^2-b^2-c^2)^(5/2)+1/2*(c*cos(x)-b*sin(x))/(a^2-b^2-c^2)/(a+b*cos(x)+c*sin(x))^2+3/2*a*(c*cos(x)-b*sin(x))/(a^2-b^2-c^2)^2/(a+b*cos(x)+c*sin(x)) +r0763:= (2*a^2+b^2+c^2)*atan((c+(a-b)*tan(1/2*x))/(a^2-b^2-c^2)^(1/2))/_ + (a^2-b^2-c^2)^(5/2)+1/2*(c*cos(x)-b*sin(x))/(a^2-b^2-c^2)/_ + (a+b*cos(x)+c*sin(x))^2+_ + 3/2*a*(c*cos(x)-b*sin(x))/(a^2-b^2-c^2)^2/(a+b*cos(x)+c*sin(x)) --R --R --R (308) @@ -38207,7 +38264,8 @@ t0765:= 1/(a+a*cos(x)+c*sin(x))^2 --E 346 --S 347 of 532 -r0765:= -a*log(a+c*tan(1/2*x))/c^3-(c*cos(x)-a*sin(x))/c^2/(a+a*cos(x)+c*sin(x)) +r0765:= -a*log(a+c*tan(1/2*x))/c^3-(c*cos(x)-a*sin(x))/c^2/_ + (a+a*cos(x)+c*sin(x)) --R --R --R (320) @@ -38294,7 +38352,9 @@ t0766:= 1/(a+a*cos(x)+c*sin(x))^3 --E 351 --S 352 of 532 -r0766:= 1/2*(3*a^2+c^2)*log(a+c*tan(1/2*x))/c^5-1/2*(c*cos(x)-a*sin(x))/c^2/(a+a*cos(x)+c*sin(x))^2+3/2*a*(c*cos(x)-a*sin(x))/c^4/(a+a*cos(x)+c*sin(x)) +r0766:= 1/2*(3*a^2+c^2)*log(a+c*tan(1/2*x))/c^5-1/2*(c*cos(x)-a*sin(x))/_ + c^2/(a+a*cos(x)+c*sin(x))^2+3/2*a*(c*cos(x)-a*sin(x))/c^4/_ + (a+a*cos(x)+c*sin(x)) --R --R --R (325) @@ -38979,7 +39039,9 @@ t0767:= 1/(a+b*cos(x)+c*sin(x))^(1/2) --E 356 --S 357 of 532 -r0767:= 2*EllipticF(1/2*x-1/2*atan(b,c),2/(1+a/(b^2+c^2)^(1/2)))*((a+b*cos(x)+c*sin(x))/(a+(b^2+c^2)^(1/2)))^(1/2)/(a+b*cos(x)+c*sin(x))^(1/2) +r0767:= 2*EllipticF(1/2*x-1/2*atan(b,c),2/(1+a/(b^2+c^2)^(1/2)))*_ + ((a+b*cos(x)+c*sin(x))/(a+(b^2+c^2)^(1/2)))^(1/2)/_ + (a+b*cos(x)+c*sin(x))^(1/2) --R --R There are 2 exposed and 0 unexposed library operations named atan --R having 2 argument(s) but none was determined to be applicable. @@ -39045,7 +39107,10 @@ t0768:= 1/(a+b*cos(x)+c*sin(x))^(3/2) --E 361 --S 362 of 532 -r0768:= 2*(c*cos(x)-b*sin(x))/(a^2-b^2-c^2)/(a+b*cos(x)+c*sin(x))^(1/2)+2*EllipticE(1/2*x-1/2*atan(b,c),2/(1+a/(b^2+c^2)^(1/2)))*(a+b*cos(x)+c*sin(x))^(1/2)/(a^2-b^2-c^2)/((a+b*cos(x)+c*sin(x))/(a+(b^2+c^2)^(1/2)))^(1/2) +r0768:= 2*(c*cos(x)-b*sin(x))/(a^2-b^2-c^2)/(a+b*cos(x)+c*sin(x))^(1/2)+_ + 2*EllipticE(1/2*x-1/2*atan(b,c),2/(1+a/(b^2+c^2)^(1/2)))*_ + (a+b*cos(x)+c*sin(x))^(1/2)/(a^2-b^2-c^2)/_ + ((a+b*cos(x)+c*sin(x))/(a+(b^2+c^2)^(1/2)))^(1/2) --R --R There are 2 exposed and 0 unexposed library operations named atan --R having 2 argument(s) but none was determined to be applicable. @@ -39110,7 +39175,9 @@ t0769:= (a+b*cos(x)+c*sin(x))^(1/2) --E 366 --S 367 of 532 -r0769:= 2*EllipticE(1/2*x-1/2*atan(b,c),2/(1+a/(b^2+c^2)^(1/2)))*(a+b*cos(x)+c*sin(x))^(1/2)/((a+b*cos(x)+c*sin(x))/(a+(b^2+c^2)^(1/2)))^(1/2) +r0769:= 2*EllipticE(1/2*x-1/2*atan(b,c),2/(1+a/(b^2+c^2)^(1/2)))*_ + (a+b*cos(x)+c*sin(x))^(1/2)/((a+b*cos(x)+c*sin(x))/_ + (a+(b^2+c^2)^(1/2)))^(1/2) --R --R There are 2 exposed and 0 unexposed library operations named atan --R having 2 argument(s) but none was determined to be applicable. @@ -39171,7 +39238,9 @@ t0770:= 1/(a+b*tan(x)+c*sec(x)) --E 371 --S 372 of 532 -r0770:= a*x/(a^2+b^2)+2*a*c*atanh((b+(-a+c)*tan(1/2*x))/(a^2+b^2-c^2)^(1/2))/(a^2+b^2)/(a^2+b^2-c^2)^(1/2)+b*log(c+a*cos(x)+b*sin(x))/(a^2+b^2) +r0770:= a*x/(a^2+b^2)+2*a*c*atanh((b+(-a+c)*tan(1/2*x))/_ + (a^2+b^2-c^2)^(1/2))/(a^2+b^2)/(a^2+b^2-c^2)^(1/2)+_ + b*log(c+a*cos(x)+b*sin(x))/(a^2+b^2) --R --R --R (342) @@ -39784,7 +39853,9 @@ t0771:= 1/(a+b*cot(x)+c*csc(x)) --E 378 --S 379 of 532 -r0771:= a*x/(a^2+b^2)+2*a*c*atanh((a+(-b+c)*tan(1/2*x))/(a^2+b^2-c^2)^(1/2))/(a^2+b^2)/(a^2+b^2-c^2)^(1/2)-b*log(c+b*cos(x)+a*sin(x))/(a^2+b^2) +r0771:= a*x/(a^2+b^2)+2*a*c*atanh((a+(-b+c)*tan(1/2*x))/_ + (a^2+b^2-c^2)^(1/2))/(a^2+b^2)/(a^2+b^2-c^2)^(1/2)-_ + b*log(c+b*cos(x)+a*sin(x))/(a^2+b^2) --R --R --R (349) @@ -40402,7 +40473,8 @@ t0772:= x*cos(x)/(a+b*sin(x))^2 --E 385 --S 386 of 532 -r0772:= 2*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b/(a^2-b^2)^(1/2)-x/b/(a+b*sin(x)) +r0772:= 2*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b/(a^2-b^2)^(1/2)-_ + x/b/(a+b*sin(x)) --R --R --R x @@ -40669,7 +40741,8 @@ t0773:= x*cos(x)/(a+b*sin(x))^3 --E 392 --S 393 of 532 -r0773:= a*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b/(a^2-b^2)^(3/2)-1/2*x/b/(a+b*sin(x))^2+1/2*cos(x)/(a^2-b^2)/(a+b*sin(x)) +r0773:= a*atan((b+a*tan(1/2*x))/(a^2-b^2)^(1/2))/b/(a^2-b^2)^(3/2)-_ + 1/2*x/b/(a+b*sin(x))^2+1/2*cos(x)/(a^2-b^2)/(a+b*sin(x)) --R --R --R (363) @@ -43228,7 +43301,8 @@ t0774:= x*sin(x)/(a+b*cos(x))^2 --E 399 --S 400 of 532 -r0774:= -2*atan((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/b/(a^2-b^2)^(1/2)+x/b/(a+b*cos(x)) +r0774:= -2*atan((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/b/(a^2-b^2)^(1/2)+_ + x/b/(a+b*cos(x)) --R --R --R x @@ -43408,7 +43482,8 @@ t0775:= x*sin(x)/(a+b*cos(x))^3 --E 406 --S 407 of 532 -r0775:= -a*atan((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/b/(a^2-b^2)^(3/2)+1/2*x/b/(a+b*cos(x))^2+1/2*sin(x)/(a^2-b^2)/(a+b*cos(x)) +r0775:= -a*atan((a-b)*tan(1/2*x)/(a^2-b^2)^(1/2))/b/(a^2-b^2)^(3/2)+_ + 1/2*x/b/(a+b*cos(x))^2+1/2*sin(x)/(a^2-b^2)/(a+b*cos(x)) --R --R --R (377) @@ -44643,7 +44718,8 @@ t0780:= sin(a+b*x)*tan(c+b*x)^3 --E 433 --S 434 of 532 -r0780:= -3/2*atanh(sin(c+b*x))*cos(a-c)/b+sec(c+b*x)*sin(a-c)/b+sin(a+b*x)/b+1/2*cos(a-c)*sec(c+b*x)*tan(c+b*x)/b +r0780:= -3/2*atanh(sin(c+b*x))*cos(a-c)/b+sec(c+b*x)*sin(a-c)/b+sin(a+b*x)/b+_ + 1/2*cos(a-c)*sec(c+b*x)*tan(c+b*x)/b --R --R --R (404) @@ -48224,7 +48300,8 @@ t0783:= sin(a+b*x)*cot(c+b*x)^3 --E 448 --S 449 of 532 -r0783:= -cos(a-c)*csc(c+b*x)/b+3/2*atanh(cos(c+b*x))*sin(a-c)/b-1/2*cot(c+b*x)*csc(c+b*x)*sin(a-c)/b-sin(a+b*x)/b +r0783:= -cos(a-c)*csc(c+b*x)/b+3/2*atanh(cos(c+b*x))*sin(a-c)/b-_ + 1/2*cot(c+b*x)*csc(c+b*x)*sin(a-c)/b-sin(a+b*x)/b --R --R --R (419) @@ -49963,7 +50040,8 @@ t0792:= cos(a+b*x)*tan(c+b*x)^3 --E 493 --S 494 of 532 -r0792:= cos(a+b*x)/b+cos(a-c)*sec(c+b*x)/b+3/2*atanh(sin(c+b*x))*sin(a-c)/b-1/2*sec(c+b*x)*sin(a-c)*tan(c+b*x)/b +r0792:= cos(a+b*x)/b+cos(a-c)*sec(c+b*x)/b+3/2*atanh(sin(c+b*x))*_ + sin(a-c)/b-1/2*sec(c+b*x)*sin(a-c)*tan(c+b*x)/b --R --R --R (463) @@ -53433,7 +53511,8 @@ t0795:= cos(a+b*x)*cot(c+b*x)^3 --E 508 --S 509 of 532 -r0795:= 3/2*atanh(cos(c+b*x))*cos(a-c)/b-cos(a+b*x)/b-1/2*cos(a-c)*cot(c+b*x)*csc(c+b*x)/b+csc(c+b*x)*sin(a-c)/b +r0795:= 3/2*atanh(cos(c+b*x))*cos(a-c)/b-cos(a+b*x)/b-_ + 1/2*cos(a-c)*cot(c+b*x)*csc(c+b*x)/b+csc(c+b*x)*sin(a-c)/b --R --R --R (478) diff --git a/src/input/richtrig800-899.input.pamphlet b/src/input/richtrig800-899.input.pamphlet index bf64a3b..ea8ff27 100644 --- a/src/input/richtrig800-899.input.pamphlet +++ b/src/input/richtrig800-899.input.pamphlet @@ -269,7 +269,8 @@ t0802:= sin(x)^2/(a+b*sin(2*x)) --E 11 --S 12 of 526 -r0802:= 1/2*atan((b+a*tan(x))/(a^2-b^2)^(1/2))/(a^2-b^2)^(1/2)-1/4*log(a+b*sin(2*x))/b +r0802:= 1/2*atan((b+a*tan(x))/(a^2-b^2)^(1/2))/(a^2-b^2)^(1/2)-_ + 1/4*log(a+b*sin(2*x))/b --R --R --R +---------+ @@ -1803,7 +1804,8 @@ t0803:= cos(x)^2/(a+b*sin(2*x)) --E 18 --S 19 of 526 -r0803:= 1/2*atan((b+a*tan(x))/(a^2-b^2)^(1/2))/(a^2-b^2)^(1/2)+1/4*log(a+b*sin(2*x))/b +r0803:= 1/2*atan((b+a*tan(x))/(a^2-b^2)^(1/2))/(a^2-b^2)^(1/2)+_ + 1/4*log(a+b*sin(2*x))/b --R --R --R +---------+ @@ -3388,7 +3390,8 @@ t0806:= x*cos(2*x)*sec(x)^3 --E 35 --S 36 of 526 -r0806:= -3*%i*x*atan(exp(1)^(%i*x))+3/2*%i*polylog(2,-%i*exp(1)^(%i*x))-3/2*%i*polylog(2,%i*exp(1)^(%i*x))+1/2*sec(x)-1/2*x*sec(x)*tan(x) +r0806:= -3*%i*x*atan(exp(1)^(%i*x))+3/2*%i*polylog(2,-%i*exp(1)^(%i*x))-_ + 3/2*%i*polylog(2,%i*exp(1)^(%i*x))+1/2*sec(x)-1/2*x*sec(x)*tan(x) --R --R There are no library operations named polylog --R Use HyperDoc Browse or issue @@ -3449,7 +3452,11 @@ t0807:= sin(a+b*x)^(1/2)/cos(a+b*x)^(1/2) --E 40 --S 41 of 526 -r0807:= -1/2*atan(1-2^(1/2)*sin(a+b*x)^(1/2)/cos(a+b*x)^(1/2))*2^(1/2)/b+1/2*atan(1+2^(1/2)*sin(a+b*x)^(1/2)/cos(a+b*x)^(1/2))*2^(1/2)/b+1/4*log(1-2^(1/2)*sin(a+b*x)^(1/2)/cos(a+b*x)^(1/2)+tan(a+b*x))*2^(1/2)/b-1/4*log(1+2^(1/2)*sin(a+b*x)^(1/2)/cos(a+b*x)^(1/2)+tan(a+b*x))*2^(1/2)/b +r0807:= -1/2*atan(1-2^(1/2)*sin(a+b*x)^(1/2)/cos(a+b*x)^(1/2))*2^(1/2)/b+_ + 1/2*atan(1+2^(1/2)*sin(a+b*x)^(1/2)/cos(a+b*x)^(1/2))*2^(1/2)/b+_ + 1/4*log(1-2^(1/2)*sin(a+b*x)^(1/2)/cos(a+b*x)^(1/2)+_ + tan(a+b*x))*2^(1/2)/b-1/4*_ + log(1+2^(1/2)*sin(a+b*x)^(1/2)/cos(a+b*x)^(1/2)+tan(a+b*x))*2^(1/2)/b --R --R --R (40) @@ -3575,7 +3582,11 @@ t0808:= cos(a+b*x)^(1/2)/sin(a+b*x)^(1/2) --E 45 --S 46 of 526 -r0808:= -1/2*atan(-1+2^(1/2)*cos(a+b*x)^(1/2)/sin(a+b*x)^(1/2))*2^(1/2)/b-1/2*atan(1+2^(1/2)*cos(a+b*x)^(1/2)/sin(a+b*x)^(1/2))*2^(1/2)/b-1/4*log(1+cot(a+b*x)-2^(1/2)*cos(a+b*x)^(1/2)/sin(a+b*x)^(1/2))*2^(1/2)/b+1/4*log(1+cot(a+b*x)+2^(1/2)*cos(a+b*x)^(1/2)/sin(a+b*x)^(1/2))*2^(1/2)/b +r0808:= -1/2*atan(-1+2^(1/2)*cos(a+b*x)^(1/2)/sin(a+b*x)^(1/2))*2^(1/2)/b-_ + 1/2*atan(1+2^(1/2)*cos(a+b*x)^(1/2)/sin(a+b*x)^(1/2))*2^(1/2)/b-_ + 1/4*log(1+cot(a+b*x)-2^(1/2)*cos(a+b*x)^(1/2)/sin(a+b*x)^(1/2))*_ + 2^(1/2)/b+1/4*log(1+cot(a+b*x)+2^(1/2)*_ + cos(a+b*x)^(1/2)/sin(a+b*x)^(1/2))*2^(1/2)/b --R --R --R (45) @@ -3707,7 +3718,10 @@ t0809:= sin(a+b*x)^(1/3)/cos(a+b*x)^(1/3) --E 50 --S 51 of 526 -r0809:= -1/2*3^(1/2)*atan(1/3*(1-2*sin(a+b*x)^(2/3)/cos(a+b*x)^(2/3))*3^(1/2))/b-1/2*log(1+sin(a+b*x)^(2/3)/cos(a+b*x)^(2/3))/b+1/4*log(1-sin(a+b*x)^(2/3)/cos(a+b*x)^(2/3)+sin(a+b*x)^(4/3)/cos(a+b*x)^(4/3))/b +r0809:= -1/2*3^(1/2)*atan(1/3*(1-2*sin(a+b*x)^(2/3)/cos(a+b*x)^(2/3))*_ + 3^(1/2))/b-1/2*log(1+sin(a+b*x)^(2/3)/cos(a+b*x)^(2/3))/b+_ + 1/4*log(1-sin(a+b*x)^(2/3)/cos(a+b*x)^(2/3)+_ + sin(a+b*x)^(4/3)/cos(a+b*x)^(4/3))/b --R --R --R (50) @@ -3765,7 +3779,10 @@ t0810:= cos(a+b*x)^(1/3)/sin(a+b*x)^(1/3) --E 55 --S 56 of 526 -r0810:= 1/2*3^(1/2)*atan(1/3*(1-2*cos(a+b*x)^(2/3)/sin(a+b*x)^(2/3))*3^(1/2))/b-1/4*log(1+cos(a+b*x)^(4/3)/sin(a+b*x)^(4/3)-cos(a+b*x)^(2/3)/sin(a+b*x)^(2/3))/b+1/2*log(1+cos(a+b*x)^(2/3)/sin(a+b*x)^(2/3))/b +r0810:= 1/2*3^(1/2)*atan(1/3*(1-2*cos(a+b*x)^(2/3)/sin(a+b*x)^(2/3))*_ + 3^(1/2))/b-1/4*log(1+cos(a+b*x)^(4/3)/sin(a+b*x)^(4/3)-_ + cos(a+b*x)^(2/3)/sin(a+b*x)^(2/3))/b+_ + 1/2*log(1+cos(a+b*x)^(2/3)/sin(a+b*x)^(2/3))/b --R --R --R (52) @@ -3875,7 +3892,8 @@ t0812:= x*cos(x)*csc(x)^(1/2) --E 65 --S 66 of 526 -r0812:= 2*x/csc(x)^(1/2)-4*csc(x)^(1/2)*EllipticE(-1/4*%pi+1/2*x,2)*sin(x)^(1/2) +r0812:= 2*x/csc(x)^(1/2)-4*csc(x)^(1/2)*_ + EllipticE(-1/4*%pi+1/2*x,2)*sin(x)^(1/2) --R --R There are no library operations named EllipticE --R Use HyperDoc Browse or issue @@ -4451,7 +4469,8 @@ t0817:= cot(x)/(3-cos(x))^(1/2) --E 90 --S 91 of 526 -r0817:= -1/2*atanh(1/2*(3-cos(x))^(1/2))-1/2*atanh(1/2*(3-cos(x))^(1/2)*2^(1/2))*2^(1/2) +r0817:= -1/2*atanh(1/2*(3-cos(x))^(1/2))-_ + 1/2*atanh(1/2*(3-cos(x))^(1/2)*2^(1/2))*2^(1/2) --R --R --R +-+ +------------+ +------------+ @@ -7020,7 +7039,8 @@ t0825:= sin(x)^2/(a*cos(x)+b*sin(x)) --E 130 --S 131 of 526 -r0825:= -a^2*atanh((b*cos(x)-a*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(3/2)-b*cos(x)/(a^2+b^2)-a*sin(x)/(a^2+b^2) +r0825:= -a^2*atanh((b*cos(x)-a*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(3/2)-_ + b*cos(x)/(a^2+b^2)-a*sin(x)/(a^2+b^2) --R --R --R +-------+ @@ -7132,7 +7152,9 @@ t0826:= sin(x)^3/(a*cos(x)+b*sin(x)) --E 135 --S 136 of 526 -r0826:= 1/2/(a^2+b^2)^2*(3*a^2*b*x+b^3*x-2*a^3*log(a*cos(x)+b*sin(x))-a^2*b*sin(x)*cos(x)-b^3*sin(x)*cos(x)-a^3+a^3*cos(x)^2-b^2*a+b^2*a*cos(x)^2) +r0826:= 1/2/(a^2+b^2)^2*(3*a^2*b*x+b^3*x-2*a^3*log(a*cos(x)+b*sin(x))-_ + a^2*b*sin(x)*cos(x)-b^3*sin(x)*cos(x)-a^3+a^3*cos(x)^2-_ + b^2*a+b^2*a*cos(x)^2) --R --R --R (125) @@ -7202,7 +7224,8 @@ t0827:= sin(x)/(a*cos(x)+b*sin(x))^2 --E 140 --S 141 of 526 -r0827:= -b*atanh((b*cos(x)-a*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(3/2)+a/(a^2+b^2)/(a*cos(x)+b*sin(x)) +r0827:= -b*atanh((b*cos(x)-a*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(3/2)+_ + a/(a^2+b^2)/(a*cos(x)+b*sin(x)) --R --R --R +-------+ @@ -7315,7 +7338,8 @@ t0828:= sin(x)^2/(a*cos(x)+b*sin(x))^2 --E 145 --S 146 of 526 -r0828:= -(a^2-b^2)*x/(a^2+b^2)^2+a/(a^2+b^2)/(b+a*cot(x))-2*a*b*log(a*cos(x)+b*sin(x))/(a^2+b^2)^2 +r0828:= -(a^2-b^2)*x/(a^2+b^2)^2+a/(a^2+b^2)/(b+a*cot(x))-_ + 2*a*b*log(a*cos(x)+b*sin(x))/(a^2+b^2)^2 --R --R --R (135) @@ -7431,7 +7455,8 @@ t0829:= sin(x)/(a*cos(x)+b*sin(x))^3 --E 150 --S 151 of 526 -r0829:= 1/2*a/(a^2+b^2)/(a*cos(x)+b*sin(x))^2+b*sin(x)/a/(a^2+b^2)/(a*cos(x)+b*sin(x)) +r0829:= 1/2*a/(a^2+b^2)/(a*cos(x)+b*sin(x))^2+_ + b*sin(x)/a/(a^2+b^2)/(a*cos(x)+b*sin(x)) --R --R --R (140) @@ -7570,7 +7595,9 @@ t0830:= sin(x)^3/(a*cos(x)+b*sin(x))^3 --E 155 --S 156 of 526 -r0830:= -b*(3*a^2-b^2)*x/(a^2+b^2)^3+1/2*a/(a^2+b^2)/(b+a*cot(x))^2+2*a*b/(a^2+b^2)^2/(b+a*cot(x))+a*(a^2-3*b^2)*log(a*cos(x)+b*sin(x))/(a^2+b^2)^3 +r0830:= -b*(3*a^2-b^2)*x/(a^2+b^2)^3+1/2*a/(a^2+b^2)/(b+a*cot(x))^2+_ + 2*a*b/(a^2+b^2)^2/(b+a*cot(x))+a*(a^2-3*b^2)*_ + log(a*cos(x)+b*sin(x))/(a^2+b^2)^3 --R --R --R (145) @@ -7959,7 +7986,8 @@ t0832:= cos(x)^2/(a*cos(x)+b*sin(x)) --E 165 --S 166 of 526 -r0832:= -b^2*atanh((b*cos(x)-a*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(3/2)+b*cos(x)/(a^2+b^2)+a*sin(x)/(a^2+b^2) +r0832:= -b^2*atanh((b*cos(x)-a*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(3/2)+_ + b*cos(x)/(a^2+b^2)+a*sin(x)/(a^2+b^2) --R --R --R +-------+ @@ -8071,7 +8099,9 @@ t0833:= cos(x)^3/(a*cos(x)+b*sin(x)) --E 170 --S 171 of 526 -r0833:= 1/2/(a^2+b^2)^2*(3*a*b^2*x+a^3*x+2*b^3*log(a*cos(x)+b*sin(x))+sin(x)*a^3*cos(x)+sin(x)*a*cos(x)*b^2-a^2*b+b*cos(x)^2*a^2-b^3+b^3*cos(x)^2) +r0833:= 1/2/(a^2+b^2)^2*(3*a*b^2*x+a^3*x+2*b^3*log(a*cos(x)+_ + b*sin(x))+sin(x)*a^3*cos(x)+sin(x)*a*cos(x)*b^2-_ + a^2*b+b*cos(x)^2*a^2-b^3+b^3*cos(x)^2) --R --R --R (160) @@ -8141,7 +8171,8 @@ t0834:= cos(x)/(a*cos(x)+b*sin(x))^2 --E 175 --S 176 of 526 -r0834:= -a*atanh((b*cos(x)-a*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(3/2)-b/(a^2+b^2)/(a*cos(x)+b*sin(x)) +r0834:= -a*atanh((b*cos(x)-a*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(3/2)-_ + b/(a^2+b^2)/(a*cos(x)+b*sin(x)) --R --R --R +-------+ @@ -8254,7 +8285,8 @@ t0835:= cos(x)^2/(a*cos(x)+b*sin(x))^2 --E 180 --S 181 of 526 -r0835:= (a^2-b^2)*x/(a^2+b^2)^2+2*a*b*log(a*cos(x)+b*sin(x))/(a^2+b^2)^2-b/(a^2+b^2)/(a+b*tan(x)) +r0835:= (a^2-b^2)*x/(a^2+b^2)^2+2*a*b*log(a*cos(x)+b*sin(x))/(a^2+b^2)^2-_ + b/(a^2+b^2)/(a+b*tan(x)) --R --R --R (170) @@ -8373,7 +8405,8 @@ t0836:= cos(x)/(a*cos(x)+b*sin(x))^3 --E 185 --S 186 of 526 -r0836:= -1/2*b/(a^2+b^2)/(a*cos(x)+b*sin(x))^2+sin(x)/(a^2+b^2)/(a*cos(x)+b*sin(x)) +r0836:= -1/2*b/(a^2+b^2)/(a*cos(x)+b*sin(x))^2+_ + sin(x)/(a^2+b^2)/(a*cos(x)+b*sin(x)) --R --R --R (175) @@ -8512,7 +8545,9 @@ t0837:= cos(x)^3/(a*cos(x)+b*sin(x))^3 --E 190 --S 191 of 526 -r0837:= (a^3*x-3*a*b^2*x)/(a^2+b^2)^3+b*(3*a^2-b^2)*log(a*cos(x)+b*sin(x))/(a^2+b^2)^3-1/2*b/(a^2+b^2)/(a+b*tan(x))^2-2*a*b/(a^2+b^2)^2/(a+b*tan(x)) +r0837:= (a^3*x-3*a*b^2*x)/(a^2+b^2)^3+b*(3*a^2-b^2)*_ + log(a*cos(x)+b*sin(x))/(a^2+b^2)^3-1/2*b/(a^2+b^2)/(a+b*tan(x))^2-_ + 2*a*b/(a^2+b^2)^2/(a+b*tan(x)) --R --R --R (180) @@ -8858,7 +8893,8 @@ t0838:= tan(x)/(b*cos(x)+a*sin(x)) --E 195 --S 196 of 526 -r0838:= atanh(sin(x))/a+b*atanh((a*cos(x)-b*sin(x))/(a^2+b^2)^(1/2))/a/(a^2+b^2)^(1/2) +r0838:= atanh(sin(x))/a+b*atanh((a*cos(x)-b*sin(x))/(a^2+b^2)^(1/2))/_ + a/(a^2+b^2)^(1/2) --R --R --R +-------+ @@ -9462,7 +9498,8 @@ t0842:= cos(x)*sin(x)/(a*cos(x)+b*sin(x)) --E 215 --S 216 of 526 -r0842:= a*b*atanh((b*cos(x)-a*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(3/2)-a*cos(x)/(a^2+b^2)+b*sin(x)/(a^2+b^2) +r0842:= a*b*atanh((b*cos(x)-a*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(3/2)-_ + a*cos(x)/(a^2+b^2)+b*sin(x)/(a^2+b^2) --R --R --R +-------+ @@ -9572,7 +9609,9 @@ t0843:= cos(x)*sin(x)^2/(a*cos(x)+b*sin(x)) --E 220 --S 221 of 526 -r0843:= 1/2/(a^2+b^2)^2*(a^3*x-a*b^2*x+2*a^2*b*log(a*cos(x)+b*sin(x))-cos(x)*sin(x)*a^3-cos(x)*sin(x)*b^2*a-b*cos(x)^2*a^2+a^2*b-b^3*cos(x)^2+b^3) +r0843:= 1/2/(a^2+b^2)^2*(a^3*x-a*b^2*x+2*a^2*b*_ + log(a*cos(x)+b*sin(x))-cos(x)*sin(x)*a^3-_ + cos(x)*sin(x)*b^2*a-b*cos(x)^2*a^2+a^2*b-b^3*cos(x)^2+b^3) --R --R --R (210) @@ -9642,7 +9681,10 @@ t0844:= cos(x)*sin(x)^3/(a*cos(x)+b*sin(x)) --E 225 --S 226 of 526 -r0844:= a^3*b*atanh((b*cos(x)-a*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(5/2)-a^3*cos(x)/(a^2+b^2)^2+a*cos(x)^3/(3*a^2+3*b^2)-a^4*sin(x)/b/(a^2+b^2)^2+a^2*sin(x)/b/(a^2+b^2)+b*sin(x)^3/(3*a^2+3*b^2) +r0844:= a^3*b*atanh((b*cos(x)-a*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(5/2)-_ + a^3*cos(x)/(a^2+b^2)^2+a*cos(x)^3/(3*a^2+3*b^2)-_ + a^4*sin(x)/b/(a^2+b^2)^2+a^2*sin(x)/b/(a^2+b^2)+_ + b*sin(x)^3/(3*a^2+3*b^2) --R --R --R (215) @@ -9794,7 +9836,9 @@ t0845:= sin(x)*cos(x)^2/(a*cos(x)+b*sin(x)) --E 230 --S 231 of 526 -r0845:= -1/2*(-b^3*x+a^2*b*x+2*a*b^2*log(a*cos(x)+b*sin(x))-a^2*b*sin(x)*cos(x)-b^3*sin(x)*cos(x)+cos(x)^2*a^3-a^3+b^2*a*cos(x)^2-b^2*a)/(a^2+b^2)^2 +r0845:= -1/2*(-b^3*x+a^2*b*x+2*a*b^2*log(a*cos(x)+b*sin(x))-_ + a^2*b*sin(x)*cos(x)-b^3*sin(x)*cos(x)+cos(x)^2*a^3-_ + a^3+b^2*a*cos(x)^2-b^2*a)/(a^2+b^2)^2 --R --R --R (220) @@ -9864,7 +9908,9 @@ t0846:= sin(x)*cos(x)^3/(a*cos(x)+b*sin(x)) --E 235 --S 236 of 526 -r0846:= a*b^3*atanh((b*cos(x)-a*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(5/2)-a*b^2*cos(x)/(a^2+b^2)^2-a*cos(x)^3/(3*a^2+3*b^2)-a^2*b*sin(x)/(a^2+b^2)^2+b*sin(x)/(a^2+b^2)-b*sin(x)^3/(3*a^2+3*b^2) +r0846:= a*b^3*atanh((b*cos(x)-a*sin(x))/(a^2+b^2)^(1/2))/(a^2+b^2)^(5/2)-_ + a*b^2*cos(x)/(a^2+b^2)^2-a*cos(x)^3/(3*a^2+3*b^2)-_ + a^2*b*sin(x)/(a^2+b^2)^2+b*sin(x)/(a^2+b^2)-b*sin(x)^3/(3*a^2+3*b^2) --R --R --R (225) @@ -10016,7 +10062,10 @@ t0847:= sec(x)^2/(a+b*tan(x)+c*sec(x)) --E 240 --S 241 of 526 -r0847:= -2*a*c*atanh((b-(a-c)*tan(1/2*x))/(a^2+b^2-c^2)^(1/2))/(b^2-c^2)/(a^2+b^2-c^2)^(1/2)-log(1-tan(1/2*x))/(b+c)-log(1+tan(1/2*x))/(b-c)+b*log(a+c+2*b*tan(1/2*x)-(a-c)*tan(1/2*x)^2)/(b^2-c^2) +r0847:= -2*a*c*atanh((b-(a-c)*tan(1/2*x))/(a^2+b^2-c^2)^(1/2))/_ + (b^2-c^2)/(a^2+b^2-c^2)^(1/2)-log(1-tan(1/2*x))/(b+c)-_ + log(1+tan(1/2*x))/(b-c)+b*log(a+c+2*b*tan(1/2*x)-(a-c)*_ + tan(1/2*x)^2)/(b^2-c^2) --R --R --R (230) @@ -14264,7 +14313,9 @@ t0848:= csc(x)^2/(a+b*cot(x)+c*csc(x)) --E 247 --S 248 of 526 -r0848:= -2*a*c*atanh((a-(b-c)*tan(1/2*x))/(a^2+b^2-c^2)^(1/2))/(b^2-c^2)/(a^2+b^2-c^2)^(1/2)+log(tan(1/2*x))/(b+c)-b*log(b+c+2*a*tan(1/2*x)-(b-c)*tan(1/2*x)^2)/(b^2-c^2) +r0848:= -2*a*c*atanh((a-(b-c)*tan(1/2*x))/(a^2+b^2-c^2)^(1/2))/_ + (b^2-c^2)/(a^2+b^2-c^2)^(1/2)+log(tan(1/2*x))/(b+c)-_ + b*log(b+c+2*a*tan(1/2*x)-(b-c)*tan(1/2*x)^2)/(b^2-c^2) --R --R --R (237) @@ -15771,7 +15822,9 @@ t0849:= (A+C*sin(x))/(a+b*cos(x)+c*sin(x)) --E 254 --S 255 of 526 -r0849:= c*C*x/(b^2+c^2)+2*(A-a*c*C/(b^2+c^2))*atan((c+(a-b)*tan(1/2*x))/(a^2-b^2-c^2)^(1/2))/(a^2-b^2-c^2)^(1/2)-b*C*log(a+b*cos(x)+c*sin(x))/(b^2+c^2) +r0849:= c*C*x/(b^2+c^2)+2*(A-a*c*C/(b^2+c^2))*_ + atan((c+(a-b)*tan(1/2*x))/(a^2-b^2-c^2)^(1/2))/(a^2-b^2-c^2)^(1/2)-_ + b*C*log(a+b*cos(x)+c*sin(x))/(b^2+c^2) --R --R --R (244) @@ -16605,7 +16658,9 @@ t0850:= (A+C*sin(x))/(a+b*cos(x)+c*sin(x))^2 --E 261 --S 262 of 526 -r0850:= 2*(a*A-c*C)*atan((c+(a-b)*tan(1/2*x))/(a^2-b^2-c^2)^(1/2))/(a^2-b^2-c^2)^(3/2)-(b*C-(A*c-a*C)*cos(x)+A*b*sin(x))/(a^2-b^2-c^2)/(a+b*cos(x)+c*sin(x)) +r0850:= 2*(a*A-c*C)*atan((c+(a-b)*tan(1/2*x))/(a^2-b^2-c^2)^(1/2))/_ + (a^2-b^2-c^2)^(3/2)-(b*C-(A*c-a*C)*cos(x)+A*b*sin(x))/_ + (a^2-b^2-c^2)/(a+b*cos(x)+c*sin(x)) --R --R --R (251) @@ -17391,7 +17446,11 @@ t0851:= (A+C*sin(x))/(a+b*cos(x)+c*sin(x))^3 --E 268 --S 269 of 526 -r0851:= (2*a^2*A+A*b^2+c*(A*c-3*a*C))*atan((c+(a-b)*tan(1/2*x))/(a^2-b^2-c^2)^(1/2))/(a^2-b^2-c^2)^(5/2)-1/2*(b*C-(A*c-a*C)*cos(x)+A*b*sin(x))/(a^2-b^2-c^2)/(a+b*cos(x)+c*sin(x))^2-1/2*(a*b*C+(2*c^2*C-a*(3*A*c-a*C))*cos(x)+b*(3*a*A-2*c*C)*sin(x))/(a^2-b^2-c^2)^2/(a+b*cos(x)+c*sin(x)) +r0851:= (2*a^2*A+A*b^2+c*(A*c-3*a*C))*atan((c+(a-b)*tan(1/2*x))/_ + (a^2-b^2-c^2)^(1/2))/(a^2-b^2-c^2)^(5/2)-1/2*(b*C-(A*c-a*C)*_ + cos(x)+A*b*sin(x))/(a^2-b^2-c^2)/(a+b*cos(x)+c*sin(x))^2-_ + 1/2*(a*b*C+(2*c^2*C-a*(3*A*c-a*C))*cos(x)+b*(3*a*A-2*c*C)*_ + sin(x))/(a^2-b^2-c^2)^2/(a+b*cos(x)+c*sin(x)) --R --R --R (258) @@ -19584,7 +19643,9 @@ t0852:= (A+B*cos(x))/(a+b*cos(x)+c*sin(x)) --E 275 --S 276 of 526 -r0852:= b*B*x/(b^2+c^2)+2*(A-a*b*B/(b^2+c^2))*atan((c+(a-b)*tan(1/2*x))/(a^2-b^2-c^2)^(1/2))/(a^2-b^2-c^2)^(1/2)+B*c*log(a+b*cos(x)+c*sin(x))/(b^2+c^2) +r0852:= b*B*x/(b^2+c^2)+2*(A-a*b*B/(b^2+c^2))*atan((c+(a-b)*_ + tan(1/2*x))/(a^2-b^2-c^2)^(1/2))/(a^2-b^2-c^2)^(1/2)+_ + B*c*log(a+b*cos(x)+c*sin(x))/(b^2+c^2) --R --R --R (263) @@ -20404,7 +20465,9 @@ t0853:= (A+B*cos(x))/(a+b*cos(x)+c*sin(x))^2 --E 282 --S 283 of 526 -r0853:= 2*(a*A-b*B)*atan((c+(a-b)*tan(1/2*x))/(a^2-b^2-c^2)^(1/2))/(a^2-b^2-c^2)^(3/2)+(B*c+A*c*cos(x)-(A*b-a*B)*sin(x))/(a^2-b^2-c^2)/(a+b*cos(x)+c*sin(x)) +r0853:= 2*(a*A-b*B)*atan((c+(a-b)*tan(1/2*x))/(a^2-b^2-c^2)^(1/2))/_ + (a^2-b^2-c^2)^(3/2)+(B*c+A*c*cos(x)-_ + (A*b-a*B)*sin(x))/(a^2-b^2-c^2)/(a+b*cos(x)+c*sin(x)) --R --R --R (270) @@ -21145,7 +21208,11 @@ t0854:= (A+B*cos(x))/(a+b*cos(x)+c*sin(x))^3 --E 289 --S 290 of 526 -r0854:= (2*a^2*A+b*(A*b-3*a*B)+A*c^2)*atan((c+(a-b)*tan(1/2*x))/(a^2-b^2-c^2)^(1/2))/(a^2-b^2-c^2)^(5/2)+1/2*(B*c+A*c*cos(x)-(A*b-a*B)*sin(x))/(a^2-b^2-c^2)/(a+b*cos(x)+c*sin(x))^2+1/2*(a*B*c+(3*a*A-2*b*B)*c*cos(x)+(2*b^2*B-a*(3*A*b-a*B))*sin(x))/(a^2-b^2-c^2)^2/(a+b*cos(x)+c*sin(x)) +r0854:= (2*a^2*A+b*(A*b-3*a*B)+A*c^2)*atan((c+(a-b)*tan(1/2*x))/_ + (a^2-b^2-c^2)^(1/2))/(a^2-b^2-c^2)^(5/2)+_ + 1/2*(B*c+A*c*cos(x)-(A*b-a*B)*sin(x))/(a^2-b^2-c^2)/_ + (a+b*cos(x)+c*sin(x))^2+1/2*(a*B*c+(3*a*A-2*b*B)*c*cos(x)+_ + (2*b^2*B-a*(3*A*b-a*B))*sin(x))/(a^2-b^2-c^2)^2/(a+b*cos(x)+c*sin(x)) --R --R --R (277) @@ -23597,7 +23664,9 @@ t0855:= (A+B*cos(x)+C*sin(x))/(a+b*cos(x)+c*sin(x)) --E 296 --S 297 of 526 -r0855:= (b*B+c*C)*x/(b^2+c^2)+2*(A-a*(b*B+c*C)/(b^2+c^2))*atan((c+(a-b)*tan(1/2*x))/(a^2-b^2-c^2)^(1/2))/(a^2-b^2-c^2)^(1/2)+(B*c-b*C)*log(a+b*cos(x)+c*sin(x))/(b^2+c^2) +r0855:= (b*B+c*C)*x/(b^2+c^2)+2*(A-a*(b*B+c*C)/(b^2+c^2))*_ + atan((c+(a-b)*tan(1/2*x))/(a^2-b^2-c^2)^(1/2))/(a^2-b^2-c^2)^(1/2)+_ + (B*c-b*C)*log(a+b*cos(x)+c*sin(x))/(b^2+c^2) --R --R --R (282) @@ -24486,7 +24555,9 @@ t0856:= (A+B*cos(x)+C*sin(x))/(a+b*cos(x)+c*sin(x))^2 --E 303 --S 304 of 526 -r0856:= 2*(a*A-b*B-c*C)*atan((c+(a-b)*tan(1/2*x))/(a^2-b^2-c^2)^(1/2))/(a^2-b^2-c^2)^(3/2)+(B*c-b*C+(A*c-a*C)*cos(x)-(A*b-a*B)*sin(x))/(a^2-b^2-c^2)/(a+b*cos(x)+c*sin(x)) +r0856:= 2*(a*A-b*B-c*C)*atan((c+(a-b)*tan(1/2*x))/(a^2-b^2-c^2)^(1/2))/_ + (a^2-b^2-c^2)^(3/2)+(B*c-b*C+(A*c-a*C)*cos(x)-(A*b-a*B)*sin(x))/_ + (a^2-b^2-c^2)/(a+b*cos(x)+c*sin(x)) --R --R --R (289) @@ -25372,7 +25443,13 @@ t0857:= (A+B*cos(x)+C*sin(x))/(a+b*cos(x)+c*sin(x))^3 --E 310 --S 311 of 526 -r0857:= -(b*(A*b-a*B)+c*(A*c-a*C)+2*a*(a*A-b*B-c*C))*atan((c+(a-b)*tan(1/2*x))/(a^2-b^2-c^2)^(1/2))/(a^2-b^2-c^2)^(3/2)/(-a^2+b^2+c^2)+1/2*(B*c-b*C-(-A*c+a*C)*cos(x)+(-A*b+a*B)*sin(x))/(a^2-b^2-c^2)/(a+b*cos(x)+c*sin(x))^2+1/2*((A*b-a*B)*c-b*(A*c-a*C)-(a*(A*c-a*C)+2*c*(a*A-b*B-c*C))*cos(x)+(a*(A*b-a*B)+2*b*(a*A-b*B-c*C))*sin(x))/(a^2-b^2-c^2)/(-a^2+b^2+c^2)/(a+b*cos(x)+c*sin(x)) +r0857:= -(b*(A*b-a*B)+c*(A*c-a*C)+2*a*(a*A-b*B-c*C))*_ + atan((c+(a-b)*tan(1/2*x))/(a^2-b^2-c^2)^(1/2))/(a^2-b^2-c^2)^(3/2)/_ + (-a^2+b^2+c^2)+1/2*(B*c-b*C-(-A*c+a*C)*cos(x)+(-A*b+a*B)*sin(x))/_ + (a^2-b^2-c^2)/(a+b*cos(x)+c*sin(x))^2+_ + 1/2*((A*b-a*B)*c-b*(A*c-a*C)-(a*(A*c-a*C)+2*c*(a*A-b*B-c*C))*cos(x)+_ + (a*(A*b-a*B)+2*b*(a*A-b*B-c*C))*sin(x))/(a^2-b^2-c^2)/_ + (-a^2+b^2+c^2)/(a+b*cos(x)+c*sin(x)) --R --R --R (296) @@ -28425,7 +28502,12 @@ t0860:= 1/(a+b*sin(x)+c*sin(x)^2) --E 327 --S 328 of 526 -r0860:= -2*2^(1/2)*c*atanh(1/2*(2*c+(b-(b^2-4*a*c)^(1/2))*tan(1/2*x))*2^(1/2)/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2))/(b^2-4*a*c)^(1/2)/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2)+4*c*atanh((2*c+(b+(b^2-4*a*c)^(1/2))*tan(1/2*x))/(4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2))/(b^2-4*a*c)^(1/2)/(4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2) +r0860:= -2*2^(1/2)*c*atanh(1/2*(2*c+(b-(b^2-4*a*c)^(1/2))*_ + tan(1/2*x))*2^(1/2)/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2))/_ + (b^2-4*a*c)^(1/2)/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2)+_ + 4*c*atanh((2*c+(b+(b^2-4*a*c)^(1/2))*tan(1/2*x))/_ + (4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2))/(b^2-4*a*c)^(1/2)/_ + (4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2) --R --R --R (311) @@ -29738,7 +29820,13 @@ t0861:= sin(x)^2/(a+b*sin(x)+c*sin(x)^2) --E 332 --S 333 of 526 -r0861:= x/c+2^(1/2)*(b-(b^2-2*a*c)/(b^2-4*a*c)^(1/2))*atanh(1/2*(2*c+(b-(b^2-4*a*c)^(1/2))*tan(1/2*x))*2^(1/2)/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2))/c/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2)+2*(b+(b^2-2*a*c)/(b^2-4*a*c)^(1/2))*atanh((2*c+(b+(b^2-4*a*c)^(1/2))*tan(1/2*x))/(4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2))/c/(4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2) +r0861:= x/c+2^(1/2)*(b-(b^2-2*a*c)/(b^2-4*a*c)^(1/2))*_ + atanh(1/2*(2*c+(b-(b^2-4*a*c)^(1/2))*tan(1/2*x))*_ + 2^(1/2)/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2))/c/_ + (-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2)+2*(b+(b^2-2*a*c)/_ + (b^2-4*a*c)^(1/2))*atanh((2*c+(b+(b^2-4*a*c)^(1/2))*tan(1/2*x))/_ + (4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2))/c/_ + (4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2) --R --R --R (316) @@ -31279,7 +31367,13 @@ t0862:= sin(x)^3/(a+b*sin(x)+c*sin(x)^2) --E 337 --S 338 of 526 -r0862:= -b*x/c^2-2^(1/2)*(b^2-a*c-b*(b^2-3*a*c)/(b^2-4*a*c)^(1/2))*atanh(1/2*(2*c+(b-(b^2-4*a*c)^(1/2))*tan(1/2*x))*2^(1/2)/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2))/c^2/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2)-2*(b^2-a*c+b*(b^2-3*a*c)/(b^2-4*a*c)^(1/2))*atanh((2*c+(b+(b^2-4*a*c)^(1/2))*tan(1/2*x))/(4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2))/c^2/(4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2)-cos(x)/c +r0862:= -b*x/c^2-2^(1/2)*(b^2-a*c-b*(b^2-3*a*c)/(b^2-4*a*c)^(1/2))*_ + atanh(1/2*(2*c+(b-(b^2-4*a*c)^(1/2))*tan(1/2*x))*_ + 2^(1/2)/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2))/c^2/_ + (-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2)-2*(b^2-a*c+b*(b^2-3*a*c)/_ + (b^2-4*a*c)^(1/2))*atanh((2*c+(b+(b^2-4*a*c)^(1/2))*tan(1/2*x))/_ + (4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2))/c^2/_ + (4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2)-cos(x)/c --R --R --R (321) @@ -33307,7 +33401,14 @@ t0864:= (d+e*sin(x))/(a+b*sin(x)+c*sin(x)^2) --E 347 --S 348 of 526 -r0864:= -2^(1/2)*(e+(2*c*d-b*e)/(b^2-4*a*c)^(1/2))*atanh(1/2*(2*c+(b-(b^2-4*a*c)^(1/2))*tan(1/2*x))*2^(1/2)/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2))/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2)-2*(e-(2*c*d-b*e)/(b^2-4*a*c)^(1/2))*atanh((2*c+(b+(b^2-4*a*c)^(1/2))*tan(1/2*x))/(4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2))/(4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2) +r0864:= -2^(1/2)*(e+(2*c*d-b*e)/(b^2-4*a*c)^(1/2))*_ + atanh(1/2*(2*c+(b-(b^2-4*a*c)^(1/2))*tan(1/2*x))*2^(1/2)/_ + (-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2))/_ + (-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2)-_ + 2*(e-(2*c*d-b*e)/(b^2-4*a*c)^(1/2))*_ + atanh((2*c+(b+(b^2-4*a*c)^(1/2))*tan(1/2*x))/_ + (4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2))/_ + (4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2) --R --R --R (331) @@ -35471,7 +35572,12 @@ t0865:= 1/(a+b*cos(x)+c*cos(x)^2) --E 352 --S 353 of 526 -r0865:= -2*2^(1/2)*c*atanh(1/2*(b-2*c-(b^2-4*a*c)^(1/2))*tan(1/2*x)*2^(1/2)/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2))/(b^2-4*a*c)^(1/2)/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2)+4*c*atanh((b+(b^2-4*a*c)^(1/2)-2*c)*tan(1/2*x)/(4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2))/(b^2-4*a*c)^(1/2)/(4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2) +r0865:= -2*2^(1/2)*c*atanh(1/2*(b-2*c-(b^2-4*a*c)^(1/2))*_ + tan(1/2*x)*2^(1/2)/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2))/_ + (b^2-4*a*c)^(1/2)/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2)+_ + 4*c*atanh((b+(b^2-4*a*c)^(1/2)-2*c)*tan(1/2*x)/_ + (4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2))/(b^2-4*a*c)^(1/2)/_ + (4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2) --R --R --R (335) @@ -36554,7 +36660,13 @@ t0866:= cos(x)/(a+b*cos(x)+c*cos(x)^2) --E 357 --S 358 of 526 -r0866:= -2^(1/2)*(1-b/(b^2-4*a*c)^(1/2))*atanh(1/2*(b-2*c-(b^2-4*a*c)^(1/2))*tan(1/2*x)*2^(1/2)/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2))/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2)-2*(1+b/(b^2-4*a*c)^(1/2))*atanh((b+(b^2-4*a*c)^(1/2)-2*c)*tan(1/2*x)/(4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2))/(4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2) +r0866:= -2^(1/2)*(1-b/(b^2-4*a*c)^(1/2))*_ + atanh(1/2*(b-2*c-(b^2-4*a*c)^(1/2))*tan(1/2*x)*_ + 2^(1/2)/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2))/_ + (-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2)-_ + 2*(1+b/(b^2-4*a*c)^(1/2))*atanh((b+(b^2-4*a*c)^(1/2)-2*c)*_ + tan(1/2*x)/(4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2))/_ + (4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2) --R --R --R (340) @@ -37240,7 +37352,13 @@ t0867:= cos(x)^2/(a+b*cos(x)+c*cos(x)^2) --E 362 --S 363 of 526 -r0867:= x/c+2^(1/2)*(b-(b^2-2*a*c)/(b^2-4*a*c)^(1/2))*atanh(1/2*(b-2*c-(b^2-4*a*c)^(1/2))*tan(1/2*x)*2^(1/2)/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2))/c/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2)+2*(b+(b^2-2*a*c)/(b^2-4*a*c)^(1/2))*atanh((b+(b^2-4*a*c)^(1/2)-2*c)*tan(1/2*x)/(4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2))/c/(4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2) +r0867:= x/c+2^(1/2)*(b-(b^2-2*a*c)/(b^2-4*a*c)^(1/2))*_ + atanh(1/2*(b-2*c-(b^2-4*a*c)^(1/2))*tan(1/2*x)*2^(1/2)/_ + (-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2))/c/(-b^2+2*c*(a+c)+_ + (b^2-4*a*c)^(1/2)*b)^(1/2)+2*(b+(b^2-2*a*c)/(b^2-4*a*c)^(1/2))*_ + atanh((b+(b^2-4*a*c)^(1/2)-2*c)*tan(1/2*x)/_ + (4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2))/c/_ + (4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2) --R --R --R (344) @@ -38558,7 +38676,13 @@ t0868:= cos(x)^3/(a+b*cos(x)+c*cos(x)^2) --E 367 --S 368 of 526 -r0868:= -b*x/c^2-2^(1/2)*(b^2-a*c-b*(b^2-3*a*c)/(b^2-4*a*c)^(1/2))*atanh(1/2*(b-2*c-(b^2-4*a*c)^(1/2))*tan(1/2*x)*2^(1/2)/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2))/c^2/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2)-2*(b^2-a*c+b*(b^2-3*a*c)/(b^2-4*a*c)^(1/2))*atanh((b+(b^2-4*a*c)^(1/2)-2*c)*tan(1/2*x)/(4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2))/c^2/(4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2)+sin(x)/c +r0868:= -b*x/c^2-2^(1/2)*(b^2-a*c-b*(b^2-3*a*c)/(b^2-4*a*c)^(1/2))*_ + atanh(1/2*(b-2*c-(b^2-4*a*c)^(1/2))*tan(1/2*x)*2^(1/2)/_ + (-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2))/c^2/(-b^2+2*c*(a+c)+_ + (b^2-4*a*c)^(1/2)*b)^(1/2)-2*(b^2-a*c+b*(b^2-3*a*c)/_ + (b^2-4*a*c)^(1/2))*atanh((b+(b^2-4*a*c)^(1/2)-2*c)*_ + tan(1/2*x)/(4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2))/c^2/_ + (4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2)+sin(x)/c --R --R --R (349) @@ -40177,7 +40301,13 @@ t0869:= (d+e*cos(x))/(a+b*cos(x)+c*cos(x)^2) --E 372 --S 373 of 526 -r0869:= -2^(1/2)*(e+(2*c*d-b*e)/(b^2-4*a*c)^(1/2))*atanh(1/2*(b-2*c-(b^2-4*a*c)^(1/2))*tan(1/2*x)*2^(1/2)/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2))/(-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2)-2*(e-(2*c*d-b*e)/(b^2-4*a*c)^(1/2))*atanh((b+(b^2-4*a*c)^(1/2)-2*c)*tan(1/2*x)/(4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2))/(4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2) +r0869:= -2^(1/2)*(e+(2*c*d-b*e)/(b^2-4*a*c)^(1/2))*_ + atanh(1/2*(b-2*c-(b^2-4*a*c)^(1/2))*tan(1/2*x)*2^(1/2)/_ + (-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2))/_ + (-b^2+2*c*(a+c)+(b^2-4*a*c)^(1/2)*b)^(1/2)-_ + 2*(e-(2*c*d-b*e)/(b^2-4*a*c)^(1/2))*atanh((b+(b^2-4*a*c)^(1/2)-2*c)*_ + tan(1/2*x)/(4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2))/_ + (4*c^2-(b+(b^2-4*a*c)^(1/2))^2)^(1/2) --R --R --R (354) @@ -41919,7 +42049,8 @@ t0871:= csc(x)*(cos(x)+sin(x))^(1/2)/cos(x)^(3/2) --E 382 --S 383 of 526 -r0871:= -log(sin(x))+2*log(-cos(x)^(1/2)+(cos(x)+sin(x))^(1/2))+2*(cos(x)+sin(x))^(1/2)/cos(x)^(1/2) +r0871:= -log(sin(x))+2*log(-cos(x)^(1/2)+(cos(x)+sin(x))^(1/2))+_ + 2*(cos(x)+sin(x))^(1/2)/cos(x)^(1/2) --R --R --R (364) @@ -42100,7 +42231,8 @@ t0874:= cos(x)*(-1+csc(x)^2)^(1/2)*(1-sin(x)^2)^3 --E 397 --S 398 of 526 -r0874:= -1/105*(105*atanh(cos(x))-105*cos(x)-35*cos(x)^3-21*cos(x)^5-15*cos(x)^7)*(cot(x)^2)^(1/2)*tan(x) +r0874:= -1/105*(105*atanh(cos(x))-105*cos(x)-35*cos(x)^3-_ + 21*cos(x)^5-15*cos(x)^7)*(cot(x)^2)^(1/2)*tan(x) --R --R --R (377) @@ -43043,7 +43175,9 @@ t0883:= sec(x)^2/(3-4*tan(x)^3) --E 442 --S 443 of 526 -r0883:= 1/18*atan(1/6*(6^(1/3)+4*tan(x))*2^(2/3)*3^(1/6))*2^(1/3)*3^(5/6)-1/18*log(6^(1/3)-2*tan(x))*6^(1/3)+1/36*log(6^(2/3)+2*6^(1/3)*tan(x)+4*tan(x)^2)*6^(1/3) +r0883:= 1/18*atan(1/6*(6^(1/3)+4*tan(x))*2^(2/3)*3^(1/6))*2^(1/3)*3^(5/6)-_ + 1/18*log(6^(1/3)-2*tan(x))*6^(1/3)+1/36*log(6^(2/3)+_ + 2*6^(1/3)*tan(x)+4*tan(x)^2)*6^(1/3) --R --R --R (422) @@ -43251,7 +43385,8 @@ t0885:= sec(x)^2*(a+b*tan(x))^2/(c+d*tan(x)) --E 452 --S 453 of 526 -r0885:= (b*c-a*d)^2*log(c+d*tan(x))/d^3-b*(b*c-a*d)*tan(x)/d^2+1/2*(a+b*tan(x))^2/d +r0885:= (b*c-a*d)^2*log(c+d*tan(x))/d^3-b*(b*c-a*d)*_ + tan(x)/d^2+1/2*(a+b*tan(x))^2/d --R --R --R (431) @@ -43360,7 +43495,8 @@ t0886:= sec(x)^2*(a+b*tan(x))^3/(c+d*tan(x)) --E 457 --S 458 of 526 -r0886:= -(b*c-a*d)^3*log(c+d*tan(x))/d^4+b*(b*c-a*d)^2*tan(x)/d^3-1/2*(b*c-a*d)*(a+b*tan(x))^2/d^2+1/3*(a+b*tan(x))^3/d +r0886:= -(b*c-a*d)^3*log(c+d*tan(x))/d^4+b*(b*c-a*d)^2*_ + tan(x)/d^3-1/2*(b*c-a*d)*(a+b*tan(x))^2/d^2+1/3*(a+b*tan(x))^3/d --R --R --R (436) @@ -45059,7 +45195,8 @@ t0898:= csc(x)^2*(a+b*cot(x))^2/(c+d*cot(x)) --E 517 --S 518 of 526 -r0898:= b*(b*c-a*d)*cot(x)/d^2-1/2*(a+b*cot(x))^2/d-(b*c-a*d)^2*log(c+d*cot(x))/d^3 +r0898:= b*(b*c-a*d)*cot(x)/d^2-1/2*(a+b*cot(x))^2/d-_ + (b*c-a*d)^2*log(c+d*cot(x))/d^3 --R --R --R (496) @@ -45262,7 +45399,8 @@ t0899:= csc(x)^2*(a+b*cot(x))^3/(c+d*cot(x)) --E 522 --S 523 of 526 -r0899:= -b*(b*c-a*d)^2*cot(x)/d^3+1/2*(b*c-a*d)*(a+b*cot(x))^2/d^2-1/3*(a+b*cot(x))^3/d+(b*c-a*d)^3*log(c+d*cot(x))/d^4 +r0899:= -b*(b*c-a*d)^2*cot(x)/d^3+1/2*(b*c-a*d)*(a+b*cot(x))^2/d^2-_ + 1/3*(a+b*cot(x))^3/d+(b*c-a*d)^3*log(c+d*cot(x))/d^4 --R --R --R (501) diff --git a/src/input/richtrig900-920.input.pamphlet b/src/input/richtrig900-920.input.pamphlet index d569b94..1c392c0 100644 --- a/src/input/richtrig900-920.input.pamphlet +++ b/src/input/richtrig900-920.input.pamphlet @@ -1601,7 +1601,11 @@ t0918:= cos(x)^2*tan(x)^(1/2) --E 91 --S 92 of 105 -r0918:= 1/8*2^(1/2)*atan(-1+2^(1/2)*tan(x)^(1/2))+1/8*2^(1/2)*atan(1+2^(1/2)*tan(x)^(1/2))+1/16*log(1-2^(1/2)*tan(x)^(1/2)+tan(x))*2^(1/2)-1/16*log(1+2^(1/2)*tan(x)^(1/2)+tan(x))*2^(1/2)+1/2*cos(x)^2*tan(x)^(3/2) +r0918:= 1/8*2^(1/2)*atan(-1+2^(1/2)*tan(x)^(1/2))+_ + 1/8*2^(1/2)*atan(1+2^(1/2)*tan(x)^(1/2))+_ + 1/16*log(1-2^(1/2)*tan(x)^(1/2)+tan(x))*2^(1/2)-_ + 1/16*log(1+2^(1/2)*tan(x)^(1/2)+tan(x))*2^(1/2)+_ + 1/2*cos(x)^2*tan(x)^(3/2) --R --R --R (92) @@ -5927,7 +5931,9 @@ t0920:= x^5*sec(a+b*x^3)^7*tan(a+b*x^3) --E 101 --S 102 of 105 -r0920:= -1/1008*(15*atanh(sin(a+b*x^3))*cos(a+b*x^3)^7-48*b*x^3+15*cos(a+b*x^3)^5*sin(a+b*x^3)+10*cos(a+b*x^3)^3*sin(a+b*x^3)+8*cos(a+b*x^3)*sin(a+b*x^3))/cos(a+b*x^3)^7/b^2 +r0920:= -1/1008*(15*atanh(sin(a+b*x^3))*cos(a+b*x^3)^7-48*b*x^3+_ + 15*cos(a+b*x^3)^5*sin(a+b*x^3)+10*cos(a+b*x^3)^3*sin(a+b*x^3)+_ + 8*cos(a+b*x^3)*sin(a+b*x^3))/cos(a+b*x^3)^7/b^2 --R --R --R (102) diff --git a/src/input/robidoux.input.pamphlet b/src/input/robidoux.input.pamphlet index f9efea8..42a64fa 100644 --- a/src/input/robidoux.input.pamphlet +++ b/src/input/robidoux.input.pamphlet @@ -52,7 +52,7 @@ solve(deq1,X1,t) --R --R t t --R (3) [particular= 0,basis= [%e sin(t) + 2%e ]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 3 --S 4 of 15 @@ -110,7 +110,7 @@ solve(deq2,X2,t) --R 5 --R - t --R basis= [%e ]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 9 --S 10 of 15 diff --git a/src/input/sae.input.pamphlet b/src/input/sae.input.pamphlet index 25f0f79..5287beb 100644 --- a/src/input/sae.input.pamphlet +++ b/src/input/sae.input.pamphlet @@ -49,7 +49,7 @@ primrec:=primitiveElement([pol1,pol2],[x,z])$PrimitiveElement(FRAC(INT)) --I , --I 6 4 3 2 --I prim= ? + 27? + 4? + 243? - 108? + 733] ---IType: Record(coef: List Integer,poly: List SparseUnivariatePolynomial Fraction Integer,prim: SparseUnivariatePolynomial Fraction Integer) +--IType: Record(coef: List Integer,poly: List SparseUnivariatePolynomial ... --E 3 --S 4 of 6 @@ -65,14 +65,14 @@ Ae:=SAE(FRAC(INT),SparseUnivariatePolynomial(FRAC(INT)),primrec.prim) (primrec.poly.1::Ae)^2 --R --R (5) - 1 ---IType: SimpleAlgebraicExtension(Fraction Integer,SparseUnivariatePolynomial Fraction Integer,?**6+27*?**4+4*?**3+243*?*?+(-108*?)+733) +--IType: SimpleAlgebraicExtension(Fraction Integer,... --E 5 --S 6 of 6 (primrec.poly.2::Ae)^3 --R --R (6) 2 ---IType: SimpleAlgebraicExtension(Fraction Integer,SparseUnivariatePolynomial Fraction Integer,?**6+27*?**4+4*?**3+243*?*?+(-108*?)+733) +--IType: SimpleAlgebraicExtension(Fraction Integer,... --E 6 )spool diff --git a/src/input/schaum1.input.pamphlet b/src/input/schaum1.input.pamphlet index 368b516..ff01358 100644 --- a/src/input/schaum1.input.pamphlet +++ b/src/input/schaum1.input.pamphlet @@ -156,7 +156,8 @@ aa:=integrate(x^3/(a*x+b),x) and the book expression is: \begin{chunk}{*} --S 12 of 108 -bb:=(a*x+b)^3/(3*a^4)-(3*b*(a*x+b)^2)/(2*a^4)+(3*b^2*(a*x+b))/a^4-(b^3/a^4)*log(a*x+b) +bb:=(a*x+b)^3/(3*a^4)-(3*b*(a*x+b)^2)/(2*a^4)+(3*b^2*(a*x+b))/a^4-_ + (b^3/a^4)*log(a*x+b) --R --R 3 3 3 2 2 2 3 --R - 6b log(a x + b) + 2a x - 3a b x + 6a b x + 11b @@ -718,7 +719,8 @@ aa:=integrate(1/(x^3*(a*x+b)^2),x) --E --S 55 of 108 -bb:=-(a*x+b)^2/(2*b^4*x^2)+(3*a*(a*x+b))/(b^4*x)-(a^3*x)/(b^4*(a*x+b))-((3*a^2)/b^4)*log((a*x+b)/x) +bb:=-(a*x+b)^2/(2*b^4*x^2)+(3*a*(a*x+b))/(b^4*x)-(a^3*x)/(b^4*(a*x+b))-_ + ((3*a^2)/b^4)*log((a*x+b)/x) --R --R 3 3 2 2 a x + b 3 3 2 2 2 3 --R (- 6a x - 6a b x )log(-------) + 3a x + 9a b x + 3a b x - b @@ -1320,7 +1322,8 @@ aa:=integrate(x^2*(a*x+b)^n,x) --E --S 103 of 108 -bb:=(a*x+b)^(n+3)/((n+3)*a^3)-(2*b*(a*x+b)^(n+2))/((n+2)*a^3)+(b^2*(a*x+b)^(n+1))/((n+1)*a^3) +bb:=(a*x+b)^(n+3)/((n+3)*a^3)-(2*b*(a*x+b)^(n+2))/_ + ((n+2)*a^3)+(b^2*(a*x+b)^(n+1))/((n+1)*a^3) --R --R (2) --R 2 n + 3 2 n + 2 diff --git a/src/input/schaum10.input.pamphlet b/src/input/schaum10.input.pamphlet index e8850f8..5ebfd45 100644 --- a/src/input/schaum10.input.pamphlet +++ b/src/input/schaum10.input.pamphlet @@ -1827,7 +1827,8 @@ aa:=integrate(x^2*(x^2-a^2)^(3/2),x) --E --S 121 of 150 -bb:=(x*(x^2-a^2)^(5/2))/6+(a^2*x*(x^2-a^2)^(3/2))/24-(a^4*x*sqrt(x^2-a^2))/16+a^6/16*log(x+sqrt(x^2-a^2)) +bb:=(x*(x^2-a^2)^(5/2))/6+(a^2*x*(x^2-a^2)^(3/2))/24-_ + (a^4*x*sqrt(x^2-a^2))/16+a^6/16*log(x+sqrt(x^2-a^2)) --R --R +-------+ +-------+ --R 6 | 2 2 5 2 3 4 | 2 2 diff --git a/src/input/schaum11.input.pamphlet b/src/input/schaum11.input.pamphlet index e8e89cc..c5c8329 100644 --- a/src/input/schaum11.input.pamphlet +++ b/src/input/schaum11.input.pamphlet @@ -1697,7 +1697,8 @@ aa:=integrate(1/(x^3*(a^2-x^2)^(3/2)),x) --E --S 118 of 170 -bb:=-1/(2*a^2*x^2*sqrt(a^2-x^2))+3/(2*a^4*sqrt(a^2-x^2))-3/(2*a^5)*log((a+sqrt(a^2-x^2))/x) +bb:=-1/(2*a^2*x^2*sqrt(a^2-x^2))+3/(2*a^4*sqrt(a^2-x^2))-_ + 3/(2*a^5)*log((a+sqrt(a^2-x^2))/x) --R --R +---------+ --R +---------+ | 2 2 @@ -2011,7 +2012,8 @@ aa:=integrate(x^2*(a^2-x^2)^(3/2),x) --E --S 137 of 170 -bb:=-(x*(a^2-x^2)^(5/2))/6+(a^2*x*(a^2-x^2)^(3/2))/24+(a^4*x*sqrt(a^2-x^2))/16+a^6/16*asin(x/a) +bb:=-(x*(a^2-x^2)^(5/2))/6+(a^2*x*(a^2-x^2)^(3/2))/24+_ + (a^4*x*sqrt(a^2-x^2))/16+a^6/16*asin(x/a) --R --R +---------+ --R 5 2 3 4 | 2 2 6 x diff --git a/src/input/schaum13.input.pamphlet b/src/input/schaum13.input.pamphlet index 90790a3..1dd8a8c 100644 --- a/src/input/schaum13.input.pamphlet +++ b/src/input/schaum13.input.pamphlet @@ -1802,7 +1802,8 @@ t1:=integrate(1/sqrt(a*x^2+b*x+c),x) --E --S 55 of 131 -bb1:=(a*x^2+b*x+c)^(3/2)/(3*a)-(b*(2*a*x+b))/(8*a^2)*sqrt(a*x^2+b*x+c)-(b*(4*a*c-b^2))/(16*a^2)*t1.1 +bb1:=(a*x^2+b*x+c)^(3/2)/(3*a)-(b*(2*a*x+b))/(8*a^2)*sqrt(a*x^2+b*x+c)-_ + (b*(4*a*c-b^2))/(16*a^2)*t1.1 --R --R (3) --R 3 @@ -1830,7 +1831,8 @@ bb1:=(a*x^2+b*x+c)^(3/2)/(3*a)-(b*(2*a*x+b))/(8*a^2)*sqrt(a*x^2+b*x+c)-(b*(4*a*c --E --S 56 of 131 -bb2:=(a*x^2+b*x+c)^(3/2)/(3*a)-(b*(2*a*x+b))/(8*a^2)*sqrt(a*x^2+b*x+c)-(b*(4*a*c-b^2))/(16*a^2)*t1.2 +bb2:=(a*x^2+b*x+c)^(3/2)/(3*a)-(b*(2*a*x+b))/(8*a^2)*sqrt(a*x^2+b*x+c)-_ + (b*(4*a*c-b^2))/(16*a^2)*t1.2 --R --R (4) --R +--------------+ @@ -4911,7 +4913,8 @@ t2:=integrate(1/(x*sqrt(a*x^2+b*x+c)),x) --E --S 123 of 131 -bb:=-(a*x^2+2*b*x+c)/(c^2*x*sqrt(a*x^2+b*x+c))+(b^2-2*a*c)/(2*c^2)*t1-(3*b)/(2*c^2)*t2 +bb:=-(a*x^2+2*b*x+c)/(c^2*x*sqrt(a*x^2+b*x+c))+(b^2-2*a*c)/_ + (2*c^2)*t1-(3*b)/(2*c^2)*t2 --R --R (4) --R +--------------+ diff --git a/src/input/schaum14.input.pamphlet b/src/input/schaum14.input.pamphlet index e234ee7..7bad41f 100644 --- a/src/input/schaum14.input.pamphlet +++ b/src/input/schaum14.input.pamphlet @@ -246,7 +246,8 @@ aa:=integrate(1/(x^2*(x^3+a^3)),x) --E --S 16 of 39 -bb:=-1/(a^3*x)-1/(6*a^4)*log((x^2-a*x+a^2)/(x+a)^2)-1/(a^4*sqrt(3))*atan((2*x-a)/(a*sqrt(3))) +bb:=-1/(a^3*x)-1/(6*a^4)*log((x^2-a*x+a^2)/(x+a)^2)-1/(a^4*sqrt(3))*_ + atan((2*x-a)/(a*sqrt(3))) --R --R 2 2 +-+ --R x - a x + a +-+ (2x - a)\|3 @@ -310,7 +311,8 @@ aa:=integrate(1/(x^3+a^3)^2,x) --E --S 20 of 39 -bb:=x/(3*a^3*(x^3+a^3))+1/(9*a^5)*log((x+a)^2/(x^2-a*x+a^2))+2/(3*a^5*sqrt(3))*atan((2*x-a)/(a*sqrt(3))) +bb:=x/(3*a^3*(x^3+a^3))+1/(9*a^5)*log((x+a)^2/(x^2-a*x+a^2))+_ + 2/(3*a^5*sqrt(3))*atan((2*x-a)/(a*sqrt(3))) --R --R (2) --R 2 2 +-+ @@ -375,7 +377,8 @@ aa:=integrate(x/(x^3+a^3)^2,x) --E --S 24 of 39 -bb:=x^2/(3*a^3*(x^3+a^3))+1/(18*a^4)*log((x^2-a*x+a^2)/(x+a)^2)+1/(3*a^4*sqrt(3))*atan((2*x-a)/(a*sqrt(3))) +bb:=x^2/(3*a^3*(x^3+a^3))+1/(18*a^4)*log((x^2-a*x+a^2)/(x+a)^2)+_ + 1/(3*a^4*sqrt(3))*atan((2*x-a)/(a*sqrt(3))) --R --R (2) --R 2 2 +-+ diff --git a/src/input/schaum15.input.pamphlet b/src/input/schaum15.input.pamphlet index 156b7c0..8dca8d7 100644 --- a/src/input/schaum15.input.pamphlet +++ b/src/input/schaum15.input.pamphlet @@ -57,7 +57,8 @@ aa:=integrate(1/(x^4+a^4),x) --E --S 2 of 65 -bb:=1/(4*a^3*sqrt(2))*log((x^2+a*x*sqrt(2)+a^2)/(x^2-a*x*sqrt(2)+a^2))-1/(2*a^3*sqrt(2))*atan((a*x*sqrt(2))/(x^2-a^2)) +bb:=1/(4*a^3*sqrt(2))*log((x^2+a*x*sqrt(2)+a^2)/(x^2-a*x*sqrt(2)+a^2))-_ + 1/(2*a^3*sqrt(2))*atan((a*x*sqrt(2))/(x^2-a^2)) --R --R +-+ 2 2 +-+ --R +-+ - a x\|2 - x - a +-+ a x\|2 @@ -343,7 +344,8 @@ aa:=integrate(x^2/(x^4+a^4),x) --E --S 14 of 65 -bb:=1/(4*a*sqrt(2))*log((x^2-a*x*sqrt(2)+a^2)/(x^2+a*x*sqrt(2)+a^2))-1/(2*a*sqrt(2))*atan((a*x*sqrt(2))/(x^2-a^2)) +bb:=1/(4*a*sqrt(2))*log((x^2-a*x*sqrt(2)+a^2)/(x^2+a*x*sqrt(2)+a^2))-_ + 1/(2*a*sqrt(2))*atan((a*x*sqrt(2))/(x^2-a^2)) --R --R +-+ 2 2 +-+ --R +-+ - a x\|2 + x + a +-+ a x\|2 @@ -700,7 +702,8 @@ aa:=integrate(1/(x^2*(x^4+a^4)),x) --E --S 29 of 65 -bb:=-1/(a^4*x)-1/(4*a^5*sqrt(2))*log((x^2-a*x*sqrt(2)+a^2)/(x^2+a*x*sqrt(2)+a^2))+1/(2*a^5*sqrt(2))*atan((a*x*sqrt(2))/(x^2-a^2)) +bb:=-1/(a^4*x)-1/(4*a^5*sqrt(2))*log((x^2-a*x*sqrt(2)+a^2)/(x^2+a*x*sqrt(2)+_ + a^2))+1/(2*a^5*sqrt(2))*atan((a*x*sqrt(2))/(x^2-a^2)) --R --R +-+ 2 2 +-+ --R +-+ - a x\|2 + x + a +-+ a x\|2 diff --git a/src/input/schaum17.input.pamphlet b/src/input/schaum17.input.pamphlet index 2a14cfc..47f3bf8 100644 --- a/src/input/schaum17.input.pamphlet +++ b/src/input/schaum17.input.pamphlet @@ -1450,7 +1450,8 @@ bb1:=2/(a*sqrt(p^2-q^2))*atan((p*tan(a*x/2)+q)/sqrt(p^2-q^2)) --E --S 85 of 136 -bb2:=1/(a*sqrt(q^2-p^2))*log((p*tan((a*x)/2)+q-sqrt(q^2-p^2))/(p*tan((a*x)/2)+q+sqrt(q^2-p^2))) +bb2:=1/(a*sqrt(q^2-p^2))*log((p*tan((a*x)/2)+q-sqrt(q^2-p^2))/_ + (p*tan((a*x)/2)+q+sqrt(q^2-p^2))) --R --R +-------+ --R | 2 2 a x @@ -1605,7 +1606,7 @@ atanrule2:=rule(atan(x) == 1/2*%i*(log(1-%i*x)-log(1+%i*x))) --R 1 1 --R (9) atan(x) == - - %i log(%i x + 1) + - %i log(- %i x + 1) --R 2 2 ---RType: RewriteRule(Integer,Complex Fraction Integer,Expression Complex Fraction Integer) +--IType: RewriteRule(Integer,Complex Fraction Integer,... --E --S 92 of 136 @@ -1749,7 +1750,7 @@ gg2:=numer(ff2)/denom(ff2) --R / --R 2 2 --R a q - a p ---RType: Fraction SparseMultivariatePolynomial(Complex Fraction Integer,Kernel Expression Complex Fraction Integer) +--IType: Fraction SparseMultivariatePolynomial(Complex Fraction Integer,... --E --S 95 of 136 @@ -2308,7 +2309,8 @@ ff:=expandLog ee --E --S 112 of 136 -tanrule2:RewriteRule(INT,COMPLEX(INT),EXPR(COMPLEX(INT))):=rule(tan(a) == sin(a)/cos(a)) +tanrule2:RewriteRule(INT,COMPLEX(INT),EXPR(COMPLEX(INT))):=rule(tan(a) == _ + sin(a)/cos(a)) --R --R sin(a) --R (8) tan(a) == ------ @@ -2546,7 +2548,8 @@ bb1:=1/(a*p*sqrt(p^2-q^2))*atan((sqrt(p^2-q^2)*tan(a*x))/p) --E --S 118 of 136 -bb2:=1/(2*a*p*sqrt(q^2-p^2))*log((sqrt(q^2-p^2)*tan(a*x)+p)/(sqrt(q^2-p^2)*tan(a*x)-p)) +bb2:=1/(2*a*p*sqrt(q^2-p^2))*log((sqrt(q^2-p^2)*tan(a*x)+p)/_ + (sqrt(q^2-p^2)*tan(a*x)-p)) --R --R +-------+ --R | 2 2 @@ -2892,7 +2895,8 @@ gg2:=expandLog ff2 --E --S 129 of 136 -rootrule4a:RewriteRule(INT,COMPLEX(INT),EXPR(COMPLEX(INT))):=rule(sqrt(p^2-q^2)==sqrt(p-q)*sqrt(q+p)) +rootrule4a:RewriteRule(INT,COMPLEX(INT),EXPR(COMPLEX(INT))):=_ + rule(sqrt(p^2-q^2)==sqrt(p-q)*sqrt(q+p)) --R --R +---------+ --R | 2 2 +-------+ +-----+ diff --git a/src/input/schaum18.input.pamphlet b/src/input/schaum18.input.pamphlet index f03c88d..6de71fe 100644 --- a/src/input/schaum18.input.pamphlet +++ b/src/input/schaum18.input.pamphlet @@ -1187,7 +1187,8 @@ bb1:=2/(a*sqrt(p^2-q^2))*atan(sqrt((p-q)/(p+q))*tan(1/2*a*x)) --E --S 88 of 127 -bb2:=1/(a*sqrt(q^2-p^2))*log((tan(1/2*a*x)+sqrt((q+p)/(q-p)))/(tan(1/2*a*x)-sqrt((q+p)/(q-p)))) +bb2:=1/(a*sqrt(q^2-p^2))*log((tan(1/2*a*x)+sqrt((q+p)/(q-p)))/_ + (tan(1/2*a*x)-sqrt((q+p)/(q-p)))) --R --R +-----+ --R |q + p a x @@ -1592,7 +1593,7 @@ atanrule2:=rule(atan(x) == 1/2*%i*(log(1-%i*x)-log(1+%i*x))) --R 1 1 --R (5) atan(x) == - - %i log(%i x + 1) + - %i log(- %i x + 1) --R 2 2 ---RType: RewriteRule(Integer,Complex Fraction Integer,Expression Complex Fraction Integer) +--IType: RewriteRule(Integer,Complex Fraction Integer,... --E --S 106 of 127 @@ -1824,7 +1825,8 @@ bb1:=1/(a*p*sqrt(p^2-q^2))*atan((p*tan(a*x))/sqrt(p^2-q^2)) --E --S 111 of 127 -bb2:=1/(2*a*p*sqrt(q^2-p^2))*log((p*tan(a*x)-sqrt(q^2-p^2))/(p*tan(a*x)+sqrt(q^2-p^2))) +bb2:=1/(2*a*p*sqrt(q^2-p^2))*log((p*tan(a*x)-sqrt(q^2-p^2))/_ + (p*tan(a*x)+sqrt(q^2-p^2))) --R --R +-------+ --R | 2 2 @@ -2035,7 +2037,7 @@ atanrule2:=rule(atan(x) == 1/2*%i*(log(1-%i*x)-log(1+%i*x))) --R 1 1 --R (11) atan(x) == - - %i log(%i x + 1) + - %i log(- %i x + 1) --R 2 2 ---RType: RewriteRule(Integer,Complex Fraction Integer,Expression Complex Fraction Integer) +--IType: RewriteRule(Integer,Complex Fraction Integer,... --E --S 120 of 127 diff --git a/src/input/schaum19.input.pamphlet b/src/input/schaum19.input.pamphlet index 73538a8..4b90acd 100644 --- a/src/input/schaum19.input.pamphlet +++ b/src/input/schaum19.input.pamphlet @@ -1924,7 +1924,8 @@ bb1:=2/(a*sqrt(r^2-p^2-q^2))*atan((p+(r-q)*tan((a*x)/2))/sqrt(r^2-p^2-q^2)) --E --S 148 of 185 -bb2:=1/(a*sqrt(p^2+q^2-r^2))*log((p-sqrt(p^2+q^2-r^2)+(r-q)*tan((a*x)/2))/(p+sqrt(p^2+q^2-r^2)+(r-q)*tan((a*x)/2))) +bb2:=1/(a*sqrt(p^2+q^2-r^2))*log((p-sqrt(p^2+q^2-r^2)+(r-q)*_ + tan((a*x)/2))/(p+sqrt(p^2+q^2-r^2)+(r-q)*tan((a*x)/2))) --R --R +--------------+ --R | 2 2 2 a x diff --git a/src/input/schaum2.input.pamphlet b/src/input/schaum2.input.pamphlet index a584706..bf2a753 100644 --- a/src/input/schaum2.input.pamphlet +++ b/src/input/schaum2.input.pamphlet @@ -226,7 +226,7 @@ gg:=exp(bb1*sqrt(b)) --R Type: Expression Integer --E \end{chunk} -We can change Spiegel's form into Axiom's form because they differ by +We can change Spiegel's form into Axiom's form. They differ by the constant a*sqrt(b). To see this we multiply the numerator and denominator by $1 == (sqrt(a*x+b) - sqrt(b))/(sqrt(a*x+b) - sqrt(b))$. diff --git a/src/input/schaum24.input.pamphlet b/src/input/schaum24.input.pamphlet index e9174e5..b0497bc 100644 --- a/src/input/schaum24.input.pamphlet +++ b/src/input/schaum24.input.pamphlet @@ -240,7 +240,9 @@ generic problem with all of the inverse functions that are multi-valued. \begin{chunk}{*} --S 15 of 146 14:472 Schaums and Axiom agree (modulo branch cuts) -[ [f(i::Float,i::Float+1.0::Float)::Float,axiom(i::Float,i::Float+1.0::Float)::Float,schaums(i::Float,i::Float+1.0::Float)::Float] for i in 1..4] +[ [f(i::Float,i::Float+1.0::Float)::Float,_ + axiom(i::Float,i::Float+1.0::Float)::Float,_ + schaums(i::Float,i::Float+1.0::Float)::Float] for i in 1..4] --R --R (9) --R [[0.5235987755 9829892668,0.5235987755 9829892668,0.5235987755 9829881566], diff --git a/src/input/schaum25.input.pamphlet b/src/input/schaum25.input.pamphlet index fc8974d..c6acfbe 100644 --- a/src/input/schaum25.input.pamphlet +++ b/src/input/schaum25.input.pamphlet @@ -489,7 +489,8 @@ aa:=integrate(x*%e^(a*x)*sin(b*x),x) --E --S 33 of 40 -bb:=(x*%e^(a*x)*(a*sin(b*x)-b*cos(b*x)))/(a^2+b^2)-(%e^(a*x)*((a^2-b^2)*sin(b*x)-2*a*b*cos(b*x)))/(a^2+b^2)^2 +bb:=(x*%e^(a*x)*(a*sin(b*x)-b*cos(b*x)))/(a^2+b^2)-(%e^(a*x)*((a^2-b^2)*_ + sin(b*x)-2*a*b*cos(b*x)))/(a^2+b^2)^2 --R --R (2) --R 2 3 2 2 a x 3 2 a x @@ -530,7 +531,8 @@ aa:=integrate(x*%e^(a*x)*cos(b*x),x) --E --S 36 of 40 -bb:=(x*%e^(a*x)*(a*cos(b*x)+b*sin(b*x)))/(a^2+b^2)-(%e^(a*x)*((a^2-b^2)*cos(b*x)+2*a*b*sin(b*x)))/(a^2+b^2)^2 +bb:=(x*%e^(a*x)*(a*cos(b*x)+b*sin(b*x)))/(a^2+b^2)-(%e^(a*x)*((a^2-b^2)*_ + cos(b*x)+2*a*b*sin(b*x)))/(a^2+b^2)^2 --R --R (2) --R 3 2 a x 2 3 2 2 a x diff --git a/src/input/schaum27.input.pamphlet b/src/input/schaum27.input.pamphlet index 1de1de9..c4b13c8 100644 --- a/src/input/schaum27.input.pamphlet +++ b/src/input/schaum27.input.pamphlet @@ -811,7 +811,8 @@ aa:=integrate(1/(p+q*sinh(a*x)),x) --E --S 63 of 84 -bb:=1/(a*sqrt(p^2+q^2))*log((q*%e^(a*x)+p-sqrt(p^2+q^2))/(q*%e^(a*x)+p+sqrt(p^2+q^2))) +bb:=1/(a*sqrt(p^2+q^2))*log((q*%e^(a*x)+p-sqrt(p^2+q^2))/(q*%e^(a*x)+_ + p+sqrt(p^2+q^2))) --R --R +-------+ --R | 2 2 a x @@ -1115,7 +1116,8 @@ bb1:=1/(a*p*sqrt(q^2-p^2))*atan((sqrt(q^2-p^2)*tanh(a*x))/p) --E --S 71 of 84 -bb2:=1/(2*a*p*sqrt(p^2-q^2))*log((p+sqrt(p^2-q^2)*tanh(a*x))/(p-sqrt(p^2-q^2)*tanh(a*x))) +bb2:=1/(2*a*p*sqrt(p^2-q^2))*log((p+sqrt(p^2-q^2)*tanh(a*x))/_ + (p-sqrt(p^2-q^2)*tanh(a*x))) --R --R +---------+ --R | 2 2 @@ -1348,7 +1350,8 @@ aa:=integrate(1/(p^2+q^2*sinh(a*x)^2),x) --E --S 77 of 84 -bb:=1/(2*a*p*sqrt(p^2+q^2))*log((p+sqrt(p^2+q^2)*tanh(a*x))/(p-sqrt(p^2+q^2)*tanh(a*x))) +bb:=1/(2*a*p*sqrt(p^2+q^2))*log((p+sqrt(p^2+q^2)*tanh(a*x))/_ + (p-sqrt(p^2+q^2)*tanh(a*x))) --R --R +-------+ --R | 2 2 diff --git a/src/input/schaum28.input.pamphlet b/src/input/schaum28.input.pamphlet index ee57424..a88cede 100644 --- a/src/input/schaum28.input.pamphlet +++ b/src/input/schaum28.input.pamphlet @@ -1607,7 +1607,8 @@ bb1:=2/(a*sqrt(q^2-p^2))*atan((q*%e^(a*x)+p)/sqrt(q^2-p^2)) --E --S 110 of 139 -bb2:=1/(a*sqrt(p^2-q^2))*log((q*%e^(a*x)+p-sqrt(p^2-q^2))/(q*%e^(a*x)+p+sqrt(p^2-q^2))) +bb2:=1/(a*sqrt(p^2-q^2))*log((q*%e^(a*x)+p-sqrt(p^2-q^2))/(q*%e^(a*x)+p+_ + sqrt(p^2-q^2))) --R --R +---------+ --R | 2 2 a x @@ -2324,7 +2325,8 @@ aa:=integrate(1/(p^2-q^2*cosh(a*x)^2),x) --E --S 124 of 139 -bb1:=1/(2*a*p*sqrt(p^2-q^2))*log((p*tanh(a*x)+sqrt(p^2-q^2))/(p*tanh(a*x)-sqrt(p^2-q^2))) +bb1:=1/(2*a*p*sqrt(p^2-q^2))*log((p*tanh(a*x)+sqrt(p^2-q^2))/_ + (p*tanh(a*x)-sqrt(p^2-q^2))) --R --R +---------+ --R | 2 2 @@ -2601,7 +2603,8 @@ aa:=integrate(1/(p^2+q^2*cosh(a*x)^2),x) --E --S 131 of 139 -bb1:=1/(2*a*p*sqrt(p^2+q^2))*log((p*tanh(a*x)+sqrt(p^2+q^2))/(p*tanh(a*x)-sqrt(p^2+q^2))) +bb1:=1/(2*a*p*sqrt(p^2+q^2))*log((p*tanh(a*x)+sqrt(p^2+q^2))/_ + (p*tanh(a*x)-sqrt(p^2+q^2))) --R --R +-------+ --R | 2 2 diff --git a/src/input/schaum34.input.pamphlet b/src/input/schaum34.input.pamphlet index f9e2c65..289f7ac 100644 --- a/src/input/schaum34.input.pamphlet +++ b/src/input/schaum34.input.pamphlet @@ -1,6 +1,6 @@ \documentclass{article} \usepackage{axiom} -\setlength{\textwidth}{400pt} +\setlength{\textwidth}{405pt} \begin{document} \title{\$SPAD/input schaum34.input} \author{Timothy Daly} diff --git a/src/input/schaum4.input.pamphlet b/src/input/schaum4.input.pamphlet index 867a2a0..ae28322 100644 --- a/src/input/schaum4.input.pamphlet +++ b/src/input/schaum4.input.pamphlet @@ -121,7 +121,8 @@ aa2:=aa.2 --E --S 7 of 25 -bb1:=1/sqrt(b*p-a*q)*log((sqrt(p*(a*x+b))-sqrt(b*p-a*q))/(sqrt(p*(a*x+b))+sqrt(b*p-a*q))) +bb1:=1/sqrt(b*p-a*q)*log((sqrt(p*(a*x+b))-sqrt(b*p-a*q))/_ + (sqrt(p*(a*x+b))+sqrt(b*p-a*q))) --R --R +-----------+ +-----------+ --R \|a p x + b p - \|- a q + b p @@ -318,7 +319,8 @@ aa2:=aa.2 --E --S 16 of 25 -bb1:=(2*sqrt(a*x+b))/p+sqrt(b*p-a*q)/(p*sqrt(p))*log((sqrt(p*(a*x+b))-sqrt(b*p-a*q))/(sqrt(p*(a*x+b))+sqrt(b*p-a*q))) +bb1:=(2*sqrt(a*x+b))/p+sqrt(b*p-a*q)/(p*sqrt(p))*log((sqrt(p*(a*x+b))-_ + sqrt(b*p-a*q))/(sqrt(p*(a*x+b))+sqrt(b*p-a*q))) --R --R +-----------+ +-----------+ --R +-----------+ \|a p x + b p - \|- a q + b p +-+ +-------+ @@ -332,7 +334,8 @@ bb1:=(2*sqrt(a*x+b))/p+sqrt(b*p-a*q)/(p*sqrt(p))*log((sqrt(p*(a*x+b))-sqrt(b*p-a --E --S 17 of 25 -bb2:=(2*sqrt(a*x+b))/p-(2*sqrt(a*q-b*p))/(p*sqrt(p))*atan(sqrt((p*(a*x+b))/(a*q-b*p))) +bb2:=(2*sqrt(a*x+b))/p-(2*sqrt(a*q-b*p))/(p*sqrt(p))*_ + atan(sqrt((p*(a*x+b))/(a*q-b*p))) --R --R +-----------+ --R +---------+ |a p x + b p +-+ +-------+ diff --git a/src/input/schaum5.input.pamphlet b/src/input/schaum5.input.pamphlet index 90178cc..b5bee95 100644 --- a/src/input/schaum5.input.pamphlet +++ b/src/input/schaum5.input.pamphlet @@ -1,6 +1,6 @@ \documentclass{article} \usepackage{axiom} -\setlength{\textwidth}{400pt} +\setlength{\textwidth}{405pt} \begin{document} \title{\$SPAD/input schaum5.input} \author{Timothy Daly} diff --git a/src/input/schaum9.input.pamphlet b/src/input/schaum9.input.pamphlet index 0a37738..d0c65a4 100644 --- a/src/input/schaum9.input.pamphlet +++ b/src/input/schaum9.input.pamphlet @@ -1166,7 +1166,8 @@ aa:=integrate(1/(x^3*(x^2+a^2)^(3/2)),x) --E --S 79 of 110 -bb:=-1/(2*a^2*x^2*sqrt(x^2+a^2))-3/(2*a^4*sqrt(x^2+a^2))+3/(2*a^5)*log((a+sqrt(x^2+a^2))/x) +bb:=-1/(2*a^2*x^2*sqrt(x^2+a^2))-3/(2*a^4*sqrt(x^2+a^2))+_ + 3/(2*a^5)*log((a+sqrt(x^2+a^2))/x) --R --R +-------+ --R +-------+ | 2 2 @@ -1366,7 +1367,8 @@ aa:=integrate(x^2*(x^2+a^2)^(3/2),x) --E --S 91 of 110 -bb:=(x*(x^2+a^2)^(5/2))/6-(a^2*x*(x^2+a^2)^(3/2))/24-(a^4*x*sqrt(x^2+a^2))/16-a^6/16*log(x+sqrt(x^2+a^2)) +bb:=(x*(x^2+a^2)^(5/2))/6-(a^2*x*(x^2+a^2)^(3/2))/24-_ + (a^4*x*sqrt(x^2+a^2))/16-a^6/16*log(x+sqrt(x^2+a^2)) --R --R +-------+ +-------+ --R 6 | 2 2 5 2 3 4 | 2 2 diff --git a/src/input/seccsc.input.pamphlet b/src/input/seccsc.input.pamphlet index 52fe283..105533d 100644 --- a/src/input/seccsc.input.pamphlet +++ b/src/input/seccsc.input.pamphlet @@ -6,7 +6,7 @@ \author{Timothy Daly} \maketitle \begin{abstract} -This compares Axiom's sec and csc functions with the tables published in +This compares Axiom's sec and csc functions with tables published in Abramowitz and Stegun. \end{abstract} \eject diff --git a/src/input/space3.input.pamphlet b/src/input/space3.input.pamphlet index e5d7b56..06799d7 100644 --- a/src/input/space3.input.pamphlet +++ b/src/input/space3.input.pamphlet @@ -807,7 +807,9 @@ mesh(space,[[p0,p1,p2],[p1,p2,p3],[p0,p2,p3]],closed?(prop),closed?(prop)) --E 94 --S 95 of 185 -mesh(space,[[[1,1,1],[1,0,0],[0,0,0]],[[1,0,0],[0,0,0],[0,1,1]],[[1,1,1],[0,0,0],[0,1,1]]],closed?(prop),closed?(prop)) +mesh(space,[[[1,1,1],[1,0,0],[0,0,0]],_ + [[1,0,0],[0,0,0],[0,1,1]],_ + [[1,1,1],[0,0,0],[0,1,1]]],closed?(prop),closed?(prop)) --R --R --R (22) 3-Space with 6 components @@ -815,7 +817,9 @@ mesh(space,[[[1,1,1],[1,0,0],[0,0,0]],[[1,0,0],[0,0,0],[0,1,1]],[[1,1,1],[0,0,0] --E 95 --S 96 of 185 -mesh(space,[[[1,1,1],[1,0,0],[0,0,0]],[[1,0,0],[0,0,0],[0,1,1]],[[1,1,1],[0,0,0],[0,1,1]]],b,b) +mesh(space,[[[1,1,1],[1,0,0],[0,0,0]],_ + [[1,0,0],[0,0,0],[0,1,1]],_ + [[1,1,1],[0,0,0],[0,1,1]]],b,b) --R --R --R (23) 3-Space with 7 components @@ -865,7 +869,9 @@ space := mesh([[p0,p1,p2],[p1,p2,p3],[p0,p2,p3]])$(ThreeSpace DoubleFloat) --E 101 --S 102 of 185 -space1 := mesh([[p0,p1,p2],[p1,p2,p3],[p0,p2,p3]],false,false)$(ThreeSpace DoubleFloat) +space1 := mesh([[p0,p1,p2],_ + [p1,p2,p3],_ + [p0,p2,p3]],false,false)$(ThreeSpace DoubleFloat) --R --R --R (6) 3-Space with 1 component @@ -1157,7 +1163,7 @@ objects space --R --R --R (17) [points= 1,curves= 2,polygons= 0,constructs= 0] ---RType: Record(points: NonNegativeInteger,curves: NonNegativeInteger,polygons: NonNegativeInteger,constructs: NonNegativeInteger) +--IType: Record(points: NonNegativeInteger,... --E 137 )clear all diff --git a/src/input/sregset.input.pamphlet b/src/input/sregset.input.pamphlet index 4a9da32..f1bbb50 100644 --- a/src/input/sregset.input.pamphlet +++ b/src/input/sregset.input.pamphlet @@ -145,7 +145,7 @@ zeroSetSplit(lp)$ST --R --R 5 4 2 3 8 5 3 2 4 2 --R (15) [{z - t ,t z y + 2z y - t + 2t + t - t ,(t - t)x - t y - z }] ---RType: List SquareFreeRegularTriangularSet(Integer,IndexedExponents OrderedVariableList [x,y,z,t],OrderedVariableList [x,y,z,t],NewSparseMultivariatePolynomial(Integer,OrderedVariableList [x,y,z,t])) +--IType: List SquareFreeRegularTriangularSet(Integer,... --E 15 --S 16 of 23 @@ -157,7 +157,7 @@ zeroSetSplit(lp,false)$ST --R [{z - t ,t z y + 2z y - t + 2t + t - t ,(t - t)x - t y - z }, --R 3 5 2 2 --R {t - 1,z - t,t y + z ,z x - t}, {t,z,y,x}] ---RType: List SquareFreeRegularTriangularSet(Integer,IndexedExponents OrderedVariableList [x,y,z,t],OrderedVariableList [x,y,z,t],NewSparseMultivariatePolynomial(Integer,OrderedVariableList [x,y,z,t])) +--IType: List SquareFreeRegularTriangularSet(Integer,... --E 16 --S 17 of 23 @@ -180,7 +180,7 @@ lts := zeroSetSplit(lp,false)$T --R [{z - t ,t z y + 2z y - t + 2t + t - t ,(t - t)x - t y - z }, --R 3 5 2 3 2 --R {t - 1,z - t,t z y + 2z y + 1,z x - t}, {t,z,y,x}] ---RType: List RegularTriangularSet(Integer,IndexedExponents OrderedVariableList [x,y,z,t],OrderedVariableList [x,y,z,t],NewSparseMultivariatePolynomial(Integer,OrderedVariableList [x,y,z,t])) +--IType: List RegularTriangularSet(Integer,... --E 18 --S 19 of 23 @@ -189,7 +189,7 @@ ts := lts.2 --R --R 3 5 2 3 2 --R (19) {t - 1,z - t,t z y + 2z y + 1,z x - t} ---RType: RegularTriangularSet(Integer,IndexedExponents OrderedVariableList [x,y,z,t],OrderedVariableList [x,y,z,t],NewSparseMultivariatePolynomial(Integer,OrderedVariableList [x,y,z,t])) +--IType: RegularTriangularSet(Integer,... --E 19 --S 20 of 23 @@ -198,7 +198,7 @@ pol := select(ts,'y)$T --R --R 2 3 --R (20) t z y + 2z y + 1 ---RType: Union(NewSparseMultivariatePolynomial(Integer,OrderedVariableList [x,y,z,t]),...) +--IType: Union(NewSparseMultivariatePolynomial(Integer,... --E 20 --S 21 of 23 @@ -207,7 +207,7 @@ tower := collectUnder(ts,'y)$T --R --R 3 5 --R (21) {t - 1,z - t} ---RType: RegularTriangularSet(Integer,IndexedExponents OrderedVariableList [x,y,z,t],OrderedVariableList [x,y,z,t],NewSparseMultivariatePolynomial(Integer,OrderedVariableList [x,y,z,t])) +--IType: RegularTriangularSet(Integer,... --E 21 --S 22 of 23 @@ -229,7 +229,7 @@ toseSquareFreePart(pol,tower)$pack --R --R 2 3 5 --R (23) [[val= t y + z ,tower= {t - 1,z - t}]] ---RType: List Record(val: NewSparseMultivariatePolynomial(Integer,OrderedVariableList [x,y,z,t]),tower: RegularTriangularSet(Integer,IndexedExponents OrderedVariableList [x,y,z,t],OrderedVariableList [x,y,z,t],NewSparseMultivariatePolynomial(Integer,OrderedVariableList [x,y,z,t]))) +--IType: List Record(val: NewSparseMultivariatePolynomial(Integer,... --E 23 )spool )lisp (bye) diff --git a/src/input/summation.input.pamphlet b/src/input/summation.input.pamphlet index 195ed3e..575696a 100644 --- a/src/input/summation.input.pamphlet +++ b/src/input/summation.input.pamphlet @@ -31,7 +31,7 @@ summation(i^2,i=a..b)^(d-c) --R --+ --R i= a --R ---R(∑i=abi2)(d-c) +--I(∑... --R --R --R Type: Expression Integer @@ -45,7 +45,7 @@ summation(i^2^(d-c),i=a..b) --R --+ --R i= a --R ---R∑i=abi2(d-c) +--I∑i... --R --R --R Type: Expression Integer @@ -59,7 +59,7 @@ sum(operator(f) (i)+1,i=1..n) --R --+ --R i= 1 --R ---R∑i=1n(f(i)+1) +--I∑i... --R --R --R Type: Expression Integer @@ -73,7 +73,7 @@ sum(operator(f) (i),i=1..n)+1 --R --+ --R i= 1 --R ---R(∑i=1nf(i))+1 +--I(∑... --R --R --R Type: Expression Integer @@ -87,7 +87,7 @@ sum(operator(f) (i)+1,i=1..n)^3 --R --+ --R i= 1 --R ---R(∑i=1n(f(i)+1))3 +--I(∑... --R --R --R Type: Expression Integer diff --git a/src/input/symbol.input.pamphlet b/src/input/symbol.input.pamphlet index eba1515..cabe6c0 100644 --- a/src/input/symbol.input.pamphlet +++ b/src/input/symbol.input.pamphlet @@ -165,7 +165,7 @@ scripts U --R --R --R (18) [sub= [1,2,1,2],sup= [],presup= [],presub= [],args= []] ---RType: Record(sub: List OutputForm,sup: List OutputForm,presup: List OutputForm,presub: List OutputForm,args: List OutputForm) +--IType: Record(sub: List OutputForm,sup: List OutputForm,... --E 18 --S 19 of 24 @@ -181,7 +181,7 @@ scripts X --R --R --R (20) [sub= [],sup= [],presup= [],presub= [],args= []] ---RType: Record(sub: List OutputForm,sup: List OutputForm,presup: List OutputForm,presub: List OutputForm,args: List OutputForm) +--IType: Record(sub: List OutputForm,sup: List OutputForm,... --E 20 --S 21 of 24 @@ -199,7 +199,7 @@ scripts M --R --R --R (22) [sub= [i,j],sup= [k,l],presup= [0,1],presub= [2],args= [u,v,w]] ---RType: Record(sub: List OutputForm,sup: List OutputForm,presup: List OutputForm,presub: List OutputForm,args: List OutputForm) +--IType: Record(sub: List OutputForm,sup: List OutputForm,... --E 22 --S 23 of 24 @@ -217,7 +217,7 @@ scripts N --R --R --R (24) [sub= [i,j],sup= [k,l],presup= [0,1],presub= [],args= []] ---RType: Record(sub: List OutputForm,sup: List OutputForm,presup: List OutputForm,presub: List OutputForm,args: List OutputForm) +--IType: Record(sub: List OutputForm,sup: List OutputForm,... --E 24 )spool )lisp (bye) diff --git a/src/input/tanatan.input.pamphlet b/src/input/tanatan.input.pamphlet index a2ccd94..c7f72be 100644 --- a/src/input/tanatan.input.pamphlet +++ b/src/input/tanatan.input.pamphlet @@ -90,7 +90,7 @@ thetans:=_ for i in thetowers] ; --R --R ---RType: List List Record(i: Integer,k: Kernel Expression Integer,z: List Equation Expression Integer) +--IType: List List Record(i: Integer,k: Kernel Expression Integer,... --E 7 \end{chunk} diff --git a/src/input/tancot.input.pamphlet b/src/input/tancot.input.pamphlet index 652b0a8..b1cdab0 100644 --- a/src/input/tancot.input.pamphlet +++ b/src/input/tancot.input.pamphlet @@ -6,7 +6,7 @@ \author{Timothy Daly} \maketitle \begin{abstract} -This compares Axiom's tan and cot functions with the tables published in +This compares Axiom's tan and cot functions with tables published in Abramowitz and Stegun. \end{abstract} \eject diff --git a/src/input/test.input.pamphlet b/src/input/test.input.pamphlet index ca3d0ad..c7f45f4 100644 --- a/src/input/test.input.pamphlet +++ b/src/input/test.input.pamphlet @@ -746,7 +746,7 @@ g: GDMP([x,y], INT, DIRPROD(2, NNI)) := x**2 + y --R --R 2 --R (1) x + y ---RType: GeneralDistributedMultivariatePolynomial([x,y],Integer,DirectProduct(2,NonNegativeInteger)) +--IType: GeneralDistributedMultivariatePolynomial(... --E 56 \end{chunk} @@ -951,38 +951,38 @@ t := MPOLY([x,y], INT) --R eval : (%,OrderedVariableList [x,y],%) -> % --R exquo : (%,Integer) -> Union(%,"failed") --R exquo : (%,%) -> Union(%,"failed") ---R factorPolynomial : SparseUnivariatePolynomial % -> Factored SparseUnivariatePolynomial % ---R factorSquareFreePolynomial : SparseUnivariatePolynomial % -> Factored SparseUnivariatePolynomial % ---R gcdPolynomial : (SparseUnivariatePolynomial %,SparseUnivariatePolynomial %) -> SparseUnivariatePolynomial % ---R isExpt : % -> Union(Record(var: OrderedVariableList [x,y],exponent: NonNegativeInteger),"failed") +--I factorPolynomial : SparseUnivariatePolynomial % -> Factored ... +--I factorSquareFreePolynomial : SparseUnivariatePolynomial % -> ... +--I gcdPolynomial : (SparseUnivariatePolynomial %,... +--I isExpt : % -> Union(Record(var: OrderedVariableList [x,y],... --R isPlus : % -> Union(List %,"failed") --R isTimes : % -> Union(List %,"failed") --R mainVariable : % -> Union(OrderedVariableList [x,y],"failed") --R map : ((Integer -> Integer),%) -> % ---R mapExponents : ((IndexedExponents OrderedVariableList [x,y] -> IndexedExponents OrderedVariableList [x,y]),%) -> % +--I mapExponents : ((IndexedExponents OrderedVariableList [x,y] -> ... --R minimumDegree : % -> IndexedExponents OrderedVariableList [x,y] ---R minimumDegree : (%,List OrderedVariableList [x,y]) -> List NonNegativeInteger +--I minimumDegree : (%,List OrderedVariableList [x,y]) -> ... --R minimumDegree : (%,OrderedVariableList [x,y]) -> NonNegativeInteger ---R monicDivide : (%,%,OrderedVariableList [x,y]) -> Record(quotient: %,remainder: %) +--I monicDivide : (%,%,OrderedVariableList [x,y]) -> ... --R monomial : (Integer,IndexedExponents OrderedVariableList [x,y]) -> % --R monomial : (%,List OrderedVariableList [x,y],List NonNegativeInteger) -> % --R monomial : (%,OrderedVariableList [x,y],NonNegativeInteger) -> % ---R multivariate : (SparseUnivariatePolynomial Integer,OrderedVariableList [x,y]) -> % ---R multivariate : (SparseUnivariatePolynomial %,OrderedVariableList [x,y]) -> % +--I multivariate : (SparseUnivariatePolynomial Integer,... +--I multivariate : (SparseUnivariatePolynomial %,OrderedVariableList [x,y]) ... --R numberOfMonomials : % -> NonNegativeInteger ---R patternMatch : (%,Pattern Float,PatternMatchResult(Float,%)) -> PatternMatchResult(Float,%) ---R patternMatch : (%,Pattern Integer,PatternMatchResult(Integer,%)) -> PatternMatchResult(Integer,%) +--I patternMatch : (%,Pattern Float,PatternMatchResult(Float,%)) -> ... +--I patternMatch : (%,Pattern Integer,PatternMatchResult(Integer,%)) -> ... --R pomopo! : (%,Integer,IndexedExponents OrderedVariableList [x,y],%) -> % --R primitivePart : (%,OrderedVariableList [x,y]) -> % --R reducedSystem : Matrix % -> Matrix Integer ---R reducedSystem : (Matrix %,Vector %) -> Record(mat: Matrix Integer,vec: Vector Integer) +--I reducedSystem : (Matrix %,Vector %) -> ... --R resultant : (%,%,OrderedVariableList [x,y]) -> % --R retract : % -> OrderedVariableList [x,y] --R retractIfCan : % -> Union(Fraction Integer,"failed") --R retractIfCan : % -> Union(Integer,"failed") --R retractIfCan : % -> Union(OrderedVariableList [x,y],"failed") ---R solveLinearPolynomialEquation : (List SparseUnivariatePolynomial %,SparseUnivariatePolynomial %) -> Union(List SparseUnivariatePolynomial %,"failed") ---R squareFreePolynomial : SparseUnivariatePolynomial % -> Factored SparseUnivariatePolynomial % +--I solveLinearPolynomialEquation : (List SparseUnivariatePolynomial %,... +--I squareFreePolynomial : SparseUnivariatePolynomial % -> ... --R subtractIfCan : (%,%) -> Union(%,"failed") --R totalDegree : (%,List OrderedVariableList [x,y]) -> NonNegativeInteger --R totalDegree : % -> NonNegativeInteger @@ -1135,7 +1135,7 @@ a55:=x*y*z*t*u-1; arnborg5: List HDMP([x,y,z,t,u],RN):=[a51,a52,a53,a54,a55]; --R --R ---RType: List HomogeneousDistributedMultivariatePolynomial([x,y,z,t,u],Fraction Integer) +--IType: List HomogeneousDistributedMultivariatePolynomial(... --E 83 --S 84 of 188 @@ -1354,7 +1354,7 @@ solve([[1,2],[2,3]],[-2,3]) --R --R --R (1) [particular= [12,- 7],basis= [[0,0]]] ---RType: Record(particular: Union(Vector Fraction Integer,"failed"),basis: List Vector Fraction Integer) +--IType: Record(particular: Union(Vector Fraction Integer,"failed"),... --E 102 \end{chunk} @@ -1516,7 +1516,7 @@ factor g --R (3) -- (x - --- y)(x + --- y) --R 2 a d a d --R b ---RType: Factored DistributedMultivariatePolynomial([x,y],Fraction Polynomial Integer) +--IType: Factored DistributedMultivariatePolynomial(... --E 114 \end{chunk} diff --git a/src/input/tpiezas002.input.pamphlet b/src/input/tpiezas002.input.pamphlet index 53c08fd..04c0d4a 100644 --- a/src/input/tpiezas002.input.pamphlet +++ b/src/input/tpiezas002.input.pamphlet @@ -1,6 +1,6 @@ \documentclass{article} \usepackage{axiom} -\setlength{\textwidth}{400pt} +\setlength{\textwidth}{405pt} \begin{document} \title{\$SPAD/src/input tpiezas002.input} \author{Timothy Daly} diff --git a/src/input/triglim.input.pamphlet b/src/input/triglim.input.pamphlet index ebf4f72..9cba036 100644 --- a/src/input/triglim.input.pamphlet +++ b/src/input/triglim.input.pamphlet @@ -36,7 +36,7 @@ limit(atan(1/sin(x)),x = 0) --R %pi %pi --R (1) [leftHandLimit= - ---,rightHandLimit= ---] --R 2 2 ---RType: Union(Record(leftHandLimit: Union(OrderedCompletion Expression Integer,"failed"),rightHandLimit: Union(OrderedCompletion Expression Integer,"failed")),...) +--IType: Union(Record(leftHandLimit: Union(... --E 1 --S 2 of 6 @@ -46,7 +46,7 @@ limit(atan(sqrt(1 - x**2)/x),x = 0) --R %pi %pi --R (2) [leftHandLimit= - ---,rightHandLimit= ---] --R 2 2 ---RType: Union(Record(leftHandLimit: Union(OrderedCompletion Expression Integer,"failed"),rightHandLimit: Union(OrderedCompletion Expression Integer,"failed")),...) +--IType: Union(Record(leftHandLimit: Union(... --E 2 --S 3 of 6 @@ -56,7 +56,7 @@ limit(atan(-sin(x)/(cos(x) + a)),x = acos(-a)) --R %pi %pi --R (3) [leftHandLimit= - ---,rightHandLimit= ---] --R 2 2 ---RType: Union(Record(leftHandLimit: Union(OrderedCompletion Expression Integer,"failed"),rightHandLimit: Union(OrderedCompletion Expression Integer,"failed")),...) +--IType: Union(Record(leftHandLimit: Union(... --E 3 --S 4 of 6 @@ -66,7 +66,7 @@ limit(atan(sin(x)/(cos(x) + a)),x = acos(-a)) --R %pi %pi --R (4) [leftHandLimit= ---,rightHandLimit= - ---] --R 2 2 ---RType: Union(Record(leftHandLimit: Union(OrderedCompletion Expression Integer,"failed"),rightHandLimit: Union(OrderedCompletion Expression Integer,"failed")),...) +--IType: Union(Record(leftHandLimit: Union(... --E 4 \end{chunk} @@ -80,7 +80,7 @@ limit(atan(1/(cos(x) + a)),x = acos(-a)) --R %pi %pi --R (5) [leftHandLimit= ---,rightHandLimit= - ---] --R 2 2 ---RType: Union(Record(leftHandLimit: Union(OrderedCompletion Expression Integer,"failed"),rightHandLimit: Union(OrderedCompletion Expression Integer,"failed")),...) +--IType: Union(Record(leftHandLimit: Union(... --E 5 --S 6 of 6 @@ -90,7 +90,7 @@ limit(atan(1/(sin(x) + a)),x = asin(-a)) --R %pi %pi --R (6) [leftHandLimit= - ---,rightHandLimit= ---] --R 2 2 ---RType: Union(Record(leftHandLimit: Union(OrderedCompletion Expression Integer,"failed"),rightHandLimit: Union(OrderedCompletion Expression Integer,"failed")),...) +--IType: Union(Record(leftHandLimit: Union(... --E 6 )spool )lisp (bye) diff --git a/src/input/tsetcatvermeer.input.pamphlet b/src/input/tsetcatvermeer.input.pamphlet index 47e493f..f44188a 100644 --- a/src/input/tsetcatvermeer.input.pamphlet +++ b/src/input/tsetcatvermeer.input.pamphlet @@ -150,7 +150,7 @@ p4 := f1 * f2 ; lp := [p1,p2,p3,p4] ; --R --R ---RType: List NewSparseMultivariatePolynomial(Integer,OrderedVariableList [w,v,u,y,x]) +--IType: List NewSparseMultivariatePolynomial(... --E 18 --S 19 of 21 @@ -195,7 +195,7 @@ zeroSetSplit(lp)$T --R 2 2 2 2 2 --R (3u + 2u - 2x)v - 3y u , ((4u - 4x)v - 6y u )w + (2v + 3u )w - 1} --R ] ---RType: List RegularTriangularSet(Integer,IndexedExponents OrderedVariableList [w,v,u,y,x],OrderedVariableList [w,v,u,y,x],NewSparseMultivariatePolynomial(Integer,OrderedVariableList [w,v,u,y,x])) +--IType: List RegularTriangularSet(Integer,... --E 20 --S 21 of 21 @@ -265,7 +265,7 @@ zeroSetSplit(lp,false)$T --R 2 2 2 --R 6v - 2u - 3x + 2x + 3, 3u w - 1} --R ] ---RType: List RegularTriangularSet(Integer,IndexedExponents OrderedVariableList [w,v,u,y,x],OrderedVariableList [w,v,u,y,x],NewSparseMultivariatePolynomial(Integer,OrderedVariableList [w,v,u,y,x])) +--IType: List RegularTriangularSet(Integer,... --E 21 )spool )lisp (bye) diff --git a/src/input/typetower.input.pamphlet b/src/input/typetower.input.pamphlet index 6e2106d..356a05b 100644 --- a/src/input/typetower.input.pamphlet +++ b/src/input/typetower.input.pamphlet @@ -95,7 +95,7 @@ r:R:=z^2+s1*z+s2 --R (7) z + |2x + 1 x + 2|z + | | --R | | | 2 | --R + 0 x + 2 + +x + 2 x + 2+ ---RType: UnivariatePolynomial(z,SquareMatrix(2,UnivariatePolynomial(x,PrimeField 3))) +--IType: UnivariatePolynomial(z,SquareMatrix(2,... --E 7 \end{chunk} @@ -106,7 +106,7 @@ r+2*r --R --R --R (8) 0 ---RType: UnivariatePolynomial(z,SquareMatrix(2,UnivariatePolynomial(x,PrimeField 3))) +--IType: UnivariatePolynomial(z,SquareMatrix(2,... --E 8 \end{chunk} @@ -143,7 +143,7 @@ r2:=r*r --R | | --R | 2 | --R + 0 x + x + 1+ ---RType: UnivariatePolynomial(z,SquareMatrix(2,UnivariatePolynomial(x,PrimeField 3))) +--IType: UnivariatePolynomial(z,SquareMatrix(2,... --E 10 \end{chunk} diff --git a/src/input/unit-macro.input.pamphlet b/src/input/unit-macro.input.pamphlet index f861f54..4bbcc7f 100644 --- a/src/input/unit-macro.input.pamphlet +++ b/src/input/unit-macro.input.pamphlet @@ -83,7 +83,7 @@ b ==> 7 --R 1> (|getParserMacroNames|) --R <1 (|getParserMacroNames| (|b| |a|)) --R 1> (|clearParserMacro| |a|) ---I <1 (|clearParserMacro| ((|b| |mbody| ((|integer| (|posn| (0 "b ==> 7" 9 9 "/tmp/i.input") . 6)) . "7")) (|a| |mbody| ((|integer| (|posn| (0 "a ==> 3" 7 7 "/tmp/i.input") . 6)) . "3")))) +--I <1 (|clearParserMacro| ((|b| |mbody| ((|integer| (|posn| ... --E 6 --S 7 of 9 @@ -126,7 +126,7 @@ b ==> 7 --R 1> (|getParserMacroNames|) --R <1 (|getParserMacroNames| (|b| |a|)) --R 1> (|clearParserMacro| |a|) ---I <1 (|clearParserMacro| ((|b| |mbody| ((|integer| (|posn| (0 "b ==> 7" 9 9 "/tmp/i.input") . 6)) . "7")))) +--I <1 (|clearParserMacro| ((|b| |mbody| ((|integer| ... --E 8 --S 9 of 9 diff --git a/src/input/unittest1.input.pamphlet b/src/input/unittest1.input.pamphlet index 23f93bb..ff30946 100644 --- a/src/input/unittest1.input.pamphlet +++ b/src/input/unittest1.input.pamphlet @@ -541,7 +541,7 @@ Unit test the user level commands --R differentiate : (%,Symbol) -> % if R has PDRING SYMBOL --R differentiate : (%,List Symbol) -> % if R has PDRING SYMBOL --R differentiate : (%,Symbol,NonNegativeInteger) -> % if R has PDRING SYMBOL ---R differentiate : (%,List Symbol,List NonNegativeInteger) -> % if R has PDRING SYMBOL +--I differentiate : (%,List Symbol,List NonNegativeInteger) -> ... --R differentiate : (%,(R -> R),NonNegativeInteger) -> % --R differentiate : (%,(R -> R)) -> % --R eval : (%,List R,List R) -> % if R has EVALAB R and R has SETCAT @@ -563,7 +563,7 @@ Unit test the user level commands --R rank : % -> NonNegativeInteger if R has INTDOM --R reducedSystem : Matrix % -> Matrix R --R reducedSystem : (Matrix %,Vector %) -> Record(mat: Matrix R,vec: Vector R) ---R reducedSystem : (Matrix %,Vector %) -> Record(mat: Matrix Integer,vec: Vector Integer) if R has LINEXP INT +--I reducedSystem : (Matrix %,Vector %) -> ... --R reducedSystem : Matrix % -> Matrix Integer if R has LINEXP INT --R retract : % -> Fraction Integer if R has RETRACT FRAC INT --R retract : % -> Integer if R has RETRACT INT @@ -645,7 +645,7 @@ Unit test the user level commands --R differentiate : (%,Symbol) -> % if R has PDRING SYMBOL --R differentiate : (%,List Symbol) -> % if R has PDRING SYMBOL --R differentiate : (%,Symbol,NonNegativeInteger) -> % if R has PDRING SYMBOL ---R differentiate : (%,List Symbol,List NonNegativeInteger) -> % if R has PDRING SYMBOL +--I differentiate : (%,List Symbol,List NonNegativeInteger) -> ... --R differentiate : (%,(R -> R),NonNegativeInteger) -> % --R differentiate : (%,(R -> R)) -> % --R eval : (%,List R,List R) -> % if R has EVALAB R and R has SETCAT @@ -667,7 +667,7 @@ Unit test the user level commands --R rank : % -> NonNegativeInteger if R has INTDOM --R reducedSystem : Matrix % -> Matrix R --R reducedSystem : (Matrix %,Vector %) -> Record(mat: Matrix R,vec: Vector R) ---R reducedSystem : (Matrix %,Vector %) -> Record(mat: Matrix Integer,vec: Vector Integer) if R has LINEXP INT +--I reducedSystem : (Matrix %,Vector %) -> ... --R reducedSystem : Matrix % -> Matrix Integer if R has LINEXP INT --R retract : % -> Fraction Integer if R has RETRACT FRAC INT --R retract : % -> Integer if R has RETRACT INT @@ -773,7 +773,7 @@ Unit test the user level commands --R differentiate : (%,Symbol) -> % if R has PDRING SYMBOL --R differentiate : (%,List Symbol) -> % if R has PDRING SYMBOL --R differentiate : (%,Symbol,NonNegativeInteger) -> % if R has PDRING SYMBOL ---R differentiate : (%,List Symbol,List NonNegativeInteger) -> % if R has PDRING SYMBOL +--I differentiate : (%,List Symbol,List NonNegativeInteger) -> ... --R differentiate : (%,(R -> R),NonNegativeInteger) -> % --R differentiate : (%,(R -> R)) -> % --R eval : (%,List R,List R) -> % if R has EVALAB R and R has SETCAT @@ -795,7 +795,7 @@ Unit test the user level commands --R rank : % -> NonNegativeInteger if R has INTDOM --R reducedSystem : Matrix % -> Matrix R --R reducedSystem : (Matrix %,Vector %) -> Record(mat: Matrix R,vec: Vector R) ---R reducedSystem : (Matrix %,Vector %) -> Record(mat: Matrix Integer,vec: Vector Integer) if R has LINEXP INT +--I reducedSystem : (Matrix %,Vector %) -> ... --R reducedSystem : Matrix % -> Matrix Integer if R has LINEXP INT --R retract : % -> Fraction Integer if R has RETRACT FRAC INT --R retract : % -> Integer if R has RETRACT INT diff --git a/src/input/unittest2.input.pamphlet b/src/input/unittest2.input.pamphlet index 80ecc1c..e9a922d 100644 --- a/src/input/unittest2.input.pamphlet +++ b/src/input/unittest2.input.pamphlet @@ -70,7 +70,7 @@ Unit test the user level commands --S 9 of 236 )lisp (identity |$CommandSynonymAlist|) --R ---RValue = ((? . "what commands") (|ap| . "what things") (|apr| . "what things") (|apropos| . "what things") (|cache| . "set functions cache") (|cl| . "clear") (|cls| . "zsystemdevelopment )cls") (|cms| . "system") (|co| . "compiler") (|d| . "display") (|dep| . "display dependents") (|dependents| . "display dependents") (|e| . "edit") (|expose| . "set expose add constructor") (|fc| . "zsystemdevelopment )c") (|fd| . "zsystemdevelopment )d") (|fdt| . "zsystemdevelopment )dt") (|fct| . "zsystemdevelopment )ct") (|fctl| . "zsystemdevelopment )ctl") (|fe| . "zsystemdevelopment )e") (|fec| . "zsystemdevelopment )ec") (|fect| . "zsystemdevelopment )ect") (|fns| . "exec spadfn") (|fortran| . "set output fortran") (|h| . "help") (|hd| . "system hypertex &") (|kclam| . "boot clearClams ( )") (|killcaches| . "boot clearConstructorAndLisplibCaches ( )") (|patch| . "zsystemdevelopment )patch") (|pause| . "zsystemdevelopment )pause") (|prompt| . "set message prompt") (|recurrence| . "set functions recurrence") (|restore| . "history )restore") (|save| . "history )save") (|startGraphics| . "system $AXIOM/lib/viewman &") (|startNAGLink| . "system $AXIOM/lib/nagman &") (|stopGraphics| . "lisp (|sockSendSignal| 2 15)") (|stopNAGLink| . "lisp (|sockSendSignal| 8 15)") (|time| . "set message time") (|type| . "set message type") (|unexpose| . "set expose drop constructor") (|up| . "zsystemdevelopment )update") (|version| . "lisp (axiomVersion)") (|w| . "what") (|wc| . "what categories") (|wd| . "what domains") (|who| . "lisp (pprint credits)") (|wp| . "what packages") (|ws| . "what synonyms")) +--IValue = ((? . "what commands") (|ap| . "what things") ... --E 9 --S 10 of 236 @@ -94,7 +94,7 @@ Unit test the user level commands --S 13 of 236 )lisp (identity credits) --R ---RValue = ("An alphabetical listing of contributors to AXIOM:" "Cyril Alberga Roy Adler Christian Aistleitner" "Richard Anderson George Andrews S.J. Atkins" "Henry Baker Martin Baker Stephen Balzac" "Yurij Baransky David R. Barton Gerald Baumgartner" "Gilbert Baumslag Michael Becker Nelson H. F. Beebe" "Jay Belanger David Bindel Fred Blair" "Vladimir Bondarenko Mark Botch Alexandre Bouyer" "Peter A. Broadbery Martin Brock Manuel Bronstein" "Stephen Buchwald Florian Bundschuh Luanne Burns" "William Burge" "Quentin Carpent Robert Caviness Bruce Char" "Ondrej Certik Cheekai Chin David V. Chudnovsky" "Gregory V. Chudnovsky Josh Cohen Christophe Conil" "Don Coppersmith George Corliss Robert Corless" "Gary Cornell Meino Cramer Claire Di Crescenzo" "David Cyganski" "Nathaniel Daly Timothy Daly Sr. Timothy Daly Jr." "James H. Davenport Didier Deshommes Michael Dewar" "Jean Della Dora Gabriel Dos Reis Claire DiCrescendo" "Sam Dooley Lionel Ducos Lee Duhem" "Martin Dunstan Brian Dupee Dominique Duval" "Robert Edwards Heow Eide-Goodman Lars Erickson" "Richard Fateman Bertfried Fauser Stuart Feldman" "John Fletcher Brian Ford Albrecht Fortenbacher" "George Frances Constantine Frangos Timothy Freeman" "Korrinn Fu" "Marc Gaetano Rudiger Gebauer Kathy Gerber" "Patricia Gianni Samantha Goldrich Holger Gollan" "Teresa Gomez-Diaz Laureano Gonzalez-Vega Stephen Gortler" "Johannes Grabmeier Matt Grayson Klaus Ebbe Grue" "James Griesmer Vladimir Grinberg Oswald Gschnitzer" "Jocelyn Guidry" "Gaetan Hache Steve Hague Satoshi Hamaguchi" "Mike Hansen Richard Harke Bill Hart" "Vilya Harvey Martin Hassner Arthur S. Hathaway" "Dan Hatton Waldek Hebisch Karl Hegbloom" "Ralf Hemmecke Henderson Antoine Hersen" "Gernot Hueber" "Pietro Iglio" "Alejandro Jakubi Richard Jenks" "Kai Kaminski Grant Keady Tony Kennedy" "Ted Kosan Paul Kosinski Klaus Kusche" "Bernhard Kutzler" "Tim Lahey Larry Lambe Kaj Laurson" "Franz Lehner Frederic Lehobey Michel Levaud" "Howard Levy Liu Xiaojun Rudiger Loos" "Michael Lucks Richard Luczak" "Camm Maguire Francois Maltey Alasdair McAndrew" "Bob McElrath Michael McGettrick Ian Meikle" "David Mentre Victor S. Miller Gerard Milmeister" "Mohammed Mobarak H. Michael Moeller Michael Monagan" "Marc Moreno-Maza Scott Morrison Joel Moses" "Mark Murray" "William Naylor Patrice Naudin C. Andrew Neff" "John Nelder Godfrey Nolan Arthur Norman" "Jinzhong Niu" "Michael O'Connor Summat Oemrawsingh Kostas Oikonomou" "Humberto Ortiz-Zuazaga" "Julian A. Padget Bill Page David Parnas" "Susan Pelzel Michel Petitot Didier Pinchon" "Ayal Pinkus Jose Alfredo Portes" "Claude Quitte" "Arthur C. Ralfs Norman Ramsey Anatoly Raportirenko" "Albert D. Rich Michael Richardson Renaud Rioboo" "Jean Rivlin Nicolas Robidoux Simon Robinson" "Raymond Rogers Michael Rothstein Martin Rubey" "Philip Santas Alfred Scheerhorn William Schelter" "Gerhard Schneider Martin Schoenert Marshall Schor" "Frithjof Schulze Fritz Schwarz Steven Segletes" "Nick Simicich William Sit Elena Smirnova" "Jonathan Steinbach Fabio Stumbo Christine Sundaresan" "Robert Sutor Moss E. Sweedler Eugene Surowitz" "Max Tegmark James Thatcher Balbir Thomas" "Mike Thomas Dylan Thurston Steve Toleque" "Barry Trager Themos T. Tsikas" "Gregory Vanuxem" "Bernhard Wall Stephen Watt Jaap Weel" "Juergen Weiss M. Weller Mark Wegman" "James Wen Thorsten Werther Michael Wester" "John M. Wiley Berhard Will Clifton J. Williamson" "Stephen Wilson Shmuel Winograd Robert Wisbauer" "Sandra Wityak Waldemar Wiwianka Knut Wolf" "Clifford Yapp David Yun" "Vadim Zhytnikov Richard Zippel Evelyn Zoernack" "Bruno Zuercher Dan Zwillinger") +--IValue = ("An alphabetical listing of contributors to AXIOM:" ... --E 13 --S 14 of 236 @@ -112,7 +112,7 @@ Unit test the user level commands --S 16 of 236 )lisp (identity |$defaultSpecialCharacters|) --R ---RValue = (#\^\ #\^[ #\^^ #\^_ #\O #\- #\\220 #\\255 #\\275 #\\300 #\\320 #\; #\> #\? #\= #\, #\\340) +--IValue = (#\^\ #\^[ #\^^ #\^_ #\O #\- #\\220 #\\255 ... --E 16 --S 17 of 236 @@ -130,7 +130,7 @@ Unit test the user level commands --S 19 of 236 )lisp (identity |$displayOptions| ) --R ---RValue = (|abbreviations| |all| |macros| |modes| |names| |operations| |properties| |types| |values|) +--IValue = (|abbreviations| |all| |macros| |modes| |names| ... --E 19 --S 20 of 236 @@ -292,7 +292,7 @@ Unit test the user level commands --S 46 of 236 )lisp (identity |$InitialCommandSynonymAlist|) --R ---RValue = ((? . "what commands") (|ap| . "what things") (|apr| . "what things") (|apropos| . "what things") (|cache| . "set functions cache") (|cl| . "clear") (|cls| . "zsystemdevelopment )cls") (|cms| . "system") (|co| . "compiler") (|d| . "display") (|dep| . "display dependents") (|dependents| . "display dependents") (|e| . "edit") (|expose| . "set expose add constructor") (|fc| . "zsystemdevelopment )c") (|fd| . "zsystemdevelopment )d") (|fdt| . "zsystemdevelopment )dt") (|fct| . "zsystemdevelopment )ct") (|fctl| . "zsystemdevelopment )ctl") (|fe| . "zsystemdevelopment )e") (|fec| . "zsystemdevelopment )ec") (|fect| . "zsystemdevelopment )ect") (|fns| . "exec spadfn") (|fortran| . "set output fortran") (|h| . "help") (|hd| . "system hypertex &") (|kclam| . "boot clearClams ( )") (|killcaches| . "boot clearConstructorAndLisplibCaches ( )") (|patch| . "zsystemdevelopment )patch") (|pause| . "zsystemdevelopment )pause") (|prompt| . "set message prompt") (|recurrence| . "set functions recurrence") (|restore| . "history )restore") (|save| . "history )save") (|startGraphics| . "system $AXIOM/lib/viewman &") (|startNAGLink| . "system $AXIOM/lib/nagman &") (|stopGraphics| . "lisp (|sockSendSignal| 2 15)") (|stopNAGLink| . "lisp (|sockSendSignal| 8 15)") (|time| . "set message time") (|type| . "set message type") (|unexpose| . "set expose drop constructor") (|up| . "zsystemdevelopment )update") (|version| . "lisp (axiomVersion)") (|w| . "what") (|wc| . "what categories") (|wd| . "what domains") (|who| . "lisp (pprint credits)") (|wp| . "what packages") (|ws| . "what synonyms")) +--IValue = ((? . "what commands") (|ap| . "what things") ... --E 46 --S 47 of 236 @@ -358,7 +358,7 @@ Unit test the user level commands --S 57 of 236 )lisp (identity |$noParseCommands| ) --R ---RValue = (|boot| |copyright| |credits| |fin| |lisp| |pquit| |quit| |synonym| |system| |trademark|) +--IValue = (|boot| |copyright| |credits| |fin| |lisp| |pquit| ... --E 57 --S 58 of 236 @@ -406,25 +406,25 @@ Unit test the user level commands --S 65 of 236 )lisp (identity |$plainSpecialCharacters0|) --R ---RValue = (#\N #\N #\N #\N #\O #\` #\o #\\255 #\\275 #\\300 #\\320 #\N #\N #\N #\N #\N #\\340) +--IValue = (#\N #\N #\N #\N #\O #\` #\o #\\255 #\\275 #\\300 ... --E 65 --S 66 of 236 )lisp (identity |$plainSpecialCharacters1|) --R ---RValue = (#\k #\k #\} #\} #\O #\` #\o #\\255 #\\275 #\\300 #\\320 #\N #\N #\N #\N #\N #\\340) +--IValue = (#\k #\k #\} #\} #\O #\` #\o #\\255 #\\275 #\\300 ... --E 66 --S 67 of 236 )lisp (identity |$plainSpecialCharacters2|) --R ---RValue = (#\O #\O #\O #\O #\O #\` #\o #\\255 #\\275 #\\300 #\\320 #\N #\N #\N #\N #\N #\\340) +--IValue = (#\O #\O #\O #\O #\O #\` #\o #\\255 #\\275 #\\300 ... --E 67 --S 68 of 236 )lisp (identity |$plainSpecialCharacters3|) --R ---RValue = (#\` #\` #\` #\` #\O #\` #\o #\\255 #\\275 #\\300 #\\320 #\N #\N #\N #\N #\N #\\340) +--IValue = (#\` #\` #\` #\` #\O #\` #\o #\\255 #\\275 #\\300 ... --E 68 --S 69 of 236 @@ -571,7 +571,7 @@ This generates non-printing characters --S 92 of 236 )lisp (identity |$specialCharacterAlist| ) --R ---RValue = ((|ulc| . 0) (|urc| . 1) (|llc| . 2) (|lrc| . 3) (|vbar| . 4) (|hbar| . 5) (|quad| . 6) (|lbrk| . 7) (|rbrk| . 8) (|lbrc| . 9) (|rbrc| . 10) (|ttee| . 11) (|btee| . 12) (|rtee| . 13) (|ltee| . 14) (|ctee| . 15) (|bslash| . 16)) +--IValue = ((|ulc| . 0) (|urc| . 1) (|llc| . 2) (|lrc| . 3) ... --E 92 --S 93 of 236 @@ -613,13 +613,13 @@ This generates non-printing characters --S 99 of 236 )lisp (identity $syscommands) --R ---RValue = (|abbreviations| |boot| |browse| |cd| |clear| |close| |compiler| |copyright| |credits| |describe| |display| |edit| |fin| |frame| |help| |history| |lisp| |library| |load| |ltrace| |pquit| |quit| |read| |savesystem| |set| |show| |spool| |summary| |synonym| |system| |trace| |trademark| |undo| |what| |with| |workfiles| |zsystemdevelopment|) +--IValue = (|abbreviations| |boot| |browse| |cd| |clear| |close| ... --E 99 --S 100 of 236 )lisp (identity |$systemCommands|) --R ---RValue = ((|abbreviations| . |compiler|) (|boot| . |development|) (|browse| . |development|) (|cd| . |interpreter|) (|clear| . |interpreter|) (|close| . |interpreter|) (|compiler| . |compiler|) (|copyright| . |interpreter|) (|credits| . |interpreter|) (|describe| . |interpreter|) (|display| . |interpreter|) (|edit| . |interpreter|) (|fin| . |development|) (|frame| . |interpreter|) (|help| . |interpreter|) (|history| . |interpreter|) (|lisp| . |development|) (|library| . |interpreter|) (|load| . |interpreter|) (|ltrace| . |interpreter|) (|pquit| . |interpreter|) (|quit| . |interpreter|) (|read| . |interpreter|) (|savesystem| . |interpreter|) (|set| . |interpreter|) (|show| . |interpreter|) (|spool| . |interpreter|) (|summary| . |interpreter|) (|synonym| . |interpreter|) (|system| . |interpreter|) (|trace| . |interpreter|) (|trademark| . |interpreter|) (|undo| . |interpreter|) (|what| . |interpreter|) (|with| . |interpreter|) (|workfiles| . |development|) (|zsystemdevelopment| . |interpreter|)) +--IValue = ((|abbreviations| . |compiler|) (|boot| . |development|) ... --E 100 --S 101 of 236 @@ -649,7 +649,7 @@ This generates non-printing characters --S 105 of 236 )lisp (identity |$tokenCommands|) --R ---RValue = (|abbreviations| |cd| |clear| |close| |compiler| |depends| |display| |describe| |edit| |frame| |frame| |help| |history| |input| |library| |load| |ltrace| |read| |savesystem| |set| |spool| |undo| |what| |with| |workfiles| |zsystemdevelopment|) +--IValue = (|abbreviations| |cd| |clear| |close| |compiler| ... --E 105 --S 106 of 236 @@ -673,7 +673,7 @@ This generates non-printing characters --S 109 of 236 )lisp (identity |$traceOptionList|) --R ---RValue = (|after| |before| |break| |cond| |count| |depth| |local| |mathprint| |nonquietly| |nt| |of| |only| |ops| |restore| |timer| |varbreak| |vars| |within|) +--IValue = (|after| |before| |break| |cond| |count| |depth| |local| ... --E 109 --S 110 of 236 @@ -715,13 +715,9 @@ This generates non-printing characters --S 116 of 236 )lisp (identity |$whatOptions|) --R ---RValue = (|operations| |categories| |domains| |packages| |commands| |synonyms| |things|) +--IValue = (|operations| |categories| |domains| |packages| ... --E 116 - - - - --S 117 of 236 )lisp (identity |$attributeDb|) --R @@ -827,7 +823,7 @@ This generates non-printing characters --S 134 of 236 )lisp (identity $directory-list) --R ---IValue = ("/research/reference/mnt/ubuntu/../../src/input/" "/research/reference/mnt/ubuntu/doc/msgs/" "/research/reference/mnt/ubuntu/../../src/algebra/" "/research/reference/mnt/ubuntu/../../src/interp/" "/research/reference/mnt/ubuntu/doc/spadhelp/") +--IValue = ("/research/reference/mnt/ubuntu/../../src/input/" ... --E 134 --S 135 of 236 @@ -873,7 +869,7 @@ This generates non-printing characters --S 140 of 236 )lisp (identity |$e|) --R ---RValue = ((((|Category| (|modemap| (((|Category|) (|Category|)) (T *)))) (|Join| (|modemap| (((|Category|) (|Category|) (|Category|) (|Category|)) (T *)) (((|Category|) (|Category|) (|List| (|Category|)) (|Category|)) (T *))))))) +--IValue = ((((|Category| (|modemap| (((|Category|) (|Category|)) (T *))))... --E 140 --S 141 of 236 @@ -963,13 +959,13 @@ This generates non-printing characters --S 155 of 236 )lisp (identity |$globalExposureGroupAlist|) --R ---RValue = ((|basic| (|AffineAlgebraicSetComputeWithGroebnerBasis| . AFALGGRO) (|AffineAlgebraicSetComputeWithResultant| . AFALGRES) (|AffinePlane| . AFFPL) (|AffinePlaneOverPseudoAlgebraicClosureOfFiniteField| . AFFPLPS) (|AffineSpace| . AFFSP) (|AlgebraicManipulations| . ALGMANIP) (|AlgebraicNumber| . AN) (|AlgFactor| . ALGFACT) (|AlgebraicMultFact| . ALGMFACT) (|AlgebraPackage| . ALGPKG) (|AlgebraGivenByStructuralConstants| . ALGSC) (|Any| . ANY) (|AnyFunctions1| . ANY1) (|ApplicationProgramInterface| . API) (|ArrayStack| . ASTACK) (|AssociatedJordanAlgebra| . JORDAN) (|AssociatedLieAlgebra| . LIE) (|AttachPredicates| . PMPRED) (|AxiomServer| . AXSERV) (|BalancedBinaryTree| . BBTREE) (|BasicOperator| . BOP) (|BasicOperatorFunctions1| . BOP1) (|Bezier| . BEZIER) (|BinaryExpansion| . BINARY) (|BinaryFile| . BINFILE) (|BinarySearchTree| . BSTREE) (|BinaryTournament| . BTOURN) (|BinaryTree| . BTREE) (|Bits| . BITS) (|BlasLevelOne| . BLAS1) (|BlowUpPackage| . BLUPPACK) (|BlowUpWithHamburgerNoether| . BLHN) (|BlowUpWithQuadTrans| . BLQT) (|Boolean| . BOOLEAN) (|CardinalNumber| . CARD) (|CartesianTensor| . CARTEN) (|CartesianTensorFunctions2| . CARTEN2) (|Character| . CHAR) (|CharacterClass| . CCLASS) (|CharacteristicPolynomialPackage| . CHARPOL) (|CliffordAlgebra| . CLIF) (|Color| . COLOR) (|CommonDenominator| . CDEN) (|Commutator| . COMM) (|Complex| . COMPLEX) (|ComplexDoubleFloatMatrix| . CDFMAT) (|ComplexDoubleFloatVector| . CDFVEC) (|ComplexFactorization| . COMPFACT) (|ComplexFunctions2| . COMPLEX2) (|ComplexRootPackage| . CMPLXRT) (|ComplexTrigonometricManipulations| . CTRIGMNP) (|ContinuedFraction| . CONTFRAC) (|CoordinateSystems| . COORDSYS) (|CRApackage| . CRAPACK) (|CycleIndicators| . CYCLES) (|Database| . DBASE) (|DataList| . DLIST) (|DecimalExpansion| . DECIMAL) (|DenavitHartenbergMatrix| . DHMATRIX) (|Dequeue| . DEQUEUE) (|DesingTree| . DSTREE) (|DesingTreePackage| . DTP) (|DiophantineSolutionPackage| . DIOSP) (|DirichletRing| . DIRRING) (|DirectProductFunctions2| . DIRPROD2) (|DisplayPackage| . DISPLAY) (|DistinctDegreeFactorize| . DDFACT) (|Divisor| . DIV) (|DoubleFloat| . DFLOAT) (|DoubleFloatMatrix| . DFMAT) (|DoubleFloatVector| . DFVEC) (|DoubleFloatSpecialFunctions| . DFSFUN) (|DrawComplex| . DRAWCX) (|DrawNumericHack| . DRAWHACK) (|DrawOption| . DROPT) (|EigenPackage| . EP) (|ElementaryFunctionDefiniteIntegration| . DEFINTEF) (|ElementaryFunctionLODESolver| . LODEEF) (|ElementaryFunctionODESolver| . ODEEF) (|ElementaryFunctionSign| . SIGNEF) (|ElementaryFunctionStructurePackage| . EFSTRUC) (|Equation| . EQ) (|EquationFunctions2| . EQ2) (|ErrorFunctions| . ERROR) (|EuclideanGroebnerBasisPackage| . GBEUCLID) (|Exit| . EXIT) (|Export3D| . EXP3D) (|Expression| . EXPR) (|ExpressionFunctions2| . EXPR2) (|ExpressionSolve| . EXPRSOL) (|ExpressionSpaceFunctions2| . ES2) (|ExpressionSpaceODESolver| . EXPRODE) (|ExpressionToOpenMath| . OMEXPR) (|ExpressionToUnivariatePowerSeries| . EXPR2UPS) (|Factored| . FR) (|FactoredFunctions2| . FR2) (|FactorisationOverPseudoAlgebraicClosureOfAlgExtOfRationalNumber| . FACTEXT) (|FactorisationOverPseudoAlgebraicClosureOfRationalNumber| . FACTRN) (|File| . FILE) (|FileName| . FNAME) (|FiniteAbelianMonoidRingFunctions2| . FAMR2) (|FiniteDivisorFunctions2| . FDIV2) (|FiniteFieldFactorizationWithSizeParseBySideEffect| . FFFACTSE) (|FiniteField| . FF) (|FiniteFieldCyclicGroup| . FFCG) (|FiniteFieldPolynomialPackage2| . FFPOLY2) (|FiniteFieldNormalBasis| . FFNB) (|FiniteFieldHomomorphisms| . FFHOM) (|FiniteFieldSquareFreeDecomposition| . FFSQFR) (|FiniteLinearAggregateFunctions2| . FLAGG2) (|FiniteLinearAggregateSort| . FLASORT) (|FiniteSetAggregateFunctions2| . FSAGG2) (|FlexibleArray| . FARRAY) (|Float| . FLOAT) (|FloatingRealPackage| . FLOATRP) (|FloatingComplexPackage| . FLOATCP) (|FourierSeries| . FSERIES) (|Fraction| . FRAC) (|FractionalIdealFunctions2| . FRIDEAL2) (|FractionFreeFastGaussian| . FFFG) (|FractionFreeFastGaussianFractions| . FFFGF) (|FractionFunctions2| . FRAC2) (|FreeNilpotentLie| . FNLA) (|FullPartialFractionExpansion| . FPARFRAC) (|FunctionFieldCategoryFunctions2| . FFCAT2) (|FunctionSpaceAssertions| . PMASSFS) (|FunctionSpaceAttachPredicates| . PMPREDFS) (|FunctionSpaceComplexIntegration| . FSCINT) (|FunctionSpaceFunctions2| . FS2) (|FunctionSpaceIntegration| . FSINT) (|FunctionSpacePrimitiveElement| . FSPRMELT) (|FunctionSpaceSum| . SUMFS) (|GaussianFactorizationPackage| . GAUSSFAC) (|GeneralPackageForAlgebraicFunctionField| . GPAFF) (|GeneralUnivariatePowerSeries| . GSERIES) (|GenerateUnivariatePowerSeries| . GENUPS) (|GnuDraw| . GDRAW) (|GraphicsDefaults| . GRDEF) (|GroebnerPackage| . GB) (|GroebnerFactorizationPackage| . GBF) (|Guess| . GUESS) (|GuessAlgebraicNumber| . GUESSAN) (|GuessFinite| . GUESSF) (|GuessFiniteFunctions| . GUESSF1) (|GuessInteger| . GUESSINT) (|GuessOption| . GOPT) (|GuessPolynomial| . GUESSP) (|GuessUnivariatePolynomial| . GUESSUP) (|HallBasis| . HB) (|Heap| . HEAP) (|HexadecimalExpansion| . HEXADEC) (|HTMLFormat| . HTMLFORM) (|IdealDecompositionPackage| . IDECOMP) (|IndexCard| . ICARD) (|InfClsPt| . ICP) (|InfiniteProductCharacteristicZero| . INFPROD0) (|InfiniteProductFiniteField| . INPRODFF) (|InfiniteProductPrimeField| . INPRODPF) (|InfiniteTuple| . ITUPLE) (|InfiniteTupleFunctions2| . ITFUN2) (|InfiniteTupleFunctions3| . ITFUN3) (|InfinitlyClosePoint| . INFCLSPT) (|InfinitlyClosePointOverPseudoAlgebraicClosureOfFiniteField| . INFCLSPS) (|Infinity| . INFINITY) (|Integer| . INT) (|IntegerCombinatoricFunctions| . COMBINAT) (|IntegerLinearDependence| . ZLINDEP) (|IntegerNumberTheoryFunctions| . INTHEORY) (|IntegerPrimesPackage| . PRIMES) (|IntegerRetractions| . INTRET) (|IntegerRoots| . IROOT) (|IntegrationResultFunctions2| . IR2) (|IntegrationResultRFToFunction| . IRRF2F) (|IntegrationResultToFunction| . IR2F) (|InterfaceGroebnerPackage| . INTERGB) (|InterpolateFormsPackage| . INTFRSP) (|IntersectionDivisorPackage| . INTDIVP) (|Interval| . INTRVL) (|InventorDataSink| . IVDATA) (|InventorViewPort| . IVVIEW) (|InventorRenderPackage| . IVREND) (|InverseLaplaceTransform| . INVLAPLA) (|IrrRepSymNatPackage| . IRSN) (|KernelFunctions2| . KERNEL2) (|KeyedAccessFile| . KAFILE) (|LaplaceTransform| . LAPLACE) (|LazardMorenoSolvingPackage| . LAZM3PK) (|Library| . LIB) (|LieSquareMatrix| . LSQM) (|LinearOrdinaryDifferentialOperator| . LODO) (|LinearSystemMatrixPackage| . LSMP) (|LinearSystemMatrixPackage1| . LSMP1) (|LinearSystemFromPowerSeriesPackage| . LISYSER) (|LinearSystemPolynomialPackage| . LSPP) (|List| . LIST) (|LinesOpPack| . LOP) (|ListFunctions2| . LIST2) (|ListFunctions3| . LIST3) (|ListToMap| . LIST2MAP) (|LocalParametrizationOfSimplePointPackage| . LPARSPT) (|MakeFloatCompiledFunction| . MKFLCFN) (|MakeFunction| . MKFUNC) (|MakeRecord| . MKRECORD) (|MappingPackage1| . MAPPKG1) (|MappingPackage2| . MAPPKG2) (|MappingPackage3| . MAPPKG3) (|MappingPackage4| . MAPPKG4) (|MathMLFormat| . MMLFORM) (|Matrix| . MATRIX) (|MatrixCategoryFunctions2| . MATCAT2) (|MatrixCommonDenominator| . MCDEN) (|MatrixLinearAlgebraFunctions| . MATLIN) (|MergeThing| . MTHING) (|ModularDistinctDegreeFactorizer| . MDDFACT) (|ModuleOperator| . MODOP) (|MonoidRingFunctions2| . MRF2) (|MoreSystemCommands| . MSYSCMD) (|MPolyCatFunctions2| . MPC2) (|MPolyCatRationalFunctionFactorizer| . MPRFF) (|Multiset| . MSET) (|MultivariateFactorize| . MULTFACT) (|MultivariatePolynomial| . MPOLY) (|MultFiniteFactorize| . MFINFACT) (|MyUnivariatePolynomial| . MYUP) (|MyExpression| . MYEXPR) (|NeitherSparseOrDensePowerSeries| . NSDPS) (|NewtonPolygon| . NPOLYGON) (|NoneFunctions1| . NONE1) (|NonNegativeInteger| . NNI) (|NottinghamGroup| . NOTTING) (|NormalizationPackage| . NORMPK) (|NormInMonogenicAlgebra| . NORMMA) (|NumberTheoreticPolynomialFunctions| . NTPOLFN) (|Numeric| . NUMERIC) (|NumericalOrdinaryDifferentialEquations| . NUMODE) (|NumericalQuadrature| . NUMQUAD) (|NumericComplexEigenPackage| . NCEP) (|NumericRealEigenPackage| . NREP) (|NumericContinuedFraction| . NCNTFRAC) (|Octonion| . OCT) (|OctonionCategoryFunctions2| . OCTCT2) (|OneDimensionalArray| . ARRAY1) (|OneDimensionalArrayFunctions2| . ARRAY12) (|OnePointCompletion| . ONECOMP) (|OnePointCompletionFunctions2| . ONECOMP2) (|OpenMathConnection| . OMCONN) (|OpenMathDevice| . OMDEV) (|OpenMathEncoding| . OMENC) (|OpenMathError| . OMERR) (|OpenMathErrorKind| . OMERRK) (|OpenMathPackage| . OMPKG) (|OpenMathServerPackage| . OMSERVER) (|OperationsQuery| . OPQUERY) (|OrderedCompletion| . ORDCOMP) (|OrderedCompletionFunctions2| . ORDCOMP2) (|OrdinaryDifferentialRing| . ODR) (|OrdSetInts| . OSI) (|OrthogonalPolynomialFunctions| . ORTHPOL) (|OutputPackage| . OUT) (|PackageForAlgebraicFunctionField| . PAFF) (|PackageForAlgebraicFunctionFieldOverFiniteField| . PAFFFF) (|PackageForPoly| . PFORP) (|PadeApproximantPackage| . PADEPAC) (|Palette| . PALETTE) (|PartialFraction| . PFR) (|PatternFunctions2| . PATTERN2) (|ParametricPlaneCurve| . PARPCURV) (|ParametricSpaceCurve| . PARSCURV) (|ParametricSurface| . PARSURF) (|ParametricPlaneCurveFunctions2| . PARPC2) (|ParametricSpaceCurveFunctions2| . PARSC2) (|ParametricSurfaceFunctions2| . PARSU2) (|ParametrizationPackage| . PARAMP) (|PartitionsAndPermutations| . PARTPERM) (|PatternMatch| . PATMATCH) (|PatternMatchAssertions| . PMASS) (|PatternMatchResultFunctions2| . PATRES2) (|PendantTree| . PENDTREE) (|Permanent| . PERMAN) (|PermutationGroupExamples| . PGE) (|PermutationGroup| . PERMGRP) (|Permutation| . PERM) (|Pi| . HACKPI) (|PiCoercions| . PICOERCE) (|Places| . PLACES) (|PlacesOverPseudoAlgebraicClosureOfFiniteField| . PLACESPS) (|Plcs| . PLCS) (|PointFunctions2| . PTFUNC2) (|PolyGroebner| . PGROEB) (|Polynomial| . POLY) (|PolynomialAN2Expression| . PAN2EXPR) (|PolynomialComposition| . PCOMP) (|PolynomialDecomposition| . PDECOMP) (|PolynomialFunctions2| . POLY2) (|PolynomialIdeals| . IDEAL) (|PolynomialPackageForCurve| . PLPKCRV) (|PolynomialToUnivariatePolynomial| . POLY2UP) (|PositiveInteger| . PI) (|PowerSeriesLimitPackage| . LIMITPS) (|PrimeField| . PF) (|PrimitiveArrayFunctions2| . PRIMARR2) (|PrintPackage| . PRINT) (|ProjectiveAlgebraicSetPackage| . PRJALGPK) (|ProjectivePlane| . PROJPL) (|ProjectivePlaneOverPseudoAlgebraicClosureOfFiniteField| . PROJPLPS) (|ProjectiveSpace| . PROJSP) (|PseudoAlgebraicClosureOfAlgExtOfRationalNumber| . PACEXT) (|QuadraticForm| . QFORM) (|QuasiComponentPackage| . QCMPACK) (|Quaternion| . QUAT) (|QuaternionCategoryFunctions2| . QUATCT2) (|QueryEquation| . QEQUAT) (|Queue| . QUEUE) (|QuotientFieldCategoryFunctions2| . QFCAT2) (|RadicalEigenPackage| . REP) (|RadicalSolvePackage| . SOLVERAD) (|RadixExpansion| . RADIX) (|RadixUtilities| . RADUTIL) (|RandomNumberSource| . RANDSRC) (|RationalFunction| . RF) (|RationalFunctionDefiniteIntegration| . DEFINTRF) (|RationalFunctionFactor| . RFFACT) (|RationalFunctionFactorizer| . RFFACTOR) (|RationalFunctionIntegration| . INTRF) (|RationalFunctionLimitPackage| . LIMITRF) (|RationalFunctionSign| . SIGNRF) (|RationalFunctionSum| . SUMRF) (|RationalRetractions| . RATRET) (|RealClosure| . RECLOS) (|RealPolynomialUtilitiesPackage| . POLUTIL) (|RealZeroPackage| . REAL0) (|RealZeroPackageQ| . REAL0Q) (|RecurrenceOperator| . RECOP) (|RectangularMatrixCategoryFunctions2| . RMCAT2) (|RegularSetDecompositionPackage| . RSDCMPK) (|RegularTriangularSet| . REGSET) (|RegularTriangularSetGcdPackage| . RSETGCD) (|RepresentationPackage1| . REP1) (|RepresentationPackage2| . REP2) (|ResolveLatticeCompletion| . RESLATC) (|RewriteRule| . RULE) (|RightOpenIntervalRootCharacterization| . ROIRC) (|RomanNumeral| . ROMAN) (|RootsFindingPackage| . RFP) (|Ruleset| . RULESET) (|ScriptFormulaFormat| . FORMULA) (|ScriptFormulaFormat1| . FORMULA1) (|Segment| . SEG) (|SegmentBinding| . SEGBIND) (|SegmentBindingFunctions2| . SEGBIND2) (|SegmentFunctions2| . SEG2) (|Set| . SET) (|SimpleAlgebraicExtensionAlgFactor| . SAEFACT) (|SimplifyAlgebraicNumberConvertPackage| . SIMPAN) (|SingleInteger| . SINT) (|SmithNormalForm| . SMITH) (|SparseUnivariatePolynomialExpressions| . SUPEXPR) (|SparseUnivariatePolynomialFunctions2| . SUP2) (|SpecialOutputPackage| . SPECOUT) (|SquareFreeRegularSetDecompositionPackage| . SRDCMPK) (|SquareFreeRegularTriangularSet| . SREGSET) (|SquareFreeRegularTriangularSetGcdPackage| . SFRGCD) (|SquareFreeQuasiComponentPackage| . SFQCMPK) (|Stack| . STACK) (|Stream| . STREAM) (|StreamFunctions1| . STREAM1) (|StreamFunctions2| . STREAM2) (|StreamFunctions3| . STREAM3) (|StreamTensor| . STNSR) (|String| . STRING) (|SturmHabichtPackage| . SHP) (|Symbol| . SYMBOL) (|SymmetricGroupCombinatoricFunctions| . SGCF) (|SystemSolvePackage| . SYSSOLP) (|SAERationalFunctionAlgFactor| . SAERFFC) (|Tableau| . TABLEAU) (|TaylorSeries| . TS) (|TaylorSolve| . UTSSOL) (|TexFormat| . TEX) (|TexFormat1| . TEX1) (|TextFile| . TEXTFILE) (|ThreeDimensionalViewport| . VIEW3D) (|ThreeSpace| . SPACE3) (|Timer| . TIMER) (|TopLevelDrawFunctions| . DRAW) (|TopLevelDrawFunctionsForAlgebraicCurves| . DRAWCURV) (|TopLevelDrawFunctionsForCompiledFunctions| . DRAWCFUN) (|TopLevelDrawFunctionsForPoints| . DRAWPT) (|TopLevelThreeSpace| . TOPSP) (|TranscendentalManipulations| . TRMANIP) (|TransSolvePackage| . SOLVETRA) (|Tree| . TREE) (|TrigonometricManipulations| . TRIGMNIP) (|UnivariateLaurentSeriesFunctions2| . ULS2) (|UnivariateFormalPowerSeries| . UFPS) (|UnivariateFormalPowerSeriesFunctions| . UFPS1) (|UnivariatePolynomial| . UP) (|UnivariatePolynomialCategoryFunctions2| . UPOLYC2) (|UnivariatePolynomialCommonDenominator| . UPCDEN) (|UnivariatePolynomialFunctions2| . UP2) (|UnivariatePolynomialMultiplicationPackage| . UPMP) (|UnivariateTaylorSeriesCZero| . UTSZ) (|UnivariatePuiseuxSeriesFunctions2| . UPXS2) (|UnivariateTaylorSeriesFunctions2| . UTS2) (|UniversalSegment| . UNISEG) (|UniversalSegmentFunctions2| . UNISEG2) (|UserDefinedVariableOrdering| . UDVO) (|U32Vector| . U32VEC) (|Vector| . VECTOR) (|VectorFunctions2| . VECTOR2) (|ViewDefaultsPackage| . VIEWDEF) (|Void| . VOID) (|WuWenTsunTriangularSet| . WUTSET)) (|naglink| (|Asp1| . ASP1) (|Asp4| . ASP4) (|Asp6| . ASP6) (|Asp7| . ASP7) (|Asp8| . ASP8) (|Asp9| . ASP9) (|Asp10| . ASP10) (|Asp12| . ASP12) (|Asp19| . ASP19) (|Asp20| . ASP20) (|Asp24| . ASP24) (|Asp27| . ASP27) (|Asp28| . ASP28) (|Asp29| . ASP29) (|Asp30| . ASP30) (|Asp31| . ASP31) (|Asp33| . ASP33) (|Asp34| . ASP34) (|Asp35| . ASP35) (|Asp41| . ASP41) (|Asp42| . ASP42) (|Asp49| . ASP49) (|Asp50| . ASP50) (|Asp55| . ASP55) (|Asp73| . ASP73) (|Asp74| . ASP74) (|Asp77| . ASP77) (|Asp78| . ASP78) (|Asp80| . ASP80) (|FortranCode| . FC) (|FortranCodePackage1| . FCPAK1) (|FortranExpression| . FEXPR) (|FortranMachineTypeCategory| . FMTC) (|FortranMatrixCategory| . FMC) (|FortranMatrixFunctionCategory| . FMFUN) (|FortranOutputStackPackage| . FOP) (|FortranPackage| . FORT) (|FortranProgramCategory| . FORTCAT) (|FortranProgram| . FORTRAN) (|FortranFunctionCategory| . FORTFN) (|FortranScalarType| . FST) (|FortranType| . FT) (|FortranTemplate| . FTEM) (|FortranVectorFunctionCategory| . FVFUN) (|FortranVectorCategory| . FVC) (|MachineComplex| . MCMPLX) (|MachineFloat| . MFLOAT) (|MachineInteger| . MINT) (|MultiVariableCalculusFunctions| . MCALCFN) (|NagDiscreteFourierTransformInterfacePackage| . NAGDIS) (|NagEigenInterfacePackage| . NAGEIG) (|NAGLinkSupportPackage| . NAGSP) (|NagOptimisationInterfacePackage| . NAGOPT) (|NagQuadratureInterfacePackage| . NAGQUA) (|NagResultChecks| . NAGRES) (|NagSpecialFunctionsInterfacePackage| . NAGSPE) (|NagPolynomialRootsPackage| . NAGC02) (|NagRootFindingPackage| . NAGC05) (|NagSeriesSummationPackage| . NAGC06) (|NagIntegrationPackage| . NAGD01) (|NagOrdinaryDifferentialEquationsPackage| . NAGD02) (|NagPartialDifferentialEquationsPackage| . NAGD03) (|NagInterpolationPackage| . NAGE01) (|NagFittingPackage| . NAGE02) (|NagOptimisationPackage| . NAGE04) (|NagMatrixOperationsPackage| . NAGF01) (|NagEigenPackage| . NAGF02) (|NagLinearEquationSolvingPackage| . NAGF04) (|NagLapack| . NAGF07) (|NagSpecialFunctionsPackage| . NAGS) (|PackedHermitianSequence| . PACKED) (|Result| . RESULT) (|SimpleFortranProgram| . SFORT) (|Switch| . SWITCH) (|SymbolTable| . SYMTAB) (|TemplateUtilities| . TEMUTL) (|TheSymbolTable| . SYMS) (|ThreeDimensionalMatrix| . M3D)) (|anna| (|AnnaNumericalIntegrationPackage| . INTPACK) (|AnnaNumericalOptimizationPackage| . OPTPACK) (|AnnaOrdinaryDifferentialEquationPackage| . ODEPACK) (|AnnaPartialDifferentialEquationPackage| . PDEPACK) (|AttributeButtons| . ATTRBUT) (|BasicFunctions| . BFUNCT) (|d01ajfAnnaType| . D01AJFA) (|d01akfAnnaType| . D01AKFA) (|d01alfAnnaType| . D01ALFA) (|d01amfAnnaType| . D01AMFA) (|d01anfAnnaType| . D01ANFA) (|d01apfAnnaType| . D01APFA) (|d01aqfAnnaType| . D01AQFA) (|d01asfAnnaType| . D01ASFA) (|d01fcfAnnaType| . D01FCFA) (|d01gbfAnnaType| . D01GBFA) (|d01AgentsPackage| . D01AGNT) (|d01TransformFunctionType| . D01TRNS) (|d01WeightsPackage| . D01WGTS) (|d02AgentsPackage| . D02AGNT) (|d02bbfAnnaType| . D02BBFA) (|d02bhfAnnaType| . D02BHFA) (|d02cjfAnnaType| . D02CJFA) (|d02ejfAnnaType| . D02EJFA) (|d03AgentsPackage| . D03AGNT) (|d03eefAnnaType| . D03EEFA) (|d03fafAnnaType| . D03FAFA) (|e04AgentsPackage| . E04AGNT) (|e04dgfAnnaType| . E04DGFA) (|e04fdfAnnaType| . E04FDFA) (|e04gcfAnnaType| . E04GCFA) (|e04jafAnnaType| . E04JAFA) (|e04mbfAnnaType| . E04MBFA) (|e04nafAnnaType| . E04NAFA) (|e04ucfAnnaType| . E04UCFA) (|ExpertSystemContinuityPackage| . ESCONT) (|ExpertSystemContinuityPackage1| . ESCONT1) (|ExpertSystemToolsPackage| . ESTOOLS) (|ExpertSystemToolsPackage1| . ESTOOLS1) (|ExpertSystemToolsPackage2| . ESTOOLS2) (|NumericalIntegrationCategory| . NUMINT) (|NumericalIntegrationProblem| . NIPROB) (|NumericalODEProblem| . ODEPROB) (|NumericalOptimizationCategory| . OPTCAT) (|NumericalOptimizationProblem| . OPTPROB) (|NumericalPDEProblem| . PDEPROB) (|ODEIntensityFunctionsTable| . ODEIFTBL) (|IntegrationFunctionsTable| . INTFTBL) (|OrdinaryDifferentialEquationsSolverCategory| . ODECAT) (|PartialDifferentialEquationsSolverCategory| . PDECAT) (|RoutinesTable| . ROUTINE)) (|categories| (|AbelianGroup| . ABELGRP) (|AbelianMonoid| . ABELMON) (|AbelianMonoidRing| . AMR) (|AbelianSemiGroup| . ABELSG) (|AffineSpaceCategory| . AFSPCAT) (|Aggregate| . AGG) (|Algebra| . ALGEBRA) (|AlgebraicallyClosedField| . ACF) (|AlgebraicallyClosedFunctionSpace| . ACFS) (|ArcHyperbolicFunctionCategory| . AHYP) (|ArcTrigonometricFunctionCategory| . ATRIG) (|AssociationListAggregate| . ALAGG) (|AttributeRegistry| . ATTREG) (|BagAggregate| . BGAGG) (|BasicType| . BASTYPE) (|BiModule| . BMODULE) (|BinaryRecursiveAggregate| . BRAGG) (|BinaryTreeCategory| . BTCAT) (|BitAggregate| . BTAGG) (|BlowUpMethodCategory| . BLMETCT) (|CachableSet| . CACHSET) (|CancellationAbelianMonoid| . CABMON) (|CharacteristicNonZero| . CHARNZ) (|CharacteristicZero| . CHARZ) (|CoercibleTo| . KOERCE) (|Collection| . CLAGG) (|CombinatorialFunctionCategory| . CFCAT) (|CombinatorialOpsCategory| . COMBOPC) (|CommutativeRing| . COMRING) (|ComplexCategory| . COMPCAT) (|ConvertibleTo| . KONVERT) (|DequeueAggregate| . DQAGG) (|DesingTreeCategory| . DSTRCAT) (|Dictionary| . DIAGG) (|DictionaryOperations| . DIOPS) (|DifferentialExtension| . DIFEXT) (|DifferentialPolynomialCategory| . DPOLCAT) (|DifferentialRing| . DIFRING) (|DifferentialVariableCategory| . DVARCAT) (|DirectProductCategory| . DIRPCAT) (|DivisionRing| . DIVRING) (|DivisorCategory| . DIVCAT) (|DoublyLinkedAggregate| . DLAGG) (|ElementaryFunctionCategory| . ELEMFUN) (|Eltable| . ELTAB) (|EltableAggregate| . ELTAGG) (|EntireRing| . ENTIRER) (|EuclideanDomain| . EUCDOM) (|Evalable| . EVALAB) (|ExpressionSpace| . ES) (|ExtensibleLinearAggregate| . ELAGG) (|ExtensionField| . XF) (|Field| . FIELD) (|FieldOfPrimeCharacteristic| . FPC) (|Finite| . FINITE) (|FileCategory| . FILECAT) (|FileNameCategory| . FNCAT) (|FiniteAbelianMonoidRing| . FAMR) (|FiniteAlgebraicExtensionField| . FAXF) (|FiniteDivisorCategory| . FDIVCAT) (|FiniteFieldCategory| . FFIELDC) (|FiniteLinearAggregate| . FLAGG) (|FiniteRankNonAssociativeAlgebra| . FINAALG) (|FiniteRankAlgebra| . FINRALG) (|FiniteSetAggregate| . FSAGG) (|FloatingPointSystem| . FPS) (|FramedAlgebra| . FRAMALG) (|FramedNonAssociativeAlgebra| . FRNAALG) (|FramedNonAssociativeAlgebraFunctions2| . FRNAAF2) (|FreeAbelianMonoidCategory| . FAMONC) (|FreeLieAlgebra| . FLALG) (|FreeModuleCat| . FMCAT) (|FullyEvalableOver| . FEVALAB) (|FullyLinearlyExplicitRingOver| . FLINEXP) (|FullyPatternMatchable| . FPATMAB) (|FullyRetractableTo| . FRETRCT) (|FunctionFieldCategory| . FFCAT) (|FunctionSpace| . FS) (|GcdDomain| . GCDDOM) (|GradedAlgebra| . GRALG) (|GradedModule| . GRMOD) (|Group| . GROUP) (|HomogeneousAggregate| . HOAGG) (|HyperbolicFunctionCategory| . HYPCAT) (|IndexedAggregate| . IXAGG) (|IndexedDirectProductCategory| . IDPC) (|InfinitlyClosePointCategory| . INFCLCT) (|InnerEvalable| . IEVALAB) (|IntegerNumberSystem| . INS) (|IntegralDomain| . INTDOM) (|IntervalCategory| . INTCAT) (|KeyedDictionary| . KDAGG) (|LazyStreamAggregate| . LZSTAGG) (|LeftAlgebra| . LALG) (|LeftModule| . LMODULE) (|LieAlgebra| . LIECAT) (|LinearAggregate| . LNAGG) (|LinearlyExplicitRingOver| . LINEXP) (|LinearOrdinaryDifferentialOperatorCategory| . LODOCAT) (|LiouvillianFunctionCategory| . LFCAT) (|ListAggregate| . LSAGG) (|LocalPowerSeriesCategory| . LOCPOWC) (|Logic| . LOGIC) (|MatrixCategory| . MATCAT) (|Module| . MODULE) (|Monad| . MONAD) (|MonadWithUnit| . MONADWU) (|Monoid| . MONOID) (|MonogenicAlgebra| . MONOGEN) (|MonogenicLinearOperator| . MLO) (|MultiDictionary| . MDAGG) (|MultisetAggregate| . MSETAGG) (|MultivariateTaylorSeriesCategory| . MTSCAT) (|NonAssociativeAlgebra| . NAALG) (|NonAssociativeRing| . NASRING) (|NonAssociativeRng| . NARNG) (|NormalizedTriangularSetCategory| . NTSCAT) (|Object| . OBJECT) (|OctonionCategory| . OC) (|OneDimensionalArrayAggregate| . A1AGG) (|OpenMath| . OM) (|OrderedAbelianGroup| . OAGROUP) (|OrderedAbelianMonoid| . OAMON) (|OrderedAbelianMonoidSup| . OAMONS) (|OrderedAbelianSemiGroup| . OASGP) (|OrderedCancellationAbelianMonoid| . OCAMON) (|OrderedFinite| . ORDFIN) (|OrderedIntegralDomain| . OINTDOM) (|OrderedMonoid| . ORDMON) (|OrderedMultisetAggregate| . OMSAGG) (|OrderedRing| . ORDRING) (|OrderedSet| . ORDSET) (|PAdicIntegerCategory| . PADICCT) (|PartialDifferentialRing| . PDRING) (|PartialTranscendentalFunctions| . PTRANFN) (|Patternable| . PATAB) (|PatternMatchable| . PATMAB) (|PermutationCategory| . PERMCAT) (|PlacesCategory| . PLACESC) (|PlottablePlaneCurveCategory| . PPCURVE) (|PlottableSpaceCurveCategory| . PSCURVE) (|PointCategory| . PTCAT) (|PolynomialCategory| . POLYCAT) (|PolynomialFactorizationExplicit| . PFECAT) (|PolynomialSetCategory| . PSETCAT) (|PowerSeriesCategory| . PSCAT) (|PrimitiveFunctionCategory| . PRIMCAT) (|PrincipalIdealDomain| . PID) (|PriorityQueueAggregate| . PRQAGG) (|ProjectiveSpaceCategory| . PRSPCAT) (|PseudoAlgebraicClosureofAlgExtOfRationalNumberCategory| . PACEXTC) (|PseudoAlgebraicClosureOfFiniteField| . PACOFF) (|PseudoAlgebraicClosureOfFiniteFieldCategory| . PACFFC) (|PseudoAlgebraicClosureOfPerfectFieldCategory| . PACPERC) (|PseudoAlgebraicClosureOfRationalNumber| . PACRAT) (|PseudoAlgebraicClosureOfRationalNumberCategory| . PACRATC) (|QuaternionCategory| . QUATCAT) (|QueueAggregate| . QUAGG) (|QuotientFieldCategory| . QFCAT) (|RadicalCategory| . RADCAT) (|RealClosedField| . RCFIELD) (|RealConstant| . REAL) (|RealNumberSystem| . RNS) (|RealRootCharacterizationCategory| . RRCC) (|RectangularMatrixCategory| . RMATCAT) (|RecursiveAggregate| . RCAGG) (|RecursivePolynomialCategory| . RPOLCAT) (|RegularChain| . RGCHAIN) (|RegularTriangularSetCategory| . RSETCAT) (|RetractableTo| . RETRACT) (|RightModule| . RMODULE) (|Ring| . RING) (|Rng| . RNG) (|SegmentCategory| . SEGCAT) (|SegmentExpansionCategory| . SEGXCAT) (|SemiGroup| . SGROUP) (|SetAggregate| . SETAGG) (|SetCategory| . SETCAT) (|SetCategoryWithDegree| . SETCATD) (|SExpressionCategory| . SEXCAT) (|SpecialFunctionCategory| . SPFCAT) (|SquareFreeNormalizedTriangularSetCategory| . SNTSCAT) (|SquareFreeRegularTriangularSetCategory| . SFRTCAT) (|SquareMatrixCategory| . SMATCAT) (|StackAggregate| . SKAGG) (|StepThrough| . STEP) (|StreamAggregate| . STAGG) (|StringAggregate| . SRAGG) (|StringCategory| . STRICAT) (|StructuralConstantsPackage| . SCPKG) (|TableAggregate| . TBAGG) (|ThreeSpaceCategory| . SPACEC) (|TranscendentalFunctionCategory| . TRANFUN) (|TriangularSetCategory| . TSETCAT) (|TrigonometricFunctionCategory| . TRIGCAT) (|TwoDimensionalArrayCategory| . ARR2CAT) (|Type| . TYPE) (|UnaryRecursiveAggregate| . URAGG) (|UniqueFactorizationDomain| . UFD) (|UnivariateLaurentSeriesCategory| . ULSCAT) (|UnivariateLaurentSeriesConstructorCategory| . ULSCCAT) (|UnivariatePolynomialCategory| . UPOLYC) (|UnivariatePowerSeriesCategory| . UPSCAT) (|UnivariatePuiseuxSeriesCategory| . UPXSCAT) (|UnivariatePuiseuxSeriesConstructorCategory| . UPXSCCA) (|UnivariateSkewPolynomialCategory| . OREPCAT) (|UnivariateTaylorSeriesCategory| . UTSCAT) (|VectorCategory| . VECTCAT) (|VectorSpace| . VSPACE) (|XAlgebra| . XALG) (|XFreeAlgebra| . XFALG) (|XPolynomialsCat| . XPOLYC) (|ZeroDimensionalSolvePackage| . ZDSOLVE)) (|Hidden| (|AlgebraicFunction| . AF) (|AlgebraicFunctionField| . ALGFF) (|AlgebraicHermiteIntegration| . INTHERAL) (|AlgebraicIntegrate| . INTALG) (|AlgebraicIntegration| . INTAF) (|AnonymousFunction| . ANON) (|AntiSymm| . ANTISYM) (|ApplyRules| . APPRULE) (|ApplyUnivariateSkewPolynomial| . APPLYORE) (|ArrayStack| . ASTACK) (|AssociatedEquations| . ASSOCEQ) (|AssociationList| . ALIST) (|Automorphism| . AUTOMOR) (|BalancedFactorisation| . BALFACT) (|BalancedPAdicInteger| . BPADIC) (|BalancedPAdicRational| . BPADICRT) (|BezoutMatrix| . BEZOUT) (|BoundIntegerRoots| . BOUNDZRO) (|BrillhartTests| . BRILL) (|ChangeOfVariable| . CHVAR) (|CharacteristicPolynomialInMonogenicalAlgebra| . CPIMA) (|ChineseRemainderToolsForIntegralBases| . IBACHIN) (|CoerceVectorMatrixPackage| . CVMP) (|CombinatorialFunction| . COMBF) (|CommonOperators| . COMMONOP) (|CommuteUnivariatePolynomialCategory| . COMMUPC) (|ComplexIntegerSolveLinearPolynomialEquation| . CINTSLPE) (|ComplexPattern| . COMPLPAT) (|ComplexPatternMatch| . CPMATCH) (|ComplexRootFindingPackage| . CRFP) (|ConstantLODE| . ODECONST) (|CyclicStreamTools| . CSTTOOLS) (|CyclotomicPolynomialPackage| . CYCLOTOM) (|DefiniteIntegrationTools| . DFINTTLS) (|DegreeReductionPackage| . DEGRED) (|DeRhamComplex| . DERHAM) (|DifferentialSparseMultivariatePolynomial| . DSMP) (|DirectProduct| . DIRPROD) (|DirectProductMatrixModule| . DPMM) (|DirectProductModule| . DPMO) (|DiscreteLogarithmPackage| . DLP) (|DistributedMultivariatePolynomial| . DMP) (|DoubleResultantPackage| . DBLRESP) (|DrawOptionFunctions0| . DROPT0) (|DrawOptionFunctions1| . DROPT1) (|ElementaryFunction| . EF) (|ElementaryFunctionsUnivariateLaurentSeries| . EFULS) (|ElementaryFunctionsUnivariatePuiseuxSeries| . EFUPXS) (|ElementaryIntegration| . INTEF) (|ElementaryRischDE| . RDEEF) (|ElementaryRischDESystem| . RDEEFS) (|EllipticFunctionsUnivariateTaylorSeries| . ELFUTS) (|EqTable| . EQTBL) (|EuclideanModularRing| . EMR) (|EvaluateCycleIndicators| . EVALCYC) (|ExponentialExpansion| . EXPEXPAN) (|ExponentialOfUnivariatePuiseuxSeries| . EXPUPXS) (|ExpressionSpaceFunctions1| . ES1) (|ExpressionTubePlot| . EXPRTUBE) (|ExtAlgBasis| . EAB) (|FactoredFunctions| . FACTFUNC) (|FactoredFunctionUtilities| . FRUTIL) (|FactoringUtilities| . FACUTIL) (|FGLMIfCanPackage| . FGLMICPK) (|FindOrderFinite| . FORDER) (|FiniteDivisor| . FDIV) (|FiniteFieldCyclicGroupExtension| . FFCGX) (|FiniteFieldCyclicGroupExtensionByPolynomial| . FFCGP) (|FiniteFieldExtension| . FFX) (|FiniteFieldExtensionByPolynomial| . FFP) (|FiniteFieldFunctions| . FFF) (|FiniteFieldNormalBasisExtension| . FFNBX) (|FiniteFieldNormalBasisExtensionByPolynomial| . FFNBP) (|FiniteFieldPolynomialPackage| . FFPOLY) (|FiniteFieldSolveLinearPolynomialEquation| . FFSLPE) (|FormalFraction| . FORMAL) (|FourierComponent| . FCOMP) (|FractionalIdeal| . FRIDEAL) (|FramedModule| . FRMOD) (|FreeAbelianGroup| . FAGROUP) (|FreeAbelianMonoid| . FAMONOID) (|FreeGroup| . FGROUP) (|FreeModule| . FM) (|FreeModule1| . FM1) (|FreeMonoid| . FMONOID) (|FunctionalSpecialFunction| . FSPECF) (|FunctionCalled| . FUNCTION) (|FunctionFieldIntegralBasis| . FFINTBAS) (|FunctionSpaceReduce| . FSRED) (|FunctionSpaceToUnivariatePowerSeries| . FS2UPS) (|FunctionSpaceToExponentialExpansion| . FS2EXPXP) (|FunctionSpaceUnivariatePolynomialFactor| . FSUPFACT) (|GaloisGroupFactorizationUtilities| . GALFACTU) (|GaloisGroupFactorizer| . GALFACT) (|GaloisGroupPolynomialUtilities| . GALPOLYU) (|GaloisGroupUtilities| . GALUTIL) (|GeneralHenselPackage| . GHENSEL) (|GeneralDistributedMultivariatePolynomial| . GDMP) (|GeneralPolynomialGcdPackage| . GENPGCD) (|GeneralSparseTable| . GSTBL) (|GenericNonAssociativeAlgebra| . GCNAALG) (|GenExEuclid| . GENEEZ) (|GeneralizedMultivariateFactorize| . GENMFACT) (|GeneralModulePolynomial| . GMODPOL) (|GeneralPolynomialSet| . GPOLSET) (|GeneralTriangularSet| . GTSET) (|GenUFactorize| . GENUFACT) (|GenusZeroIntegration| . INTG0) (|GosperSummationMethod| . GOSPER) (|GraphImage| . GRIMAGE) (|GrayCode| . GRAY) (|GroebnerInternalPackage| . GBINTERN) (|GroebnerSolve| . GROEBSOL) (|GuessOptionFunctions0| . GOPT0) (|HashTable| . HASHTBL) (|Heap| . HEAP) (|HeuGcd| . HEUGCD) (|HomogeneousDistributedMultivariatePolynomial| . HDMP) (|HyperellipticFiniteDivisor| . HELLFDIV) (|IncrementingMaps| . INCRMAPS) (|IndexedBits| . IBITS) (|IndexedDirectProductAbelianGroup| . IDPAG) (|IndexedDirectProductAbelianMonoid| . IDPAM) (|IndexedDirectProductObject| . IDPO) (|IndexedDirectProductOrderedAbelianMonoid| . IDPOAM) (|IndexedDirectProductOrderedAbelianMonoidSup| . IDPOAMS) (|IndexedExponents| . INDE) (|IndexedFlexibleArray| . IFARRAY) (|IndexedList| . ILIST) (|IndexedMatrix| . IMATRIX) (|IndexedOneDimensionalArray| . IARRAY1) (|IndexedString| . ISTRING) (|IndexedTwoDimensionalArray| . IARRAY2) (|IndexedVector| . IVECTOR) (|InnerAlgFactor| . IALGFACT) (|InnerAlgebraicNumber| . IAN) (|InnerCommonDenominator| . ICDEN) (|InnerFiniteField| . IFF) (|InnerFreeAbelianMonoid| . IFAMON) (|InnerIndexedTwoDimensionalArray| . IIARRAY2) (|InnerMatrixLinearAlgebraFunctions| . IMATLIN) (|InnerMatrixQuotientFieldFunctions| . IMATQF) (|InnerModularGcd| . INMODGCD) (|InnerMultFact| . INNMFACT) (|InnerNormalBasisFieldFunctions| . INBFF) (|InnerNumericEigenPackage| . INEP) (|InnerNumericFloatSolvePackage| . INFSP) (|InnerPAdicInteger| . IPADIC) (|InnerPolySign| . INPSIGN) (|InnerPolySum| . ISUMP) (|InnerPrimeField| . IPF) (|InnerSparseUnivariatePowerSeries| . ISUPS) (|InnerTable| . INTABL) (|InnerTaylorSeries| . ITAYLOR) (|InnerTrigonometricManipulations| . ITRIGMNP) (|InputForm| . INFORM) (|InputFormFunctions1| . INFORM1) (|IntegerBits| . INTBIT) (|IntegerFactorizationPackage| . INTFACT) (|IntegerMod| . ZMOD) (|IntegerSolveLinearPolynomialEquation| . INTSLPE) (|IntegralBasisPolynomialTools| . IBPTOOLS) (|IntegralBasisTools| . IBATOOL) (|IntegrationResult| . IR) (|IntegrationTools| . INTTOOLS) (|InternalPrintPackage| . IPRNTPK) (|InternalRationalUnivariateRepresentationPackage| . IRURPK) (|IrredPolyOverFiniteField| . IRREDFFX) (|Kernel| . KERNEL) (|Kovacic| . KOVACIC) (|LaurentPolynomial| . LAUPOL) (|LeadingCoefDetermination| . LEADCDET) (|LexTriangularPackage| . LEXTRIPK) (|LieExponentials| . LEXP) (|LiePolynomial| . LPOLY) (|LinearDependence| . LINDEP) (|LinearOrdinaryDifferentialOperatorFactorizer| . LODOF) (|LinearOrdinaryDifferentialOperator1| . LODO1) (|LinearOrdinaryDifferentialOperator2| . LODO2) (|LinearOrdinaryDifferentialOperatorsOps| . LODOOPS) (|LinearPolynomialEquationByFractions| . LPEFRAC) (|LinGroebnerPackage| . LGROBP) (|LiouvillianFunction| . LF) (|ListMonoidOps| . LMOPS) (|ListMultiDictionary| . LMDICT) (|LocalAlgebra| . LA) (|Localize| . LO) (|LyndonWord| . LWORD) (|Magma| . MAGMA) (|MakeBinaryCompiledFunction| . MKBCFUNC) (|MakeCachableSet| . MKCHSET) (|MakeUnaryCompiledFunction| . MKUCFUNC) (|MappingPackageInternalHacks1| . MAPHACK1) (|MappingPackageInternalHacks2| . MAPHACK2) (|MappingPackageInternalHacks3| . MAPHACK3) (|MeshCreationRoutinesForThreeDimensions| . MESH) (|ModMonic| . MODMON) (|ModularField| . MODFIELD) (|ModularHermitianRowReduction| . MHROWRED) (|ModularRing| . MODRING) (|ModuleMonomial| . MODMONOM) (|MoebiusTransform| . MOEBIUS) (|MonoidRing| . MRING) (|MonomialExtensionTools| . MONOTOOL) (|MPolyCatPolyFactorizer| . MPCPF) (|MPolyCatFunctions3| . MPC3) (|MRationalFactorize| . MRATFAC) (|MultipleMap| . MMAP) (|MultivariateLifting| . MLIFT) (|MultivariateSquareFree| . MULTSQFR) (|HomogeneousDirectProduct| . HDP) (|NewSparseMultivariatePolynomial| . NSMP) (|NewSparseUnivariatePolynomial| . NSUP) (|NewSparseUnivariatePolynomialFunctions2| . NSUP2) (|NonCommutativeOperatorDivision| . NCODIV) (|NewtonInterpolation| . NEWTON) (|None| . NONE) (|NonLinearFirstOrderODESolver| . NODE1) (|NonLinearSolvePackage| . NLINSOL) (|NormRetractPackage| . NORMRETR) (|NPCoef| . NPCOEF) (|NumberFormats| . NUMFMT) (|NumberFieldIntegralBasis| . NFINTBAS) (|NumericTubePlot| . NUMTUBE) (|ODEIntegration| . ODEINT) (|ODETools| . ODETOOLS) (|Operator| . OP) (|OppositeMonogenicLinearOperator| . OMLO) (|OrderedDirectProduct| . ODP) (|OrderedFreeMonoid| . OFMONOID) (|OrderedVariableList| . OVAR) (|OrderingFunctions| . ORDFUNS) (|OrderlyDifferentialPolynomial| . ODPOL) (|OrderlyDifferentialVariable| . ODVAR) (|OrdinaryWeightedPolynomials| . OWP) (|OutputForm| . OUTFORM) (|PadeApproximants| . PADE) (|PAdicInteger| . PADIC) (|PAdicRational| . PADICRAT) (|PAdicRationalConstructor| . PADICRC) (|PAdicWildFunctionFieldIntegralBasis| . PWFFINTB) (|ParadoxicalCombinatorsForStreams| . YSTREAM) (|ParametricLinearEquations| . PLEQN) (|PartialFractionPackage| . PFRPAC) (|Partition| . PRTITION) (|Pattern| . PATTERN) (|PatternFunctions1| . PATTERN1) (|PatternMatchFunctionSpace| . PMFS) (|PatternMatchIntegerNumberSystem| . PMINS) (|PatternMatchIntegration| . INTPM) (|PatternMatchKernel| . PMKERNEL) (|PatternMatchListAggregate| . PMLSAGG) (|PatternMatchListResult| . PATLRES) (|PatternMatchPolynomialCategory| . PMPLCAT) (|PatternMatchPushDown| . PMDOWN) (|PatternMatchQuotientFieldCategory| . PMQFCAT) (|PatternMatchResult| . PATRES) (|PatternMatchSymbol| . PMSYM) (|PatternMatchTools| . PMTOOLS) (|PlaneAlgebraicCurvePlot| . ACPLOT) (|Plot| . PLOT) (|PlotFunctions1| . PLOT1) (|PlotTools| . PLOTTOOL) (|Plot3D| . PLOT3D) (|PoincareBirkhoffWittLyndonBasis| . PBWLB) (|Point| . POINT) (|PointsOfFiniteOrder| . PFO) (|PointsOfFiniteOrderRational| . PFOQ) (|PointsOfFiniteOrderTools| . PFOTOOLS) (|PointPackage| . PTPACK) (|PolToPol| . POLTOPOL) (|PolynomialCategoryLifting| . POLYLIFT) (|PolynomialCategoryQuotientFunctions| . POLYCATQ) (|PolynomialFactorizationByRecursion| . PFBR) (|PolynomialFactorizationByRecursionUnivariate| . PFBRU) (|PolynomialGcdPackage| . PGCD) (|PolynomialInterpolation| . PINTERP) (|PolynomialInterpolationAlgorithms| . PINTERPA) (|PolynomialNumberTheoryFunctions| . PNTHEORY) (|PolynomialRing| . PR) (|PolynomialRoots| . POLYROOT) (|PolynomialSetUtilitiesPackage| . PSETPK) (|PolynomialSolveByFormulas| . SOLVEFOR) (|PolynomialSquareFree| . PSQFR) (|PrecomputedAssociatedEquations| . PREASSOC) (|PrimitiveArray| . PRIMARR) (|PrimitiveElement| . PRIMELT) (|PrimitiveRatDE| . ODEPRIM) (|PrimitiveRatRicDE| . ODEPRRIC) (|Product| . PRODUCT) (|PseudoRemainderSequence| . PRS) (|PseudoLinearNormalForm| . PSEUDLIN) (|PureAlgebraicIntegration| . INTPAF) (|PureAlgebraicLODE| . ODEPAL) (|PushVariables| . PUSHVAR) (|QuasiAlgebraicSet| . QALGSET) (|QuasiAlgebraicSet2| . QALGSET2) (|RadicalFunctionField| . RADFF) (|RandomDistributions| . RDIST) (|RandomFloatDistributions| . RFDIST) (|RandomIntegerDistributions| . RIDIST) (|RationalFactorize| . RATFACT) (|RationalIntegration| . INTRAT) (|RationalInterpolation| . RINTERP) (|RationalLODE| . ODERAT) (|RationalRicDE| . ODERTRIC) (|RationalUnivariateRepresentationPackage| . RURPK) (|RealSolvePackage| . REALSOLV) (|RectangularMatrix| . RMATRIX) (|ReducedDivisor| . RDIV) (|ReduceLODE| . ODERED) (|ReductionOfOrder| . REDORDER) (|Reference| . REF) (|RepeatedDoubling| . REPDB) (|RepeatedSquaring| . REPSQ) (|ResidueRing| . RESRING) (|RetractSolvePackage| . RETSOL) (|RuleCalled| . RULECOLD) (|SetOfMIntegersInOneToN| . SETMN) (|SExpression| . SEX) (|SExpressionOf| . SEXOF) (|SequentialDifferentialPolynomial| . SDPOL) (|SequentialDifferentialVariable| . SDVAR) (|SimpleAlgebraicExtension| . SAE) (|SingletonAsOrderedSet| . SAOS) (|SortedCache| . SCACHE) (|SortPackage| . SORTPAK) (|SparseMultivariatePolynomial| . SMP) (|SparseMultivariateTaylorSeries| . SMTS) (|SparseTable| . STBL) (|SparseUnivariatePolynomial| . SUP) (|SparseUnivariateSkewPolynomial| . ORESUP) (|SparseUnivariateLaurentSeries| . SULS) (|SparseUnivariatePuiseuxSeries| . SUPXS) (|SparseUnivariateTaylorSeries| . SUTS) (|SplitHomogeneousDirectProduct| . SHDP) (|SplittingNode| . SPLNODE) (|SplittingTree| . SPLTREE) (|SquareMatrix| . SQMATRIX) (|Stack| . STACK) (|StorageEfficientMatrixOperations| . MATSTOR) (|StreamInfiniteProduct| . STINPROD) (|StreamTaylorSeriesOperations| . STTAYLOR) (|StreamTranscendentalFunctions| . STTF) (|StreamTranscendentalFunctionsNonCommutative| . STTFNC) (|StringTable| . STRTBL) (|SubResultantPackage| . SUBRESP) (|SubSpace| . SUBSPACE) (|SubSpaceComponentProperty| . COMPPROP) (|SuchThat| . SUCH) (|SupFractionFactorizer| . SUPFRACF) (|SymmetricFunctions| . SYMFUNC) (|SymmetricPolynomial| . SYMPOLY) (|SystemODESolver| . ODESYS) (|Table| . TABLE) (|TableauxBumpers| . TABLBUMP) (|TabulatedComputationPackage| . TBCMPPK) (|TangentExpansions| . TANEXP) (|ToolsForSign| . TOOLSIGN) (|TranscendentalHermiteIntegration| . INTHERTR) (|TranscendentalIntegration| . INTTR) (|TranscendentalRischDE| . RDETR) (|TranscendentalRischDESystem| . RDETRS) (|TransSolvePackageService| . SOLVESER) (|TriangularMatrixOperations| . TRIMAT) (|TubePlot| . TUBE) (|TubePlotTools| . TUBETOOL) (|Tuple| . TUPLE) (|TwoDimensionalArray| . ARRAY2) (|TwoDimensionalPlotClipping| . CLIP) (|TwoDimensionalViewport| . VIEW2D) (|TwoFactorize| . TWOFACT) (|UnivariateFactorize| . UNIFACT) (|UnivariateLaurentSeries| . ULS) (|UnivariateLaurentSeriesConstructor| . ULSCONS) (|UnivariatePolynomialDecompositionPackage| . UPDECOMP) (|UnivariatePolynomialDivisionPackage| . UPDIVP) (|UnivariatePolynomialSquareFree| . UPSQFREE) (|UnivariatePuiseuxSeries| . UPXS) (|UnivariatePuiseuxSeriesConstructor| . UPXSCONS) (|UnivariatePuiseuxSeriesWithExponentialSingularity| . UPXSSING) (|UnivariateSkewPolynomial| . OREUP) (|UnivariateSkewPolynomialCategoryOps| . OREPCTO) (|UnivariateTaylorSeries| . UTS) (|UnivariateTaylorSeriesODESolver| . UTSODE) (|UserDefinedPartialOrdering| . UDPO) (|UTSodetools| . UTSODETL) (|Variable| . VARIABLE) (|ViewportPackage| . VIEW) (|WeierstrassPreparation| . WEIER) (|WeightedPolynomials| . WP) (|WildFunctionFieldIntegralBasis| . WFFINTBS) (|XDistributedPolynomial| . XDPOLY) (|XExponentialPackage| . XEXPPKG) (|XPBWPolynomial| . XPBWPOLY) (|XPolynomial| . XPOLY) (|XPolynomialRing| . XPR) (|XRecursivePolynomial| . XRPOLY)) (|defaults| (|AbelianGroup&| . ABELGRP-) (|AbelianMonoid&| . ABELMON-) (|AbelianMonoidRing&| . AMR-) (|AbelianSemiGroup&| . ABELSG-) (|Aggregate&| . AGG-) (|Algebra&| . ALGEBRA-) (|AlgebraicallyClosedField&| . ACF-) (|AlgebraicallyClosedFunctionSpace&| . ACFS-) (|ArcTrigonometricFunctionCategory&| . ATRIG-) (|BagAggregate&| . BGAGG-) (|BasicType&| . BASTYPE-) (|BinaryRecursiveAggregate&| . BRAGG-) (|BinaryTreeCategory&| . BTCAT-) (|BitAggregate&| . BTAGG-) (|Collection&| . CLAGG-) (|ComplexCategory&| . COMPCAT-) (|Dictionary&| . DIAGG-) (|DictionaryOperations&| . DIOPS-) (|DifferentialExtension&| . DIFEXT-) (|DifferentialPolynomialCategory&| . DPOLCAT-) (|DifferentialRing&| . DIFRING-) (|DifferentialVariableCategory&| . DVARCAT-) (|DirectProductCategory&| . DIRPCAT-) (|DivisionRing&| . DIVRING-) (|ElementaryFunctionCategory&| . ELEMFUN-) (|EltableAggregate&| . ELTAGG-) (|EuclideanDomain&| . EUCDOM-) (|Evalable&| . EVALAB-) (|ExpressionSpace&| . ES-) (|ExtensibleLinearAggregate&| . ELAGG-) (|ExtensionField&| . XF-) (|Field&| . FIELD-) (|FieldOfPrimeCharacteristic&| . FPC-) (|FiniteAbelianMonoidRing&| . FAMR-) (|FiniteAlgebraicExtensionField&| . FAXF-) (|FiniteDivisorCategory&| . FDIVCAT-) (|FiniteFieldCategory&| . FFIELDC-) (|FiniteLinearAggregate&| . FLAGG-) (|FiniteSetAggregate&| . FSAGG-) (|FiniteRankAlgebra&| . FINRALG-) (|FiniteRankNonAssociativeAlgebra&| . FINAALG-) (|FloatingPointSystem&| . FPS-) (|FramedAlgebra&| . FRAMALG-) (|FramedNonAssociativeAlgebra&| . FRNAALG-) (|FullyEvalableOver&| . FEVALAB-) (|FullyLinearlyExplicitRingOver&| . FLINEXP-) (|FullyRetractableTo&| . FRETRCT-) (|FunctionFieldCategory&| . FFCAT-) (|FunctionSpace&| . FS-) (|GcdDomain&| . GCDDOM-) (|GradedAlgebra&| . GRALG-) (|GradedModule&| . GRMOD-) (|Group&| . GROUP-) (|HomogeneousAggregate&| . HOAGG-) (|HyperbolicFunctionCategory&| . HYPCAT-) (|IndexedAggregate&| . IXAGG-) (|InnerEvalable&| . IEVALAB-) (|IntegerNumberSystem&| . INS-) (|IntegralDomain&| . INTDOM-) (|KeyedDictionary&| . KDAGG-) (|LazyStreamAggregate&| . LZSTAGG-) (|LeftAlgebra&| . LALG-) (|LieAlgebra&| . LIECAT-) (|LinearAggregate&| . LNAGG-) (|ListAggregate&| . LSAGG-) (|Logic&| . LOGIC-) (|LinearOrdinaryDifferentialOperatorCategory&| . LODOCAT-) (|MatrixCategory&| . MATCAT-) (|Module&| . MODULE-) (|Monad&| . MONAD-) (|MonadWithUnit&| . MONADWU-) (|Monoid&| . MONOID-) (|MonogenicAlgebra&| . MONOGEN-) (|NonAssociativeAlgebra&| . NAALG-) (|NonAssociativeRing&| . NASRING-) (|NonAssociativeRng&| . NARNG-) (|OctonionCategory&| . OC-) (|OneDimensionalArrayAggregate&| . A1AGG-) (|OrderedRing&| . ORDRING-) (|OrderedSet&| . ORDSET-) (|PartialDifferentialRing&| . PDRING-) (|PolynomialCategory&| . POLYCAT-) (|PolynomialFactorizationExplicit&| . PFECAT-) (|PolynomialSetCategory&| . PSETCAT-) (|PowerSeriesCategory&| . PSCAT-) (|QuaternionCategory&| . QUATCAT-) (|QuotientFieldCategory&| . QFCAT-) (|RadicalCategory&| . RADCAT-) (|RealClosedField&| . RCFIELD-) (|RealNumberSystem&| . RNS-) (|RealRootCharacterizationCategory&| . RRCC-) (|RectangularMatrixCategory&| . RMATCAT-) (|RecursiveAggregate&| . RCAGG-) (|RecursivePolynomialCategory&| . RPOLCAT-) (|RegularTriangularSetCategory&| . RSETCAT-) (|RetractableTo&| . RETRACT-) (|Ring&| . RING-) (|SemiGroup&| . SGROUP-) (|SetAggregate&| . SETAGG-) (|SetCategory&| . SETCAT-) (|SquareMatrixCategory&| . SMATCAT-) (|StreamAggregate&| . STAGG-) (|StringAggregate&| . SRAGG-) (|TableAggregate&| . TBAGG-) (|TranscendentalFunctionCategory&| . TRANFUN-) (|TriangularSetCategory&| . TSETCAT-) (|TrigonometricFunctionCategory&| . TRIGCAT-) (|TwoDimensionalArrayCategory&| . ARR2CAT-) (|UnaryRecursiveAggregate&| . URAGG-) (|UniqueFactorizationDomain&| . UFD-) (|UnivariateLaurentSeriesConstructorCategory&| . ULSCCAT-) (|UnivariatePolynomialCategory&| . UPOLYC-) (|UnivariatePowerSeriesCategory&| . UPSCAT-) (|UnivariatePuiseuxSeriesConstructorCategory&| . UPXSCCA-) (|UnivariateSkewPolynomialCategory&| . OREPCAT-) (|UnivariateTaylorSeriesCategory&| . UTSCAT-) (|VectorCategory&| . VECTCAT-) (|VectorSpace&| . VSPACE-))) +--IValue = ((|basic| ... --E 155 --S 156 of 236 )lisp (identity |$HistList|) --R ---RValue = #0=(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL . #0#) +--IValue = #0=(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL ... --E 156 --S 157 of 236 @@ -1035,7 +1031,7 @@ This generates non-printing characters --S 167 of 236 )lisp (identity |$interpreterFrameRing|) --R ---IValue = ((|frame0| ((NIL)) 1 T #0=(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL . #0#) 20 0 NIL NIL #) (|initial| ((NIL)) 1 T #1=(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL . #1#) 20 0 NIL NIL #)) +--IValue = ((|frame0| ((NIL)) 1 T #0=(NIL NIL NIL NIL NIL ... --E 167 --S 168 of 236 @@ -1291,7 +1287,7 @@ This generates non-printing characters --S 208 of 236 )lisp (identity $relative-directory-list) --R ---RValue = ("/../../src/input/" "/doc/msgs/" "/../../src/algebra/" "/../../src/interp/" "/doc/spadhelp/") +--IValue = ("/../../src/input/" "/doc/msgs/" "/../../src/algebra/" ... --E 208 --S 209 of 236 diff --git a/src/input/wester.input.pamphlet b/src/input/wester.input.pamphlet index 63fef41..d68dd54 100644 --- a/src/input/wester.input.pamphlet +++ b/src/input/wester.input.pamphlet @@ -132,7 +132,8 @@ solp:=radicalSolve p --E 12 --S 13 of 216 -rhs select (z+-> real abs (complexNumeric rhs z - complexNumeric s1) < 1.E-19,solp).1 +rhs select (z+-> _ + real abs (complexNumeric rhs z - complexNumeric s1) < 1.E-19,solp).1 --R --R --R +-+ @@ -255,7 +256,8 @@ solp:=radicalSolve p --E 17 --S 18 of 216 -rhs select (z+-> real abs (complexNumeric rhs z - complexNumeric s1) < 1.E-19,solp).1 +rhs select (z+-> _ + real abs (complexNumeric rhs z - complexNumeric s1) < 1.E-19,solp).1 --R --R --R +-+ @@ -580,7 +582,8 @@ solp:=radicalSolve p --E 47 --S 48 of 216 -rhs select (z+-> real abs (complexNumeric rhs z - complexNumeric s1) < 1.E-19,solp).1 +rhs select (z+-> _ + real abs (complexNumeric rhs z - complexNumeric s1) < 1.E-19,solp).1 --R --R --R (48) 0 @@ -2560,7 +2563,7 @@ solve(%, y, x) --R (165) [particular= - ------,basis= [--]] --R 3 3 --R x x ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 171 -- Nonlinear ODE @@ -2622,7 +2625,7 @@ solve(%, y, x) --R --R a x --R (169) [particular= 0,basis= [%e ]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 177 -- ODE with boundary conditions. This problem has nontrivial solutions @@ -2632,7 +2635,7 @@ solve(D(y(x), x, 2) + k**2*y(x) = 0, y, x) --R --R --R (170) [particular= 0,basis= [cos(k x),sin(k x)]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 178 -- bc(%, x = 0, y = 0, x = 1, D(y(x), x) = 0) @@ -2661,7 +2664,7 @@ solve(system,[x,y],t) --R (173) --R t t t t --R [particular= [0,0],basis= [[cos(t)%e ,%e sin(t)],[%e sin(t),- cos(t)%e ]]] ---RType: Union(Record(particular: Vector Expression Integer,basis: List Vector Expression Integer),...) +--IType: Union(Record(particular: Vector Expression Integer,... --E 181 -- Check the answer @@ -2684,7 +2687,7 @@ solve(system.1, x, t) --R --R t t --R (175) [particular= 0,basis= [%e sin(t) + 2%e ]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 183 --S 184 of 216 @@ -2719,7 +2722,7 @@ solve(%,y,t) --R 5 --R - t --R basis= [%e ]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 186 --S 187 of 216 @@ -2905,7 +2908,9 @@ p(n, x) == 1/(2**n*factorial(n)) * D((x**2 - 1)**n, x, n) --E 203 --S 204 of 216 -for i in 0..4 repeat { output(""); output(concat(["p(", string(i), ", x) = "])); output(p(i, x))} +for i in 0..4 repeat { output(""); _ + output(concat(["p(", string(i), ", x) = "])); _ + output(p(i, x))} --R --R Compiling function p with type (NonNegativeInteger,Variable x) -> --R Polynomial Fraction Integer @@ -2963,7 +2968,9 @@ pp(n, x) == ((2*n - 1)*x*pp(n - 1, x) - (n - 1)*pp(n - 2, x))/n --E 208 --S 209 of 216 -for i in 0..4 repeat { output(""); output(concat(["pp(", string(i), ", x) = "])); output(pp(i, x))} +for i in 0..4 repeat { output(""); _ + output(concat(["pp(", string(i), ", x) = "])); _ + output(pp(i, x))} --R --R Compiling function pp with type (Integer,Variable x) -> Polynomial --R Fraction Integer diff --git a/src/input/zimmbron.input.pamphlet b/src/input/zimmbron.input.pamphlet index b528f62..62f5be3 100644 --- a/src/input/zimmbron.input.pamphlet +++ b/src/input/zimmbron.input.pamphlet @@ -105,7 +105,7 @@ solve(eq,y,x) --R (9) [particular= ------------------,basis= [-----------]] --R 4 3 2 2 --R 12x - 24x + 12x x - 2x + 1 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer, --E 9 \end{chunk} @@ -130,7 +130,7 @@ solve(eq,y,x) --R 4sin(x) + 2cos(x) 2x --R (11) [particular= -----------------,basis= [%e ]] --R 5 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 11 \end{chunk} @@ -710,7 +710,7 @@ solve(eq,y,x) --R (47) [particular= 0,basis= [------------------,------------------]] --R 2 2 2 2 2 2 --R a x + 2a b x + b a x + 2a b x + b ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 57 \end{chunk} @@ -735,7 +735,7 @@ solve(eq,y,x) --R (49) [particular= ------------------,basis= [-------------,-----------]] --R 4 3 2 4 3 2 2 --R 12x - 24x + 12x x - 2x + x x - 2x + 1 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 59 \end{chunk} @@ -757,7 +757,7 @@ solve(eq,y,x) --R --R 2 2x --R (51) [particular= 0,basis= [x ,%e ]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 61 \end{chunk} @@ -831,7 +831,7 @@ solve(eq,y,x) --R --R --R (55) [particular= x,basis= [1,erf(x)]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 67 \end{chunk} @@ -1005,7 +1005,7 @@ solve(eq,y,x) --R basis= [%e |------- ,%e |------- | %e |---------- d%M ]] --R | 2 | 2 ++ | 4 3 --R \|x - 2x \|x - 2x \|%M - 2%M ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 79 \end{chunk} @@ -1031,7 +1031,7 @@ solve(eq,y,x) --R (64) [particular= -,basis= [x,x | ----- d%M ]] --R 2 ++ 2 --R %M ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 81 \end{chunk} @@ -1052,7 +1052,7 @@ solve(eq,y,x) --R --R --R (66) [particular= 0,basis= []] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 83 \end{chunk} @@ -1105,7 +1105,7 @@ solve(eq,y,x) --R 3x + 2x - 7x + 14 x - 1 x + 2 --R (69) [particular= --------------------,basis= [------,------]] --R 12x x x ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 97 \end{chunk} @@ -1130,7 +1130,7 @@ solve(eq,y,x) --R [particular= sin(x)log(----------) - sin(x)log(----------) - x cos(x), --R cos(x) + 1 cos(x) + 1 --R basis= [cos(x),sin(x)]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 89 \end{chunk} @@ -1161,7 +1161,7 @@ solve(eq,y,x) --R --R 4x 3x 2x 2x x x 2 x --R (73) [particular= 0,basis= [%e ,%e ,%e ,x %e ,%e ,x %e ,x %e ]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 91 \end{chunk} @@ -1197,7 +1197,7 @@ solve(eq,y,x) --R --------------------] --R x --R ] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 93 \end{chunk} @@ -1232,7 +1232,7 @@ solve(eq,y,x) --R (77) [particular= ------------,basis= [----------,----------,1]] --R 2 2 2 --R 4x + 4x + 4 x + x + 1 x + x + 1 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 95 \end{chunk} @@ -1655,7 +1655,7 @@ solve([eq1,eq2],[x,y],t) --R 10t %e 7t 7t --R (17) [particular= [0,0],basis= [[%e ,-----],[%e ,- %e ]]] --R 2 ---RType: Union(Record(particular: Vector Expression Integer,basis: List Vector Expression Integer),...) +--IType: Union(Record(particular: Vector Expression Integer,... --E 133 \end{chunk} @@ -1727,7 +1727,7 @@ solve([eq1,eq2],[x,y],t) --R 1 2 --R (22) [particular= [log(t) - 1,t log(t) - t],basis= [[-,- t ],[1,t]]] --R t ---RType: Union(Record(particular: Vector Expression Integer,basis: List Vector Expression Integer),...) +--IType: Union(Record(particular: Vector Expression Integer,... --E 139 )clear all @@ -1831,7 +1831,7 @@ This equation crashes Axiom silently and is a major bug. \end{chunk} \eject \begin{thebibliography}{99} -\bibitem{1} Zimmermann, Paul +\bibitem{1} Zimmermann, Paul \hfill\\ ``http://www.loria.fr/~zimmerma/ComputerAlgebra/ode\_comp.axiom'' \end{thebibliography} \end{document} diff --git a/src/input/zimmer.input.pamphlet b/src/input/zimmer.input.pamphlet index 8c4abbb..fb25ed7 100644 --- a/src/input/zimmer.input.pamphlet +++ b/src/input/zimmer.input.pamphlet @@ -49,7 +49,7 @@ solve(ode,u,x) --R (3) [particular= ------------------,basis= [-----------]] --R 4 3 2 2 --R 12x - 24x + 12x x - 2x + 1 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 3 )clear all @@ -82,7 +82,7 @@ solve(ode,u,x) --R 4sin(x) + 2cos(x) 2x --R (3) [particular= -----------------,basis= [%e ]] --R 5 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 6 )clear all @@ -237,7 +237,7 @@ solve(eval(ode,n=1),y,x) --I | (Q(%J) - P(%J))d%J --R ++ --R (6) [particular= 0,basis= [%e ]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,basis: ... --E 21 --S 22 of 177 @@ -759,7 +759,7 @@ solve(ode,y,x) --R (3) [particular= 0,basis= [------------------,------------------]] --R 2 2 2 2 2 2 --R a x + 2a b x + b a x + 2a b x + b ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 69 )clear all @@ -791,7 +791,7 @@ solve(ode,u,x) --R (3) [particular= ------------------,basis= [-------------,-----------]] --R 4 3 2 4 3 2 2 --R 12x - 24x + 12x x - 2x + x x - 2x + 1 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 72 )clear all @@ -820,7 +820,7 @@ solve(ode,w,x) --R --R 2 2x --R (3) [particular= 0,basis= [x ,%e ]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 75 )clear all @@ -916,7 +916,7 @@ solve(ode,y,x) --R --R --R (3) [particular= x,basis= [1,erf(x)]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 84 )clear all @@ -1117,7 +1117,7 @@ solve(ode,y,x) --I basis= [%e |------- ,%e |------- | %e |---------- d%J ]] --R | 2 | 2 ++ | 4 3 --I \|x - 2x \|x - 2x \|%J - 2%J ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 102 )clear all @@ -1150,7 +1150,7 @@ solve(ode,y,x) --I (3) [particular= -,basis= [x,x | ----- d%J ]] --R 2 ++ 2 --I %J ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 105 )clear all @@ -1178,7 +1178,7 @@ solve(ode,y,x) --R --R --R (3) [particular= 0,basis= []] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 108 )clear all @@ -1245,7 +1245,7 @@ solve(ode,y,x) --R 3x + 2x - 7x + 14 x - 1 x + 2 --R (3) [particular= --------------------,basis= [------,------]] --R 12x x x ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 114 )clear all @@ -1277,7 +1277,7 @@ solve(ode,y,x) --R [particular= sin(x)log(----------) - sin(x)log(----------) - x cos(x), --R cos(x) + 1 cos(x) + 1 --R basis= [cos(x),sin(x)]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 117 -- Higher Order Equations @@ -1316,7 +1316,7 @@ solve(ode,y,x) --R --R 4x 3x 2x 2x x x 2 x --R (3) [particular= 0,basis= [%e ,%e ,%e ,x %e ,%e ,x %e ,x %e ]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 120 )clear all @@ -1347,7 +1347,7 @@ solve(ode,y,x) --R --R --R (3) [particular= 0,basis= [1]] ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 123 )clear all @@ -1379,7 +1379,7 @@ solve(ode,y,x) --R (3) [particular= ------------,basis= [----------,----------,1]] --R 2 2 2 --R 4x + 4x + 4 x + x + 1 x + x + 1 ---RType: Union(Record(particular: Expression Integer,basis: List Expression Integer),...) +--IType: Union(Record(particular: Expression Integer,... --E 126 )clear all @@ -1818,7 +1818,7 @@ solve(odes,[x,y],t) --R 10t %e 7t 7t --R (4) [particular= [0,0],basis= [[%e ,-----],[%e ,- %e ]]] --R 2 ---RType: Union(Record(particular: Vector Expression Integer,basis: List Vector Expression Integer),...) +--IType: Union(Record(particular: Vector Expression Integer,... --E 169 )clear all @@ -1900,7 +1900,7 @@ solve(odes,[y1,y2],x) --R 1 2 --R (4) [particular= [log(x) - 1,x log(x) - x],basis= [[-,- x ],[1,x]]] --R x ---RType: Union(Record(particular: Vector Expression Integer,basis: List Vector Expression Integer),...) +--IType: Union(Record(particular: Vector Expression Integer,... --E 177 )spool