]>
Book Contents Previous Section 9.43 LiePolynomial Next Section 9.45 LinearOrdinaryDifferentialOperator1 Book Index

## 9.44 LinearOrdinaryDifferentialOperator

LinearOrdinaryDifferentialOperator(A, diff) is the domain of linear ordinary differential operators with coefficients in a ring A with a given derivation.

### 9.44.1 Differential Operators with Series Coefficients

Problem: Find the first few coefficients of exp(x)/x**i of Dop phi where

Dop := D**3 + G/x**2 * D + H/x**3 - 1
phi := sum(s[i]*exp(x)/x**i, i = 0..)

Solution:

Define the differential.

Dx: LODO(EXPR INT, f +-> D(f, x))
Void
Dx := D()

D

Type: LinearOrdinaryDifferentialOperator(Expression Integer,theMap NIL)

Now define the differential operator Dop.

Dop:= Dx**3 + G/x**2*Dx + H/x**3 - 1

D 3+G x 2 D+-x 3+H x 3

Type: LinearOrdinaryDifferentialOperator(Expression Integer,theMap NIL)
n == 3
Void
phi == reduce(+,[subscript(s,[i])*exp(x)/x**i for i in 0..n])
Void
phi1 == Dop(phi) / exp x
Void
phi2 == phi1 *x**(n+3)
Void
phi3 == retract(phi2)@(POLY INT)
Void
pans == phi3 ::UP(x,POLY INT)
Void
pans1 == [coefficient(pans, (n+3-i) :: NNI) for i in 2..n+1]
Void
leq == solve(pans1,[subscript(s,[i]) for i in 1..n])
Void

Evaluate this for several values of n.

leq
Compiling body of rule n to compute value of type PositiveInteger
Compiling body of rule phi to compute value of type Expression
Integer
Compiling body of rule phi1 to compute value of type Expression
Integer
Compiling body of rule phi2 to compute value of type Expression
Integer
Compiling body of rule phi3 to compute value of type Polynomial
Integer
Compiling body of rule pans to compute value of type
UnivariatePolynomial(x,Polynomial Integer)
Compiling body of rule pans1 to compute value of type List
Polynomial Integer
Compiling body of rule leq to compute value of type List List
Equation Fraction Polynomial Integer
Compiling function G83347 with type Integer -> Boolean
n==4

[[s 1=s 0 G 3,s 2=3 s 0 H+s 0 G 2+6 s 0 G 18,s 3=(9 s 0 G+54 s 0)H+s 0 G 3+18 s 0 G 2+72 s 0 G 162]]

Type: List List Equation Fraction Polynomial Integer
leq

[[s 1=s 0 G 3,s 2=3 s 0 H+s 0 G 2+6 s 0 G 18,s 3=(9 s 0 G+54 s 0)H+s 0 G 3+18 s 0 G 2+72 s 0 G 162]]

Type: List List Equation Fraction Polynomial Integer
n==7
Compiled code for n has been cleared.
Compiled code for leq has been cleared.
Compiled code for pans1 has been cleared.
Compiled code for phi2 has been cleared.
Compiled code for phi has been cleared.
Compiled code for phi3 has been cleared.
Compiled code for phi1 has been cleared.
Compiled code for pans has been cleared.
1 old definition(s) deleted for function or rule n
Void
leq
Compiling body of rule n to compute value of type PositiveInteger
+++ |*0;n;1;G82322| redefined
Compiling body of rule phi to compute value of type Expression
Integer
+++ |*0;phi;1;G82322| redefined
Compiling body of rule phi1 to compute value of type Expression
Integer
+++ |*0;phi1;1;G82322| redefined
Compiling body of rule phi2 to compute value of type Expression
Integer
+++ |*0;phi2;1;G82322| redefined
Compiling body of rule phi3 to compute value of type Polynomial
Integer
+++ |*0;phi3;1;G82322| redefined
Compiling body of rule pans to compute value of type
UnivariatePolynomial(x,Polynomial Integer)
+++ |*0;pans;1;G82322| redefined
Compiling body of rule pans1 to compute value of type List
Polynomial Integer
+++ |*0;pans1;1;G82322| redefined
Compiling body of rule leq to compute value of type List List
Equation Fraction Polynomial Integer
+++ |*0;leq;1;G82322| redefined

s 7=((2835 s 0 G+91854 s 0)H 3+(945 s 0 G 3+81648 s 0 G 2+2082996 s 0 G+14171760 s 0)H 2+(63 s 0 G 5+7560 s 0 G 4+317520 s 0 G 3+5554008 s 0 G 2+34058880 s 0 G)H+s 0 G 7+126 s 0 G 6+4788 s 0 G 5+25272 s 0 G 4-1744416 s 0 G 3-26827200 s 0 G 2-97977600 s 0 G)11022480]]

Type: List List Equation Fraction Polynomial Integer
Book Contents Previous Section 9.43 LiePolynomial Next Section 9.45 LinearOrdinaryDifferentialOperator1 Book Index