diff options
author | dos-reis <gdr@axiomatics.org> | 2007-08-14 05:14:52 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2007-08-14 05:14:52 +0000 |
commit | ab8cc85adde879fb963c94d15675783f2cf4b183 (patch) | |
tree | c202482327f474583b750b2c45dedfc4e4312b1d /src/input/lodo2.input.pamphlet | |
download | open-axiom-ab8cc85adde879fb963c94d15675783f2cf4b183.tar.gz |
Initial population.
Diffstat (limited to 'src/input/lodo2.input.pamphlet')
-rw-r--r-- | src/input/lodo2.input.pamphlet | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/src/input/lodo2.input.pamphlet b/src/input/lodo2.input.pamphlet new file mode 100644 index 00000000..6a26f83e --- /dev/null +++ b/src/input/lodo2.input.pamphlet @@ -0,0 +1,56 @@ +\documentclass{article} +\usepackage{axiom} +\begin{document} +\title{\$SPAD/src/input LODO2.input} +\author{The Axiom Team} +\maketitle +\begin{abstract} +\end{abstract} +\eject +\tableofcontents +\eject +<<*>>= + +-- Input generated from LinearOrdinaryDifferentialOperatorTwoXmpPage +)clear all + + +-- Input generated from ugxLinearOrdinaryDifferentialOperatorTwoConstPage +)clear all + +Q := Fraction Integer +PQ := UnivariatePolynomial('x, Q) +x: PQ := 'x +Dx: LODO2(Q, PQ) := D() +a := Dx + 1 +b := a + 1/2*Dx**2 - 1/2 +p := 4*x**2 + 2/3 +a p +(a * b) p = a b p +c := (1/9)*b*(a + b)**2 +(a**2 - 3/4*b + c) (p + 1) + +-- Input generated from ugxLinearOrdinaryDifferentialOperatorTwoMatrixPage +)clear all + +PZ := UnivariatePolynomial(x,Integer) +x:PZ := 'x +Mat := SquareMatrix(3,PZ) +Vect := DPMM(3, PZ, Mat, PZ); +Modo := LODO2(Mat, Vect); +m:Mat := matrix [[x**2,1,0],[1,x**4,0],[0,0,4*x**2]] +p:Vect := directProduct [3*x**2+1,2*x,7*x**3+2*x] +q: Vect := m * p +Dx : Modo := D() +a : Modo := Dx + m +b : Modo := m*Dx + 1 +c := a*b +a p +b p +(a + b + c) (p + q) +@ +\eject +\begin{thebibliography}{99} +\bibitem{1} nothing +\end{thebibliography} +\end{document} |