(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy=Mathematica 12.0 *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158,7]
NotebookDataLength[ 74770, 2120]
NotebookOptionsPosition[ 71350, 2058]
NotebookOutlinePosition[ 71976, 2080]
CellTagsIndexPosition[ 71933, 2077]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[TextData[{
StyleBox[:52a8:6001:4f18:5316:3002
:8ba1:7b97:5dee:5f02:3002
,
FontSize->72,
FontColor->RGBColor[0, 0, 1]],
StyleBox[
:4f18:5316t,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
RowBox[{
SubsuperscriptBox[[Integral],
SubscriptBox[t, 0],
SubscriptBox[t, 1]],
RowBox[{
RowBox[{F, (,
RowBox[{
RowBox[{
SubscriptBox[x, 1], (, t, )}], ,,
RowBox[{
SubscriptBox[x, 2], (, t, )}], ,, , ,,
RowBox[{
SubscriptBox[x, n], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 1], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 2], (, t, )}], ,, , ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], n], (, t, )}], ,, t}], )}],
dt}]}], TraditionalForm]],
FontColor->RGBColor[0, 0, 1],ExpressionUUID->
e6297231-b7cd-4551-a108-049c6078ee89],
StyleBox[
:670d:4ece tx(,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
SubscriptBox[t, 0], TraditionalForm]],
FontColor->RGBColor[0, 0, 1],ExpressionUUID->
84d56917-5b2d-426a-9173-b6b7f42dcd86],
StyleBox[) = ,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
RowBox[{(,
RowBox[{
FormBox[
SuperscriptBox[
SubscriptBox[x, 1], 0],
TraditionalForm], ,,
FormBox[
SuperscriptBox[
SubscriptBox[x, 2], 0],
TraditionalForm], ,, , ,,
FormBox[
SuperscriptBox[
SubscriptBox[x, n], 0],
TraditionalForm]}], )}], TraditionalForm]],
FontColor->RGBColor[0, 0, 1],ExpressionUUID->
501601f1-a2df-40e1-ab6c-64ac037b7b1f],
StyleBox[
tx(,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
SubscriptBox[t, 1], TraditionalForm]],
FontColor->RGBColor[0, 0, 1],ExpressionUUID->
5984e356-89a0-4e95-a99c-6bdbb27889a9],
StyleBox[) =,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
RowBox[{ ,
RowBox[{(,
RowBox[{
FormBox[
SuperscriptBox[
SubscriptBox[x, 1], 1],
TraditionalForm], ,,
FormBox[
SuperscriptBox[
SubscriptBox[x, 2], 1],
TraditionalForm], ,, , ,,
FormBox[
SuperscriptBox[
SubscriptBox[x, n], 1],
TraditionalForm]}], )}]}], TraditionalForm]],
FontColor->RGBColor[0, 0, 1],ExpressionUUID->
e450b3a3-6a92-4b8f-b870-b95ff0728cd3],
StyleBox[
:548c,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{x, (, t, )}], , =,
RowBox[{(,
RowBox[{
RowBox[{
SubscriptBox[x, 1], (, t, )}], ,,
RowBox[{
SubscriptBox[x, 2], (, t, )}], ,, , ,,
RowBox[{
SubscriptBox[x, n], (, t, )}]}], )}]}], TraditionalForm]],
FontColor->RGBColor[0, 0, 1],ExpressionUUID->
45d94d82-7166-4fcf-b7ab-8d38ac7e8d4b],
StyleBox[, ,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
OverscriptBox[x, .], (, t, )}], , =,
RowBox[{(,
RowBox[{
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 1], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 2], (, t, )}], ,, , ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], n], (, t, )}]}], )}]}],
TraditionalForm]],
FontColor->RGBColor[0, 0, 1],ExpressionUUID->
8152d89c-3af6-423a-898c-fd80b809af4c],
StyleBox[
:5bf9:4e8e:5168:5c40:6700:5927:503c:ff08:5168:5c40:6700:5c0f:503c
:ff09:ff0c:4e0a:4e00:4e2a:95ee:9898:7684:89e3x:ff08t:ff09:5fc5
:987b:9a8c:8bc1:4ee5:4e0b:6761:4ef6:ff1a
tt
:6b27:62c9:7684
:5fc5:8981:6761:4ef6:3002:5bf9:4e8e:6240:6709 t [Epsilon] [,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
SubscriptBox[t, 0], TraditionalForm]],
FontColor->RGBColor[0, 0, 1],ExpressionUUID->
80f13230-8bb9-4eb0-a9ea-22b3407a2c8e],
StyleBox[, ,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
SubscriptBox[t, 1], TraditionalForm]],
FontColor->RGBColor[0, 0, 1],ExpressionUUID->
74800634-9730-4d03-8662-9afaea76fcef],
StyleBox[]:5bf9:4e8e:6240:6709 i [Epsilon] {1,,n}:5df2:9a8c
:8bc1:ff1a
t,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
SubscriptBox[F,
SubscriptBox[x, i]], (,
RowBox[{
RowBox[{
SubscriptBox[x, 1], (, t, )}], ,, , ,,
RowBox[{
SubscriptBox[x, n], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 1], (, t, )}], ,, , ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], n], (, t, )}], ,, t}], )}],
}], TraditionalForm]],
FontColor->RGBColor[0, 0, 1],ExpressionUUID->
62a8fb32-57b0-4475-a5d4-fc1149296f64],
StyleBox[-,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
FractionBox[[DifferentialD],
RowBox[{[DifferentialD], t}]], TraditionalForm]],
FontColor->RGBColor[0, 0, 1],ExpressionUUID->
6f80d50e-8b0d-4bdc-985f-240b69385e25],
StyleBox[ (,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
RowBox[{
SubscriptBox[F,
OverscriptBox[
SubscriptBox[x, i], .]], (,
RowBox[{
RowBox[{
SubscriptBox[x, 1], (, t, )}], ,, , ,,
RowBox[{
SubscriptBox[x, n], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 1], (, t, )}], ,, , ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], n], (, t, )}], ,, t}], )}],
TraditionalForm]],
FontColor->RGBColor[0, 0, 1],ExpressionUUID->
bb19867f-e9c4-42ab-bac0-9c9853fbc57a],
StyleBox[) = 0
,
FontColor->RGBColor[0, 0, 1]],
StyleBox[:521d:59cb:6761:4ef6:ff1a ,
FontWeight->Bold,
FontColor->RGBColor[0, 0, 1]],
StyleBox[
tx(,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
SubscriptBox[t, 0], TraditionalForm]],
FontColor->RGBColor[0, 0, 1],ExpressionUUID->
90426232-ca6b-499d-a4e5-874e973046bc],
StyleBox[) = ,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
RowBox[{(,
RowBox[{
FormBox[
SuperscriptBox[
SubscriptBox[x, 1], 0],
TraditionalForm], ,,
FormBox[
SuperscriptBox[
SubscriptBox[x, 2], 0],
TraditionalForm], ,, , ,,
FormBox[
SuperscriptBox[
SubscriptBox[x, n], 0],
TraditionalForm]}], )}], TraditionalForm]],
FontColor->RGBColor[0, 0, 1],ExpressionUUID->
cd7911d8-44ef-410a-b133-c0a8bfe7851b],
StyleBox[
:6700:7ec8:6761:4ef6:ff1a
tx(,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
SubscriptBox[t, 1], TraditionalForm]],
FontColor->RGBColor[0, 0, 1],ExpressionUUID->
409f4edb-2385-43af-8e42-0826e8951189],
StyleBox[) =,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
RowBox[{ ,
RowBox[{(,
RowBox[{
FormBox[
SuperscriptBox[
SubscriptBox[x, 1], 1],
TraditionalForm], ,,
FormBox[
SuperscriptBox[
SubscriptBox[x, 2], 1],
TraditionalForm], ,, , ,,
FormBox[
SuperscriptBox[
SubscriptBox[x, n], 1],
TraditionalForm]}], )}]}], TraditionalForm]],
FontColor->RGBColor[0, 0, 1],ExpressionUUID->
6ea505f2-885c-4c5f-81dd-e6ed4b0d17d8],
StyleBox[
t
:52d2:8ba9:5fb7:7684:5fc5:8981:6761:4ef6:3002:5bf9
:4e8e:6240:6709 t [Epsilon] [,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
SubscriptBox[t, 0], TraditionalForm]],
FontColor->RGBColor[0, 0, 1],ExpressionUUID->
4fd7dc07-0b3b-40d0-88bd-b9ff1eb86d84],
StyleBox[, ,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
SubscriptBox[t, 1], TraditionalForm]],
FontColor->RGBColor[0, 0, 1],ExpressionUUID->
84a0e107-932f-4f75-887b-e04da67e9b9a],
StyleBox[]:9a8c:8bc1:77e9:9635
,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
SubscriptBox[F,
RowBox[{
OverscriptBox[x, .], ,
OverscriptBox[x, .]}]], (,
RowBox[{
RowBox[{
SubscriptBox[x, 1], (, t, )}], ,, , ,,
RowBox[{
SubscriptBox[x, n], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 1], (, t, )}], ,, , ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], n], (, t, )}], ,, t}], )}],
, =,
RowBox[{(, GridBox[{
{
RowBox[{
SubscriptBox[F,
RowBox[{
OverscriptBox[
SubscriptBox[x, 1], .], ,
OverscriptBox[
SubscriptBox[x, 1], .]}]], (,
RowBox[{
RowBox[{x, (, t, )}], ,,
RowBox[{
OverscriptBox[x, .], (, t, )}], ,, t}], )}], ,
RowBox[{
SubscriptBox[F,
RowBox[{
OverscriptBox[
SubscriptBox[x, 1], .], ,
OverscriptBox[
SubscriptBox[x, n], .]}]], (,
RowBox[{
RowBox[{x, (, t, )}], ,,
RowBox[{
OverscriptBox[x, .], (, t, )}], ,, t}], )}]},
{[VerticalEllipsis], [DescendingEllipsis], [VerticalEllipsis]},
{
RowBox[{
SubscriptBox[F,
RowBox[{
OverscriptBox[
SubscriptBox[x, n], .], ,
OverscriptBox[
SubscriptBox[x, 1], .]}]], (,
RowBox[{
RowBox[{x, (, t, )}], ,,
RowBox[{
OverscriptBox[x, .], (, t, )}], ,, t}], )}], ,
RowBox[{
SubscriptBox[F,
RowBox[{
OverscriptBox[
SubscriptBox[x, n], .], ,
OverscriptBox[
SubscriptBox[x, n], .]}]], (,
RowBox[{
RowBox[{x, (, t, )}], ,,
RowBox[{
OverscriptBox[x, .], (, t, )}], ,, t}], )}]}
}], )}]}], TraditionalForm]],
FontColor->RGBColor[0, 0, 1],ExpressionUUID->
c1c617fa-dbe6-4970-accd-4b9d8732ff07],
StyleBox[
:5b83:662f:6b63:5b9a:7684:6216:8d1f:7684:534a:5b9a
:ff08:6b63:5b9a:6216:6b63:7684:534a:5b9a:ff09:3002
t
:5145:5206:6761:4ef6:3002 :5bf9:4e8e:6240:6709 t [Epsilon] [,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
SubscriptBox[t, 0], TraditionalForm]],
FontColor->RGBColor[0, 0, 1],ExpressionUUID->
209e3305-fb9e-4a11-9259-36ba3f2bd76a],
StyleBox[, ,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
SubscriptBox[t, 1], TraditionalForm]],
FontColor->RGBColor[0, 0, 1],ExpressionUUID->
cf80d5b3-ac6a-4161-a28c-6482d253dd99],
StyleBox[] :9a8c:8bc1:77e9:9635
,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
SubscriptBox[F,
RowBox[{
RowBox[{(,
RowBox[{x,
OverscriptBox[x, .]}], )}],
RowBox[{(,
RowBox[{x,
OverscriptBox[x, .]}], )}]}]], (,
RowBox[{
RowBox[{
SubscriptBox[x, 1], (, t, )}], ,, , ,,
RowBox[{
SubscriptBox[x, n], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 1], (, t, )}], ,, , ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], n], (, t, )}], ,, t}], )}],
, =, [IndentingNewLine],
RowBox[{=,
RowBox[{(, GridBox[{
{
RowBox[{
SubscriptBox[F,
RowBox[{
SubscriptBox[x, 1], ,
SubscriptBox[x, 1]}]], (,
RowBox[{
RowBox[{x, (, t, )}], ,,
RowBox[{
OverscriptBox[x, .], (, t, )}], ,, t}], )}], ,
RowBox[{
SubscriptBox[F,
RowBox[{
SubscriptBox[x, 1], ,
SubscriptBox[x, n]}]],
RowBox[{(,
RowBox[{
RowBox[{x,
RowBox[{(, t, )}]}], ,,
RowBox[{
OverscriptBox[x, .],
RowBox[{(, t, )}]}], ,, t}], )}]}],
RowBox[{
SubscriptBox[F,
RowBox[{
SubscriptBox[x, 1], ,
OverscriptBox[
SubscriptBox[x, 1], .]}]],
RowBox[{(,
RowBox[{
RowBox[{x,
RowBox[{(, t, )}]}], ,,
RowBox[{
OverscriptBox[x, .],
RowBox[{(, t, )}]}], ,, t}], )}]}], ,
RowBox[{
SubscriptBox[F,
RowBox[{
SubscriptBox[x, 1], ,
OverscriptBox[
SubscriptBox[x, n], .]}]],
RowBox[{(,
RowBox[{
RowBox[{x,
RowBox[{(, t, )}]}], ,,
RowBox[{
OverscriptBox[x, .],
RowBox[{(, t, )}]}], ,, t}], )}]}]},
{[VerticalEllipsis], [DescendingEllipsis],
[VerticalEllipsis], [VerticalEllipsis],
[DescendingEllipsis], [VerticalEllipsis]},
{
RowBox[{
SubscriptBox[F,
RowBox[{
OverscriptBox[
SubscriptBox[x, n], .], ,
SubscriptBox[x, 1]}]], (,
RowBox[{
RowBox[{x, (, t, )}], ,,
RowBox[{
OverscriptBox[x, .], (, t, )}], ,, t}], )}], ,
RowBox[{
SubscriptBox[F,
RowBox[{
OverscriptBox[
SubscriptBox[x, n], .], ,
SubscriptBox[x, n]}]], (,
RowBox[{
RowBox[{x, (, t, )}], ,,
RowBox[{
OverscriptBox[x, .], (, t, )}], ,, t}], )}],
RowBox[{
SubscriptBox[F,
RowBox[{
OverscriptBox[
SubscriptBox[x, n], .], ,
OverscriptBox[
SubscriptBox[x, 1], .]}]],
RowBox[{(,
RowBox[{
RowBox[{x,
RowBox[{(, t, )}]}], ,,
RowBox[{
OverscriptBox[x, .],
RowBox[{(, t, )}]}], ,, t}], )}]}], ,
RowBox[{
SubscriptBox[F,
RowBox[{
OverscriptBox[
SubscriptBox[x, n], .], ,
OverscriptBox[
SubscriptBox[x, n], .]}]],
RowBox[{(,
RowBox[{
RowBox[{x,
RowBox[{(, t, )}]}], ,,
RowBox[{
OverscriptBox[x, .],
RowBox[{(, t, )}]}], ,, t}], )}]}]}
}], )}]}]}], TraditionalForm]],
FontColor->RGBColor[0, 0, 1],ExpressionUUID->
20d6f69b-3ad5-45c9-985f-55d4eeb7f02c],
StyleBox[
:5b83:662f:6b63:5b9a:7684:6216:8d1f:7684:534a:5b9a
:ff08:6b63:5b9a:6216:6b63:7684:534a:5b9a:ff09:3002
:6211:4eec
:5982:4f55:627e:5230,
FontColor->RGBColor[0, 0, 1]],
StyleBox[ x(t) = (,
FontWeight->Bold,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
StyleBox[
SubscriptBox[x, 1],
FontWeight->Bold,
FontColor->RGBColor[0, 0, 1]], TraditionalForm]],ExpressionUUID->
ce6d7e8a-a7b4-4ecf-870a-c366d2e164c2],
StyleBox[(t), , ,
FontWeight->Bold,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
StyleBox[
SubscriptBox[x, n],
FontWeight->Bold,
FontColor->RGBColor[0, 0, 1]], TraditionalForm]],ExpressionUUID->
fa9ae4d6-656a-4e29-9a4e-c724ae2a9601],
StyleBox[(t)) :5e76 :9a8c:8bc1:4ee5:4e0a:6240:6709:5185:5bb9:ff1f
,
FontWeight->Bold,
FontColor->RGBColor[0, 0, 1]],
StyleBox[
:6b65:9aa41-:6211:4eec:5bfb:627e:5fc5:8981:7684:6b27
:62c9:6761:4ef6:7684:5fae:5206:65b9:7a0b:7684:89e3:ff0c:8be5:6761
:4ef6:9a8c:8bc1:4e86:521d:59cb:6761:4ef6:548c:6700:7ec8:6761:4ef6
:3002 :ff08:4f8b:5982:ff0c:4f7f:7528DSolve:ff09:3002
:6b65:9aa42
:548c3:3002-:6211:4eec:770b:770b:6b65:9aa41:4e2d:83b7:5f97:7684
:89e3:51b3:65b9:6848:662f:5426:9a8c:8bc1:4e86:5fc5:8981:548c:5145
:5206:7684:62c9:683c:6717:65e5:6761:4ef6:3002 :ff08:4f8b:5982
:ff0c:6211:4eec:4f7f:7528PositiveDefiniteMatrixQ:ff09:3002
:6211
:4eec:4ece:51fd:6570:8ba1:7b97:77e9:9635 ,
FontColor->RGBColor[0, 0, 1]],
Cell[BoxData[
FormBox[
RowBox[{F, (,
RowBox[{
RowBox[{
SubscriptBox[x, 1], (, t, )}], ,,
RowBox[{
SubscriptBox[x, 2], (, t, )}], ,, , ,,
RowBox[{
SubscriptBox[x, n], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 1], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 2], (, t, )}], ,, , ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], n], (, t, )}], ,, t}], )}],
TraditionalForm]],
FontColor->RGBColor[0, 0, 1],ExpressionUUID->
e6187ebd-8029-4341-bc90-c99c91bcbf74],
StyleBox[ :5e76:4e14 :6211:4eec:5728:6b65:9aa41:4e2d:83b7:5f97
:7684:89e3:5bf9:5176:8fdb:884c:8bc4:4f30:3002:6211:4eec:83b7:5f97
t:7684:76f8:5173:77e9:9635:3002 :6211:4eec:770b:5230:5b83:4eec
:5bf9:4e8e:4e0b:6807[t:ff0c0]:548c:4e0b:6807[t:ff0c1]:4e4b:95f4
:7684:6240:6709t:662f:8d1f:ff08:6b63:ff09:5b9a:8fd8:662f:534a
:5b9a:3002 ,
FontColor->RGBColor[0, 0, 1]]
}], Section,
CellChangeTimes->{{3.817200881728973*^9, 3.817200921409487*^9}, {
3.817200971878495*^9, 3.817201091150765*^9}, 3.8172011338411303`*^9, {
3.819597755206192*^9, 3.819597802640832*^9}, {3.819771298796628*^9,
3.819771444685248*^9}, {3.819771489545629*^9, 3.819771492240012*^9}, {
3.819864449707823*^9, 3.8198645045464354`*^9}, {3.8198672436584187`*^9,
3.819867244156375*^9}, {3.819869093449439*^9, 3.819869095009832*^9}, {
3.819870562065694*^9, 3.819870598870105*^9}, {3.8198714957837763`*^9,
3.81987149612354*^9}, {3.8198715458550777`*^9, 3.819871556241169*^9}, {
3.81987205968849*^9, 3.819872060087903*^9}, 3.81987405661483*^9, {
3.819876925365471*^9, 3.8198770851315193`*^9}, 3.819877172150462*^9, {
3.8198772966748533`*^9, 3.819877404858596*^9}, {3.8198774378783484`*^9,
3.819877662280443*^9}, {3.8198776979178047`*^9, 3.819877754518136*^9},
3.819877852607432*^9, {3.819877889044113*^9, 3.819877909243535*^9}, {
3.819878002060999*^9, 3.8198780547829103`*^9}, {3.819878133845786*^9,
3.819878135658897*^9}, {3.8198791753669653`*^9, 3.819879176644911*^9}, {
3.81987957377249*^9, 3.819879655601418*^9}, {3.820065120242651*^9,
3.820065149362859*^9}, {3.820065196375762*^9, 3.8200652000822563`*^9}, {
3.820065288907792*^9, 3.82006532075235*^9}, {3.820065433612789*^9,
3.820065440258301*^9}, {3.8200654972548733`*^9, 3.820065571315331*^9}, {
3.820065629520011*^9, 3.820065746519677*^9}, {3.820065882375341*^9,
3.820065890729514*^9}, {3.820149534953415*^9, 3.820149541921431*^9}, {
3.8201496229485064`*^9, 3.8201496414450397`*^9}, {3.820149759664892*^9,
3.820150104419347*^9}, {3.820163612854485*^9, 3.8201636145346212`*^9}, {
3.8201682403959913`*^9, 3.820168257181389*^9}, 3.820169399884671*^9,
3.820170073731977*^9, {3.8201732672605*^9, 3.8201732672606707`*^9}, {
3.820289739310481*^9, 3.820289743453817*^9}, {3.8206730199897537`*^9,
3.820673157167601*^9}, {3.8206731995689707`*^9, 3.820673332280402*^9}, {
3.820673428817347*^9, 3.8206735798223763`*^9}, {3.820673862770445*^9,
3.820673907768141*^9}, {3.82067393888278*^9, 3.820673952428359*^9}, {
3.8206739990108643`*^9, 3.8206740603487988`*^9}, {3.820674099852577*^9,
3.820674556772933*^9}, {3.820674591584783*^9, 3.820674717510456*^9}, {
3.820674748784584*^9, 3.820674829959929*^9}, {3.8206748778873034`*^9,
3.820675038665572*^9}, {3.820675087801656*^9, 3.820675586764605*^9}, {
3.820675621641074*^9, 3.820675700417783*^9}, {3.8206757345527353`*^9,
3.820675813196856*^9}, {3.820678302053158*^9, 3.8206783117585897`*^9},
3.8206798491181707`*^9, 3.8206799041495028`*^9, {3.820683565440968*^9,
3.820683571080853*^9}, {3.820683626557125*^9, 3.820683785696706*^9}, {
3.820683819406172*^9, 3.8206839220944633`*^9}, {3.8206839529540586`*^9,
3.820683998300694*^9}, {3.8206857994910297`*^9, 3.82068597226221*^9}, {
3.820686843069919*^9, 3.820686861796937*^9}, {3.820691682072111*^9,
3.820691682881631*^9}, {3.820721942002515*^9, 3.820721956201913*^9}, {
3.8207240519860563`*^9, 3.82072407108545*^9}, {3.8207251663204193`*^9,
3.8207251666829443`*^9}, 3.820955934948271*^9, {3.820956478534778*^9,
3.820956531323358*^9}, {3.8209566889030313`*^9, 3.8209568728996897`*^9}, {
3.820957097479385*^9, 3.820957111577489*^9}, {3.820957143915786*^9,
3.820957169372243*^9}, {3.8209572025905657`*^9, 3.82095720434663*^9}, {
3.8209572423956957`*^9, 3.820957263705999*^9}, {3.820957358853178*^9,
3.820957380374864*^9}, {3.820957413210372*^9, 3.820957458531279*^9}},
FontSize->24,ExpressionUUID->131a7657-0c0d-43ef-828b-8cab14d118a7],
Cell[CellGroupData[{
Cell[TextData[{
:8ba9:6211:4eec:6765:89e3:51b3:8fd9:4e2a:7ec3:4e60:ff1a
t
:6700:5927:5316 t,
Cell[BoxData[
FormBox[
RowBox[{
SubsuperscriptBox[[Integral], 0, 1],
RowBox[{
RowBox[{(,
RowBox[{
SuperscriptBox[
OverscriptBox[
SubscriptBox[x, 1], .], 2], +,
SuperscriptBox[
OverscriptBox[
SubscriptBox[x, 2], .], 2], +,
RowBox[{2,
SubscriptBox[x, 1]}]}], )}], dt}]}], TraditionalForm]],
ExpressionUUID->c9efd2b1-66c1-44d7-9cec-0dac0e50b477],
t:670d:4ecet(,
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
RowBox[{
RowBox[{
SubscriptBox[x, 1], (, 0, )}], ,, ,
RowBox[{
SubscriptBox[x, 2], (, 0, )}]}], )}], , =, ,
RowBox[{(,
RowBox[{1, ,, 0}], )}]}], TraditionalForm]],ExpressionUUID->
af5452f2-c7a7-47c9-8336-256220bf74c5],
tt(,
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
RowBox[{
RowBox[{
SubscriptBox[x, 1], (, 1, )}], ,, ,
RowBox[{
SubscriptBox[x, 2], (, 1, )}]}], )}], , =, ,
RowBox[{(,
RowBox[{
FractionBox[3, 2], ,, 1}], )}]}], TraditionalForm]],
ExpressionUUID->526b63db-3b42-40de-9c3d-f81d09fdb0cf]
}], Subsection,
CellChangeTimes->{{3.820678374302223*^9, 3.820678608120102*^9}, {
3.8209575172521257`*^9,
3.820957536967799*^9}},ExpressionUUID->57e03a57-b844-4dad-b005-
790d729eb6d6],
Cell[CellGroupData[{
Cell[:6211:4eec:5b9a:4e49:65b9:7a0b, Subsubsection,
CellChangeTimes->{{3.820676154462212*^9, 3.8206761831956778`*^9}, {
3.8206786175105257`*^9, 3.820678628483739*^9}, {3.820957550108878*^9,
3.820957553572344*^9}},ExpressionUUID->76198bc1-9174-4283-8f02-
0fa081ef8d96],
Cell[BoxData[{
RowBox[{
RowBox[{F, [,
RowBox[{x1_, ,, x2_, ,, y1_, ,, y2_, ,, t_}], ]}], :=,
RowBox[{
RowBox[{
RowBox[{(, y1, )}], ^, 2}], +,
RowBox[{
RowBox[{(, y2, )}], ^, 2}], +,
RowBox[{2, x1}]}]}], [IndentingNewLine],
RowBox[{F, [,
RowBox[{
RowBox[{x1, [, t, ]}], ,,
RowBox[{x2, [, t, ]}], ,,
RowBox[{
RowBox[{x1, }], [, t, ]}], ,,
RowBox[{
RowBox[{x2, }], [, t, ]}], ,, t}], ]}]}], Input,
CellChangeTimes->{{3.820171198667041*^9, 3.8201712594523993`*^9}, {
3.820172133182332*^9, 3.8201721705005713`*^9}, {3.820172552588831*^9,
3.820172594062394*^9}, 3.820172630208955*^9, 3.820172802030273*^9, {
3.8201733920635967`*^9, 3.8201734425431213`*^9}, {3.820174408048565*^9,
3.820174426897347*^9}, {3.820250339247312*^9, 3.820250367955311*^9}, {
3.820587073540884*^9, 3.820587080851606*^9}, {3.820676032041382*^9,
3.820676079943347*^9}, {3.820676188379655*^9, 3.820676239552796*^9}},
CellLabel->In[16]:=,ExpressionUUID->d2b28229-210c-484d-b8f8-fa1a3ebbcfef]
}, Open]],
Cell[CellGroupData[{
Cell[TextData[{
:6b27:62c9:7684:5fc5:8981:6761:4ef6:3002 :5bf9:4e8e:6240:6709 t
[Epsilon] [,
Cell[BoxData[
FormBox[
SubscriptBox[t, 0], TraditionalForm]],ExpressionUUID->
2b0a7256-362d-450a-ba30-f54904033878],
, ,
Cell[BoxData[
FormBox[
SubscriptBox[t, 1], TraditionalForm]],ExpressionUUID->
49f1139a-59ba-4657-8d93-7659886aa42f],
] :5df2:9a8c:8bc1:ff1a
t,
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
SubscriptBox[F,
SubscriptBox[x, 1]], (,
RowBox[{
RowBox[{
SubscriptBox[x, 1], (, t, )}], ,,
RowBox[{
SubscriptBox[x, 2], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 1], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 2], (, t, )}], ,, t}], )}],
}], TraditionalForm]],ExpressionUUID->
434acbbe-b6cd-4124-9148-98f38d04cf94],
-,
Cell[BoxData[
FormBox[
FractionBox[[DifferentialD],
RowBox[{[DifferentialD], t}]], TraditionalForm]],ExpressionUUID->
bb5a16cb-24e6-4f99-8e98-08c7c7474148],
(,
Cell[BoxData[
FormBox[
RowBox[{
SubscriptBox[F,
OverscriptBox[
SubscriptBox[x, 1], .]], (,
RowBox[{
RowBox[{
SubscriptBox[x, 1], (, t, )}], ,,
RowBox[{
SubscriptBox[x, 2], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 1], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 2], (, t, )}], ,, t}], )}],
TraditionalForm]],ExpressionUUID->ca37bbd1-da3f-4b5d-bf92-12da0f8ead73],
) = 0
t,
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
SubscriptBox[F,
SubscriptBox[x, 2]], (,
RowBox[{
RowBox[{
SubscriptBox[x, 1], (, t, )}], ,,
RowBox[{
SubscriptBox[x, 2], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 1], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 2], (, t, )}], ,, t}], )}],
}], TraditionalForm]],ExpressionUUID->
4688da25-1b1b-4302-bda2-fc0e9b9028c4],
-,
Cell[BoxData[
FormBox[
FractionBox[[DifferentialD],
RowBox[{[DifferentialD], t}]], TraditionalForm]],ExpressionUUID->
eb258693-43b9-4925-9c62-59c0bf5d03ec],
(,
Cell[BoxData[
FormBox[
RowBox[{
SubscriptBox[F,
OverscriptBox[
SubscriptBox[x, 2], .]], (,
RowBox[{
RowBox[{
SubscriptBox[x, 1], (, t, )}], ,,
RowBox[{
SubscriptBox[x, 2], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 1], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 2], (, t, )}], ,, t}], )}],
TraditionalForm]],ExpressionUUID->2b6c6589-e61d-4c3e-a975-cb221a8d688f],
) = 0
}], Subsubsection,
CellChangeTimes->{{3.820676271519905*^9, 3.8206763593667803`*^9}, {
3.820957574923284*^9,
3.820957612531424*^9}},ExpressionUUID->94da8189-7484-42c8-809e-
72f6a4684a6a],
Cell[BoxData[
RowBox[{
RowBox[{(*, ,
RowBox[{
RowBox[{para, , i}], =, 1}], , *)}],
[IndentingNewLine],
RowBox[{
RowBox[{dfx1, =,
RowBox[{D, [,
RowBox[{
RowBox[{F, [,
RowBox[{
RowBox[{x1, [, t, ]}], ,,
RowBox[{x2, [, t, ]}], ,,
RowBox[{
RowBox[{x1, }], [, t, ]}], ,,
RowBox[{
RowBox[{x2, }], [, t, ]}], ,, t}], ]}], ,,
RowBox[{x1, [, t, ]}]}], ]}]}], ,
RowBox[{(*, ,
StyleBox[
RowBox[{:6216:76f4:63a5, ,
RowBox[{D, [,
RowBox[{
RowBox[{
RowBox[{
RowBox[{(,
RowBox[{
RowBox[{x1, }], [, t, ]}], )}], ^, 2}], , +,
,
RowBox[{
RowBox[{(,
RowBox[{
RowBox[{x2, }], [, t, ]}], )}], ^, 2}], , +,
,
RowBox[{2, *,
RowBox[{x1, [, t, ]}]}]}], ,, ,
RowBox[{x1, [, t, ]}]}], ]}]}],
FontSize->16],
StyleBox[ ,
FontSize->16], , *)}], [IndentingNewLine],
RowBox[{dfx1p, =,
RowBox[{D, [,
RowBox[{
RowBox[{F, [,
RowBox[{
RowBox[{x1, [, t, ]}], ,,
RowBox[{x2, [, t, ]}], ,,
RowBox[{
RowBox[{x1, }], [, t, ]}], ,,
RowBox[{
RowBox[{x2, }], [, t, ]}], ,, t}], ]}], ,,
RowBox[{
RowBox[{x1, }], [, t, ]}]}], ]}]}], ,
RowBox[{(*, ,
RowBox[{:6216:76f4:63a5, ,
RowBox[{D, [,
RowBox[{
RowBox[{
RowBox[{
RowBox[{(,
RowBox[{
RowBox[{x1, }], [, t, ]}], )}], ^, 2}], , +,
,
RowBox[{
RowBox[{(,
RowBox[{
RowBox[{x2, }], [, t, ]}], )}], ^, 2}], , +,
,
RowBox[{2, *,
RowBox[{x1, [, t, ]}]}]}], ,, ,
RowBox[{
RowBox[{x1, }], [, t, ]}]}], ]}]}], , , *)}],
[IndentingNewLine],
RowBox[{dfx1pt, =,
RowBox[{D, [,
RowBox[{dfx1p, ,, t}], ]}]}], [IndentingNewLine],
RowBox[{
RowBox[{dfx1, -, dfx1pt}], ==, 0}], ,
RowBox[{(*, ,
RowBox[{
RowBox[{:8fd9:4e2a:6761:4ef6:662f:4e3a:4e86,
StyleBox[ ,
FontWeight->Bold,
FontColor->RGBColor[0.6, 0.4, 0.2]],
StyleBox[i,
FontWeight->Bold,
FontColor->RGBColor[0.6, 0.4, 0.2]]}],
StyleBox[=,
FontWeight->Bold,
FontColor->RGBColor[0.6, 0.4, 0.2]],
StyleBox[1,
FontWeight->Bold,
FontColor->RGBColor[0.6, 0.4, 0.2]]}], , *)}],
[IndentingNewLine],
RowBox[{(*, ,
RowBox[{
RowBox[{:4e3a:4e86, , i}], =, 2}], , *)}],
[IndentingNewLine],
RowBox[{dfx2, =,
RowBox[{D, [,
RowBox[{
RowBox[{F, [,
RowBox[{
RowBox[{x1, [, t, ]}], ,,
RowBox[{x2, [, t, ]}], ,,
RowBox[{
RowBox[{x1, }], [, t, ]}], ,,
RowBox[{
RowBox[{x2, }], [, t, ]}], ,, t}], ]}], ,,
RowBox[{x2, [, t, ]}]}], ]}]}], ,
RowBox[{(*, ,
RowBox[{:6216:76f4:63a5, ,
RowBox[{D, [,
RowBox[{
RowBox[{
RowBox[{
RowBox[{(,
RowBox[{
RowBox[{x1, }], [, t, ]}], )}], ^, 2}], , +,
,
RowBox[{
RowBox[{(,
RowBox[{
RowBox[{x2, }], [, t, ]}], )}], ^, 2}], , +,
,
RowBox[{2, *,
RowBox[{x1, [, t, ]}]}]}], ,, ,
RowBox[{x2, [, t, ]}]}], ]}]}], , , *)}],
[IndentingNewLine],
RowBox[{dfx2p, =,
RowBox[{D, [,
RowBox[{
RowBox[{F, [,
RowBox[{
RowBox[{x1, [, t, ]}], ,,
RowBox[{x2, [, t, ]}], ,,
RowBox[{
RowBox[{x1, }], [, t, ]}], ,,
RowBox[{
RowBox[{x2, }], [, t, ]}], ,, t}], ]}], ,,
RowBox[{
RowBox[{x2, }], [, t, ]}]}], ]}]}], ,
RowBox[{(*, ,
RowBox[{:6216:76f4:63a5, ,
RowBox[{D, [,
RowBox[{
RowBox[{
RowBox[{
RowBox[{(,
RowBox[{
RowBox[{x1, }], [, t, ]}], )}], ^, 2}], , +,
,
RowBox[{
RowBox[{(,
RowBox[{
RowBox[{x2, }], [, t, ]}], )}], ^, 2}], , +,
,
RowBox[{2, *,
RowBox[{x1, [, t, ]}]}]}], ,, ,
RowBox[{
RowBox[{x2, }], [, t, ]}]}], ]}]}], , , *)}],
[IndentingNewLine],
RowBox[{dfx2pt, =,
RowBox[{D, [,
RowBox[{dfx2p, ,, t}], ]}]}], [IndentingNewLine],
RowBox[{
RowBox[{dfx2, -, dfx2pt}], ==, 0, ,
RowBox[{(*, ,
StyleBox[
RowBox[{
RowBox[{:8fd9:4e2a:6761:4ef6:662f:4e3a:4e86, , i}], =,
2}],
FontWeight->Bold,
FontColor->RGBColor[0.6, 0.4, 0.2]], , *)}]}]}]}]], Input,
CellChangeTimes->{{3.820676480586906*^9, 3.8206765231372213`*^9}, {
3.820676580194697*^9, 3.820676728208047*^9}, {3.820676764319441*^9,
3.8206769874169893`*^9}, {3.820677253835836*^9, 3.8206772583524227`*^9}, {
3.8206773490415077`*^9, 3.82067740745492*^9}, {3.8206781008817167`*^9,
3.820678101897663*^9}, {3.820680336490818*^9, 3.820680422824914*^9}, {
3.8209576412061653`*^9,
3.820957713874213*^9}},ExpressionUUID->1aef8f1c-41e2-4586-b2dd-
4ce9b09f6ff4],
Cell[BoxData[
RowBox[{(*, ,
StyleBox[
RowBox[{
:4e24:8005:53ef:4ee5:540c:65f6:5b8c:6210:5417, :ff1f}],
FontSize->16], , *)}]], Input,
CellChangeTimes->{{3.820680334749338*^9, 3.820680362492599*^9},
3.820957756921063*^9},ExpressionUUID->61eee88a-2dd7-4a0f-b245-
e2ac19ea03f3]
}, Open]],
Cell[CellGroupData[{
Cell[TextData[{
:521d:59cb:6761:4ef6:548c:6700:7ec8:6761:4ef6:ff1a
tx(,
Cell[BoxData[
FormBox[
SubscriptBox[t, 0], TraditionalForm]],ExpressionUUID->
1d0683f7-6cd4-4adf-ab5f-d288f28bbcd7],
) = ,
Cell[BoxData[
FormBox[
RowBox[{(,
RowBox[{
FormBox[
SuperscriptBox[
SubscriptBox[x, 1], 0],
TraditionalForm], ,,
FormBox[
SuperscriptBox[
SubscriptBox[x, 2], 0],
TraditionalForm]}], )}], TraditionalForm]],ExpressionUUID->
88e1251d-7430-4285-8606-a9e941bc7cd9],
tx(,
Cell[BoxData[
FormBox[
SubscriptBox[t, 1], TraditionalForm]],ExpressionUUID->
3d9e293b-260a-488b-a989-3ddc1e68a719],
) =,
Cell[BoxData[
FormBox[
RowBox[{ ,
RowBox[{(,
RowBox[{
FormBox[
SuperscriptBox[
SubscriptBox[x, 1], 1],
TraditionalForm], ,,
FormBox[
SuperscriptBox[
SubscriptBox[x, 2], 1],
TraditionalForm]}], )}]}], TraditionalForm]],ExpressionUUID->
e928e01d-8165-4316-b277-5bc6c8f04694]
}], Subsubsection,
CellChangeTimes->{
3.8206770435632763`*^9, {3.820678224349848*^9, 3.820678232015733*^9}, {
3.820682178298421*^9, 3.820682188493539*^9},
3.8209577805962143`*^9},ExpressionUUID->c826b3c7-aae3-4180-8317-
dc1d9d2613c3],
Cell[BoxData[
RowBox[{
RowBox[{(*, ,
RowBox[{
RowBox[{para, , i}], =, 1}], , *)}],
[IndentingNewLine],
RowBox[{
RowBox[{
RowBox[{x1, [, 0, ]}], ==, 1}], ,
RowBox[{(*, ,
StyleBox[
RowBox[{
RowBox[{
RowBox[{
RowBox[{o, , :540c:6837, ,
RowBox[{x1, [, t, ]}]}], , ==, , 1}], , /.,
,
RowBox[{t, , ->, , 0}]}], ,, ,
:56e0:4e3a:5b83:9002:5408:6211:4eec}],
FontSize->16], , *)}], [IndentingNewLine],
RowBox[{
RowBox[{
RowBox[{x1, [, t, ]}], ==, 1}], , /., ,
RowBox[{t, , ->, , 0}]}], [IndentingNewLine],
RowBox[{
RowBox[{x1, [, 1, ]}], ==,
RowBox[{3, /, 2}]}], ,
RowBox[{(*, ,
RowBox[{
RowBox[{
RowBox[{
RowBox[{o, , :540c:6837, ,
RowBox[{x1, [, t, ]}]}], , ==, ,
RowBox[{3, /, 2}]}], , /., ,
RowBox[{t, , ->, , 1}]}], ,, ,
:56e0:4e3a:5b83:9002:5408:6211:4eec}], *)}],
[IndentingNewLine],
RowBox[{(*, ,
RowBox[{
RowBox[{para, , i}], =, 2}], , *)}],
[IndentingNewLine],
RowBox[{
RowBox[{x2, [, 0, ]}], ==, 0}], ,
RowBox[{(*, ,
RowBox[{
RowBox[{
RowBox[{
RowBox[{o, , :540c:6837, ,
RowBox[{x2, [, t, ]}]}], , ==, , 0}], , /.,
,
RowBox[{t, , ->, , 0}]}], ,, ,
:56e0:4e3a:5b83:9002:5408:6211:4eec}], , *)}],
[IndentingNewLine],
RowBox[{
RowBox[{x2, [, 1, ]}], ==, 1, ,
RowBox[{(*, ,
RowBox[{
RowBox[{
RowBox[{
RowBox[{o, , :540c:6837, ,
RowBox[{x2, [, t, ]}]}], , ==, , 1}], , /.,
,
RowBox[{t, , ->, , 1}]}], ,, ,
:56e0:4e3a:5b83:9002:5408:6211:4eec}], ,
*)}]}]}]}]], Input,
CellChangeTimes->{{3.8206771209278297`*^9, 3.820677226904183*^9}, {
3.820677274341434*^9, 3.820677282191557*^9}, {3.82067742591891*^9,
3.820677480813656*^9}, {3.820677862069108*^9, 3.820677935077898*^9}, {
3.8206779735869417`*^9, 3.820678116921832*^9}, {3.820957789214396*^9,
3.820957856549262*^9}},ExpressionUUID->f87c516c-aae0-4a6e-904b-
51b75588844a],
Cell[BoxData[
RowBox[{(*, ,
RowBox[{
StyleBox[
RowBox[{:662f,
StyleBox[
:5426:53ef:4ee5:540c:65f6:4f7f:7528:4e24:4e2a:5efa:8bae
:7684:9009:9879:6765:5b8c:6210,
FontSize->16]}]],
StyleBox[:ff1f,
FontSize->16]}], , *)}]], Input,
CellChangeTimes->{{3.8206804585782824`*^9, 3.8206804754743643`*^9}, {
3.820957930021645*^9,
3.820957936935807*^9}},ExpressionUUID->781d48ac-4ea4-4303-91c7-
212d2610015f],
Cell[BoxData[{
RowBox[{
RowBox[{solucionEcEu, =,
RowBox[{DSolve, [,
RowBox[{
RowBox[{
RowBox[{
RowBox[{dfx1, -, dfx1pt}], ==, 0}], , &&, ,
RowBox[{
RowBox[{dfx2, -, dfx2pt}], ==, 0}], , &&, ,
RowBox[{
RowBox[{x1, [, 0, ]}], ==, 1}], , &&, ,
RowBox[{
RowBox[{x1, [, 1, ]}], ==,
RowBox[{3, /, 2}]}], , &&, ,
RowBox[{
RowBox[{x2, [, 0, ]}], ==, 0}], , &&, ,
RowBox[{
RowBox[{x2, [, 1, ]}], ==, 1}]}], ,, ,
RowBox[{{,
RowBox[{
RowBox[{x1, [, t, ]}], ,, ,
RowBox[{x2, [, t, ]}]}], }}], ,, , t}], ]}]}], ,
RowBox[{(*, ,
StyleBox[:6b65:9aa4:4e00,
FontSize->24,
FontWeight->Bold,
FontColor->RGBColor[1, 0, 0]], , *)}]}], [IndentingNewLine],
RowBox[{
RowBox[{(*, ,
RowBox[{
RowBox[{:540c:6837,
StyleBox[ ,
FontSize->16],
StyleBox[
RowBox[{DSolve, [,
RowBox[{
RowBox[{{,
RowBox[{
RowBox[{
RowBox[{dfx1, -, dfx1pt}], ==, 0}], ,, ,
RowBox[{
RowBox[{dfx2, -, dfx2pt}], ==, 0}], ,, ,
RowBox[{
RowBox[{x1, [, 0, ]}], ==, 1}], ,, ,
RowBox[{
RowBox[{x1, [, 1, ]}], ==,
RowBox[{3, /, 2}]}], ,, ,
RowBox[{
RowBox[{x2, [, 0, ]}], ==, 0}], ,, ,
RowBox[{
RowBox[{x2, [, 1, ]}], ==, 1}]}], }}], ,, ,
RowBox[{{,
RowBox[{
RowBox[{x1, [, t, ]}], ,, ,
RowBox[{x2, [, t, ]}]}], }}], ,, , t}], ]}],
FontSize->16]}],
StyleBox[,,
FontSize->16],
StyleBox[ ,
FontSize->16],
StyleBox[
RowBox[{
RowBox[{:6211:4eec:6700:559c:6b22:7684, ., , O}], ,
incluso, ,
RowBox[{DSolve, [,
RowBox[{
RowBox[{
RowBox[{{,
RowBox[{
RowBox[{dfx1, -, dfx1pt}], ,, ,
RowBox[{dfx2, -, dfx2pt}], ,, ,
RowBox[{x1, [, 0, ]}], ,, ,
RowBox[{x1, [, 1, ]}], ,, ,
RowBox[{x2, [, 0, ]}], ,, ,
RowBox[{x2, [, 1, ]}]}], }}], , [Equal], ,
RowBox[{{,
RowBox[{0, ,, 0, ,, 1, ,,
RowBox[{3, /, 2}], ,, 0, ,, 1}], }}]}], ,, ,
RowBox[{{,
RowBox[{
RowBox[{x1, [, t, ]}], ,, ,
RowBox[{x2, [, t, ]}]}], }}], ,, , t}], ]}], ,
:62163:7684:6df7:5408}],
FontSize->16]}], , *)}]}]}], Input,
CellChangeTimes->{{3.820676467670429*^9, 3.820676477890044*^9}, {
3.820681064440233*^9, 3.820681087403254*^9}, {3.820681349985221*^9,
3.820681405254566*^9}, {3.8206815236875277`*^9, 3.82068153753932*^9}, {
3.820684107982387*^9, 3.820684117456483*^9}, {3.820684578163363*^9,
3.820684623187128*^9}, {3.820719695790457*^9, 3.8207198879107037`*^9}, {
3.820719980620525*^9, 3.820719996809572*^9}, {3.820720031343834*^9,
3.820720033938594*^9}, {3.8207204731704617`*^9, 3.820720488987903*^9}, {
3.820721535866868*^9, 3.8207215925699883`*^9}, {3.820957947175597*^9,
3.820957971556332*^9},
3.82095803376728*^9},ExpressionUUID->2316eaed-d100-47c1-9e10-
93f9abab3201],
Cell[BoxData[
RowBox[{DSolve, [,
RowBox[{
RowBox[{{,
RowBox[{
RowBox[{
RowBox[{dfx1, -, dfx1pt}], ==, 0}], ,, ,
RowBox[{
RowBox[{dfx2, -, dfx2pt}], ==, 0}], ,, ,
RowBox[{
RowBox[{x1, [, 0, ]}], ==, 1}], ,, ,
RowBox[{
RowBox[{x1, [, 1, ]}], ==,
RowBox[{3, /, 2}]}], ,, ,
RowBox[{
RowBox[{x2, [, 0, ]}], ==, 0}], ,, ,
RowBox[{
RowBox[{x2, [, 1, ]}], ==, 1}]}], }}], ,,
RowBox[{{,
RowBox[{
RowBox[{x1, [, t, ]}], ,, ,
RowBox[{x2, [, t, ]}]}], }}], ,, t}], ]}]], Input,
CellChangeTimes->{{3.820719927637171*^9, 3.820719945964595*^9}},
CellLabel->In[34]:=,ExpressionUUID->be6fa906-1ffb-4398-b42e-79a264a2c0ef],
Cell[BoxData[
RowBox[{DSolve, [,
RowBox[{
RowBox[{
RowBox[{{,
RowBox[{
RowBox[{dfx1, -, dfx1pt}], ,, ,
RowBox[{dfx2, -, dfx2pt}], ,, ,
RowBox[{x1, [, 0, ]}], ,, ,
RowBox[{x1, [, 1, ]}], ,, ,
RowBox[{x2, [, 0, ]}], ,, ,
RowBox[{x2, [, 1, ]}]}], }}], [Equal],
RowBox[{{,
RowBox[{0, ,, 0, ,, 1, ,,
RowBox[{3, /, 2}], ,, 0, ,, 1}], }}]}], ,,
RowBox[{{,
RowBox[{
RowBox[{x1, [, t, ]}], ,, ,
RowBox[{x2, [, t, ]}]}], }}], ,, t}], ]}]], Input,
CellChangeTimes->{{3.8207199297712517`*^9, 3.820719949162763*^9}},
CellLabel->In[35]:=,ExpressionUUID->dab611e7-0f08-4b96-8d87-139be333b5dd],
Cell[BoxData[
RowBox[{
RowBox[{
solucionEcEu:662f:53ef:80fd:7684:89e3:51b3:65b9:6848:7684:5217
:8868, :ff0c, :56e0:4e3a:53ea:67091:4e2a,
StyleBox[,,
FontSize->16],
StyleBox[ ,
FontSize->16],
RowBox[{
StyleBox[
RowBox[{solucionEcEu, [,
RowBox[{[, 1, ]}], ]}],
FontSize->16],
StyleBox[ ,
FontSize->16],
StyleBox[:662f,
FontSize->16],
StyleBox[
RowBox[{{,
RowBox[{
RowBox[{
RowBox[{x1, [, t, ]}], [Rule],
RowBox[{
FractionBox[1, 2], ,
RowBox[{(,
RowBox[{2, +,
SuperscriptBox[t, 2]}], )}]}]}], ,,
RowBox[{
RowBox[{x2, [, t, ]}], [Rule], t}]}], }}],
FontSize->16],
StyleBox[ ,
FontSize->16], :662f:6211:4eec:611f:5174:8da3:7684}]}],
*)}]], Input,
CellChangeTimes->{{3.820685068797776*^9, 3.8206851972183*^9}, {
3.820958067732493*^9, 3.820958094092142*^9}, {3.820958130362143*^9,
3.820958145660549*^9}},ExpressionUUID->cd119ef3-e732-4a1e-bd76-
12c9cbde4658]
}, Open]],
Cell[CellGroupData[{
Cell[TextData[{
:52d2:8ba9:5fb7:7684:5fc5:8981:6761:4ef6:3002:5982:679c:6240
:6709t [Epsilon] [,
Cell[BoxData[
FormBox[
SubscriptBox[t, 0], TraditionalForm]],ExpressionUUID->
138da483-0999-4aeb-979f-16fccef8638e],
, ,
Cell[BoxData[
FormBox[
SubscriptBox[t, 1], TraditionalForm]],ExpressionUUID->
979150f3-b5df-4589-86ae-5e0f25f88c06],
] :68c0:9a8c:77e9:9635
,
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
SubscriptBox[F,
RowBox[{
OverscriptBox[x, .], ,
OverscriptBox[x, .]}]], (,
RowBox[{
RowBox[{
SubscriptBox[x, 1], (, t, )}], ,,
RowBox[{
SubscriptBox[x, 2], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 1], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 2], (, t, )}], ,, t}], )}],
, =,
RowBox[{(, GridBox[{
{
RowBox[{
SubscriptBox[F,
RowBox[{
OverscriptBox[
SubscriptBox[x, 1], .], ,
OverscriptBox[
SubscriptBox[x, 1], .]}]], (,
RowBox[{
RowBox[{
SubscriptBox[x, 1], (, t, )}], ,,
RowBox[{
SubscriptBox[x, 2], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 1], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 2], (, t, )}], ,, t}], )}],
RowBox[{
SubscriptBox[F,
RowBox[{
OverscriptBox[
SubscriptBox[x, 1], .], ,
OverscriptBox[
SubscriptBox[x, 2], .]}]], (,
RowBox[{
RowBox[{
SubscriptBox[x, 1], (, t, )}], ,,
RowBox[{
SubscriptBox[x, 2], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 1], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 2], (, t, )}], ,, t}], )}]},
{
RowBox[{
SubscriptBox[F,
RowBox[{
OverscriptBox[
SubscriptBox[x, 2], .], ,
OverscriptBox[
SubscriptBox[x, 1], .]}]], (,
RowBox[{
RowBox[{
SubscriptBox[x, 1], (, t, )}], ,,
RowBox[{
SubscriptBox[x, 2], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 1], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 2], (, t, )}], ,, t}], )}],
RowBox[{
SubscriptBox[F,
RowBox[{
OverscriptBox[
SubscriptBox[x, 2], .], ,
OverscriptBox[
SubscriptBox[x, 2], .]}]], (,
RowBox[{
RowBox[{
SubscriptBox[x, 1], (, t, )}], ,,
RowBox[{
SubscriptBox[x, 2], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 1], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 2], (, t, )}], ,, t}],
)}]}
}], )}]}], TraditionalForm]], Subsection,ExpressionUUID->
51642c66-3ee7-4e41-aea2-e0179fbe736b],
:4ed6:662f:6b63:5b9a:6216:8005:8d1f:7684:534a:5b9a
}], Subsubsection,
CellChangeTimes->{
3.820677110646001*^9, {3.8206781517655687`*^9, 3.8206781684352417`*^9}, {
3.820678239247151*^9, 3.8206782791774473`*^9}, {3.820685425386841*^9,
3.8206854269073343`*^9}, 3.820958173798579*^9, {3.820958205678205*^9,
3.820958260861163*^9}},ExpressionUUID->61e4c654-654f-4f36-a4f2-
c8569a9f49b5],
Cell[BoxData[{
RowBox[{dfx1px1p, , =,
RowBox[{D, [,
RowBox[{dfx1p, ,,
RowBox[{
RowBox[{x1, }], [, t, ]}]}], ]}]}], [IndentingNewLine],
RowBox[{dfx1px2p, , =, ,
RowBox[{D, [,
RowBox[{dfx1p, ,,
RowBox[{
RowBox[{x2, }], [, t, ]}]}], ]}]}], [IndentingNewLine],
RowBox[{dfx2px1p, , =, ,
RowBox[{D, [,
RowBox[{dfx2p, ,,
RowBox[{
RowBox[{x1, }], [, t, ]}]}], ]}]}], [IndentingNewLine],
RowBox[{dfx2px2p, , =, ,
RowBox[{D, [,
RowBox[{dfx2p, ,, ,
RowBox[{
RowBox[{x2, }], [, t, ]}]}], ]}]}], [IndentingNewLine],
RowBox[{matrizLegendre, =,
RowBox[{{,
RowBox[{
RowBox[{{,
RowBox[{dfx1px1p, ,, , dfx1px2p}], }}], ,,
RowBox[{{,
RowBox[{dfx2px1p, ,, dfx2px2p}], }}]}], }}]}]}], Input,
CellChangeTimes->{
3.820678720722122*^9, {3.82067879906155*^9, 3.820678998787842*^9}, {
3.8206791130205183`*^9, 3.820679174511094*^9}, {3.820680657110997*^9,
3.820680668399428*^9}, 3.820680700243775*^9},
CellLabel->In[37]:=,ExpressionUUID->663187ca-3c4b-4ce1-93e0-1098b6edd0b6],
Cell[BoxData[
RowBox[{
RowBox[{(*, ,
StyleBox[
RowBox[{
:77e9:9635:6240:9700:76844:4e2a:5bfc:6570:662f:5426:53ef:4ee5
:7528:4e00:4e2a:8ba2:5355:751f:6210, :ff1f}],
FontSize->16], , *)}], }]], Input,
CellChangeTimes->{{3.820680706047986*^9, 3.820680824839057*^9}, {
3.8206846516043262`*^9, 3.820684652636174*^9},
3.820958327632271*^9},ExpressionUUID->ff164f55-7f55-44c6-98be-
c45262a5a224],
Cell[BoxData[
RowBox[{matrizLegendre2, , =,
RowBox[{matrizLegendre, , /.,
RowBox[{solucionEcEu, [,
RowBox[{[, 1, ]}], ]}], ,
RowBox[{(*, ,
RowBox[{
StyleBox[
RowBox[{
la, , matriz, , de, , Legendre, , evaluada, ,
en, ,
RowBox[{x1, [, t, ]}]}],
FontSize->16],
StyleBox[,,
FontSize->16],
StyleBox[ ,
FontSize->16],
StyleBox[
RowBox[{x2, [, t, ]}],
FontSize->16],
StyleBox[,,
FontSize->16],
RowBox[{
StyleBox[,
FontSize->16],
StyleBox[ ,
FontSize->16],
RowBox[{
StyleBox[:4e0a:8ff0:89e3:51b3:65b9:6848,
FontSize->16],
StyleBox[.,
FontSize->16],
StyleBox[ ,
FontSize->16],
:5b83:662f:6240:6709t:7684:5e38:6570:77e9:9635}]}]}],
*)}]}]}]], Input,
CellChangeTimes->{{3.820681554747373*^9, 3.8206815602542562`*^9}, {
3.820681761154562*^9, 3.820681815104191*^9}, {3.820681907787921*^9,
3.820682035760227*^9}, {3.8206841642185926`*^9, 3.820684168009575*^9}, {
3.8206849549459476`*^9, 3.820684982331181*^9}, {3.82068501351586*^9,
3.820685014640051*^9}, {3.820685616988566*^9, 3.8206856600946503`*^9}, {
3.820686013536788*^9, 3.8206860201956263`*^9}, {3.820958349658012*^9,
3.820958361179536*^9}},ExpressionUUID->3df2663c-8bb8-4bd1-8800-
27d4cfcba356],
Cell[BoxData[{
RowBox[{PositiveDefiniteMatrixQ, [, matrizLegendre2,
]}], [IndentingNewLine],
RowBox[{
RowBox[{PositiveSemidefiniteMatrixQ, [, matrizLegendre2, ]}], ,
RowBox[{(*, :7b2c:4e8c:90e8, *)}]}]}], Input,
CellChangeTimes->{{3.8206819015837107`*^9, 3.820681904173092*^9},
3.820681934321081*^9, 3.820682052171298*^9, {3.820684664233609*^9,
3.8206846680949717`*^9}, {3.820684932164666*^9, 3.820684937801443*^9}, {
3.8206852295652027`*^9, 3.820685239475527*^9}, {3.820685454407723*^9,
3.820685463111816*^9}, {3.820685733333601*^9, 3.820685738658203*^9}, {
3.820686029448394*^9, 3.820686030425474*^9}, {3.8207218333703117`*^9,
3.820721835276466*^9}, 3.820721868779636*^9,
3.8209583795186043`*^9},ExpressionUUID->173d35fc-1180-4950-91eb-
aaf230a68054]
}, Open]]
}, Open]],
Cell[CellGroupData[{
Cell[TextData[{
:5145:5206:6761:4ef6. :5bf9:4e8e:6240:6709t [Epsilon] [,
Cell[BoxData[
FormBox[
SubscriptBox[t, 0], TraditionalForm]],ExpressionUUID->
7f251f7e-21bf-4eec-867c-aed8c736dade],
, ,
Cell[BoxData[
FormBox[
SubscriptBox[t, 1], TraditionalForm]],ExpressionUUID->
1b64a699-1acd-4e9d-b7a5-216e4e43e8fb],
] :90fd:53ef:4ee5:9a8c:8bc1:77e9:9635
,
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{
SubscriptBox[F,
RowBox[{
RowBox[{(,
RowBox[{x,
OverscriptBox[x, .]}], )}],
RowBox[{(,
RowBox[{x,
OverscriptBox[x, .]}], )}]}]], (,
RowBox[{
RowBox[{
SubscriptBox[x, 1], (, t, )}], ,, , ,,
RowBox[{
SubscriptBox[x, n], (, t, )}], ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], 1], (, t, )}], ,, , ,,
RowBox[{
SubscriptBox[
OverscriptBox[x, .], n], (, t, )}], ,, t}], )}],
, =, [IndentingNewLine],
RowBox[{=,
RowBox[{(, GridBox[{
{
RowBox[{
SubscriptBox[F,
RowBox[{
SubscriptBox[x, 1], ,
SubscriptBox[x, 1]}]], (,
RowBox[{
RowBox[{x, (, t, )}], ,,
RowBox[{
OverscriptBox[x, .], (, t, )}], ,, t}], )}],
RowBox[{
SubscriptBox[F,
RowBox[{
SubscriptBox[x, 1], ,
SubscriptBox[x, 2]}]],
RowBox[{(,
RowBox[{
RowBox[{x,
RowBox[{(, t, )}]}], ,,
RowBox[{
OverscriptBox[x, .],
RowBox[{(, t, )}]}], ,, t}], )}]}],
RowBox[{
SubscriptBox[F,
RowBox[{
SubscriptBox[x, 1], ,
OverscriptBox[
SubscriptBox[x, 1], .]}]],
RowBox[{(,
RowBox[{
RowBox[{x,
RowBox[{(, t, )}]}], ,,
RowBox[{
OverscriptBox[x, .],
RowBox[{(, t, )}]}], ,, t}], )}]}],
RowBox[{
SubscriptBox[F,
RowBox[{
SubscriptBox[x, 1], ,
OverscriptBox[
SubscriptBox[x, 2], .]}]],
RowBox[{(,
RowBox[{
RowBox[{x,
RowBox[{(, t, )}]}], ,,
RowBox[{
OverscriptBox[x, .],
RowBox[{(, t, )}]}], ,, t}], )}]}]},
{
RowBox[{
SubscriptBox[F,
RowBox[{
SubscriptBox[x, 2], ,
SubscriptBox[x, 1]}]],
RowBox[{(,
RowBox[{
RowBox[{x,
RowBox[{(, t, )}]}], ,,
RowBox[{
OverscriptBox[x, .],
RowBox[{(, t, )}]}], ,, t}], )}]}],
RowBox[{
SubscriptBox[F,
RowBox[{
SubscriptBox[x, 2], ,
SubscriptBox[x, 2]}]],
RowBox[{(,
RowBox[{
RowBox[{x,
RowBox[{(, t, )}]}], ,,
RowBox[{
OverscriptBox[x, .],
RowBox[{(, t, )}]}], ,, t}], )}]}],
RowBox[{
SubscriptBox[F,
RowBox[{
SubscriptBox[x, 2], ,
OverscriptBox[
SubscriptBox[x, 1], .]}]],
RowBox[{(,
RowBox[{
RowBox[{x,
RowBox[{(, t, )}]}], ,,
RowBox[{
OverscriptBox[x, .],
RowBox[{(, t, )}]}], ,, t}], )}]}],
RowBox[{
SubscriptBox[F,
RowBox[{
SubscriptBox[x, 2], ,
OverscriptBox[
SubscriptBox[x, 2], .]}]],
RowBox[{(,
RowBox[{
RowBox[{x,
RowBox[{(, t, )}]}], ,,
RowBox[{
OverscriptBox[x, .],
RowBox[{(, t, )}]}], ,, t}], )}]}]},
{
RowBox[{
SubscriptBox[F,
RowBox[{
OverscriptBox[
SubscriptBox[x, 1], .], ,
SubscriptBox[x, 1]}]],
RowBox[{(,
RowBox[{
RowBox[{x,
RowBox[{(, t, )}]}], ,,
RowBox[{
OverscriptBox[x, .],
RowBox[{(, t, )}]}], ,, t}], )}]}],
RowBox[{
SubscriptBox[F,
RowBox[{
OverscriptBox[
SubscriptBox[x, 1], .], ,
SubscriptBox[x, 2]}]],
RowBox[{(,
RowBox[{
RowBox[{x,
RowBox[{(, t, )}]}], ,,
RowBox[{
OverscriptBox[x, .],
RowBox[{(, t, )}]}], ,, t}], )}]}],
RowBox[{
SubscriptBox[F,
RowBox[{
OverscriptBox[
SubscriptBox[x, 1], .], ,
OverscriptBox[
SubscriptBox[x, 1], .]}]],
RowBox[{(,
RowBox[{
RowBox[{x,
RowBox[{(, t, )}]}], ,,
RowBox[{
OverscriptBox[x, .],
RowBox[{(, t, )}]}], ,, t}], )}]}],
RowBox[{
SubscriptBox[F,
RowBox[{
OverscriptBox[
SubscriptBox[x, 1], .], ,
OverscriptBox[
SubscriptBox[x, 2], .]}]],
RowBox[{(,
RowBox[{
RowBox[{x,
RowBox[{(, t, )}]}], ,,
RowBox[{
OverscriptBox[x, .],
RowBox[{(, t, )}]}], ,, t}], )}]}]},
{
RowBox[{
SubscriptBox[F,
RowBox[{
OverscriptBox[
SubscriptBox[x, 2], .], ,
SubscriptBox[x, 1]}]], (,
RowBox[{
RowBox[{x, (, t, )}], ,,
RowBox[{
OverscriptBox[x, .], (, t, )}], ,, t}], )}],
RowBox[{
SubscriptBox[F,
RowBox[{
OverscriptBox[
SubscriptBox[x, 2], .], ,
SubscriptBox[x, 2]}]], (,
RowBox[{
RowBox[{x, (, t, )}], ,,
RowBox[{
OverscriptBox[x, .], (, t, )}], ,, t}], )}],
RowBox[{
SubscriptBox[F,
RowBox[{
OverscriptBox[
SubscriptBox[x, 2], .], ,
OverscriptBox[
SubscriptBox[x, 1], .]}]],
RowBox[{(,
RowBox[{
RowBox[{x,
RowBox[{(, t, )}]}], ,,
RowBox[{
OverscriptBox[x, .],
RowBox[{(, t, )}]}], ,, t}], )}]}],
RowBox[{
SubscriptBox[F,
RowBox[{
OverscriptBox[
SubscriptBox[x, 2], .], ,
OverscriptBox[
SubscriptBox[x, 2], .]}]],
RowBox[{(,
RowBox[{
RowBox[{x,
RowBox[{(, t, )}]}], ,,
RowBox[{
OverscriptBox[x, .],
RowBox[{(, t, )}]}], ,, t}], )}]}]}
}], )}]}]}], TraditionalForm]], Subsection,ExpressionUUID->
dd05654e-affe-42f6-8a15-62fff68321f2],
:4ed6:7684:6b63:5b9a:6216:8005:662f:8d1f:7684:534a:5b9a
}], Subsection,
CellChangeTimes->{{3.8206790299822083`*^9, 3.820679109898031*^9}, {
3.820679273097007*^9, 3.82067927670579*^9}, {3.8206854361937847`*^9,
3.82068543735753*^9}, {3.820765857414011*^9, 3.820766113299076*^9}, {
3.82095841259173*^9,
3.8209584770030127`*^9}},ExpressionUUID->874140cf-d360-4545-8a83-
eada8b65eedb],
Cell[BoxData[{
RowBox[{dfx1x1, , =,
RowBox[{D, [,
RowBox[{dfx1, ,,
RowBox[{x1, [, t, ]}]}], ]}]}], [IndentingNewLine],
RowBox[{dfx1x2, , =, ,
RowBox[{D, [,
RowBox[{dfx1, ,,
RowBox[{x2, [, t, ]}]}], ]}]}], [IndentingNewLine],
RowBox[{dfx1x1p, , =, ,
RowBox[{D, [,
RowBox[{dfx1, ,,
RowBox[{
RowBox[{x1, }], [, t, ]}]}], ]}]}], [IndentingNewLine],
RowBox[{dfx1x2p, , =, ,
RowBox[{D, [,
RowBox[{dfx1, ,, ,
RowBox[{
RowBox[{x2, }], [, t, ]}]}], ]}]}], [IndentingNewLine],
RowBox[{dfx2x1, , =,
RowBox[{D, [,
RowBox[{dfx2, ,,
RowBox[{x1, [, t, ]}]}], ]}]}], [IndentingNewLine],
RowBox[{dfx2x2, , =, ,
RowBox[{D, [,
RowBox[{dfx2, ,,
RowBox[{x2, [, t, ]}]}], ]}]}], [IndentingNewLine],
RowBox[{dfx2x1p, , =, ,
RowBox[{D, [,
RowBox[{dfx2, ,,
RowBox[{
RowBox[{x1, }], [, t, ]}]}], ]}]}], [IndentingNewLine],
RowBox[{dfx2x2p, , =, ,
RowBox[{D, [,
RowBox[{dfx2, ,, ,
RowBox[{
RowBox[{x2, }], [, t, ]}]}], ]}]}], [IndentingNewLine],
RowBox[{dfx1px1, , =,
RowBox[{D, [,
RowBox[{dfx1p, ,,
RowBox[{x1, [, t, ]}]}], ]}]}], [IndentingNewLine],
RowBox[{
RowBox[{dfx1px2, , =, ,
RowBox[{D, [,
RowBox[{dfx1p, ,,
RowBox[{x2, [, t, ]}]}], ]}]}], [IndentingNewLine],
RowBox[{(*, ,
RowBox[{dfx1px1p, , :6211:4eec:5df2:7ecf:6709:5b83:4e86}],
, *)}], [IndentingNewLine],
RowBox[{(*, ,
RowBox[{dfx1px2p, , :6211:4eec:5df2:7ecf:6709:5b83:4e86}],
, *)}]}], [IndentingNewLine],
RowBox[{dfx2px1, , =,
RowBox[{D, [,
RowBox[{dfx2p, ,,
RowBox[{x1, [, t, ]}]}], ]}]}], [IndentingNewLine],
RowBox[{
RowBox[{dfx2px2, , =, ,
RowBox[{D, [,
RowBox[{dfx2p, ,,
RowBox[{x2, [, t, ]}]}], ]}]}], [IndentingNewLine],
RowBox[{(*, ,
RowBox[{dfx2px1p, , :6211:4eec:5df2:7ecf:6709:5b83:4e86}],
, *)}], [IndentingNewLine],
RowBox[{(*, ,
RowBox[{dfx2px2p, , :6211:4eec:5df2:7ecf:6709:5b83:4e86}],
, *)}], [IndentingNewLine]}], [IndentingNewLine],
RowBox[{matrizSuficiente, =,
RowBox[{{,
RowBox[{
RowBox[{{,
RowBox[{
dfx1x1, ,, , dfx1x2, ,, , dfx1x1p, ,, , dfx1x2p}],
}}], ,,
RowBox[{{,
RowBox[{
dfx2x1, ,, , dfx2x2, ,, dfx2x1p, ,, , dfx2x2p}],
}}], ,,
RowBox[{{,
RowBox[{
dfx1px1, ,, , dfx1px2, ,, , dfx1px1p, ,, ,
dfx1px2p}], }}], ,,
RowBox[{{,
RowBox[{
dfx2px1, ,, dfx2px2, ,, , dfx2px1p, ,, , dfx2px2p}],
}}]}], }}]}]}], Input,
CellChangeTimes->{{3.820679295057271*^9, 3.8206797082316628`*^9}, {
3.820680844676613*^9, 3.820680878394144*^9}, {3.8209584998279753`*^9,
3.820958510746643*^9}},ExpressionUUID->95533dd6-f111-417a-b955-
61f250018732],
Cell[BoxData[
RowBox[{
RowBox[{(*, ,
StyleBox[
RowBox[{
:6211:4eec:77e9:9635:6240:9700:7684:6240:6709:5bfc:6570:90fd
:53ef:4ee5:7528:4e00:4e2a:8ba2:5355:5b8c:6210:5417, :ff1f}],
FontSize->16], , *)}], }]], Input,
CellChangeTimes->{{3.820680887562001*^9, 3.820680888183661*^9},
3.820680924756117*^9, 3.8206852580376863`*^9,
3.820958537550439*^9},ExpressionUUID->7feb8f13-6de1-4d13-87fd-
fb2706b794c0],
Cell[BoxData[
RowBox[{matrizSuficiente2, =, ,
RowBox[{matrizSuficiente, /.,
RowBox[{solucionEcEu, [,
RowBox[{[, 1, ]}], ]}], ,
RowBox[{(*, ,
StyleBox[
RowBox[{
RowBox[{
la, , matriz, , de, , la, , condici[OAcute]n,
, suficiente, , en, ,
RowBox[{x1, [, t, ]}]}], ,, ,
RowBox[{x2, [, t, ]}], ,,
RowBox[{, , :4ee5:4e0a:89e3:51b3:65b9:6848}], :3002,
:5b83:662f:6240:6709t:7684:5e38:6570:77e9:9635}],
FontSize->16], , *)}]}]}]], Input,
CellChangeTimes->{
3.820681628468617*^9, {3.820681858717572*^9, 3.820681872396052*^9}, {
3.820682073835137*^9, 3.820682076252119*^9}, {3.820685263652842*^9,
3.820685264790658*^9}, {3.820685670229444*^9, 3.820685680864684*^9},
3.820686044443693*^9,
3.82095855629106*^9},ExpressionUUID->983cec1b-a34b-4458-b9a0-
821a0d7a54eb],
Cell[BoxData[{
RowBox[{PositiveDefiniteMatrixQ, [, matrizSuficiente2,
]}], [IndentingNewLine],
RowBox[{
RowBox[{PositiveSemidefiniteMatrixQ, [, matrizSuficiente2, ]}], ,
RowBox[{(*, , :6b65:9aa43, *)}]}]}], Input,
CellChangeTimes->{
3.8206820890387373`*^9, 3.820685268704315*^9, 3.820685349710012*^9, {
3.820685481760621*^9, 3.820685486002843*^9}, {3.820685687209652*^9,
3.8206857285506144`*^9}, 3.820686036025312*^9, {3.820721839973401*^9,
3.820721882090117*^9}, {3.820958629647448*^9,
3.820958632674079*^9}},ExpressionUUID->b384ccb7-1c1b-4fcb-b6ac-
44512b40e85c],
Cell[CellGroupData[{
Cell[TextData[{
:7531:4e8e:7b2c:4e00:4e2a:77e9:9635:662f:6b63:5b9a:7684:ff0c
:7b2c:4e8c:4e2a:534a:5b9a:662f:6b63:7684:ff0c:56e0:6b64:6240:63d0
:51fa:95ee:9898:7684:5168:5c40:6700:5927:503c:662f:5728
solutionEcEu [[1]]:4e2d:83b7:5f97:7684:51fd:6570:ff0c:5373 ,
Cell[BoxData[
RowBox[{{,
RowBox[{
RowBox[{
RowBox[{x1, [, t, ]}], [Rule],
RowBox[{
FractionBox[1, 2], ,
RowBox[{(,
RowBox[{2, +,
SuperscriptBox[t, 2]}], )}]}]}], ,,
RowBox[{
RowBox[{x2, [, t, ]}], [Rule], t}]}], }}]],
CellChangeTimes->{{3.820685383118876*^9, 3.8206853947036123`*^9}, {
3.8206860798634653`*^9, 3.820686099054778*^9}, 3.8206861566476183`*^9},
ExpressionUUID->50360823-a96b-4b1c-ba56-eb33524e9396],
. Esto es:
tx1(t) = ,
Cell[BoxData[
FormBox[
FractionBox[1, 2], TraditionalForm]],ExpressionUUID->
c5bc8f13-102f-48b7-9c0e-4982a842e025],
(2+,
Cell[BoxData[
FormBox[
SuperscriptBox[t, 2], TraditionalForm]],ExpressionUUID->
e13f167e-5ed1-4633-a6ad-52310de1e533],
)
tx2(t) = t
:5426:5219:ff1a
tx(t) = (,
Cell[BoxData[
FormBox[
FractionBox[1, 2], TraditionalForm]],ExpressionUUID->
cfab3707-df6e-4152-928e-3233d23d0674],
(2+,
Cell[BoxData[
FormBox[
SuperscriptBox[t, 2], TraditionalForm]],ExpressionUUID->
a2b75381-50dc-4f49-b62b-d3c9d08d6a5e],
), t)
:5b9a:4e49:4e8e [0, 1]
}], Subsubsection,
CellChangeTimes->{{3.820686175461117*^9, 3.820686221017805*^9}, {
3.8206862975944033`*^9, 3.820686572855447*^9}, {3.820686896579468*^9,
3.820686944884369*^9}, {3.820721758687607*^9, 3.820721801197404*^9}, {
3.8209585808101263`*^9,
3.820958605603607*^9}},ExpressionUUID->f2bd543c-6418-4113-a195-
5349ba355e60],
Cell[BoxData[
RowBox[{
RowBox[{{,
RowBox[{
RowBox[{x1, [, t, ]}], ,, ,
RowBox[{x2, [, t, ]}]}], }}], , /., ,
RowBox[{solucionEcEu, [,
RowBox[{[, 1, ]}], ]}]}]], Input,
CellChangeTimes->{{3.820721632120769*^9, 3.820721681642565*^9}, {
3.8207218593450108`*^9, 3.820721862051399*^9}},
CellLabel->In[63]:=,ExpressionUUID->718d5875-a6bc-43e9-b3d9-0a920e03f52b]
}, Open]]
}, Open]],
Cell[<\:73b0:5728:ff0c:4f7f:7528:6b64:6a21:677f:ff0c:6211:4eec:5fc5:987b\:4f7f:8ba1:7b97:81ea:52a8:5316:5e76:9488:5bf9:5177:6709:4efb:4f55\:6570:91cf:7684:53d8:91cf:7684:6b64:7c7b:95ee:9898:5c06:5176:5f52\:4e00:5316:6211:4eec:8fd8:5fc5:987b:5728:5176:4e2d:4e00:4e2a:53d8:91cf:ff0c\:6211:4eec:60f3:8981:7684:6761:4ef6:4ee5:53ca:6211:4eec:60f3:8981\:7684:53d8:91cf:4e2d:6dfb:52a0:4e00:4e2a:6a2a:5411:6761:4ef6:3002 \>, Subsection,
CellChangeTimes->{{3.820682473110447*^9, 3.820682600679556*^9}, {
3.8206826613279247`*^9, 3.82068268192108*^9}, {3.820958619772708*^9,
3.820958622543111*^9}},ExpressionUUID->caf95eb8-e129-4d0c-8106-
b46995618003]
}, Open]]
},
WindowSize->{1523, 747},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->12.1 for Mac OS X x86 (64-bit)
(2020:5e746:670819:65e5),
StyleDefinitions->Notebook[{
Cell[
StyleData[StyleDefinitions -> Default.nb]]}, Visible -> False,
FrontEndVersion ->
12.1 for Mac OS X x86 (64-bit) (2020:5e746:670819:65e5),
StyleDefinitions -> PrivateStylesheetFormatting.nb],
ExpressionUUID->ad9e5606-94f8-4488-9a77-e334c3e82296
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 22162, 608, 1447, Section,ExpressionUUID->131a7657-0c0d-43ef-828b-8cab14d118a7],
Cell[CellGroupData[{
Cell[22767, 634, 1573, 50, 144, Subsection,ExpressionUUID->57e03a57-b844-4dad-b005-790d729eb6d6],
Cell[CellGroupData[{
Cell[24365, 688, 286, 4, 45, Subsubsection,ExpressionUUID->76198bc1-9174-4283-8f02-0fa081ef8d96],
Cell[24654, 694, 1153, 25, 52, Input,ExpressionUUID->d2b28229-210c-484d-b8f8-fa1a3ebbcfef]
}, Open]],
Cell[CellGroupData[{
Cell[25844, 724, 3255, 107, 105, Subsubsection,ExpressionUUID->94da8189-7484-42c8-809e-72f6a4684a6a],
Cell[29102, 833, 6070, 182, 312, Input,ExpressionUUID->1aef8f1c-41e2-4586-b2dd-4ce9b09f6ff4],
Cell[35175, 1017, 321, 8, 32, Input,ExpressionUUID->61eee88a-2dd7-4a0f-b245-e2ac19ea03f3]
}, Open]],
Cell[CellGroupData[{
Cell[35533, 1030, 1339, 45, 99, Subsubsection,ExpressionUUID->c826b3c7-aae3-4180-8317-dc1d9d2613c3],
Cell[36875, 1077, 2541, 70, 159, Input,ExpressionUUID->f87c516c-aae0-4a6e-904b-51b75588844a],
Cell[39419, 1149, 480, 14, 32, Input,ExpressionUUID->781d48ac-4ea4-4303-91c7-212d2610015f],
Cell[39902, 1165, 3685, 95, 122, Input,ExpressionUUID->2316eaed-d100-47c1-9e10-93f9abab3201],
Cell[43590, 1262, 860, 23, 44, Input,ExpressionUUID->be6fa906-1ffb-4398-b42e-79a264a2c0ef],
Cell[44453, 1287, 824, 20, 44, Input,ExpressionUUID->dab611e7-0f08-4b96-8d87-139be333b5dd],
Cell[45280, 1309, 1152, 37, 53, Input,ExpressionUUID->cd119ef3-e732-4a1e-bd76-12c9cbde4658]
}, Open]],
Cell[CellGroupData[{
Cell[46469, 1351, 4031, 118, 126, Subsubsection,ExpressionUUID->61e4c654-654f-4f36-a4f2-c8569a9f49b5],
Cell[50503, 1471, 1239, 32, 175, Input,ExpressionUUID->663187ca-3c4b-4ce1-93e0-1098b6edd0b6],
Cell[51745, 1505, 458, 11, 32, Input,ExpressionUUID->ff164f55-7f55-44c6-98be-c45262a5a224],
Cell[52206, 1518, 1493, 43, 33, Input,ExpressionUUID->3df2663c-8bb8-4bd1-8800-27d4cfcba356],
Cell[53702, 1563, 826, 14, 80, Input,ExpressionUUID->173d35fc-1180-4950-91eb-aaf230a68054]
}, Open]]
}, Open]],
Cell[CellGroupData[{
Cell[54577, 1583, 8229, 250, 240, Subsection,ExpressionUUID->874140cf-d360-4545-8a83-eada8b65eedb],
Cell[62809, 1835, 3347, 89, 568, Input,ExpressionUUID->95533dd6-f111-417a-b955-61f250018732],
Cell[66159, 1926, 473, 11, 32, Input,ExpressionUUID->7feb8f13-6de1-4d13-87fd-fb2706b794c0],
Cell[66635, 1939, 983, 22, 33, Input,ExpressionUUID->983cec1b-a34b-4458-b9a0-821a0d7a54eb],
Cell[67621, 1963, 631, 12, 80, Input,ExpressionUUID->b384ccb7-1c1b-4fcb-b6ac-44512b40e85c],
Cell[CellGroupData[{
Cell[68277, 1979, 1848, 47, 211, Subsubsection,ExpressionUUID->f2bd543c-6418-4113-a195-5349ba355e60],
Cell[70128, 2028, 433, 10, 30, Input,ExpressionUUID->718d5875-a6bc-43e9-b3d9-0a920e03f52b]
}, Open]]
}, Open]],
Cell[70588, 2042, 746, 13, 81, Subsection,ExpressionUUID->caf95eb8-e129-4d0c-8106-b46995618003]
}, Open]]
}
]
*)
Reviews
There are no reviews yet.