|
fricas jb := JBUNDLE(['x,'y,'z],['u]);
Type: Type
fricas jbx := JBX jb;
Type: Type
fricas jbl := JBLF(jb,jbx);
Type: Type
fricas de := JDE(jb,jbl);
Type: Type
fricas ck := CKP(jb,jbl);
Type: Type
fricas eq1:jbl := D('u,['z,'z]) + 'y * D('u,['x,'x])
Type: JetBundleLinearFunction ?(JetBundle ?([x, y, z], [u]), JetBundleXExpression ?(JetBundle ?([x, y, z], [u])))
fricas eq2:jbl := D('u,['y,'y])
Type: JetBundleLinearFunction ?(JetBundle ?([x, y, z], [u]), JetBundleXExpression ?(JetBundle ?([x, y, z], [u])))
fricas printSys([eq1,eq2])$de
fricas janet:de := makeSystem([eq1,eq2])$de
Type: JetDifferentialEquation ?(JetBundle ?([x, y, z], [u]), JetBundleLinearFunction ?(JetBundle ?([x, y, z], [u]), JetBundleXExpression ?(JetBundle ?([x, y, z], [u]))))
fricas setOutMode(14)$ck
Type: NonNegativeInteger ?
fricas setRedMode(1)$ck
Type: NonNegativeInteger ?
fricas complete(janet)$ck
Type: Void
|