Poirier to Hall
1-D
fricas
x := operator('x)
fricas
C:List Symbol := [subscript('x,[0])]
Type: List(Symbol)
fricas
d := #C
fricas
J := matrix [[D(x(C(1),t),C(1))]]
Type: Matrix(Expression(Integer))
fricas
K := inverse J
Type: Union(Matrix(Expression(Integer)),...)
fricas
Req18a:=[reduce(+,[reduce(+,[reduce(+,[reduce(+,[ (1/4)*D( K(k,i)*K(m,j)*D( D( K(l,j),C(k) ),C(l) ),C(m) ) for m in 1..d]) for k in 1..d]) for j in 1..d]) for l in 1..d]) for i in 1..d]
Type: List(Expression(Integer))
fricas
diff1(n)==subscript('x,[n])-subscript('x,[n-1])
Type: Void
fricas
Req18b:=eval(Req18a,D(x(C(1),t),C(1))=diff1(n))
fricas
Compiling function diff1 with type Variable(n) -> Polynomial(Integer
)
Type: List(Expression(Integer))
fricas
diff2(n)==diff1(n+1)-diff1(n)
Type: Void
fricas
diff2(n)
fricas
Compiling function diff1 with type Polynomial(Integer) -> Polynomial
(Integer)
fricas
Compiling function diff2 with type Variable(n) -> Polynomial(Integer
)
Type: Polynomial(Integer)
fricas
Req18c:=eval(Req18b,D(x(C(1),t),[C(1),C(1)])=diff2(n));
Type: List(Expression(Integer))
fricas
numer Req18c.1
Type: SparseMultivariatePolynomial
?(Integer,
Kernel(Expression(Integer)))
fricas
diff3(n)==diff2(n)-diff2(n-1)
Type: Void
fricas
diff3(n)
fricas
Compiling function diff2 with type Polynomial(Integer) -> Polynomial
(Integer)
fricas
Compiling function diff3 with type Variable(n) -> Polynomial(Integer
)
Type: Polynomial(Integer)
fricas
Req18d:=eval(Req18c,D(x(C(1),t),[C(1),C(1),C(1)])=diff3(n));
Type: List(Expression(Integer))
fricas
numer Req18d.1
Type: SparseMultivariatePolynomial
?(Integer,
Kernel(Expression(Integer)))
fricas
diff4(n)==diff3(n+1)-diff3(n)
Type: Void
fricas
diff4(n)
fricas
Compiling function diff3 with type Polynomial(Integer) -> Polynomial
(Integer)
fricas
Compiling function diff4 with type Variable(n) -> Polynomial(Integer
)
Type: Polynomial(Integer)
fricas
Req18e:=eval(Req18d,D(x(C(1),t),[C(1),C(1),C(1),C(1)])=diff4(n));
Type: List(Expression(Integer))
fricas
numer Req18e.1
Type: SparseMultivariatePolynomial
?(Integer,
Kernel(Expression(Integer)))
fricas
factor %
Type: Factored(SparseMultivariatePolynomial
?(Integer,
Kernel(Expression(Integer))))
2-D
fricas
x := operator('x)
fricas
y := operator('y)
fricas
C:List Symbol := [subscript('x,[0]),subscript('y,[0])]
Type: List(Symbol)
fricas
d := #C
fricas
J := matrix [[D(x(C(1),C(2),t),C(1)), D(x(C(1),C(2),t),C(2))],
[D(y(C(1),C(2),t),C(1)), D(y(C(1),C(2),t),C(2))]]
Type: Matrix(Expression(Integer))
fricas
K := inverse J
Type: Union(Matrix(Expression(Integer)),...)
fricas
Req18:=[reduce(+,[reduce(+,[reduce(+,[reduce(+,[
(1/4)*D( K(k,i)*K(m,j)*D( D( K(l,j),C(k) ),C(l) ),C(m) )
for m in 1..d]) for k in 1..d]) for j in 1..d]) for l in 1..d]) for i in 1..d];
Type: List(Expression(Integer))
fricas
#Req18
fricas
kernels Req18.1
Type: List(Kernel(Expression(Integer)))