1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
\documentclass{article}
\usepackage{axiom}
\begin{document}
\title{\$SPAD/src/input danzwill.input}
\author{The Axiom Team}
\maketitle
\begin{abstract}
\end{abstract}
\eject
\tableofcontents
\eject
\section{bugs}
\subsection{bug1}
integrate: pole in path of integration
<<bug1>>=
)set mes test off
d9:= integrate( 1/x**2,x=-1..1)
)set mes test on
@
<<bugs>>=
-- X-External-Networks: yes
-- Date: Fri, 3 Apr 92 10:58:35 -0500
-- From: zwilling@world.std.com (Daniel Zwillinger)
-- To: axiom@watson.ibm.com
--
-- Enclosed is my test suite of integrals in MAPLE format.
-- I would appreciate you running it under AXIOM and returning the
-- results to me via email.
--
-- Thank you.
--
-- ----------------------------------------------------------------------
-- Daniel Zwillinger email: zwilling@world.std.com
-- 61 Highland Avenue phone: 617/646-8565
-- Arlington, MA 02174
-- Home of: Handbook of Differential Equations
-- Home of: Handbook of Integration
-- ----------------------------------------------------------------------
--
)clear all
)set break resume
i1 := integrate( sin(x), x)
--i2 := integrate( sqrt(tan(x)), x)
i3 := integrate( x/(x**3-1),x)
i4 := integrate( x/sin(x)**2, x)
i5 := integrate( log(x)/sqrt(x+1), x)
i6 := integrate( exp(-a*x**2), x)
i7 := integrate( x/(log(x))**3, x)
i8 := integrate( x/(sqrt(1+x)+sqrt(1-x)),x)
i9 := integrate( 1/(2+cos(x)),x)
i10:= integrate( sin(x)/x**2, x)
d1:= integrate( 1/(2+cos(x)),x=0..4*%pi)
)set mes test off
d2:= integrate( sin(x)/x,x=%minusInfinity..%plusInfinity)
)set mes test on
d3:= integrate( x**2/(1+x**3),x=0..%plusInfinity)
d4:= integrate( exp(-x)/sqrt(x),x=0..%plusInfinity)
d5:= integrate( exp(-x**2)*log(x)**2,x=0..%plusInfinity)
d6:= integrate( exp(-x)*log(x)**2*x**3,x=1..%plusInfinity)
d7:= integrate( exp(-x)*x**(1/3),x=1..%plusInfinity)
d8:= integrate( exp(-x)*x**2/(1-exp(-2*x)),x=0..%plusInfinity)
@
\section{License}
<<license>>=
--Copyright The Numerical Algorithms Group Limited 1994.
@
<<*>>=
<<license>>
-- X-External-Networks: yes
-- Date: Fri, 3 Apr 92 10:58:35 -0500
-- From: zwilling@world.std.com (Daniel Zwillinger)
-- To: axiom@watson.ibm.com
--
-- Enclosed is my test suite of integrals in MAPLE format.
-- I would appreciate you running it under AXIOM and returning the
-- results to me via email.
--
-- Thank you.
--
-- ----------------------------------------------------------------------
-- Daniel Zwillinger email: zwilling@world.std.com
-- 61 Highland Avenue phone: 617/646-8565
-- Arlington, MA 02174
-- Home of: Handbook of Differential Equations
-- Home of: Handbook of Integration
-- ----------------------------------------------------------------------
--
)clear all
)set break resume
i1 := integrate( sin(x), x)
--i2 := integrate( sqrt(tan(x)), x)
i3 := integrate( x/(x**3-1),x)
i4 := integrate( x/sin(x)**2, x)
i5 := integrate( log(x)/sqrt(x+1), x)
i6 := integrate( exp(-a*x**2), x)
i7 := integrate( x/(log(x))**3, x)
i8 := integrate( x/(sqrt(1+x)+sqrt(1-x)),x)
i9 := integrate( 1/(2+cos(x)),x)
i10:= integrate( sin(x)/x**2, x)
d1:= integrate( 1/(2+cos(x)),x=0..4*%pi)
)set mes test off
d2:= integrate( sin(x)/x,x=%minusInfinity..%plusInfinity)
)set mes test on
d3:= integrate( x**2/(1+x**3),x=0..%plusInfinity)
d4:= integrate( exp(-x)/sqrt(x),x=0..%plusInfinity)
d5:= integrate( exp(-x**2)*log(x)**2,x=0..%plusInfinity)
d6:= integrate( exp(-x)*log(x)**2*x**3,x=1..%plusInfinity)
d7:= integrate( exp(-x)*x**(1/3),x=1..%plusInfinity)
d8:= integrate( exp(-x)*x**2/(1-exp(-2*x)),x=0..%plusInfinity)
@
\eject
\begin{thebibliography}{99}
\bibitem{1} nothing
\end{thebibliography}
\end{document}
|
