blob: cb0ecd9260437e81bee76bdb128eec4fbf2c4226 (
plain)
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
|
\documentclass{article}
\usepackage{axiom}
\begin{document}
\title{\$SPAD/src/input sersolve.input}
\author{The Axiom Team}
\maketitle
\begin{abstract}
\end{abstract}
\eject
\tableofcontents
\eject
\section{License}
<<license>>=
--Copyright The Numerical Algorithms Group Limited 1994.
@
<<*>>=
<<license>>
y := operator 'y
eq := D(y x,x) - x*cos(y x) - exp(x)
seriesSolve(eq,y,x=0,y(0) = 0)
)set streams calculate 10
R := EXPR INT
uts := UTS(R,'x,0)
foo: uts -> uts
foo y ==
xx := monomial(1,1)$uts
xx * cos(y) + exp(xx)
y := ode1(foo,0)$UTSODE(R,uts)
x : uts := x
x * cos(y) + exp(x)
@
\eject
\begin{thebibliography}{99}
\bibitem{1} nothing
\end{thebibliography}
\end{document}
|
