(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 223654, 4170] NotebookOptionsPosition[ 218781, 4074] NotebookOutlinePosition[ 219328, 4093] CellTagsIndexPosition[ 219285, 4090] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Plate defs 2023", "Section", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622997047524*^9, {3.5376238658302155`*^9, 3.5376238672312956`*^9}, { 3.600002366135124*^9, 3.6000023692707295`*^9}, {3.6000479572325335`*^9, 3.6000479595569377`*^9}, {3.6004096645198383`*^9, 3.600409717357131*^9}, { 3.600571492488657*^9, 3.600571494735061*^9}, {3.6005936284438515`*^9, 3.6005936292394524`*^9}, {3.6006741159692173`*^9, 3.6006741341492577`*^9}, {3.6009244661154003`*^9, 3.6009244668018017`*^9}, {3.6009457474004383`*^9, 3.6009457619084635`*^9}, {3.6009515621062527`*^9, 3.60095156631826*^9}, { 3.6010128143321123`*^9, 3.6010128545321684`*^9}, {3.6012742725491858`*^9, 3.6012742732823873`*^9}, {3.6013453090271*^9, 3.601345330492738*^9}, 3.6013456748945427`*^9, 3.601434330785293*^9, {3.6016459545902357`*^9, 3.6016459722962666`*^9}, {3.729842856309354*^9, 3.729842858934643*^9}, 3.761294474834837*^9, {3.7934965600037184`*^9, 3.793496567671585*^9}, 3.825513831026719*^9, {3.8573839921593018`*^9, 3.8573839935479493`*^9}, { 3.888988799798149*^9, 3.8889887999719853`*^9}},ExpressionUUID->"b1c5c298-c4e8-4b79-b69c-\ 64b50950008a"], Cell[CellGroupData[{ Cell["Series solver defs", "Subsection", CellChangeTimes->{{3.729842845230068*^9, 3.7298428475115595`*^9}, { 3.729843646892988*^9, 3.7298436796620836`*^9}},ExpressionUUID->"55f9b734-b617-46aa-8f51-\ 57d604832d5f"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", "SOLVE", "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]", "[", "exp_", "]"}], ":=", RowBox[{"exp", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", "[", "any__", "]"}], " ", "\[Rule]", " ", RowBox[{"\[Delta]a", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"b", "[", "any__", "]"}], " ", "\[Rule]", " ", RowBox[{"\[Delta]b", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"c", "[", "any__", "]"}], " ", "\[Rule]", " ", RowBox[{"\[Delta]c", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["u", "X"], "[", "any__", "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]u", "X"], "[", "any", "]"}]}], ",", RowBox[{ RowBox[{ SubscriptBox["u", "Y"], "[", "any__", "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]u", "Y"], "[", "any", "]"}]}], ",", RowBox[{ RowBox[{ SubscriptBox["u", "Z"], "[", "any__", "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]u", "Z"], "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Theta]", "X"], "[", "any__", "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]\[Theta]", "X"], "[", "any", "]"}]}], ",", RowBox[{ RowBox[{ SubscriptBox["\[Theta]", "Y"], "[", "any__", "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]\[Theta]", "Y"], "[", "any", "]"}]}], ",", RowBox[{ RowBox[{ SubscriptBox["\[Theta]", "Z"], "[", "any__", "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]\[Theta]", "Z"], "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["u", "x"], "[", "any__", "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]u", "x"], "[", "any", "]"}]}], ",", RowBox[{ RowBox[{ SubscriptBox["u", "y"], "[", "any__", "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]u", "y"], "[", "any", "]"}]}], ",", RowBox[{ RowBox[{ SubscriptBox["u", "z"], "[", "any__", "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]u", "z"], "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Theta]", "x"], "[", "any__", "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]\[Theta]", "x"], "[", "any", "]"}]}], ",", RowBox[{ RowBox[{ SubscriptBox["\[Theta]", "y"], "[", "any__", "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]\[Theta]", "y"], "[", "any", "]"}]}], ",", RowBox[{ RowBox[{ SubscriptBox["\[Theta]", "z"], "[", "any__", "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]\[Theta]", "z"], "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ux", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]ux", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"uy", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]uy", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"uz", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]uz", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]x", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]\[Theta]x", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Theta]y", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]\[Theta]y", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Theta]z", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]\[Theta]z", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"uX", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]uX", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"uY", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]uY", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"uZ", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]uZ", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]X", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]\[Theta]X", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Theta]Y", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]\[Theta]Y", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"\[Theta]Z", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]\[Theta]Z", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Fx", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]Fx", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"Fy", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]Fy", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"Fz", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]Fz", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Mx", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]Mx", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"My", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]My", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"Mz", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]Mz", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"FX", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]FX", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"FY", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]FY", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"FZ", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]FZ", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"MX", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]MX", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"MY", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]MY", "[", "any", "]"}]}], ",", RowBox[{ RowBox[{"MZ", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]MZ", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CurlyTheta]", "[", "any__", "]"}], "\[Rule]", RowBox[{"\[Delta]\[CurlyTheta]", "[", "any", "]"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"DOFS", "[", "exp_", "]"}], " ", ":=", RowBox[{"Union", "[", RowBox[{"Cases", "[", RowBox[{"exp", ",", RowBox[{ RowBox[{"a", "[", "__", "]"}], "|", RowBox[{"b", "[", "__", "]"}], "|", RowBox[{"c", "[", "__", "]"}], " ", "|", RowBox[{ SubscriptBox["u", "X"], "[", "__", "]"}], "|", RowBox[{ SubscriptBox["u", "Y"], "[", "__", "]"}], "|", RowBox[{ SubscriptBox["u", "Z"], "[", "__", "]"}], "|", " ", RowBox[{ SubscriptBox["\[Theta]", "X"], "[", "__", "]"}], "|", " ", RowBox[{ SubscriptBox["\[Theta]", "Y"], "[", "__", "]"}], "|", RowBox[{ SubscriptBox["\[Theta]", "Z"], "[", "__", "]"}], "|", RowBox[{ SubscriptBox["u", "x"], "[", "__", "]"}], "|", RowBox[{ SubscriptBox["u", "y"], "[", "__", "]"}], "|", RowBox[{ SubscriptBox["u", "z"], "[", "__", "]"}], "|", " ", RowBox[{ SubscriptBox["\[Theta]", "x"], "[", "__", "]"}], "|", " ", RowBox[{ SubscriptBox["\[Theta]", "y"], "[", "__", "]"}], "|", RowBox[{ SubscriptBox["\[Theta]", "z"], "[", "__", "]"}], "|", RowBox[{"uX", "[", "__", "]"}], "|", RowBox[{"uY", "[", "__", "]"}], "|", RowBox[{"uZ", "[", "__", "]"}], "|", " ", RowBox[{"\[Theta]X", "[", "__", "]"}], "|", " ", RowBox[{"\[Theta]Y", "[", "__", "]"}], "|", RowBox[{"\[Theta]Z", "[", "__", "]"}], "|", RowBox[{"ux", "[", "__", "]"}], "|", RowBox[{"uy", "[", "__", "]"}], "|", RowBox[{"uz", "[", "__", "]"}], "|", " ", RowBox[{"\[Theta]x", "[", "__", "]"}], "|", " ", RowBox[{"\[Theta]y", "[", "__", "]"}], "|", RowBox[{"\[Theta]z", "[", "__", "]"}], "|", RowBox[{"FX", "[", "__", "]"}], "|", RowBox[{"FY", "[", "__", "]"}], "|", RowBox[{"FZ", "[", "__", "]"}], "|", " ", RowBox[{"MX", "[", "__", "]"}], "|", " ", RowBox[{"MY", "[", "__", "]"}], "|", RowBox[{"MZ", "[", "__", "]"}], "|", RowBox[{"Fx", "[", "__", "]"}], "|", RowBox[{"Fy", "[", "__", "]"}], "|", RowBox[{"Fz", "[", "__", "]"}], "|", " ", RowBox[{"Mx", "[", "__", "]"}], "|", " ", RowBox[{"My", "[", "__", "]"}], "|", RowBox[{"Mz", "[", "__", "]"}], "|", " ", RowBox[{"\[CurlyTheta]", "[", "__", "]"}]}], ",", "Infinity"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]DOFS", "[", "exp_", "]"}], " ", ":=", RowBox[{"Union", "[", RowBox[{"Cases", "[", RowBox[{"exp", ",", RowBox[{ RowBox[{"\[Delta]a", "[", "__", "]"}], "|", RowBox[{"\[Delta]b", "[", "__", "]"}], "|", RowBox[{"\[Delta]c", "[", "__", "]"}], " ", "|", RowBox[{ SubscriptBox["\[Delta]u", "X"], "[", "__", "]"}], "|", RowBox[{ SubscriptBox["\[Delta]u", "Y"], "[", "__", "]"}], "|", RowBox[{ SubscriptBox["\[Delta]u", "Z"], "[", "__", "]"}], "|", " ", RowBox[{ SubscriptBox["\[Delta]\[Theta]", "X"], "[", "__", "]"}], "|", " ", RowBox[{ SubscriptBox["\[Delta]\[Theta]", "Y"], "[", "__", "]"}], "|", RowBox[{ SubscriptBox["\[Delta]\[Theta]", "Z"], "[", "__", "]"}], "|", RowBox[{ SubscriptBox["\[Delta]u", "x"], "[", "__", "]"}], "|", RowBox[{ SubscriptBox["\[Delta]u", "y"], "[", "__", "]"}], "|", RowBox[{ SubscriptBox["\[Delta]u", "z"], "[", "__", "]"}], "|", " ", RowBox[{ SubscriptBox["\[Delta]\[Theta]", "x"], "[", "__", "]"}], "|", " ", RowBox[{ SubscriptBox["\[Delta]\[Theta]", "y"], "[", "__", "]"}], "|", RowBox[{ SubscriptBox["\[Delta]\[Theta]", "z"], "[", "__", "]"}], "|", RowBox[{"\[Delta]uX", "[", "__", "]"}], "|", RowBox[{"\[Delta]uY", "[", "__", "]"}], "|", RowBox[{"\[Delta]uZ", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]\[Theta]X", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]\[Theta]Y", "[", "__", "]"}], "|", RowBox[{"\[Delta]\[Theta]Z", "[", "__", "]"}], "|", RowBox[{"\[Delta]ux", "[", "__", "]"}], "|", RowBox[{"\[Delta]uy", "[", "__", "]"}], "|", RowBox[{"\[Delta]uz", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]\[Theta]x", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]\[Theta]y", "[", "__", "]"}], "|", RowBox[{"\[Delta]\[Theta]z", "[", "__", "]"}], "|", RowBox[{"\[Delta]FX", "[", "__", "]"}], "|", RowBox[{"\[Delta]FY", "[", "__", "]"}], "|", RowBox[{"\[Delta]FZ", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]MX", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]MY", "[", "__", "]"}], "|", RowBox[{"\[Delta]MZ", "[", "__", "]"}], "|", RowBox[{"\[Delta]Fx", "[", "__", "]"}], "|", RowBox[{"\[Delta]Fy", "[", "__", "]"}], "|", RowBox[{"\[Delta]Fz", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]Mx", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]My", "[", "__", "]"}], "|", RowBox[{"\[Delta]Mz", "[", "__", "]"}], "|", " ", RowBox[{"\[Delta]\[CurlyTheta]", "[", "__", "]"}]}], ",", "Infinity"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SOLVE", "[", "\[Delta]WW_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"equ", ",", "sol"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"equ", "=", RowBox[{"D", "[", RowBox[{"\[Delta]WW", ",", RowBox[{"{", RowBox[{"\[Delta]DOFS", "[", "\[Delta]WW", "]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equ", "\[Equal]", "0"}], "]"}], ",", RowBox[{"DOFS", "[", "\[Delta]WW", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"First", "[", "sol", "]"}], "]"}]}]}], "]"}]}], ";"}]}], "Input", InitializationCell->True, CellChangeTimes->{ 3.445098179109*^9, 3.4450982721786003`*^9, {3.451279000619*^9, 3.4512790074518003`*^9}, {3.4512864298050003`*^9, 3.4512864368094*^9}, { 3.4706476335011683`*^9, 3.4706476477283683`*^9}, {3.4770540063998003`*^9, 3.4770540103154*^9}, {3.4818115795696*^9, 3.481811581816*^9}, { 3.4820252104592*^9, 3.4820252549035997`*^9}, {3.4820583880738*^9, 3.4820584077454*^9}, {3.4822351571716003`*^9, 3.4822351901188*^9}, { 3.4823004164308*^9, 3.4823004243712*^9}, {3.493344815723*^9, 3.4933448166745996`*^9}, {3.4933448517122*^9, 3.4933448763445997`*^9}, { 3.4933449778422003`*^9, 3.4933449867342*^9}, {3.4942053389948*^9, 3.4942053532688*^9}, {3.495099886848*^9, 3.4950998935959997`*^9}, { 3.495099958993*^9, 3.495099969426*^9}, 3.495100042671*^9, { 3.495100076422*^9, 3.495100110413*^9}, {3.49510016601*^9, 3.4951001814849997`*^9}, 3.4951002189040003`*^9, {3.495100255352*^9, 3.495100257927*^9}, {3.495100455098*^9, 3.4951004564449997`*^9}, { 3.495100515517*^9, 3.4951005243059998`*^9}, {3.495100586*^9, 3.4951006116359997`*^9}, {3.496055002618*^9, 3.496055006674*^9}, { 3.5007168179316*^9, 3.5007168299904003`*^9}, {3.557657331191841*^9, 3.5576573613778934`*^9}, {3.557658058371518*^9, 3.5576580893531723`*^9}, { 3.6204640425822525`*^9, 3.620464043896328*^9}, {3.629448441451354*^9, 3.6294484425113554`*^9}, {3.632027966812848*^9, 3.63202808169145*^9}, { 3.632028112439104*^9, 3.632028231997714*^9}, {3.632028264944972*^9, 3.632028286223409*^9}, 3.6320284618641176`*^9, 3.6320284928925724`*^9, { 3.6321887622237573`*^9, 3.6321887797107573`*^9}, {3.6321888300516367`*^9, 3.6321888552960806`*^9}, 3.6321889475563574`*^9, {3.63218903764051*^9, 3.6321890646730566`*^9}, {3.632189114899929*^9, 3.63218912051025*^9}, { 3.632189363344139*^9, 3.632189368985462*^9}, {3.65933624669765*^9, 3.6593362536240625`*^9}, {3.659336346288225*^9, 3.6593363466002254`*^9}, { 3.685234016837945*^9, 3.6852340690569315`*^9}, {3.6852341853385825`*^9, 3.6852342255038795`*^9}, {3.6852342700224257`*^9, 3.685234275388733*^9}, 3.685260724724876*^9, {3.685271245062879*^9, 3.685271273442919*^9}, { 3.685340120474733*^9, 3.6853401228547363`*^9}, {3.6873488134786153`*^9, 3.6873488145086164`*^9}, {3.687348848548664*^9, 3.6873488495686655`*^9}, { 3.6873489495588055`*^9, 3.687348976528844*^9}, {3.6873490107688913`*^9, 3.6873490208289056`*^9}, {3.6873490736689796`*^9, 3.6873490997690163`*^9}, {3.6873491395590715`*^9, 3.6873491721791177`*^9}, {3.6873493303593388`*^9, 3.687349336179347*^9}, { 3.687521139333435*^9, 3.687521232626771*^9}, {3.687526828204684*^9, 3.6875268662258587`*^9}, {3.687744603751021*^9, 3.687744621651046*^9}, { 3.687744782441271*^9, 3.687744793141286*^9}, {3.687744898361433*^9, 3.687744900871437*^9}, {3.687828873646782*^9, 3.6878288977768154`*^9}, { 3.6893872627070065`*^9, 3.6893872737370224`*^9}, {3.689388189828305*^9, 3.689388190108305*^9}, {3.6924132329925613`*^9, 3.692413234362563*^9}, { 3.6924133951727886`*^9, 3.6924134472928615`*^9}, {3.692413504072941*^9, 3.6924135542830114`*^9}, {3.6924138300453973`*^9, 3.692413892645485*^9}, { 3.6924150151235356`*^9, 3.692415019653542*^9}, {3.6924150955736485`*^9, 3.692415151833727*^9}, {3.6924152984639325`*^9, 3.692415397454071*^9}, { 3.6924155440942764`*^9, 3.6924155997043543`*^9}, {3.6924163099373484`*^9, 3.692416448987543*^9}, {3.6924164799875865`*^9, 3.692416520217643*^9}, { 3.6926047241829367`*^9, 3.6926047936630344`*^9}, {3.692694606764871*^9, 3.6926946080948734`*^9}, {3.6926946485549297`*^9, 3.6926946848649807`*^9}, {3.692694726505039*^9, 3.6926947795951133`*^9}, { 3.6926948533452168`*^9, 3.6926948903052683`*^9}, {3.692695016775445*^9, 3.6926950466854873`*^9}, {3.6926951047455683`*^9, 3.6926952014557037`*^9}, {3.692695400025982*^9, 3.6926954007959833`*^9}, { 3.692699088631146*^9, 3.6926990917611504`*^9}, {3.692699130701205*^9, 3.692699150701233*^9}, {3.6926992111213174`*^9, 3.692699243221362*^9}, { 3.692767928345048*^9, 3.6927679342250557`*^9}, {3.692768078185258*^9, 3.692768090845275*^9}, {3.692768583705965*^9, 3.6927686080859995`*^9}, { 3.692768652936062*^9, 3.6927686668160815`*^9}, {3.6927686975061245`*^9, 3.692768721766158*^9}, {3.6927687546262045`*^9, 3.692768807796279*^9}, { 3.6927688439663296`*^9, 3.692768846666333*^9}, {3.6927689511864796`*^9, 3.6927690097565613`*^9}, {3.692769047276614*^9, 3.6927692269968657`*^9}, { 3.692769260096912*^9, 3.6927692611369133`*^9}, {3.692769508057259*^9, 3.6927695324672937`*^9}, {3.692769570707347*^9, 3.692769719217555*^9}, { 3.6927698159576902`*^9, 3.6927698318077126`*^9}, 3.6927699552978854`*^9, { 3.6927701375081406`*^9, 3.6927701495781574`*^9}, {3.692772614961609*^9, 3.692772638701642*^9}, {3.692782982318822*^9, 3.6927829888081927`*^9}, { 3.6927830390960693`*^9, 3.692783045068411*^9}, {3.692783125046985*^9, 3.6927831273591175`*^9}, {3.692784897481363*^9, 3.6927849907176957`*^9}, 3.6927851596043553`*^9, {3.692786968327264*^9, 3.6927869691872644`*^9}, { 3.6927917561302457`*^9, 3.6927918079203186`*^9}, {3.6927918834304237`*^9, 3.692791893050438*^9}, 3.692791931280491*^9, {3.692791999660587*^9, 3.692792026840625*^9}, {3.6927921455307913`*^9, 3.6927921655908194`*^9}, { 3.692792200960869*^9, 3.692792228630907*^9}, {3.692792265330959*^9, 3.6927922938409986`*^9}, {3.6927923374910593`*^9, 3.6927923700511055`*^9}, {3.6927924565012264`*^9, 3.692792499271286*^9}, { 3.692792553391362*^9, 3.6927925860314074`*^9}, {3.692792731971612*^9, 3.6927927381216207`*^9}, {3.692792820381736*^9, 3.692792853021782*^9}, { 3.6927928932518377`*^9, 3.6927929516419196`*^9}, {3.6927929886919713`*^9, 3.6927930024219904`*^9}, {3.69279305234206*^9, 3.6927930715320873`*^9}, { 3.6927932237223005`*^9, 3.692793224982302*^9}, 3.6927932572523475`*^9, { 3.6927934421826067`*^9, 3.6927934498726172`*^9}, {3.692793484652666*^9, 3.6927935029226913`*^9}, {3.6927954180780883`*^9, 3.692795446828129*^9}, { 3.6928535571114936`*^9, 3.692853577521522*^9}, {3.692854825823887*^9, 3.692854837063903*^9}, {3.692854874433955*^9, 3.6928548775639596`*^9}, { 3.6928579822683063`*^9, 3.6928579955883245`*^9}, {3.6929656707917795`*^9, 3.692965795661954*^9}, {3.6929658426120195`*^9, 3.6929658536320353`*^9}, { 3.6929659138621197`*^9, 3.6929659218321304`*^9}, {3.692965990142226*^9, 3.6929660268822775`*^9}, {3.692966066362333*^9, 3.692966192182509*^9}, 3.69296637876277*^9, {3.6929669253235354`*^9, 3.692966936273551*^9}, { 3.6929669714336*^9, 3.692966971953601*^9}, 3.6929670139636593`*^9, 3.692967433554247*^9, {3.6929675634944286`*^9, 3.6929676911746073`*^9}, { 3.6929677832047367`*^9, 3.6929678068347692`*^9}, {3.6929678599332247`*^9, 3.6929678711132402`*^9}, 3.692967908543293*^9, {3.693017052482854*^9, 3.6930171392429757`*^9}, {3.6930174027243443`*^9, 3.6930175965956163`*^9}, {3.6930184697368383`*^9, 3.6930185654269724`*^9}, {3.6930186942971525`*^9, 3.6930188354373503`*^9}, {3.6930188926684303`*^9, 3.6930189600095253`*^9}, {3.693018990869568*^9, 3.693018991349569*^9}, { 3.693019036009631*^9, 3.693019041239639*^9}, {3.6930190980797186`*^9, 3.693019098629719*^9}, {3.693019130059763*^9, 3.6930192205398893`*^9}, { 3.693020315081422*^9, 3.693020326351438*^9}, {3.6930205415560236`*^9, 3.6930206058761134`*^9}, {3.6931381375028915`*^9, 3.693138137902892*^9}, { 3.693138677303647*^9, 3.693138683263655*^9}, {3.693139600730257*^9, 3.6931396288802967`*^9}, {3.6932135226775846`*^9, 3.6932135229775853`*^9}, {3.693219312471691*^9, 3.69321932632171*^9}, { 3.6932194762919197`*^9, 3.6932194879419365`*^9}, 3.6932195481520205`*^9, { 3.693220303405078*^9, 3.6932203178550987`*^9}, {3.693220688975618*^9, 3.693220698955632*^9}, {3.6933024593938713`*^9, 3.6933024657438803`*^9}, { 3.693302603694073*^9, 3.693302604214074*^9}, {3.6933103950923057`*^9, 3.693310399082311*^9}, {3.6933104528223867`*^9, 3.693310456172391*^9}, { 3.693380733755448*^9, 3.693380746175465*^9}, {3.6936247413492084`*^9, 3.6936247436692114`*^9}, {3.69362490643944*^9, 3.6936249099894447`*^9}, { 3.6937175435584445`*^9, 3.6937175579984646`*^9}, {3.693717708199675*^9, 3.6937177268707013`*^9}, {3.6937178194508305`*^9, 3.6937178401008596`*^9}, {3.693717934550992*^9, 3.6937179428310037`*^9}, { 3.6937180305511265`*^9, 3.693718060841169*^9}, {3.693718198801362*^9, 3.6937182028213673`*^9}, {3.693723123415037*^9, 3.6937231809651175`*^9}, { 3.693723252275217*^9, 3.69372327580525*^9}, {3.6937233347053328`*^9, 3.693723337655337*^9}, {3.693723689337829*^9, 3.6937237730079465`*^9}, { 3.6937240089782767`*^9, 3.6937240113382797`*^9}, {3.6938202843684807`*^9, 3.6938203172553616`*^9}, {3.6938203482121134`*^9, 3.6938203495041876`*^9}, 3.6938204448556414`*^9, {3.693826654370701*^9, 3.693826713082033*^9}, 3.6938269274112916`*^9, {3.69384095960849*^9, 3.6938409879385295`*^9}, { 3.6938967427518525`*^9, 3.6938967457718563`*^9}, {3.693896818211958*^9, 3.6938968234619656`*^9}, {3.6940917346582804`*^9, 3.6940917372882843`*^9}, {3.6949174720509205`*^9, 3.6949174781309295`*^9}, {3.69491751432098*^9, 3.6949175560810385`*^9}, { 3.697770949307855*^9, 3.697770962227873*^9}, {3.723799262336609*^9, 3.723799262645475*^9}, 3.7239435284061375`*^9, {3.7239436460810485`*^9, 3.72394364668592*^9}, {3.7254330838452635`*^9, 3.72543315169353*^9}, { 3.7254331912947936`*^9, 3.7254332075936446`*^9}, {3.725433705009429*^9, 3.7254337902858543`*^9}, {3.72543382083533*^9, 3.7254339260782228`*^9}, { 3.7254341992826924`*^9, 3.725434210286269*^9}, {3.7254342875818415`*^9, 3.7254342880778885`*^9}, {3.725443796293885*^9, 3.7254438161441803`*^9}, { 3.725756614481497*^9, 3.725756618125969*^9}, {3.7257914023599677`*^9, 3.7257914032179613`*^9}, {3.725791548301742*^9, 3.7257915491082635`*^9}, { 3.7257916547512665`*^9, 3.725791656837747*^9}, {3.725891883570933*^9, 3.7258919550235353`*^9}, {3.7258922912790194`*^9, 3.725892303666605*^9}, { 3.7258923638013153`*^9, 3.7258923917562647`*^9}, {3.7296700409452505`*^9, 3.7296700545339613`*^9}, {3.7296701041055346`*^9, 3.7296701425854936`*^9}, {3.7296702783955297`*^9, 3.729670279332184*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"c3455444-9e5e-4f90-961e-5ffde05baf7a"] }, Closed]], Cell[CellGroupData[{ Cell["Plate strip xyn defs", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, 3.601272187572051*^9, {3.601890784270049*^9, 3.6018907857052517`*^9}, { 3.664864799801414*^9, 3.664864802188218*^9}, {3.7298419656682825`*^9, 3.7298419723564906`*^9}, {3.729842839495038*^9, 3.7298428412921534`*^9}, { 3.7299132753746405`*^9, 3.729913287556707*^9}, 3.8575236298865433`*^9},ExpressionUUID->"ecdea467-eeb4-4f2f-aa4a-\ 30359132cbf7"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"equilibrium", "[", "xyn", "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Nxx", "'"}], "[", "x", "]"}], "+", "bx"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Nxy", "'"}], "[", "x", "]"}], "+", "by"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Qx", "'"}], "[", "x", "]"}], "+", "bn"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Mxy", "'"}], "[", "x", "]"}], "-", RowBox[{"Qy", "[", "x", "]"}], "+", "cy"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Mxx", "'"}], "[", "x", "]"}], "-", RowBox[{"Qx", "[", "x", "]"}], "+", "cx"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"constitutive", "[", "xyn", "]"}], ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Nxx", "[", "x", "]"}], "-", RowBox[{"EE", "*", RowBox[{"t", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{ RowBox[{"u", "'"}], "[", "x", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Nyy", "[", "x", "]"}], "-", RowBox[{"EE", "*", RowBox[{"t", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}], "*", "\[Nu]", "*", RowBox[{ RowBox[{"u", "'"}], "[", "x", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Nxy", "[", "x", "]"}], "-", RowBox[{"EE", "*", RowBox[{"t", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"1", "-", "\[Nu]"}], ")"}], "*", RowBox[{ RowBox[{ RowBox[{"v", "'"}], "[", "x", "]"}], "/", "2"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Qx", "[", "x", "]"}], "-", RowBox[{"GG", "*", "t", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"w", "'"}], "[", "x", "]"}], "+", RowBox[{"\[Theta]", "[", "x", "]"}]}], ")"}], "*", "\[Alpha]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Qy", "[", "x", "]"}], "-", RowBox[{"GG", "*", "t", "*", RowBox[{"(", RowBox[{"-", RowBox[{"\[Phi]", "[", "x", "]"}]}], ")"}], "*", "\[Alpha]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Mxx", "[", "x", "]"}], "-", RowBox[{"DD", "*", RowBox[{ RowBox[{"\[Theta]", "'"}], "[", "x", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Myy", "[", "x", "]"}], "-", RowBox[{"DD", "*", "\[Nu]", "*", RowBox[{ RowBox[{"\[Theta]", "'"}], "[", "x", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Mxy", "[", "x", "]"}], "-", RowBox[{"DD", "*", RowBox[{"(", RowBox[{"1", "-", "\[Nu]"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"-", RowBox[{ RowBox[{"\[Phi]", "'"}], "[", "x", "]"}]}], ")"}], "/", "2"}]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"\[Alpha]", "=", RowBox[{ RowBox[{"1", " ", "or", " ", "\[Alpha]"}], "=", RowBox[{ RowBox[{ RowBox[{"5", "/", "6"}], " ", "Reissner"}], "-", "Mindlin"}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"\[Alpha]", "\[Rule]", RowBox[{"Infinity", " ", "Kirchhoff"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"clamped", "[", "xyn", "]"}], "[", "x_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"u", "[", "x", "]"}], ",", RowBox[{"v", "[", "x", "]"}], ",", RowBox[{"w", "[", "x", "]"}], ",", RowBox[{"\[Phi]", "[", "x", "]"}], ",", RowBox[{"\[Theta]", "[", "x", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"simple", "[", "xyn", "]"}], "[", "x_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"u", "[", "x", "]"}], ",", RowBox[{"v", "[", "x", "]"}], ",", RowBox[{"w", "[", "x", "]"}], ",", RowBox[{"\[Phi]", "[", "x", "]"}], ",", RowBox[{"Mxx", "[", "x", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"slide", "[", "xyn", "]"}], "[", "x_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Nxx", "[", "x", "]"}], ",", RowBox[{"v", "[", "x", "]"}], ",", RowBox[{"w", "[", "x", "]"}], ",", RowBox[{"\[Phi]", "[", "x", "]"}], ",", RowBox[{"Mxx", "[", "x", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"free", "[", "xyn", "]"}], "[", "x_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Nxx", "[", "x", "]"}], ",", RowBox[{"v", "[", "x", "]"}], ",", RowBox[{"Qx", "[", "x", "]"}], ",", RowBox[{"\[Phi]", "[", "x", "]"}], ",", RowBox[{"Mxx", "[", "x", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"functions", "[", "xyn", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"u", "[", "x", "]"}], ",", RowBox[{"v", "[", "x", "]"}], ",", RowBox[{"w", "[", "x", "]"}], ",", RowBox[{"\[Phi]", "[", "x", "]"}], ",", RowBox[{"\[Theta]", "[", "x", "]"}], ",", RowBox[{"Nxx", "[", "x", "]"}], ",", RowBox[{"Nyy", "[", "x", "]"}], ",", RowBox[{"Nxy", "[", "x", "]"}], ",", RowBox[{"Qx", "[", "x", "]"}], ",", RowBox[{"Qy", "[", "x", "]"}], ",", RowBox[{"Mxx", "[", "x", "]"}], ",", RowBox[{"Myy", "[", "x", "]"}], ",", RowBox[{"Mxy", "[", "x", "]"}]}], "}"}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.4747630249118*^9, {3.4747631189174*^9, 3.4747632157778*^9}, { 3.4747632855098*^9, 3.4747632963361998`*^9}, {3.4747634024006*^9, 3.474763402697*^9}, {3.474763495517*^9, 3.4747635001814003`*^9}, { 3.4747637730566*^9, 3.474763803851*^9}, {3.4747642087646*^9, 3.4747642600573997`*^9}, {3.4747643726426*^9, 3.4747644737774*^9}, { 3.4752269899314003`*^9, 3.4752270948882*^9}, {3.4752271345902*^9, 3.4752272632434*^9}, {3.475227295551*^9, 3.4752275983314*^9}, { 3.475227632591*^9, 3.4752276649932003`*^9}, {3.4752276971146*^9, 3.4752277780172*^9}, {3.4752278086712*^9, 3.4752279362948*^9}, { 3.4752279825643997`*^9, 3.4752280182416*^9}, {3.4752280573196*^9, 3.4752280750411997`*^9}, {3.4752281205931997`*^9, 3.4752281779231997`*^9}, {3.4752283129412003`*^9, 3.4752284125678*^9}, { 3.4752286421373997`*^9, 3.4752286429174*^9}, {3.4752290214202003`*^9, 3.4752292420810003`*^9}, {3.4752292747942*^9, 3.4752293745874*^9}, { 3.4752294050854*^9, 3.4752295128190002`*^9}, {3.475230037291*^9, 3.4752300676486*^9}, {3.4752302150998*^9, 3.475230248749*^9}, { 3.4753664935702*^9, 3.4753668085810003`*^9}, {3.4753668484702*^9, 3.4753670665114*^9}, {3.4753671011902*^9, 3.4753674723454*^9}, { 3.4753676229322*^9, 3.4753677863733997`*^9}, {3.475367825233*^9, 3.475367848243*^9}, {3.475368029983*^9, 3.4753680589522*^9}, { 3.475369411392*^9, 3.4753695644904003`*^9}, {3.4753696954256*^9, 3.475369726766*^9}, {3.4753698525643997`*^9, 3.4753698555128*^9}, { 3.4753773724536*^9, 3.4753774958652*^9}, 3.4753775502468*^9, { 3.4753776430044003`*^9, 3.4753776659364*^9}, {3.4753777121748*^9, 3.4753777832483997`*^9}, {3.4753778188164*^9, 3.475377922336*^9}, { 3.4753779601348*^9, 3.4753784001952*^9}, {3.4753785090208*^9, 3.475378568722*^9}, {3.4753786124955997`*^9, 3.4753786164112*^9}, { 3.4753786468156*^9, 3.4753786657384*^9}, {3.4753787045355997`*^9, 3.4753787267032003`*^9}, 3.4753910727106*^9, {3.4753931910636*^9, 3.4753932441756*^9}, {3.4754621543882*^9, 3.4754622450397997`*^9}, { 3.4778876497897997`*^9, 3.4778877494737997`*^9}, {3.477887825399*^9, 3.4778878298606*^9}, {3.4778878701085997`*^9, 3.477887883041*^9}, { 3.4778879526482*^9, 3.477887957843*^9}, {3.4778879979974003`*^9, 3.4778880009614*^9}, {3.4778880335654*^9, 3.4778880462326*^9}, { 3.4778880897098*^9, 3.4778881201142*^9}, {3.4778882394908*^9, 3.477888243734*^9}, {3.4778884935368*^9, 3.477888539042*^9}, { 3.477889451995*^9, 3.4778895118416*^9}, {3.4779795395165997`*^9, 3.4779795402136*^9}, {3.4779797634996*^9, 3.4779797999356003`*^9}, 3.4779798372766*^9, {3.4779799820666*^9, 3.4779801217206*^9}, { 3.4779801745425997`*^9, 3.4779801845926*^9}, {3.4779804353096*^9, 3.4779804588506002`*^9}, {3.4779804893566*^9, 3.4779806203556004`*^9}, { 3.4779807300538*^9, 3.4779807467418003`*^9}, {3.4779808817128*^9, 3.4779809449638*^9}, {3.4781573512264*^9, 3.4781573649856*^9}, { 3.478157397808*^9, 3.4781574763227997`*^9}, {3.4781575335436*^9, 3.4781576406532*^9}, {3.4781576880615997`*^9, 3.478157739292*^9}, { 3.478157788042*^9, 3.4781577938452*^9}, {3.4781578276036*^9, 3.4781579446191998`*^9}, {3.4781579974564*^9, 3.4781579980959997`*^9}, 3.47815804396*^9, {3.4781582919532003`*^9, 3.47815834816*^9}, { 3.4781583838694*^9, 3.4781583926366*^9}, 3.4781585049566*^9, { 3.478162407691*^9, 3.4781624349442*^9}, {3.4781624661286*^9, 3.4781624682033997`*^9}, 3.4781626733746*^9, {3.5376219474134884`*^9, 3.537621988198821*^9}, {3.537622048951296*^9, 3.537622120225373*^9}, { 3.5376222446004868`*^9, 3.537622312108348*^9}, 3.537622776495909*^9, { 3.537622908932484*^9, 3.537622917335965*^9}, {3.5376238837162385`*^9, 3.537624004391141*^9}, {3.5376240458145103`*^9, 3.5376242437438307`*^9}, { 3.537624281650999*^9, 3.5376244166457205`*^9}, {3.5376244546488943`*^9, 3.5376248198917847`*^9}, {3.5397503703948455`*^9, 3.5397504308449516`*^9}, 3.5627674253055143`*^9, {3.5781422724253883`*^9, 3.578142305481847*^9}, { 3.5828109510514917`*^9, 3.582810961924711*^9}, {3.6000023977095795`*^9, 3.6000024056343937`*^9}, {3.600002438425651*^9, 3.6000024578788853`*^9}, { 3.600002497565355*^9, 3.600002598559932*^9}, {3.6000027265893574`*^9, 3.6000028178183174`*^9}, {3.600004251273635*^9, 3.6000042647676587`*^9}, { 3.6000479817557764`*^9, 3.6000483859368863`*^9}, {3.600048424453354*^9, 3.6000485077575006`*^9}, {3.600048552451579*^9, 3.600048659342967*^9}, { 3.6000486956130304`*^9, 3.6000487948292046`*^9}, {3.600048827292862*^9, 3.6000488489925*^9}, {3.6000489136546135`*^9, 3.6000492298047686`*^9}, { 3.6000492661060324`*^9, 3.6000494956604357`*^9}, {3.600049563676555*^9, 3.60004964038189*^9}, {3.600049704232802*^9, 3.600049707680408*^9}, { 3.6000498654590855`*^9, 3.600049982756691*^9}, {3.600050061318429*^9, 3.600050183014243*^9}, {3.6000502198459077`*^9, 3.6000503051000576`*^9}, { 3.6000503376105146`*^9, 3.600050450320712*^9}, {3.600050565012114*^9, 3.6000507365032153`*^9}, {3.6000507713224764`*^9, 3.6000507846292996`*^9}, {3.6000509146243277`*^9, 3.6000509929520655`*^9}, {3.600052137070728*^9, 3.600052140487134*^9}, { 3.6009245212614975`*^9, 3.6009245813060026`*^9}, {3.6009246118976564`*^9, 3.6009247053262205`*^9}, {3.6009247454650908`*^9, 3.6009248645557003`*^9}, {3.600924897627758*^9, 3.6009250270923853`*^9}, { 3.60093269343791*^9, 3.6009326961055145`*^9}, {3.6009327283039713`*^9, 3.600932810640916*^9}, {3.600932919607107*^9, 3.6009330596953535`*^9}, { 3.600933106448635*^9, 3.6009331778655605`*^9}, {3.6009332278324485`*^9, 3.6009334194943852`*^9}, {3.600933457277652*^9, 3.600933458978054*^9}, { 3.6009335033445325`*^9, 3.600933546775009*^9}, {3.600933589019883*^9, 3.600933594635893*^9}, {3.6009336332459607`*^9, 3.600933726752525*^9}, { 3.600933764317391*^9, 3.6009337710722027`*^9}, {3.6009338044406614`*^9, 3.600933853081547*^9}, {3.600934005244214*^9, 3.6009340502970934`*^9}, { 3.6009340857403555`*^9, 3.6009341752533126`*^9}, {3.600934250008644*^9, 3.600934354918828*^9}, {3.600934408426922*^9, 3.6009344234341483`*^9}, { 3.600934488111862*^9, 3.6009345709168077`*^9}, {3.600934624736902*^9, 3.600934638932927*^9}, {3.60093468637261*^9, 3.600934760753541*^9}, { 3.6009348210476465`*^9, 3.6009349317766414`*^9}, {3.6009350071247735`*^9, 3.600935160207843*^9}, {3.6009352133259363`*^9, 3.6009352260243583`*^9}, { 3.6009352675828314`*^9, 3.600935273776042*^9}, {3.6009383693050795`*^9, 3.6009386236011257`*^9}, {3.600938695158451*^9, 3.600938845605116*^9}, { 3.6009391629720736`*^9, 3.600939299628313*^9}, {3.600939553393959*^9, 3.6009395861540165`*^9}, {3.600939652407333*^9, 3.6009396642633533`*^9}, { 3.6009397392682853`*^9, 3.600939765398331*^9}, {3.600939855098489*^9, 3.6009398902297506`*^9}, {3.6009399920511293`*^9, 3.6009400593496475`*^9}, {3.6009401208137555`*^9, 3.600940245286374*^9}, { 3.6009402864548464`*^9, 3.6009402976088657`*^9}, {3.600944609222439*^9, 3.600944635477285*^9}, {3.600944687784177*^9, 3.600944710778617*^9}, { 3.6009451493577876`*^9, 3.600945150184589*^9}, 3.6009451913218613`*^9, { 3.600945405229437*^9, 3.6009454072106404`*^9}, {3.600945440610299*^9, 3.600945510482822*^9}, {3.6009457299128075`*^9, 3.6009457335008135`*^9}, { 3.600953140517025*^9, 3.600953181233096*^9}, {3.600953225365574*^9, 3.600953304598113*^9}, {3.6009533714130306`*^9, 3.60095337693544*^9}, { 3.600955624306587*^9, 3.6009556683142643`*^9}, {3.600955704350328*^9, 3.6009557208863573`*^9}, {3.600955931346327*^9, 3.6009559929508348`*^9}, { 3.600956393809139*^9, 3.600956401328352*^9}, {3.601271999654121*^9, 3.6012720126177435`*^9}, {3.601272051820613*^9, 3.601272060572228*^9}, { 3.601272126185943*^9, 3.601272140990369*^9}, 3.6012722043888807`*^9, 3.601272299875179*^9, {3.6012725511195493`*^9, 3.6012725676964974`*^9}, 3.6012728819354706`*^9, {3.601272984077313*^9, 3.6012729861614323`*^9}, { 3.6648646212123003`*^9, 3.664864693830428*^9}, {3.6648651694294634`*^9, 3.664865194810708*^9}, {3.6648653304529457`*^9, 3.6648653472541757`*^9}, { 3.729843343017043*^9, 3.729843359628227*^9}, {3.729912735732216*^9, 3.7299128731556425`*^9}, {3.7299129221669583`*^9, 3.72991294797655*^9}, { 3.7300248525581837`*^9, 3.730024855449114*^9}, {3.761719398803795*^9, 3.761719404080242*^9}, {3.7617194575630035`*^9, 3.761719465781798*^9}, { 3.761727720920184*^9, 3.7617277379162164`*^9}, {3.76172777295424*^9, 3.7617277861699333`*^9}, {3.857523722011054*^9, 3.857523731455036*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"0e4cf4db-197f-4755-9004-ab8beae83a41"] }, Closed]], Cell[CellGroupData[{ Cell["Plate strip r\[Phi]n defs", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, 3.601272187572051*^9, {3.601890784270049*^9, 3.6018907857052517`*^9}, { 3.664864799801414*^9, 3.664864802188218*^9}, {3.7298419656682825`*^9, 3.7298419723564906`*^9}, {3.729842839495038*^9, 3.7298428412921534`*^9}, { 3.7299132753746405`*^9, 3.7299133093433633`*^9}},ExpressionUUID->"19235eb5-3768-441f-9b6b-\ 2c0cfee98f5c"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"wn", "[", "r_", "]"}], ":=", RowBox[{ FractionBox[ RowBox[{"bn", " ", SuperscriptBox["r", "4"]}], RowBox[{"64", " ", "DD"}]], "+", "a", "+", RowBox[{"b", " ", SuperscriptBox["r", "2"]}], " ", "+", RowBox[{"c", " ", SuperscriptBox["r", "2"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"Log", "[", "r", "]"}]}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"Log", "[", "r", "]"}]}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Theta]\[Phi]", "[", "r_", "]"}], ":=", RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "r"], RowBox[{"wn", "[", "r", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Mrr", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{"-", "DD"}], RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"r", ",", "r"}]], RowBox[{"wn", "[", "r", "]"}]}], "+", RowBox[{"\[Nu]", FractionBox["1", "r"], RowBox[{ SubscriptBox["\[PartialD]", "r"], RowBox[{"wn", "[", "r", "]"}]}]}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"M\[Phi]\[Phi]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{"-", "DD"}], RowBox[{"(", RowBox[{ RowBox[{"\[Nu]", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"r", ",", "r"}]], RowBox[{"wn", "[", "r", "]"}]}]}], "+", RowBox[{ FractionBox["1", "r"], RowBox[{ SubscriptBox["\[PartialD]", "r"], RowBox[{"wn", "[", "r", "]"}]}]}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Qr", "[", "r_", "]"}], ":=", RowBox[{ FractionBox["1", "r"], RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "r"], RowBox[{"(", RowBox[{"r", " ", RowBox[{"Mrr", "[", "r", "]"}]}], ")"}]}], "-", RowBox[{"M\[Phi]\[Phi]", "[", "r", "]"}]}], ")"}]}]}], ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.4747630249118*^9, {3.4747631189174*^9, 3.4747632157778*^9}, { 3.4747632855098*^9, 3.4747632963361998`*^9}, {3.4747634024006*^9, 3.474763402697*^9}, {3.474763495517*^9, 3.4747635001814003`*^9}, { 3.4747637730566*^9, 3.474763803851*^9}, {3.4747642087646*^9, 3.4747642600573997`*^9}, {3.4747643726426*^9, 3.4747644737774*^9}, { 3.4752269899314003`*^9, 3.4752270948882*^9}, {3.4752271345902*^9, 3.4752272632434*^9}, {3.475227295551*^9, 3.4752275983314*^9}, { 3.475227632591*^9, 3.4752276649932003`*^9}, {3.4752276971146*^9, 3.4752277780172*^9}, {3.4752278086712*^9, 3.4752279362948*^9}, { 3.4752279825643997`*^9, 3.4752280182416*^9}, {3.4752280573196*^9, 3.4752280750411997`*^9}, {3.4752281205931997`*^9, 3.4752281779231997`*^9}, {3.4752283129412003`*^9, 3.4752284125678*^9}, { 3.4752286421373997`*^9, 3.4752286429174*^9}, {3.4752290214202003`*^9, 3.4752292420810003`*^9}, {3.4752292747942*^9, 3.4752293745874*^9}, { 3.4752294050854*^9, 3.4752295128190002`*^9}, {3.475230037291*^9, 3.4752300676486*^9}, {3.4752302150998*^9, 3.475230248749*^9}, { 3.4753664935702*^9, 3.4753668085810003`*^9}, {3.4753668484702*^9, 3.4753670665114*^9}, {3.4753671011902*^9, 3.4753674723454*^9}, { 3.4753676229322*^9, 3.4753677863733997`*^9}, {3.475367825233*^9, 3.475367848243*^9}, {3.475368029983*^9, 3.4753680589522*^9}, { 3.475369411392*^9, 3.4753695644904003`*^9}, {3.4753696954256*^9, 3.475369726766*^9}, {3.4753698525643997`*^9, 3.4753698555128*^9}, { 3.4753773724536*^9, 3.4753774958652*^9}, 3.4753775502468*^9, { 3.4753776430044003`*^9, 3.4753776659364*^9}, {3.4753777121748*^9, 3.4753777832483997`*^9}, {3.4753778188164*^9, 3.475377922336*^9}, { 3.4753779601348*^9, 3.4753784001952*^9}, {3.4753785090208*^9, 3.475378568722*^9}, {3.4753786124955997`*^9, 3.4753786164112*^9}, { 3.4753786468156*^9, 3.4753786657384*^9}, {3.4753787045355997`*^9, 3.4753787267032003`*^9}, 3.4753910727106*^9, {3.4753931910636*^9, 3.4753932441756*^9}, {3.4754621543882*^9, 3.4754622450397997`*^9}, { 3.4778876497897997`*^9, 3.4778877494737997`*^9}, {3.477887825399*^9, 3.4778878298606*^9}, {3.4778878701085997`*^9, 3.477887883041*^9}, { 3.4778879526482*^9, 3.477887957843*^9}, {3.4778879979974003`*^9, 3.4778880009614*^9}, {3.4778880335654*^9, 3.4778880462326*^9}, { 3.4778880897098*^9, 3.4778881201142*^9}, {3.4778882394908*^9, 3.477888243734*^9}, {3.4778884935368*^9, 3.477888539042*^9}, { 3.477889451995*^9, 3.4778895118416*^9}, {3.4779795395165997`*^9, 3.4779795402136*^9}, {3.4779797634996*^9, 3.4779797999356003`*^9}, 3.4779798372766*^9, {3.4779799820666*^9, 3.4779801217206*^9}, { 3.4779801745425997`*^9, 3.4779801845926*^9}, {3.4779804353096*^9, 3.4779804588506002`*^9}, {3.4779804893566*^9, 3.4779806203556004`*^9}, { 3.4779807300538*^9, 3.4779807467418003`*^9}, {3.4779808817128*^9, 3.4779809449638*^9}, {3.4781573512264*^9, 3.4781573649856*^9}, { 3.478157397808*^9, 3.4781574763227997`*^9}, {3.4781575335436*^9, 3.4781576406532*^9}, {3.4781576880615997`*^9, 3.478157739292*^9}, { 3.478157788042*^9, 3.4781577938452*^9}, {3.4781578276036*^9, 3.4781579446191998`*^9}, {3.4781579974564*^9, 3.4781579980959997`*^9}, 3.47815804396*^9, {3.4781582919532003`*^9, 3.47815834816*^9}, { 3.4781583838694*^9, 3.4781583926366*^9}, 3.4781585049566*^9, { 3.478162407691*^9, 3.4781624349442*^9}, {3.4781624661286*^9, 3.4781624682033997`*^9}, 3.4781626733746*^9, {3.5376219474134884`*^9, 3.537621988198821*^9}, {3.537622048951296*^9, 3.537622120225373*^9}, { 3.5376222446004868`*^9, 3.537622312108348*^9}, 3.537622776495909*^9, { 3.537622908932484*^9, 3.537622917335965*^9}, {3.5376238837162385`*^9, 3.537624004391141*^9}, {3.5376240458145103`*^9, 3.5376242437438307`*^9}, { 3.537624281650999*^9, 3.5376244166457205`*^9}, {3.5376244546488943`*^9, 3.5376248198917847`*^9}, {3.5397503703948455`*^9, 3.5397504308449516`*^9}, 3.5627674253055143`*^9, {3.5781422724253883`*^9, 3.578142305481847*^9}, { 3.5828109510514917`*^9, 3.582810961924711*^9}, {3.6000023977095795`*^9, 3.6000024056343937`*^9}, {3.600002438425651*^9, 3.6000024578788853`*^9}, { 3.600002497565355*^9, 3.600002598559932*^9}, {3.6000027265893574`*^9, 3.6000028178183174`*^9}, {3.600004251273635*^9, 3.6000042647676587`*^9}, { 3.6000479817557764`*^9, 3.6000483859368863`*^9}, {3.600048424453354*^9, 3.6000485077575006`*^9}, {3.600048552451579*^9, 3.600048659342967*^9}, { 3.6000486956130304`*^9, 3.6000487948292046`*^9}, {3.600048827292862*^9, 3.6000488489925*^9}, {3.6000489136546135`*^9, 3.6000492298047686`*^9}, { 3.6000492661060324`*^9, 3.6000494956604357`*^9}, {3.600049563676555*^9, 3.60004964038189*^9}, {3.600049704232802*^9, 3.600049707680408*^9}, { 3.6000498654590855`*^9, 3.600049982756691*^9}, {3.600050061318429*^9, 3.600050183014243*^9}, {3.6000502198459077`*^9, 3.6000503051000576`*^9}, { 3.6000503376105146`*^9, 3.600050450320712*^9}, {3.600050565012114*^9, 3.6000507365032153`*^9}, {3.6000507713224764`*^9, 3.6000507846292996`*^9}, {3.6000509146243277`*^9, 3.6000509929520655`*^9}, {3.600052137070728*^9, 3.600052140487134*^9}, { 3.6009245212614975`*^9, 3.6009245813060026`*^9}, {3.6009246118976564`*^9, 3.6009247053262205`*^9}, {3.6009247454650908`*^9, 3.6009248645557003`*^9}, {3.600924897627758*^9, 3.6009250270923853`*^9}, { 3.60093269343791*^9, 3.6009326961055145`*^9}, {3.6009327283039713`*^9, 3.600932810640916*^9}, {3.600932919607107*^9, 3.6009330596953535`*^9}, { 3.600933106448635*^9, 3.6009331778655605`*^9}, {3.6009332278324485`*^9, 3.6009334194943852`*^9}, {3.600933457277652*^9, 3.600933458978054*^9}, { 3.6009335033445325`*^9, 3.600933546775009*^9}, {3.600933589019883*^9, 3.600933594635893*^9}, {3.6009336332459607`*^9, 3.600933726752525*^9}, { 3.600933764317391*^9, 3.6009337710722027`*^9}, {3.6009338044406614`*^9, 3.600933853081547*^9}, {3.600934005244214*^9, 3.6009340502970934`*^9}, { 3.6009340857403555`*^9, 3.6009341752533126`*^9}, {3.600934250008644*^9, 3.600934354918828*^9}, {3.600934408426922*^9, 3.6009344234341483`*^9}, { 3.600934488111862*^9, 3.6009345709168077`*^9}, {3.600934624736902*^9, 3.600934638932927*^9}, {3.60093468637261*^9, 3.600934760753541*^9}, { 3.6009348210476465`*^9, 3.6009349317766414`*^9}, {3.6009350071247735`*^9, 3.600935160207843*^9}, {3.6009352133259363`*^9, 3.6009352260243583`*^9}, { 3.6009352675828314`*^9, 3.600935273776042*^9}, {3.6009383693050795`*^9, 3.6009386236011257`*^9}, {3.600938695158451*^9, 3.600938845605116*^9}, { 3.6009391629720736`*^9, 3.600939299628313*^9}, {3.600939553393959*^9, 3.6009395861540165`*^9}, {3.600939652407333*^9, 3.6009396642633533`*^9}, { 3.6009397392682853`*^9, 3.600939765398331*^9}, {3.600939855098489*^9, 3.6009398902297506`*^9}, {3.6009399920511293`*^9, 3.6009400593496475`*^9}, {3.6009401208137555`*^9, 3.600940245286374*^9}, { 3.6009402864548464`*^9, 3.6009402976088657`*^9}, {3.600944609222439*^9, 3.600944635477285*^9}, {3.600944687784177*^9, 3.600944710778617*^9}, { 3.6009451493577876`*^9, 3.600945150184589*^9}, 3.6009451913218613`*^9, { 3.600945405229437*^9, 3.6009454072106404`*^9}, {3.600945440610299*^9, 3.600945510482822*^9}, {3.6009457299128075`*^9, 3.6009457335008135`*^9}, { 3.600953140517025*^9, 3.600953181233096*^9}, {3.600953225365574*^9, 3.600953304598113*^9}, {3.6009533714130306`*^9, 3.60095337693544*^9}, { 3.600955624306587*^9, 3.6009556683142643`*^9}, {3.600955704350328*^9, 3.6009557208863573`*^9}, {3.600955931346327*^9, 3.6009559929508348`*^9}, { 3.600956393809139*^9, 3.600956401328352*^9}, {3.601271999654121*^9, 3.6012720126177435`*^9}, {3.601272051820613*^9, 3.601272060572228*^9}, { 3.601272126185943*^9, 3.601272140990369*^9}, 3.6012722043888807`*^9, 3.601272299875179*^9, {3.6012725511195493`*^9, 3.6012725676964974`*^9}, 3.6012728819354706`*^9, {3.601272984077313*^9, 3.6012729861614323`*^9}, { 3.6648646212123003`*^9, 3.664864693830428*^9}, {3.6648651694294634`*^9, 3.664865194810708*^9}, {3.6648653304529457`*^9, 3.6648653472541757`*^9}, { 3.729843343017043*^9, 3.729843359628227*^9}, {3.729912735732216*^9, 3.7299128731556425`*^9}, {3.7299129221669583`*^9, 3.72991294797655*^9}, { 3.7299143309854045`*^9, 3.7299144064770036`*^9}, {3.729914466816121*^9, 3.7299144972629137`*^9}, {3.7299145701684504`*^9, 3.7299147708726997`*^9}, {3.7299148129278145`*^9, 3.7299148288213263`*^9}, {3.729914923328169*^9, 3.7299149574326787`*^9}, { 3.7299149948173995`*^9, 3.729915025214194*^9}, {3.729915062055749*^9, 3.729915089788885*^9}, {3.729944481068668*^9, 3.7299445439033556`*^9}, { 3.7299445741396875`*^9, 3.729944630579455*^9}, {3.7299446671826925`*^9, 3.7299447402986374`*^9}, {3.729944774519725*^9, 3.729944864888532*^9}, { 3.729944894980105*^9, 3.7299449604285393`*^9}, {3.7299450098352437`*^9, 3.7299450473428507`*^9}, {3.7299450871728687`*^9, 3.7299450898243265`*^9}, {3.7299451578044558`*^9, 3.729945288408459*^9}, { 3.729945442507735*^9, 3.729945703072991*^9}, {3.729945746479768*^9, 3.7299458464842577`*^9}, {3.729945943496187*^9, 3.7299459492569003`*^9}, 3.729945980854929*^9, {3.729946087120881*^9, 3.7299461027920127`*^9}, { 3.729946134210367*^9, 3.7299462148248615`*^9}, {3.729946263547346*^9, 3.7299462783417006`*^9}, {3.729946584568553*^9, 3.72994659728551*^9}, { 3.7299466549181967`*^9, 3.7299466654092016`*^9}, {3.729999899902412*^9, 3.7299999311914415`*^9}, 3.7300214523318644`*^9, {3.730026030245097*^9, 3.7300260813131437`*^9}, 3.7300261144882455`*^9, 3.76129722341959*^9, 3.857691397220363*^9, {3.8576914417249217`*^9, 3.857691533154003*^9}, 3.8576915837789154`*^9, {3.857691687774287*^9, 3.857691694928857*^9}, { 3.857691735872802*^9, 3.8576918742138968`*^9}, {3.8576919691074624`*^9, 3.857692102125498*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"1a4fd206-e972-4b28-b4a2-310191d8e63c"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Examples", "Section", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622997047524*^9, {3.5376238658302155`*^9, 3.5376238672312956`*^9}, { 3.600002366135124*^9, 3.6000023692707295`*^9}, {3.6000479572325335`*^9, 3.6000479595569377`*^9}, {3.6004096645198383`*^9, 3.600409717357131*^9}, { 3.600571492488657*^9, 3.600571494735061*^9}, {3.6005936284438515`*^9, 3.6005936292394524`*^9}, {3.6006741159692173`*^9, 3.6006741341492577`*^9}, {3.6009244661154003`*^9, 3.6009244668018017`*^9}, {3.6009457474004383`*^9, 3.6009457619084635`*^9}, {3.602597028248521*^9, 3.6025970312125263`*^9}, { 3.665490154107024*^9, 3.6654901677618055`*^9}, {3.665495119842326*^9, 3.6654951271119394`*^9}, {3.698475313256069*^9, 3.698475353316125*^9}, { 3.6984753884061747`*^9, 3.69847542777623*^9}, {3.6984789036220956`*^9, 3.6984789072221007`*^9}},ExpressionUUID->"a0c53ddd-7c8e-416d-bffe-\ 87289c4920bd"], Cell[CellGroupData[{ Cell["Lecture example 5.1 (Double sine series solution)", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, 3.601272187572051*^9, 3.6018909318619084`*^9, 3.601891512682129*^9, 3.6018936089046106`*^9, {3.664878906157814*^9, 3.6648789098394203`*^9}, { 3.6983882168251424`*^9, 3.6983882190651455`*^9}, {3.729841498400111*^9, 3.729841511714019*^9}, {3.7298438456432447`*^9, 3.729843846549593*^9}, { 3.793505755540191*^9, 3.793505762758035*^9}, 3.8575232606054068`*^9},ExpressionUUID->"dcf69dbd-9fe2-4acc-997b-\ 27bc732a24dc"], Cell[BoxData[ RowBox[{" ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"rule", "=", RowBox[{"{", RowBox[{ RowBox[{"L", "->", "10"}], ",", RowBox[{"H", "->", "10"}], ",", " ", RowBox[{"t", "->", "0.01"}], ",", RowBox[{"\[Nu]", "->", RowBox[{"1", "/", "3"}]}], ",", " ", RowBox[{"EE", "->", RowBox[{"210", "*", RowBox[{"10", "^", "9"}]}]}], ",", " ", "\[IndentingNewLine]", RowBox[{"DD", " ", "\[Rule]", " ", RowBox[{"EE", "*", RowBox[{ RowBox[{"t", "^", "3"}], "/", RowBox[{"(", RowBox[{"12", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}], ")"}]}]}]}], ",", RowBox[{"b", "->", "90"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"wij", "=", RowBox[{ FractionBox[ RowBox[{"16", " ", "b", " ", SuperscriptBox["H", "4"], " ", SuperscriptBox["L", "4"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{"i", " ", "\[Pi]"}], "2"], "]"}], "2"], " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{"j", " ", "\[Pi]"}], "2"], "]"}], "2"], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"i", " ", "\[Pi]", " ", "x"}], "L"], "]"}], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"j", " ", "\[Pi]", " ", "y"}], "H"], "]"}]}], RowBox[{ RowBox[{"DD", " ", SuperscriptBox["H", "4"], " ", SuperscriptBox["i", "5"], " ", "j", " ", SuperscriptBox["\[Pi]", "6"]}], "+", RowBox[{"2", " ", "DD", " ", SuperscriptBox["H", "2"], " ", SuperscriptBox["i", "3"], " ", SuperscriptBox["j", "3"], " ", SuperscriptBox["L", "2"], " ", SuperscriptBox["\[Pi]", "6"]}], "+", RowBox[{"2", " ", "DD", " ", "i", " ", SuperscriptBox["j", "5"], " ", SuperscriptBox["L", "4"], " ", SuperscriptBox["\[Pi]", "6"]}]}]], " ", "//.", "rule"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"derived", " ", "terms"}], "*)"}], "\n", RowBox[{ RowBox[{"Mxxij", "=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"EE", "*", RowBox[{ RowBox[{"t", "^", "3"}], "/", RowBox[{"(", RowBox[{"12", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}], ")"}]}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "wij"}], "+", RowBox[{"\[Nu]", "*", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "wij"}]}]}], ")"}]}], " ", "//.", "rule"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Myyij", "=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"EE", "*", RowBox[{ RowBox[{"t", "^", "3"}], "/", RowBox[{"(", RowBox[{"12", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}], ")"}]}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], "wij"}], "+", RowBox[{"\[Nu]", "*", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], "wij"}]}]}], ")"}]}], "//.", "rule"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mxyij", "=", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"EE", "*", RowBox[{ RowBox[{"t", "^", "3"}], "/", RowBox[{"(", RowBox[{"12", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}], ")"}]}]}], ")"}]}], "*", RowBox[{"(", RowBox[{"1", "-", "\[Nu]"}], ")"}], "*", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], "wij"}]}], "//.", "rule"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Qxij", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], "Mxxij"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "y"], "Mxyij"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Qyij", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], "Myyij"}], "+", RowBox[{ SubscriptBox["\[PartialD]", "x"], "Mxyij"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "quantities", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "25"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ws", "=", RowBox[{"ParallelSum", "[", RowBox[{"wij", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n", ",", "2"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Mxxs", "=", RowBox[{"ParallelSum", "[", RowBox[{"Mxxij", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n", ",", "2"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Myys", "=", RowBox[{"ParallelSum", "[", RowBox[{"Myyij", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n", ",", "2"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Mxys", "=", RowBox[{"ParallelSum", "[", RowBox[{"Mxyij", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n", ",", "2"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Qxs", "=", RowBox[{"ParallelSum", "[", RowBox[{"Qxij", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n", ",", "2"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Qys", "=", RowBox[{"ParallelSum", "[", RowBox[{"Qyij", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n", ",", "2"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fsize", "=", "14"}], ";"}], "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{"Partition", "[", RowBox[{ RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"Plot3D", "[", RowBox[{"#1", ",", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "0", ",", "L"}], "}"}], " ", "/.", "rule"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"{", RowBox[{"y", ",", "0", ",", "H"}], "}"}], " ", "/.", "rule"}], "]"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", ".25", "]"}], ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "10"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], "[", RowBox[{"[", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"Lighting", "\[Rule]", "\"\\""}], ",", RowBox[{"SphericalRegion", "->", "True"}], ",", RowBox[{"BaseStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "fsize"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "Automatic", ",", "All"}], "}"}]}]}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{ "ws", ",", "Mxxs", ",", "Myys", ",", "Mxys", ",", "Qxs", ",", "Qys"}], "}"}]}], "]"}], ",", "3"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.601313951267284*^9, 3.6013140252114134`*^9}, { 3.601314093711134*^9, 3.601314270787045*^9}, {3.6013143804084377`*^9, 3.601314473337801*^9}, {3.6013149788098884`*^9, 3.6013149882323055`*^9}, { 3.601340614118454*^9, 3.6013407373898706`*^9}, {3.60134077135113*^9, 3.6013409616246643`*^9}, {3.6013410067087436`*^9, 3.601341086268883*^9}, { 3.601341120557743*^9, 3.6013411387473755`*^9}, {3.601341251847574*^9, 3.601341291128443*^9}, {3.6013413215796967`*^9, 3.6013413257449036`*^9}, { 3.601341393651823*^9, 3.6013416705991096`*^9}, {3.6013417051375704`*^9, 3.601341724809205*^9}, {3.601341773980491*^9, 3.6013417869285135`*^9}, { 3.6013418901538954`*^9, 3.6013418908246965`*^9}, {3.601341940869584*^9, 3.601342003316494*^9}, {3.6013420798502283`*^9, 3.6013420878374424`*^9}, { 3.6013421442471414`*^9, 3.601342212278861*^9}, {3.601342248658125*^9, 3.6013422850685887`*^9}, {3.6013423513687053`*^9, 3.601342444157668*^9}, { 3.601342521409004*^9, 3.6013425273526144`*^9}, {3.6013425640594788`*^9, 3.6013425781775036`*^9}, {3.6013426110779614`*^9, 3.601342686145293*^9}, { 3.601342786437869*^9, 3.601342789230274*^9}, {3.6013428577455945`*^9, 3.601342863018404*^9}, {3.6013429094284854`*^9, 3.6013429182581005`*^9}, { 3.601342961048976*^9, 3.6013429880838237`*^9}, {3.6013430210622816`*^9, 3.601343064882758*^9}, {3.6013434076309605`*^9, 3.601343573287651*^9}, { 3.6013436285273485`*^9, 3.6013436334881573`*^9}, {3.601343670600622*^9, 3.6013437385543413`*^9}, {3.6013437701443973`*^9, 3.601343787164027*^9}, { 3.6013438278332987`*^9, 3.6013438388625183`*^9}, {3.601343873104578*^9, 3.6013438948978167`*^9}, 3.6013439274550734`*^9, {3.6013439625551353`*^9, 3.6013440811621437`*^9}, {3.6013441228922167`*^9, 3.601344308672943*^9}, { 3.601344546900962*^9, 3.601344548523364*^9}, {3.6013446565379543`*^9, 3.601344663464366*^9}, 3.6013457077950006`*^9, {3.601345758151889*^9, 3.6013457699143095`*^9}, {3.6013553145229216`*^9, 3.6013553209642897`*^9}, {3.60135565822058*^9, 3.601355667418106*^9}, 3.601355795222416*^9, 3.6013558538517694`*^9, 3.6013558876107006`*^9, { 3.601356829699139*^9, 3.60135692696531*^9}, {3.601356987104416*^9, 3.601356998320835*^9}, {3.6013570424377127`*^9, 3.601357045932119*^9}, { 3.601357118269446*^9, 3.6013571225906534`*^9}, {3.601357369479273*^9, 3.601357370424327*^9}, {3.6013574497938666`*^9, 3.601357453105056*^9}, { 3.601357520199894*^9, 3.6013575282613544`*^9}, {3.601357806887291*^9, 3.601357809292429*^9}, {3.601357884232715*^9, 3.6013579135581255`*^9}, { 3.601357949952989*^9, 3.60135795026499*^9}, {3.601358031993533*^9, 3.6013580320871334`*^9}, {3.601362738657782*^9, 3.6013628080077486`*^9}, { 3.6013628827610245`*^9, 3.6013628841501036`*^9}, {3.6013629148928623`*^9, 3.601362918095045*^9}, {3.6013640636965103`*^9, 3.6013640711065235`*^9}, { 3.6013643582562275`*^9, 3.601364358396628*^9}, {3.6013677590224004`*^9, 3.601367794808863*^9}, {3.601375836845947*^9, 3.6013758526175747`*^9}, { 3.601375998711831*^9, 3.601376186863762*^9}, 3.6013762366902494`*^9, { 3.601376325984806*^9, 3.6013763393852296`*^9}, {3.6013764020037394`*^9, 3.6013765606092176`*^9}, {3.6013766141329117`*^9, 3.6013766244289303`*^9}, {3.6013766900894456`*^9, 3.6013767180602946`*^9}, {3.6013767498843503`*^9, 3.6013768530005317`*^9}, {3.601376884184986*^9, 3.6013769402046847`*^9}, { 3.601378062205456*^9, 3.6013780778678827`*^9}, {3.6013783095906897`*^9, 3.601378350774762*^9}, {3.601378416513278*^9, 3.6013784166380777`*^9}, 3.6013785842915726`*^9, {3.6013798010625095`*^9, 3.60137982408815*^9}, 3.6013804517240524`*^9, {3.601434409144231*^9, 3.6014344404222856`*^9}, { 3.601434482136759*^9, 3.6014345019331937`*^9}, {3.60143459105615*^9, 3.6014346522862577`*^9}, {3.6014346924875283`*^9, 3.601434697541937*^9}, 3.6014347466352234`*^9, 3.601434806554929*^9, {3.601434976907228*^9, 3.601434983474839*^9}, {3.6016460476287994`*^9, 3.601646052932809*^9}, { 3.6016460985940886`*^9, 3.601646257589568*^9}, {3.6016462884620223`*^9, 3.601646289413624*^9}, {3.6016463880837975`*^9, 3.601646389222599*^9}, { 3.601646486894371*^9, 3.601646499015592*^9}, {3.60164653785966*^9, 3.6016468795938606`*^9}, {3.6016469317759523`*^9, 3.6016469762204304`*^9}, {3.6016470902878304`*^9, 3.6016471621415567`*^9}, {3.6016472342604837`*^9, 3.6016472790325623`*^9}, {3.601647315411826*^9, 3.601647376548333*^9}, { 3.6016474226620145`*^9, 3.6016475634210615`*^9}, 3.6016475935447145`*^9, { 3.6016476532772193`*^9, 3.601647668346846*^9}, {3.60164773330536*^9, 3.601647950239341*^9}, {3.601648056647128*^9, 3.6016480580667305`*^9}, { 3.6016480924023905`*^9, 3.601648263472291*^9}, {3.664874573877735*^9, 3.6648746136450047`*^9}, {3.6648746564066796`*^9, 3.6648746796039205`*^9}, {3.6648747193371897`*^9, 3.6648748515150213`*^9}, {3.6648749886080627`*^9, 3.664875099338057*^9}, { 3.664875165372973*^9, 3.6648751726269855`*^9}, {3.664875246103115*^9, 3.6648752857739844`*^9}, {3.664875329500861*^9, 3.664875376176143*^9}, { 3.6648755553091326`*^9, 3.664875885761033*^9}, {3.6648759162587776`*^9, 3.664875947703576*^9}, {3.6648760365246973`*^9, 3.6648760568203335`*^9}, { 3.664876156364108*^9, 3.6648761571129093`*^9}, {3.664876208140599*^9, 3.6648763971817307`*^9}, {3.6648764385374036`*^9, 3.664876511280331*^9}, { 3.6648786999878516`*^9, 3.664878830528881*^9}, {3.6980482838405857`*^9, 3.698048333130655*^9}, {3.69804845097182*^9, 3.6980484527018223`*^9}, { 3.6980486250220633`*^9, 3.698048627152066*^9}, {3.6980487261522055`*^9, 3.6980487608222537`*^9}, 3.6980489255834846`*^9, 3.6980489586135306`*^9, { 3.698124529974787*^9, 3.6981247658751173`*^9}, {3.698124852985239*^9, 3.6981248604952497`*^9}, {3.6981248980953026`*^9, 3.698124970945404*^9}, { 3.6981251279956245`*^9, 3.6981251586756673`*^9}, {3.698127679572028*^9, 3.698127755282134*^9}, {3.698127800582197*^9, 3.698128047222543*^9}, { 3.698128134272664*^9, 3.698128145882681*^9}, {3.6981282586728387`*^9, 3.6981282606728415`*^9}, {3.6981283393629513`*^9, 3.6981283607929816`*^9}, {3.6981284771131444`*^9, 3.698128512633194*^9}, { 3.6981287316955023`*^9, 3.6981287361755085`*^9}, {3.698387961654785*^9, 3.6983879877048216`*^9}, {3.6983880189948654`*^9, 3.698388020214867*^9}, { 3.698388078564949*^9, 3.6983881242550125`*^9}, 3.6983882227651505`*^9, { 3.730025600824583*^9, 3.730025755981753*^9}, {3.73002587851016*^9, 3.7300259422515697`*^9}, {3.7619883686687183`*^9, 3.761988394397319*^9}, { 3.7619884346845293`*^9, 3.761988452191244*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"33e357e3-396e-4f21-b1c1-2b60e8d16e94"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 5.2 (Plate strip xyn)", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, 3.601272187572051*^9, {3.7298420114074483`*^9, 3.72984202062717*^9}, { 3.7298422567772007`*^9, 3.7298422646373563`*^9}, {3.7298438488467736`*^9, 3.7298438498155613`*^9}, {3.729913322309219*^9, 3.7299133232011385`*^9}, { 3.730021765584321*^9, 3.7300217815833054`*^9}, 3.793505770983102*^9, 3.8575232628602796`*^9},ExpressionUUID->"478daf46-9e1e-4dd6-bfdb-\ 0721f96b9e2f"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"rule", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"bx", "\[Rule]", "0"}], ",", RowBox[{"by", "\[Rule]", "0"}], ",", RowBox[{"bn", "->", RowBox[{ RowBox[{"-", "\[Rho]"}], "*", "g", "*", "t"}]}], ",", RowBox[{"cx", "\[Rule]", "0"}], ",", RowBox[{"cy", "\[Rule]", "0"}], ",", RowBox[{"cz", "\[Rule]", "0"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"equs", "=", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"equilibrium", "[", "xyn", "]"}], ",", RowBox[{"constitutive", "[", "xyn", "]"}], ",", RowBox[{ RowBox[{"clamped", "[", "xyn", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"clamped", "[", "xyn", "]"}], "[", "L", "]"}]}], "]"}], " ", "/.", "rule"}]}], ";"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sol", "=", RowBox[{ RowBox[{"DSolve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equs", "\[Equal]", "0"}], "]"}], ",", RowBox[{"functions", "[", "xyn", "]"}], ",", "x"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Simplify", "[", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"w", "[", "x", "]"}], "/.", " ", "sol"}], " ", ",", RowBox[{"\[Alpha]", "\[Rule]", "1"}]}], "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Theta](x) = \>\"", ",", RowBox[{"Simplify", "[", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"\[Theta]", "[", "x", "]"}], "/.", " ", "sol"}], " ", ",", RowBox[{"\[Alpha]", "\[Rule]", "1"}]}], "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Simplify", "[", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"Mxx", "[", "x", "]"}], "/.", " ", "sol"}], " ", ",", RowBox[{"\[Alpha]", "\[Rule]", "1"}]}], "]"}], "]"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.4747630249118*^9, {3.4747631189174*^9, 3.4747632157778*^9}, { 3.4747632855098*^9, 3.4747632963361998`*^9}, {3.4747634024006*^9, 3.474763402697*^9}, {3.474763495517*^9, 3.4747635001814003`*^9}, { 3.4747637730566*^9, 3.474763803851*^9}, {3.4747642087646*^9, 3.4747642600573997`*^9}, {3.4747643726426*^9, 3.4747644737774*^9}, { 3.4752269899314003`*^9, 3.4752270948882*^9}, {3.4752271345902*^9, 3.4752272632434*^9}, {3.475227295551*^9, 3.4752275983314*^9}, { 3.475227632591*^9, 3.4752276649932003`*^9}, {3.4752276971146*^9, 3.4752277780172*^9}, {3.4752278086712*^9, 3.4752279362948*^9}, { 3.4752279825643997`*^9, 3.4752280182416*^9}, {3.4752280573196*^9, 3.4752280750411997`*^9}, {3.4752281205931997`*^9, 3.4752281779231997`*^9}, {3.4752283129412003`*^9, 3.4752284125678*^9}, { 3.4752286421373997`*^9, 3.4752286429174*^9}, {3.4752290214202003`*^9, 3.4752292420810003`*^9}, {3.4752292747942*^9, 3.4752293745874*^9}, { 3.4752294050854*^9, 3.4752295128190002`*^9}, {3.475230037291*^9, 3.4752300676486*^9}, {3.4752302150998*^9, 3.475230248749*^9}, { 3.4753664935702*^9, 3.4753668085810003`*^9}, {3.4753668484702*^9, 3.4753670665114*^9}, {3.4753671011902*^9, 3.4753674723454*^9}, { 3.4753676229322*^9, 3.4753677863733997`*^9}, {3.475367825233*^9, 3.475367848243*^9}, {3.475368029983*^9, 3.4753680589522*^9}, { 3.475369411392*^9, 3.4753695644904003`*^9}, {3.4753696954256*^9, 3.475369726766*^9}, {3.4753698525643997`*^9, 3.4753698555128*^9}, { 3.4753773724536*^9, 3.4753774958652*^9}, 3.4753775502468*^9, { 3.4753776430044003`*^9, 3.4753776659364*^9}, {3.4753777121748*^9, 3.4753777832483997`*^9}, {3.4753778188164*^9, 3.475377922336*^9}, { 3.4753779601348*^9, 3.4753784001952*^9}, {3.4753785090208*^9, 3.475378568722*^9}, {3.4753786124955997`*^9, 3.4753786164112*^9}, { 3.4753786468156*^9, 3.4753786657384*^9}, {3.4753787045355997`*^9, 3.4753787267032003`*^9}, 3.4753910727106*^9, {3.4753931910636*^9, 3.4753932441756*^9}, {3.4754621543882*^9, 3.4754622450397997`*^9}, { 3.4778876497897997`*^9, 3.4778877494737997`*^9}, {3.477887825399*^9, 3.4778878298606*^9}, {3.4778878701085997`*^9, 3.477887883041*^9}, { 3.4778879526482*^9, 3.477887957843*^9}, {3.4778879979974003`*^9, 3.4778880009614*^9}, {3.4778880335654*^9, 3.4778880462326*^9}, { 3.4778880897098*^9, 3.4778881201142*^9}, {3.4778882394908*^9, 3.477888243734*^9}, {3.4778884935368*^9, 3.477888539042*^9}, { 3.477889451995*^9, 3.4778895118416*^9}, {3.4779795395165997`*^9, 3.4779795402136*^9}, {3.4779797634996*^9, 3.4779797999356003`*^9}, 3.4779798372766*^9, {3.4779799820666*^9, 3.4779801217206*^9}, { 3.4779801745425997`*^9, 3.4779801845926*^9}, {3.4779804353096*^9, 3.4779804588506002`*^9}, {3.4779804893566*^9, 3.4779806203556004`*^9}, { 3.4779807300538*^9, 3.4779807467418003`*^9}, {3.4779808817128*^9, 3.4779809449638*^9}, {3.4781573512264*^9, 3.4781573649856*^9}, { 3.478157397808*^9, 3.4781574763227997`*^9}, {3.4781575335436*^9, 3.4781576406532*^9}, {3.4781576880615997`*^9, 3.478157739292*^9}, { 3.478157788042*^9, 3.4781577938452*^9}, {3.4781578276036*^9, 3.4781579446191998`*^9}, {3.4781579974564*^9, 3.4781579980959997`*^9}, 3.47815804396*^9, {3.4781582919532003`*^9, 3.47815834816*^9}, { 3.4781583838694*^9, 3.4781583926366*^9}, 3.4781585049566*^9, { 3.478162407691*^9, 3.4781624349442*^9}, {3.4781624661286*^9, 3.4781624682033997`*^9}, 3.4781626733746*^9, {3.5376219474134884`*^9, 3.537621988198821*^9}, {3.537622048951296*^9, 3.537622120225373*^9}, { 3.5376222446004868`*^9, 3.537622312108348*^9}, 3.537622776495909*^9, { 3.537622908932484*^9, 3.537622917335965*^9}, {3.5376238837162385`*^9, 3.537624004391141*^9}, {3.5376240458145103`*^9, 3.5376242437438307`*^9}, { 3.537624281650999*^9, 3.5376244166457205`*^9}, {3.5376244546488943`*^9, 3.5376248198917847`*^9}, {3.5397503703948455`*^9, 3.5397504308449516`*^9}, 3.5627674253055143`*^9, {3.5781422724253883`*^9, 3.578142305481847*^9}, { 3.5828109510514917`*^9, 3.582810961924711*^9}, {3.6000023977095795`*^9, 3.6000024056343937`*^9}, {3.600002438425651*^9, 3.6000024578788853`*^9}, { 3.600002497565355*^9, 3.600002598559932*^9}, {3.6000027265893574`*^9, 3.6000028178183174`*^9}, {3.600004251273635*^9, 3.6000042647676587`*^9}, { 3.6000479817557764`*^9, 3.6000483859368863`*^9}, {3.600048424453354*^9, 3.6000485077575006`*^9}, {3.600048552451579*^9, 3.600048659342967*^9}, { 3.6000486956130304`*^9, 3.6000487948292046`*^9}, {3.600048827292862*^9, 3.6000488489925*^9}, {3.6000489136546135`*^9, 3.6000492298047686`*^9}, { 3.6000492661060324`*^9, 3.6000494956604357`*^9}, {3.600049563676555*^9, 3.60004964038189*^9}, {3.600049704232802*^9, 3.600049707680408*^9}, { 3.6000498654590855`*^9, 3.600049982756691*^9}, {3.600050061318429*^9, 3.600050183014243*^9}, {3.6000502198459077`*^9, 3.6000503051000576`*^9}, { 3.6000503376105146`*^9, 3.600050450320712*^9}, {3.600050565012114*^9, 3.6000507365032153`*^9}, {3.6000507713224764`*^9, 3.6000507846292996`*^9}, {3.6000509146243277`*^9, 3.6000509929520655`*^9}, {3.600052137070728*^9, 3.600052140487134*^9}, { 3.6009245212614975`*^9, 3.6009245813060026`*^9}, {3.6009246118976564`*^9, 3.6009247053262205`*^9}, {3.6009247454650908`*^9, 3.6009248645557003`*^9}, {3.600924897627758*^9, 3.6009250270923853`*^9}, { 3.60093269343791*^9, 3.6009326961055145`*^9}, {3.6009327283039713`*^9, 3.600932810640916*^9}, {3.600932919607107*^9, 3.6009330596953535`*^9}, { 3.600933106448635*^9, 3.6009331778655605`*^9}, {3.6009332278324485`*^9, 3.6009334194943852`*^9}, {3.600933457277652*^9, 3.600933458978054*^9}, { 3.6009335033445325`*^9, 3.600933546775009*^9}, {3.600933589019883*^9, 3.600933594635893*^9}, {3.6009336332459607`*^9, 3.600933726752525*^9}, { 3.600933764317391*^9, 3.6009337710722027`*^9}, {3.6009338044406614`*^9, 3.600933853081547*^9}, {3.600934005244214*^9, 3.6009340502970934`*^9}, { 3.6009340857403555`*^9, 3.6009341752533126`*^9}, {3.600934250008644*^9, 3.600934354918828*^9}, {3.600934408426922*^9, 3.6009344234341483`*^9}, { 3.600934488111862*^9, 3.6009345709168077`*^9}, {3.600934624736902*^9, 3.600934638932927*^9}, {3.60093468637261*^9, 3.600934760753541*^9}, { 3.6009348210476465`*^9, 3.6009349317766414`*^9}, {3.6009350071247735`*^9, 3.600935160207843*^9}, {3.6009352133259363`*^9, 3.6009352260243583`*^9}, { 3.6009352675828314`*^9, 3.600935273776042*^9}, {3.6009383693050795`*^9, 3.6009386236011257`*^9}, {3.600938695158451*^9, 3.600938845605116*^9}, { 3.6009391629720736`*^9, 3.600939299628313*^9}, {3.600939553393959*^9, 3.6009395861540165`*^9}, {3.600939652407333*^9, 3.6009396642633533`*^9}, { 3.6009397392682853`*^9, 3.600939765398331*^9}, {3.600939855098489*^9, 3.6009398902297506`*^9}, {3.6009399920511293`*^9, 3.6009400593496475`*^9}, {3.6009401208137555`*^9, 3.600940245286374*^9}, { 3.6009402864548464`*^9, 3.6009402976088657`*^9}, {3.600944609222439*^9, 3.600944635477285*^9}, {3.600944687784177*^9, 3.600944710778617*^9}, { 3.6009451493577876`*^9, 3.600945150184589*^9}, 3.6009451913218613`*^9, { 3.600945405229437*^9, 3.6009454072106404`*^9}, {3.600945440610299*^9, 3.600945510482822*^9}, {3.6009457299128075`*^9, 3.6009457335008135`*^9}, { 3.600953140517025*^9, 3.600953181233096*^9}, {3.600953225365574*^9, 3.600953304598113*^9}, {3.6009533714130306`*^9, 3.60095337693544*^9}, { 3.600955624306587*^9, 3.6009556683142643`*^9}, {3.600955704350328*^9, 3.6009557208863573`*^9}, {3.600955931346327*^9, 3.6009559929508348`*^9}, { 3.600956393809139*^9, 3.600956401328352*^9}, {3.601271999654121*^9, 3.6012720126177435`*^9}, {3.601272051820613*^9, 3.601272060572228*^9}, { 3.601272126185943*^9, 3.6012721521131887`*^9}, {3.6012721913160577`*^9, 3.6012722908598323`*^9}, {3.601272334530161*^9, 3.601272344708743*^9}, 3.6012724237112617`*^9, {3.601273071897336*^9, 3.6012731316547537`*^9}, { 3.601273197741534*^9, 3.6012732178937335`*^9}, {3.6012732613242097`*^9, 3.601273446512135*^9}, {3.601817098393468*^9, 3.601817120732707*^9}, { 3.6018908766690116`*^9, 3.601890891021037*^9}, {3.601890974917984*^9, 3.6018909820471964`*^9}, {3.6018910422321024`*^9, 3.6018910446189065`*^9}, {3.664864850563903*^9, 3.6648650156277933`*^9}, 3.7298420460673847`*^9, {3.7298421211691065`*^9, 3.7298421509847603`*^9}, { 3.729842221210888*^9, 3.729842235665595*^9}, {3.7298422715443335`*^9, 3.7298422737321205`*^9}, {3.729912609284291*^9, 3.729912662244325*^9}, { 3.7299127052728996`*^9, 3.7299127125299406`*^9}, {3.729912965711229*^9, 3.7299129986016903`*^9}, {3.729913044618667*^9, 3.729913077339625*^9}, { 3.729913119130881*^9, 3.729913132633894*^9}, {3.7299131644384785`*^9, 3.7299131776122475`*^9}, {3.7299132096186914`*^9, 3.729913213403106*^9}, 3.730026185948929*^9, {3.7617280032754784`*^9, 3.76172801799079*^9}, { 3.761989941559224*^9, 3.7619899787600965`*^9}}, CellLabel-> "In[113]:=",ExpressionUUID->"d1c4ad0f-2396-4415-970d-6ae7c940ef78"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"w(x) = \"\>", "\[InvisibleSpace]", RowBox[{"-", FractionBox[ RowBox[{"g", " ", RowBox[{"(", RowBox[{"L", "-", "x"}], ")"}], " ", "x", " ", RowBox[{"(", RowBox[{ RowBox[{"12", " ", "DD"}], "+", RowBox[{"GG", " ", "t", " ", RowBox[{"(", RowBox[{"L", "-", "x"}], ")"}], " ", "x"}]}], ")"}], " ", "\[Rho]"}], RowBox[{"24", " ", "DD", " ", "GG"}]]}]}], SequenceForm[ "w(x) = ", (((((( Rational[-1, 24]/$CellContext`DD) $CellContext`g)/$CellContext`GG) \ ($CellContext`L - $CellContext`x)) $CellContext`x) ( 12 $CellContext`DD + (($CellContext`GG $CellContext`t) ($CellContext`L - \ $CellContext`x)) $CellContext`x)) $CellContext`\[Rho]], Editable->False]], "Print", CellChangeTimes->{{3.761989930545931*^9, 3.761989982352763*^9}}, CellLabel-> "During evaluation of \ In[113]:=",ExpressionUUID->"3b17d1a0-91df-423f-8d80-c2ae94fbf356"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\[Theta](x) = \"\>", "\[InvisibleSpace]", FractionBox[ RowBox[{"g", " ", "t", " ", "x", " ", RowBox[{"(", RowBox[{ SuperscriptBox["L", "2"], "-", RowBox[{"3", " ", "L", " ", "x"}], "+", RowBox[{"2", " ", SuperscriptBox["x", "2"]}]}], ")"}], " ", "\[Rho]"}], RowBox[{"12", " ", "DD"}]]}], SequenceForm[ "\[Theta](x) = ", ((((( Rational[ 1, 12]/$CellContext`DD) $CellContext`g) $CellContext`t) \ $CellContext`x) ($CellContext`L^2 - (3 $CellContext`L) $CellContext`x + 2 $CellContext`x^2)) $CellContext`\[Rho]], Editable->False]], "Print", CellChangeTimes->{{3.761989930545931*^9, 3.7619899823683796`*^9}}, CellLabel-> "During evaluation of \ In[113]:=",ExpressionUUID->"6c5e02f6-2cf7-4065-b303-ed4813cade3d"], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Mxx(x) = \"\>", "\[InvisibleSpace]", RowBox[{ FractionBox["1", "12"], " ", "g", " ", "t", " ", RowBox[{"(", RowBox[{ SuperscriptBox["L", "2"], "-", RowBox[{"6", " ", "L", " ", "x"}], "+", RowBox[{"6", " ", SuperscriptBox["x", "2"]}]}], ")"}], " ", "\[Rho]"}]}], SequenceForm[ "Mxx(x) = ", ((( Rational[1, 12] $CellContext`g) $CellContext`t) ($CellContext`L^2 - ( 6 $CellContext`L) $CellContext`x + 6 $CellContext`x^2)) $CellContext`\[Rho]], Editable->False]], "Print", CellChangeTimes->{{3.761989930545931*^9, 3.7619899823683796`*^9}}, CellLabel-> "During evaluation of \ In[113]:=",ExpressionUUID->"acac740c-9da0-4017-8774-1cfa3b70d8b7"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 5.3 (Plate strip xyn)", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, 3.601272187572051*^9, {3.7298420114074483`*^9, 3.72984202062717*^9}, { 3.729842248823182*^9, 3.7298422544332027`*^9}, {3.7298438540035048`*^9, 3.7298438546285706`*^9}, {3.729913335707052*^9, 3.729913336457487*^9}, 3.7300217614604244`*^9, 3.7935057735053935`*^9, 3.857523264996628*^9},ExpressionUUID->"1b2d0be0-2f03-4cf2-941c-\ 05aa5021fc19"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"rule", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"bx", "\[Rule]", "0"}], ",", RowBox[{"by", "\[Rule]", "0"}], ",", RowBox[{"bn", "->", RowBox[{ RowBox[{"-", "\[Rho]"}], "*", "g", "*", "t"}]}], ",", RowBox[{"cx", "\[Rule]", "0"}], ",", RowBox[{"cy", "\[Rule]", "0"}], ",", RowBox[{"cz", "\[Rule]", "0"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"equs", "=", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"equilibrium", "[", "xyn", "]"}], ",", RowBox[{"constitutive", "[", "xyn", "]"}], ",", RowBox[{ RowBox[{"clamped", "[", "xyn", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"clamped", "[", "xyn", "]"}], "[", "L", "]"}]}], "]"}], " ", "/.", "rule"}]}], ";"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{ RowBox[{"DSolve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equs", "\[Equal]", "0"}], "]"}], ",", RowBox[{"functions", "[", "xyn", "]"}], ",", "x"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Simplify", "[", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"w", "[", "x", "]"}], "/.", " ", "sol"}], " ", ",", RowBox[{"\[Alpha]", "\[Rule]", "Infinity"}]}], "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Theta](x) = \>\"", ",", RowBox[{"Simplify", "[", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"\[Theta]", "[", "x", "]"}], "/.", " ", "sol"}], " ", ",", RowBox[{"\[Alpha]", "\[Rule]", "Infinity"}]}], "]"}], "]"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.4747630249118*^9, {3.4747631189174*^9, 3.4747632157778*^9}, { 3.4747632855098*^9, 3.4747632963361998`*^9}, {3.4747634024006*^9, 3.474763402697*^9}, {3.474763495517*^9, 3.4747635001814003`*^9}, { 3.4747637730566*^9, 3.474763803851*^9}, {3.4747642087646*^9, 3.4747642600573997`*^9}, {3.4747643726426*^9, 3.4747644737774*^9}, { 3.4752269899314003`*^9, 3.4752270948882*^9}, {3.4752271345902*^9, 3.4752272632434*^9}, {3.475227295551*^9, 3.4752275983314*^9}, { 3.475227632591*^9, 3.4752276649932003`*^9}, {3.4752276971146*^9, 3.4752277780172*^9}, {3.4752278086712*^9, 3.4752279362948*^9}, { 3.4752279825643997`*^9, 3.4752280182416*^9}, {3.4752280573196*^9, 3.4752280750411997`*^9}, {3.4752281205931997`*^9, 3.4752281779231997`*^9}, {3.4752283129412003`*^9, 3.4752284125678*^9}, { 3.4752286421373997`*^9, 3.4752286429174*^9}, {3.4752290214202003`*^9, 3.4752292420810003`*^9}, {3.4752292747942*^9, 3.4752293745874*^9}, { 3.4752294050854*^9, 3.4752295128190002`*^9}, {3.475230037291*^9, 3.4752300676486*^9}, {3.4752302150998*^9, 3.475230248749*^9}, { 3.4753664935702*^9, 3.4753668085810003`*^9}, {3.4753668484702*^9, 3.4753670665114*^9}, {3.4753671011902*^9, 3.4753674723454*^9}, { 3.4753676229322*^9, 3.4753677863733997`*^9}, {3.475367825233*^9, 3.475367848243*^9}, {3.475368029983*^9, 3.4753680589522*^9}, { 3.475369411392*^9, 3.4753695644904003`*^9}, {3.4753696954256*^9, 3.475369726766*^9}, {3.4753698525643997`*^9, 3.4753698555128*^9}, { 3.4753773724536*^9, 3.4753774958652*^9}, 3.4753775502468*^9, { 3.4753776430044003`*^9, 3.4753776659364*^9}, {3.4753777121748*^9, 3.4753777832483997`*^9}, {3.4753778188164*^9, 3.475377922336*^9}, { 3.4753779601348*^9, 3.4753784001952*^9}, {3.4753785090208*^9, 3.475378568722*^9}, {3.4753786124955997`*^9, 3.4753786164112*^9}, { 3.4753786468156*^9, 3.4753786657384*^9}, {3.4753787045355997`*^9, 3.4753787267032003`*^9}, 3.4753910727106*^9, {3.4753931910636*^9, 3.4753932441756*^9}, {3.4754621543882*^9, 3.4754622450397997`*^9}, { 3.4778876497897997`*^9, 3.4778877494737997`*^9}, {3.477887825399*^9, 3.4778878298606*^9}, {3.4778878701085997`*^9, 3.477887883041*^9}, { 3.4778879526482*^9, 3.477887957843*^9}, {3.4778879979974003`*^9, 3.4778880009614*^9}, {3.4778880335654*^9, 3.4778880462326*^9}, { 3.4778880897098*^9, 3.4778881201142*^9}, {3.4778882394908*^9, 3.477888243734*^9}, {3.4778884935368*^9, 3.477888539042*^9}, { 3.477889451995*^9, 3.4778895118416*^9}, {3.4779795395165997`*^9, 3.4779795402136*^9}, {3.4779797634996*^9, 3.4779797999356003`*^9}, 3.4779798372766*^9, {3.4779799820666*^9, 3.4779801217206*^9}, { 3.4779801745425997`*^9, 3.4779801845926*^9}, {3.4779804353096*^9, 3.4779804588506002`*^9}, {3.4779804893566*^9, 3.4779806203556004`*^9}, { 3.4779807300538*^9, 3.4779807467418003`*^9}, {3.4779808817128*^9, 3.4779809449638*^9}, {3.4781573512264*^9, 3.4781573649856*^9}, { 3.478157397808*^9, 3.4781574763227997`*^9}, {3.4781575335436*^9, 3.4781576406532*^9}, {3.4781576880615997`*^9, 3.478157739292*^9}, { 3.478157788042*^9, 3.4781577938452*^9}, {3.4781578276036*^9, 3.4781579446191998`*^9}, {3.4781579974564*^9, 3.4781579980959997`*^9}, 3.47815804396*^9, {3.4781582919532003`*^9, 3.47815834816*^9}, { 3.4781583838694*^9, 3.4781583926366*^9}, 3.4781585049566*^9, { 3.478162407691*^9, 3.4781624349442*^9}, {3.4781624661286*^9, 3.4781624682033997`*^9}, 3.4781626733746*^9, {3.5376219474134884`*^9, 3.537621988198821*^9}, {3.537622048951296*^9, 3.537622120225373*^9}, { 3.5376222446004868`*^9, 3.537622312108348*^9}, 3.537622776495909*^9, { 3.537622908932484*^9, 3.537622917335965*^9}, {3.5376238837162385`*^9, 3.537624004391141*^9}, {3.5376240458145103`*^9, 3.5376242437438307`*^9}, { 3.537624281650999*^9, 3.5376244166457205`*^9}, {3.5376244546488943`*^9, 3.5376248198917847`*^9}, {3.5397503703948455`*^9, 3.5397504308449516`*^9}, 3.5627674253055143`*^9, {3.5781422724253883`*^9, 3.578142305481847*^9}, { 3.5828109510514917`*^9, 3.582810961924711*^9}, {3.6000023977095795`*^9, 3.6000024056343937`*^9}, {3.600002438425651*^9, 3.6000024578788853`*^9}, { 3.600002497565355*^9, 3.600002598559932*^9}, {3.6000027265893574`*^9, 3.6000028178183174`*^9}, {3.600004251273635*^9, 3.6000042647676587`*^9}, { 3.6000479817557764`*^9, 3.6000483859368863`*^9}, {3.600048424453354*^9, 3.6000485077575006`*^9}, {3.600048552451579*^9, 3.600048659342967*^9}, { 3.6000486956130304`*^9, 3.6000487948292046`*^9}, {3.600048827292862*^9, 3.6000488489925*^9}, {3.6000489136546135`*^9, 3.6000492298047686`*^9}, { 3.6000492661060324`*^9, 3.6000494956604357`*^9}, {3.600049563676555*^9, 3.60004964038189*^9}, {3.600049704232802*^9, 3.600049707680408*^9}, { 3.6000498654590855`*^9, 3.600049982756691*^9}, {3.600050061318429*^9, 3.600050183014243*^9}, {3.6000502198459077`*^9, 3.6000503051000576`*^9}, { 3.6000503376105146`*^9, 3.600050450320712*^9}, {3.600050565012114*^9, 3.6000507365032153`*^9}, {3.6000507713224764`*^9, 3.6000507846292996`*^9}, {3.6000509146243277`*^9, 3.6000509929520655`*^9}, {3.600052137070728*^9, 3.600052140487134*^9}, { 3.6009245212614975`*^9, 3.6009245813060026`*^9}, {3.6009246118976564`*^9, 3.6009247053262205`*^9}, {3.6009247454650908`*^9, 3.6009248645557003`*^9}, {3.600924897627758*^9, 3.6009250270923853`*^9}, { 3.60093269343791*^9, 3.6009326961055145`*^9}, {3.6009327283039713`*^9, 3.600932810640916*^9}, {3.600932919607107*^9, 3.6009330596953535`*^9}, { 3.600933106448635*^9, 3.6009331778655605`*^9}, {3.6009332278324485`*^9, 3.6009334194943852`*^9}, {3.600933457277652*^9, 3.600933458978054*^9}, { 3.6009335033445325`*^9, 3.600933546775009*^9}, {3.600933589019883*^9, 3.600933594635893*^9}, {3.6009336332459607`*^9, 3.600933726752525*^9}, { 3.600933764317391*^9, 3.6009337710722027`*^9}, {3.6009338044406614`*^9, 3.600933853081547*^9}, {3.600934005244214*^9, 3.6009340502970934`*^9}, { 3.6009340857403555`*^9, 3.6009341752533126`*^9}, {3.600934250008644*^9, 3.600934354918828*^9}, {3.600934408426922*^9, 3.6009344234341483`*^9}, { 3.600934488111862*^9, 3.6009345709168077`*^9}, {3.600934624736902*^9, 3.600934638932927*^9}, {3.60093468637261*^9, 3.600934760753541*^9}, { 3.6009348210476465`*^9, 3.6009349317766414`*^9}, {3.6009350071247735`*^9, 3.600935160207843*^9}, {3.6009352133259363`*^9, 3.6009352260243583`*^9}, { 3.6009352675828314`*^9, 3.600935273776042*^9}, {3.6009383693050795`*^9, 3.6009386236011257`*^9}, {3.600938695158451*^9, 3.600938845605116*^9}, { 3.6009391629720736`*^9, 3.600939299628313*^9}, {3.600939553393959*^9, 3.6009395861540165`*^9}, {3.600939652407333*^9, 3.6009396642633533`*^9}, { 3.6009397392682853`*^9, 3.600939765398331*^9}, {3.600939855098489*^9, 3.6009398902297506`*^9}, {3.6009399920511293`*^9, 3.6009400593496475`*^9}, {3.6009401208137555`*^9, 3.600940245286374*^9}, { 3.6009402864548464`*^9, 3.6009402976088657`*^9}, {3.600944609222439*^9, 3.600944635477285*^9}, {3.600944687784177*^9, 3.600944710778617*^9}, { 3.6009451493577876`*^9, 3.600945150184589*^9}, 3.6009451913218613`*^9, { 3.600945405229437*^9, 3.6009454072106404`*^9}, {3.600945440610299*^9, 3.600945510482822*^9}, {3.6009457299128075`*^9, 3.6009457335008135`*^9}, { 3.600953140517025*^9, 3.600953181233096*^9}, {3.600953225365574*^9, 3.600953304598113*^9}, {3.6009533714130306`*^9, 3.60095337693544*^9}, { 3.600955624306587*^9, 3.6009556683142643`*^9}, {3.600955704350328*^9, 3.6009557208863573`*^9}, {3.600955931346327*^9, 3.6009559929508348`*^9}, { 3.600956393809139*^9, 3.600956401328352*^9}, {3.601271999654121*^9, 3.6012720126177435`*^9}, {3.601272051820613*^9, 3.601272060572228*^9}, { 3.601272126185943*^9, 3.6012721521131887`*^9}, {3.6012721913160577`*^9, 3.6012722908598323`*^9}, {3.601272334530161*^9, 3.601272344708743*^9}, 3.6012724237112617`*^9, {3.601273071897336*^9, 3.6012731316547537`*^9}, { 3.601273197741534*^9, 3.6012732178937335`*^9}, {3.6012732613242097`*^9, 3.601273446512135*^9}, {3.601817098393468*^9, 3.601817120732707*^9}, { 3.6018908766690116`*^9, 3.601890891021037*^9}, {3.601890974917984*^9, 3.6018909820471964`*^9}, {3.6018910422321024`*^9, 3.6018910446189065`*^9}, {3.664864850563903*^9, 3.6648650156277933`*^9}, 3.7298420460673847`*^9, {3.7298421211691065`*^9, 3.7298421509847603`*^9}, { 3.729842221210888*^9, 3.729842235665595*^9}, 3.729913244794529*^9, { 3.7300249270504417`*^9, 3.730024930300785*^9}, {3.7617280382985506`*^9, 3.7617280519203696`*^9}}, CellLabel->"In[52]:=",ExpressionUUID->"9f627c4f-4428-4572-8b93-3e40581fdb65"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 5.4 (Plate strip r\[Phi]n)", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, {3.600051011531698*^9, 3.6000510174285083`*^9}, { 3.600051611598405*^9, 3.600051612175606*^9}, {3.601345436806925*^9, 3.6013454383201275`*^9}, {3.601345528035885*^9, 3.6013455313118906`*^9}, { 3.601345570093559*^9, 3.601345572137162*^9}, {3.601345611714432*^9, 3.6013456172368417`*^9}, 3.6016459822022843`*^9, {3.6026547197050486`*^9, 3.6026547258514595`*^9}, 3.6026731165881157`*^9, {3.698230108979952*^9, 3.69823011489996*^9}, {3.698241903616464*^9, 3.6982419082164707`*^9}, 3.698475433736238*^9, {3.698475721626641*^9, 3.698475739086665*^9}, { 3.698475944086952*^9, 3.698475944796953*^9}, {3.698477740040467*^9, 3.6984777420104694`*^9}, {3.6984779699407883`*^9, 3.6984779828608065`*^9}, {3.729842473956422*^9, 3.729842478206872*^9}, { 3.729842510569672*^9, 3.7298425338065023`*^9}, {3.7298426367705207`*^9, 3.729842666617425*^9}, {3.729844148784684*^9, 3.7298441553009996`*^9}, { 3.7300000381640644`*^9, 3.7300000483861413`*^9}, 3.730000775365759*^9, { 3.7300217697275534`*^9, 3.7300217788316493`*^9}, 3.79350577540874*^9, 3.857523266934428*^9},ExpressionUUID->"cf53c044-68a4-48ca-a405-\ 2ccae0a83dc0"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"conditions", ":=", RowBox[{"{", RowBox[{ RowBox[{"Mrr", "[", "R", "]"}], ",", RowBox[{"wn", "[", "R", "]"}], ",", RowBox[{"-", RowBox[{"Qr", "[", "\[Epsilon]", "]"}]}], ",", RowBox[{"-", RowBox[{"Mrr", "[", "\[Epsilon]", "]"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sol", "=", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"conditions", "\[Equal]", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Limit", "[", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"wn", "[", "\[Epsilon]", "]"}], " ", "/.", "sol"}], "]"}], ",", RowBox[{"\[Epsilon]", "\[Rule]", "0"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.698230425420395*^9, 3.698230461450445*^9}, { 3.6982305039905047`*^9, 3.6982305208305283`*^9}, {3.698241912956477*^9, 3.6982423293670607`*^9}, {3.6982423787071295`*^9, 3.698242601437441*^9}, { 3.698242633377486*^9, 3.6982426445875015`*^9}, {3.6982429044178653`*^9, 3.6982430205180283`*^9}, {3.6982443435400743`*^9, 3.6982443917201414`*^9}, {3.6982445068103027`*^9, 3.6982445214703236`*^9}, {3.698244591230421*^9, 3.6982445931304235`*^9}, 3.6982446973705697`*^9, {3.698245298941412*^9, 3.6982453041414194`*^9}, { 3.6984754556662683`*^9, 3.6984757156166325`*^9}, {3.698475755796689*^9, 3.698475758546693*^9}, {3.698475916166913*^9, 3.698475954446967*^9}, { 3.6984761164871936`*^9, 3.6984761417072287`*^9}, {3.6984764341576385`*^9, 3.6984765177877555`*^9}, 3.6984765826678467`*^9, {3.6984766350079193`*^9, 3.698476639677926*^9}, {3.6984768013981524`*^9, 3.698476804488157*^9}, { 3.698477524760165*^9, 3.6984776234603033`*^9}, 3.698477701800413*^9, { 3.698477760210495*^9, 3.69847781394057*^9}, {3.7299279867444324`*^9, 3.7299279876036067`*^9}, {3.7299280243106103`*^9, 3.7299281942195005`*^9}, 3.729999959067706*^9, {3.7300007965673866`*^9, 3.7300008699710784`*^9}, { 3.730020317543445*^9, 3.7300203269483986`*^9}, 3.7300203791180744`*^9, { 3.730021042473355*^9, 3.730021053035859*^9}, {3.730024945145976*^9, 3.730024949114977*^9}, {3.730026255284681*^9, 3.730026260035184*^9}, { 3.7616518359810853`*^9, 3.761651858522563*^9}, {3.7616519708021917`*^9, 3.761652035807927*^9}, 3.7616521508755236`*^9, 3.761652205574979*^9, { 3.8576960272162495`*^9, 3.8576960446805987`*^9}}, CellLabel-> "In[112]:=",ExpressionUUID->"7b4212d2-804f-4d38-acf0-74704f13af8f"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 5.5 (Plate strip r\[Phi]n)", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, {3.600051011531698*^9, 3.6000510174285083`*^9}, { 3.600051611598405*^9, 3.600051612175606*^9}, {3.601345436806925*^9, 3.6013454383201275`*^9}, {3.601345528035885*^9, 3.6013455313118906`*^9}, { 3.601345570093559*^9, 3.601345572137162*^9}, {3.601345611714432*^9, 3.6013456172368417`*^9}, 3.6016459822022843`*^9, {3.6026547197050486`*^9, 3.6026547258514595`*^9}, 3.6026731165881157`*^9, {3.698230108979952*^9, 3.69823011489996*^9}, {3.698241903616464*^9, 3.6982419082164707`*^9}, 3.698475433736238*^9, {3.698475721626641*^9, 3.698475739086665*^9}, { 3.7298426291290708`*^9, 3.7298426779467483`*^9}, {3.7298441151248736`*^9, 3.7298441424090405`*^9}, {3.72999999905883*^9, 3.7300000269492292`*^9}, { 3.7300000570260696`*^9, 3.730000058367025*^9}, {3.730021773650862*^9, 3.7300217763734827`*^9}, 3.793505777945754*^9, 3.857523271432583*^9},ExpressionUUID->"b1fac9b5-6b98-4bd8-a133-\ aa50c883565d"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"rule", "=", RowBox[{"{", RowBox[{"bn", "\[Rule]", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"conditions", ":=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Mrr", "[", "R", "]"}], ",", RowBox[{"wn", "[", "R", "]"}], ",", RowBox[{"-", RowBox[{"Mrr", "[", "\[Epsilon]", "]"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"Qr", "[", "\[Epsilon]", "]"}]}], "+", RowBox[{"P", "/", RowBox[{"(", RowBox[{"2", " ", "Pi", " ", "\[Epsilon]"}], ")"}]}]}]}], "}"}], " ", "/.", "rule"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"conditions", "\[Equal]", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Limit", "[", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"wn", "[", "\[Epsilon]", "]"}], " ", "/.", "sol"}], "]"}], ",", RowBox[{"\[Epsilon]", "\[Rule]", "0"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.698230425420395*^9, 3.698230461450445*^9}, { 3.6982305039905047`*^9, 3.6982305208305283`*^9}, {3.698241912956477*^9, 3.6982423293670607`*^9}, {3.6982423787071295`*^9, 3.698242601437441*^9}, { 3.698242633377486*^9, 3.6982426445875015`*^9}, {3.6982429044178653`*^9, 3.6982430205180283`*^9}, {3.6982443435400743`*^9, 3.6982443917201414`*^9}, {3.6982445068103027`*^9, 3.6982445214703236`*^9}, {3.698244591230421*^9, 3.6982445931304235`*^9}, 3.6982446973705697`*^9, {3.698245298941412*^9, 3.6982453041414194`*^9}, { 3.6984754556662683`*^9, 3.6984757156166325`*^9}, {3.698475755796689*^9, 3.698475758546693*^9}, 3.6984759313469343`*^9, {3.6984759777369995`*^9, 3.6984760493970995`*^9}, {3.6984761608872557`*^9, 3.698476201047312*^9}, { 3.6984767135180297`*^9, 3.6984767482480783`*^9}, 3.6984767905881376`*^9, { 3.698477029498472*^9, 3.698477032548476*^9}, {3.6984776555703487`*^9, 3.69847766373036*^9}, {3.69847886393204*^9, 3.6984788671020446`*^9}, { 3.7300000675395055`*^9, 3.730000276864067*^9}, {3.730000307711402*^9, 3.730000376760123*^9}, {3.7300004192498865`*^9, 3.730000588787838*^9}, { 3.73000066356415*^9, 3.730000704230322*^9}, {3.730026276771192*^9, 3.730026298836133*^9}, {3.857692705880455*^9, 3.8576927286897917`*^9}, { 3.857692812046584*^9, 3.8576928208704233`*^9}, {3.857693038745835*^9, 3.8576930621689854`*^9}, {3.8576940645903115`*^9, 3.857694065117181*^9}, 3.8576958241810784`*^9, 3.857695999576209*^9}, CellLabel-> "In[108]:=",ExpressionUUID->"a05a098a-442b-4c1d-b094-e38e7095f568"] }, Closed]], Cell[CellGroupData[{ Cell["Lecture example 5.6 (Double sine series solution)", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, {3.600051011531698*^9, 3.6000510174285083`*^9}, { 3.600051611598405*^9, 3.600051612175606*^9}, {3.601345436806925*^9, 3.6013454383201275`*^9}, {3.601345528035885*^9, 3.6013455313118906`*^9}, { 3.601345570093559*^9, 3.601345572137162*^9}, {3.601345611714432*^9, 3.6013456172368417`*^9}, 3.6016459822022843`*^9, {3.6026547197050486`*^9, 3.6026547258514595`*^9}, 3.6026731165881157`*^9, {3.698230108979952*^9, 3.69823011489996*^9}, {3.698241903616464*^9, 3.6982419082164707`*^9}, 3.698475433736238*^9, {3.698475721626641*^9, 3.698475739086665*^9}, { 3.7298426291290708`*^9, 3.7298426779467483`*^9}, {3.729842745078797*^9, 3.7298427729255457`*^9}, {3.7935057924037523`*^9, 3.793505807210843*^9}, 3.8575232735454855`*^9},ExpressionUUID->"3418d1db-7153-48b8-8b24-\ e60332925953"], Cell[BoxData[ RowBox[{ RowBox[{"(*", "approximation", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", "ser", "]"}], " ", "=", " ", RowBox[{ RowBox[{"a", "[", RowBox[{"i", ",", "j"}], "]"}], "*", RowBox[{"Sin", "[", RowBox[{"Pi", "*", "i", RowBox[{"(", RowBox[{"x", "/", "L"}], ")"}]}], "]"}], "*", RowBox[{"Sin", "[", RowBox[{"Pi", "*", "j", RowBox[{"(", RowBox[{"y", "/", "L"}], ")"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]W", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "DD"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], RowBox[{"w", "[", "ser", "]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], RowBox[{"w", "[", "ser", "]"}]}], ",", RowBox[{"2", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], RowBox[{"w", "[", "ser", "]"}]}]}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Nu]"}], ")"}], "/", "2"}]}], "}"}]}], "}"}], ".", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], RowBox[{"w", "[", "ser", "]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], RowBox[{"w", "[", "ser", "]"}]}], ",", RowBox[{"2", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], RowBox[{"w", "[", "ser", "]"}]}]}]}], "}"}]}], ")"}]}], "+", RowBox[{"bn", "*", RowBox[{"\[Delta]", "[", RowBox[{"w", "[", "ser", "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "H"}], "}"}]}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", "\n", RowBox[{"sol", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"SOLVE", "[", "\[Delta]W", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", StyleBox["\[Element]", "OperatorCharacter"], StyleBox["Integers", "OperatorCharacter"]}], StyleBox[",", "OperatorCharacter"], RowBox[{"j", StyleBox["\[Element]", "OperatorCharacter"], StyleBox["Integers", "OperatorCharacter"]}]}], StyleBox["}", "OperatorCharacter"]}]}], StyleBox["]", "OperatorCharacter"]}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.698230425420395*^9, 3.698230461450445*^9}, { 3.6982305039905047`*^9, 3.6982305208305283`*^9}, {3.698241912956477*^9, 3.6982423293670607`*^9}, {3.6982423787071295`*^9, 3.698242601437441*^9}, { 3.698242633377486*^9, 3.6982426445875015`*^9}, {3.6982429044178653`*^9, 3.6982430205180283`*^9}, {3.6982443435400743`*^9, 3.6982443917201414`*^9}, {3.6982445068103027`*^9, 3.6982445214703236`*^9}, {3.698244591230421*^9, 3.6982445931304235`*^9}, 3.6982446973705697`*^9, {3.698245298941412*^9, 3.6982453041414194`*^9}, { 3.6984754556662683`*^9, 3.6984757156166325`*^9}, {3.698475755796689*^9, 3.698475758546693*^9}, 3.6984759313469343`*^9, {3.6984759777369995`*^9, 3.6984760493970995`*^9}, {3.6984761608872557`*^9, 3.698476201047312*^9}, { 3.6984767135180297`*^9, 3.6984767482480783`*^9}, 3.6984767905881376`*^9, { 3.698477029498472*^9, 3.698477032548476*^9}, {3.6984776555703487`*^9, 3.69847766373036*^9}, {3.69847886393204*^9, 3.6984788671020446`*^9}, { 3.7300251143514986`*^9, 3.7300252181434674`*^9}, {3.7300252658672786`*^9, 3.730025312434951*^9}, {3.7300253723475375`*^9, 3.7300253841300535`*^9}}, CellLabel->"In[34]:=",ExpressionUUID->"9f505b86-577c-4a7e-8307-3fdac1fb832a"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 4 (Plate strip xyn)", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, 3.601272187572051*^9, {3.7298420114074483`*^9, 3.72984202062717*^9}, { 3.729842248823182*^9, 3.7298422544332027`*^9}, {3.729843256148483*^9, 3.729843260570822*^9}, 3.7298438597853656`*^9, 3.7300236391634464`*^9, { 3.793505820359866*^9, 3.7935058260102224`*^9}, {3.79350587750741*^9, 3.7935058781506553`*^9}},ExpressionUUID->"e37bd41c-e2ee-4a3e-a577-\ 6a87c2cb74df"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"rule", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"bx", "\[Rule]", "0"}], ",", RowBox[{"by", "\[Rule]", "0"}], ",", RowBox[{"bn", "->", RowBox[{ RowBox[{"-", "\[Rho]"}], "*", "g", "*", "t"}]}], ",", RowBox[{"cx", "\[Rule]", "0"}], ",", RowBox[{"cy", "\[Rule]", "0"}], ",", RowBox[{"cz", "\[Rule]", "0"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"equs", "=", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"equilibrium", "[", "xyn", "]"}], ",", RowBox[{"constitutive", "[", "xyn", "]"}], ",", RowBox[{ RowBox[{"simple", "[", "xyn", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"slide", "[", "xyn", "]"}], "[", "L", "]"}]}], "]"}], " ", "/.", "rule"}]}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{ RowBox[{"DSolve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equs", "\[Equal]", "0"}], "]"}], ",", RowBox[{"functions", "[", "xyn", "]"}], ",", "x"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Simplify", "[", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"w", "[", "x", "]"}], "/.", " ", "sol"}], " ", ",", RowBox[{"\[Alpha]", "\[Rule]", "Infinity"}]}], "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<\[Theta](x) = \>\"", ",", RowBox[{"Simplify", "[", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"\[Theta]", "[", "x", "]"}], "/.", " ", "sol"}], " ", ",", RowBox[{"\[Alpha]", "\[Rule]", "Infinity"}]}], "]"}], "]"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{ 3.4747630249118*^9, {3.4747631189174*^9, 3.4747632157778*^9}, { 3.4747632855098*^9, 3.4747632963361998`*^9}, {3.4747634024006*^9, 3.474763402697*^9}, {3.474763495517*^9, 3.4747635001814003`*^9}, { 3.4747637730566*^9, 3.474763803851*^9}, {3.4747642087646*^9, 3.4747642600573997`*^9}, {3.4747643726426*^9, 3.4747644737774*^9}, { 3.4752269899314003`*^9, 3.4752270948882*^9}, {3.4752271345902*^9, 3.4752272632434*^9}, {3.475227295551*^9, 3.4752275983314*^9}, { 3.475227632591*^9, 3.4752276649932003`*^9}, {3.4752276971146*^9, 3.4752277780172*^9}, {3.4752278086712*^9, 3.4752279362948*^9}, { 3.4752279825643997`*^9, 3.4752280182416*^9}, {3.4752280573196*^9, 3.4752280750411997`*^9}, {3.4752281205931997`*^9, 3.4752281779231997`*^9}, {3.4752283129412003`*^9, 3.4752284125678*^9}, { 3.4752286421373997`*^9, 3.4752286429174*^9}, {3.4752290214202003`*^9, 3.4752292420810003`*^9}, {3.4752292747942*^9, 3.4752293745874*^9}, { 3.4752294050854*^9, 3.4752295128190002`*^9}, {3.475230037291*^9, 3.4752300676486*^9}, {3.4752302150998*^9, 3.475230248749*^9}, { 3.4753664935702*^9, 3.4753668085810003`*^9}, {3.4753668484702*^9, 3.4753670665114*^9}, {3.4753671011902*^9, 3.4753674723454*^9}, { 3.4753676229322*^9, 3.4753677863733997`*^9}, {3.475367825233*^9, 3.475367848243*^9}, {3.475368029983*^9, 3.4753680589522*^9}, { 3.475369411392*^9, 3.4753695644904003`*^9}, {3.4753696954256*^9, 3.475369726766*^9}, {3.4753698525643997`*^9, 3.4753698555128*^9}, { 3.4753773724536*^9, 3.4753774958652*^9}, 3.4753775502468*^9, { 3.4753776430044003`*^9, 3.4753776659364*^9}, {3.4753777121748*^9, 3.4753777832483997`*^9}, {3.4753778188164*^9, 3.475377922336*^9}, { 3.4753779601348*^9, 3.4753784001952*^9}, {3.4753785090208*^9, 3.475378568722*^9}, {3.4753786124955997`*^9, 3.4753786164112*^9}, { 3.4753786468156*^9, 3.4753786657384*^9}, {3.4753787045355997`*^9, 3.4753787267032003`*^9}, 3.4753910727106*^9, {3.4753931910636*^9, 3.4753932441756*^9}, {3.4754621543882*^9, 3.4754622450397997`*^9}, { 3.4778876497897997`*^9, 3.4778877494737997`*^9}, {3.477887825399*^9, 3.4778878298606*^9}, {3.4778878701085997`*^9, 3.477887883041*^9}, { 3.4778879526482*^9, 3.477887957843*^9}, {3.4778879979974003`*^9, 3.4778880009614*^9}, {3.4778880335654*^9, 3.4778880462326*^9}, { 3.4778880897098*^9, 3.4778881201142*^9}, {3.4778882394908*^9, 3.477888243734*^9}, {3.4778884935368*^9, 3.477888539042*^9}, { 3.477889451995*^9, 3.4778895118416*^9}, {3.4779795395165997`*^9, 3.4779795402136*^9}, {3.4779797634996*^9, 3.4779797999356003`*^9}, 3.4779798372766*^9, {3.4779799820666*^9, 3.4779801217206*^9}, { 3.4779801745425997`*^9, 3.4779801845926*^9}, {3.4779804353096*^9, 3.4779804588506002`*^9}, {3.4779804893566*^9, 3.4779806203556004`*^9}, { 3.4779807300538*^9, 3.4779807467418003`*^9}, {3.4779808817128*^9, 3.4779809449638*^9}, {3.4781573512264*^9, 3.4781573649856*^9}, { 3.478157397808*^9, 3.4781574763227997`*^9}, {3.4781575335436*^9, 3.4781576406532*^9}, {3.4781576880615997`*^9, 3.478157739292*^9}, { 3.478157788042*^9, 3.4781577938452*^9}, {3.4781578276036*^9, 3.4781579446191998`*^9}, {3.4781579974564*^9, 3.4781579980959997`*^9}, 3.47815804396*^9, {3.4781582919532003`*^9, 3.47815834816*^9}, { 3.4781583838694*^9, 3.4781583926366*^9}, 3.4781585049566*^9, { 3.478162407691*^9, 3.4781624349442*^9}, {3.4781624661286*^9, 3.4781624682033997`*^9}, 3.4781626733746*^9, {3.5376219474134884`*^9, 3.537621988198821*^9}, {3.537622048951296*^9, 3.537622120225373*^9}, { 3.5376222446004868`*^9, 3.537622312108348*^9}, 3.537622776495909*^9, { 3.537622908932484*^9, 3.537622917335965*^9}, {3.5376238837162385`*^9, 3.537624004391141*^9}, {3.5376240458145103`*^9, 3.5376242437438307`*^9}, { 3.537624281650999*^9, 3.5376244166457205`*^9}, {3.5376244546488943`*^9, 3.5376248198917847`*^9}, {3.5397503703948455`*^9, 3.5397504308449516`*^9}, 3.5627674253055143`*^9, {3.5781422724253883`*^9, 3.578142305481847*^9}, { 3.5828109510514917`*^9, 3.582810961924711*^9}, {3.6000023977095795`*^9, 3.6000024056343937`*^9}, {3.600002438425651*^9, 3.6000024578788853`*^9}, { 3.600002497565355*^9, 3.600002598559932*^9}, {3.6000027265893574`*^9, 3.6000028178183174`*^9}, {3.600004251273635*^9, 3.6000042647676587`*^9}, { 3.6000479817557764`*^9, 3.6000483859368863`*^9}, {3.600048424453354*^9, 3.6000485077575006`*^9}, {3.600048552451579*^9, 3.600048659342967*^9}, { 3.6000486956130304`*^9, 3.6000487948292046`*^9}, {3.600048827292862*^9, 3.6000488489925*^9}, {3.6000489136546135`*^9, 3.6000492298047686`*^9}, { 3.6000492661060324`*^9, 3.6000494956604357`*^9}, {3.600049563676555*^9, 3.60004964038189*^9}, {3.600049704232802*^9, 3.600049707680408*^9}, { 3.6000498654590855`*^9, 3.600049982756691*^9}, {3.600050061318429*^9, 3.600050183014243*^9}, {3.6000502198459077`*^9, 3.6000503051000576`*^9}, { 3.6000503376105146`*^9, 3.600050450320712*^9}, {3.600050565012114*^9, 3.6000507365032153`*^9}, {3.6000507713224764`*^9, 3.6000507846292996`*^9}, {3.6000509146243277`*^9, 3.6000509929520655`*^9}, {3.600052137070728*^9, 3.600052140487134*^9}, { 3.6009245212614975`*^9, 3.6009245813060026`*^9}, {3.6009246118976564`*^9, 3.6009247053262205`*^9}, {3.6009247454650908`*^9, 3.6009248645557003`*^9}, {3.600924897627758*^9, 3.6009250270923853`*^9}, { 3.60093269343791*^9, 3.6009326961055145`*^9}, {3.6009327283039713`*^9, 3.600932810640916*^9}, {3.600932919607107*^9, 3.6009330596953535`*^9}, { 3.600933106448635*^9, 3.6009331778655605`*^9}, {3.6009332278324485`*^9, 3.6009334194943852`*^9}, {3.600933457277652*^9, 3.600933458978054*^9}, { 3.6009335033445325`*^9, 3.600933546775009*^9}, {3.600933589019883*^9, 3.600933594635893*^9}, {3.6009336332459607`*^9, 3.600933726752525*^9}, { 3.600933764317391*^9, 3.6009337710722027`*^9}, {3.6009338044406614`*^9, 3.600933853081547*^9}, {3.600934005244214*^9, 3.6009340502970934`*^9}, { 3.6009340857403555`*^9, 3.6009341752533126`*^9}, {3.600934250008644*^9, 3.600934354918828*^9}, {3.600934408426922*^9, 3.6009344234341483`*^9}, { 3.600934488111862*^9, 3.6009345709168077`*^9}, {3.600934624736902*^9, 3.600934638932927*^9}, {3.60093468637261*^9, 3.600934760753541*^9}, { 3.6009348210476465`*^9, 3.6009349317766414`*^9}, {3.6009350071247735`*^9, 3.600935160207843*^9}, {3.6009352133259363`*^9, 3.6009352260243583`*^9}, { 3.6009352675828314`*^9, 3.600935273776042*^9}, {3.6009383693050795`*^9, 3.6009386236011257`*^9}, {3.600938695158451*^9, 3.600938845605116*^9}, { 3.6009391629720736`*^9, 3.600939299628313*^9}, {3.600939553393959*^9, 3.6009395861540165`*^9}, {3.600939652407333*^9, 3.6009396642633533`*^9}, { 3.6009397392682853`*^9, 3.600939765398331*^9}, {3.600939855098489*^9, 3.6009398902297506`*^9}, {3.6009399920511293`*^9, 3.6009400593496475`*^9}, {3.6009401208137555`*^9, 3.600940245286374*^9}, { 3.6009402864548464`*^9, 3.6009402976088657`*^9}, {3.600944609222439*^9, 3.600944635477285*^9}, {3.600944687784177*^9, 3.600944710778617*^9}, { 3.6009451493577876`*^9, 3.600945150184589*^9}, 3.6009451913218613`*^9, { 3.600945405229437*^9, 3.6009454072106404`*^9}, {3.600945440610299*^9, 3.600945510482822*^9}, {3.6009457299128075`*^9, 3.6009457335008135`*^9}, { 3.600953140517025*^9, 3.600953181233096*^9}, {3.600953225365574*^9, 3.600953304598113*^9}, {3.6009533714130306`*^9, 3.60095337693544*^9}, { 3.600955624306587*^9, 3.6009556683142643`*^9}, {3.600955704350328*^9, 3.6009557208863573`*^9}, {3.600955931346327*^9, 3.6009559929508348`*^9}, { 3.600956393809139*^9, 3.600956401328352*^9}, {3.601271999654121*^9, 3.6012720126177435`*^9}, {3.601272051820613*^9, 3.601272060572228*^9}, { 3.601272126185943*^9, 3.6012721521131887`*^9}, {3.6012721913160577`*^9, 3.6012722908598323`*^9}, {3.601272334530161*^9, 3.601272344708743*^9}, 3.6012724237112617`*^9, {3.601273071897336*^9, 3.6012731316547537`*^9}, { 3.601273197741534*^9, 3.6012732178937335`*^9}, {3.6012732613242097`*^9, 3.601273446512135*^9}, {3.601817098393468*^9, 3.601817120732707*^9}, { 3.6018908766690116`*^9, 3.601890891021037*^9}, {3.601890974917984*^9, 3.6018909820471964`*^9}, {3.6018910422321024`*^9, 3.6018910446189065`*^9}, {3.664864850563903*^9, 3.6648650156277933`*^9}, 3.7298420460673847`*^9, {3.7298421211691065`*^9, 3.7298421509847603`*^9}, { 3.729842221210888*^9, 3.729842235665595*^9}, {3.7298432760881443`*^9, 3.7298433235931683`*^9}, {3.7298433771144533`*^9, 3.7298433781457615`*^9}, {3.730026357686139*^9, 3.730026474501706*^9}, { 3.730026507880536*^9, 3.730026511490286*^9}, {3.761728081882124*^9, 3.7617280975971518`*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"ac413080-36ce-4376-a47d-f44a03944430"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 5 (Plate strip series solution)", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, 3.601272187572051*^9, 3.6018909318619084`*^9, 3.601891512682129*^9, { 3.698150426952814*^9, 3.6981504336028233`*^9}, {3.7298434405899167`*^9, 3.7298434410587206`*^9}, {3.729843862301259*^9, 3.7298438731148987`*^9}, { 3.7298440053320107`*^9, 3.729844007285342*^9}, 3.7935058885757923`*^9},ExpressionUUID->"7ded623c-4a40-4680-bcdd-\ 6ca54335ad92"], Cell[BoxData[ RowBox[{ RowBox[{"(*", "approximation", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nt", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"w", "[", "ser", "]"}], "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"a", "[", "i", "]"}], "*", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "L"}]}], ")"}], "^", "i"}], "*", RowBox[{"(", RowBox[{"x", "/", "L"}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalOmega]", " ", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]W", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "DD"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], RowBox[{"w", "[", "ser", "]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], RowBox[{"w", "[", "ser", "]"}]}], ",", RowBox[{"2", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], RowBox[{"w", "[", "ser", "]"}]}]}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Nu]"}], ")"}], "/", "2"}]}], "}"}]}], "}"}], ".", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], RowBox[{"w", "[", "ser", "]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], RowBox[{"w", "[", "ser", "]"}]}], ",", RowBox[{"2", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], RowBox[{"w", "[", "ser", "]"}]}]}]}], "}"}]}], ")"}]}], "+", RowBox[{"bn", "*", RowBox[{"\[Delta]", "[", RowBox[{"w", "[", "ser", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], "\[CapitalOmega]"}], " ", ",", RowBox[{"Assumptions", "->", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"H", ">", "0"}]}]}]}], "]"}]}], " ", ";"}], "\n", "\[IndentingNewLine]", RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", "\[Delta]W", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "[", "ser", "]"}], " ", "/.", "sol"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{ 3.4747630249118*^9, {3.4747631189174*^9, 3.4747632157778*^9}, { 3.4747632855098*^9, 3.4747632963361998`*^9}, {3.4747634024006*^9, 3.474763402697*^9}, {3.474763495517*^9, 3.4747635001814003`*^9}, { 3.4747637730566*^9, 3.474763803851*^9}, {3.4747642087646*^9, 3.4747642600573997`*^9}, {3.4747643726426*^9, 3.4747644737774*^9}, { 3.4752269899314003`*^9, 3.4752270948882*^9}, {3.4752271345902*^9, 3.4752272632434*^9}, {3.475227295551*^9, 3.4752275983314*^9}, { 3.475227632591*^9, 3.4752276649932003`*^9}, {3.4752276971146*^9, 3.4752277780172*^9}, {3.4752278086712*^9, 3.4752279362948*^9}, { 3.4752279825643997`*^9, 3.4752280182416*^9}, {3.4752280573196*^9, 3.4752280750411997`*^9}, {3.4752281205931997`*^9, 3.4752281779231997`*^9}, {3.4752283129412003`*^9, 3.4752284125678*^9}, { 3.4752286421373997`*^9, 3.4752286429174*^9}, {3.4752290214202003`*^9, 3.4752292420810003`*^9}, {3.4752292747942*^9, 3.4752293745874*^9}, { 3.4752294050854*^9, 3.4752295128190002`*^9}, {3.475230037291*^9, 3.4752300676486*^9}, {3.4752302150998*^9, 3.475230248749*^9}, { 3.4753664935702*^9, 3.4753668085810003`*^9}, {3.4753668484702*^9, 3.4753670665114*^9}, {3.4753671011902*^9, 3.4753674723454*^9}, { 3.4753676229322*^9, 3.4753677863733997`*^9}, {3.475367825233*^9, 3.475367848243*^9}, {3.475368029983*^9, 3.4753680589522*^9}, { 3.475369411392*^9, 3.4753695644904003`*^9}, {3.4753696954256*^9, 3.475369726766*^9}, {3.4753698525643997`*^9, 3.4753698555128*^9}, { 3.4753773724536*^9, 3.4753774958652*^9}, 3.4753775502468*^9, { 3.4753776430044003`*^9, 3.4753776659364*^9}, {3.4753777121748*^9, 3.4753777832483997`*^9}, {3.4753778188164*^9, 3.475377922336*^9}, { 3.4753779601348*^9, 3.4753784001952*^9}, {3.4753785090208*^9, 3.475378568722*^9}, {3.4753786124955997`*^9, 3.4753786164112*^9}, { 3.4753786468156*^9, 3.4753786657384*^9}, {3.4753787045355997`*^9, 3.4753787267032003`*^9}, 3.4753910727106*^9, {3.4753931910636*^9, 3.4753932441756*^9}, {3.4754621543882*^9, 3.4754622450397997`*^9}, { 3.4778876497897997`*^9, 3.4778877494737997`*^9}, {3.477887825399*^9, 3.4778878298606*^9}, {3.4778878701085997`*^9, 3.477887883041*^9}, { 3.4778879526482*^9, 3.477887957843*^9}, {3.4778879979974003`*^9, 3.4778880009614*^9}, {3.4778880335654*^9, 3.4778880462326*^9}, { 3.4778880897098*^9, 3.4778881201142*^9}, {3.4778882394908*^9, 3.477888243734*^9}, {3.4778884935368*^9, 3.477888539042*^9}, { 3.477889451995*^9, 3.4778895118416*^9}, {3.4779795395165997`*^9, 3.4779795402136*^9}, {3.4779797634996*^9, 3.4779797999356003`*^9}, 3.4779798372766*^9, {3.4779799820666*^9, 3.4779801217206*^9}, { 3.4779801745425997`*^9, 3.4779801845926*^9}, {3.4779804353096*^9, 3.4779804588506002`*^9}, {3.4779804893566*^9, 3.4779806203556004`*^9}, { 3.4779807300538*^9, 3.4779807467418003`*^9}, {3.4779808817128*^9, 3.4779809449638*^9}, {3.4781573512264*^9, 3.4781573649856*^9}, { 3.478157397808*^9, 3.4781574763227997`*^9}, {3.4781575335436*^9, 3.4781576406532*^9}, {3.4781576880615997`*^9, 3.478157739292*^9}, { 3.478157788042*^9, 3.4781577938452*^9}, {3.4781578276036*^9, 3.4781579446191998`*^9}, {3.4781579974564*^9, 3.4781579980959997`*^9}, 3.47815804396*^9, {3.4781582919532003`*^9, 3.47815834816*^9}, { 3.4781583838694*^9, 3.4781583926366*^9}, 3.4781585049566*^9, { 3.478162407691*^9, 3.4781624349442*^9}, {3.4781624661286*^9, 3.4781624682033997`*^9}, 3.4781626733746*^9, {3.5376219474134884`*^9, 3.537621988198821*^9}, {3.537622048951296*^9, 3.537622120225373*^9}, { 3.5376222446004868`*^9, 3.537622312108348*^9}, 3.537622776495909*^9, { 3.537622908932484*^9, 3.537622917335965*^9}, {3.5376238837162385`*^9, 3.537624004391141*^9}, {3.5376240458145103`*^9, 3.5376242437438307`*^9}, { 3.537624281650999*^9, 3.5376244166457205`*^9}, {3.5376244546488943`*^9, 3.5376248198917847`*^9}, {3.5397503703948455`*^9, 3.5397504308449516`*^9}, 3.5627674253055143`*^9, {3.5781422724253883`*^9, 3.578142305481847*^9}, { 3.5828109510514917`*^9, 3.582810961924711*^9}, {3.6000023977095795`*^9, 3.6000024056343937`*^9}, {3.600002438425651*^9, 3.6000024578788853`*^9}, { 3.600002497565355*^9, 3.600002598559932*^9}, {3.6000027265893574`*^9, 3.6000028178183174`*^9}, {3.600004251273635*^9, 3.6000042647676587`*^9}, { 3.6000479817557764`*^9, 3.6000483859368863`*^9}, {3.600048424453354*^9, 3.6000485077575006`*^9}, {3.600048552451579*^9, 3.600048659342967*^9}, { 3.6000486956130304`*^9, 3.6000487948292046`*^9}, {3.600048827292862*^9, 3.6000488489925*^9}, {3.6000489136546135`*^9, 3.6000492298047686`*^9}, { 3.6000492661060324`*^9, 3.6000494956604357`*^9}, {3.600049563676555*^9, 3.60004964038189*^9}, {3.600049704232802*^9, 3.600049707680408*^9}, { 3.6000498654590855`*^9, 3.600049982756691*^9}, {3.600050061318429*^9, 3.600050183014243*^9}, {3.6000502198459077`*^9, 3.6000503051000576`*^9}, { 3.6000503376105146`*^9, 3.600050450320712*^9}, {3.600050565012114*^9, 3.6000507365032153`*^9}, {3.6000507713224764`*^9, 3.6000507846292996`*^9}, {3.6000509146243277`*^9, 3.6000509929520655`*^9}, {3.600052137070728*^9, 3.600052140487134*^9}, { 3.6009245212614975`*^9, 3.6009245813060026`*^9}, {3.6009246118976564`*^9, 3.6009247053262205`*^9}, {3.6009247454650908`*^9, 3.6009248645557003`*^9}, {3.600924897627758*^9, 3.6009250270923853`*^9}, { 3.60093269343791*^9, 3.6009326961055145`*^9}, {3.6009327283039713`*^9, 3.600932810640916*^9}, {3.600932919607107*^9, 3.6009330596953535`*^9}, { 3.600933106448635*^9, 3.6009331778655605`*^9}, {3.6009332278324485`*^9, 3.6009334194943852`*^9}, {3.600933457277652*^9, 3.600933458978054*^9}, { 3.6009335033445325`*^9, 3.600933546775009*^9}, {3.600933589019883*^9, 3.600933594635893*^9}, {3.6009336332459607`*^9, 3.600933726752525*^9}, { 3.600933764317391*^9, 3.6009337710722027`*^9}, {3.6009338044406614`*^9, 3.600933853081547*^9}, {3.600934005244214*^9, 3.6009340502970934`*^9}, { 3.6009340857403555`*^9, 3.6009341752533126`*^9}, {3.600934250008644*^9, 3.600934354918828*^9}, {3.600934408426922*^9, 3.6009344234341483`*^9}, { 3.600934488111862*^9, 3.6009345709168077`*^9}, {3.600934624736902*^9, 3.600934638932927*^9}, {3.60093468637261*^9, 3.600934760753541*^9}, { 3.6009348210476465`*^9, 3.6009349317766414`*^9}, {3.6009350071247735`*^9, 3.600935160207843*^9}, {3.6009352133259363`*^9, 3.6009352260243583`*^9}, { 3.6009352675828314`*^9, 3.600935273776042*^9}, {3.6009383693050795`*^9, 3.6009386236011257`*^9}, {3.600938695158451*^9, 3.600938845605116*^9}, { 3.6009391629720736`*^9, 3.600939299628313*^9}, {3.600939553393959*^9, 3.6009395861540165`*^9}, {3.600939652407333*^9, 3.6009396642633533`*^9}, { 3.6009397392682853`*^9, 3.600939765398331*^9}, {3.600939855098489*^9, 3.6009398902297506`*^9}, {3.6009399920511293`*^9, 3.6009400593496475`*^9}, {3.6009401208137555`*^9, 3.600940245286374*^9}, { 3.6009402864548464`*^9, 3.6009402976088657`*^9}, {3.600944609222439*^9, 3.600944635477285*^9}, {3.600944687784177*^9, 3.600944710778617*^9}, { 3.6009451493577876`*^9, 3.600945150184589*^9}, 3.6009451913218613`*^9, { 3.600945405229437*^9, 3.6009454072106404`*^9}, {3.600945440610299*^9, 3.600945510482822*^9}, {3.6009457299128075`*^9, 3.6009457335008135`*^9}, { 3.600953140517025*^9, 3.600953181233096*^9}, {3.600953225365574*^9, 3.600953304598113*^9}, {3.6009533714130306`*^9, 3.60095337693544*^9}, { 3.600955624306587*^9, 3.6009556683142643`*^9}, {3.600955704350328*^9, 3.6009557208863573`*^9}, {3.600955931346327*^9, 3.6009559929508348`*^9}, { 3.600956393809139*^9, 3.600956401328352*^9}, {3.601271999654121*^9, 3.6012720126177435`*^9}, {3.601272051820613*^9, 3.601272060572228*^9}, { 3.601272126185943*^9, 3.6012721521131887`*^9}, {3.6012721913160577`*^9, 3.6012722908598323`*^9}, {3.601272334530161*^9, 3.601272344708743*^9}, 3.6012724237112617`*^9, {3.601273071897336*^9, 3.6012731316547537`*^9}, { 3.601273197741534*^9, 3.6012732178937335`*^9}, {3.6012732613242097`*^9, 3.601273446512135*^9}, {3.601817098393468*^9, 3.601817120732707*^9}, { 3.6018908766690116`*^9, 3.601890891021037*^9}, {3.601891031202883*^9, 3.6018910349624896`*^9}, {3.6018911048662124`*^9, 3.601891135395466*^9}, { 3.6018915266285534`*^9, 3.6018917456217375`*^9}, {3.601891800424634*^9, 3.601892015065411*^9}, {3.601892054798681*^9, 3.601892075063116*^9}, { 3.601892115607588*^9, 3.6018921800825005`*^9}, {3.6018922108145547`*^9, 3.601892228364586*^9}, {3.60189238438046*^9, 3.601892482489032*^9}, { 3.6018925791156015`*^9, 3.601892794941981*^9}, {3.6018929018645687`*^9, 3.601892960785872*^9}, {3.601893396120237*^9, 3.6018934904536023`*^9}, { 3.6018950719843802`*^9, 3.6018950769607887`*^9}, 3.6648661732428274`*^9, { 3.6648662310877285`*^9, 3.66486644802271*^9}, {3.6648665181448326`*^9, 3.6648666716335025`*^9}, {3.6648667720664787`*^9, 3.664867015302106*^9}, 3.664867118699088*^9, 3.6648675103493767`*^9, 3.664867654369829*^9, { 3.664868431469594*^9, 3.664868445759219*^9}, {3.665387343783638*^9, 3.6653873594075317`*^9}, {3.729843535709302*^9, 3.72984363665753*^9}, { 3.7298436965544405`*^9, 3.72984381765591*^9}, {3.729843881162578*^9, 3.729843887944542*^9}, 3.7298439526232595`*^9, 3.7298439992688727`*^9, { 3.73002540316327*^9, 3.7300254803118362`*^9}, {3.7301020187793007`*^9, 3.730102129425929*^9}, {3.730102159724307*^9, 3.730102185372774*^9}, 3.7617189637404757`*^9, {3.7617190279849777`*^9, 3.761719033087113*^9}, { 3.761719065523305*^9, 3.761719087292097*^9}, {3.761728153755963*^9, 3.7617281823586645`*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"8dd1f68a-7434-4fa7-9c3c-9cf74a67fc1b"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 6 (Rectangle plate series solution)", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, 3.601272187572051*^9, 3.6018909318619084`*^9, 3.601891512682129*^9, { 3.698150426952814*^9, 3.6981504336028233`*^9}, {3.7298434405899167`*^9, 3.7298434410587206`*^9}, {3.729843862301259*^9, 3.7298438731148987`*^9}, { 3.7298440053320107`*^9, 3.729844007285342*^9}, {3.729844042851698*^9, 3.7298440556967154`*^9}, 3.793505893394253*^9},ExpressionUUID->"aba6608b-e5b1-41fe-9649-\ b38baf9bdf1a"], Cell[BoxData[ RowBox[{ RowBox[{"(*", "approximation", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", "ser", "]"}], "=", " ", RowBox[{ RowBox[{"a", "[", "0", "]"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "L"}]}], ")"}], "*", RowBox[{"(", RowBox[{"x", "/", "L"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"y", "/", "H"}]}], ")"}], "*", RowBox[{"(", RowBox[{"y", "/", "H"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalOmega]", " ", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]W", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "DD"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], RowBox[{"w", "[", "ser", "]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], RowBox[{"w", "[", "ser", "]"}]}], ",", RowBox[{"2", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], RowBox[{"w", "[", "ser", "]"}]}]}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Nu]"}], ")"}], "/", "2"}]}], "}"}]}], "}"}], ".", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], RowBox[{"w", "[", "ser", "]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], RowBox[{"w", "[", "ser", "]"}]}], ",", RowBox[{"2", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], RowBox[{"w", "[", "ser", "]"}]}]}]}], "}"}]}], ")"}]}], "+", RowBox[{"bn", "*", RowBox[{"\[Delta]", "[", RowBox[{"w", "[", "ser", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], "\[CapitalOmega]"}], " ", ",", RowBox[{"Assumptions", "->", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"H", ">", "0"}]}]}]}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", "\n", RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", "\[Delta]W", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "[", "ser", "]"}], " ", "/.", "sol"}]}]}]], "Input", CellChangeTimes->{ 3.4747630249118*^9, {3.4747631189174*^9, 3.4747632157778*^9}, { 3.4747632855098*^9, 3.4747632963361998`*^9}, {3.4747634024006*^9, 3.474763402697*^9}, {3.474763495517*^9, 3.4747635001814003`*^9}, { 3.4747637730566*^9, 3.474763803851*^9}, {3.4747642087646*^9, 3.4747642600573997`*^9}, {3.4747643726426*^9, 3.4747644737774*^9}, { 3.4752269899314003`*^9, 3.4752270948882*^9}, {3.4752271345902*^9, 3.4752272632434*^9}, {3.475227295551*^9, 3.4752275983314*^9}, { 3.475227632591*^9, 3.4752276649932003`*^9}, {3.4752276971146*^9, 3.4752277780172*^9}, {3.4752278086712*^9, 3.4752279362948*^9}, { 3.4752279825643997`*^9, 3.4752280182416*^9}, {3.4752280573196*^9, 3.4752280750411997`*^9}, {3.4752281205931997`*^9, 3.4752281779231997`*^9}, {3.4752283129412003`*^9, 3.4752284125678*^9}, { 3.4752286421373997`*^9, 3.4752286429174*^9}, {3.4752290214202003`*^9, 3.4752292420810003`*^9}, {3.4752292747942*^9, 3.4752293745874*^9}, { 3.4752294050854*^9, 3.4752295128190002`*^9}, {3.475230037291*^9, 3.4752300676486*^9}, {3.4752302150998*^9, 3.475230248749*^9}, { 3.4753664935702*^9, 3.4753668085810003`*^9}, {3.4753668484702*^9, 3.4753670665114*^9}, {3.4753671011902*^9, 3.4753674723454*^9}, { 3.4753676229322*^9, 3.4753677863733997`*^9}, {3.475367825233*^9, 3.475367848243*^9}, {3.475368029983*^9, 3.4753680589522*^9}, { 3.475369411392*^9, 3.4753695644904003`*^9}, {3.4753696954256*^9, 3.475369726766*^9}, {3.4753698525643997`*^9, 3.4753698555128*^9}, { 3.4753773724536*^9, 3.4753774958652*^9}, 3.4753775502468*^9, { 3.4753776430044003`*^9, 3.4753776659364*^9}, {3.4753777121748*^9, 3.4753777832483997`*^9}, {3.4753778188164*^9, 3.475377922336*^9}, { 3.4753779601348*^9, 3.4753784001952*^9}, {3.4753785090208*^9, 3.475378568722*^9}, {3.4753786124955997`*^9, 3.4753786164112*^9}, { 3.4753786468156*^9, 3.4753786657384*^9}, {3.4753787045355997`*^9, 3.4753787267032003`*^9}, 3.4753910727106*^9, {3.4753931910636*^9, 3.4753932441756*^9}, {3.4754621543882*^9, 3.4754622450397997`*^9}, { 3.4778876497897997`*^9, 3.4778877494737997`*^9}, {3.477887825399*^9, 3.4778878298606*^9}, {3.4778878701085997`*^9, 3.477887883041*^9}, { 3.4778879526482*^9, 3.477887957843*^9}, {3.4778879979974003`*^9, 3.4778880009614*^9}, {3.4778880335654*^9, 3.4778880462326*^9}, { 3.4778880897098*^9, 3.4778881201142*^9}, {3.4778882394908*^9, 3.477888243734*^9}, {3.4778884935368*^9, 3.477888539042*^9}, { 3.477889451995*^9, 3.4778895118416*^9}, {3.4779795395165997`*^9, 3.4779795402136*^9}, {3.4779797634996*^9, 3.4779797999356003`*^9}, 3.4779798372766*^9, {3.4779799820666*^9, 3.4779801217206*^9}, { 3.4779801745425997`*^9, 3.4779801845926*^9}, {3.4779804353096*^9, 3.4779804588506002`*^9}, {3.4779804893566*^9, 3.4779806203556004`*^9}, { 3.4779807300538*^9, 3.4779807467418003`*^9}, {3.4779808817128*^9, 3.4779809449638*^9}, {3.4781573512264*^9, 3.4781573649856*^9}, { 3.478157397808*^9, 3.4781574763227997`*^9}, {3.4781575335436*^9, 3.4781576406532*^9}, {3.4781576880615997`*^9, 3.478157739292*^9}, { 3.478157788042*^9, 3.4781577938452*^9}, {3.4781578276036*^9, 3.4781579446191998`*^9}, {3.4781579974564*^9, 3.4781579980959997`*^9}, 3.47815804396*^9, {3.4781582919532003`*^9, 3.47815834816*^9}, { 3.4781583838694*^9, 3.4781583926366*^9}, 3.4781585049566*^9, { 3.478162407691*^9, 3.4781624349442*^9}, {3.4781624661286*^9, 3.4781624682033997`*^9}, 3.4781626733746*^9, {3.5376219474134884`*^9, 3.537621988198821*^9}, {3.537622048951296*^9, 3.537622120225373*^9}, { 3.5376222446004868`*^9, 3.537622312108348*^9}, 3.537622776495909*^9, { 3.537622908932484*^9, 3.537622917335965*^9}, {3.5376238837162385`*^9, 3.537624004391141*^9}, {3.5376240458145103`*^9, 3.5376242437438307`*^9}, { 3.537624281650999*^9, 3.5376244166457205`*^9}, {3.5376244546488943`*^9, 3.5376248198917847`*^9}, {3.5397503703948455`*^9, 3.5397504308449516`*^9}, 3.5627674253055143`*^9, {3.5781422724253883`*^9, 3.578142305481847*^9}, { 3.5828109510514917`*^9, 3.582810961924711*^9}, {3.6000023977095795`*^9, 3.6000024056343937`*^9}, {3.600002438425651*^9, 3.6000024578788853`*^9}, { 3.600002497565355*^9, 3.600002598559932*^9}, {3.6000027265893574`*^9, 3.6000028178183174`*^9}, {3.600004251273635*^9, 3.6000042647676587`*^9}, { 3.6000479817557764`*^9, 3.6000483859368863`*^9}, {3.600048424453354*^9, 3.6000485077575006`*^9}, {3.600048552451579*^9, 3.600048659342967*^9}, { 3.6000486956130304`*^9, 3.6000487948292046`*^9}, {3.600048827292862*^9, 3.6000488489925*^9}, {3.6000489136546135`*^9, 3.6000492298047686`*^9}, { 3.6000492661060324`*^9, 3.6000494956604357`*^9}, {3.600049563676555*^9, 3.60004964038189*^9}, {3.600049704232802*^9, 3.600049707680408*^9}, { 3.6000498654590855`*^9, 3.600049982756691*^9}, {3.600050061318429*^9, 3.600050183014243*^9}, {3.6000502198459077`*^9, 3.6000503051000576`*^9}, { 3.6000503376105146`*^9, 3.600050450320712*^9}, {3.600050565012114*^9, 3.6000507365032153`*^9}, {3.6000507713224764`*^9, 3.6000507846292996`*^9}, {3.6000509146243277`*^9, 3.6000509929520655`*^9}, {3.600052137070728*^9, 3.600052140487134*^9}, { 3.6009245212614975`*^9, 3.6009245813060026`*^9}, {3.6009246118976564`*^9, 3.6009247053262205`*^9}, {3.6009247454650908`*^9, 3.6009248645557003`*^9}, {3.600924897627758*^9, 3.6009250270923853`*^9}, { 3.60093269343791*^9, 3.6009326961055145`*^9}, {3.6009327283039713`*^9, 3.600932810640916*^9}, {3.600932919607107*^9, 3.6009330596953535`*^9}, { 3.600933106448635*^9, 3.6009331778655605`*^9}, {3.6009332278324485`*^9, 3.6009334194943852`*^9}, {3.600933457277652*^9, 3.600933458978054*^9}, { 3.6009335033445325`*^9, 3.600933546775009*^9}, {3.600933589019883*^9, 3.600933594635893*^9}, {3.6009336332459607`*^9, 3.600933726752525*^9}, { 3.600933764317391*^9, 3.6009337710722027`*^9}, {3.6009338044406614`*^9, 3.600933853081547*^9}, {3.600934005244214*^9, 3.6009340502970934`*^9}, { 3.6009340857403555`*^9, 3.6009341752533126`*^9}, {3.600934250008644*^9, 3.600934354918828*^9}, {3.600934408426922*^9, 3.6009344234341483`*^9}, { 3.600934488111862*^9, 3.6009345709168077`*^9}, {3.600934624736902*^9, 3.600934638932927*^9}, {3.60093468637261*^9, 3.600934760753541*^9}, { 3.6009348210476465`*^9, 3.6009349317766414`*^9}, {3.6009350071247735`*^9, 3.600935160207843*^9}, {3.6009352133259363`*^9, 3.6009352260243583`*^9}, { 3.6009352675828314`*^9, 3.600935273776042*^9}, {3.6009383693050795`*^9, 3.6009386236011257`*^9}, {3.600938695158451*^9, 3.600938845605116*^9}, { 3.6009391629720736`*^9, 3.600939299628313*^9}, {3.600939553393959*^9, 3.6009395861540165`*^9}, {3.600939652407333*^9, 3.6009396642633533`*^9}, { 3.6009397392682853`*^9, 3.600939765398331*^9}, {3.600939855098489*^9, 3.6009398902297506`*^9}, {3.6009399920511293`*^9, 3.6009400593496475`*^9}, {3.6009401208137555`*^9, 3.600940245286374*^9}, { 3.6009402864548464`*^9, 3.6009402976088657`*^9}, {3.600944609222439*^9, 3.600944635477285*^9}, {3.600944687784177*^9, 3.600944710778617*^9}, { 3.6009451493577876`*^9, 3.600945150184589*^9}, 3.6009451913218613`*^9, { 3.600945405229437*^9, 3.6009454072106404`*^9}, {3.600945440610299*^9, 3.600945510482822*^9}, {3.6009457299128075`*^9, 3.6009457335008135`*^9}, { 3.600953140517025*^9, 3.600953181233096*^9}, {3.600953225365574*^9, 3.600953304598113*^9}, {3.6009533714130306`*^9, 3.60095337693544*^9}, { 3.600955624306587*^9, 3.6009556683142643`*^9}, {3.600955704350328*^9, 3.6009557208863573`*^9}, {3.600955931346327*^9, 3.6009559929508348`*^9}, { 3.600956393809139*^9, 3.600956401328352*^9}, {3.601271999654121*^9, 3.6012720126177435`*^9}, {3.601272051820613*^9, 3.601272060572228*^9}, { 3.601272126185943*^9, 3.6012721521131887`*^9}, {3.6012721913160577`*^9, 3.6012722908598323`*^9}, {3.601272334530161*^9, 3.601272344708743*^9}, 3.6012724237112617`*^9, {3.601273071897336*^9, 3.6012731316547537`*^9}, { 3.601273197741534*^9, 3.6012732178937335`*^9}, {3.6012732613242097`*^9, 3.601273446512135*^9}, {3.601817098393468*^9, 3.601817120732707*^9}, { 3.6018908766690116`*^9, 3.601890891021037*^9}, {3.601891031202883*^9, 3.6018910349624896`*^9}, {3.6018911048662124`*^9, 3.601891135395466*^9}, { 3.6018915266285534`*^9, 3.6018917456217375`*^9}, {3.601891800424634*^9, 3.601892015065411*^9}, {3.601892054798681*^9, 3.601892075063116*^9}, { 3.601892115607588*^9, 3.6018921800825005`*^9}, {3.6018922108145547`*^9, 3.601892228364586*^9}, {3.60189238438046*^9, 3.601892482489032*^9}, { 3.6018925791156015`*^9, 3.601892794941981*^9}, {3.6018929018645687`*^9, 3.601892960785872*^9}, {3.601893396120237*^9, 3.6018934904536023`*^9}, { 3.6018950719843802`*^9, 3.6018950769607887`*^9}, 3.6648661732428274`*^9, { 3.6648662310877285`*^9, 3.66486644802271*^9}, {3.6648665181448326`*^9, 3.6648666716335025`*^9}, {3.6648667720664787`*^9, 3.664867015302106*^9}, 3.664867118699088*^9, 3.6648675103493767`*^9, 3.664867654369829*^9, { 3.664868431469594*^9, 3.664868445759219*^9}, {3.665387343783638*^9, 3.6653873594075317`*^9}, {3.729843535709302*^9, 3.72984363665753*^9}, { 3.7298436965544405`*^9, 3.72984381765591*^9}, {3.729843881162578*^9, 3.729843887944542*^9}, 3.7298439526232595`*^9, 3.7298439992688727`*^9, { 3.7300255107840276`*^9, 3.7300255179566927`*^9}, {3.7300255511474085`*^9, 3.730025560242405*^9}, {3.730026961065258*^9, 3.7300270336039376`*^9}, { 3.761719126234131*^9, 3.7617191390750093`*^9}, {3.761727434423373*^9, 3.7617274853333673`*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"80bda5fe-5f24-4f4f-8db1-93b14575c4f0"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 7 (Rectangle plate series solution)", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, 3.601272187572051*^9, 3.6018909318619084`*^9, 3.601891512682129*^9, { 3.698150426952814*^9, 3.6981504336028233`*^9}, {3.7298434405899167`*^9, 3.7298434410587206`*^9}, {3.729843862301259*^9, 3.7298438731148987`*^9}, { 3.7298440053320107`*^9, 3.729844007285342*^9}, {3.729844042851698*^9, 3.7298440556967154`*^9}, 3.730027107893241*^9, 3.7935058955591955`*^9},ExpressionUUID->"f724a870-67df-4ba7-b5e4-\ df8d71c61e75"], Cell[BoxData[ RowBox[{ RowBox[{"(*", "approximation", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", "ser", "]"}], "=", " ", RowBox[{ RowBox[{"a", "[", "0", "]"}], "*", RowBox[{"Sin", "[", RowBox[{"Pi", RowBox[{"(", RowBox[{"x", "/", "L"}], ")"}]}], "]"}], "*", RowBox[{"Sin", "[", RowBox[{"Pi", RowBox[{"(", RowBox[{"y", "/", "H"}], ")"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]W", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "DD"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], RowBox[{"w", "[", "ser", "]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], RowBox[{"w", "[", "ser", "]"}]}], ",", RowBox[{"2", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], RowBox[{"w", "[", "ser", "]"}]}]}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Nu]"}], ")"}], "/", "2"}]}], "}"}]}], "}"}], ".", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], RowBox[{"w", "[", "ser", "]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], RowBox[{"w", "[", "ser", "]"}]}], ",", RowBox[{"2", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], RowBox[{"w", "[", "ser", "]"}]}]}]}], "}"}]}], ")"}]}], "+", RowBox[{"bn", "*", RowBox[{"\[Delta]", "[", RowBox[{"w", "[", "ser", "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "H"}], "}"}]}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", "\n", RowBox[{ RowBox[{"sol", "=", RowBox[{"SOLVE", "[", "\[Delta]W", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "[", "ser", "]"}], "/.", "sol"}]}]}]], "Input", CellChangeTimes->{ 3.4747630249118*^9, {3.4747631189174*^9, 3.4747632157778*^9}, { 3.4747632855098*^9, 3.4747632963361998`*^9}, {3.4747634024006*^9, 3.474763402697*^9}, {3.474763495517*^9, 3.4747635001814003`*^9}, { 3.4747637730566*^9, 3.474763803851*^9}, {3.4747642087646*^9, 3.4747642600573997`*^9}, {3.4747643726426*^9, 3.4747644737774*^9}, { 3.4752269899314003`*^9, 3.4752270948882*^9}, {3.4752271345902*^9, 3.4752272632434*^9}, {3.475227295551*^9, 3.4752275983314*^9}, { 3.475227632591*^9, 3.4752276649932003`*^9}, {3.4752276971146*^9, 3.4752277780172*^9}, {3.4752278086712*^9, 3.4752279362948*^9}, { 3.4752279825643997`*^9, 3.4752280182416*^9}, {3.4752280573196*^9, 3.4752280750411997`*^9}, {3.4752281205931997`*^9, 3.4752281779231997`*^9}, {3.4752283129412003`*^9, 3.4752284125678*^9}, { 3.4752286421373997`*^9, 3.4752286429174*^9}, {3.4752290214202003`*^9, 3.4752292420810003`*^9}, {3.4752292747942*^9, 3.4752293745874*^9}, { 3.4752294050854*^9, 3.4752295128190002`*^9}, {3.475230037291*^9, 3.4752300676486*^9}, {3.4752302150998*^9, 3.475230248749*^9}, { 3.4753664935702*^9, 3.4753668085810003`*^9}, {3.4753668484702*^9, 3.4753670665114*^9}, {3.4753671011902*^9, 3.4753674723454*^9}, { 3.4753676229322*^9, 3.4753677863733997`*^9}, {3.475367825233*^9, 3.475367848243*^9}, {3.475368029983*^9, 3.4753680589522*^9}, { 3.475369411392*^9, 3.4753695644904003`*^9}, {3.4753696954256*^9, 3.475369726766*^9}, {3.4753698525643997`*^9, 3.4753698555128*^9}, { 3.4753773724536*^9, 3.4753774958652*^9}, 3.4753775502468*^9, { 3.4753776430044003`*^9, 3.4753776659364*^9}, {3.4753777121748*^9, 3.4753777832483997`*^9}, {3.4753778188164*^9, 3.475377922336*^9}, { 3.4753779601348*^9, 3.4753784001952*^9}, {3.4753785090208*^9, 3.475378568722*^9}, {3.4753786124955997`*^9, 3.4753786164112*^9}, { 3.4753786468156*^9, 3.4753786657384*^9}, {3.4753787045355997`*^9, 3.4753787267032003`*^9}, 3.4753910727106*^9, {3.4753931910636*^9, 3.4753932441756*^9}, {3.4754621543882*^9, 3.4754622450397997`*^9}, { 3.4778876497897997`*^9, 3.4778877494737997`*^9}, {3.477887825399*^9, 3.4778878298606*^9}, {3.4778878701085997`*^9, 3.477887883041*^9}, { 3.4778879526482*^9, 3.477887957843*^9}, {3.4778879979974003`*^9, 3.4778880009614*^9}, {3.4778880335654*^9, 3.4778880462326*^9}, { 3.4778880897098*^9, 3.4778881201142*^9}, {3.4778882394908*^9, 3.477888243734*^9}, {3.4778884935368*^9, 3.477888539042*^9}, { 3.477889451995*^9, 3.4778895118416*^9}, {3.4779795395165997`*^9, 3.4779795402136*^9}, {3.4779797634996*^9, 3.4779797999356003`*^9}, 3.4779798372766*^9, {3.4779799820666*^9, 3.4779801217206*^9}, { 3.4779801745425997`*^9, 3.4779801845926*^9}, {3.4779804353096*^9, 3.4779804588506002`*^9}, {3.4779804893566*^9, 3.4779806203556004`*^9}, { 3.4779807300538*^9, 3.4779807467418003`*^9}, {3.4779808817128*^9, 3.4779809449638*^9}, {3.4781573512264*^9, 3.4781573649856*^9}, { 3.478157397808*^9, 3.4781574763227997`*^9}, {3.4781575335436*^9, 3.4781576406532*^9}, {3.4781576880615997`*^9, 3.478157739292*^9}, { 3.478157788042*^9, 3.4781577938452*^9}, {3.4781578276036*^9, 3.4781579446191998`*^9}, {3.4781579974564*^9, 3.4781579980959997`*^9}, 3.47815804396*^9, {3.4781582919532003`*^9, 3.47815834816*^9}, { 3.4781583838694*^9, 3.4781583926366*^9}, 3.4781585049566*^9, { 3.478162407691*^9, 3.4781624349442*^9}, {3.4781624661286*^9, 3.4781624682033997`*^9}, 3.4781626733746*^9, {3.5376219474134884`*^9, 3.537621988198821*^9}, {3.537622048951296*^9, 3.537622120225373*^9}, { 3.5376222446004868`*^9, 3.537622312108348*^9}, 3.537622776495909*^9, { 3.537622908932484*^9, 3.537622917335965*^9}, {3.5376238837162385`*^9, 3.537624004391141*^9}, {3.5376240458145103`*^9, 3.5376242437438307`*^9}, { 3.537624281650999*^9, 3.5376244166457205`*^9}, {3.5376244546488943`*^9, 3.5376248198917847`*^9}, {3.5397503703948455`*^9, 3.5397504308449516`*^9}, 3.5627674253055143`*^9, {3.5781422724253883`*^9, 3.578142305481847*^9}, { 3.5828109510514917`*^9, 3.582810961924711*^9}, {3.6000023977095795`*^9, 3.6000024056343937`*^9}, {3.600002438425651*^9, 3.6000024578788853`*^9}, { 3.600002497565355*^9, 3.600002598559932*^9}, {3.6000027265893574`*^9, 3.6000028178183174`*^9}, {3.600004251273635*^9, 3.6000042647676587`*^9}, { 3.6000479817557764`*^9, 3.6000483859368863`*^9}, {3.600048424453354*^9, 3.6000485077575006`*^9}, {3.600048552451579*^9, 3.600048659342967*^9}, { 3.6000486956130304`*^9, 3.6000487948292046`*^9}, {3.600048827292862*^9, 3.6000488489925*^9}, {3.6000489136546135`*^9, 3.6000492298047686`*^9}, { 3.6000492661060324`*^9, 3.6000494956604357`*^9}, {3.600049563676555*^9, 3.60004964038189*^9}, {3.600049704232802*^9, 3.600049707680408*^9}, { 3.6000498654590855`*^9, 3.600049982756691*^9}, {3.600050061318429*^9, 3.600050183014243*^9}, {3.6000502198459077`*^9, 3.6000503051000576`*^9}, { 3.6000503376105146`*^9, 3.600050450320712*^9}, {3.600050565012114*^9, 3.6000507365032153`*^9}, {3.6000507713224764`*^9, 3.6000507846292996`*^9}, {3.6000509146243277`*^9, 3.6000509929520655`*^9}, {3.600052137070728*^9, 3.600052140487134*^9}, { 3.6009245212614975`*^9, 3.6009245813060026`*^9}, {3.6009246118976564`*^9, 3.6009247053262205`*^9}, {3.6009247454650908`*^9, 3.6009248645557003`*^9}, {3.600924897627758*^9, 3.6009250270923853`*^9}, { 3.60093269343791*^9, 3.6009326961055145`*^9}, {3.6009327283039713`*^9, 3.600932810640916*^9}, {3.600932919607107*^9, 3.6009330596953535`*^9}, { 3.600933106448635*^9, 3.6009331778655605`*^9}, {3.6009332278324485`*^9, 3.6009334194943852`*^9}, {3.600933457277652*^9, 3.600933458978054*^9}, { 3.6009335033445325`*^9, 3.600933546775009*^9}, {3.600933589019883*^9, 3.600933594635893*^9}, {3.6009336332459607`*^9, 3.600933726752525*^9}, { 3.600933764317391*^9, 3.6009337710722027`*^9}, {3.6009338044406614`*^9, 3.600933853081547*^9}, {3.600934005244214*^9, 3.6009340502970934`*^9}, { 3.6009340857403555`*^9, 3.6009341752533126`*^9}, {3.600934250008644*^9, 3.600934354918828*^9}, {3.600934408426922*^9, 3.6009344234341483`*^9}, { 3.600934488111862*^9, 3.6009345709168077`*^9}, {3.600934624736902*^9, 3.600934638932927*^9}, {3.60093468637261*^9, 3.600934760753541*^9}, { 3.6009348210476465`*^9, 3.6009349317766414`*^9}, {3.6009350071247735`*^9, 3.600935160207843*^9}, {3.6009352133259363`*^9, 3.6009352260243583`*^9}, { 3.6009352675828314`*^9, 3.600935273776042*^9}, {3.6009383693050795`*^9, 3.6009386236011257`*^9}, {3.600938695158451*^9, 3.600938845605116*^9}, { 3.6009391629720736`*^9, 3.600939299628313*^9}, {3.600939553393959*^9, 3.6009395861540165`*^9}, {3.600939652407333*^9, 3.6009396642633533`*^9}, { 3.6009397392682853`*^9, 3.600939765398331*^9}, {3.600939855098489*^9, 3.6009398902297506`*^9}, {3.6009399920511293`*^9, 3.6009400593496475`*^9}, {3.6009401208137555`*^9, 3.600940245286374*^9}, { 3.6009402864548464`*^9, 3.6009402976088657`*^9}, {3.600944609222439*^9, 3.600944635477285*^9}, {3.600944687784177*^9, 3.600944710778617*^9}, { 3.6009451493577876`*^9, 3.600945150184589*^9}, 3.6009451913218613`*^9, { 3.600945405229437*^9, 3.6009454072106404`*^9}, {3.600945440610299*^9, 3.600945510482822*^9}, {3.6009457299128075`*^9, 3.6009457335008135`*^9}, { 3.600953140517025*^9, 3.600953181233096*^9}, {3.600953225365574*^9, 3.600953304598113*^9}, {3.6009533714130306`*^9, 3.60095337693544*^9}, { 3.600955624306587*^9, 3.6009556683142643`*^9}, {3.600955704350328*^9, 3.6009557208863573`*^9}, {3.600955931346327*^9, 3.6009559929508348`*^9}, { 3.600956393809139*^9, 3.600956401328352*^9}, {3.601271999654121*^9, 3.6012720126177435`*^9}, {3.601272051820613*^9, 3.601272060572228*^9}, { 3.601272126185943*^9, 3.6012721521131887`*^9}, {3.6012721913160577`*^9, 3.6012722908598323`*^9}, {3.601272334530161*^9, 3.601272344708743*^9}, 3.6012724237112617`*^9, {3.601273071897336*^9, 3.6012731316547537`*^9}, { 3.601273197741534*^9, 3.6012732178937335`*^9}, {3.6012732613242097`*^9, 3.601273446512135*^9}, {3.601817098393468*^9, 3.601817120732707*^9}, { 3.6018908766690116`*^9, 3.601890891021037*^9}, {3.601891031202883*^9, 3.6018910349624896`*^9}, {3.6018911048662124`*^9, 3.601891135395466*^9}, { 3.6018915266285534`*^9, 3.6018917456217375`*^9}, {3.601891800424634*^9, 3.601892015065411*^9}, {3.601892054798681*^9, 3.601892075063116*^9}, { 3.601892115607588*^9, 3.6018921800825005`*^9}, {3.6018922108145547`*^9, 3.601892228364586*^9}, {3.60189238438046*^9, 3.601892482489032*^9}, { 3.6018925791156015`*^9, 3.601892794941981*^9}, {3.6018929018645687`*^9, 3.601892960785872*^9}, {3.601893396120237*^9, 3.6018934904536023`*^9}, { 3.6018950719843802`*^9, 3.6018950769607887`*^9}, 3.6648661732428274`*^9, { 3.6648662310877285`*^9, 3.66486644802271*^9}, {3.6648665181448326`*^9, 3.6648666716335025`*^9}, {3.6648667720664787`*^9, 3.664867015302106*^9}, 3.664867118699088*^9, 3.6648675103493767`*^9, 3.664867654369829*^9, { 3.664868431469594*^9, 3.664868445759219*^9}, {3.665387343783638*^9, 3.6653873594075317`*^9}, {3.729843535709302*^9, 3.72984363665753*^9}, { 3.7298436965544405`*^9, 3.72984381765591*^9}, {3.729843881162578*^9, 3.729843887944542*^9}, 3.7298439526232595`*^9, 3.7298439992688727`*^9, { 3.7300255107840276`*^9, 3.7300255179566927`*^9}, {3.7300255511474085`*^9, 3.730025560242405*^9}, {3.730026961065258*^9, 3.7300270336039376`*^9}, { 3.730027116472372*^9, 3.730027141475027*^9}, {3.761719215072709*^9, 3.76171922140244*^9}}, CellLabel->"In[34]:=",ExpressionUUID->"a18fe70f-0b1e-48e2-8c11-89013fe64961"] }, Closed]], Cell[CellGroupData[{ Cell["Example problem 10 (Plate strip r\[Phi]n)", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, 3.601272187572051*^9, {3.7298420114074483`*^9, 3.72984202062717*^9}, { 3.7298422567772007`*^9, 3.7298422646373563`*^9}, {3.7298438488467736`*^9, 3.7298438498155613`*^9}, {3.729913322309219*^9, 3.7299133232011385`*^9}, 3.729946416963608*^9, {3.7299464479363327`*^9, 3.7299464544369535`*^9}, { 3.730019980331919*^9, 3.73001998798884*^9}, {3.7300211415036483`*^9, 3.730021149209077*^9}, 3.793505899160302*^9},ExpressionUUID->"e1fe948f-a32c-4d47-b233-\ 710a47f5c311"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"rule", "=", RowBox[{"{", RowBox[{ RowBox[{"bn", "\[Rule]", RowBox[{ RowBox[{"-", "\[Rho]"}], " ", "g", " ", "t"}]}], ",", RowBox[{"DD", "\[Rule]", RowBox[{"\[CapitalEpsilon]", "*", RowBox[{ RowBox[{"t", "^", "3"}], "/", RowBox[{"(", RowBox[{"12", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "^", "2"}]}], ")"}]}], ")"}]}]}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"conditions", ":=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Mrr", "[", "R", "]"}], ",", RowBox[{"wn", "[", "R", "]"}], ",", RowBox[{"Qr", "[", "\[Epsilon]", "]"}], ",", RowBox[{"Mrr", "[", "\[Epsilon]", "]"}]}], "}"}], " ", "/.", "rule"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sol", "=", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"conditions", "\[Equal]", "0"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"C", "[", "1", "]"}], ",", RowBox[{"C", "[", "2", "]"}], ",", RowBox[{"C", "[", "3", "]"}], ",", RowBox[{"C", "[", "4", "]"}]}], "}"}]}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Limit", "[", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"wn", "[", "\[Epsilon]", "]"}], " ", "/.", "sol"}], "]"}], ",", RowBox[{"\[Epsilon]", "\[Rule]", "0"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.4747630249118*^9, {3.4747631189174*^9, 3.4747632157778*^9}, { 3.4747632855098*^9, 3.4747632963361998`*^9}, {3.4747634024006*^9, 3.474763402697*^9}, {3.474763495517*^9, 3.4747635001814003`*^9}, { 3.4747637730566*^9, 3.474763803851*^9}, {3.4747642087646*^9, 3.4747642600573997`*^9}, {3.4747643726426*^9, 3.4747644737774*^9}, { 3.4752269899314003`*^9, 3.4752270948882*^9}, {3.4752271345902*^9, 3.4752272632434*^9}, {3.475227295551*^9, 3.4752275983314*^9}, { 3.475227632591*^9, 3.4752276649932003`*^9}, {3.4752276971146*^9, 3.4752277780172*^9}, {3.4752278086712*^9, 3.4752279362948*^9}, { 3.4752279825643997`*^9, 3.4752280182416*^9}, {3.4752280573196*^9, 3.4752280750411997`*^9}, {3.4752281205931997`*^9, 3.4752281779231997`*^9}, {3.4752283129412003`*^9, 3.4752284125678*^9}, { 3.4752286421373997`*^9, 3.4752286429174*^9}, {3.4752290214202003`*^9, 3.4752292420810003`*^9}, {3.4752292747942*^9, 3.4752293745874*^9}, { 3.4752294050854*^9, 3.4752295128190002`*^9}, {3.475230037291*^9, 3.4752300676486*^9}, {3.4752302150998*^9, 3.475230248749*^9}, { 3.4753664935702*^9, 3.4753668085810003`*^9}, {3.4753668484702*^9, 3.4753670665114*^9}, {3.4753671011902*^9, 3.4753674723454*^9}, { 3.4753676229322*^9, 3.4753677863733997`*^9}, {3.475367825233*^9, 3.475367848243*^9}, {3.475368029983*^9, 3.4753680589522*^9}, { 3.475369411392*^9, 3.4753695644904003`*^9}, {3.4753696954256*^9, 3.475369726766*^9}, {3.4753698525643997`*^9, 3.4753698555128*^9}, { 3.4753773724536*^9, 3.4753774958652*^9}, 3.4753775502468*^9, { 3.4753776430044003`*^9, 3.4753776659364*^9}, {3.4753777121748*^9, 3.4753777832483997`*^9}, {3.4753778188164*^9, 3.475377922336*^9}, { 3.4753779601348*^9, 3.4753784001952*^9}, {3.4753785090208*^9, 3.475378568722*^9}, {3.4753786124955997`*^9, 3.4753786164112*^9}, { 3.4753786468156*^9, 3.4753786657384*^9}, {3.4753787045355997`*^9, 3.4753787267032003`*^9}, 3.4753910727106*^9, {3.4753931910636*^9, 3.4753932441756*^9}, {3.4754621543882*^9, 3.4754622450397997`*^9}, { 3.4778876497897997`*^9, 3.4778877494737997`*^9}, {3.477887825399*^9, 3.4778878298606*^9}, {3.4778878701085997`*^9, 3.477887883041*^9}, { 3.4778879526482*^9, 3.477887957843*^9}, {3.4778879979974003`*^9, 3.4778880009614*^9}, {3.4778880335654*^9, 3.4778880462326*^9}, { 3.4778880897098*^9, 3.4778881201142*^9}, {3.4778882394908*^9, 3.477888243734*^9}, {3.4778884935368*^9, 3.477888539042*^9}, { 3.477889451995*^9, 3.4778895118416*^9}, {3.4779795395165997`*^9, 3.4779795402136*^9}, {3.4779797634996*^9, 3.4779797999356003`*^9}, 3.4779798372766*^9, {3.4779799820666*^9, 3.4779801217206*^9}, { 3.4779801745425997`*^9, 3.4779801845926*^9}, {3.4779804353096*^9, 3.4779804588506002`*^9}, {3.4779804893566*^9, 3.4779806203556004`*^9}, { 3.4779807300538*^9, 3.4779807467418003`*^9}, {3.4779808817128*^9, 3.4779809449638*^9}, {3.4781573512264*^9, 3.4781573649856*^9}, { 3.478157397808*^9, 3.4781574763227997`*^9}, {3.4781575335436*^9, 3.4781576406532*^9}, {3.4781576880615997`*^9, 3.478157739292*^9}, { 3.478157788042*^9, 3.4781577938452*^9}, {3.4781578276036*^9, 3.4781579446191998`*^9}, {3.4781579974564*^9, 3.4781579980959997`*^9}, 3.47815804396*^9, {3.4781582919532003`*^9, 3.47815834816*^9}, { 3.4781583838694*^9, 3.4781583926366*^9}, 3.4781585049566*^9, { 3.478162407691*^9, 3.4781624349442*^9}, {3.4781624661286*^9, 3.4781624682033997`*^9}, 3.4781626733746*^9, {3.5376219474134884`*^9, 3.537621988198821*^9}, {3.537622048951296*^9, 3.537622120225373*^9}, { 3.5376222446004868`*^9, 3.537622312108348*^9}, 3.537622776495909*^9, { 3.537622908932484*^9, 3.537622917335965*^9}, {3.5376238837162385`*^9, 3.537624004391141*^9}, {3.5376240458145103`*^9, 3.5376242437438307`*^9}, { 3.537624281650999*^9, 3.5376244166457205`*^9}, {3.5376244546488943`*^9, 3.5376248198917847`*^9}, {3.5397503703948455`*^9, 3.5397504308449516`*^9}, 3.5627674253055143`*^9, {3.5781422724253883`*^9, 3.578142305481847*^9}, { 3.5828109510514917`*^9, 3.582810961924711*^9}, {3.6000023977095795`*^9, 3.6000024056343937`*^9}, {3.600002438425651*^9, 3.6000024578788853`*^9}, { 3.600002497565355*^9, 3.600002598559932*^9}, {3.6000027265893574`*^9, 3.6000028178183174`*^9}, {3.600004251273635*^9, 3.6000042647676587`*^9}, { 3.6000479817557764`*^9, 3.6000483859368863`*^9}, {3.600048424453354*^9, 3.6000485077575006`*^9}, {3.600048552451579*^9, 3.600048659342967*^9}, { 3.6000486956130304`*^9, 3.6000487948292046`*^9}, {3.600048827292862*^9, 3.6000488489925*^9}, {3.6000489136546135`*^9, 3.6000492298047686`*^9}, { 3.6000492661060324`*^9, 3.6000494956604357`*^9}, {3.600049563676555*^9, 3.60004964038189*^9}, {3.600049704232802*^9, 3.600049707680408*^9}, { 3.6000498654590855`*^9, 3.600049982756691*^9}, {3.600050061318429*^9, 3.600050183014243*^9}, {3.6000502198459077`*^9, 3.6000503051000576`*^9}, { 3.6000503376105146`*^9, 3.600050450320712*^9}, {3.600050565012114*^9, 3.6000507365032153`*^9}, {3.6000507713224764`*^9, 3.6000507846292996`*^9}, {3.6000509146243277`*^9, 3.6000509929520655`*^9}, {3.600052137070728*^9, 3.600052140487134*^9}, { 3.6009245212614975`*^9, 3.6009245813060026`*^9}, {3.6009246118976564`*^9, 3.6009247053262205`*^9}, {3.6009247454650908`*^9, 3.6009248645557003`*^9}, {3.600924897627758*^9, 3.6009250270923853`*^9}, { 3.60093269343791*^9, 3.6009326961055145`*^9}, {3.6009327283039713`*^9, 3.600932810640916*^9}, {3.600932919607107*^9, 3.6009330596953535`*^9}, { 3.600933106448635*^9, 3.6009331778655605`*^9}, {3.6009332278324485`*^9, 3.6009334194943852`*^9}, {3.600933457277652*^9, 3.600933458978054*^9}, { 3.6009335033445325`*^9, 3.600933546775009*^9}, {3.600933589019883*^9, 3.600933594635893*^9}, {3.6009336332459607`*^9, 3.600933726752525*^9}, { 3.600933764317391*^9, 3.6009337710722027`*^9}, {3.6009338044406614`*^9, 3.600933853081547*^9}, {3.600934005244214*^9, 3.6009340502970934`*^9}, { 3.6009340857403555`*^9, 3.6009341752533126`*^9}, {3.600934250008644*^9, 3.600934354918828*^9}, {3.600934408426922*^9, 3.6009344234341483`*^9}, { 3.600934488111862*^9, 3.6009345709168077`*^9}, {3.600934624736902*^9, 3.600934638932927*^9}, {3.60093468637261*^9, 3.600934760753541*^9}, { 3.6009348210476465`*^9, 3.6009349317766414`*^9}, {3.6009350071247735`*^9, 3.600935160207843*^9}, {3.6009352133259363`*^9, 3.6009352260243583`*^9}, { 3.6009352675828314`*^9, 3.600935273776042*^9}, {3.6009383693050795`*^9, 3.6009386236011257`*^9}, {3.600938695158451*^9, 3.600938845605116*^9}, { 3.6009391629720736`*^9, 3.600939299628313*^9}, {3.600939553393959*^9, 3.6009395861540165`*^9}, {3.600939652407333*^9, 3.6009396642633533`*^9}, { 3.6009397392682853`*^9, 3.600939765398331*^9}, {3.600939855098489*^9, 3.6009398902297506`*^9}, {3.6009399920511293`*^9, 3.6009400593496475`*^9}, {3.6009401208137555`*^9, 3.600940245286374*^9}, { 3.6009402864548464`*^9, 3.6009402976088657`*^9}, {3.600944609222439*^9, 3.600944635477285*^9}, {3.600944687784177*^9, 3.600944710778617*^9}, { 3.6009451493577876`*^9, 3.600945150184589*^9}, 3.6009451913218613`*^9, { 3.600945405229437*^9, 3.6009454072106404`*^9}, {3.600945440610299*^9, 3.600945510482822*^9}, {3.6009457299128075`*^9, 3.6009457335008135`*^9}, { 3.600953140517025*^9, 3.600953181233096*^9}, {3.600953225365574*^9, 3.600953304598113*^9}, {3.6009533714130306`*^9, 3.60095337693544*^9}, { 3.600955624306587*^9, 3.6009556683142643`*^9}, {3.600955704350328*^9, 3.6009557208863573`*^9}, {3.600955931346327*^9, 3.6009559929508348`*^9}, { 3.600956393809139*^9, 3.600956401328352*^9}, {3.601271999654121*^9, 3.6012720126177435`*^9}, {3.601272051820613*^9, 3.601272060572228*^9}, { 3.601272126185943*^9, 3.6012721521131887`*^9}, {3.6012721913160577`*^9, 3.6012722908598323`*^9}, {3.601272334530161*^9, 3.601272344708743*^9}, 3.6012724237112617`*^9, {3.601273071897336*^9, 3.6012731316547537`*^9}, { 3.601273197741534*^9, 3.6012732178937335`*^9}, {3.6012732613242097`*^9, 3.601273446512135*^9}, {3.601817098393468*^9, 3.601817120732707*^9}, { 3.6018908766690116`*^9, 3.601890891021037*^9}, {3.601890974917984*^9, 3.6018909820471964`*^9}, {3.6018910422321024`*^9, 3.6018910446189065`*^9}, {3.664864850563903*^9, 3.6648650156277933`*^9}, 3.7298420460673847`*^9, {3.7298421211691065`*^9, 3.7298421509847603`*^9}, { 3.729842221210888*^9, 3.729842235665595*^9}, {3.7298422715443335`*^9, 3.7298422737321205`*^9}, {3.729912609284291*^9, 3.729912662244325*^9}, { 3.7299127052728996`*^9, 3.7299127125299406`*^9}, {3.729912965711229*^9, 3.7299129986016903`*^9}, {3.729913044618667*^9, 3.729913077339625*^9}, { 3.729913119130881*^9, 3.729913132633894*^9}, {3.7299131644384785`*^9, 3.7299131776122475`*^9}, {3.7299132096186914`*^9, 3.729913213403106*^9}, { 3.7299464651933517`*^9, 3.729946551096799*^9}, {3.7299466175771923`*^9, 3.729946637326166*^9}, {3.7299467944348817`*^9, 3.729946795308713*^9}, { 3.7300200327818413`*^9, 3.730020035995639*^9}, 3.7300200670070367`*^9, { 3.730020110802023*^9, 3.7300201181775074`*^9}, {3.7300204958385773`*^9, 3.7300204964301915`*^9}, {3.730020543490142*^9, 3.7300205733963413`*^9}, { 3.7300207421056924`*^9, 3.730020754286761*^9}, 3.730020841627121*^9, { 3.7300208961799192`*^9, 3.730020929139744*^9}, {3.730026560370507*^9, 3.7300265758408375`*^9}}, CellLabel->"In[38]:=",ExpressionUUID->"a4dc2963-896e-4663-92df-30b6ed1c8d15"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 1 (Plate strip xyn)", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, 3.601272187572051*^9, {3.7298420114074483`*^9, 3.72984202062717*^9}, { 3.7298422567772007`*^9, 3.7298422646373563`*^9}, {3.7298438488467736`*^9, 3.7298438498155613`*^9}, {3.729913322309219*^9, 3.7299133232011385`*^9}, { 3.730021765584321*^9, 3.7300217815833054`*^9}, {3.761727627566972*^9, 3.761727633534341*^9}, {3.8889889510699577`*^9, 3.888988954083353*^9}},ExpressionUUID->"2aaab783-8e2e-4f96-9db6-\ ba5a3d833bbf"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"rule", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"bx", "\[Rule]", "0"}], ",", RowBox[{"by", "\[Rule]", "0"}], ",", RowBox[{"bn", "->", RowBox[{"\[Rho]", "*", "g", "*", "t"}]}], ",", RowBox[{"cx", "\[Rule]", "0"}], ",", RowBox[{"cy", "\[Rule]", "0"}], ",", RowBox[{"cz", "\[Rule]", "0"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"equs", "=", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"equilibrium", "[", "xyn", "]"}], ",", RowBox[{"constitutive", "[", "xyn", "]"}], ",", RowBox[{ RowBox[{"clamped", "[", "xyn", "]"}], "[", "0", "]"}], ",", RowBox[{ RowBox[{"free", "[", "xyn", "]"}], "[", "L", "]"}]}], "]"}], " ", "/.", "rule"}]}], ";"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sol", "=", RowBox[{ RowBox[{"DSolve", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"equs", "\[Equal]", "0"}], "]"}], ",", RowBox[{"functions", "[", "xyn", "]"}], ",", "x"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Simplify", "[", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"Nxx", "[", "x", "]"}], "/.", " ", "sol"}], " ", ",", RowBox[{"\[Alpha]", "\[Rule]", "1"}]}], "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Simplify", "[", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"Qx", "[", "x", "]"}], "/.", " ", "sol"}], " ", ",", RowBox[{"\[Alpha]", "\[Rule]", "1"}]}], "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"Simplify", "[", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"Mxx", "[", "x", "]"}], "/.", " ", "sol"}], " ", ",", RowBox[{"\[Alpha]", "\[Rule]", "1"}]}], "]"}], "]"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.4747630249118*^9, {3.4747631189174*^9, 3.4747632157778*^9}, { 3.4747632855098*^9, 3.4747632963361998`*^9}, {3.4747634024006*^9, 3.474763402697*^9}, {3.474763495517*^9, 3.4747635001814003`*^9}, { 3.4747637730566*^9, 3.474763803851*^9}, {3.4747642087646*^9, 3.4747642600573997`*^9}, {3.4747643726426*^9, 3.4747644737774*^9}, { 3.4752269899314003`*^9, 3.4752270948882*^9}, {3.4752271345902*^9, 3.4752272632434*^9}, {3.475227295551*^9, 3.4752275983314*^9}, { 3.475227632591*^9, 3.4752276649932003`*^9}, {3.4752276971146*^9, 3.4752277780172*^9}, {3.4752278086712*^9, 3.4752279362948*^9}, { 3.4752279825643997`*^9, 3.4752280182416*^9}, {3.4752280573196*^9, 3.4752280750411997`*^9}, {3.4752281205931997`*^9, 3.4752281779231997`*^9}, {3.4752283129412003`*^9, 3.4752284125678*^9}, { 3.4752286421373997`*^9, 3.4752286429174*^9}, {3.4752290214202003`*^9, 3.4752292420810003`*^9}, {3.4752292747942*^9, 3.4752293745874*^9}, { 3.4752294050854*^9, 3.4752295128190002`*^9}, {3.475230037291*^9, 3.4752300676486*^9}, {3.4752302150998*^9, 3.475230248749*^9}, { 3.4753664935702*^9, 3.4753668085810003`*^9}, {3.4753668484702*^9, 3.4753670665114*^9}, {3.4753671011902*^9, 3.4753674723454*^9}, { 3.4753676229322*^9, 3.4753677863733997`*^9}, {3.475367825233*^9, 3.475367848243*^9}, {3.475368029983*^9, 3.4753680589522*^9}, { 3.475369411392*^9, 3.4753695644904003`*^9}, {3.4753696954256*^9, 3.475369726766*^9}, {3.4753698525643997`*^9, 3.4753698555128*^9}, { 3.4753773724536*^9, 3.4753774958652*^9}, 3.4753775502468*^9, { 3.4753776430044003`*^9, 3.4753776659364*^9}, {3.4753777121748*^9, 3.4753777832483997`*^9}, {3.4753778188164*^9, 3.475377922336*^9}, { 3.4753779601348*^9, 3.4753784001952*^9}, {3.4753785090208*^9, 3.475378568722*^9}, {3.4753786124955997`*^9, 3.4753786164112*^9}, { 3.4753786468156*^9, 3.4753786657384*^9}, {3.4753787045355997`*^9, 3.4753787267032003`*^9}, 3.4753910727106*^9, {3.4753931910636*^9, 3.4753932441756*^9}, {3.4754621543882*^9, 3.4754622450397997`*^9}, { 3.4778876497897997`*^9, 3.4778877494737997`*^9}, {3.477887825399*^9, 3.4778878298606*^9}, {3.4778878701085997`*^9, 3.477887883041*^9}, { 3.4778879526482*^9, 3.477887957843*^9}, {3.4778879979974003`*^9, 3.4778880009614*^9}, {3.4778880335654*^9, 3.4778880462326*^9}, { 3.4778880897098*^9, 3.4778881201142*^9}, {3.4778882394908*^9, 3.477888243734*^9}, {3.4778884935368*^9, 3.477888539042*^9}, { 3.477889451995*^9, 3.4778895118416*^9}, {3.4779795395165997`*^9, 3.4779795402136*^9}, {3.4779797634996*^9, 3.4779797999356003`*^9}, 3.4779798372766*^9, {3.4779799820666*^9, 3.4779801217206*^9}, { 3.4779801745425997`*^9, 3.4779801845926*^9}, {3.4779804353096*^9, 3.4779804588506002`*^9}, {3.4779804893566*^9, 3.4779806203556004`*^9}, { 3.4779807300538*^9, 3.4779807467418003`*^9}, {3.4779808817128*^9, 3.4779809449638*^9}, {3.4781573512264*^9, 3.4781573649856*^9}, { 3.478157397808*^9, 3.4781574763227997`*^9}, {3.4781575335436*^9, 3.4781576406532*^9}, {3.4781576880615997`*^9, 3.478157739292*^9}, { 3.478157788042*^9, 3.4781577938452*^9}, {3.4781578276036*^9, 3.4781579446191998`*^9}, {3.4781579974564*^9, 3.4781579980959997`*^9}, 3.47815804396*^9, {3.4781582919532003`*^9, 3.47815834816*^9}, { 3.4781583838694*^9, 3.4781583926366*^9}, 3.4781585049566*^9, { 3.478162407691*^9, 3.4781624349442*^9}, {3.4781624661286*^9, 3.4781624682033997`*^9}, 3.4781626733746*^9, {3.5376219474134884`*^9, 3.537621988198821*^9}, {3.537622048951296*^9, 3.537622120225373*^9}, { 3.5376222446004868`*^9, 3.537622312108348*^9}, 3.537622776495909*^9, { 3.537622908932484*^9, 3.537622917335965*^9}, {3.5376238837162385`*^9, 3.537624004391141*^9}, {3.5376240458145103`*^9, 3.5376242437438307`*^9}, { 3.537624281650999*^9, 3.5376244166457205`*^9}, {3.5376244546488943`*^9, 3.5376248198917847`*^9}, {3.5397503703948455`*^9, 3.5397504308449516`*^9}, 3.5627674253055143`*^9, {3.5781422724253883`*^9, 3.578142305481847*^9}, { 3.5828109510514917`*^9, 3.582810961924711*^9}, {3.6000023977095795`*^9, 3.6000024056343937`*^9}, {3.600002438425651*^9, 3.6000024578788853`*^9}, { 3.600002497565355*^9, 3.600002598559932*^9}, {3.6000027265893574`*^9, 3.6000028178183174`*^9}, {3.600004251273635*^9, 3.6000042647676587`*^9}, { 3.6000479817557764`*^9, 3.6000483859368863`*^9}, {3.600048424453354*^9, 3.6000485077575006`*^9}, {3.600048552451579*^9, 3.600048659342967*^9}, { 3.6000486956130304`*^9, 3.6000487948292046`*^9}, {3.600048827292862*^9, 3.6000488489925*^9}, {3.6000489136546135`*^9, 3.6000492298047686`*^9}, { 3.6000492661060324`*^9, 3.6000494956604357`*^9}, {3.600049563676555*^9, 3.60004964038189*^9}, {3.600049704232802*^9, 3.600049707680408*^9}, { 3.6000498654590855`*^9, 3.600049982756691*^9}, {3.600050061318429*^9, 3.600050183014243*^9}, {3.6000502198459077`*^9, 3.6000503051000576`*^9}, { 3.6000503376105146`*^9, 3.600050450320712*^9}, {3.600050565012114*^9, 3.6000507365032153`*^9}, {3.6000507713224764`*^9, 3.6000507846292996`*^9}, {3.6000509146243277`*^9, 3.6000509929520655`*^9}, {3.600052137070728*^9, 3.600052140487134*^9}, { 3.6009245212614975`*^9, 3.6009245813060026`*^9}, {3.6009246118976564`*^9, 3.6009247053262205`*^9}, {3.6009247454650908`*^9, 3.6009248645557003`*^9}, {3.600924897627758*^9, 3.6009250270923853`*^9}, { 3.60093269343791*^9, 3.6009326961055145`*^9}, {3.6009327283039713`*^9, 3.600932810640916*^9}, {3.600932919607107*^9, 3.6009330596953535`*^9}, { 3.600933106448635*^9, 3.6009331778655605`*^9}, {3.6009332278324485`*^9, 3.6009334194943852`*^9}, {3.600933457277652*^9, 3.600933458978054*^9}, { 3.6009335033445325`*^9, 3.600933546775009*^9}, {3.600933589019883*^9, 3.600933594635893*^9}, {3.6009336332459607`*^9, 3.600933726752525*^9}, { 3.600933764317391*^9, 3.6009337710722027`*^9}, {3.6009338044406614`*^9, 3.600933853081547*^9}, {3.600934005244214*^9, 3.6009340502970934`*^9}, { 3.6009340857403555`*^9, 3.6009341752533126`*^9}, {3.600934250008644*^9, 3.600934354918828*^9}, {3.600934408426922*^9, 3.6009344234341483`*^9}, { 3.600934488111862*^9, 3.6009345709168077`*^9}, {3.600934624736902*^9, 3.600934638932927*^9}, {3.60093468637261*^9, 3.600934760753541*^9}, { 3.6009348210476465`*^9, 3.6009349317766414`*^9}, {3.6009350071247735`*^9, 3.600935160207843*^9}, {3.6009352133259363`*^9, 3.6009352260243583`*^9}, { 3.6009352675828314`*^9, 3.600935273776042*^9}, {3.6009383693050795`*^9, 3.6009386236011257`*^9}, {3.600938695158451*^9, 3.600938845605116*^9}, { 3.6009391629720736`*^9, 3.600939299628313*^9}, {3.600939553393959*^9, 3.6009395861540165`*^9}, {3.600939652407333*^9, 3.6009396642633533`*^9}, { 3.6009397392682853`*^9, 3.600939765398331*^9}, {3.600939855098489*^9, 3.6009398902297506`*^9}, {3.6009399920511293`*^9, 3.6009400593496475`*^9}, {3.6009401208137555`*^9, 3.600940245286374*^9}, { 3.6009402864548464`*^9, 3.6009402976088657`*^9}, {3.600944609222439*^9, 3.600944635477285*^9}, {3.600944687784177*^9, 3.600944710778617*^9}, { 3.6009451493577876`*^9, 3.600945150184589*^9}, 3.6009451913218613`*^9, { 3.600945405229437*^9, 3.6009454072106404`*^9}, {3.600945440610299*^9, 3.600945510482822*^9}, {3.6009457299128075`*^9, 3.6009457335008135`*^9}, { 3.600953140517025*^9, 3.600953181233096*^9}, {3.600953225365574*^9, 3.600953304598113*^9}, {3.6009533714130306`*^9, 3.60095337693544*^9}, { 3.600955624306587*^9, 3.6009556683142643`*^9}, {3.600955704350328*^9, 3.6009557208863573`*^9}, {3.600955931346327*^9, 3.6009559929508348`*^9}, { 3.600956393809139*^9, 3.600956401328352*^9}, {3.601271999654121*^9, 3.6012720126177435`*^9}, {3.601272051820613*^9, 3.601272060572228*^9}, { 3.601272126185943*^9, 3.6012721521131887`*^9}, {3.6012721913160577`*^9, 3.6012722908598323`*^9}, {3.601272334530161*^9, 3.601272344708743*^9}, 3.6012724237112617`*^9, {3.601273071897336*^9, 3.6012731316547537`*^9}, { 3.601273197741534*^9, 3.6012732178937335`*^9}, {3.6012732613242097`*^9, 3.601273446512135*^9}, {3.601817098393468*^9, 3.601817120732707*^9}, { 3.6018908766690116`*^9, 3.601890891021037*^9}, {3.601890974917984*^9, 3.6018909820471964`*^9}, {3.6018910422321024`*^9, 3.6018910446189065`*^9}, {3.664864850563903*^9, 3.6648650156277933`*^9}, 3.7298420460673847`*^9, {3.7298421211691065`*^9, 3.7298421509847603`*^9}, { 3.729842221210888*^9, 3.729842235665595*^9}, {3.7298422715443335`*^9, 3.7298422737321205`*^9}, {3.729912609284291*^9, 3.729912662244325*^9}, { 3.7299127052728996`*^9, 3.7299127125299406`*^9}, {3.729912965711229*^9, 3.7299129986016903`*^9}, {3.729913044618667*^9, 3.729913077339625*^9}, { 3.729913119130881*^9, 3.729913132633894*^9}, {3.7299131644384785`*^9, 3.7299131776122475`*^9}, {3.7299132096186914`*^9, 3.729913213403106*^9}, 3.730026185948929*^9, {3.7617276430165014`*^9, 3.7617276435007367`*^9}, { 3.7617278286912413`*^9, 3.761727900237034*^9}, 3.761727963378541*^9}, CellLabel->"In[37]:=",ExpressionUUID->"2ee54010-c659-4e40-9693-beee9f3ca682"] }, Closed]], Cell[CellGroupData[{ Cell["Assignment 5 (Rectangle xyn)", "Subsection", CellChangeTimes->{ 3.4710857577642*^9, {3.4710858112098*^9, 3.4710858239082003`*^9}, { 3.4710859049969997`*^9, 3.4710859061046*^9}, {3.4710892678536*^9, 3.4710892701*^9}, 3.4710893817648*^9, {3.4710894793115997`*^9, 3.4710895039596*^9}, {3.4710905118050003`*^9, 3.471090512741*^9}, { 3.4725252603414*^9, 3.472525264101*^9}, {3.4725253064862003`*^9, 3.4725253370934*^9}, {3.4747629998582*^9, 3.4747630055678*^9}, { 3.4752273878873997`*^9, 3.4752273904926*^9}, {3.4753663741484003`*^9, 3.4753664116352*^9}, {3.4753773567911997`*^9, 3.475377356916*^9}, 3.4753775870472*^9, {3.4754620951394*^9, 3.4754621031266003`*^9}, { 3.4779795207265997`*^9, 3.4779795250576*^9}, 3.537621939388029*^9, 3.537622934627954*^9, {3.5376230222229643`*^9, 3.537623029743394*^9}, { 3.537623460058007*^9, 3.537623470980632*^9}, {3.537624955779557*^9, 3.5376249594157653`*^9}, {3.6000028730424147`*^9, 3.6000028738224154`*^9}, 3.601272187572051*^9, 3.6018909318619084`*^9, 3.601891512682129*^9, { 3.698150426952814*^9, 3.6981504336028233`*^9}, {3.7298434405899167`*^9, 3.7298434410587206`*^9}, {3.729843862301259*^9, 3.7298438731148987`*^9}, { 3.7298440053320107`*^9, 3.729844007285342*^9}, {3.729844042851698*^9, 3.7298440556967154`*^9}, {3.730021827849984*^9, 3.7300218464788494`*^9}, { 3.7617211139088087`*^9, 3.761721122800318*^9}, {3.7617212269670157`*^9, 3.7617212311013627`*^9}, {3.8889889565829797`*^9, 3.888988961959673*^9}},ExpressionUUID->"203d6ed2-1309-4b00-b1ed-\ 9916465dddea"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"rule", "=", RowBox[{"{", RowBox[{ RowBox[{"bn", "\[Rule]", "p"}], ",", RowBox[{"DD", "->", " ", RowBox[{"EE", "*", RowBox[{ SuperscriptBox["t", "3"], "/", RowBox[{"(", RowBox[{"12", " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Nu]\[Nu]", "2"]}], ")"}]}], ")"}]}]}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "approximation", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"w", "[", "ser", "]"}], "=", " ", RowBox[{ RowBox[{"a", "[", "0", "]"}], "*", RowBox[{"(", RowBox[{"x", "/", "L"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"x", "/", "L"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"virtual", " ", "work", " ", "expression"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalOmega]", " ", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"L", ",", "H"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]W", "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "DD"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Delta]", "[", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], RowBox[{"w", "[", "ser", "]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], RowBox[{"w", "[", "ser", "]"}]}], ",", RowBox[{"2", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], RowBox[{"w", "[", "ser", "]"}]}]}]}], "}"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "\[Nu]", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Nu]", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Nu]"}], ")"}], "/", "2"}]}], "}"}]}], "}"}], ".", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], RowBox[{"w", "[", "ser", "]"}]}], ",", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"y", ",", "y"}]], RowBox[{"w", "[", "ser", "]"}]}], ",", RowBox[{"2", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "y"}]], RowBox[{"w", "[", "ser", "]"}]}]}]}], "}"}]}], ")"}]}], "+", RowBox[{"bn", "*", RowBox[{"\[Delta]", "[", RowBox[{"w", "[", "ser", "]"}], "]"}]}]}], "/.", "rule"}], " ", ",", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], StyleBox["\[Element]", "OperatorCharacter"], "\[CapitalOmega]"}], " ", ",", RowBox[{"Assumptions", "->", RowBox[{ RowBox[{"L", ">", "0"}], "&&", RowBox[{"H", ">", "0"}]}]}]}], "]"}]}], " ", ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{"sol", "=", RowBox[{"SOLVE", "[", "\[Delta]W", "]"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.4747630249118*^9, {3.4747631189174*^9, 3.4747632157778*^9}, { 3.4747632855098*^9, 3.4747632963361998`*^9}, {3.4747634024006*^9, 3.474763402697*^9}, {3.474763495517*^9, 3.4747635001814003`*^9}, { 3.4747637730566*^9, 3.474763803851*^9}, {3.4747642087646*^9, 3.4747642600573997`*^9}, {3.4747643726426*^9, 3.4747644737774*^9}, { 3.4752269899314003`*^9, 3.4752270948882*^9}, {3.4752271345902*^9, 3.4752272632434*^9}, {3.475227295551*^9, 3.4752275983314*^9}, { 3.475227632591*^9, 3.4752276649932003`*^9}, {3.4752276971146*^9, 3.4752277780172*^9}, {3.4752278086712*^9, 3.4752279362948*^9}, { 3.4752279825643997`*^9, 3.4752280182416*^9}, {3.4752280573196*^9, 3.4752280750411997`*^9}, {3.4752281205931997`*^9, 3.4752281779231997`*^9}, {3.4752283129412003`*^9, 3.4752284125678*^9}, { 3.4752286421373997`*^9, 3.4752286429174*^9}, {3.4752290214202003`*^9, 3.4752292420810003`*^9}, {3.4752292747942*^9, 3.4752293745874*^9}, { 3.4752294050854*^9, 3.4752295128190002`*^9}, {3.475230037291*^9, 3.4752300676486*^9}, {3.4752302150998*^9, 3.475230248749*^9}, { 3.4753664935702*^9, 3.4753668085810003`*^9}, {3.4753668484702*^9, 3.4753670665114*^9}, {3.4753671011902*^9, 3.4753674723454*^9}, { 3.4753676229322*^9, 3.4753677863733997`*^9}, {3.475367825233*^9, 3.475367848243*^9}, {3.475368029983*^9, 3.4753680589522*^9}, { 3.475369411392*^9, 3.4753695644904003`*^9}, {3.4753696954256*^9, 3.475369726766*^9}, {3.4753698525643997`*^9, 3.4753698555128*^9}, { 3.4753773724536*^9, 3.4753774958652*^9}, 3.4753775502468*^9, { 3.4753776430044003`*^9, 3.4753776659364*^9}, {3.4753777121748*^9, 3.4753777832483997`*^9}, {3.4753778188164*^9, 3.475377922336*^9}, { 3.4753779601348*^9, 3.4753784001952*^9}, {3.4753785090208*^9, 3.475378568722*^9}, {3.4753786124955997`*^9, 3.4753786164112*^9}, { 3.4753786468156*^9, 3.4753786657384*^9}, {3.4753787045355997`*^9, 3.4753787267032003`*^9}, 3.4753910727106*^9, {3.4753931910636*^9, 3.4753932441756*^9}, {3.4754621543882*^9, 3.4754622450397997`*^9}, { 3.4778876497897997`*^9, 3.4778877494737997`*^9}, {3.477887825399*^9, 3.4778878298606*^9}, {3.4778878701085997`*^9, 3.477887883041*^9}, { 3.4778879526482*^9, 3.477887957843*^9}, {3.4778879979974003`*^9, 3.4778880009614*^9}, {3.4778880335654*^9, 3.4778880462326*^9}, { 3.4778880897098*^9, 3.4778881201142*^9}, {3.4778882394908*^9, 3.477888243734*^9}, {3.4778884935368*^9, 3.477888539042*^9}, { 3.477889451995*^9, 3.4778895118416*^9}, {3.4779795395165997`*^9, 3.4779795402136*^9}, {3.4779797634996*^9, 3.4779797999356003`*^9}, 3.4779798372766*^9, {3.4779799820666*^9, 3.4779801217206*^9}, { 3.4779801745425997`*^9, 3.4779801845926*^9}, {3.4779804353096*^9, 3.4779804588506002`*^9}, {3.4779804893566*^9, 3.4779806203556004`*^9}, { 3.4779807300538*^9, 3.4779807467418003`*^9}, {3.4779808817128*^9, 3.4779809449638*^9}, {3.4781573512264*^9, 3.4781573649856*^9}, { 3.478157397808*^9, 3.4781574763227997`*^9}, {3.4781575335436*^9, 3.4781576406532*^9}, {3.4781576880615997`*^9, 3.478157739292*^9}, { 3.478157788042*^9, 3.4781577938452*^9}, {3.4781578276036*^9, 3.4781579446191998`*^9}, {3.4781579974564*^9, 3.4781579980959997`*^9}, 3.47815804396*^9, {3.4781582919532003`*^9, 3.47815834816*^9}, { 3.4781583838694*^9, 3.4781583926366*^9}, 3.4781585049566*^9, { 3.478162407691*^9, 3.4781624349442*^9}, {3.4781624661286*^9, 3.4781624682033997`*^9}, 3.4781626733746*^9, {3.5376219474134884`*^9, 3.537621988198821*^9}, {3.537622048951296*^9, 3.537622120225373*^9}, { 3.5376222446004868`*^9, 3.537622312108348*^9}, 3.537622776495909*^9, { 3.537622908932484*^9, 3.537622917335965*^9}, {3.5376238837162385`*^9, 3.537624004391141*^9}, {3.5376240458145103`*^9, 3.5376242437438307`*^9}, { 3.537624281650999*^9, 3.5376244166457205`*^9}, {3.5376244546488943`*^9, 3.5376248198917847`*^9}, {3.5397503703948455`*^9, 3.5397504308449516`*^9}, 3.5627674253055143`*^9, {3.5781422724253883`*^9, 3.578142305481847*^9}, { 3.5828109510514917`*^9, 3.582810961924711*^9}, {3.6000023977095795`*^9, 3.6000024056343937`*^9}, {3.600002438425651*^9, 3.6000024578788853`*^9}, { 3.600002497565355*^9, 3.600002598559932*^9}, {3.6000027265893574`*^9, 3.6000028178183174`*^9}, {3.600004251273635*^9, 3.6000042647676587`*^9}, { 3.6000479817557764`*^9, 3.6000483859368863`*^9}, {3.600048424453354*^9, 3.6000485077575006`*^9}, {3.600048552451579*^9, 3.600048659342967*^9}, { 3.6000486956130304`*^9, 3.6000487948292046`*^9}, {3.600048827292862*^9, 3.6000488489925*^9}, {3.6000489136546135`*^9, 3.6000492298047686`*^9}, { 3.6000492661060324`*^9, 3.6000494956604357`*^9}, {3.600049563676555*^9, 3.60004964038189*^9}, {3.600049704232802*^9, 3.600049707680408*^9}, { 3.6000498654590855`*^9, 3.600049982756691*^9}, {3.600050061318429*^9, 3.600050183014243*^9}, {3.6000502198459077`*^9, 3.6000503051000576`*^9}, { 3.6000503376105146`*^9, 3.600050450320712*^9}, {3.600050565012114*^9, 3.6000507365032153`*^9}, {3.6000507713224764`*^9, 3.6000507846292996`*^9}, {3.6000509146243277`*^9, 3.6000509929520655`*^9}, {3.600052137070728*^9, 3.600052140487134*^9}, { 3.6009245212614975`*^9, 3.6009245813060026`*^9}, {3.6009246118976564`*^9, 3.6009247053262205`*^9}, {3.6009247454650908`*^9, 3.6009248645557003`*^9}, {3.600924897627758*^9, 3.6009250270923853`*^9}, { 3.60093269343791*^9, 3.6009326961055145`*^9}, {3.6009327283039713`*^9, 3.600932810640916*^9}, {3.600932919607107*^9, 3.6009330596953535`*^9}, { 3.600933106448635*^9, 3.6009331778655605`*^9}, {3.6009332278324485`*^9, 3.6009334194943852`*^9}, {3.600933457277652*^9, 3.600933458978054*^9}, { 3.6009335033445325`*^9, 3.600933546775009*^9}, {3.600933589019883*^9, 3.600933594635893*^9}, {3.6009336332459607`*^9, 3.600933726752525*^9}, { 3.600933764317391*^9, 3.6009337710722027`*^9}, {3.6009338044406614`*^9, 3.600933853081547*^9}, {3.600934005244214*^9, 3.6009340502970934`*^9}, { 3.6009340857403555`*^9, 3.6009341752533126`*^9}, {3.600934250008644*^9, 3.600934354918828*^9}, {3.600934408426922*^9, 3.6009344234341483`*^9}, { 3.600934488111862*^9, 3.6009345709168077`*^9}, {3.600934624736902*^9, 3.600934638932927*^9}, {3.60093468637261*^9, 3.600934760753541*^9}, { 3.6009348210476465`*^9, 3.6009349317766414`*^9}, {3.6009350071247735`*^9, 3.600935160207843*^9}, {3.6009352133259363`*^9, 3.6009352260243583`*^9}, { 3.6009352675828314`*^9, 3.600935273776042*^9}, {3.6009383693050795`*^9, 3.6009386236011257`*^9}, {3.600938695158451*^9, 3.600938845605116*^9}, { 3.6009391629720736`*^9, 3.600939299628313*^9}, {3.600939553393959*^9, 3.6009395861540165`*^9}, {3.600939652407333*^9, 3.6009396642633533`*^9}, { 3.6009397392682853`*^9, 3.600939765398331*^9}, {3.600939855098489*^9, 3.6009398902297506`*^9}, {3.6009399920511293`*^9, 3.6009400593496475`*^9}, {3.6009401208137555`*^9, 3.600940245286374*^9}, { 3.6009402864548464`*^9, 3.6009402976088657`*^9}, {3.600944609222439*^9, 3.600944635477285*^9}, {3.600944687784177*^9, 3.600944710778617*^9}, { 3.6009451493577876`*^9, 3.600945150184589*^9}, 3.6009451913218613`*^9, { 3.600945405229437*^9, 3.6009454072106404`*^9}, {3.600945440610299*^9, 3.600945510482822*^9}, {3.6009457299128075`*^9, 3.6009457335008135`*^9}, { 3.600953140517025*^9, 3.600953181233096*^9}, {3.600953225365574*^9, 3.600953304598113*^9}, {3.6009533714130306`*^9, 3.60095337693544*^9}, { 3.600955624306587*^9, 3.6009556683142643`*^9}, {3.600955704350328*^9, 3.6009557208863573`*^9}, {3.600955931346327*^9, 3.6009559929508348`*^9}, { 3.600956393809139*^9, 3.600956401328352*^9}, {3.601271999654121*^9, 3.6012720126177435`*^9}, {3.601272051820613*^9, 3.601272060572228*^9}, { 3.601272126185943*^9, 3.6012721521131887`*^9}, {3.6012721913160577`*^9, 3.6012722908598323`*^9}, {3.601272334530161*^9, 3.601272344708743*^9}, 3.6012724237112617`*^9, {3.601273071897336*^9, 3.6012731316547537`*^9}, { 3.601273197741534*^9, 3.6012732178937335`*^9}, {3.6012732613242097`*^9, 3.601273446512135*^9}, {3.601817098393468*^9, 3.601817120732707*^9}, { 3.6018908766690116`*^9, 3.601890891021037*^9}, {3.601891031202883*^9, 3.6018910349624896`*^9}, {3.6018911048662124`*^9, 3.601891135395466*^9}, { 3.6018915266285534`*^9, 3.6018917456217375`*^9}, {3.601891800424634*^9, 3.601892015065411*^9}, {3.601892054798681*^9, 3.601892075063116*^9}, { 3.601892115607588*^9, 3.6018921800825005`*^9}, {3.6018922108145547`*^9, 3.601892228364586*^9}, {3.60189238438046*^9, 3.601892482489032*^9}, { 3.6018925791156015`*^9, 3.601892794941981*^9}, {3.6018929018645687`*^9, 3.601892960785872*^9}, {3.601893396120237*^9, 3.6018934904536023`*^9}, { 3.6018950719843802`*^9, 3.6018950769607887`*^9}, 3.6648661732428274`*^9, { 3.6648662310877285`*^9, 3.66486644802271*^9}, {3.6648665181448326`*^9, 3.6648666716335025`*^9}, {3.6648667720664787`*^9, 3.664867015302106*^9}, 3.664867118699088*^9, 3.6648675103493767`*^9, 3.664867654369829*^9, { 3.664868431469594*^9, 3.664868445759219*^9}, {3.665387343783638*^9, 3.6653873594075317`*^9}, {3.729843535709302*^9, 3.72984363665753*^9}, { 3.7298436965544405`*^9, 3.72984381765591*^9}, {3.729843881162578*^9, 3.729843887944542*^9}, 3.7298439526232595`*^9, 3.7298439992688727`*^9, { 3.7300218777087994`*^9, 3.7300219128971224`*^9}, 3.7300219571715555`*^9, { 3.730022014351594*^9, 3.73002203811068*^9}, {3.7300232054661655`*^9, 3.730023290668432*^9}, {3.7300233329117537`*^9, 3.7300233496962442`*^9}, { 3.7300250068867188`*^9, 3.7300250803163567`*^9}, {3.7617199562237062`*^9, 3.7617200435523376`*^9}, {3.7617200829450903`*^9, 3.761720152280815*^9}, { 3.7617202010490484`*^9, 3.7617202030235853`*^9}, {3.761720251202153*^9, 3.7617202823089085`*^9}, {3.761720342407148*^9, 3.761720343756246*^9}, { 3.761720389391746*^9, 3.761720397949641*^9}, 3.7617211041998253`*^9, { 3.7617212648024936`*^9, 3.76172136545041*^9}, {3.857523883462542*^9, 3.8575238932517138`*^9}, 3.8575239495164423`*^9, {3.857523985668887*^9, 3.8575240386636887`*^9}, {3.857533031085045*^9, 3.857533059414686*^9}, { 3.8575331270375423`*^9, 3.8575331417507486`*^9}, {3.8575331992038803`*^9, 3.857533211851364*^9}}, CellLabel->"In[36]:=",ExpressionUUID->"4bd42c77-895c-46d8-b622-a6ebc03d3b0b"] }, Closed]] }, Open ]] }, AutoGeneratedPackage->Automatic, WindowSize->{706, 421}, WindowMargins->{{Automatic, 110.75}, {-1.75, Automatic}}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, Magnification:>1.25 Inherited, FrontEndVersion->"13.1 for Microsoft Windows (64-bit) (June 16, 2022)", StyleDefinitions->"Default.nb", ExpressionUUID->"9362d60d-b9ac-4faa-97e6-6ec024a6b461" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 1863, 28, 83, "Section",ExpressionUUID->"b1c5c298-c4e8-4b79-b69c-64b50950008a"], Cell[CellGroupData[{ Cell[2467, 54, 219, 4, 67, "Subsection",ExpressionUUID->"55f9b734-b617-46aa-8f51-57d604832d5f"], Cell[2689, 60, 23567, 454, 404032, "Input",ExpressionUUID->"c3455444-9e5e-4f90-961e-5ffde05baf7a", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[26293, 519, 1352, 20, 46, "Subsection",ExpressionUUID->"ecdea467-eeb4-4f2f-aa4a-30359132cbf7"], Cell[27648, 541, 15231, 306, 722, "Input",ExpressionUUID->"0e4cf4db-197f-4755-9004-ab8beae83a41", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[42916, 852, 1335, 20, 46, "Subsection",ExpressionUUID->"19235eb5-3768-441f-9b6b-2c0cfee98f5c"], Cell[44254, 874, 12471, 218, 367, "Input",ExpressionUUID->"1a4fd206-e972-4b28-b4a2-310191d8e63c", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[56774, 1098, 1604, 24, 65, "Section",ExpressionUUID->"a0c53ddd-7c8e-416d-bffe-87289c4920bd"], Cell[CellGroupData[{ Cell[58403, 1126, 1453, 21, 67, "Subsection",ExpressionUUID->"dcf69dbd-9fe2-4acc-997b-27bc732a24dc"], Cell[59859, 1149, 16203, 358, 953, "Input",ExpressionUUID->"33e357e3-396e-4f21-b1c1-2b60e8d16e94"] }, Closed]], Cell[CellGroupData[{ Cell[76099, 1512, 1394, 20, 46, "Subsection",ExpressionUUID->"478daf46-9e1e-4dd6-bfdb-0721f96b9e2f"], Cell[CellGroupData[{ Cell[77518, 1536, 11447, 194, 273, "Input",ExpressionUUID->"d1c4ad0f-2396-4415-970d-6ae7c940ef78"], Cell[CellGroupData[{ Cell[88990, 1734, 1008, 27, 259, "Print",ExpressionUUID->"3b17d1a0-91df-423f-8d80-c2ae94fbf356"], Cell[90001, 1763, 846, 22, 652, "Print",ExpressionUUID->"6c5e02f6-2cf7-4065-b303-ed4813cade3d"], Cell[90850, 1787, 762, 20, 567, "Print",ExpressionUUID->"acac740c-9da0-4017-8774-1cfa3b70d8b7"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[91673, 1814, 1366, 20, 46, "Subsection",ExpressionUUID->"1b2d0be0-2f03-4cf2-941c-05aa5021fc19"], Cell[93042, 1836, 10697, 177, 5892, "Input",ExpressionUUID->"9f627c4f-4428-4572-8b93-3e40581fdb65"] }, Closed]], Cell[CellGroupData[{ Cell[103776, 2018, 2174, 31, 46, "Subsection",ExpressionUUID->"cf53c044-68a4-48ca-a405-2ccae0a83dc0"], Cell[105953, 2051, 2835, 58, 155, "Input",ExpressionUUID->"7b4212d2-804f-4d38-acf0-74704f13af8f"] }, Closed]], Cell[CellGroupData[{ Cell[108825, 2114, 1950, 28, 46, "Subsection",ExpressionUUID->"b1fac9b5-6b98-4bd8-a133-aa50c883565d"], Cell[110778, 2144, 3094, 67, 250, "Input",ExpressionUUID->"a05a098a-442b-4c1d-b094-e38e7095f568"] }, Closed]], Cell[CellGroupData[{ Cell[113909, 2216, 1832, 26, 46, "Subsection",ExpressionUUID->"3418d1db-7153-48b8-8b24-e60332925953"], Cell[115744, 2244, 4775, 114, 335, "Input",ExpressionUUID->"9f505b86-577c-4a7e-8307-3fdac1fb832a"] }, Closed]], Cell[CellGroupData[{ Cell[120556, 2363, 1387, 20, 46, "Subsection",ExpressionUUID->"e37bd41c-e2ee-4a3e-a577-6a87c2cb74df"], Cell[121946, 2385, 10948, 180, 274, "Input",ExpressionUUID->"ac413080-36ce-4376-a47d-f44a03944430"] }, Closed]], Cell[CellGroupData[{ Cell[132931, 2570, 1379, 20, 46, "Subsection",ExpressionUUID->"7ded623c-4a40-4680-bcdd-6ca54335ad92"], Cell[134313, 2592, 13543, 242, 392, "Input",ExpressionUUID->"8dd1f68a-7434-4fa7-9c3c-9cf74a67fc1b"] }, Closed]], Cell[CellGroupData[{ Cell[147893, 2839, 1433, 21, 46, "Subsection",ExpressionUUID->"aba6608b-e5b1-41fe-9649-b38baf9bdf1a"], Cell[149329, 2862, 13359, 238, 346, "Input",ExpressionUUID->"80bda5fe-5f24-4f4f-8db1-93b14575c4f0"] }, Closed]], Cell[CellGroupData[{ Cell[162725, 3105, 1457, 21, 46, "Subsection",ExpressionUUID->"f724a870-67df-4ba7-b5e4-df8d71c61e75"], Cell[164185, 3128, 12852, 222, 299, "Input",ExpressionUUID->"a18fe70f-0b1e-48e2-8c11-89013fe64961"] }, Closed]], Cell[CellGroupData[{ Cell[177074, 3355, 1499, 22, 46, "Subsection",ExpressionUUID->"e1fe948f-a32c-4d47-b233-710a47f5c311"], Cell[178576, 3379, 11389, 187, 250, "Input",ExpressionUUID->"a4dc2963-896e-4663-92df-30b6ed1c8d15"] }, Closed]], Cell[CellGroupData[{ Cell[190002, 3571, 1439, 21, 46, "Subsection",ExpressionUUID->"2aaab783-8e2e-4f96-9db6-ba5a3d833bbf"], Cell[191444, 3594, 11433, 192, 274, "Input",ExpressionUUID->"2ee54010-c659-4e40-9693-beee9f3ca682"] }, Closed]], Cell[CellGroupData[{ Cell[202914, 3791, 1590, 23, 46, "Subsection",ExpressionUUID->"203d6ed2-1309-4b00-b1ed-9916465dddea"], Cell[204507, 3816, 14246, 254, 410, "Input",ExpressionUUID->"4bd42c77-895c-46d8-b622-a6ebc03d3b0b"] }, Closed]] }, Open ]] } ] *)