重要.nb

该程序是用来画微分系统时间序列图相图等相关的图形的,可以很好的对一个微分系统进行分析

}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
    \(F\_1 = \((\((35\ kz + \((k\^2 + t\^2)\)\ \((\(-35\)\ x + 
                      t\ y)\))\)\ \((35\ \((k\^2\ x + t\^2\ x - 
                      35\ z)\) - \((k\^2 + 
                      t\^2)\)\ w\ k\_1)\))\)/\((\((k\^2 + t\^2)\)\^2\ \((1225 \
+ k\^2 + t\^2)\))\)\), "\[IndentingNewLine]", 
    \(F\_2 = \(-\((\((35\ kz + \((k\^2 + t\^2)\)\ \((\(-35\)\ x + 
                        t\ y)\))\)\ \((\((\(-35\)\ k + k\^2 + 
                        t\^2)\)\ \((k\^2\ x + t\^2\ x - 35\ z)\) + \((35 + 
                        k)\)\ \((k\^2 + 
                        t\^2)\)\ w\ k\_1)\))\)\)/\((t\ \((k\^2 + t\^2)\)\^2\ \
\((1225 + k\^2 + t\^2)\))\)\), "\[IndentingNewLine]", 
    \(Simplify[
      D[F\_1, {y, 2}] - D[F\_1, {y, 2}] + 
        2*D[F\_2, {x, 1}, {y, 1}]]\), "\[IndentingNewLine]", 
    \(Simplify[
      D[F\_2, {x, 2}] - D[F\_2, {y, 2}] - 
        2*D[F\_1, {x, 1}, {y, 1}]]\)}], "Input"],

Cell[BoxData[
    \(\(\((35\ kz + \((k\^2 + t\^2)\)\ \((\(-35\)\ x + t\ y)\))\)\ \((35\ \
\((k\^2\ x + t\^2\ x - 35\ z)\) - \((k\^2 + t\^2)\)\ w\ k\_1)\)\)\/\(\((k\^2 \
+ t\^2)\)\^2\ \((1225 + k\^2 + t\^2)\)\)\)], "Output"],

Cell[BoxData[
    \(\(-\(\((\((35\ kz + \((k\^2 + t\^2)\)\ \((\(-35\)\ x + 
                      t\ y)\))\)\ \((\((\(-35\)\ k + k\^2 + 
                      t\^2)\)\ \((k\^2\ x + t\^2\ x - 35\ z)\) + \((35 + 
                      k)\)\ \((k\^2 + 
                      t\^2)\)\ w\ k\_1)\))\)/\((t\ \((k\^2 + t\^2)\)\^2\ \
\((1225 + k\^2 + t\^2)\))\)\)\)\)], "Output"],

Cell[BoxData[
    \(\(-\(\(2\ \((\(-35\)\ k + k\^2 + t\^2)\)\)\/\(1225 + k\^2 + 
            t\^2\)\)\)\)], "Output"],

Cell[BoxData[
    \(\(70\ \((\(-35\) + k)\)\ k\)\/\(t\ \((1225 + k\^2 + t\^2)\)\)\)], \
"Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
    \(F\_1 = \((\((35\ kz + \((k\^2 + t\^2)\)\ \((\(-35\)\ x + 
                      t\ y)\))\)\ \((35\ \((k\^2\ x + t\^2\ x - 
                      35\ z)\) - \((k\^2 + 
                      t\^2)\)\ w\ k\_1)\))\)/\((\((k\^2 + t\^2)\)\^2\ \((1225 \
+ k\^2 + t\^2)\))\)\), "\[IndentingNewLine]", 
    \(F\_2 = \(-\((\((35\ kz + \((k\^2 + t\^2)\)\ \((\(-35\)\ x + 
                        t\ y)\))\)\ \((\((\(-35\)\ k + k\^2 + 
                        t\^2)\)\ \((k\^2\ x + t\^2\ x - 35\ z)\) + \((35 + 
                        k)\)\ \((k\^2 + 
                        t\^2)\)\ w\ k\_1)\))\)\)/\((t\ \((k\^2 + t\^2)\)\^2\ \
\((1225 + k\^2 + t\^2)\))\)\), "\[IndentingNewLine]", 
    \(Simplify[
      D[F\_1, {x, 3}] + D[F\_1, {x, 1}, {y, 2}] + D[F\_2, {x, 2}, {y, 1}] + 
        D[F\_2, {y, 3}]]\), "\[IndentingNewLine]", 
    \(Simplify[
      D[F\_2, {x, 3}] + D[F\_2, {x, 1}, {y, 2}] - D[F\_1, {x, 2}, {y, 1}] - 
        D[F\_1, {y, 3}]]\)}], "Input"],

