(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 192902, 4843] NotebookOptionsPosition[ 188253, 4689] NotebookOutlinePosition[ 188625, 4705] CellTagsIndexPosition[ 188582, 4702] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Kunal Samel hw 1 prob 4.48", "Title", CellChangeTimes->{{3.7145809835860434`*^9, 3.714580994690965*^9}},ExpressionUUID->"89ee9d2b-7b95-4f4a-b39e-\ e6cce96e0a46"], Cell[BoxData[ RowBox[{"Off", "[", RowBox[{"General", "::", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.714695026590873*^9, 3.7146950675569983`*^9}}, ExpressionUUID -> "8d5dd04a-81f7-4e11-8c11-72a6db772ee4"], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"h", ",", "L", ",", "x1", ",", "x3"}], "]"}]], "Input", CellChangeTimes->{{3.7146941025130258`*^9, 3.714694125913326*^9}, { 3.714695377064966*^9, 3.714695378297382*^9}}, ExpressionUUID -> "a238c03b-7865-4181-9038-36aac104e500"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Repsilon", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "^", "2"}], ",", " ", RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "^", "2"}], ",", " ", RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "^", "2"}], ",", " ", RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], " ", "]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], " ", "]"}]}], ",", " ", RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], " ", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "^", "2"}], ",", " ", RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "^", "2"}], ",", " ", RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "^", "2"}], ",", " ", RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], " ", "]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], " ", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "^", "2"}], ",", " ", RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}], "^", "2"}], ",", " ", RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "^", "2"}], ",", " ", RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], " ", "]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], " ", "]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}]}], ",", " ", RowBox[{"2", RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{"2", RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}]}], ",", " ", RowBox[{"2", RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{"2", RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", " ", RowBox[{"2", RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{"2", RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"B", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], RowBox[{"B", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}]}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.7145810007581205`*^9, 3.714581009883497*^9}}, ExpressionUUID -> "b8eacdd9-877e-4f1c-ab8d-2fe93f05d31a"], Cell[BoxData[ TemplateBox[{ "Part","partd", "\"Part specification \\!\\(\\*RowBox[{\\\"B\\\", \\\"\[LeftDoubleBracket]\ \\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"1\\\"}], \ \\\"\[RightDoubleBracket]\\\"}]\\) is longer than depth of object.\"",2,3,1, 32154496599267168600,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7145810106166553`*^9, 3.714690982319126*^9, 3.7146920961890063`*^9, 3.714693359259199*^9, 3.7146935815776496`*^9, 3.7146938552987585`*^9, 3.7146943596199217`*^9, 3.7146950716442504`*^9, 3.714695441914997*^9, 3.7146956150148163`*^9, 3.7146962151389103`*^9, 3.7146963495814342`*^9, 3.7146965440379267`*^9, 3.714697161897258*^9, 3.714727767886714*^9, 3.714728622933676*^9, 3.7147314145426655`*^9, 3.7147330990054607`*^9, 3.714746498008464*^9, 3.714746642690404*^9, 3.7147469449297476`*^9, 3.7147471052234306`*^9, 3.7147474449466734`*^9, 3.714747560777095*^9, 3.7147476897649975`*^9, 3.714749818854413*^9, 3.714749917749869*^9}, ExpressionUUID -> "e971b3f1-22b4-4a30-9bad-48f12faba212"], Cell[BoxData[ TemplateBox[{ "Part","partd", "\"Part specification \\!\\(\\*RowBox[{\\\"B\\\", \\\"\[LeftDoubleBracket]\ \\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"2\\\"}], \ \\\"\[RightDoubleBracket]\\\"}]\\) is longer than depth of object.\"",2,3,2, 32154496599267168600,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7145810106166553`*^9, 3.714690982319126*^9, 3.7146920961890063`*^9, 3.714693359259199*^9, 3.7146935815776496`*^9, 3.7146938552987585`*^9, 3.7146943596199217`*^9, 3.7146950716442504`*^9, 3.714695441914997*^9, 3.7146956150148163`*^9, 3.7146962151389103`*^9, 3.7146963495814342`*^9, 3.7146965440379267`*^9, 3.714697161897258*^9, 3.714727767886714*^9, 3.714728622933676*^9, 3.7147314145426655`*^9, 3.7147330990054607`*^9, 3.714746498008464*^9, 3.714746642690404*^9, 3.7147469449297476`*^9, 3.7147471052234306`*^9, 3.7147474449466734`*^9, 3.714747560777095*^9, 3.7147476897649975`*^9, 3.714749818854413*^9, 3.7147499177879906`*^9}, ExpressionUUID -> "e971b3f1-22b4-4a30-9bad-48f12faba212"], Cell[BoxData[ TemplateBox[{ "Part","partd", "\"Part specification \\!\\(\\*RowBox[{\\\"B\\\", \\\"\[LeftDoubleBracket]\ \\\", RowBox[{\\\"1\\\", \\\",\\\", \\\"3\\\"}], \ \\\"\[RightDoubleBracket]\\\"}]\\) is longer than depth of object.\"",2,3,3, 32154496599267168600,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7145810106166553`*^9, 3.714690982319126*^9, 3.7146920961890063`*^9, 3.714693359259199*^9, 3.7146935815776496`*^9, 3.7146938552987585`*^9, 3.7146943596199217`*^9, 3.7146950716442504`*^9, 3.714695441914997*^9, 3.7146956150148163`*^9, 3.7146962151389103`*^9, 3.7146963495814342`*^9, 3.7146965440379267`*^9, 3.714697161897258*^9, 3.714727767886714*^9, 3.714728622933676*^9, 3.7147314145426655`*^9, 3.7147330990054607`*^9, 3.714746498008464*^9, 3.714746642690404*^9, 3.7147469449297476`*^9, 3.7147471052234306`*^9, 3.7147474449466734`*^9, 3.714747560777095*^9, 3.7147476897649975`*^9, 3.714749818854413*^9, 3.714749917805045*^9}, ExpressionUUID -> "e971b3f1-22b4-4a30-9bad-48f12faba212"], Cell[BoxData[ TemplateBox[{ "General","stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Part\\\", \\\"::\\\", \ \\\"partd\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \ calculation.\"",2,3,4,32154496599267168600,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7145810106166553`*^9, 3.714690982319126*^9, 3.7146920961890063`*^9, 3.714693359259199*^9, 3.7146935815776496`*^9, 3.7146938552987585`*^9, 3.7146943596199217`*^9, 3.7146950716442504`*^9, 3.714695441914997*^9, 3.7146956150148163`*^9, 3.7146962151389103`*^9, 3.7146963495814342`*^9, 3.7146965440379267`*^9, 3.714697161897258*^9, 3.714727767886714*^9, 3.714728622933676*^9, 3.7147314145426655`*^9, 3.7147330990054607`*^9, 3.714746498008464*^9, 3.714746642690404*^9, 3.7147469449297476`*^9, 3.7147471052234306`*^9, 3.7147474449466734`*^9, 3.714747560777095*^9, 3.7147476897649975`*^9, 3.714749818854413*^9, 3.714749917822099*^9}, ExpressionUUID -> "e971b3f1-22b4-4a30-9bad-48f12faba212"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Slamina", "=", RowBox[{GridBox[{ { FractionBox["1", "E1"], FractionBox[ RowBox[{"-", "v12"}], "E1"], FractionBox[ RowBox[{"-", "v13"}], "E1"], "0", "0", "0"}, { FractionBox[ RowBox[{"-", "v12"}], "E1"], FractionBox["1", "E2"], FractionBox[ RowBox[{"-", "v23"}], "E2"], "0", "0", "0"}, { FractionBox[ RowBox[{"-", "v13"}], "E1"], FractionBox[ RowBox[{"-", "v23"}], "E2"], FractionBox["1", "E3"], "0", "0", "0"}, {"0", "0", "0", FractionBox["1", "G23"], "0", "0"}, {"0", "0", "0", "0", FractionBox["1", "G13"], "0"}, {"0", "0", "0", "0", "0", FractionBox["1", "G12"]} }], "/.", RowBox[{"{", RowBox[{ RowBox[{"E1", "\[Rule]", " ", RowBox[{"140", "*", RowBox[{"10", "^", "9"}]}]}], ",", RowBox[{"E2", "\[Rule]", " ", RowBox[{"10", "*", RowBox[{"10", "^", "9"}]}]}], ",", RowBox[{"E3", "\[Rule]", " ", RowBox[{"10", "*", RowBox[{"10", "^", "9"}]}]}], ",", RowBox[{"G12", "\[Rule]", " ", RowBox[{"7", "*", RowBox[{"10", "^", "9"}]}]}], ",", RowBox[{"G13", "\[Rule]", " ", RowBox[{"7", "*", RowBox[{"10", "^", "9"}]}]}], ",", RowBox[{"G23", "\[Rule]", " ", RowBox[{ RowBox[{"(", RowBox[{"336", "/", "100"}], ")"}], "*", RowBox[{"10", "^", "9"}]}]}], ",", RowBox[{"v12", "\[Rule]", " ", RowBox[{"3", "/", "10"}]}], ",", " ", RowBox[{"v13", "\[Rule]", " ", RowBox[{"3", "/", "10"}]}], ",", RowBox[{"v23", "\[Rule]", " ", RowBox[{"49", "/", "100"}]}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.7145810244062595`*^9, 3.7145810319718227`*^9}, { 3.714581407497229*^9, 3.714581419523229*^9}, {3.7145814755742292`*^9, 3.714581594903229*^9}, {3.714581649810075*^9, 3.7145818065947514`*^9}, { 3.7145825521042953`*^9, 3.714582560401125*^9}, {3.714693515214399*^9, 3.714693559534567*^9}, {3.714696919784344*^9, 3.714696928879261*^9}, { 3.714696970859399*^9, 3.7146970704332848`*^9}}, ExpressionUUID -> "5d63ad0f-041f-4ef6-a39e-3a6c5b2763f8"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "140000000000"], ",", RowBox[{"-", FractionBox["3", "1400000000000"]}], ",", RowBox[{"-", FractionBox["3", "1400000000000"]}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["3", "1400000000000"]}], ",", FractionBox["1", "10000000000"], ",", RowBox[{"-", FractionBox["49", "1000000000000"]}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["3", "1400000000000"]}], ",", RowBox[{"-", FractionBox["49", "1000000000000"]}], ",", FractionBox["1", "10000000000"], ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", FractionBox["1", "3360000000"], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", FractionBox["1", "7000000000"], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", FractionBox["1", "7000000000"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7145818148885813`*^9, 3.7145825646445494`*^9, 3.714690983660743*^9, 3.7146920975306234`*^9, 3.7146933604916153`*^9, {3.7146935665078564`*^9, 3.7146935826696634`*^9}, 3.714693856796378*^9, 3.7146943609147387`*^9, 3.7146950727674646`*^9, 3.7146954428042088`*^9, 3.714695616216032*^9, 3.7146962160125217`*^9, 3.714696350455045*^9, 3.7146965451767416`*^9, 3.714696889239153*^9, 3.714697086844695*^9, 3.714697163036072*^9, 3.714727770429547*^9, 3.714728625320507*^9, 3.714731432919701*^9, 3.714733116711688*^9, 3.7147464981037683`*^9, 3.7147466427926893`*^9, 3.7147469450069475`*^9, 3.7147471053146667`*^9, 3.7147474450330515`*^9, 3.714747560888583*^9, 3.7147476898452535`*^9, 3.7147498189296527`*^9, 3.714749917846176*^9}, ExpressionUUID -> "511b74da-b4dd-440a-b6f5-25e930d51e66"] }, Open ]], Cell["Rotating both layers to the problem coordinate system", "Text", CellChangeTimes->{{3.714582009851075*^9, 3.714582027669857*^9}, 3.7145820830803976`*^9},ExpressionUUID->"a9ec8fc1-3577-47d1-8799-\ f1788b8d1bbe"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Btop", "=", RowBox[{GridBox[{ { RowBox[{"Cos", "[", RowBox[{"40", " ", "Degree"}], "]"}], RowBox[{"Sin", "[", RowBox[{"40", " ", "Degree"}], "]"}], "0"}, { RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"40", " ", "Degree"}], "]"}]}], RowBox[{"Cos", "[", RowBox[{"40", " ", "Degree"}], "]"}], "0"}, {"0", "0", "1"} }], "//", "N"}]}]], "Input", CellChangeTimes->{{3.714582092792369*^9, 3.714582161341223*^9}, { 3.7145822138334713`*^9, 3.7145822166547537`*^9}, {3.714582267610849*^9, 3.714582269296017*^9}, {3.7146920505740213`*^9, 3.7146920532884564`*^9}, { 3.7146935717651234`*^9, 3.714693574401558*^9}, {3.714695408889374*^9, 3.714695428420824*^9}, {3.7146954958292885`*^9, 3.714695496624899*^9}, { 3.7146960365946217`*^9, 3.714696049105982*^9}, {3.714696134953882*^9, 3.7146961757640057`*^9}, {3.7146963249175177`*^9, 3.714696326103133*^9}, { 3.7147474045959077`*^9, 3.7147474113756075`*^9}, {3.714747513049011*^9, 3.714747513740038*^9}, {3.7147497794416943`*^9, 3.714749780090765*^9}, { 3.7147499027379837`*^9, 3.714749905817808*^9}}, ExpressionUUID -> "c76b98f9-3249-41b1-bd82-4dc284c6e73d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.766044443118978`", ",", "0.6427876096865393`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.6427876096865393`"}], ",", "0.766044443118978`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", "1.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.714582269955083*^9, 3.714690983660743*^9, 3.7146920975462236`*^9, 3.7146933604916153`*^9, 3.7146935826696634`*^9, 3.714693856796378*^9, 3.714694360930339*^9, 3.7146950727674646`*^9, 3.7146954428042088`*^9, 3.714695616231632*^9, {3.714696153876925*^9, 3.7146961769496207`*^9}, 3.714696216028122*^9, {3.714696327195147*^9, 3.714696350517446*^9}, 3.714696545192342*^9, 3.7146971630516725`*^9, 3.7147277704451466`*^9, 3.714728625336107*^9, 3.7147314329353013`*^9, 3.7147331167272882`*^9, 3.714746498112797*^9, 3.714746642804723*^9, 3.7147469450169735`*^9, 3.7147471053246927`*^9, 3.7147474450441003`*^9, 3.7147475608996315`*^9, 3.7147476898572917`*^9, 3.7147498189376783`*^9, 3.714749917857211*^9}, ExpressionUUID -> "7acad8e2-c12a-49c9-b419-8d632b97956a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Bbot", "=", RowBox[{GridBox[{ { RowBox[{"Cos", "[", RowBox[{"40", " ", "Degree"}], "]"}], RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"40", " ", "Degree"}], "]"}]}], "0"}, { RowBox[{"Sin", "[", RowBox[{"40", " ", "Degree"}], "]"}], RowBox[{"Cos", "[", RowBox[{"40", " ", "Degree"}], "]"}], "0"}, {"0", "0", "1"} }], "//", "N"}]}]], "Input", CellChangeTimes->{{3.7145822790419917`*^9, 3.71458228552964*^9}, { 3.7146935772251935`*^9, 3.7146935779116025`*^9}, {3.7146954125866213`*^9, 3.714695439543767*^9}, {3.714695501819765*^9, 3.7146955024749737`*^9}, { 3.7146960516020136`*^9, 3.7146960664690046`*^9}, {3.7146961857325335`*^9, 3.714696205575988*^9}, {3.71469633597806*^9, 3.7146963372728763`*^9}, { 3.7147474144611244`*^9, 3.7147474400552454`*^9}, {3.7147475178691263`*^9, 3.714747518447661*^9}, {3.7147497808361425`*^9, 3.7147497813337297`*^9}, { 3.7147499084672594`*^9, 3.7147499095737886`*^9}}, ExpressionUUID -> "09338ca8-a1a0-4f30-80af-7d43bf81def5"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.766044443118978`", ",", RowBox[{"-", "0.6427876096865393`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6427876096865393`", ",", "0.766044443118978`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", "1.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.714582286178705*^9, 3.714690983676344*^9, 3.7146920975462236`*^9, 3.7146933605072155`*^9, 3.7146935826852636`*^9, 3.7146938568119783`*^9, 3.714694360930339*^9, 3.714695072783065*^9, 3.714695442819809*^9, 3.7146955062034216`*^9, 3.7146956162472324`*^9, {3.7146962077756157`*^9, 3.714696216043722*^9}, {3.714696338676894*^9, 3.7146963505330462`*^9}, 3.714696545192342*^9, 3.7146971630516725`*^9, 3.7147277704607472`*^9, 3.714728625336107*^9, 3.7147314329509015`*^9, 3.7147331167428885`*^9, 3.7147464981208224`*^9, 3.714746642812745*^9, 3.714746945024995*^9, 3.7147471053347187`*^9, 3.7147474450531397`*^9, 3.71474756091068*^9, 3.7147476898663206`*^9, 3.7147498189447007`*^9, 3.7147499178642335`*^9}, ExpressionUUID -> "9fe438c3-a4a0-4a82-bfe6-4b2a27dfb92b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Repsilontop", "=", RowBox[{"Repsilon", "/.", RowBox[{"{", RowBox[{"B", "\[Rule]", " ", "Btop"}], "}"}]}]}]], "Input", CellChangeTimes->{{3.714582293076395*^9, 3.7145823215002375`*^9}, { 3.714692056330495*^9, 3.714692057172906*^9}, {3.7146933342676787`*^9, 3.7146933347824855`*^9}}, ExpressionUUID -> "daf178bd-90a0-48fa-8dbf-148610fb8ad0"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.5868240888334652`", ",", "0.41317591116653474`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.49240387650610395`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.41317591116653474`", ",", "0.5868240888334652`", ",", "0.`", ",", "0.`", ",", "0.`", ",", RowBox[{"-", "0.49240387650610395`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.766044443118978`", ",", RowBox[{"-", "0.6427876096865393`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.6427876096865393`", ",", "0.766044443118978`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.9848077530122079`"}], ",", "0.9848077530122079`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.17364817766693041`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7145823230183887`*^9, 3.7146909836919436`*^9, 3.714692057952916*^9, 3.714692097561824*^9, 3.7146933605228157`*^9, 3.714693582700864*^9, 3.7146938568275785`*^9, 3.714694360945939*^9, 3.714695072798665*^9, 3.714695442835409*^9, 3.7146956162472324`*^9, 3.7146962160593224`*^9, 3.7146963505486465`*^9, 3.714696545207942*^9, 3.714697163067272*^9, 3.714727770476347*^9, 3.7147286253517075`*^9, 3.7147314329509015`*^9, 3.7147331167584887`*^9, 3.714746498128848*^9, 3.7147466428217707`*^9, 3.714746945034018*^9, 3.7147471053447447`*^9, 3.7147474450651927`*^9, 3.714747560923737*^9, 3.7147476898763523`*^9, 3.7147498189537296`*^9, 3.714749917872259*^9}, ExpressionUUID -> "420eb80c-be94-4945-8cc2-071c6155fed8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Repsilonbot", "=", RowBox[{"Repsilon", "/.", RowBox[{"{", RowBox[{"B", "\[Rule]", " ", "Bbot"}], "}"}]}]}]], "Input", CellChangeTimes->{{3.7145823259556828`*^9, 3.71458236363745*^9}, { 3.7146920611041565`*^9, 3.714692061821766*^9}, {3.7146933355780954`*^9, 3.7146933359681005`*^9}}, ExpressionUUID -> "23df3b02-f704-4839-b3e3-e29e8f466bc0"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.5868240888334652`", ",", "0.41317591116653474`", ",", "0.`", ",", "0.`", ",", "0.`", ",", RowBox[{"-", "0.49240387650610395`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.41317591116653474`", ",", "0.5868240888334652`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.49240387650610395`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.766044443118978`", ",", "0.6427876096865393`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", RowBox[{"-", "0.6427876096865393`"}], ",", "0.766044443118978`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.9848077530122079`", ",", RowBox[{"-", "0.9848077530122079`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.17364817766693041`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.714582366473734*^9, 3.7146909837075443`*^9, 3.714692062476974*^9, 3.714692097577424*^9, 3.714693360538416*^9, 3.714693582716464*^9, 3.7146938568431787`*^9, 3.7146943609615393`*^9, 3.7146950728142653`*^9, 3.7146954428510094`*^9, 3.7146956162628326`*^9, 3.714696216106123*^9, 3.7146963505642467`*^9, 3.714696545223542*^9, 3.714697163082873*^9, 3.7147277704919477`*^9, 3.714728625367307*^9, 3.7147314329665017`*^9, 3.714733116774089*^9, 3.7147464981378765`*^9, 3.714746642829793*^9, 3.714746945044044*^9, 3.7147471053587813`*^9, 3.7147474450772457`*^9, 3.71474756093579*^9, 3.7147476898863845`*^9, 3.7147498189617553`*^9, 3.714749917881288*^9}, ExpressionUUID -> "3a2136e5-4022-43d4-adbd-f153ea926230"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Stop", "=", RowBox[{"FullSimplify", "[", RowBox[{"Repsilontop", ".", "Slamina", ".", RowBox[{"Transpose", "[", "Repsilontop", "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7145823979588823`*^9, 3.7145824541455*^9}, { 3.714747259267907*^9, 3.714747276267993*^9}}, ExpressionUUID -> "d94b9a2b-4b4b-4397-beba-5aac93ce556f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.312941276140857`*^-11", ",", RowBox[{"-", "9.763078153087486`*^-12"}], ",", RowBox[{"-", "2.150309983751763`*^-11"}], ",", "0.`", ",", "0.`", ",", "4.8410518230268477`*^-11"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.763078153087486`*^-12"}], ",", "6.925388640190925`*^-11", ",", RowBox[{"-", "2.963975730533951`*^-11"}], ",", "0.`", ",", "0.`", ",", "4.3035915978007964`*^-11"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.150309983751763`*^-11"}], ",", RowBox[{"-", "2.963975730533951`*^-11"}], ",", "1.`*^-10", ",", "0.`", ",", "0.`", ",", RowBox[{"-", "4.614527756971488`*^-11"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "2.336751566051791`*^-10", ",", "7.620536184023037`*^-11", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "7.620536184023037`*^-11", ",", "2.068010338710113`*^-10", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.8410518230268477`*^-11", ",", "4.303591597800797`*^-11", ",", RowBox[{"-", "4.614527756971488`*^-11"}], ",", "0.`", ",", "0.`", ",", "1.1237625881622143`*^-10"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7145824390309887`*^9, 3.7145825103321185`*^9, 3.714582573145399*^9, 3.7146909849399595`*^9, 3.714692097639825*^9, 3.7146933617240305`*^9, 3.714693582716464*^9, 3.7146938568899794`*^9, 3.71469436100834*^9, 3.7146950728298655`*^9, 3.7146954429290104`*^9, 3.7146956163096333`*^9, 3.714696216121723*^9, 3.714696350579847*^9, 3.714696545270343*^9, 3.714697163129673*^9, 3.714727770538748*^9, 3.714728625429708*^9, 3.714731433028902*^9, 3.7147331168208895`*^9, 3.7147464981479087`*^9, 3.7147466428468404`*^9, 3.714746945053067*^9, 3.7147471053708124`*^9, { 3.714747264658888*^9, 3.714747277106167*^9}, 3.7147474455372605`*^9, 3.714747560948847*^9, 3.71474768989742*^9, 3.7147498193991504`*^9, 3.714749917897339*^9}, ExpressionUUID -> "258b4791-a383-4062-ad5d-995db82867e2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sbot", "=", RowBox[{"FullSimplify", "[", RowBox[{"Repsilonbot", ".", "Slamina", ".", RowBox[{"Transpose", "[", "Repsilonbot", "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7145825865607405`*^9, 3.7145826002181063`*^9}}, ExpressionUUID -> "7e4d1b6e-01aa-4c15-8059-6ec0883eb583"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.312941276140857`*^-11", ",", RowBox[{"-", "9.763078153087486`*^-12"}], ",", RowBox[{"-", "2.150309983751763`*^-11"}], ",", "0.`", ",", "0.`", ",", RowBox[{"-", "4.8410518230268477`*^-11"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.763078153087486`*^-12"}], ",", "6.925388640190925`*^-11", ",", RowBox[{"-", "2.963975730533951`*^-11"}], ",", "0.`", ",", "0.`", ",", RowBox[{"-", "4.3035915978007964`*^-11"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.150309983751763`*^-11"}], ",", RowBox[{"-", "2.963975730533951`*^-11"}], ",", "1.`*^-10", ",", "0.`", ",", "0.`", ",", "4.614527756971488`*^-11"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "2.336751566051791`*^-10", ",", RowBox[{"-", "7.620536184023037`*^-11"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", RowBox[{"-", "7.620536184023037`*^-11"}], ",", "2.068010338710113`*^-10", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.8410518230268477`*^-11"}], ",", RowBox[{"-", "4.303591597800797`*^-11"}], ",", "4.614527756971488`*^-11", ",", "0.`", ",", "0.`", ",", "1.1237625881622143`*^-10"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7145826034724317`*^9, 3.7146909853299646`*^9, 3.714692097655425*^9, 3.7146933620828357`*^9, 3.7146935827320642`*^9, 3.714693856905579*^9, 3.7146943610395403`*^9, 3.7146950728454657`*^9, 3.7146954429446106`*^9, 3.7146956163252335`*^9, 3.7146962161373234`*^9, 3.714696350579847*^9, 3.714696545285943*^9, 3.7146971631452737`*^9, 3.714727770569948*^9, 3.7147286254453087`*^9, 3.7147314330445027`*^9, 3.7147331168364897`*^9, 3.7147464981559343`*^9, 3.7147466428548627`*^9, 3.714746945063093*^9, 3.7147471053808384`*^9, 3.7147474456979647`*^9, 3.714747560959895*^9, 3.7147476899114647`*^9, 3.714749819523547*^9, 3.714749917905365*^9}, ExpressionUUID -> "52a9ee38-eb19-4d40-abb9-43f1993195c4"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Ctop", "=", RowBox[{"FullSimplify", "[", RowBox[{"Inverse", "[", "Stop", "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7145826194350276`*^9, 3.7145826357706614`*^9}, { 3.7145826698850718`*^9, 3.714582676141698*^9}}, ExpressionUUID -> "13d1410e-8661-49d2-aa82-2dbde5cebf1e"], Cell[BoxData[ RowBox[{ RowBox[{"Cbot", "=", RowBox[{"FullSimplify", "[", RowBox[{"Inverse", "[", "Sbot", "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7145826382639103`*^9, 3.71458270776686*^9}}, ExpressionUUID -> "9f7a2635-19f1-480e-bfa9-ba0b573d7444"], Cell["\<\ assume the displacements are only a function of x1 and x3 (infinite along x2) \ and are of the form:\ \>", "Text", CellChangeTimes->{{3.7145828979417396`*^9, 3.7145829100942955`*^9}, { 3.7145829406394873`*^9, 3.7145829757399373`*^9}}, Background->RGBColor[ 0.87, 0.94, 1],ExpressionUUID->"8258bfd2-0d33-4b6b-93d8-5101212885f2"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"u1", "[", RowBox[{"x1_", ",", "x3_"}], "]"}], ":=", RowBox[{ RowBox[{"U", "[", "x3", "]"}], "*", RowBox[{"Cos", "[", FractionBox[ RowBox[{"\[Pi]", "*", "x1"}], "L"], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.714583008266354*^9, 3.7145830722487745`*^9}, { 3.71469406778494*^9, 3.7146940697505646`*^9}}, ExpressionUUID -> "01bcdaa7-71df-471e-9844-e9f70d2f3389"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"u2", "[", RowBox[{"x1_", ",", "x3_"}], "]"}], ":=", RowBox[{ RowBox[{"V", "[", "x3", "]"}], "*", RowBox[{"Cos", "[", FractionBox[ RowBox[{"\[Pi]", "*", "x1"}], "L"], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.714583083092914*^9, 3.714583087883176*^9}, { 3.714694073347217*^9, 3.714694075774283*^9}}, ExpressionUUID -> "129c60a5-8c58-4f79-b2e6-5eea9df40667"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"u3", "[", RowBox[{"x1_", ",", "x3_"}], "]"}], ":=", RowBox[{ RowBox[{"W", "[", "x3", "]"}], "*", RowBox[{"Sin", "[", FractionBox[ RowBox[{"\[Pi]", "*", "x1"}], "L"], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.714583116088337*^9, 3.714583130050516*^9}, { 3.7146940808911486`*^9, 3.714694084198391*^9}}, ExpressionUUID -> "146425be-6e44-4a53-8d5e-0aff9faba895"], Cell["\<\ The simply supported BCs are automatically satisfied by these functions\ \>", "Text", CellChangeTimes->{{3.714583256256134*^9, 3.714583291434585*^9}},ExpressionUUID->"80270c7b-8f94-497e-801d-\ ecb9347244be"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"epsilon", "=", RowBox[{"Simplify", "[", RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"u1", "[", RowBox[{"x1", ",", "x3"}], "]"}], ",", "x1"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"u2", "[", RowBox[{"x1", ",", "x3"}], "]"}], ",", "x2"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"u3", "[", RowBox[{"x1", ",", "x3"}], "]"}], ",", "x3"}], "]"}], ",", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"u2", "[", RowBox[{"x1", ",", "x3"}], "]"}], ",", "x3"}], "]"}], "+", RowBox[{"D", "[", RowBox[{ RowBox[{"u3", "[", RowBox[{"x1", ",", "x3"}], "]"}], ",", "x2"}], "]"}]}], ",", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"u1", "[", RowBox[{"x1", ",", "x3"}], "]"}], ",", "x3"}], "]"}], "+", RowBox[{"D", "[", RowBox[{ RowBox[{"u3", "[", RowBox[{"x1", ",", "x3"}], "]"}], ",", "x1"}], "]"}]}], ",", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"u2", "[", RowBox[{"x1", ",", "x3"}], "]"}], ",", "x1"}], "]"}], "+", RowBox[{"D", "[", RowBox[{ RowBox[{"u1", "[", RowBox[{"x1", ",", "x3"}], "]"}], ",", "x2"}], "]"}]}]}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.7145833069099836`*^9, 3.7145834394257493`*^9}, { 3.7145834846384215`*^9, 3.7145835736999636`*^9}, {3.7145836066787863`*^9, 3.7145836108908405`*^9}}, ExpressionUUID -> "45c62fef-2056-457a-aa15-039c8ae8d39e"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"\[Pi]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"\[Pi]", " ", "x1"}], "L"], "]"}], " ", RowBox[{"U", "[", "x3", "]"}]}], "L"]}], ",", "0", ",", RowBox[{ RowBox[{"Sin", "[", FractionBox[ RowBox[{"\[Pi]", " ", "x1"}], "L"], "]"}], " ", RowBox[{ SuperscriptBox["W", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], ",", RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"\[Pi]", " ", "x1"}], "L"], "]"}], " ", RowBox[{ SuperscriptBox["V", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], ",", FractionBox[ RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"\[Pi]", " ", "x1"}], "L"], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Pi]", " ", RowBox[{"W", "[", "x3", "]"}]}], "+", RowBox[{"L", " ", RowBox[{ SuperscriptBox["U", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], ")"}]}], "L"], ",", RowBox[{"-", FractionBox[ RowBox[{"\[Pi]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"\[Pi]", " ", "x1"}], "L"], "]"}], " ", RowBox[{"V", "[", "x3", "]"}]}], "L"]}]}], "}"}]], "Output", CellChangeTimes->{3.7145835758371906`*^9, 3.7145836123416586`*^9, 3.7146909869211855`*^9, 3.714692098092231*^9, 3.7146933636896563`*^9, 3.7146935828256655`*^9, 3.714693857077182*^9, 3.7146943611955423`*^9, 3.714695072939067*^9, 3.7146954430850124`*^9, 3.7146956164812355`*^9, 3.7146962162153244`*^9, 3.714696350673448*^9, 3.7146965453951445`*^9, 3.7146971632544746`*^9, 3.7147277707103505`*^9, 3.7147286255701103`*^9, 3.7147314331693044`*^9, 3.7147331169612913`*^9, 3.714746498215123*^9, 3.7147466429110193`*^9, 3.714746945109213*^9, 3.7147471054460077`*^9, 3.714747446394014*^9, 3.71474756102719*^9, 3.714747689974666*^9, 3.7147498201525536`*^9, 3.7147499179555244`*^9}, ExpressionUUID -> "3c9dfc60-d55c-4b1f-8b6e-0760558c5bec"] }, Open ]], Cell[BoxData[ RowBox[{"mate", ":=", GridBox[{ {"C11", "C12", "C13", "0", "0", "C16"}, {"C12", "C22", "C23", "0", "0", "C26"}, {"C13", "C23", "C33", "0", "0", "C36"}, {"0", "0", "0", "C44", "C45", "0"}, {"0", "0", "0", "C45", "C55", "0"}, {"C16", "C26", "C36", "0", "0", "C66"} }]}]], "Input", CellChangeTimes->{{3.714583695755928*^9, 3.7145838258771963`*^9}}, ExpressionUUID -> "1e41e35d-17bc-46cf-ae75-4d14d91c799e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sigma", "=", RowBox[{"Simplify", "[", RowBox[{"mate", ".", "epsilon"}], "]"}]}]], "Input", CellChangeTimes->{{3.714583665943946*^9, 3.714583671544418*^9}, { 3.7145838298396473`*^9, 3.714583832086076*^9}}, ExpressionUUID -> "149b0c9f-05e7-4915-b787-58defd48c5e3"], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Sin", "[", FractionBox[ RowBox[{"\[Pi]", " ", "x1"}], "L"], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "C11"}], " ", "\[Pi]", " ", RowBox[{"U", "[", "x3", "]"}]}], "-", RowBox[{"C16", " ", "\[Pi]", " ", RowBox[{"V", "[", "x3", "]"}]}], "+", RowBox[{"C13", " ", "L", " ", RowBox[{ SuperscriptBox["W", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], ")"}]}], "L"], ",", FractionBox[ RowBox[{ RowBox[{"Sin", "[", FractionBox[ RowBox[{"\[Pi]", " ", "x1"}], "L"], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "C12"}], " ", "\[Pi]", " ", RowBox[{"U", "[", "x3", "]"}]}], "-", RowBox[{"C26", " ", "\[Pi]", " ", RowBox[{"V", "[", "x3", "]"}]}], "+", RowBox[{"C23", " ", "L", " ", RowBox[{ SuperscriptBox["W", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], ")"}]}], "L"], ",", FractionBox[ RowBox[{ RowBox[{"Sin", "[", FractionBox[ RowBox[{"\[Pi]", " ", "x1"}], "L"], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "C13"}], " ", "\[Pi]", " ", RowBox[{"U", "[", "x3", "]"}]}], "-", RowBox[{"C36", " ", "\[Pi]", " ", RowBox[{"V", "[", "x3", "]"}]}], "+", RowBox[{"C33", " ", "L", " ", RowBox[{ SuperscriptBox["W", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], ")"}]}], "L"], ",", FractionBox[ RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"\[Pi]", " ", "x1"}], "L"], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"C45", " ", "\[Pi]", " ", RowBox[{"W", "[", "x3", "]"}]}], "+", RowBox[{"C45", " ", "L", " ", RowBox[{ SuperscriptBox["U", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "+", RowBox[{"C44", " ", "L", " ", RowBox[{ SuperscriptBox["V", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], ")"}]}], "L"], ",", FractionBox[ RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"\[Pi]", " ", "x1"}], "L"], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"C55", " ", "\[Pi]", " ", RowBox[{"W", "[", "x3", "]"}]}], "+", RowBox[{"C55", " ", "L", " ", RowBox[{ SuperscriptBox["U", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "+", RowBox[{"C45", " ", "L", " ", RowBox[{ SuperscriptBox["V", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], ")"}]}], "L"], ",", FractionBox[ RowBox[{ RowBox[{"Sin", "[", FractionBox[ RowBox[{"\[Pi]", " ", "x1"}], "L"], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "C16"}], " ", "\[Pi]", " ", RowBox[{"U", "[", "x3", "]"}]}], "-", RowBox[{"C66", " ", "\[Pi]", " ", RowBox[{"V", "[", "x3", "]"}]}], "+", RowBox[{"C36", " ", "L", " ", RowBox[{ SuperscriptBox["W", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], ")"}]}], "L"]}], "}"}]], "Output", CellChangeTimes->{3.7145838415709977`*^9, 3.7146909872019887`*^9, 3.714692098341834*^9, 3.7146933639236593`*^9, 3.7146935829036665`*^9, 3.7146938573111844`*^9, 3.7146943614295454`*^9, 3.7146950730014677`*^9, 3.7146954433034153`*^9, 3.7146956166996384`*^9, 3.7146962164337273`*^9, 3.7146963509074507`*^9, 3.7146965456291475`*^9, 3.7146971634884777`*^9, 3.7147277709599533`*^9, 3.7147286257885127`*^9, 3.714731433387707*^9, 3.714733117179694*^9, 3.714746498309424*^9, 3.7147466430062857`*^9, 3.7147469452054625`*^9, 3.714747105548273*^9, 3.714747446493449*^9, 3.71474756113667*^9, 3.7147476900769925`*^9, 3.714749820250867*^9, 3.7147499180498257`*^9}, ExpressionUUID -> "8f75646c-496a-44f7-b289-3a18f31cac6f"] }, Open ]], Cell["The equilibrium equations need to be satisfied", "Text", CellChangeTimes->{{3.714584227972351*^9, 3.714584246177785*^9}},ExpressionUUID->"b2448e47-cb3c-42ff-bdbd-\ e4cfbaab7df6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"eq1", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"sigma", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "x1"}], "]"}], "+", RowBox[{"D", "[", RowBox[{ RowBox[{"sigma", "[", RowBox[{"[", "6", "]"}], "]"}], ",", "x2"}], "]"}], "+", RowBox[{"D", "[", RowBox[{ RowBox[{"sigma", "[", RowBox[{"[", "5", "]"}], "]"}], ",", "x3"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7145847823098583`*^9, 3.7145848557243996`*^9}}, ExpressionUUID -> "213cfd99-be1d-4f8b-8cea-c303ac558bbe"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"\[Pi]", " ", "x1"}], "L"], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"C11", " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"U", "[", "x3", "]"}]}], "+", RowBox[{"C16", " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"V", "[", "x3", "]"}]}], "-", RowBox[{"L", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"C13", "+", "C55"}], ")"}], " ", "\[Pi]", " ", RowBox[{ SuperscriptBox["W", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "+", RowBox[{"L", " ", RowBox[{"(", RowBox[{ RowBox[{"C55", " ", RowBox[{ SuperscriptBox["U", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "+", RowBox[{"C45", " ", RowBox[{ SuperscriptBox["V", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], SuperscriptBox["L", "2"]]}]], "Output", CellChangeTimes->{3.714584857643224*^9, 3.7146909873267903`*^9, 3.7146920985290365`*^9, 3.714693364048461*^9, 3.7146935829660673`*^9, 3.714693857435986*^9, 3.714694361554347*^9, 3.7146950730638685`*^9, 3.714695443443817*^9, 3.71469561682444*^9, 3.714696216558529*^9, 3.7146963510322523`*^9, 3.7146965457695494`*^9, 3.7146971636132793`*^9, 3.714727771100355*^9, 3.714728625928914*^9, 3.7147314335281086`*^9, 3.7147331173200955`*^9, 3.7147464983666067`*^9, 3.7147466430624423`*^9, 3.714746945260606*^9, 3.7147471056064234`*^9, 3.7147474465486917`*^9, 3.7147475612059736`*^9, 3.714747690133172*^9, 3.7147498203080497`*^9, 3.714749918107008*^9}, ExpressionUUID -> "c14597f6-e20b-4e6a-8302-abf9337b9edd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"eq2", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"sigma", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "x2"}], "]"}], "+", RowBox[{"D", "[", RowBox[{ RowBox[{"sigma", "[", RowBox[{"[", "6", "]"}], "]"}], ",", "x1"}], "]"}], "+", RowBox[{"D", "[", RowBox[{ RowBox[{"sigma", "[", RowBox[{"[", "4", "]"}], "]"}], ",", "x3"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7145847823098583`*^9, 3.7145848557243996`*^9}, { 3.714584907829067*^9, 3.7145849231952643`*^9}}, ExpressionUUID -> "1b4b523b-f1a6-4ad5-9dfd-23029fa63d04"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"\[Pi]", " ", "x1"}], "L"], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"C16", " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"U", "[", "x3", "]"}]}], "+", RowBox[{"C66", " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"V", "[", "x3", "]"}]}], "-", RowBox[{"L", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"C36", "+", "C45"}], ")"}], " ", "\[Pi]", " ", RowBox[{ SuperscriptBox["W", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "+", RowBox[{"L", " ", RowBox[{"(", RowBox[{ RowBox[{"C45", " ", RowBox[{ SuperscriptBox["U", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "+", RowBox[{"C44", " ", RowBox[{ SuperscriptBox["V", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], SuperscriptBox["L", "2"]]}]], "Output", CellChangeTimes->{3.7145849391074686`*^9, 3.7146909874827924`*^9, 3.714692098669438*^9, 3.7146933641732626`*^9, 3.7146935830440683`*^9, 3.714693857576388*^9, 3.714694361694749*^9, 3.7146950731262693`*^9, 3.714695443568619*^9, 3.714695616964842*^9, 3.7146962166833305`*^9, 3.714696351157054*^9, 3.714696545894351*^9, 3.714697163753681*^9, 3.714727771225157*^9, 3.7147286260537157`*^9, 3.71473143365291*^9, 3.714733117444897*^9, 3.714746498420779*^9, 3.714746643118599*^9, 3.714746945318756*^9, 3.7147471056615667`*^9, 3.7147474466059422`*^9, 3.714747561268246*^9, 3.714747690189351*^9, 3.7147498203642287`*^9, 3.7147499181611805`*^9}, ExpressionUUID -> "d6086f95-e97f-41f4-ad91-17198aac7e47"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"eq3", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"sigma", "[", RowBox[{"[", "5", "]"}], "]"}], ",", "x1"}], "]"}], "+", RowBox[{"D", "[", RowBox[{ RowBox[{"sigma", "[", RowBox[{"[", "4", "]"}], "]"}], ",", "x2"}], "]"}], "+", RowBox[{"D", "[", RowBox[{ RowBox[{"sigma", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "x3"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7145847823098583`*^9, 3.7145848557243996`*^9}, { 3.7145849452539473`*^9, 3.7145849641925898`*^9}, {3.7145854082054825`*^9, 3.7145854222144623`*^9}}, ExpressionUUID -> "0d55192f-e35a-4b55-ad17-78131f03d958"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Sin", "[", FractionBox[ RowBox[{"\[Pi]", " ", "x1"}], "L"], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"C55", " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"W", "[", "x3", "]"}]}], "+", RowBox[{"L", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"C13", "+", "C55"}], ")"}], " ", "\[Pi]", " ", RowBox[{ SuperscriptBox["U", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"C36", "+", "C45"}], ")"}], " ", "\[Pi]", " ", RowBox[{ SuperscriptBox["V", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "-", RowBox[{"C33", " ", "L", " ", RowBox[{ SuperscriptBox["W", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], ")"}]}]}], ")"}]}], SuperscriptBox["L", "2"]]}]], "Output", CellChangeTimes->{3.714584965066201*^9, 3.714585423134874*^9, 3.7146909876387944`*^9, 3.7146920987474394`*^9, 3.714693364266864*^9, 3.714693583106469*^9, 3.7146938577167892`*^9, 3.71469436177275*^9, 3.71469507317307*^9, 3.71469544364662*^9, 3.714695617042843*^9, 3.714696216761331*^9, 3.714696351235055*^9, 3.714696545987952*^9, 3.714697163831682*^9, 3.714727771303158*^9, 3.714728626131717*^9, 3.7147314337465115`*^9, 3.7147331175384984`*^9, 3.7147464984568944`*^9, 3.7147466431547003`*^9, 3.7147469453558526`*^9, 3.7147471056986628`*^9, 3.7147474466491313`*^9, 3.7147475613044043`*^9, 3.7147476902274723`*^9, 3.714749820401347*^9, 3.7147499181982994`*^9}, ExpressionUUID -> "3b33dabe-077c-4483-ab14-15b329565104"] }, Open ]], Cell["\<\ the coefficients of the sin and cos functions have to be 0 in order to \ satisfy the BCs \ \>", "Text", CellChangeTimes->{{3.71458499462858*^9, 3.7145850608826294`*^9}, { 3.7147279363532743`*^9, 3.7147279374140873`*^9}},ExpressionUUID->"4c9c2bb6-ae5e-4e6a-81cd-\ 2faac51b678c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GDE", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Coefficient", "[", RowBox[{"eq1", ",", RowBox[{"Cos", "[", FractionBox[ RowBox[{"\[Pi]", "*", "x1"}], "L"], "]"}]}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"Coefficient", "[", RowBox[{"eq2", ",", RowBox[{"Cos", "[", FractionBox[ RowBox[{"\[Pi]", "*", "x1"}], "L"], "]"}]}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"Coefficient", "[", RowBox[{"eq3", ",", RowBox[{"Sin", "[", FractionBox[ RowBox[{"\[Pi]", "*", "x1"}], "L"], "]"}]}], "]"}], "\[Equal]", "0"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.714585174186882*^9, 3.7145852728893476`*^9}, { 3.7146941460999846`*^9, 3.714694162277392*^9}, {3.714696444695853*^9, 3.714696450140323*^9}}, ExpressionUUID -> "7167141e-255d-4dcf-ac5f-eaac6cf372e6"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"C11", " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"U", "[", "x3", "]"}]}], "+", RowBox[{"C16", " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"V", "[", "x3", "]"}]}], "-", RowBox[{"L", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"C13", "+", "C55"}], ")"}], " ", "\[Pi]", " ", RowBox[{ SuperscriptBox["W", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "+", RowBox[{"L", " ", RowBox[{"(", RowBox[{ RowBox[{"C55", " ", RowBox[{ SuperscriptBox["U", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "+", RowBox[{"C45", " ", RowBox[{ SuperscriptBox["V", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], ")"}]}]}], ")"}]}]}], SuperscriptBox["L", "2"]]}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"C16", " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"U", "[", "x3", "]"}]}], "+", RowBox[{"C66", " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"V", "[", "x3", "]"}]}], "-", RowBox[{"L", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"C36", "+", "C45"}], ")"}], " ", "\[Pi]", " ", RowBox[{ SuperscriptBox["W", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "+", RowBox[{"L", " ", RowBox[{"(", RowBox[{ RowBox[{"C45", " ", RowBox[{ SuperscriptBox["U", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "+", RowBox[{"C44", " ", RowBox[{ SuperscriptBox["V", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], ")"}]}]}], ")"}]}]}], SuperscriptBox["L", "2"]]}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"C55", " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"W", "[", "x3", "]"}]}], "+", RowBox[{"L", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"C13", "+", "C55"}], ")"}], " ", "\[Pi]", " ", RowBox[{ SuperscriptBox["U", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"C36", "+", "C45"}], ")"}], " ", "\[Pi]", " ", RowBox[{ SuperscriptBox["V", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "-", RowBox[{"C33", " ", "L", " ", RowBox[{ SuperscriptBox["W", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], ")"}]}]}], SuperscriptBox["L", "2"]]}], "\[Equal]", "0"}]}], "}"}]], "Output", CellChangeTimes->{{3.714585252063081*^9, 3.7145852736225567`*^9}, 3.714585371872617*^9, 3.7145854277213326`*^9, 3.714690987763596*^9, 3.7146920988566403`*^9, 3.714693364360465*^9, 3.7146935832156706`*^9, 3.714693857825991*^9, 3.714694361866351*^9, 3.714695073251071*^9, 3.714695443740221*^9, 3.7146956171520443`*^9, 3.7146962168705325`*^9, 3.714696351328656*^9, 3.7146965460035524`*^9, 3.7146971638472824`*^9, 3.714727771334358*^9, 3.7147286261629176`*^9, 3.7147314338245125`*^9, 3.714733117600899*^9, 3.7147464984659233`*^9, 3.714746643163725*^9, 3.7147469453638735`*^9, 3.714747105709691*^9, 3.7147474466611843`*^9, 3.7147475613144484`*^9, 3.7147476902365017`*^9, 3.714749820411379*^9, 3.714749918207328*^9}, ExpressionUUID -> "1cf84062-33b1-4f8e-8820-67e6e4136371"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sigma0", "=", RowBox[{"{", RowBox[{ RowBox[{"Coefficient", "[", RowBox[{ RowBox[{"sigma", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Sin", "[", FractionBox[ RowBox[{"\[Pi]", "*", "x1"}], "L"], "]"}]}], "]"}], ",", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{"sigma", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"Sin", "[", FractionBox[ RowBox[{"\[Pi]", "*", "x1"}], "L"], "]"}]}], "]"}], ",", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{"sigma", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"Sin", "[", FractionBox[ RowBox[{"\[Pi]", "*", "x1"}], "L"], "]"}]}], "]"}], ",", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{"sigma", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"Cos", "[", FractionBox[ RowBox[{"\[Pi]", "*", "x1"}], "L"], "]"}]}], "]"}], ",", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{"sigma", "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{"Cos", "[", FractionBox[ RowBox[{"\[Pi]", "*", "x1"}], "L"], "]"}]}], "]"}], ",", RowBox[{"Coefficient", "[", RowBox[{ RowBox[{"sigma", "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{"Sin", "[", FractionBox[ RowBox[{"\[Pi]", "*", "x1"}], "L"], "]"}]}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.714585471105489*^9, 3.7145856515530024`*^9}, { 3.7146957604398813`*^9, 3.7146957932159014`*^9}}, ExpressionUUID -> "b845bd84-1b13-4a3d-9e19-948b4723a610"], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "C11"}], " ", "\[Pi]", " ", RowBox[{"U", "[", "x3", "]"}]}], "-", RowBox[{"C16", " ", "\[Pi]", " ", RowBox[{"V", "[", "x3", "]"}]}], "+", RowBox[{"C13", " ", "L", " ", RowBox[{ SuperscriptBox["W", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], "L"], ",", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "C12"}], " ", "\[Pi]", " ", RowBox[{"U", "[", "x3", "]"}]}], "-", RowBox[{"C26", " ", "\[Pi]", " ", RowBox[{"V", "[", "x3", "]"}]}], "+", RowBox[{"C23", " ", "L", " ", RowBox[{ SuperscriptBox["W", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], "L"], ",", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "C13"}], " ", "\[Pi]", " ", RowBox[{"U", "[", "x3", "]"}]}], "-", RowBox[{"C36", " ", "\[Pi]", " ", RowBox[{"V", "[", "x3", "]"}]}], "+", RowBox[{"C33", " ", "L", " ", RowBox[{ SuperscriptBox["W", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], "L"], ",", FractionBox[ RowBox[{ RowBox[{"C45", " ", "\[Pi]", " ", RowBox[{"W", "[", "x3", "]"}]}], "+", RowBox[{"C45", " ", "L", " ", RowBox[{ SuperscriptBox["U", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "+", RowBox[{"C44", " ", "L", " ", RowBox[{ SuperscriptBox["V", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], "L"], ",", FractionBox[ RowBox[{ RowBox[{"C55", " ", "\[Pi]", " ", RowBox[{"W", "[", "x3", "]"}]}], "+", RowBox[{"C55", " ", "L", " ", RowBox[{ SuperscriptBox["U", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "+", RowBox[{"C45", " ", "L", " ", RowBox[{ SuperscriptBox["V", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], "L"], ",", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "C16"}], " ", "\[Pi]", " ", RowBox[{"U", "[", "x3", "]"}]}], "-", RowBox[{"C66", " ", "\[Pi]", " ", RowBox[{"V", "[", "x3", "]"}]}], "+", RowBox[{"C36", " ", "L", " ", RowBox[{ SuperscriptBox["W", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], "L"]}], "}"}]], "Output", CellChangeTimes->{3.7145856525046144`*^9, 3.714690987810396*^9, 3.714692098872241*^9, 3.7146933644540663`*^9, 3.714693583231271*^9, 3.714693857841591*^9, 3.7146943619599524`*^9, 3.714695073266671*^9, 3.714695443755821*^9, 3.714695617214445*^9, 3.714695796850748*^9, 3.7146962168861327`*^9, 3.7146963513442564`*^9, 3.7146965460191526`*^9, 3.7146971638628826`*^9, 3.7147277713499584`*^9, 3.7147281664718237`*^9, 3.7147286261785173`*^9, 3.7147314338401127`*^9, 3.7147331176320996`*^9, 3.714746498475955*^9, 3.7147466431737533`*^9, 3.714746945374902*^9, 3.714747105722725*^9, 3.714747446673237*^9, 3.7147475613265014`*^9, 3.71474769024854*^9, 3.7147498204214115`*^9, 3.7147499182183633`*^9}, ExpressionUUID -> "efe41b77-25bf-4763-b860-b52d8d25b270"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h", "=", "1"}]], "Input", CellChangeTimes->{{3.714691095170973*^9, 3.714691095950983*^9}, { 3.714693789809119*^9, 3.7146937901523237`*^9}, {3.714697095986412*^9, 3.714697096345217*^9}}, ExpressionUUID -> "0b550e71-341b-4d83-b182-1edd85e2f8e2"], Cell[BoxData["1"], "Output", CellChangeTimes->{3.7146910986342173`*^9, 3.7146920988878407`*^9, 3.714693364469666*^9, 3.714693583246871*^9, 3.7146938578571916`*^9, 3.7146943619599524`*^9, 3.7146950732822714`*^9, 3.7146954437714214`*^9, 3.7146956172300453`*^9, 3.714696216901733*^9, 3.7146963513598566`*^9, 3.714696546034753*^9, 3.7146970977180347`*^9, 3.714697163878483*^9, 3.7147277714279594`*^9, 3.7147286261785173`*^9, 3.714731433855713*^9, 3.7147331176477003`*^9, 3.714746498483981*^9, 3.7147466431827784`*^9, 3.7147469453839254`*^9, 3.714747105732751*^9, 3.714747446683281*^9, 3.7147475613395586`*^9, 3.714747690256565*^9, 3.7147498204294367`*^9, 3.7147499182253857`*^9}, ExpressionUUID -> "4cd05629-11e5-45a3-bb7a-e42d12dbb364"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"L", "=", "4"}]], "Input", CellChangeTimes->{{3.7146911002722387`*^9, 3.71469110120825*^9}, { 3.714693792679556*^9, 3.71469379300716*^9}, {3.7146971007444735`*^9, 3.714697101087678*^9}}, ExpressionUUID -> "166da079-2e77-4120-b505-e4f7de5b4336"], Cell[BoxData["4"], "Output", CellChangeTimes->{3.7146911017074566`*^9, 3.7146920988878407`*^9, 3.7146933644852667`*^9, 3.714693583262471*^9, 3.7146938578727913`*^9, 3.714694361975552*^9, 3.7146950732978716`*^9, 3.7146954437870216`*^9, 3.7146956172456455`*^9, 3.714696216901733*^9, 3.714696351375457*^9, 3.714696546034753*^9, 3.7146971016648855`*^9, 3.714697163894083*^9, 3.7147277714435596`*^9, 3.714728626194118*^9, 3.714731433871313*^9, 3.7147331176477003`*^9, 3.714746498491003*^9, 3.7147466431908007`*^9, 3.7147469453919463`*^9, 3.714747105742777*^9, 3.7147474466943293`*^9, 3.7147475613496027`*^9, 3.7147476902655945`*^9, 3.7147498204364595`*^9, 3.7147499182334113`*^9}, ExpressionUUID -> "3d88f1d2-8ba4-41f1-8c9b-2135e742234a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"q0", "=", RowBox[{"1", "*", RowBox[{"10", "^", "6"}]}]}]], "Input", CellChangeTimes->{{3.714691102971073*^9, 3.714691104936698*^9}, { 3.7146971037397118`*^9, 3.7146971126942267`*^9}}, ExpressionUUID -> "78f37837-eaa7-49f2-9328-58340f645813"], Cell[BoxData["1000000"], "Output", CellChangeTimes->{3.7146911052799025`*^9, 3.7146920989034414`*^9, 3.7146933644852667`*^9, 3.7146935832780714`*^9, 3.7146938578727913`*^9, 3.7146943619911523`*^9, 3.7146950732978716`*^9, 3.714695443802622*^9, 3.7146956172612457`*^9, 3.714696216917333*^9, 3.714696351391057*^9, 3.714696546050353*^9, 3.7146971139266424`*^9, 3.714697163894083*^9, 3.71472777145916*^9, 3.7147286262097178`*^9, 3.714731433871313*^9, 3.7147331176633*^9, 3.7147464984990287`*^9, 3.714746643198823*^9, 3.714746945399967*^9, 3.7147471057518005`*^9, 3.7147474467043734`*^9, 3.714747561360651*^9, 3.714747690274623*^9, 3.7147498204434814`*^9, 3.7147499182404337`*^9}, ExpressionUUID -> "d17cf90c-0e56-456b-9f78-14376ad74d41"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"matetop", "=", RowBox[{"{", RowBox[{ RowBox[{"C11", "\[Rule]", " ", RowBox[{"Ctop", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{"C12", "\[Rule]", " ", RowBox[{"Ctop", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{"C13", "\[Rule]", " ", RowBox[{"Ctop", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{"C16", "\[Rule]", " ", RowBox[{"Ctop", "[", RowBox[{"[", RowBox[{"1", ",", "6"}], "]"}], "]"}]}], ",", RowBox[{"C22", "\[Rule]", " ", RowBox[{"Ctop", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{"C23", "\[Rule]", " ", RowBox[{"Ctop", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{"C26", "\[Rule]", " ", RowBox[{"Ctop", "[", RowBox[{"[", RowBox[{"2", ",", "6"}], "]"}], "]"}]}], ",", RowBox[{"C33", "\[Rule]", " ", RowBox[{"Ctop", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{"C36", "\[Rule]", " ", RowBox[{"Ctop", "[", RowBox[{"[", RowBox[{"3", ",", "6"}], "]"}], "]"}]}], ",", RowBox[{"C44", "\[Rule]", " ", RowBox[{"Ctop", "[", RowBox[{"[", RowBox[{"4", ",", "4"}], "]"}], "]"}]}], ",", RowBox[{"C55", "\[Rule]", " ", RowBox[{"Ctop", "[", RowBox[{"[", RowBox[{"5", ",", "5"}], "]"}], "]"}]}], ",", RowBox[{"C45", "\[Rule]", " ", RowBox[{"Ctop", "[", RowBox[{"[", RowBox[{"4", ",", "5"}], "]"}], "]"}]}], ",", RowBox[{"C66", "\[Rule]", " ", RowBox[{"Ctop", "[", RowBox[{"[", RowBox[{"6", ",", "6"}], "]"}], "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.7146911148740253`*^9, 3.714691334103636*^9}}, ExpressionUUID -> "e12d7158-65ad-480e-b259-0588c906921b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"C11", "\[Rule]", "6.146258734247766`*^10"}], ",", RowBox[{"C12", "\[Rule]", "3.439397696055623`*^10"}], ",", RowBox[{"C13", "\[Rule]", "6.31018835389883`*^9"}], ",", RowBox[{"C16", "\[Rule]", RowBox[{"-", "3.7057886233329094`*^10"}]}], ",", RowBox[{"C22", "\[Rule]", "3.885228987117793`*^10"}], ",", RowBox[{"C23", "\[Rule]", "6.426060971103099`*^9"}], ",", RowBox[{"C26", "\[Rule]", RowBox[{"-", "2.7056798259236053`*^10"}]}], ",", RowBox[{"C33", "\[Rule]", "1.3413175962354393`*^10"}], ",", RowBox[{"C36", "\[Rule]", "3.285731336710486`*^8"}], ",", RowBox[{"C44", "\[Rule]", "4.863960316646187`*^9"}], ",", RowBox[{"C55", "\[Rule]", "5.496039683353814`*^9"}], ",", RowBox[{"C45", "\[Rule]", RowBox[{"-", "1.7923501104822187`*^9"}]}], ",", RowBox[{"C66", "\[Rule]", "3.535949420193555`*^10"}]}], "}"}]], "Output", CellChangeTimes->{3.7146913439473624`*^9, 3.714692098919041*^9, 3.7146933645008664`*^9, 3.7146935832780714`*^9, 3.714693857888392*^9, 3.7146943620067525`*^9, 3.714695073313472*^9, 3.714695443818222*^9, 3.714695617276846*^9, 3.7146962169329333`*^9, 3.714696351406657*^9, 3.7146965460659533`*^9, 3.714697163909683*^9, 3.71472777147476*^9, 3.7147286262253184`*^9, 3.7147314338869133`*^9, 3.7147331176789007`*^9, 3.7147464985070543`*^9, 3.7147466432068453`*^9, 3.7147469454089904`*^9, 3.714747105763832*^9, 3.714747446716426*^9, 3.7147475613737082`*^9, 3.714747690284655*^9, 3.7147498204535136`*^9, 3.714749918248459*^9}, ExpressionUUID -> "ebddf04f-54ad-418d-a054-81c6ac95ad73"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"matebot", "=", RowBox[{"{", RowBox[{ RowBox[{"C11", "\[Rule]", " ", RowBox[{"Cbot", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{"C12", "\[Rule]", " ", RowBox[{"Cbot", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{"C13", "\[Rule]", " ", RowBox[{"Cbot", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{"C16", "\[Rule]", " ", RowBox[{"Cbot", "[", RowBox[{"[", RowBox[{"1", ",", "6"}], "]"}], "]"}]}], ",", RowBox[{"C22", "\[Rule]", " ", RowBox[{"Cbot", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{"C23", "\[Rule]", " ", RowBox[{"Cbot", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{"C26", "\[Rule]", " ", RowBox[{"Cbot", "[", RowBox[{"[", RowBox[{"2", ",", "6"}], "]"}], "]"}]}], ",", RowBox[{"C33", "\[Rule]", " ", RowBox[{"Cbot", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{"C36", "\[Rule]", " ", RowBox[{"Cbot", "[", RowBox[{"[", RowBox[{"3", ",", "6"}], "]"}], "]"}]}], ",", RowBox[{"C44", "\[Rule]", " ", RowBox[{"Cbot", "[", RowBox[{"[", RowBox[{"4", ",", "4"}], "]"}], "]"}]}], ",", RowBox[{"C55", "\[Rule]", " ", RowBox[{"Cbot", "[", RowBox[{"[", RowBox[{"5", ",", "5"}], "]"}], "]"}]}], ",", RowBox[{"C45", "\[Rule]", " ", RowBox[{"Cbot", "[", RowBox[{"[", RowBox[{"4", ",", "5"}], "]"}], "]"}]}], ",", RowBox[{"C66", "\[Rule]", " ", RowBox[{"Cbot", "[", RowBox[{"[", RowBox[{"6", ",", "6"}], "]"}], "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.7146911148740253`*^9, 3.7146914359261417`*^9}}, ExpressionUUID -> "067667e4-6000-4d9f-9be4-73ee280d4fbf"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"C11", "\[Rule]", "6.146258734247766`*^10"}], ",", RowBox[{"C12", "\[Rule]", "3.439397696055623`*^10"}], ",", RowBox[{"C13", "\[Rule]", "6.31018835389883`*^9"}], ",", RowBox[{"C16", "\[Rule]", "3.7057886233329094`*^10"}], ",", RowBox[{"C22", "\[Rule]", "3.885228987117793`*^10"}], ",", RowBox[{"C23", "\[Rule]", "6.426060971103099`*^9"}], ",", RowBox[{"C26", "\[Rule]", "2.7056798259236053`*^10"}], ",", RowBox[{"C33", "\[Rule]", "1.3413175962354393`*^10"}], ",", RowBox[{"C36", "\[Rule]", RowBox[{"-", "3.285731336710486`*^8"}]}], ",", RowBox[{"C44", "\[Rule]", "4.863960316646187`*^9"}], ",", RowBox[{"C55", "\[Rule]", "5.496039683353814`*^9"}], ",", RowBox[{"C45", "\[Rule]", "1.7923501104822187`*^9"}], ",", RowBox[{"C66", "\[Rule]", "3.535949420193555`*^10"}]}], "}"}]], "Output", CellChangeTimes->{3.7146914498727207`*^9, 3.714692098919041*^9, 3.714693364516467*^9, 3.7146935832936716`*^9, 3.7146938579039917`*^9, 3.7146943620223527`*^9, 3.714695073329072*^9, 3.714695443818222*^9, 3.714695617276846*^9, 3.7146962169485335`*^9, 3.714696351406657*^9, 3.7146965460815535`*^9, 3.7146971639252834`*^9, 3.7147277714903603`*^9, 3.7147286262877192`*^9, 3.7147314339025135`*^9, 3.7147331176945004`*^9, 3.7147464985160832`*^9, 3.714746643215871*^9, 3.7147469454180136`*^9, 3.7147471057768655`*^9, 3.7147474467294836`*^9, 3.7147475613867655`*^9, 3.7147476902956905`*^9, 3.7147498204775906`*^9, 3.7147499182594943`*^9}, ExpressionUUID -> "a53aab28-abf8-452e-87ff-7954184d64a0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"eqnsbot", "=", RowBox[{ RowBox[{"GDE", "/.", RowBox[{"{", RowBox[{ RowBox[{"U", "\[Rule]", " ", "Ub"}], ",", RowBox[{"V", "\[Rule]", " ", "Vb"}], ",", RowBox[{"W", "\[Rule]", " ", "Wb"}]}], "}"}]}], "/.", "matebot"}]}]], "Input", CellChangeTimes->{{3.714691461791273*^9, 3.7146915102298937`*^9}, { 3.714691911669841*^9, 3.7146919236507945`*^9}, 3.714692037672656*^9, { 3.714746856219616*^9, 3.714746868699462*^9}, {3.7147470453271036`*^9, 3.714747060194659*^9}}, ExpressionUUID -> "b5d1f6b0-70fc-4c8b-95f4-6e414dc259c0"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "16"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6.066114225376566`*^11"}], " ", RowBox[{"Ub", "[", "x3", "]"}]}], "-", RowBox[{"3.6574667706353357`*^11", " ", RowBox[{"Vb", "[", "x3", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"3.709035926843875`*^10", " ", RowBox[{ SuperscriptBox["Wb", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"5.496039683353814`*^9", " ", RowBox[{ SuperscriptBox["Ub", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "+", RowBox[{"1.7923501104822187`*^9", " ", RowBox[{ SuperscriptBox["Vb", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ FractionBox["1", "16"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3.6574667706353357`*^11"}], " ", RowBox[{"Ub", "[", "x3", "]"}]}], "-", RowBox[{"3.4898421959571674`*^11", " ", RowBox[{"Vb", "[", "x3", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"4.598590996843849`*^9", " ", RowBox[{ SuperscriptBox["Wb", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"1.7923501104822187`*^9", " ", RowBox[{ SuperscriptBox["Ub", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "+", RowBox[{"4.863960316646187`*^9", " ", RowBox[{ SuperscriptBox["Vb", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ FractionBox["1", "16"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "5.4243737447390564`*^10"}], " ", RowBox[{"Wb", "[", "x3", "]"}]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"3.709035926843875`*^10", " ", RowBox[{ SuperscriptBox["Ub", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "+", RowBox[{"4.598590996843849`*^9", " ", RowBox[{ SuperscriptBox["Vb", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "-", RowBox[{"5.365270384941757`*^10", " ", RowBox[{ SuperscriptBox["Wb", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], ")"}]}]}], ")"}]}], "\[Equal]", "0"}]}], "}"}]], "Output", CellChangeTimes->{3.714691512616725*^9, 3.7146919263340287`*^9, 3.714692040106287*^9, 3.7146920989502416`*^9, 3.7146933645476675`*^9, 3.714693583309272*^9, 3.7146938579195924`*^9, 3.714694362037953*^9, 3.714695073344672*^9, 3.7146954438494225`*^9, 3.714695617292446*^9, 3.7146962169485335`*^9, 3.7146963514222574`*^9, 3.7146965460971537`*^9, 3.7146971639408836`*^9, 3.7147277715059605`*^9, 3.714728626303319*^9, 3.7147314339181137`*^9, 3.714733117710101*^9, 3.714746498525112*^9, 3.7147466432258987`*^9, 3.7147468703560877`*^9, 3.714746945436061*^9, 3.7147471057878942`*^9, 3.7147474467425404`*^9, 3.714747561398818*^9, 3.714747690307729*^9, 3.714749820489629*^9, 3.7147499182695265`*^9}, ExpressionUUID -> "982eb5b6-4022-4919-9328-5f3c399b84c7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"eqnstop", "=", RowBox[{ RowBox[{"GDE", "/.", RowBox[{"{", RowBox[{ RowBox[{"U", "\[Rule]", " ", "Ut"}], ",", RowBox[{"V", "\[Rule]", " ", "Vt"}], ",", RowBox[{"W", "\[Rule]", " ", "Wt"}]}], "}"}]}], "/.", "matetop"}]}]], "Input", CellChangeTimes->{{3.71469153022935*^9, 3.7146915557824783`*^9}, { 3.7147469318227577`*^9, 3.714746937003192*^9}, {3.714747049545042*^9, 3.7147470558644295`*^9}}, ExpressionUUID -> "8c27b31f-d76d-4ec2-9a73-00e52b5c3bb5"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "16"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "6.066114225376566`*^11"}], " ", RowBox[{"Ut", "[", "x3", "]"}]}], "+", RowBox[{"3.6574667706353357`*^11", " ", RowBox[{"Vt", "[", "x3", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"3.709035926843875`*^10", " ", RowBox[{ SuperscriptBox["Wt", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"5.496039683353814`*^9", " ", RowBox[{ SuperscriptBox["Ut", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "-", RowBox[{"1.7923501104822187`*^9", " ", RowBox[{ SuperscriptBox["Vt", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ FractionBox["1", "16"], " ", RowBox[{"(", RowBox[{ RowBox[{"3.6574667706353357`*^11", " ", RowBox[{"Ut", "[", "x3", "]"}]}], "-", RowBox[{"3.4898421959571674`*^11", " ", RowBox[{"Vt", "[", "x3", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4.598590996843849`*^9"}], " ", RowBox[{ SuperscriptBox["Wt", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "1.7923501104822187`*^9"}], " ", RowBox[{ SuperscriptBox["Ut", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "+", RowBox[{"4.863960316646187`*^9", " ", RowBox[{ SuperscriptBox["Vt", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ FractionBox["1", "16"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "5.4243737447390564`*^10"}], " ", RowBox[{"Wt", "[", "x3", "]"}]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"3.709035926843875`*^10", " ", RowBox[{ SuperscriptBox["Ut", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "-", RowBox[{"4.598590996843849`*^9", " ", RowBox[{ SuperscriptBox["Vt", "\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}], "-", RowBox[{"5.365270384941757`*^10", " ", RowBox[{ SuperscriptBox["Wt", "\[Prime]\[Prime]", MultilineFunction->None], "[", "x3", "]"}]}]}], ")"}]}]}], ")"}]}], "\[Equal]", "0"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7146915565312877`*^9, 3.7146920989658422`*^9, 3.714693364563267*^9, 3.714693583324872*^9, 3.714693857935192*^9, 3.714694362053553*^9, 3.7146950733602724`*^9, 3.7146954438650227`*^9, 3.7146956173080463`*^9, 3.714696216979734*^9, 3.7146963514378576`*^9, 3.714696546112754*^9, 3.714697163972084*^9, 3.7147277715215607`*^9, 3.7147286263189197`*^9, 3.714731433933714*^9, 3.714733117725701*^9, 3.7147464985341406`*^9, 3.7147466432349243`*^9, {3.7147469381070547`*^9, 3.714746945452102*^9}, 3.7147471057989225`*^9, 3.7147474467545934`*^9, 3.7147475614118757`*^9, 3.714747690319767*^9, 3.714749820501667*^9, 3.714749918278555*^9}, ExpressionUUID -> "c49667fe-3dcb-4153-af00-9cb80c7f9183"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"solb", "=", RowBox[{ RowBox[{"DSolve", "[", RowBox[{"eqnsbot", ",", RowBox[{"{", RowBox[{"Ub", ",", "Vb", ",", "Wb"}], "}"}], ",", "x3"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.714691562537365*^9, 3.7146915923181467`*^9}, 3.714691697057889*^9, {3.7147316880141716`*^9, 3.714731704363181*^9}, 3.7147466155273247`*^9}, ExpressionUUID -> "b1f63335-73b2-4c76-af32-0c06ca5b4c9f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Ub", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "x3", "}"}], ",", RowBox[{ RowBox[{"0.3578625001458258`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.0000000000000007`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"2.4434688976492343`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"2.046284225334436`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "-", RowBox[{"2.0462842253344515`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "+", RowBox[{"2.4434688976492493`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"C", "[", "1", "]"}]}], "+", RowBox[{"0.11742010498246652`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "0.9999999999999998`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "-", RowBox[{"2.3521146054432167`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "+", RowBox[{"1.1011954054686799`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "-", RowBox[{"1.101195405468698`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "+", RowBox[{"2.3521146054432363`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"C", "[", "2", "]"}]}], "+", RowBox[{"0.25546015943356787`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.0000000000000002`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "-", RowBox[{"1.0024763319551373`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "+", RowBox[{"0.0024763319551366924`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "+", RowBox[{"0.0024763319551419113`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "-", RowBox[{"1.002476331955141`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"C", "[", "3", "]"}]}], "+", RowBox[{"0.09429834117504683`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "1.000000000000001`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"3.4883996775731907`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"1.2541704296699`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "+", RowBox[{"1.2541704296699268`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "-", RowBox[{"3.488399677573216`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"C", "[", "4", "]"}]}], "-", RowBox[{"0.006494608227876249`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "1.0000000000000042`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "-", RowBox[{"33.50088486902935`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "+", RowBox[{"53.27783689215409`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "-", RowBox[{"53.277836892154376`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "+", RowBox[{"33.500884869029655`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"C", "[", "5", "]"}]}], "-", RowBox[{"0.06802172979969301`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.0000000000000016`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"12.700838868663533`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"13.700838868663533`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "-", RowBox[{"13.700838868663618`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "+", RowBox[{"12.700838868663617`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"C", "[", "6", "]"}]}]}]}], "]"}]}], ",", RowBox[{"Vb", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "x3", "}"}], ",", RowBox[{ RowBox[{"0.27393791335322293`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"0.9999999999999992`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "-", RowBox[{"3.8030664314352536`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "+", RowBox[{"2.8030664314352527`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "+", RowBox[{"2.8030664314352762`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "-", RowBox[{"3.803066431435276`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"C", "[", "1", "]"}]}], "+", RowBox[{"0.08988317728598544`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "0.9999999999999984`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"3.660880687884158`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"1.5084531451223535`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "+", RowBox[{"1.5084531451223795`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "-", RowBox[{"3.660880687884187`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"C", "[", "2", "]"}]}], "+", RowBox[{"0.19555058993774674`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"0.999999999999999`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"1.5602752668694775`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"0.0033921597452571057`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "-", RowBox[{"0.0033921597452642557`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "+", RowBox[{"1.560275266869483`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"C", "[", "3", "]"}]}], "+", RowBox[{"0.07218384380491491`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "0.9999999999999998`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "-", RowBox[{"5.429418694861005`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "+", RowBox[{"1.7180032896612216`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "-", RowBox[{"1.7180032896612591`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "+", RowBox[{"5.429418694861042`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"C", "[", "4", "]"}]}], "-", RowBox[{"0.004971516784424512`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "1.0000000000000029`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"52.14148246018404`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"72.98170717583093`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "+", RowBox[{"72.98170717583137`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "-", RowBox[{"52.14148246018447`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"C", "[", "5", "]"}]}], "-", RowBox[{"0.05206952591124123`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.0000000000000002`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "-", RowBox[{"19.767852989228544`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "+", RowBox[{"18.76785298922854`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "+", RowBox[{"18.767852989228665`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "-", RowBox[{"19.76785298922866`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"C", "[", "6", "]"}]}]}]}], "]"}]}], ",", RowBox[{"Wb", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "x3", "}"}], ",", RowBox[{ RowBox[{"0.10615085815925146`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "1.0000000000000022`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "-", RowBox[{"6.456017999086408`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "+", RowBox[{"13.406536426437343`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "-", RowBox[{"13.40653642643744`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "+", RowBox[{"6.456017999086503`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"C", "[", "1", "]"}]}], "+", RowBox[{"0.03482970387777191`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.0000000000000013`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"6.214646007266396`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"7.214646007266395`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "-", RowBox[{"7.214646007266509`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "+", RowBox[{"6.2146460072664995`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"C", "[", "2", "]"}]}], "+", RowBox[{"0.07577579416206603`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "1.000000000000002`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"2.6486955692323124`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"0.01622405829525709`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "+", RowBox[{"0.016224058295291267`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "-", RowBox[{"2.648695569232345`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"C", "[", "3", "]"}]}], "+", RowBox[{"0.027971217533678917`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.0000000000000029`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "-", RowBox[{"9.216884703581242`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "+", RowBox[{"8.216884703581231`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "+", RowBox[{"8.216884703581398`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "-", RowBox[{"9.216884703581385`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"C", "[", "4", "]"}]}], "-", RowBox[{"0.0019264612428412347`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.0000000000000058`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"88.51445414666495`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"349.05769793524826`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "-", RowBox[{"349.05769793525`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "+", RowBox[{"88.51445414666645`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"C", "[", "5", "]"}]}], "-", RowBox[{"0.020176925463751647`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "1.0000000000000033`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "-", RowBox[{"33.55755598873143`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "+", RowBox[{"89.7630901374252`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "-", RowBox[{"89.76309013742569`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "+", RowBox[{"33.55755598873193`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"C", "[", "6", "]"}]}]}]}], "]"}]}]}], "}"}]], "Output", CellChangeTimes->{{3.714746616148306*^9, 3.7147466432710247`*^9}, 3.7147468378673735`*^9, 3.7147468766827526`*^9, 3.71474694547817*^9, { 3.7147470893542776`*^9, 3.7147471058350163`*^9}, 3.7147475001394577`*^9, 3.714747561465109*^9, 3.7147476903719335`*^9, {3.7147498950103345`*^9, 3.7147499183226957`*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"solt", "=", RowBox[{ RowBox[{ RowBox[{"DSolve", "[", RowBox[{"eqnstop", ",", RowBox[{"{", RowBox[{"Ut", ",", "Vt", ",", "Wt"}], "}"}], ",", "x3"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"C", "[", "1", "]"}], "\[Rule]", " ", RowBox[{"C", "[", "7", "]"}]}], ",", RowBox[{ RowBox[{"C", "[", "2", "]"}], "\[Rule]", " ", RowBox[{"C", "[", "8", "]"}]}], ",", RowBox[{ RowBox[{"C", "[", "3", "]"}], "\[Rule]", " ", RowBox[{"C", "[", "9", "]"}]}], ",", RowBox[{ RowBox[{"C", "[", "4", "]"}], "\[Rule]", " ", RowBox[{"C", "[", "10", "]"}]}], ",", RowBox[{ RowBox[{"C", "[", "5", "]"}], "\[Rule]", " ", RowBox[{"C", "[", "11", "]"}]}], ",", RowBox[{ RowBox[{"C", "[", "6", "]"}], "\[Rule]", " ", RowBox[{"C", "[", "12", "]"}]}]}], "}"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.7146921101667857`*^9, 3.7146922119424906`*^9}, { 3.7147317078264256`*^9, 3.714731720025782*^9}}, ExpressionUUID -> "ae2f2b25-d204-4b22-9c4d-7ac7c320ab92"], Cell[BoxData[ RowBox[{ RowBox[{"uvwb", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Ub", "[", "x3", "]"}], ",", " ", RowBox[{"Vb", "[", "x3", "]"}], ",", " ", RowBox[{"Wb", "[", "x3", "]"}]}], "}"}], "/.", "solb"}]}], ";"}]], "Input", CellChangeTimes->{{3.714692140805578*^9, 3.714692142037994*^9}, { 3.714692224173047*^9, 3.7146922794913564`*^9}, {3.7147317237542295`*^9, 3.714731733535555*^9}}, ExpressionUUID -> "7b11637f-912e-4470-91a9-10781e46b28e"], Cell[BoxData[ RowBox[{ RowBox[{"uvwt", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Ut", "[", "x3", "]"}], ",", " ", RowBox[{"Vt", "[", "x3", "]"}], ",", " ", RowBox[{"Wt", "[", "x3", "]"}]}], "}"}], "/.", "solt"}]}], ";"}]], "Input", CellChangeTimes->{{3.7146922872290554`*^9, 3.714692298554801*^9}, { 3.7147317364839926`*^9, 3.714731741335655*^9}, {3.7147319218299694`*^9, 3.7147319320481*^9}}, ExpressionUUID -> "262ae193-bfae-4104-a62a-7ae963fb5e07"], Cell[BoxData[ RowBox[{ RowBox[{"stressb", "=", RowBox[{ RowBox[{ RowBox[{"sigma0", "/.", RowBox[{"{", RowBox[{ RowBox[{"U", "\[Rule]", " ", "Ub"}], ",", RowBox[{"V", "\[Rule]", " ", "Vb"}], ",", RowBox[{"W", "\[Rule]", " ", "Wb"}]}], "}"}]}], "/.", "solb"}], "/.", "matebot"}]}], ";"}]], "Input", CellChangeTimes->{{3.7146923181018515`*^9, 3.7146923717509394`*^9}, 3.714695302745613*^9, 3.714695354912682*^9, {3.7147317443152933`*^9, 3.714731759104283*^9}, {3.714732039424277*^9, 3.7147320490495996`*^9}}, ExpressionUUID -> "f5a1dfe5-b4f1-4aac-a896-b618294ba7d8"], Cell[BoxData[ RowBox[{ RowBox[{"stresst", "=", RowBox[{ RowBox[{ RowBox[{"sigma0", "/.", RowBox[{"{", RowBox[{ RowBox[{"U", "\[Rule]", " ", "Ut"}], ",", RowBox[{"V", "\[Rule]", " ", "Vt"}], ",", RowBox[{"W", "\[Rule]", " ", "Wt"}]}], "}"}]}], "/.", "solt"}], "/.", "matetop"}]}], ";"}]], "Input", CellChangeTimes->{{3.7146923840126963`*^9, 3.714692398754885*^9}, { 3.714732044291539*^9, 3.714732055071277*^9}}, ExpressionUUID -> "1bea3163-ba0e-4578-afc7-4cc52a0f2104"], Cell[BoxData[ RowBox[{ RowBox[{"bcs", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"stressb", "[", RowBox[{"[", "3", "]"}], "]"}], "/.", RowBox[{"x3", "\[Rule]", " ", RowBox[{ RowBox[{"-", "h"}], "/", "2"}]}]}], ")"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"stresst", "[", RowBox[{"[", "3", "]"}], "]"}], "/.", RowBox[{"x3", "\[Rule]", " ", RowBox[{"h", "/", "2"}]}]}], ")"}], "\[Equal]", "q0"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"stressb", "[", RowBox[{"[", "4", "]"}], "]"}], "/.", RowBox[{"x3", "\[Rule]", " ", RowBox[{ RowBox[{"-", "h"}], "/", "2"}]}]}], ")"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"stresst", "[", RowBox[{"[", "4", "]"}], "]"}], "/.", RowBox[{"x3", "\[Rule]", " ", RowBox[{"h", "/", "2"}]}]}], ")"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"stressb", "[", RowBox[{"[", "5", "]"}], "]"}], "/.", RowBox[{"x3", "\[Rule]", " ", RowBox[{ RowBox[{"-", "h"}], "/", "2"}]}]}], ")"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"stresst", "[", RowBox[{"[", "5", "]"}], "]"}], "/.", RowBox[{"x3", "\[Rule]", " ", RowBox[{"h", "/", "2"}]}]}], ")"}], "\[Equal]", "0"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.714733076775176*^9}, ExpressionUUID -> "177f8b94-7841-44a7-a94a-1f62fdd584b4"], Cell[BoxData[ RowBox[{ RowBox[{"continuity", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"uvwb", "[", RowBox[{"[", "1", "]"}], "]"}], "/.", RowBox[{"x3", "\[Rule]", " ", "0"}]}], ")"}], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"uvwt", "[", RowBox[{"[", "1", "]"}], "]"}], "/.", RowBox[{"x3", "\[Rule]", " ", "0"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"uvwb", "[", RowBox[{"[", "2", "]"}], "]"}], "/.", RowBox[{"x3", "\[Rule]", " ", "0"}]}], ")"}], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"uvwt", "[", RowBox[{"[", "2", "]"}], "]"}], "/.", RowBox[{"x3", "\[Rule]", " ", "0"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"uvwb", "[", RowBox[{"[", "3", "]"}], "]"}], "/.", RowBox[{"x3", "\[Rule]", " ", "0"}]}], ")"}], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"uvwt", "[", RowBox[{"[", "3", "]"}], "]"}], "/.", RowBox[{"x3", "\[Rule]", " ", "0"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"stressb", "[", RowBox[{"[", "3", "]"}], "]"}], "/.", RowBox[{"x3", "\[Rule]", " ", "0"}]}], ")"}], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"stresst", "[", RowBox[{"[", "3", "]"}], "]"}], "/.", RowBox[{"x3", "\[Rule]", " ", "0"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"stressb", "[", RowBox[{"[", "4", "]"}], "]"}], "/.", RowBox[{"x3", "\[Rule]", " ", "0"}]}], ")"}], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"stresst", "[", RowBox[{"[", "4", "]"}], "]"}], "/.", RowBox[{"x3", "\[Rule]", " ", "0"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"stressb", "[", RowBox[{"[", "5", "]"}], "]"}], "/.", RowBox[{"x3", "\[Rule]", " ", "0"}]}], ")"}], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"stresst", "[", RowBox[{"[", "5", "]"}], "]"}], "/.", RowBox[{"x3", "\[Rule]", " ", "0"}]}], ")"}]}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.698851371851593*^9, 3.6988514037069974`*^9}, { 3.698851447496478*^9, 3.698851470881028*^9}, {3.6988515020812283`*^9, 3.6988515184613333`*^9}, {3.698851554388363*^9, 3.6988516273188305`*^9}, 3.7147284993488913`*^9, {3.7147326496573*^9, 3.7147326765988455`*^9}}, ExpressionUUID -> "547f220a-f89f-4760-9bda-04c1ef9d60a4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"constants", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"C", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6988516873324156`*^9, 3.69885171765901*^9}, 3.714693283567029*^9}, ExpressionUUID -> "ad29fb57-fd43-4a01-a488-462753c3d925"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"C", "[", "1", "]"}], ",", RowBox[{"C", "[", "2", "]"}], ",", RowBox[{"C", "[", "3", "]"}], ",", RowBox[{"C", "[", "4", "]"}], ",", RowBox[{"C", "[", "5", "]"}], ",", RowBox[{"C", "[", "6", "]"}], ",", RowBox[{"C", "[", "7", "]"}], ",", RowBox[{"C", "[", "8", "]"}], ",", RowBox[{"C", "[", "9", "]"}], ",", RowBox[{"C", "[", "10", "]"}], ",", RowBox[{"C", "[", "11", "]"}], ",", RowBox[{"C", "[", "12", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.714693284222237*^9, 3.714693583558875*^9, 3.7146938582315965`*^9, 3.714694362334357*^9, 3.7146950735942755`*^9, 3.7146954587008123`*^9, 3.7146956176044497`*^9, 3.714696217229337*^9, 3.714696351703061*^9, 3.714696546455958*^9, 3.7146971643152885`*^9, 3.7147277718335648`*^9, 3.7147286265841227`*^9, 3.714731434230118*^9, 3.7147331180221047`*^9, 3.714746499102955*^9, 3.7147466437784414`*^9, 3.714746945948389*^9, 3.7147471063633866`*^9, 3.7147475615635395`*^9, 3.714747690460215*^9, 3.7147499184039555`*^9}, ExpressionUUID -> "0b08d465-4825-4a18-aa73-e5836b12b56b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"solu2", "=", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"NSolve", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{"bcs", ",", "continuity"}], "]"}], ",", "constants"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.6988518421634083`*^9, 3.698851930491174*^9}, { 3.6988525317346287`*^9, 3.6988525783009267`*^9}, {3.6988527100749717`*^9, 3.698852980892708*^9}, {3.698853515820136*^9, 3.6988537646573315`*^9}, { 3.7146932974668074`*^9, 3.714693300727249*^9}, {3.7146936948975024`*^9, 3.714693695817914*^9}, {3.7146952637451134`*^9, 3.7146952678479657`*^9}, { 3.714728275111617*^9, 3.7147283012107515`*^9}, {3.7147316002162457`*^9, 3.7147316074547386`*^9}, {3.714733146882475*^9, 3.714733147553283*^9}}, ExpressionUUID -> "6d2b0700-6e4c-41c8-b46a-f1f029aad928"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"C", "[", "1", "]"}], "\[Rule]", "6.763102152755775`*^-6"}], ",", RowBox[{ RowBox[{"C", "[", "2", "]"}], "\[Rule]", RowBox[{"-", "0.0008383354798636122`"}]}], ",", RowBox[{ RowBox[{"C", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.00021997548905791482`"}]}], ",", RowBox[{ RowBox[{"C", "[", "4", "]"}], "\[Rule]", RowBox[{"-", "0.0000840196905635293`"}]}], ",", RowBox[{ RowBox[{"C", "[", "5", "]"}], "\[Rule]", "0.0013975747360581326`"}], ",", RowBox[{ RowBox[{"C", "[", "6", "]"}], "\[Rule]", "0.00004382541773087631`"}], ",", RowBox[{ RowBox[{"C", "[", "7", "]"}], "\[Rule]", "6.7631021527556684`*^-6"}], ",", RowBox[{ RowBox[{"C", "[", "8", "]"}], "\[Rule]", RowBox[{"-", "0.0008297823906824151`"}]}], ",", RowBox[{ RowBox[{"C", "[", "9", "]"}], "\[Rule]", RowBox[{"-", "0.00021997548905791476`"}]}], ",", RowBox[{ RowBox[{"C", "[", "10", "]"}], "\[Rule]", "0.00011024677492623874`"}], ",", RowBox[{ RowBox[{"C", "[", "11", "]"}], "\[Rule]", "0.0013975747360581324`"}], ",", RowBox[{ RowBox[{"C", "[", "12", "]"}], "\[Rule]", "0.00003536104856021716`"}]}], "}"}]], "Output", CellChangeTimes->{3.7146930333242207`*^9, 3.7146932601355286`*^9, 3.714693302256068*^9, 3.714693686520195*^9, 3.714693785690666*^9, 3.7146939430966845`*^9, 3.7146944468562403`*^9, 3.714695167398278*^9, 3.7146954674837255`*^9, 3.714695708600416*^9, 3.714696262157913*^9, 3.7146963966784377`*^9, 3.714696591400134*^9, 3.7146972091814637`*^9, 3.7147278165749383`*^9, 3.7147283462329288`*^9, 3.7147286715907*^9, 3.714731479065093*^9, 3.7147331186617126`*^9, 3.714733150096116*^9, 3.714746501640048*^9, 3.7147466464007635`*^9, 3.7147469505713778`*^9, 3.7147471090493517`*^9, 3.714747561584632*^9, 3.714747690477269*^9, 3.7147499184190035`*^9}, ExpressionUUID -> "692ee1ef-55da-4325-8e29-98f7a763831b"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"disp1", "=", RowBox[{"Simplify", "[", RowBox[{"N", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u1", "[", RowBox[{"x1", ",", "x3"}], "]"}], ",", RowBox[{"u2", "[", RowBox[{"x1", ",", "x3"}], "]"}], ",", RowBox[{"u3", "[", RowBox[{"x1", ",", "x3"}], "]"}]}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"U", "\[Rule]", " ", "Ub"}], ",", RowBox[{"V", "\[Rule]", " ", "Vb"}], ",", RowBox[{"W", "\[Rule]", " ", "Wb"}]}], "}"}]}], "/.", "solb"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u1", "[", RowBox[{"x1", ",", "x3"}], "]"}], ",", RowBox[{"u2", "[", RowBox[{"x1", ",", "x3"}], "]"}], ",", RowBox[{"u3", "[", RowBox[{"x1", ",", "x3"}], "]"}]}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"U", "\[Rule]", " ", "Ut"}], ",", RowBox[{"V", "\[Rule]", " ", "Vt"}], ",", RowBox[{"W", "\[Rule]", " ", "Wt"}]}], "}"}]}], "/.", "solt"}]}], "}"}], "/.", "solu2"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.6988574791971426`*^9, 3.698857501458485*^9}, { 3.6988575318942804`*^9, 3.69885762067445*^9}, {3.6988576549478693`*^9, 3.6988577056793947`*^9}, 3.6988578058320365`*^9, {3.7147332950531745`*^9, 3.7147333016052585`*^9}}, ExpressionUUID -> "214d7e12-6ea9-45b3-a840-a81250b7e3d9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"disp", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"disp1", "[", RowBox[{"[", RowBox[{"1", ",", "i"}], "]"}], "]"}], ",", RowBox[{"x3", "\[LessEqual]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"disp1", "[", RowBox[{"[", RowBox[{"2", ",", "i"}], "]"}], "]"}], ",", RowBox[{"x3", "\[GreaterEqual]", " ", "0"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6988686697393417`*^9, 3.698868700065936*^9}, { 3.6988687687219763`*^9, 3.6988688239931307`*^9}, 3.7147333062385178`*^9, 3.7147334138954983`*^9}, ExpressionUUID -> "3e1db1b0-efa4-46bf-9582-3882316447ae"], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{"0.00005868126429783494`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"9.072079056333067`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"9.30957314531643`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "+", RowBox[{"10.528074773853884`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "-", RowBox[{"8.240953929881535`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "-", RowBox[{"2.934375281905013`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[LessEqual]", "0"}]}, { RowBox[{"0.00017311583826259126`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"2.4031065692743536`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"3.1753299354985423`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "+", RowBox[{"3.5004476603724335`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "-", RowBox[{"3.3385481549174854`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "-", RowBox[{"0.3506092218381583`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[GreaterEqual]", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False], ",", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{"0.000044919551749980585`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "-", RowBox[{"14.119974825814197`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "+", RowBox[{"12.75255492445714`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "-", RowBox[{"14.421697934658637`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "+", RowBox[{"12.826394182421875`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "-", RowBox[{"2.9343752819050177`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[LessEqual]", "0"}]}, { RowBox[{ RowBox[{"-", "0.00013251735368395337`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "-", RowBox[{"3.740245653857631`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "+", RowBox[{"4.349669826278779`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "-", RowBox[{"4.795026619619485`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "+", RowBox[{"5.196186630372837`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "-", RowBox[{"0.3506092218381588`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[GreaterEqual]", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False], ",", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{ RowBox[{"-", "0.00001740631264954205`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"23.969818373038624`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"60.99305753425779`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "-", RowBox[{"68.97625276511124`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "+", RowBox[{"21.773858857848637`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"2.9343752819050093`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[LessEqual]", "0"}]}, { RowBox[{ RowBox[{"-", "0.00005135043427306312`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"6.349374563303789`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"20.80364786043375`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "-", RowBox[{"22.93370514545722`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "+", RowBox[{"8.820954095098225`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"0.3506092218381578`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[GreaterEqual]", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]}], "}"}]], "Output", CellChangeTimes->{3.714733414207502*^9, 3.714746501915928*^9, 3.7147466466775365`*^9, 3.7147469508260384`*^9, 3.7147471093240643`*^9, 3.71474756170516*^9, 3.714747690584612*^9, 3.7147499185112977`*^9}, ExpressionUUID -> "8d69f3cf-c5d4-48b4-a944-ee2bd1ac7b8f"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"strain1", "=", RowBox[{"Simplify", "[", RowBox[{"N", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"epsilon", "/.", RowBox[{"{", RowBox[{ RowBox[{"U", "\[Rule]", " ", "Ub"}], ",", RowBox[{"V", "\[Rule]", " ", "Vb"}], ",", RowBox[{"W", "\[Rule]", " ", "Wb"}]}], "}"}]}], "/.", "solb"}], ",", RowBox[{ RowBox[{"epsilon", "/.", RowBox[{"{", RowBox[{ RowBox[{"U", "\[Rule]", " ", "Ut"}], ",", RowBox[{"V", "\[Rule]", " ", "Vt"}], ",", RowBox[{"W", "\[Rule]", " ", "Wt"}]}], "}"}]}], "/.", "solt"}]}], "}"}], "/.", "solu2"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.698868927905397*^9, 3.6988690628774624`*^9}, 3.7147333092025557`*^9}, ExpressionUUID -> "17c71620-2fdc-4d0e-8c1d-883de404acee"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"strain", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"strain1", "[", RowBox[{"[", RowBox[{"1", ",", "i"}], "]"}], "]"}], ",", RowBox[{"x3", "\[LessEqual]", " ", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"strain1", "[", RowBox[{"[", RowBox[{"2", ",", "i"}], "]"}], "]"}], ",", RowBox[{"x3", "\[GreaterEqual]", " ", "0"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "6"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6988691141081905`*^9, 3.6988692400165977`*^9}, 3.7147333126658*^9, 3.7147333894499846`*^9}, ExpressionUUID -> "fcf459a8-4563-4b26-b3e7-20bc8cc6e3db"], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{ RowBox[{"-", "0.00004608815720535982`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"9.072079056333067`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"9.30957314531643`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "+", RowBox[{"10.528074773853884`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "-", RowBox[{"8.240953929881535`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "-", RowBox[{"2.934375281905013`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[LessEqual]", "0"}]}, { RowBox[{ RowBox[{"-", "0.00013596486142644886`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"2.4031065692743536`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"3.1753299354985423`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "+", RowBox[{"3.5004476603724335`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "-", RowBox[{"3.3385481549174854`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "-", RowBox[{"0.3506092218381583`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[GreaterEqual]", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False], ",", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ {"0.`", RowBox[{ RowBox[{"x3", "\[LessEqual]", "0"}], "||", RowBox[{"x3", "\[GreaterEqual]", "0"}]}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False], ",", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{"0.00004607862318979619`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"9.087425662255841`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"15.684872024281773`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "+", RowBox[{"17.73781707414194`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "-", RowBox[{"8.254894579164322`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "-", RowBox[{"2.9343752819050084`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[LessEqual]", "0"}]}, { RowBox[{"0.00013593673508806723`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"2.407171737719213`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"5.34983107127976`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "+", RowBox[{"5.897593017813045`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "-", RowBox[{"3.3441957449097814`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "-", RowBox[{"0.35060922183815746`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[GreaterEqual]", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False], ",", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{ RowBox[{"-", "0.00011891266924912793`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "-", RowBox[{"5.353157858168787`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "+", RowBox[{"3.279425561841828`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "+", RowBox[{"3.7086595691799613`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "-", RowBox[{"4.862736205738432`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"2.934375281905016`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[LessEqual]", "0"}]}, { RowBox[{"0.00035080475281894284`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "-", RowBox[{"1.4180000786421447`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "+", RowBox[{"1.1185537720378`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "+", RowBox[{"1.2330809754784533`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "-", RowBox[{"1.9699757001010034`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"0.35060922183815857`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[GreaterEqual]", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False], ",", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{ RowBox[{"-", "0.00016901406063362604`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"5.100027148111475`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"7.133879855579821`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "-", RowBox[{"8.067611626749988`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "+", RowBox[{"4.632795691897331`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"2.9343752819050133`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[LessEqual]", "0"}]}, { RowBox[{ RowBox[{"-", "0.0004986090728422516`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"1.3509481858569774`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"2.4332396242107923`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "-", RowBox[{"2.6823757287309684`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "+", RowBox[{"1.8768229553148181`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"0.35060922183815796`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[GreaterEqual]", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False], ",", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{ RowBox[{"-", "0.000035279733445071386`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "-", RowBox[{"14.119974825814197`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "+", RowBox[{"12.75255492445714`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "-", RowBox[{"14.421697934658637`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "+", RowBox[{"12.826394182421875`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "-", RowBox[{"2.9343752819050177`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[LessEqual]", "0"}]}, { RowBox[{"0.00010407888620166705`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "-", RowBox[{"3.740245653857631`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "+", RowBox[{"4.349669826278779`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "-", RowBox[{"4.795026619619485`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "+", RowBox[{"5.196186630372837`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "-", RowBox[{"0.3506092218381588`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[GreaterEqual]", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]}], "}"}]], "Output", CellChangeTimes->{3.7147333909944043`*^9, 3.714746502278083*^9, 3.7147466470134745`*^9, 3.714746951160907*^9, 3.7147471096779823`*^9, 3.714747561900014*^9, 3.714747690768197*^9, 3.714749918651746*^9}, ExpressionUUID -> "45f8c868-d72d-4953-be62-33ce874ea603"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"stress1", "=", RowBox[{"Simplify", "[", RowBox[{"N", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"sigma", "/.", RowBox[{"{", RowBox[{ RowBox[{"U", "\[Rule]", " ", "Ub"}], ",", RowBox[{"V", "\[Rule]", " ", "Vb"}], ",", RowBox[{"W", "\[Rule]", " ", "Wb"}]}], "}"}]}], "/.", "solb"}], "/.", "matebot"}], ",", RowBox[{ RowBox[{ RowBox[{"sigma", "/.", RowBox[{"{", RowBox[{ RowBox[{"U", "\[Rule]", " ", "Ut"}], ",", RowBox[{"V", "\[Rule]", " ", "Vt"}], ",", RowBox[{"W", "\[Rule]", " ", "Wt"}]}], "}"}]}], "/.", "solt"}], "/.", "matetop"}]}], "}"}], "/.", "solu2"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.69886940575206*^9, 3.6988695002574663`*^9}, 3.7147333236483407`*^9}, ExpressionUUID -> "11b1048a-aa4e-467d-8136-3329af639545"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"stress", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"stress1", "[", RowBox[{"[", RowBox[{"1", ",", "i"}], "]"}], "]"}], ",", RowBox[{"x3", "\[LessEqual]", " ", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"stress1", "[", RowBox[{"[", RowBox[{"2", ",", "i"}], "]"}], "]"}], ",", RowBox[{"x3", "\[GreaterEqual]", " ", "0"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "6"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.69886956485748*^9, 3.6988696377567472`*^9}, 3.7147333260351715`*^9, 3.7147333946292505`*^9}, ExpressionUUID -> "d4a0b480-3e69-49eb-ae76-85e48a263347"], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{ RowBox[{"-", "3.849324944621955`*^6"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"1.1939247105767217`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"1.3347800797486518`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "+", RowBox[{"1.5094853724108965`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "-", RowBox[{"1.0845450612273266`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "-", RowBox[{"2.934375281905015`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[LessEqual]", "0"}]}, { RowBox[{ RowBox[{"-", "1.1355909292464215`*^7"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"0.31625918352232685`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"0.45526976139237013`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "+", RowBox[{"0.5018842147041414`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "-", RowBox[{"0.43936732857544464`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "-", RowBox[{"0.35060922183815857`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[GreaterEqual]", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False], ",", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{ RowBox[{"-", "2.243607605456443`*^6"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "-", RowBox[{"0.7971480515854754`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "+", RowBox[{"0.9182859254319227`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "-", RowBox[{"1.0384775688226557`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "+", RowBox[{"0.7241185099489268`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "-", RowBox[{"2.9343752819050155`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[LessEqual]", "0"}]}, { RowBox[{ RowBox[{"-", "6.618875990462385`*^6"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "-", RowBox[{"0.21115685914487684`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "+", RowBox[{"0.31321100794378576`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "-", RowBox[{"0.3452802581875887`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "+", RowBox[{"0.2933525094183286`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "-", RowBox[{"0.3506092218381587`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[GreaterEqual]", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False], ",", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{"338827.7006709664`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"8.306626531950142`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"20.18406178834289`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "+", RowBox[{"22.82589206086929`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "-", RowBox[{"7.545627208213818`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "-", RowBox[{"2.934375281905005`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[LessEqual]", "0"}]}, { RowBox[{"999576.9881598287`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"2.2003455507261114`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"6.884424733127641`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "+", RowBox[{"7.589311643075953`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "-", RowBox[{"3.0568596800831145`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "-", RowBox[{"0.3506092218381568`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[GreaterEqual]", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False], ",", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{ RowBox[{"-", "881318.8746239597`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "-", RowBox[{"1.7601245057825419`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"0.2999001318009468`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "-", RowBox[{"0.33915314515547207`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "-", RowBox[{"1.5988732982748373`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"2.934375281905015`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[LessEqual]", "0"}]}, { RowBox[{"2.599982423398459`*^6", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "-", RowBox[{"0.46624006871215157`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"0.10229060466070693`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "-", RowBox[{"0.11276400091835923`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "-", RowBox[{"0.6477302925510977`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"0.35060922183815835`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[GreaterEqual]", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False], ",", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{ RowBox[{"-", "1.1420411201535864`*^6"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"3.1492041340674355`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"5.190499359743318`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "-", RowBox[{"5.8698679864296786`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "+", RowBox[{"2.860694447600224`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"2.934375281905014`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[LessEqual]", "0"}]}, { RowBox[{ RowBox[{"-", "3.369140188293987`*^6"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "+", RowBox[{"0.8341939147102565`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"1.7703870778941904`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "-", RowBox[{"1.9516546093328473`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "+", RowBox[{"1.158915126947655`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "+", RowBox[{"0.3506092218381581`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[GreaterEqual]", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False], ",", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{ RowBox[{"-", "2.9705434142335625`*^6"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "-", RowBox[{"0.6672975303227526`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"0.0771218131624458`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "+", RowBox[{"0.08721605201392559`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "+", RowBox[{"0.6061640524477827`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "-", RowBox[{"2.9343752819050146`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[LessEqual]", "0"}]}, { RowBox[{"8.763412298692351`*^6", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4.331614092222769`"}], " ", "x3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.6843777637974902`", " ", "x3"}]]}], "-", RowBox[{"0.17676070378374026`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.3279951673481962`", " ", "x3"}]]}], "-", RowBox[{"0.026304879739608454`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3.6508552532998517`", " ", "x3"}]]}], "+", RowBox[{"0.028998200694514253`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.012372931145686`", " ", "x3"}]]}], "+", RowBox[{"0.24556718749985104`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5.335233017097339`", " ", "x3"}]]}], "-", RowBox[{"0.35060922183815846`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"6.9788504206480475`", " ", "x3"}]]}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"0.7853981633974483`", " ", "x1"}], "]"}]}], RowBox[{"x3", "\[GreaterEqual]", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]}], "}"}]], "Output", CellChangeTimes->{{3.714733394878854*^9, 3.714733406267*^9}, 3.714746502588072*^9, 3.714746647336376*^9, 3.7147469514797335`*^9, 3.7147471100329027`*^9, 3.7147475622324705`*^9, 3.7147476910320387`*^9, 3.7147499189376574`*^9}, ExpressionUUID -> "a2c25594-a761-47c3-bd34-211be2b015b9"] }, Open ]] }, Open ]] }, WindowSize->{1366, 685}, WindowMargins->{{-4, Automatic}, {Automatic, 0}}, Magnification:>1.2 Inherited, FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (July 28, 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 171, 3, 122, "Title"], Cell[754, 27, 226, 4, 37, "Input"], Cell[983, 33, 279, 5, 37, "Input"], Cell[CellGroupData[{ Cell[1287, 42, 10174, 316, 230, "Input"], Cell[11464, 360, 1060, 18, 26, "Message"], Cell[12527, 380, 1062, 18, 26, "Message"], Cell[13592, 400, 1060, 18, 26, "Message"], Cell[14655, 420, 1026, 17, 26, "Message"] }, Open ]], Cell[CellGroupData[{ Cell[15718, 442, 2211, 62, 235, "Input"], Cell[17932, 506, 2055, 48, 135, "Output"] }, Open ]], Cell[20002, 557, 220, 3, 35, "Text"], Cell[CellGroupData[{ Cell[20247, 564, 1226, 26, 71, "Input"], Cell[21476, 592, 1186, 23, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22699, 620, 1086, 24, 71, "Input"], Cell[23788, 646, 1183, 22, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25008, 673, 382, 8, 37, "Input"], Cell[25393, 683, 1797, 38, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27227, 726, 383, 8, 37, "Input"], Cell[27613, 736, 1797, 38, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29447, 779, 363, 7, 37, "Input"], Cell[29813, 788, 2160, 44, 121, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32010, 837, 318, 6, 37, "Input"], Cell[32331, 845, 2128, 43, 121, "Output"] }, Open ]], Cell[34474, 891, 329, 7, 37, "Input"], Cell[34806, 900, 275, 6, 37, "Input"], Cell[35084, 908, 343, 7, 55, "Text"], Cell[35430, 917, 447, 12, 53, "Input"], Cell[35880, 931, 444, 12, 53, "Input"], Cell[36327, 945, 446, 12, 53, "Input"], Cell[36776, 959, 221, 5, 35, "Text"], Cell[CellGroupData[{ Cell[37022, 968, 1636, 48, 62, "Input"], Cell[38661, 1018, 2100, 54, 63, "Output"] }, Open ]], Cell[40776, 1075, 447, 10, 128, "Input"], Cell[CellGroupData[{ Cell[41248, 1089, 297, 6, 37, "Input"], Cell[41548, 1097, 4129, 112, 169, "Output"] }, Open ]], Cell[45692, 1212, 188, 3, 35, "Text"], Cell[CellGroupData[{ Cell[45905, 1219, 612, 17, 37, "Input"], Cell[46520, 1238, 1948, 47, 64, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48505, 1290, 663, 18, 37, "Input"], Cell[49171, 1310, 1940, 47, 64, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51148, 1362, 718, 19, 37, "Input"], Cell[51869, 1383, 1819, 43, 64, "Output"] }, Open ]], Cell[53703, 1429, 293, 7, 35, "Text"], Cell[CellGroupData[{ Cell[54021, 1440, 950, 28, 53, "Input"], Cell[54974, 1470, 4104, 105, 152, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[59115, 1580, 1669, 49, 94, "Input"], Cell[60787, 1631, 3191, 82, 94, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[64015, 1718, 274, 5, 37, "Input"], Cell[64292, 1725, 762, 11, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[65091, 1741, 274, 5, 37, "Input"], Cell[65368, 1748, 762, 11, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[66167, 1764, 276, 6, 37, "Input"], Cell[66446, 1772, 761, 11, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[67244, 1788, 1990, 57, 86, "Input"], Cell[69237, 1847, 1631, 28, 67, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[70905, 1880, 1992, 57, 86, "Input"], Cell[72900, 1939, 1602, 26, 67, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[74539, 1970, 597, 14, 37, "Input"], Cell[75139, 1986, 3886, 95, 135, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[79062, 2086, 522, 13, 37, "Input"], Cell[79587, 2101, 3881, 96, 135, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[83505, 2202, 475, 11, 37, "Input"], Cell[83983, 2215, 22575, 481, 499, "Output"] }, Open ]], Cell[106573, 2699, 1199, 32, 37, "Input"], Cell[107775, 2733, 501, 13, 37, "Input"], Cell[108279, 2748, 501, 13, 37, "Input"], Cell[108783, 2763, 635, 15, 37, "Input"], Cell[109421, 2780, 534, 14, 37, "Input"], Cell[109958, 2796, 1721, 52, 62, "Input"], Cell[111682, 2850, 2705, 76, 86, "Input"], Cell[CellGroupData[{ Cell[114412, 2930, 357, 9, 37, "Input"], Cell[114772, 2941, 1132, 23, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[115941, 2969, 870, 17, 37, "Input"], Cell[116814, 2988, 1987, 44, 67, "Output"] }, Open ]], Cell[118816, 3035, 1690, 44, 110, "Input"], Cell[CellGroupData[{ Cell[120531, 3083, 908, 25, 37, "Input"], Cell[121442, 3110, 13230, 303, 137, "Output"] }, Open ]], Cell[134687, 3416, 953, 26, 37, "Input"], Cell[CellGroupData[{ Cell[135665, 3446, 863, 24, 37, "Input"], Cell[136531, 3472, 23518, 548, 137, "Output"] }, Open ]], Cell[160064, 4023, 1040, 29, 37, "Input"], Cell[CellGroupData[{ Cell[161129, 4056, 864, 24, 37, "Input"], Cell[161996, 4082, 26229, 603, 317, "Output"] }, Open ]] }, Open ]] } ] *)