fricas
(1) -> jb := IJB('x,'u,'p,4,3);
Type: Type
fricas
jbe := JBE jb;
Type: Type
fricas
de := JDE(jb,jbe);
Type: Type
fricas
ck := CKP(jb,jbe);
Type: Type
fricas
eq1:jbe := P(1,[4]) + U(1)*P(1,[1]) + U(2)*P(1,[2]) + U(3)*P(1,[3])
Type: JetBundleExpression
?(IndexedJetBundle
?(x,
u,
p,
4,
3))
fricas
eq2:jbe := P(2,[4]) + U(1)*P(2,[1]) + U(2)*P(2,[2]) + U(3)*P(2,[3])
Type: JetBundleExpression
?(IndexedJetBundle
?(x,
u,
p,
4,
3))
fricas
eq3:jbe := P(3,[4]) + U(1)*P(3,[1]) + U(2)*P(3,[2]) + U(3)*P(3,[3])
Type: JetBundleExpression
?(IndexedJetBundle
?(x,
u,
p,
4,
3))
fricas
eq4:jbe := P(1,[1]) + P(2,[2]) + P(3,[3])
Type: JetBundleExpression
?(IndexedJetBundle
?(x,
u,
p,
4,
3))
fricas
euler:de := makeSystem([eq1,eq2,eq3,eq4])
Type: JetDifferentialEquation
?(IndexedJetBundle
?(x,
u,
p,
4,
3),
JetBundleExpression
?(IndexedJetBundle
?(x,
u,
p,
4,
3)))
fricas
setOutMode(14)$ck
Type: NonNegativeInteger
?
fricas
setSimpMode(1)$ck
Type: NonNegativeInteger
?
Fix::
fricas
complete(euler)$ck
Type: Void