Cell[BoxData[
    \(\(\((35\ kz + \((k\^2 + t\^2)\)\ \((\(-35\)\ x + t\ y)\))\)\ \((35\ \
\((k\^2\ x + t\^2\ x - 35\ z)\) - \((k\^2 + t\^2)\)\ w\ k\_1)\)\)\/\(\((k\^2 \
+ t\^2)\)\^2\ \((1225 + k\^2 + t\^2)\)\)\)], "Output"],

Cell[BoxData[
    \(\(-\(\((\((35\ kz + \((k\^2 + t\^2)\)\ \((\(-35\)\ x + 
                      t\ y)\))\)\ \((\((\(-35\)\ k + k\^2 + 
                      t\^2)\)\ \((k\^2\ x + t\^2\ x - 35\ z)\) + \((35 + 
                      k)\)\ \((k\^2 + 
                      t\^2)\)\ w\ k\_1)\))\)/\((t\ \((k\^2 + t\^2)\)\^2\ \
\((1225 + k\^2 + t\^2)\))\)\)\)\)], "Output"],

Cell[BoxData[
    \(0\)], "Output"],

Cell[BoxData[
    \(0\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
    \(F\_3 = \((\((\(-\(kz\/\(k\^2 + t\^2\)\)\) + 
                x - \(t\ y\)\/35)\)\ \((\(-35\)\ x + \(1225\ z\)\/\(k\^2 + \
t\^2\) + w\ k\_1)\))\)/\((35\ \((1\/35 + 
                35\/\(k\^2 + t\^2\))\))\)\), "\[IndentingNewLine]", 
    \(F\_4 = 
      w\ \((x - \(35\ z\)\/\(k\^2 + t\^2\))\)\), "\[IndentingNewLine]", 
    \(Simplify[D[F\_3, {x, 2}] + D[F\_3, {y, 2}]]\), "\[IndentingNewLine]", 
    \(Simplify[D[F\_4, {x, 2}] + D[F\_4, {y, 2}]]\)}], "Input"],

Cell[BoxData[
    \(\(\((\(-\(kz\/\(k\^2 + t\^2\)\)\) + x - \(t\ y\)\/35)\)\ \((\(-35\)\ x \
+ \(1225\ z\)\/\(k\^2 + t\^2\) + w\ k\_1)\)\)\/\(35\ \((1\/35 + 35\/\(k\^2 + \
t\^2\))\)\)\)], "Output"],

Cell[BoxData[
    \(w\ \((x - \(35\ z\)\/\(k\^2 + t\^2\))\)\)], "Output"],

Cell[BoxData[
    \(\(-\(2\/\(1\/35 + 35\/\(k\^2 + t\^2\)\)\)\)\)], "Output"],

Cell[BoxData[
    \(0\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
    \(F\_3 = \((\((\(-\(kz\/\(k\^2 + t\^2\)\)\) + 
                x - \(t\ y\)\/35)\)\ \((\(-35\)\ x + \(1225\ z\)\/\(k\^2 + \
t\^2\) + w\ k\_1)\))\)/\((35\ \((1\/35 + 
                35\/\(k\^2 + t\^2\))\))\)\), "\[IndentingNewLine]", 
    \(F\_4 = 
      w\ \((x - \(35\ z\)\/\(k\^2 + t\^2\))\)\), "\[IndentingNewLine]", 
    \(Simplify[\((D[F\_3, {x, 2}] - D[F\_3, {y, 2}] - 
            2*i*D[F\_3, {x, 1}, {y, 1}])\)/4]\), "\[IndentingNewLine]", 
    \(Simplify[\((D[F\_4, {x, 2}] - D[F\_4, {y, 2}] - 
            2*i*D[F\_4, {x, 1}, {y, 1}])\)/4]\)}], "Input"],

