|
1
2
3
4
|
|
Editor: test1
Time: 2013/05/17 13:48:41 GMT+0
|
Note:
|
changed:
-)lib JBC JBFC JBC- JBFC- BFC BFC- JB JBX JBLF DE SEM DIFF JBE CK
jb := JBUNDLE(['x,'y,'z],['u]);
jbx := JBX jb;
jbl := JBLF(jb,jbx);
de := JDE(jb,jbl);
ck := CKP(jb,jbl);
removed:
-
-\begin{axiom}
-jb:=JB(['x,'y,'z],['u]);
-jbx:=JBX jb;
-jbl:=JBLF(jb,jbx);
-de:=DE(jb,jbl);
-ck:=CK(jb,jbl);
-\end{axiom}
changed:
-printSys [eq1,eq2]
printSys([eq1,eq2])$de
changed:
-janet:de := generate [eq1,eq2]
janet:de := makeSystem([eq1,eq2])$de
changed:
-Fix::
-
- !\begin{axiom}
- complete janet
- \end{axiom}
-
\begin{axiom}
complete(janet)$ck
\end{axiom}
fricas
(1) -> 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