|
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
|