Cell[BoxData[
    \(\(\((\(-\(kz\/\(k\^2 + t\^2\)\)\) + x - \(t\ y\)\/35)\)\ \((\(-35\)\ x \
+ \(1225\ z\)\/\(k\^2 + t\^2\) + w\ k\_1)\)\)\/\(35\ \((1\/35 + 35\/\(k\^2 + \
t\^2\))\)\)\)], "Output"],

Cell[BoxData[
    \(w\ \((x - \(35\ z\)\/\(k\^2 + t\^2\))\)\)], "Output"],

Cell[BoxData[
    \(\(-\(\(\((35 + i\ t)\)\ \((k\^2 + t\^2)\)\)\/\(2\ \((1225 + k\^2 + 
                t\^2)\)\)\)\)\)], "Output"],

Cell[BoxData[
    \(0\)], "Output"]
}, Open  ]]
},
FrontEndVersion->"5.0 for Microsoft Windows",
ScreenRectangle->{{0, 1280}, {0, 877}},
WindowSize->{1272, 843},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification->2
]

(*******************************************************************
Cached data follows.  If you edit this Notebook file directly, not
using Mathematica, you must remove the line containing CacheID at
the top of  the file.  The cache data will then be recreated when
you save this file from within Mathematica.
*******************************************************************)

(*CellTagsOutline
CellTagsIndex->{}
*)

(*CellTagsIndex
CellTagsIndex->{}
*)

(*NotebookFileOutline
Notebook[{

Cell[CellGroupData[{
Cell[1776, 53, 1018, 18, 391, "Input"],
Cell[2797, 73, 35, 1, 55, "Output"],
Cell[2835, 76, 956, 16, 288, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[3828, 97, 1085, 18, 423, "Input"],
Cell[4916, 117, 223, 3, 86, "Output"],
Cell[5142, 122, 370, 6, 133, "Output"],
Cell[5515, 130, 197, 3, 101, "Output"],
Cell[5715, 135, 73, 1, 74, "Output"],
Cell[5791, 138, 71, 1, 74, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[5899, 144, 759, 12, 289, "Input"],
Cell[6661, 158, 223, 3, 86, "Output"],
Cell[6887, 163, 370, 6, 133, "Output"],
Cell[7260, 171, 107, 2, 109, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[7404, 178, 803, 14, 289, "Input"],
Cell[8210, 194, 223, 3, 111, "Output"],
Cell[8436, 199, 370, 6, 158, "Output"],
Cell[8809, 207, 104, 2, 104, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[8950, 214, 803, 14, 289, "Input"],
Cell[9756, 230, 223, 3, 111, "Output"],
Cell[9982, 235, 370, 6, 158, "Output"],
Cell[10355, 243, 110, 2, 109, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[10502, 250, 924, 17, 323, "Input"],
Cell[11429, 269, 223, 3, 111, "Output"],
Cell[11655, 274, 370, 6, 158, "Output"],
Cell[12028, 282, 117, 2, 104, "Output"],
Cell[12148, 286, 97, 2, 104, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[12282, 293, 972, 17, 391, "Input"],
Cell[13257, 312, 223, 3, 111, "Output"],
Cell[13483, 317, 370, 6, 158, "Output"],
Cell[13856, 325, 35, 1, 80, "Output"],
Cell[13894, 328, 35, 1, 80, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[13966, 334, 481, 8, 220, "Input"],
Cell[14450, 344, 197, 3, 126, "Output"],
Cell[14650, 349, 73, 1, 99, "Output"],
Cell[14726, 352, 77, 1, 113, "Output"],
Cell[14806, 355, 35, 1, 80, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[14878, 361, 583, 10, 220, "Input"],
Cell[15464, 373, 197, 3, 126, "Output"],
Cell[15664, 378, 73, 1, 99, "Output"],
Cell[15740, 381, 131, 2, 109, "Output"],
Cell[15874, 385, 35, 1, 80, "Output"]
}, Open  ]]
}
]
*)



(*******************************************************************
End of Mathematica Notebook file.
*******************************************************************)