(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    103712,       1816]
NotebookOptionsPosition[    101548,       1770]
NotebookOutlinePosition[    102092,       1789]
CellTagsIndexPosition[    102049,       1786]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Modelling assignment 2022
Rigidity of Mavic Cxp 700C Iso 622 32H\
\>", "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.6004096425861998`*^9, 
   3.6004096564234247`*^9}, {3.6004097207111373`*^9, 
   3.6004097213507385`*^9}, {3.600583614831902*^9, 3.6005836171180325`*^9}, {
   3.7899568270754595`*^9, 3.789956831301725*^9}, {3.791439216850464*^9, 
   3.7914392190797243`*^9}, {3.791944409098769*^9, 3.79194441814452*^9}, 
   3.8236702884360747`*^9, {3.8546119162313485`*^9, 
   3.8546119174406056`*^9}},ExpressionUUID->"05f91828-714a-44d3-8284-\
0a01a3d0257d"],

Cell[CellGroupData[{

Cell["Step 1: Experimental rigidity [N,mm]", "Subsection",
 CellChangeTimes->{{3.473055512584*^9, 3.4730555529630003`*^9}, {
   3.4730575328269997`*^9, 3.473057539222*^9}, {3.4734691424642*^9, 
   3.4734691605758*^9}, {3.4736023142902*^9, 3.4736023273162003`*^9}, {
   3.568715518105007*^9, 3.568715523097016*^9}, 3.5994750893663483`*^9, 
   3.6297916561604834`*^9, {3.63073778491436*^9, 3.630737793931176*^9}, {
   3.6624537703648133`*^9, 3.6624537732749796`*^9}, 3.685248933840145*^9, {
   3.685267058363743*^9, 3.6852671273738394`*^9}, {3.685323461463516*^9, 
   3.6853234663335233`*^9}, {3.6858764211836576`*^9, 3.6858764235236607`*^9}, 
   3.6859482147140565`*^9, {3.686226212775403*^9, 3.6862262151354065`*^9}, {
   3.686466369367293*^9, 3.686466390117322*^9}, {3.732333324403823*^9, 
   3.7323333512571926`*^9}, {3.7330531980857735`*^9, 3.733053222557193*^9}, {
   3.7330643803419495`*^9, 3.733064384574917*^9}, {3.764819307824876*^9, 
   3.7648193089127207`*^9}, {3.765705926317233*^9, 3.765705947708847*^9}, {
   3.7664771433740315`*^9, 3.7664771458408413`*^9}, {3.7664804155817566`*^9, 
   3.766480417312395*^9}, {3.7667263641049314`*^9, 3.766726397862908*^9}, {
   3.8185869766098504`*^9, 3.8185869795645185`*^9}, {3.818587134665669*^9, 
   3.8185871363217373`*^9}, {3.818768492979179*^9, 3.8187685002924805`*^9}, {
   3.823752256449824*^9, 3.8237522703401604`*^9}, {3.8238644977590446`*^9, 
   3.8238645061395288`*^9}, {3.823864635889577*^9, 
   3.823864638694629*^9}},ExpressionUUID->"20cea0ee-7c33-4fbf-bcf4-\
45ada18c04eb"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"exp", "=", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1.89", ",", 
          RowBox[{"0.7", "*", "g"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"3.49", ",", 
          RowBox[{"1.2", "*", "g"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"5.12", ",", 
          RowBox[{"1.5", "*", "g"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6.20", ",", 
          RowBox[{"2", "*", "g"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"8.32", ",", 
          RowBox[{"2.7", "*", "g"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"9.74", ",", 
          RowBox[{"3.0", "*", "g"}]}], "}"}]}], "}"}], " ", "/.", 
      RowBox[{"g", "\[Rule]", "9.81"}]}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"F", "=", 
     RowBox[{"Normal", "[", 
      RowBox[{"Fit", "[", 
       RowBox[{"exp", ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", " ", "w"}], "}"}], ",", "w"}], "]"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", 
      RowBox[{"exp", ",", 
       RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{"F", ",", 
       RowBox[{"{", 
        RowBox[{"w", ",", 
         RowBox[{"Min", "[", 
          RowBox[{"exp", "[", 
           RowBox[{"[", 
            RowBox[{";;", ",", "1"}], "]"}], "]"}], "]"}], ",", 
         RowBox[{"Max", "[", 
          RowBox[{"exp", "[", 
           RowBox[{"[", 
            RowBox[{";;", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<w\>\"", ",", "\"\<F\>\""}], "}"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", "F"}]}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<kexp=\>\"", ",", 
     RowBox[{"D", "[", 
      RowBox[{"F", ",", "w"}], "]"}]}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.732963786982458*^9, 3.732963800329712*^9}, {
   3.7329638807173033`*^9, 3.7329639838406887`*^9}, {3.7329640219057136`*^9, 
   3.7329640679494686`*^9}, {3.7329641106095915`*^9, 
   3.7329641238605337`*^9}, {3.7329641586934195`*^9, 
   3.7329641775638523`*^9}, {3.7329642131292753`*^9, 
   3.7329642468139324`*^9}, {3.732964291650645*^9, 3.732964295266472*^9}, {
   3.7329643646012278`*^9, 3.7329645915297546`*^9}, {3.732964625547305*^9, 
   3.732964633879656*^9}, {3.732964682913621*^9, 3.732964776488607*^9}, {
   3.732964812880664*^9, 3.7329648406399565`*^9}, {3.7329649084689856`*^9, 
   3.732965030133172*^9}, {3.732965104873771*^9, 3.7329651443322325`*^9}, {
   3.7329651781396537`*^9, 3.73296520770864*^9}, {3.732965254213273*^9, 
   3.7329652993251047`*^9}, {3.7329653860024896`*^9, 
   3.7329653897065096`*^9}, {3.7329654581300693`*^9, 
   3.7329654674851675`*^9}, {3.7329655079892044`*^9, 3.7329655085784197`*^9}, 
   3.733053175193036*^9, {3.733054323981842*^9, 3.7330543310918913`*^9}, {
   3.7330544527768817`*^9, 3.733054457152335*^9}, {3.733054573883443*^9, 
   3.7330546234511395`*^9}, {3.7330643435838375`*^9, 
   3.7330643547895327`*^9}, {3.7330643919191055`*^9, 
   3.7330644303402214`*^9}, {3.7331050956954727`*^9, 
   3.7331051189053106`*^9}, {3.7331111086485624`*^9, 
   3.7331111523877835`*^9}, {3.7331116359386663`*^9, 3.733111681037479*^9}, 
   3.7331466985132923`*^9, {3.733146742189515*^9, 3.7331467425179462`*^9}, {
   3.7331882689213552`*^9, 3.7331882705625243`*^9}, {3.733456902620245*^9, 
   3.7334569073552113`*^9}, 3.7657059051454167`*^9, {3.765706272424467*^9, 
   3.765706305757754*^9}, {3.7657063874410734`*^9, 3.7657065682529764`*^9}, {
   3.7657066048810625`*^9, 3.7657066299581566`*^9}, {3.765857078340946*^9, 
   3.7658571332338734`*^9}, {3.766475318047246*^9, 3.766475333494685*^9}, {
   3.7664803019289956`*^9, 3.766480319352639*^9}, {3.7667264099225736`*^9, 
   3.766726719444113*^9}, {3.766726750764609*^9, 3.766726781866746*^9}, {
   3.7667268230448494`*^9, 3.766726890403782*^9}, {3.766737556915142*^9, 
   3.7667376461757183`*^9}, {3.7667535576278677`*^9, 3.766753567823385*^9}, {
   3.7667536001320033`*^9, 3.7667536651452446`*^9}, {3.7667537160938406`*^9, 
   3.7667537659916053`*^9}, {3.766753804364827*^9, 3.7667538080234776`*^9}, {
   3.7667538880492616`*^9, 3.7667538883438697`*^9}, 3.7683546699256487`*^9, {
   3.768354953226757*^9, 3.7683549706983614`*^9}, {3.7683550070952144`*^9, 
   3.768355024734041*^9}, {3.7866772118625803`*^9, 3.7866772198621316`*^9}, {
   3.786677258517625*^9, 3.7866772970973134`*^9}, {3.78667734452592*^9, 
   3.786677487664295*^9}, {3.7866775183684816`*^9, 3.7866776052090716`*^9}, {
   3.7866777170345635`*^9, 3.7866777230196533`*^9}, {3.786677760746047*^9, 
   3.786677922979863*^9}, 3.7875829483079205`*^9, {3.817522292235844*^9, 
   3.817522327395365*^9}, {3.8175223667257123`*^9, 3.8175223711802607`*^9}, {
   3.8175224288622837`*^9, 3.8175225177920494`*^9}, 3.818589137303688*^9, {
   3.823751814280732*^9, 3.8237518690464725`*^9}, {3.823752038611862*^9, 
   3.823752215624254*^9}, {3.823864473677472*^9, 3.8238644842411194`*^9}, {
   3.8238651140941725`*^9, 3.8238651144769716`*^9}, {3.8238665358020515`*^9, 
   3.823866592081685*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"a78369b1-6773-4d0b-9f92-5c148b56674a"]
}, Closed]],

Cell[CellGroupData[{

Cell["Step 2: Problem parameters [N,mm]", "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.6000042319920015`*^9, {3.6005962565960674`*^9, 3.6005962590140715`*^9}, 
   3.6006031322879376`*^9, 3.6636738373457937`*^9, {3.6971725349450593`*^9, 
   3.69717255003508*^9}, {3.7289615946007776`*^9, 3.7289616467307887`*^9}, {
   3.7291631200139813`*^9, 3.729163149204567*^9}, 3.7291644717611895`*^9, 
   3.789956365054686*^9, 3.7899564651324177`*^9, {3.789956863478695*^9, 
   3.7899569047334957`*^9}, {3.7899907808554134`*^9, 3.789990789060862*^9}, {
   3.7901536085742593`*^9, 3.7901536346220827`*^9}, {3.790153726028319*^9, 
   3.790153740494941*^9}, {3.7912751571263227`*^9, 3.7912751619237857`*^9}, {
   3.791342276613366*^9, 3.79134234659645*^9}, {3.7913430478694167`*^9, 
   3.7913430522345295`*^9}, {3.7913432362603583`*^9, 3.791343284924265*^9}, 
   3.7913443423149137`*^9, {3.791346491004656*^9, 3.7913465009924264`*^9}, {
   3.7913466234689035`*^9, 3.7913466240139017`*^9}, 3.7914422206617537`*^9, 
   3.8237526253973274`*^9, {3.823864588350896*^9, 
   3.8238646134128466`*^9}},ExpressionUUID->"aff8d2b6-7939-4ccb-8f3a-\
79662e5746c2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"mea", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"d", "\[Rule]", "634"}], ",", 
      RowBox[{"b", "\[Rule]", "20.1"}], ",", " ", 
      RowBox[{"t", "\[Rule]", "20.8"}], ",", 
      RowBox[{"\[CapitalEpsilon]", "\[Rule]", 
       RowBox[{"70", " ", 
        RowBox[{"10", "^", "3"}]}]}], ",", 
      RowBox[{"\[Nu]", "\[Rule]", "0.32"}], ",", 
      RowBox[{"G", "\[Rule]", 
       RowBox[{"\[CapitalEpsilon]", "/", 
        RowBox[{"(", 
         RowBox[{"2", "+", 
          RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"mea", "/.", 
    RowBox[{"Rule", "\[Rule]", "List"}]}], ",", 
   RowBox[{"Alignment", "\[Rule]", "Left"}], ",", 
   RowBox[{"Spacings", "->", 
    RowBox[{"{", 
     RowBox[{"5", ",", "1.2"}], "}"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.791347955315596*^9, 3.7913479594822826`*^9}, {
   3.791348517104787*^9, 3.7913485425454764`*^9}, 3.791348578271015*^9, {
   3.7913486521970654`*^9, 3.7913486583784475`*^9}, {3.791353881151725*^9, 
   3.7913538848330903`*^9}, {3.7913542163193502`*^9, 3.7913542236477213`*^9}, 
   3.791354433917515*^9, {3.7913545752070427`*^9, 3.7913545828609905`*^9}, {
   3.7913792276022778`*^9, 3.7913792288310413`*^9}, {3.791436377562698*^9, 
   3.791436377822234*^9}, 3.7914406632432694`*^9, {3.791727097532786*^9, 
   3.791727120034396*^9}, {3.791729445794482*^9, 3.791729451635895*^9}, 
   3.823316592631236*^9, {3.823753724517353*^9, 3.8237537324597735`*^9}, {
   3.8237543414986725`*^9, 3.8237543469850435`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"f7508e1a-3c88-4d3f-b817-1965be0c2f98"]
}, Closed]],

Cell[CellGroupData[{

Cell["Step 3: Triangle representation ", "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.6000042319920015`*^9, {3.6005962565960674`*^9, 3.6005962590140715`*^9}, 
   3.6006031322879376`*^9, 3.6636738373457937`*^9, {3.6971725349450593`*^9, 
   3.69717255003508*^9}, {3.7289615946007776`*^9, 3.7289616467307887`*^9}, {
   3.7291631200139813`*^9, 3.729163149204567*^9}, 3.7291644717611895`*^9, 
   3.789956365054686*^9, 3.7899564651324177`*^9, {3.789956863478695*^9, 
   3.7899569047334957`*^9}, {3.7899907808554134`*^9, 3.789990789060862*^9}, {
   3.7901536085742593`*^9, 3.7901536346220827`*^9}, {3.790153726028319*^9, 
   3.790153740494941*^9}, {3.7912751571263227`*^9, 3.7912751619237857`*^9}, {
   3.791342276613366*^9, 3.79134234659645*^9}, {3.7913430478694167`*^9, 
   3.7913430522345295`*^9}, {3.7913443966544156`*^9, 3.7913444072043185`*^9}, 
   3.7914422172810607`*^9, {3.79194415781393*^9, 3.791944177275609*^9}, {
   3.7919443342556295`*^9, 3.7919444074914236`*^9}, {3.8237526839484262`*^9, 
   3.823752689501232*^9}, {3.823864182838261*^9, 3.823864187744795*^9}, 
   3.823865450639227*^9},ExpressionUUID->"4bd8ee11-9554-40cc-8113-\
a1db145179e6"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"image", " ", "as", " ", "the", " ", "starting", " ", "point"}], 
    ",", " ", 
    RowBox[{"DO", " ", "NOT", " ", "DELETE", " ", "THIS", " ", "IMAGE"}]}], 
   "*)"}], "\[IndentingNewLine]", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"image", " ", "=", 
    GraphicsBox[
     TagBox[RasterBox[CompressedData["
1:eJztfXeAVdXV/X0vTQPC0ItDG3oRLKgRKRbEikZEQUUIIqiIIvZOPnsDC9bY
u5goSBJbVEzAiCgKIlEsCKL0bomJzNzf+u76zvrtua84w5Q3M5z1x5v77tx3
y7nr7LP3Pnvv0+bk8YPGJIMgOHcHfAwaeeH+55wz8uJj8vDl2LPOPf3Us0af
cuhZ540+dfQ5vzn5Z9i5YyIIivD3f7cTCXz5P/zqV7/ixg477PCLX/yC29xI
RuDxv/zlL9u2bXvAAQfsv//+gwcP3m+//Vq0aMEjeYZ69erhGP2WZ/75z38e
eHiUDD/72c/IzPr164N4v/71r4OIlvjMy8vr0aPHMcccs2bNmsMPP7xv377Y
s9NOO+En/C2Yxm1SDttkIzZwKpyWn7Er8hIk8C8iYAOn5XXHjBkze/bsFStW
zJ8/f8GCBe+9997rr7/ODaBLly48A37evHlznrBBgwbcSL2Wh0cmiJ/t27cH
CbEB3tapU2fVqlVhGP7444//+c9/sLFhw4bvv//+k08+Wbhw4UsvvdS1a1cc
RvaSh/gtac+zsUfw5PZyOJjdCqhVqxY30HFw9cLCQlxo69at2MC18Int7777
DjuLioq+/fZbfOLrrbfeGri+huuS7bi0F/geJQdZSqKSouDPyJEjwbr//ve/
//73vzdu3Egqgn74VEcAM/F5+eWXk708SRCRmZwXJzVAxED+g7H77LMPz7Y1
AuiNi+oSuCL3Y/uHH37gBnoBOhrPoJ6FO/cy36OEoNAmefg5cOBAMBycBwPJ
dnyiF4CB+BQD9S/s+cMf/kDWUepK8yEPU0UxL4QDIP8xlPBsP0TgOXF1ynmQ
H9flVbZs2ULO/zfCnnvuGUQdh52Xw42HR8kB8oOE5CesyKIIoh84RsphgxIY
nxD72IDiQaJyJ/Qfqv3S9qnAY6dGlsB1BHwWFBRQnpPk/OSGOheBO+Fh/NS9
2fun/Je16+GRHdRzpCRAhaYwp6YBHpLVhIgqzUSkBVHRQa6++mqex+r27A4y
dfm5++6788wS8tiwbCdsj0DX42DEPfi66667kva8EA1nD4+SgDykOxHM+U+E
VJ5jG2SThOeGBgL9Csc899xzPCGF8M8d1L8wHFx11VVQWnA8rVdu2/7FU9me
ZTsg9+BXxx13HFWsTNa0h0cmUM/fcccdQZ5DDz3UOnPIaqt4UNLaDR6Gr9L8
v/rqq/Xr1/PktWvXlo8dtKQq8swzz5DG/CGvpS6WCTJ+dXVg9erVgbEavKrv
UVpQZo4ZM0byNjsPY8dY9wuHAPA/Pz9fShRGE9L+rbfeYh+BNkVHDXQkDihZ
OB86xZ5f+UP0MnQxepbQudDLctiAHtUOcq2D/CeffDJpJmWmyCBGeO2kLQAJ
vGnTJgpwaS+NGzeGzJeTf82aNZLYGkdipmsW8uOudGbK/BNPPDFwChWfQhPE
Hh7ZQbFM23DQoEEUvzRvszDf7pRCzk+yGju/+eYbnK1Dhw5BRM6VK1diP7oG
pDc7CP4LJvNXVo2PQWaFPnF7vDTUs8D5jviZ28b0qF6gHoIuABENckqBT4u0
Mp9inF0gdgaQvGfPnn369KGBLJ5j40eHVJdO6hWt3R26gQN3LiMi8DNZHqUB
qEINgZx58MEHrQROlflhca+73dC0ryZh8fW777575JFHwHxrBdA/qROypxRm
gPWsckKNMv+KK66AYR4YH76nvUfJwQkmRhpwdkncpogWSMKYnsOd6iyS9tZS
vvHGGw8++GCJenGeYt86TtOCVwHoAtVvSXtauLh/eXhy3KAe1QRyNoo89913
H/lJ5pN+2sOdJLy2yUYo9qELQrDC/KqrrurVq5emA0IX/2NHDc7SpgU9n+p3
vAqnxmieSFvzXk2PUkGxmpCfJM/UqVNFbMt8avL6aoW2DWOwwh8b11133T77
7BMal1GqJm/7BTsOTitPJqQ9NRycf/LkyfIXBW4OToH9Hh4lBIWn4mq4jZ0n
nHACuUoe0iHDAB6xdO3ateR2Fp8kDr722muzMN/Sfv369dL5N2/erP61evXq
r7/++q677urUqZMYrhtmpJANDfLw+EkkMwA6f4MGDW6//fbZs2eD9l999VVo
4nm+/fZbBVhm4rxlPrQdMT82aSU1Hgznya13CBZ3/fr1oc/EFHh10lTkqiU9
qhesqLfCn/8lkWBL1q5de/DgwZyBVeQkRgFs0J9ZEuYXpQRkSuADHFCEGTNm
BK5jkvYMyGQv0FAVG6088z1KDssc0V55H5K3TLm66KKLwHbOQFGGQwnPIvlL
znzuoQPnpJNOQneLaS9itXIK7AF6ikpuPY9qjYSB3amMP2YpBlGkZd++fUMX
ogCiZg88SNXzM2k7mzZtos5z6623SsgHzhIJIqpL58FtpFXpvZ7vUVqk0p4i
1GZUKakETIbOoxDln7Rw995777AEFm4Y2ct5eXm8ExuEQw0niPjvvZceFYdU
NYM8ZHgMtn//+9/Tq2MnmLIw39I7LfnZiQ444AAlMwamkIikvddnPCoUyp9K
ugI42sONPffck3EIqQpMJpmf9rCi4qBKExtrPDxyDmoaMH7BzFdeeSU0k1Zl
ZD61fct8b7F6VCnI8Bw2bJiNVSgj8xmNTOYrO9jH4XhUEUAU068CilJ7D7Pm
lWwb84Pi5ao8PHIOS8gDDzyQtFfwfFmYz+A0+TCVGp/jB/bwKA5wsk+fPqGb
eyo782XhWrZ7/7xHFQFdLpzYJZ+zo+TM57Z1IuX6WT08/j9s/cBevXpRw1fe
btmZrwt55ntUNcjf2Lt370yTUyVnfmhmsrzM96iysIbnvvvum2UOyzPfoyYh
aaoue+Z7bD+wzGd2rWe+x/YAz3yP7RNe2/HYPuEtXI/tGQwn6927t+WtZ75H
jUf5Mt8icIHQnv8eVRAMWoOFq/I45ch81UzL9VN6eBSDsqX22msv0r4sUcqp
zFeUci4f0sOjOJiES4HMWM3sfC4V8xm34+OTPaogKPBJy0MPPfSHH37IsuhD
qZhfFCUkKjifpoTnv0eVAjOzhgwZwpIjWchfKubjVDJvfU6WR5VCwlUdBydH
jx6tZdDLzvwwMhm0pm0iw/rpHh65gth40003UeaXl28HB+y0007Wq+OZ71FF
oMKtUEv++c9/2kVPtpn5nBFg92GBNa3snOvH9fD4P8jk3HHHHbmUbWgWqy07
89u2bct6nklfD9+jioF6PmT+999//91332VPyyo581mQ/De/+U1gitl6eFQR
yN8I4QzmZ1d1Ssv8H3744fDDD+eFPPM9qhS0oPkee+yhhRF/sn5+CSPWoDud
euqpVPLBfHaxXD+xh8f/QqEF3bp1C139/DL6dsR8nGfKlCm6hF/Z2aNKgWXQ
DjnkEC79XPY5XFm4wDvvvCPD1k/gelQpUNUfMWKEyuyUi8ynyfDvf/9b5q2f
wPWoUiDzBwwYEEYavki7bcwvcgjdquhpl8Hy8MgtSMgdd9xx1KhRpG4WZ36p
mF/k1p7mynSp63Z5eOQQSpU6/fTTSV0ukl525rOWMj5r1aqVMMj1E3t4/C8g
8yHwsXHVVVeR9uW1ZgpVJpwwLy9PK6d4I9ejSgGq+OLFizdv3ky6lsWfb1Ud
AKdq3ry5Vk7xMt+j6gB6OBQSxaqVo8wHvv/++y5dugTOpemZ71FFQMdLnTp1
/h0hC+dLy3x2JfSjvn37Bo753rHpUXUAOdyhQwculQLGQkqXi4XLdbKw58gj
j9RqWXYxaA+PHOKXv/zlz3/+84MOOggU3bJlC8V+pimqkjA/dBm4YRQLQccm
M7MYFBqY1RgDs0RvDGX3BXmzYnuDNIrYq2dwGhGTvSAzRDQFdRitXV525uNU
6EphNJ9VUFDwiwiBq2qlG8vCcE9dj1LBskXbnE4KistY8B8CH/9avXo1FHIu
hlvGmSwxXzNZ3377LYR/4CaLeWlVstVA4OFREmQSkql7xDGtxRyLFp48efI3
33wTRl4davtlzECXzAfnuQfbxx9/PAcaXP3nEex92vHIwyMLUjWBmNogwS4x
qzh5fULat2rVikJ+7dq1Ymm5yHx2JVm7+Nq3b1874vAebJZuWlRCY3pUI2Ri
vniVugHA0tRX0D4vLw8UpVavPMQs01glZ37MZNi4cSNOi/OfeOKJJPyOO+5o
5TxneDORv1QI0nWiinwVHmVCubz0hGN+wlV2ClxMWuBkLJ056AKdOnUSV6mW
K96g7L4d/ksynztJ/mXLlrVv3z4w0h69IJkZWZ40LfT49gw5fLMe2VFahgdG
yNsAYHGexiNlKdhunTl16tQZOHAgZ5rkxqGoL3K5VKVlfqwX4CvOLJ2HfYrX
4hwxrg75v9tuu7Vp0wb3mXAGCJGlI/wk1Ag6lWd+VcY2v9+YZEuYCpbQZ0h+
CNW6des2bty4f//+Dz/8sFgao272PMSSy3xCZrKd22KSO+3f7yNwiFFtNxrF
2LNmzZr77rvv7LPPHjdu3IABA1q2bAndrF69engQ5Q5zQ1HQ3E666DhKA2x7
87kqIGHy8rht5RI++R7pAElGuav254yrBJ8hw8GB/Pz85s2bg4cjRowYO3bs
JZdc8uqrrzK16ptvvqE7nTTjJ2lGEma3ZMvO/NCZulSlLP4TgT/HBrUg3hu3
lc+lmyx0YDgQNjZt2nTnnXdi1FB7ykFK9UkuLLZwJb5kjzSQRApcHVfux85f
RQhS5npwDPZA3F1++eVQFTZs2MBcJzJHpULIGVmpoA23qWMwxxaQSs/4+Qpl
PmOedUUJdkH/Yl8I3QDBRHh0Xo4CrPBsxyOrSnH4GDNmDFrslxGCyJYX7X3I
RFVD0tQ3S7jKroFzP7Ksfb9+/TZu3IiXu27dOjKcvndyRqJbigRIwjkp0RIk
oaWJT5bNtNK44phPMS6dh71VBGYAs+JCec/sDvYMsUtb/jPETvzHBlpg0aJF
MBxIdRrybFKv6lcFaB6fG3wptWvXxkatWrX41qDDTJ06lbah3IwY3/F+wXyr
KpAqlg/iiQ4j8yWBxfwKlfkaleTe0bOQ5+q86oyhsw5w59yv22ZTsPvY3sG+
o9x5/gRNdOSRRwYR+TlP7WNEqyC0ZAlV+qZNm86ZM4cMEXXpD8eGZkUtgUkA
cF6KDclmpbr0ZP1rG2hfKubHLq3uIPYqwsGOXxzCOF6oI8RK+jP4mT2LfVnH
h8aVtGDBghYtWgTOOMriJfOoBLDaUjJyOVK8W33+iSeesNJMGoJ8j0ybwotW
GKQUG0lL9A4K+dB4KUV1S7YKZb79ifUmQT4XuQps0naks6H/Uu1nT8d9SqXh
KMbBQmeTgsQf8pMNxWMmT57M1vbMzznotwkizlMR3WGHHY499lhJb0aOWW0h
jIxWCXy8X3FJ6/vEIs2oRfNfcqoUFsdPVtEsI/Mt5+ViYneWtk/FJox6bqEp
byjqEmS1nX2QCqchQI3DbXQxHg8tsVOnTln8wx6VAC2RCZWee+rVq3fXXXeF
bi7JOtXxQsl2vVm8SlKC5mrodPjQKUJFJg0wdCqHPsU6eVQqlPm8rhSY0Dl2
cF3wk8/LT9yturBujAI/jAQ4N0hynVydV+Nj6IYSCpDQaYwYInfddVc0O9V+
vgVqQR7lCw6j1p9GfyZUGuvSb9iwYRi5a6wfUo6a0GitgujKg0F4ZY7Tv2G7
g8S79tB/aDUojQiW3uXCfDtm6Sli3Y03L4mt/77//vv33HMPzPyHHnro8ssv
v+CCC26//fYnn3zyT3/609y5c/nUoXNv6leMNcXZ+F981YMDp5xyihXyEj4e
5Qs1MgvOxHZCz9lrr72KTEEzvjU6LbVNNZ6qDlmNrx9++OG0adMef/zxP/zh
DzfccMPVV199xx13PPzww0899dSiRYskHjlDKlc59uMkcrDEzMaSK+2lZT6h
6QP6M3l7uDHNu2H/kiVLQOyLL774mGOO6dy5s2bxJCvoomnZsuWQIUPOOOMM
dIq3336b51cSpebvpF/hKmxPAM2F88jb6VERiKmR8mFykO3SpQuYsG7dOuot
pKu8c6ERknyhIO306dPPPvvsQYMG9e3bVz5/nJMWHCeCmzRp0qdPn1NPPRUS
8q233uIZrGOc4p2qRWw0iUn+MjI/9l+5laB1yyThDYCWL7/8MgR7x44d8Vyi
JfTAFi1a5Ofnd+jQoaCgoFWrVu3bt2/evDnMIs0A4sFPOOEEjAXr16/HE7FP
0S1AvUguU3qDsQ1xEUT+BG/eVhzsFK3d36tXr9B44/lq5LXGOwI9pB7/4x//
OP/883feeWecrVGjRkHUp6AmNWjQoHXr1u3atWvbti2IgQOaNWsGJvw6QhD1
i6OPPvree+/VCXmV0PlJUrlajsy33UpqjyxudXZw/uSTT1YoDogNnuO50IUZ
Ux2LysMD1q1bF4dBdKAv4Bj8Fv899NBDMQQoKIjjGh4c3UpfMRzwTv76178G
nvwVBkUpSIiBitgDIYbG15wshDnFb2rRg9dff3348OE77bQTAxvwW1ACJG/a
tKlyWpMm5QqvMi8vD5yBbIRKoADIffbZ57HHHoNU1BVjPvCKY740nNBFUICE
dMl++eWXo0aNql27NsVCmzZtyPag+OpCqYqinhobjRs3RptwP8aC/fbbb8GC
BQoHDZ37KHSuHtlNPXr0CEygiPd2lhf47mwb0p7CJ4lhXZGWQtRIv/rqK4z+
FHQgA6gOJqML8FR4xVJ9Y++oTp063OCvQCc6NHBkv379XnrpJV4FNCA9rJMz
NuVaRuaHzhUZOiVfDswwkrrQZNh/8Wh4Is032b4s/iv8LOGi+tW8eDq0DE7C
M+DBYfLQiYTGLHKz2FL56ATDf9E4gZ/hKm8o41vjOLXxMBpz0fjyrnOA5uvg
NM2bb76J0RzCMIjCGCDWGLcZK9YRFE+80gH26jQEWN+PmhIUp9BVCw+dn9B6
kKSTlJ35oD20LJ6QU2x82JtvvllBNdTQguIlI4IMkTbJ4olmDEtQfiWemsIB
G0OHDsWlKe0VMqFhjqmXuBnaR97PX46g3FDECFXKm266SeO+jaKRZxskue22
26i4AlBs1HF42ljAbapKoMMCRwZu4BXDLsCIgJ/37Nlz8+bNig3mxKiNB85S
YDCV+alOUR1pJ6dovGMPtHo+EaR0YCY4StvCqbHH7Ps4LYeDgw46CAoVrRt5
fTdu3BhGAy5dQDNnzgyc85n3wOhBL/O3GSovkHAZE507d9ZQKxqo1gGV8IED
B5LqUFT0OrZhLE49nuG7EP40CQGwQhYfjI7QRT8qWKjkMj+V+fiKzqXyC+xK
y5cvh8aF50IH7Nq1a6y5StvCNh8nMHk6eDSMI2w9XGXp0qVhNM6qO+tW6fPf
a6+9gqgDWvHiV3IsCyh4Of7idYSRq8E6VTjJIlX/gAMO4Ltr1aqVdN3SMj/T
8bwZun1IEmhTK1eutLqNxGOWqIaSaDuKlAhdmAEN24suuog3Sb2LJomiVUsL
6/AhpKVI2gDdu3dftGgRbwztzza3uTDoFFQs0VmkJXpsMzBoKjMOL/eoo46y
urQCsWQDDhs2DO8L3aR169b4LQ26bYizynR8TGtif8TXxYsXUyRyGFLGRxmZ
zwfUlBk+r7jiCo6DGHcCZ4lQtG7bXKplu+0F/C+9u1Qy+/fvL3cWH5CEl9q/
//77M22Tv036+lflAabBKjSXU7SasaK749Zbbw0iGnTs2DGIhI9Cl8uL+Rz9
yYSkWyEI2GeffaTka5pYM55lYT63ecInnngCF61Xrx59raS6wmYs60qOmKjX
V/UjbOfl5THx7Zxzzlm9ejVviWMQt9k98bw8A/uml/xlgTz52DjvvPNCF2BJ
VigOAZLn3XffDSK2t23bNjB8oD+ntMwPMpA/cLakVAKIfXr7x48fz7meQlN7
pIzM53k2bdqEr0uWLAHnccVu3brp6vJQqUtuQyNnaha5f9GYO++8M8n/2muv
4Rl5S5I5Cmy79NJL+RPbcUrb8tsVMrUP3i/bsEOHDql+csZe0qJs0aIFjscn
jyclsF0ujjV7S6y0EzhXJyQbCEn59sorr0hKZw/gLLmFS+cJNpge1bBhQz0d
e5xusnzzZCUuKENoN2Fjv/32g11DEWQLoVAKYUTAK9BsCMdcz/wsyNI+oBkI
/Prrr4fOuUEJY4NzTj311GS0UhUnm3hOycNyzKHTK7M0wx2y6FP9+vXpALT3
VkLmZ/JqchyZOXMmehyn1YKUlVO0Kno5PqmGNp0WOg9Hgcsuu8y+CwVycLzD
s9t7837+7MjUPmzz0047TVwCtdTsEDgbNmyAdcl2pq/DFsC0r69ckDDhjty2
USu43A033FDkKsFmMXIzaTtWt6chye4wcOBAjmiBqYdQoUi6UB9FJkCwNGjQ
ABswo5YuXWp9a0xt5q3i64QJE1RxlM1iJyKTpcntSqQEYNhj+Gat4zowBKhS
AUWpD6jmDYqXtkhGRXLQdKAH7dnQJEqr2bE9ePBgHN+kSZNt0+fLBbhzRj/i
nS5cuJA3tg3Mt1CozN/+9jc8GlhXu3ZtxSdUNEQz9XE8Wu0IuBlwm3MNeim6
Zz7RCSecwFepKgEK/8t+XYkpy9ukq5hkhzluxIY57bdTCSJY1ZxfkCuATcTI
sbp161LRJdtjlZ04j88ZfAr83GqVVMInTpwYmvTGEjI/lf+cBcbnSSedFETT
SSo3UWlvkMyXcoWrU9tncLhum+VcQmfdMEd48uTJQcQ66ki2B5HVJXlTemSC
VSAC1wXUDskMS8Or9q86VKbrlhcyaS+ZnpRPB7GmBwyiGVgmlVg+sHpS6GIV
rrjiCj4g641kQvnwIDP4Ktu2bYv30q5du6+++ip77bXszJfOjyeFXG3dujVo
g66dMFNpFf1EYrtdKSAROZEY2P/qq6+GznPLWkYU/gyaDSMT+OOPP7bKp0JQ
fvLqnP+18tx29liohl3OI3ADRFrhkMMCiSUkIe6wf//+SpulPFm9erVchUqj
ZpVXCluFHVY+82lZ0xOF25g2bZomHUrL/CJTzASfjz76qF0eK5USFQQrJGOV
GxmcOWrUqFh2vyo2KHibjogePXpoCl4dqoRvSlMngeOtZqut1scGwWFWm+Jv
Ywt85ByxcSFwdbkTkSX17rvvKhaXk7PKHA9duCBa9bPPPuPZ8vLycvo0/ws+
CMQ+nmLs2LFZBH525ivUmV0Ati3eXX5+vkolV87jxNiSMCr3zjvvjA2Y27xh
ZgaR9kUuZyc01jr2LFq0iJPOchZlYT7+ywBylZTBnqOOOgoceOWVV+w0OitG
BiYq+7bbbsMVL7zwQt254kirwsxaau/mXUG43X777Rw9RQO2rWLSbAr23Xff
zajCwEnd3DyPkz/JKHISr6NXr16xch8lZL71bdLC7dmzJ85M7TrV0MsJaK6i
5aWIapCyySx6EDXFpk2bxo8fj46T5f4ltDkFGURi7be//S3TYXCSpUuX8hgO
hTyMAOG3usULDj74YKWaBsWLr1YoMvXomDs3EU0M4REGDBjAYG+tOUIt12rL
iszkcADLl+vmcHHwIKdanESZEkNmzJhRqoi1tJ58PDId+NRwksa7nkOgnTld
OGvWLBtG9aNZLENuZ5VAUSwHRgfogR9nwKeffoqhfMmSJQsXLsT2ihUrYDRx
rGdpXJYR+Pzzz+fMmbNq1SocOXfuXGwoIZqaML7Onz8fJMHZMFJAYcb+xRWP
TzIAN4w7wcZHH32Ew7788kvIAbUSy8Vge/369bb1JAPFEGyjZerWrQtKcMYw
5w6rpCvBzTFo8uTJpZX5W11t5yIXiTpv3jxO5MXERS6fMwLrzVKpi6k3Vm37
sfjCMdT8bd50lvZRwhFtZ6l/NglIgSKqviUlOTalwgSKLBkTFQ3SWBklvHlb
Ekr3GZqhP63HDz3aZiFZblQ+ONzQpdC+fXtI/ssuu6wsUcqcw3rmmWdwwkaN
Gskjncz12iVsZMaKDB8+PDUN2b4jCXwVttWrj7WGiB0a2ov5qgLB9B92H/Ff
ecFbXR31ra6OqA4rSXerUPyYsnpUkYtsV3GnWGptWmLgKTDG0ecvHSCHzJc/
DZ8FBQW4mQkTJpTKny9pqXQzfL3yyiuTUb58YKaWgpyKfT4jg0WHDBlCvqXO
2dkhTFJOzNfQZhmeKaPB9gv+trB4dVM7y2N7mT1hLD+64lCYAfa2dUvqvKQ9
b7goQ7gjz48j33jjjSCaPEq4SY0cMj8w3jZao2PGjNkG5hcVL2Ny+umn41Sd
O3fWVWwXyyGg7UDmgPmhq/RSVHw+IkZpvX0KYT1sUYpYs0L+R1cyWsm/Eu9F
TvNRETBVSuFXmBWqDxA6RSv7gpWVAPvUfATeoV663MKZfovjYbYEkfDhu8i5
21bzkoyuAfO3TduxjTBq1CiQnCa8nYvMuVHDcQ3ML3JzuLEXJPmWifkS8uoj
tiOk7RT6VZExJdIebMVvbDuTTK4E2E5txzjZs4WuaGqWXoPfvvzyy3wFfBe5
FYNJs2Zofn4+vo4bN27bfDuFxii75JJLcEI8o/zAOXfv8NJUwMB8BWrGXpAF
Y2ul6BamMw3S6gyxr2IOOSN7wfI5VajaLpbamyoNsTssNNqXnogHSC9KC/zr
tddeCyJTi2+kKth9QUQM5v+eddZZpWJ+6qvB9iOPPAIlinEL0vBz+6RkPtN/
Ro4cST3Hqh98EOqu1C6oadiqFFmYX96MS3+VykehK4xTaCyd0BQ05h0y35PK
W+qwSIbMnj07cEFiOeeDvQfG6o8dOzbLeyzKoO0UGiUBn+jdrLGgiIVkyjqP
lf+YQWR6sHcXRbRnsf3/OlCrgabNqhR6ZYXGRF3vsCHCRoe1EdZESN1et26d
dtoN7rdHCml3VhzWZwZuEneyatWqFStWrFy5Ek9Nr47y+NiYnNJiM6bVjubM
mRO4jLlMUR+VCZaUD6I4RnyOHj06u/DJpO1sdbM/IM/y5cuZgSj1RpPFFf04
WdynO+ywQ5MmTXBL999/f2gWv9ZadSxLy514jzQt8b5efPHF55577o9//CPE
wuDBg4+JcKzBcccdd0IGHJ8BmY6vahg2bBiGyKFDhx511FGDBg3CngkTJkyZ
MuW+++7785//PH/+fNrjjEzWijZy52L7v279vo8//liUC6rAzGbgCNmuXTuo
KDfeeGOpmB8au0yHQZbShGcOeJCjx7Sz8Db6BR2T9ylHNEdqvqmvv/6a//37
3/9+0UUX4RGSphrDz9wS7ZwEYSRnza7VoGglBRuwMRl9hL4A0/Wbb75hZgcj
vX+Mkm1DVz+NExPoHZCu+Ilim3PYbppNqFWrFuMNHnvssSypuD+p7RS6dUwO
OOAApr0kTMBwJfA/FkVmgXEWOzEYhW4FDQr80FXZCl3dFQj80047TbVf0Dgw
EDp06MBSvS0itIxgt2skWkfYeeed8/PzIRsLCgrwtWPHjm3atMGDkzz169ff
ddddX3nlFXIA6lDo4sDVF6hbsuYSC4OzzFGuoKKU7IYg/4IFC0rlz0/VedjN
r7zySmg4aBNeSNp+JTxUWuaDwHh3EFZ77rmnXTXGusqhyoZRYXO6ufB2WMBf
AR6B8UjELpEp4qu6I/bI3GDMeTJKIWdV6iBSaMENqj1bXQ3h0C2GEkZqz6uv
vorDmJMS5NqxGUR6F4chqKxagauEzN9qStFK/uNz4cKFUKpBHs7ZxcrGViYS
LuAQFvevf/3rW2+9VaoOb1XxtJBO06ZNw62yw4L2jKukbhNLjhYxajzIc5te
oQdnw+It0zGIY2ACKPccGypkyr6wevXqIJIhlLQ5DMBOuERpZm1AUIfF53dK
qO2ExScy+K/evXsH0dQwuVc5s9UJU3tKOymd8AmlnWNxaOJMVA7u008/pb2f
MIqZnWq0bI/RvlIFcSUitXmpu0oUKGGNJetB5hdffJGhm2Hk7aSXWBFKhx12
WBBJlcrx9WV6LvZl8CER1TacNWtW9onyLMwvcu5xidM77rgD7YChrTINGQko
9TJ2OjQ13s4RRxwRGhVUT4ERGfe87777BsUdzrGEcUuG2HalPWAlgx2fbRgr
lEQkopwsHgBDIBEZwosXL7brMlPhof6zZMmSoAw1tEuLLD0a98AbHjlyJFlR
Kn9+kalJSyePegGo1a1btyAyH2x2XiU8rPIpWAeD8dJ40r///e+8QxV5Xrdu
He//uuuuwxtE97eFxBOuGGPgbKKayvzsMj+RzqJJzZqEPtm4cWNmotHdxyrK
bGoaudgJGxnvQvkpFYpkZjBNCRtPPPFEUclqKf/mN78JjT/Hcl5fmWdx9dVX
U/yiQYIU2pSFMJneVMIpKsrjw9dmzZrh65FHHqm5yND5mSmINm3axIk8+Ss8
siNRvKhRLN8fn2+++aac/GAU642QWg899JCd2bSBBGUnRipYuJWXsw5qsAIM
Oemkk3CHHJXkmdcUtiiNO7/pppv23HPPVKpL2rOzazVnRu9QCUz7XOX+pLEa
NbgBLsw6e/bs0GUQMP2WHQE777rrLiquVarKU1VGongtXzEfezp16oTGHDp0
aOjKyaqdC93q3lAbgqjUqi1TkKn0RNnBXDwYcSqQRdrjbv/85z/Tlc1+mon5
OOCGG26gtpMarmMjPTSd8eijj/K6uFba5ypf5vNUmpiuX78+KxqdccYZtv+q
CAarwUDDB+eh9SVN9TOPLIgxX9uMWklEJtLzzz9fFFVYpd2n0RYtP3PmTOYk
1q1bV0vSJ12Bi3L0+Yhy7GKcjBP/yQrlC8fUmxi9oQ+L+Zk0okK3bATPOX78
eF7aMqqM41oWVcfWK2Pi5x577MGn4PS6ymKwh86YMSMwxaBq9oRseSG15dUL
wFuWuWAVcba51ICiaE1kbEycOLFhw4bkP2e1Em7NiPJVOBU5Q7JBGNaKAKUd
dyJLRMs0Z8I111zTs2fPLFawfTrGOq5duxbcCypMkbPQ3ByeFKMMG3bevHlb
oxS/QpdPFBrnbZ8+fXBw9+7dE67iaFUIKakuiPE/iN4ylFsO9FqO3KbnhC6b
gy0fRMxX7ffyLcgQixwDMbQU16xZsyilN27cqJjStGQm26+88sp99tkndJHb
+m/seBmPFPuff/45eEixbxelCoz/JC1K2OD2eD4X5xbxpM8++6yikZkPyzvc
vHmzgsZxGGMbKqccVk2CfU0J517gmkH4POWUU0IXz0BTVwvFQs+EeOTSn9JO
sy8Pt218UB3gIDL6OKZPnTo1dCXlQ2f9ZRLj/Nfll1/ONdxthkUM7BGglkaQ
1atXg/xoFpCfVf7s0hjbwPxMriqerUOHDkFk17AOktbqYpfkglncbt++vVar
CVyZlHIixXaBGPMDpy6iYanDQOyLPBx2FcOMPdOnT5eBwKq/9rRlZ74UbLzW
Ll268JYuvvhi6CGKrwAZKJ/TVtEvcvk4F110EVSXrSZ9u6h4rtzW4uWGGMnD
w/70pz9xlSLwn6sGqIR+JiaX9kkT0SJBHDGnTZum7qzimXo67LngggvUmElX
4i+Z61SC6oUY85Muhi2I6oSjJXv37k2GgGykkCJ5yA0Mu1BKaaDhJ3oL5cIH
/gsDOtPMIQxHjBihCFIKcIZYZCrtUuQSNGC2HH744dZvqakKbdjuEMvQWbVq
FWsqwvbkzajsZFC8EoUNDOYGnbFJl9KbdAXtdTAsJg4reNIXXniBJrZGMdCe
YxDvEMp/EI3LOBiiIIf1vmoSbC/AKwaN0bDjx48X24tciYbYu+CkJ37VMir3
F5uFD4pP+8Z6gWigqRy+Tfpz8vPzA6dH3XLLLWQ7k5KUhackmtAYgJLtFN33
3HPPrrvuGhrd3hrFSk+z/cWmMHMxdK4oEUQxS+jvqvDGeiypJEyY1QpiSEah
aDhAXtN69ep9/PHHoVHeqN6oPgzuZ8uWLY0aNcKFYO/YxRnp0vcyv4yQOIIa
T8pBq2GtOVKdHYEBA9jmZOKpp56KlmdOE0YNKwPpG1GtHsFSgqUCRR7+q1On
TkHUBZo3b/7Xv/5Vl9Y8ptItpajLEpQzFgBpH3300UGDBrFHMABGa7jH+kiM
+XKq4Ff4ivPgMen+Amkhrq07kV3A2sJWx1OgSBBF3bdr1y5wsxVQxtiYha4g
gGYomFdbFMXkH3zwwUE03EiSYBvd0HO+jOASbKIfXgqLyUPCzJ07Fy0POck3
wrKlFLNalPP+++/npBijC9hxxAExP+kKGmgVUastJKOFOKFRcF4AX4877jiu
Bk7Zu9WVVApdRknMq1Nk4pDl5/+f//kfnEoRj5Srmr3SYKHOElN7yElOoaIf
DRkyhPePm8SToiMw0iAw00nUalJrtaE7M8eBQ0a/fv3mz5/POmbs2itWrOBt
fxuBT4RGvvDCC7lMDMVLEOlOsYUeKpId2wXYBQIzRQXzkMQg85kchNdEyc8I
N0pjiC/2HUozzsLb1aakC1l5iD3Qr2BZs/x1EPUU/PYf//iHKM0loqTqSCwX
moRiq8/wX/jETeK07I/QKNRTVBZSPiIp9jGfD39CBYmWxcqVK0eNGhVEmo9q
y0MVadu2LcRFhw4d0PHxRLB98BXiHWobvqpOHTYGDBjwwQcfbHXlm2JR1hyA
0LCcVn7uued4CZw/YZZWUevlvPZXtYbVN1S7Em+WkrxLly6MZ5DM5EvhO+Ka
xaTfF198ceONN3JV9MB546EC4QzgQJs2bSAhQQyIPmzDRgA3km4pXg4Ehxxy
yMyZMzmgAD9GxZxDZ5mKnzHmW1Fv1X5lUDLmAdRFXyCBrXlLpSItlAylPshG
WLNmzZtvvjly5EjNMidNyBl2KlSS7YnP3r17P/zwwxLmMjestkanvSbNp0yZ
Au0I4oj5CDHZzt6UxXXmUULE1G+8Sjofgmj1KKU8M3STHh4JfOoDVKTRF957
7z0MAXQWyfKlGpwont+KbQwNGFlgiq5du5Y0k2URuoKloat8HpPGoXHdkzwi
Kk6rC2kBNf6LQ1is4lxa8Mzsg6n/RSfCUAJL/49//OPEiRPHjx8Pqwc9Gt18
6NChl1122fXXX//EE0+8/fbbH3300VdffSVzSZdWyITM20IXh3/88cdTsWeU
rByqqfDk32ZI4EshV2NyGRFIHpBfbGTeOsu8yAEuwUuSQD/58MMP58yZ88or
r0yaNAkdYfDgwbvssgvk/8CBAydMmABWPPnkk2+88cbChQuXLVumybLQ6C3y
ZisjyRJS28ypKYqKb7CPsDJDYFQsTnq2bNly3bp1fBDcvyqxZCF/LEDCemD4
Q870/dctHwySQ5mB0o7zy5VqrRKe0OpRWuGRQRT4FTQizmJAfdKMoVTQ2Dvy
k1llQWq8GZ2QaHNm4EJZhYX12WefbXUrxxW6ulXW4akJX6t1g5nYifeLn6M7
fP3116x9ZGV16MxMMc1WjA8zhx8UuoBS3gkuN2LECD1CUDxfA2A8qk6upRbS
QgNKbGemI63LSOWe8KSFJlK00NQB44iGPsIcQ2yjfSBtqDLRtauVbiqPDds9
5JOnE4+y5e67745Nnv5oqvSrX6hKBr0oaSkUuiLPP5razjEuZfqhQHapsB7E
ZpBiRGsqgZ4ZiGXq24WZ69JnZz79q6Hr6aonXGhyBmOPw2bRYVroTTeAf115
5ZVBJNsTUQwhF8ILii+Y61EJUFNDHaoXgUr7aaedBmM2dEtrSS0vMqsS2NnV
wpTS1oVuaYMfzYobW906HdmJl0pC0hiSE4o36/AExVW4n5llB4NIhWNfk+WS
5fxZ+kJh8fLd6vga/lgagvas5uBiIxd/8uCDD8LY4bq0nDWQaRw4O8X7cCoN
VJLtdLzWUOvUqdM111wjVUGCXUxm3COtAOt4LzL1zeRIDJ13KK3Yz0LIQlca
nZ+33XYba4jFXH8KD4O2r0k69pcfU1bZKCHzSWxNHHCKudCF+ksH0/k1Lqh3
s18899xzUMA4b44GRwszDk0xcoHnfI7wqwgcbTEEgzx8EXXq1OnduzfIhnfK
tXRDN/mi7iCqS1ePifqi4sWBMzEwLfd0QvYvEC+IYqcTLnCd9x+LCGISGbZt
vys5eHVpO+oCdhCRP0rRQRIR6G60a1atWvXCCy/89re/lYXFOEzdcGy6ypO/
MmFDhQOTFcVUOO057LDDnn/++ffee0+172JrEoWmvoEYm7q0AY/JFISWifkK
tjz33HNlBtqKEzYqSQdgY9KkSQobsHO42VUsdWTrXy00gXD2SCk5ZD7+C2sX
Zv6UKVOg23A8pXrTpEkTpqUEZoVNNb6nfU5A2zZpFsgmYIhxopbjMt7d9ddf
P3PmzK+++kolYkhvLT0TGs+GVXKskRtbE8cSST/Xb6Vab968mXdFT07aUEaF
TCi3N3Sz0qomHZvMzcR8SnU6ZH50q+3Ihwkrmx4tYPXq1WvWrMHnrFmzJkyY
AMFuY7BbtmwJwiukIXBlq+3dBsZJVSEv2CMFsaAsuwcyU9FTrVu3tvU2YT+e
eOKJTz/9NKxgvPEvv/wShicddyr8vtVUEihyU6VWBcok6n90yzkVmbg17Bw0
aFAiyouk8qBA0KC4zJfZgm302WHDhskq0QJ/sdtLy3w7tyWNix1w3rx5kydP
njhx4oABA3bffXfmLFNjV39s3rw510NRUg+3dYyEfNrBy6NyIPVYjkHt4dwK
X02DBg2YK4T/oiPofYFge++9d79+/YYMGQKj+NVXX125cqU8kHa9KsUGp8pb
7tnq1qOUn4SUe+SRR3gt6WNB5vkdzofyAGyDw6CrTBKm4YQuJS0T8zmoqatS
zbvooouoTSVcuTONPthTv359qIgtWrRQbL+vmVDt8DNXld0aj0rBqFevHt4v
xBr4TzNN/1LS+sknn7xixYrQFcpjJGToFuDO7s+hkci+Qwa2atWKYXKJ4hUm
U+/cxqNyg3WobNf7r1vXdWu6GlbyTXHimL9avHgxZTift1mzZt26dYMcQDug
NVKLXqq5suTmeFRBWD9hKvkp8TReQ7LlR4CK26ZNG+ixDIfDfmhElK6MGUsl
eYxyysiWCxQ488wz7QS0PIFp+aMjKXips3344YfocVkyVlKZD/2NXQ/jBbpw
165dE1HBRjxjbLJVJqrtifRbpjagZ34Vh3gee3epEbN0BAVGWWJBclXbgP5D
RnESn6HFWWQ+J4W5wWQBZUglTQWtLM4Q/JdhqAp9RK9UkqOCMcIMVZqLTGgl
RwdI+KC47a9LBC7qNYgkQNrK3p751Qup5Nd+yjfNxQSmLFLghC3o2rlzZ6oc
n3/+ua1km13m08hV7MHhhx8eOHWaocLZmc9wZd2tohpmzJjBaDH5YzPFcNqZ
OEj+888/n86ZwBSds1Hfgm4pVtrdM7/aIfVlxbbFQL1KW5YT/+UCH+gCkN70
lmRxp9udLEoArrLssCWz7ZKp9xyjnFy12B+6jLPsE2pFpg7n/Pnz2ZVaRsts
sadbka4kWctnyoQsAt8zv+oj9rJi4TE2YEaCjtsJ4x2CqHzhhRdCk6+Rhflc
bp57unfvnlpbzxIvy21bCRxE5GdZcl6IM1xZvJq8k2uvvZZLF+Ep1KkTKdFl
sV5Z1kb3qEr4yXeq7CFRDqSFCtS4cWOIzSFDhqxcuTKteLc7yXkQD8IZmjZt
SUsz2++y36eNbdD9KPwydCmKmZhPE3vEiBG4+Y4dOyZMdSxdK5aAozsMivug
PKo1rPIQZM6bSBT36QXOu9iiRYtPPvlE8V1ZZP6GDRtoeBYUFARZxWmppCs6
ArrhwIED7aKoum6myQV02CBKHvHRBR6lBZQEZqm//PLLCrwMTbSbAiNDFwiE
7VmzZgWRTzJRfpVs2VO44KAV/qkCXzm/Q4cODaKlteS/Kpc78ajxoD1IdeXF
F19UoGNYPMUjdFHQipBRZRJslIvmzNgkiP3WrVuzi8ljn0p+yfxhw4bhJyz7
md2V6uGRChL4n//8py3gFrMubZznhAkT5I1PuBU8ywVMDLnzzjvTCnzLfPbB
s846C8dT7/J6u0fJwVQvsLd58+axCntWtw+NRwW2LcuyBY6o5XInWkk2iMpd
hukSFSXqVc/ngQceSEZrdzJ+yfttPGLI4rWmkjxu3Dgo2EWmCk1ovCj8yujf
k046ySoVCbMUZhlRt27dIJpiQ28aM2aMBppY0LJUfYxNn332WefOndETYaEH
PoreIwVZpmwovaHqcNqUATy2bJTIz3o+5LlSs8tL0iqaInAFuinwFT5qEwqK
opws3tuFF16I48F8r+14pCIT7du2bRtEWY3Lly+XYKfkt+ySg71v374JExcX
lJ87RbHEJDDsjt13312qvnKvbCQnb4mrVu0QwWs7HjFkYn6DBg1A+wsuuMDW
sApdDR+Vu6T4xb8CkxGjNNVyIb/CGOilUcYW60dxaUJF8nDSgZ+ffvppr169
cA/sxUHxSWQ/EGznsBHLitfVGnDLli1TfVc5dhh4D7azqgm2oYcnDWL2QhkR
W/CIfapr165bXdVo1cZRXSzeIcg/adIk3A96cSIlZ9aPAts5FL1jJ3nz8/Mh
Ktu1a8eCmcpyko6hgQAb8+bNyxTNXo73qfLmKtm9YsWKHyLw9mh60Azn+oy4
8zfffJPKkvJudMKKuEmP6oukW1oRnw8++CBnqWwpNtWG5YJ0YBcdL5m0pnK5
pdQVLvC1oKAAPGcAs5ZjDk0iPBSzDRs2HHvssejdWrgtcKa3p70HkXCBu8pY
D92S66Ep+sRiHZrPuuSSS1QxO+EikDX/W766NPV8Jo6xIzz11FO8Dbn37aQD
B6bp06cHUSayjdgsx7vyqKZQuLL2tGjRAqoFc2BJeNUltilR3NavJEWTxVEu
NxnLJUm6stK4T7n0mfzOJBp+0tRduHAha/Xn5eXphzyPr4e5PSORErLOEM0n
n3yShJfPnCoEC/JTtejfv79deKXioFTB2PLrwPXXX29Xyw1NKgFdTxs3brzs
ssswkDVq1MhODdBY9jNc2zMSJj6Z4rFOnToqSBULiZc6/f333yddqZPKub1Y
TDXTtXbYYQcNSSqbz5tUmswHH3wQRAsd8rckfNIvVrt9g0ko+tqpUycw6uij
jw6LLyAi8itKf7/99pPtWUH+nJ8EM3xHjhypOoSkutYo1+wzB7Kdd95ZefcJ
k4zmsR2Cqk7CVRKjOvH2229Lnw9NTJrWH5k6daoC0rKslVOhSERFdPkI9OEr
U0BOV5VimDhxIsgPhcc+eOXfs0eVQtJVG2N9+zZt2oQGqnUg/wkI1rJlSzFf
1VYrGaQ9+13Pnj1VnISjkpw8NFI+//xz/SppqqulrkfjsZ1AueesOgVWTJo0
ibIdUtRajhSqYNS5555LDdlW8szJzSsiGp8LFiywi2qpFCGrMeBfPXr0AM/R
Z2XVqlSsx3aIpFscmSYkVALYg2HxxUpUP40iFLaAbENyPifMj6lYu+yyS2iW
k5afRwPWyy+/HESTdCq364tneoDz4DM2+vbta9NPVDBQi5gcdthhpL1dWDwn
er6mzxQgd//998vvJOXHZpNpFWCJfa/tbLfQ3BNZ8fjjj1vCQL1RZbPQxWQG
6ZYozQlUe5lo0qSJVtfi7DN1Hm4Al156KYYnTlJ7T/52Dgq9rl27Qs/p3r27
XUaNK2aGZj2dzp07ByZsOCieNlLJSJgsAMn/M8880zp2qOrwcbhgBH/VsGHD
RMqiPx7bG7gUCPh80003cVEtJZUzD5G9ACySPq8MlNxKzli8BJPfpaGxIKEt
6Y+vI0eOZAGfwC39kBoL54eDmoSkqx8r/UQhAXRRFhQU0IFJUamsQy1KTkOg
qsFOopH8e+65py22b8eswmjp5yDy6jRo0MC69D3hazDSvlkuoQLanH322aFJ
ZZUzh7btsmXLgipmD1qBb8kPkc6qthT433zzDTbWrFnD8AY82rnnnhu4kU6B
QLEQOx/JVpNg61VKV2/RogWU3j322AOCkYTXgoZaEg4sqlOnTlVTiW0stN1O
RCsihSboSGu+hC4Sgz/v0KEDTyWeJ7OubeFRTaFJK7ruAfCZqvs999wTmuB2
kp/LUWHPddddpx/m+BkM0mYEMBQHavwzzzxj2S61h/kF1157rRYLiJ2TG17z
qTFIuFrikmkY7hl4cMghhzD2WA58RfmynAjLRlUp2lvoiexYVr9+fT6O+rJd
9mjlypXNmzdHr995550VcapBLeeWu0c5gq/Svty6detC4mFj1qxZislUZG/o
onyPP/54qfdVSs9PCyu0J06cSCN348aNSiiTt//ee+8NonSVevXqcbyQNljV
9DqPMkIWHD45oYPXPXbsWDAc8lCB93TssKKOpq6gP6RdwTmHSBsaTXHNEQpd
W0u9b9myRX2Z26wRhJ8UFBTYhW5ZQTpXD+VREZDEBo1h1TJq8a233gpdPeQw
WgZXhdTAjR49ethZqmokDNkj+vXrJxWOkxRc+Yifr732GotQQfJT28nhxJxH
BUErLGsJe6g6t9xyS+iWoIJ41IKbID8EIz55JGRgLDizKkNzu6wgpLg1OqmU
SsyiDcceeywOg7ZvS2P5SLaaBJt8B0nODdWMUuKJahGjIzRr1gwsAu2rXRKH
Rjfcf/v27WmtU8nHw7IjsJsvWrSIPYWV9rVyYlVT7TzKCHlpYNY98MADIABF
HyU8JT+dmdgfuMI7QZR+go5TLfjAPo47F/9ltqsioiZ5sQeGMH6ihdeD3GWZ
eVQEMIKTCR07dmRtfAg9rbwDeYhtmn7kPyvyxUo8VRc+JMyyp3hwDFvq3Ta/
kgMB+gXaBIfZRdKrRR/3KDkaNWpE1WXOnDmKZmSUGl2aLNPx9NNPByYaU9ND
1YX5IjC0Fz7vsmXLtD57WLw4AyTAlClTaO8rEq+6PKmHkMgAxvHWr18fTOjX
r59Ss/lJzsu8pcYbpCtEmbsnKx3szB0+69atq+g7Snsbjw3yt2nTBsd369Yt
qA7TFh6pyMT8IErcoDCcO3duaDLKaesxjwlK/ujRoyknNW+rpa+qBbTGBFU1
jlbYc/XVV+thGaFE04Z9f+rUqSxUzs9q4cXysEhmAAjAUksTJkzAG//uu+9U
A59yjwoA9gQpFTkSxRdorvpIFC8NzTg0kFmLHDFoX0EaVHuGDh2KB2/YsCF/
aDu7j2eoFqC8slILb61169Z8lZ988glFPfT50KUZggNUBnr06MEl1XJ292VG
LHRZAZz410EHHaQAVEp7QJEbLMWGDg5rSN08VnqxWrdMzQb1c83FcMTne+Sq
mjavVlP5jG+ZN28e+0u1VnQVt8wuQPM84Zb9UugOHfuycykHTj/9dLQV66Lb
LsPzVCMzZ/sE31cyKjXMLtCqVSt648VzWrh05qsoWfv27YNqpdWkBWuMK3TT
5hviX/3797fxeJq2Y8zGypUreRiGyLQn9zK/ykISXqB6j7fJohzQ8O3qJyrQ
8dhjj2mkqHaTthZWP4nlGGIsw6A2ffp0cl7zFyqfu3bt2rvvvps/kdaXNCUm
qnXL1GwoGpnVVkH4rl274n01a9aM01UMTiP5bUxy7dq1k1Htker+crNMvfHR
OnToINcWo9dsVBv20APWtGlTuXZZjKtyn8OjdJBmS5+k1od65plnWBuQrgzl
aOCNQ/SdeeaZ/Hk18l6WBGI+ZzQCV1MOA1wYZWypGpv6wubNm6dNm8bDtDgL
IQepRxWE1WmDKFYBGwceeCCjcaTb2CKx6BGsRc8wTrzcmsH/mE/Grqubl5en
FHW7nrvkP9qtXgSlK9LPn5sn8SgBkqYSDhe+x/uaN2+eHBqW8DR10S/sD2sG
7VOBR1NYGrYvuOACrfkoT5fqk8ydO5dZWlxfgJ3IRrV55ApZ4gqUUkp5NWrU
KM5dsqIIx3eM6ay2vXr16sAYbhzlK/VJKgt6Ltq5QbQEHiMZQld+nGuBMWFh
wIABOIah2kE1nM6rqYjZbvqqdZMLCgrA5x49evzrX//imrYc0yH5OYPPne3a
taPPH3yw+kDlP1ElwFbBxcMOGTJk48aNdHPZBU/ZEb744gsIeVi7uVogwKNU
UPIUbdtx48bZhTKtMwc7lyxZEpjKG1x2KqihXmutDqMlJ/C5atUqVZPTXDYD
G4CBAwcG0WKRCbe0UE2VCTUD4O0uu+zC6Rg7oGutTE7ZYE+dCIFZLtCyooYh
dWIL2507d2YFTto+EPta+Zc6IYxcHFa/fn0tpJglJtCjEpBJ2wmiQsFBxP+b
b75Z87N4p8pD4Zu96aab7FpXgYlyrJHMF2ILwz3wwAOUD2wWJWbSOLryyitr
RQhM8Jtnfg5hW9s2Pl06oHS/fv0ovrhEoAJ05cFgyknqnG/Npr3lPA0cSHWK
enm91q5dGxpQPuy11142LsIzP1dIFi+jqq+NGjXioDxjxgy9O9XWY/0BbPzu
d78LDMkl560fo4ZBM1kJU3ifuPbaa6nb21zFLVu24Cs6BYZOyHyVLvTMzy0s
2xWEn4giEoHhw4dTvZHA50vkNC4FvpaLEgfk26mRFm4m8HlFeLab4tk4Pnbt
2pWF1lWNKjDDbiyS2aOioYFbQqxp06bMJ/3www+VV84SalLvscGcOy+piERk
1w8YMIDWEONXFdhAQfHaa68xdKdVq1b81a9+9SvlQfg1FisT1NK5TbeDKkOe
d955isnhBl12eJvYWLp0qaoq1WyVvoRIuIA0yXml61Lgc3pr2LBhOLhBgwaM
3g+K64Se/JUJUp3tD6nFHOqePXsuX75cbw1WLaW9FhBhSAOO97SPoXv37mHx
RC1O7FL/mTt3Llu4YcOGCmC2FZg9KgeajtTGTjvtBDK/9NJLmzdvZkwmhZVy
rsH/adOmBW4en1Fqubr/qgNVFASfv/zyy9AtrcWBktWouOfOO+9Eo9WOAJtX
PjEOuDl9iO0ItMsSLpiE2H///ZltoXWc+crkps7Ly5NhG1STOpmVAOktjRs3
1uLRmgphyAfVntGjR6OnKHQNbc5gfs/8SoM4j42WLVsGUQHAr7/+WrSntJfg
Av8ff/xxyjcItxo8V1taWHcNtt9++23Jiu8iyNUPwEqCkQtVPz8/n7o9Pz3z
Kw3yPXJlQ3xlkh1fk9aAoPiiwA9cheHA5xkVh9ZFDdxy0lQOWZiFwWzK1aXG
iAZs27atTC0vQyoNLAXAqJt69eqddtppkvax6go02W688cbAFVWwS8Xl8BGq
CERa6DD09D7//PNcYEsKj9KWuXHppZdy3qRFixYxJV/btpETKaEmvuVLCDu1
ZJ2ZjL869NBDaYiJ8PxknDk1VXs2O/lVqY9RhcGhkG2LLmCjF7S+AASISnFe
c801CVd+XFFwspsylesRPPNLArUnhVIQ6Zas9I6vGJ35gjgFozwLvC9mXWHI
Puyww+w8r59zj4G6H7dJ2hEjRkBcbNiwQVMhaljZv2eeeSY5zxIlnBa3oRHe
51MWKGDeGmJy4zdt2nT58uWKuucaEJyrVbngt956ixUV7NKxnvmCynDxazJa
RAwbyt/huooK9sN+fkW/GDt2bOCiBDVqWJ3f6/9lBEUHq0XRM4N2hoX10Ucf
UZmhhJfMV5FMCKtmzZoFJp4zWRy5frLcI+Fy0CxL0c59+vRRpB9bla4zW7wC
n0cccQRFPcivlZh0Tt/CP4lMEYASQXQj4Gv9+vX5+cEHH1AQsTJe6JY1tGL/
vvvuS13s2Ov5MVgtPRnVpuP+d955ByLFllyWA0EzJmjt/v37o5GZCsTW1gwv
z+MDO7MgE/PJUuo8+fn52EB7Nm/efPXq1SwkwnUfRHuVk+LO7PEk/hUEZkbb
7qRauNtuu3EenPUZlN2jBC59HTduHH4CGQX9E6eS61hRzXac9eS3yER7HQDd
hu3WuXPnlStXkvbKm7Ns5+vYsmULXgfLrPl2zg4ZpHaFRMrtZ599NnSpDSzS
Epocn9DluAHXX3894zbxwwYNGmiGyzM/O7LL/IKCAor93/3ud3Q1hC7BVms/
KYGUMcnY0CCeqZ19+2cBK6oBoatNFOO8YnvYKbDx4osv1q1blx2na9euQTSU
WMmjDAi+FNv+abtDVe4jmTS3hEmVsjv1KSdwwsQhSCzIRdCkSZO8vDy21a23
3sqJRUoe5tAppJbCh75NAAaaLup9a9sGvoILL7yQbStvj5ivfE8FPCxbtmzE
iBE0dfFOtQ4FhoBatWrRz2lN6exZLVWc+aU6PpYJZbOhtVhz4AqAcH48EUXm
vPHGG1a8x2LvrbYDLF++nA5/P7aWBckoSbl+/fry5DACUCUsuHywVhql5bt+
/fpHHnmERRrR8p06dWK6UGBcPbGBmN2hZrymmLoSE/5aaF6jgJztVBRZyj6I
5hZHjRrFuCm2PEGGK3WUIy+tsNAF4bOd5WrzKBVsUOuJJ57ImVxpmLYapyQS
jS+lv+FXOhV9y8zn5U6r9uuiNUBMZbp/27VBcjav9Sc3atSI/QIaY5cuXV56
6SW2M3nOqMvQLOodmoo6/HzqqadUHpb1pnwF4G1Awq2+EUTLjK5atWrLli1S
dfRSLPOV0rJ27Vq8HQgoKD+77747TkLPT+PGjSn/Y66khFnVqLoz38LaAlbr
pkxWFFnHjh2DqDtgu0GDBtOnT1d0PTZUAUZLm6k4GD0PoYskp8Pf3oDX87cN
9CGz9fr16yffjhaSFvPp/NRkutadZIE7aKr7779/0tS5oqeO/k8WM7GsSB0F
qmx3yOST0TLKsTun34APi0aoU6cOt7EBlf6ZZ56RA0e5hIxJkzKPJrXBacoe
/ctf/hK4EQdjK+sAV9l2q8rQnFTClZ675pprpFjSsFIdWsl/JjuHLplLnmd8
Llq0aOTIkRiFORePT4zv+fn5qtuZdGsfSHBZbTlX7ZAJqWy39xmzYsBDDqAY
+EB4PLU6ONp5v/32e+GFF9atW0fOk/a2KiZhp85xAIZgyHmmYkEXxZmVeJJ0
q97komFqAhQrReUE1hPrbUoKQb2RqWVHAalDtAVoAnOk/uCDD+6777599903
cNG2iSjavHXr1qAEzAEtbxdU7ajaVM4TdoU+bED8NmnSBE/XMkIQ6d58HCg5
t99++8svvywxTsh1nOq94QYdC3ZBZ9jCgdFtlGbu46a2ASKbcg9B1LPOOkvO
BL0XOXZEeNFe4bKqdISvkF0bN258//33p06dOnjwYM7RJ1yQJ66CsaCgoKBN
mzYgTLt27dDjINCkP1i5Ksd4bGhIZghKzDL6JzPH8cYumvY89EZCzLZq1Qo3
jDtv3749O3JgVtvED6H43XzzzXPmzFmyZAkbDW1CAaJGkxklqlvXAVpS5aQo
T9Lev1d1tg1W9gbu3aEX2NU3vo0g34I1e2UOUCkKXfUS/kuL0+Hn8+fPnzVr
1uOPP3755ZcPHDiwadOmkle2CBgX6kV3QF/A6IBPsAvUat68Of0YgbGU7dxx
7EGSGaAHTxSv2ifSokvi8TE8wU7HbXTo0AHc7hABwpxTeFIzFPuKe9ttt92g
5j322GOwdxYsWLB06VKlCio4xDonrX/eFjvlNouKaIwA8w877LAgXe01T/6y
AMKW7h1OjmCjf//+mk+RSSs/c0w1lfBXPq8KwuAn7DWUYPwvWAF6PPvssw8/
/PDdd9/9+9///sQTT9x7771BclBIMXWaHaANTmUJPISwBQmxwX7RKgI22kTg
npYZYA9GzyKr8dm1a1fuwVeWMrOTsKIWNho0aNC9e/chQ4ZcdtllUGPwCNDe
Z86c+c4776xcuVKqIEkrRz3NWLrC2AXkqNRCJ1LvQ7PSAVVN/MqOhlbpivkK
PEoISS15njU5FZpMZyVqpUITXop5o8M/jAxhLdGlZRk5glsPErZhuy1evPhv
f/sbZOYdd9xx/fXXw9C++OKLhw0bBsNw9913B9k0ZUN/Ea0SK3iJtGq5pYrl
SWwskDce9IYMh50ydOjQM888c+LEiZMmTbr33nsfeuih6dOnv/vuu6tXrwYh
SUs+rDiPp9YC9GC+ttmYDE7QQFnoEBY3mmIyh1EiVs7bh/LM3wYkTbhyYLKB
gL59+4bOzoqJershkRW6mLfQpctxJzYUAke3how7TZnxq+wIdhBqvFCZvvji
i48++giUe+SRR6Av3XLLLeedd96ECRPQNU455ZThw4dDAg8aNOjoo48+5phj
Bkc4OgOOioCDQWkoJ2PHjsV5zj///AsvvPDaa6+9//770fWefvrp2bNnY2Ba
vnx5rMPK5JR2F7pEZkU9qY69pqVCVxhHZ5ABFRbXHm2Zdx4A8qO7Bc6e1QDk
Vf2yg8LThm5q8j2MNEzLTzn57SSvNdZCE+TP8T0sPiOpmMO082WWDxpW+Fv5
RjSnZscdpWzEzJBUyFq3Tip7RdFSZLY3Jks/LXWt90bb7AL2DtmAuoqkB4dC
NTX3Y7BLmuA3C8/5bYZ1iMUcHUE06OudYnyXmab3aN+gdXjGBGBoxg6N8mJI
zJtnBxF1E5kYlqKSwz/J9hhs/5VJHrsr3YB+EjtAcxz2qS3nbchB6Dqs/aq1
a5n4TCWHV2GuEHDnnXcGPjinAkC2W4VHui7nnqZMmUKVI3TBbJS9MfJb3sa2
NVljdfswZWrA0jLVd8RtKw+tb8Qemb0XkOdWxYpBSrjlc0y8FxbPE7EDTWww
SnuhIhMNFbpkK3Zt5QGFkWcM2zbSO7VaoJf5FQFODqJTQDnna6LqrpcLFVTO
57REKpUc3h6Q2iuLolVOaPJzSKW0J//333//wMkiTY15VCioBdWuXRut3a1b
N07phk5ua1HdQhdPUlp9Y/tEWjOE0t4aL5T2kyZNsnMNfpHiyketWrXGjh1L
pUUKjEJ3iqIAQs/87Ijpb6mqDsXIhg0b+K9HH32UYoevgHq+X56+clCvXr3A
LC42e/ZsqaN0tuBTrsuffN3bOVKZX2TmapXyyf9C5lvPgzdvKxM0pmT5MtJ4
6tSpoavAJi+c9Vrb15rJgPUoKg6m1irfavHixXl5edRw7PLETNfNISW2K2iF
UImgxx57TGvwrV+/nq9Siy1ab6FnvoUax0oGmrTU8DkEoBekqjQ+8aQyobis
wCRNc658+PDhGruZMRQ6F+VWA898iyKX0WxnchnIJH/mypUrGZWnWVr7FgK/
BkplQfO5QUR7W0OgW7duVE2p59tYxNhkZa4ZV1VAJxinQthcioliRPe4ceMS
LpNRDkxNrPsQhZyDaSZMtnr88ccZ0GIncYrcChR8xbF5KG5U0x5hlfPsR9oY
Bh5PHV4SXuUcv/32WxzMZVjr1atHY9arN1UZNH779++viRjOwjOkNiw+RWvD
m2u8CqRCx4rTpgTg+KjoI1hJW7ZsGT9+PKOklCDgswurJpJRcUJbpROq6cUX
X2zfu80klRUQmsnf2BR/DYDGAptdFRYPztHBrI38xBNPtGzZUuIdTaoKGF6x
qZqQdAqcFQAx1bFjxylTpjAImc4fVcYLiwfzhNVW2ykJYgFLijINo7h9AM0C
Defoo49W67GKuJ+ireLQyhGKpEq6WuLYOOOMM7jYLkEtSPHJqTFmNRLy3vAr
VR2l8J9yyil2ZortqVJUkiS5ebseWWETwAMjrPBCE1Fl1OHDh7/99tvKJ4p5
OCUV0yIXVP0JpL1PGx1t71zxqGHUBdjryfl77rkHmqEWr4mlFat5fcG0qgy7
srzSZvmVggtSa8SIETDiqP+sXLlScVmqsJQWVbBHxNieOnNhEUa6Def4lIn5
5JNPok2o1YDYmplNTY6ITZ17VB2kre8hnSc2HABDhgxR7qHKwlvnfwxVlvkx
wsdu+78GoVm784477igoKGBTUMhrNsquO5NMqaNSwa/Ro9xgs6Htu+MQcNBB
B73//vskEjOyi8wsMGcElKkdy0PR8QqHLjT1l7LTNW2vsTu1rckIu1P3Y31T
Sksh4bmgpLoG7Rp09lNPPZWl/xTyFzjFhlUUfOZ4zUCsFEAsOZoFmurVqwcZ
WOQKNcjzzzKqoUnrVsqSlusqNKuHqF9sm3c0LfPTIqaxi+H8FWMP2Au4EDnu
Fof17t3bFq0KHOHtnljNB4/qi1hxD0t7mXIqKb/33nvPnTt3q1mHtCgKWSSj
tkY5vBShcoNT4FtP6TZ7ijIx32o1or0u96OrY0/tnTcmv+UXX3xx9dVXS7ZT
pVekH2dAYjOzUhE9qjUyCXzJfIW9Bc6CAxkOPfTQLVu2aK6zMCrLQ+kqssVq
rsqKLF/9X8llguInyXZ2UpVlwDjFPnLOOeewKGLgVspg5mDgFlGy7ZNIt8yE
R7VGpsIvclOQA/pqj2RpvhkzZti07kKz5HGRqVVlkUXsl8U0tkp+kUl1V3o4
+H/EEUfk5eXx/lNLvNq47lq1alk9P2mqrHvUYNCDgTeeOkdpI3KFBg0ajBkz
xs5/cUSwbFQJoDDzvEAW2K6hbU4/McZGF+IosHHjRk5J3HPPPT169ACNWSM9
KL64sPivJ8VYYBcL1jP6ClHbD1Ir+aT9bzIqG8gDdtppp+7du/fr1+8vf/mL
tP1CU7FKgaBpYeltHZKFxWs9xXR79LKtpvbO6tWrTzvttAMOOKB169a21rR9
EBmqqluYyufUpSU882sSUjX8hCt6HJiZylgxN22LBpSZSoSB5MRhjRs3Ligo
OPDAA0eNGvWvf/1r7dq11peYiflh8VLPqg0l/5K2ocksWbLk9ttvHzlyZJ8+
fdq0aZOfnx8Yf7uGLbvcoV3/NG2bpF0Rz3PeIxVpuw8hwxAb0DfAzM6dO/fq
1atTp04Qy7A0zzjjjCOPPPKKK6746KOP1kZYs2bNunXrNm3atGHDhqVLly5Y
sODkk08eN27c6NGjDz/8cDC8d+/eMDFatGgBpZ2GasJ54CmoSXL8q27dus2b
N48lSXlkx/8DJSS3HQ==
       "], {{0, 198.75}, {190.5, 0}}, {0, 255},
       ColorFunction->RGBColor,
       ImageResolution->{96, 96}],
      BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
      Selectable->False],
     DefaultBaseStyle->"ImageGraphics",
     ImageSize->{156.62500000000006`, Automatic},
     ImageSizeRaw->{190.5, 198.75},
     PlotRange->{{0, 190.5}, {0, 198.75}}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.8238641486701355`*^9, 3.8238641572929277`*^9}, {
  3.82386421680319*^9, 3.8238642494454126`*^9}, {3.8238670608469305`*^9, 
  3.823867099814166*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"34a59485-23f5-4ee3-a855-e52561f62e95"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"boundary", " ", "representation"}], ",", " ", "scaling", ",", 
    " ", 
    RowBox[{"and", " ", "rotation"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"imsh", "=", 
     RowBox[{"ImageMesh", "[", 
      RowBox[{"image", ",", 
       RowBox[{"Method", "->", "\"\<LinearSeparable\>\""}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"pz", ",", "py"}], "}"}], "=", 
     RowBox[{"ImageDimensions", "[", "image", "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"imsh", " ", "=", 
     RowBox[{"Scale", "[", 
      RowBox[{"imsh", ",", 
       RowBox[{
        RowBox[{"b", "/", "pz"}], " ", "/.", "mea"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"imsh", " ", "=", 
     RowBox[{"Rotate", "[", 
      RowBox[{"imsh", ",", "Pi"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"imsh", ",", 
     RowBox[{"Axes", " ", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<z[mm]\>\"", ",", "\"\<y[mm]\>\""}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{
  3.789990771931593*^9, {3.789991270900275*^9, 3.7899912756531873`*^9}, {
   3.7899920313319263`*^9, 3.7899920413808193`*^9}, {3.789992073037743*^9, 
   3.7899920781692677`*^9}, {3.7899922911580153`*^9, 3.7899923568627253`*^9}, 
   3.7899923891825886`*^9, {3.789992487581474*^9, 3.7899924887798305`*^9}, {
   3.7899926050501366`*^9, 3.789992616202428*^9}, {3.789993563057398*^9, 
   3.7899935750248585`*^9}, {3.7899936214498806`*^9, 3.789993621791483*^9}, {
   3.789993680860732*^9, 3.789993681363346*^9}, {3.7901409947622285`*^9, 
   3.7901409986047797`*^9}, {3.790141151160098*^9, 3.7901411542129555`*^9}, 
   3.790141271173168*^9, 3.790141351367922*^9, {3.7901414118830147`*^9, 
   3.790141421855527*^9}, {3.7901420934008427`*^9, 3.790142105257502*^9}, {
   3.7901435825461645`*^9, 3.7901436179137087`*^9}, {3.7901437392555866`*^9, 
   3.7901437828738427`*^9}, {3.790143818088942*^9, 3.790143966559896*^9}, {
   3.790144076128025*^9, 3.7901441263177047`*^9}, {3.790144292447444*^9, 
   3.790144372939275*^9}, {3.7901444075368247`*^9, 3.7901444723414755`*^9}, {
   3.790144549552343*^9, 3.790144616111423*^9}, {3.7901447213161116`*^9, 
   3.7901447358313885`*^9}, {3.790144826649037*^9, 3.7901448380355873`*^9}, {
   3.790145004351389*^9, 3.79014502782971*^9}, {3.790145114685472*^9, 
   3.790145147831722*^9}, {3.790145230832641*^9, 3.790145238511897*^9}, {
   3.7901453259222684`*^9, 3.7901453379618773`*^9}, {3.790145369681957*^9, 
   3.790145370283457*^9}, {3.7901454031991043`*^9, 3.7901456277553873`*^9}, {
   3.7901521249779887`*^9, 3.790152190459159*^9}, {3.790152236658417*^9, 
   3.79015223864093*^9}, {3.790152307016969*^9, 3.7901523234293633`*^9}, 
   3.7901524050625334`*^9, {3.7901524415071363`*^9, 3.79015269426033*^9}, {
   3.790152807634059*^9, 3.790152817261935*^9}, {3.7901528554624224`*^9, 
   3.7901528858080215`*^9}, {3.790153141730174*^9, 3.7901531535572443`*^9}, {
   3.790153188474972*^9, 3.790153192680236*^9}, {3.790153358618696*^9, 
   3.790153400139406*^9}, {3.7901539871700163`*^9, 3.790153999783196*^9}, {
   3.7901541099751797`*^9, 3.7901541161154127`*^9}, {3.790154260790578*^9, 
   3.7901542641914725`*^9}, {3.790154508349752*^9, 3.7901545430618567`*^9}, {
   3.7901546656794777`*^9, 3.790154692749649*^9}, {3.79015474725464*^9, 
   3.79015474861399*^9}, {3.790155348163481*^9, 3.790155354119897*^9}, {
   3.7901554021312866`*^9, 3.7901554023185997`*^9}, 3.7901554768507185`*^9, {
   3.7901591034104004`*^9, 3.790159116797395*^9}, {3.790159200722864*^9, 
   3.7901592071551275`*^9}, {3.790159238103673*^9, 3.7901592429996543`*^9}, {
   3.79015929714254*^9, 3.7901593286908884`*^9}, 3.7901594490744734`*^9, {
   3.790159531667585*^9, 3.7901595325682364`*^9}, {3.7901596972965384`*^9, 
   3.790159705347771*^9}, {3.7901607869435673`*^9, 3.79016080410845*^9}, {
   3.7901608824366446`*^9, 3.790160923623764*^9}, {3.7901609870434723`*^9, 
   3.790160997431325*^9}, {3.7901610935115023`*^9, 3.7901611310934076`*^9}, {
   3.790161241291935*^9, 3.7901612955179825`*^9}, {3.7901613629835763`*^9, 
   3.790161367040218*^9}, {3.7901614132720127`*^9, 3.7901614154310007`*^9}, {
   3.790161545692692*^9, 3.7901616426242123`*^9}, {3.7901618007292466`*^9, 
   3.790161878721034*^9}, {3.7901619622628546`*^9, 3.7901619917644196`*^9}, {
   3.7901620529250326`*^9, 3.7901620865955496`*^9}, {3.7901621619185977`*^9, 
   3.7901622888383045`*^9}, {3.79016234073724*^9, 3.7901624758031907`*^9}, {
   3.7907450687041*^9, 3.790745128448532*^9}, {3.7907452459570847`*^9, 
   3.790745248099612*^9}, {3.7907453491177115`*^9, 3.7907453504698772`*^9}, {
   3.7907454002457523`*^9, 3.7907454140738506`*^9}, {3.79074547551882*^9, 
   3.790745482460721*^9}, {3.7907457051553135`*^9, 3.790745752636436*^9}, {
   3.790745786441959*^9, 3.7907457871382923`*^9}, {3.790746071419524*^9, 
   3.790746075976118*^9}, 3.790746357349529*^9, {3.790746425138651*^9, 
   3.7907465682807302`*^9}, 3.7907466003030853`*^9, 3.790746685688845*^9, {
   3.790752462148349*^9, 3.79075246383974*^9}, {3.790752497257247*^9, 
   3.7907525083095894`*^9}, {3.790752592236307*^9, 3.7907526111651506`*^9}, {
   3.7907526707324314`*^9, 3.7907527227732897`*^9}, {3.7907527980377474`*^9, 
   3.790752850840437*^9}, 3.7907530967059727`*^9, {3.790753145556608*^9, 
   3.790753146451337*^9}, {3.7912752413553257`*^9, 3.791275252668771*^9}, {
   3.791275287023381*^9, 3.7912753142834225`*^9}, {3.7913423125005674`*^9, 
   3.79134231747219*^9}, {3.7913423812158527`*^9, 3.791342403213808*^9}, {
   3.791342501090163*^9, 3.7913425384226446`*^9}, {3.791342578273884*^9, 
   3.791342605462056*^9}, {3.791342679060407*^9, 3.7913426881195793`*^9}, {
   3.791342998206439*^9, 3.791343062217129*^9}, {3.791343092244545*^9, 
   3.79134315221691*^9}, {3.7913433103533936`*^9, 3.7913433108027782`*^9}, {
   3.791343350481431*^9, 3.7913433533548365`*^9}, {3.7913443684242907`*^9, 
   3.7913444558069906`*^9}, {3.7913444926601768`*^9, 3.791344540150804*^9}, {
   3.791435736823063*^9, 3.791435739718503*^9}, {3.7914399134205093`*^9, 
   3.791439979201829*^9}, 3.7917269858972416`*^9, {3.7917270532814846`*^9, 
   3.7917270537365465`*^9}, {3.791779550764742*^9, 3.7917795769286985`*^9}, {
   3.7917840706216445`*^9, 3.7917840711933613`*^9}, {3.7917841170601435`*^9, 
   3.791784117552826*^9}, 3.7917898103963366`*^9, 3.7917898607755876`*^9, {
   3.7919442443602123`*^9, 3.7919442998239584`*^9}, {3.8233100249732804`*^9, 
   3.8233100255557227`*^9}, {3.8233136809760485`*^9, 
   3.8233137049429493`*^9}, {3.8233137420734596`*^9, 
   3.8233137533263645`*^9}, {3.823313834837864*^9, 3.823313859501897*^9}, {
   3.823313908240549*^9, 3.8233139085507193`*^9}, {3.823313944815727*^9, 
   3.8233139651753845`*^9}, {3.8233140101448836`*^9, 
   3.8233140362666454`*^9}, {3.823314088192835*^9, 3.8233140999244485`*^9}, {
   3.8233161800039396`*^9, 3.823316180594361*^9}, {3.8233162513286963`*^9, 
   3.8233162543815317`*^9}, {3.8237528756142907`*^9, 
   3.8237528763321652`*^9}, {3.823752909986985*^9, 3.8237529377116423`*^9}, {
   3.8237529893278728`*^9, 3.823752990165572*^9}, {3.823753049151645*^9, 
   3.823753162722163*^9}, {3.8237531942536163`*^9, 3.823753300288724*^9}, {
   3.823753360252232*^9, 3.823753397620466*^9}, 3.823753542163535*^9, {
   3.8238643254471207`*^9, 3.8238643425049324`*^9}, {3.8238651270126657`*^9, 
   3.823865152413556*^9}, {3.823865535134879*^9, 3.823865541579499*^9}, {
   3.8238655725344553`*^9, 3.823865616195118*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"e1f601ec-2a98-49fa-8cc3-50b0cd225344"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", "triangulation", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"msh", "=", 
     RowBox[{"TriangulateMesh", "[", "imsh", "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"msh", ",", 
     RowBox[{"Axes", " ", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<z[mm]\>\"", ",", "\"\<y[mm]\>\""}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{
  3.789990771931593*^9, {3.789991270900275*^9, 3.7899912756531873`*^9}, {
   3.7899920313319263`*^9, 3.7899920413808193`*^9}, {3.789992073037743*^9, 
   3.7899920781692677`*^9}, {3.7899922911580153`*^9, 3.7899923568627253`*^9}, 
   3.7899923891825886`*^9, {3.789992487581474*^9, 3.7899924887798305`*^9}, {
   3.7899926050501366`*^9, 3.789992616202428*^9}, {3.789993563057398*^9, 
   3.7899935750248585`*^9}, {3.7899936214498806`*^9, 3.789993621791483*^9}, {
   3.789993680860732*^9, 3.789993681363346*^9}, {3.7901409947622285`*^9, 
   3.7901409986047797`*^9}, {3.790141151160098*^9, 3.7901411542129555`*^9}, 
   3.790141271173168*^9, 3.790141351367922*^9, {3.7901414118830147`*^9, 
   3.790141421855527*^9}, {3.7901420934008427`*^9, 3.790142105257502*^9}, {
   3.7901435825461645`*^9, 3.7901436179137087`*^9}, {3.7901437392555866`*^9, 
   3.7901437828738427`*^9}, {3.790143818088942*^9, 3.790143966559896*^9}, {
   3.790144076128025*^9, 3.7901441263177047`*^9}, {3.790144292447444*^9, 
   3.790144372939275*^9}, {3.7901444075368247`*^9, 3.7901444723414755`*^9}, {
   3.790144549552343*^9, 3.790144616111423*^9}, {3.7901447213161116`*^9, 
   3.7901447358313885`*^9}, {3.790144826649037*^9, 3.7901448380355873`*^9}, {
   3.790145004351389*^9, 3.79014502782971*^9}, {3.790145114685472*^9, 
   3.790145147831722*^9}, {3.790145230832641*^9, 3.790145238511897*^9}, {
   3.7901453259222684`*^9, 3.7901453379618773`*^9}, {3.790145369681957*^9, 
   3.790145370283457*^9}, {3.7901454031991043`*^9, 3.7901456277553873`*^9}, {
   3.7901521249779887`*^9, 3.790152190459159*^9}, {3.790152236658417*^9, 
   3.79015223864093*^9}, {3.790152307016969*^9, 3.7901523234293633`*^9}, 
   3.7901524050625334`*^9, {3.7901524415071363`*^9, 3.79015269426033*^9}, {
   3.790152807634059*^9, 3.790152817261935*^9}, {3.7901528554624224`*^9, 
   3.7901528858080215`*^9}, {3.790153141730174*^9, 3.7901531535572443`*^9}, {
   3.790153188474972*^9, 3.790153192680236*^9}, {3.790153358618696*^9, 
   3.790153400139406*^9}, {3.7901539871700163`*^9, 3.790153999783196*^9}, {
   3.7901541099751797`*^9, 3.7901541161154127`*^9}, {3.790154260790578*^9, 
   3.7901542641914725`*^9}, {3.790154508349752*^9, 3.7901545430618567`*^9}, {
   3.7901546656794777`*^9, 3.790154692749649*^9}, {3.79015474725464*^9, 
   3.79015474861399*^9}, {3.790155348163481*^9, 3.790155354119897*^9}, {
   3.7901554021312866`*^9, 3.7901554023185997`*^9}, 3.7901554768507185`*^9, {
   3.7901591034104004`*^9, 3.790159116797395*^9}, {3.790159200722864*^9, 
   3.7901592071551275`*^9}, {3.790159238103673*^9, 3.7901592429996543`*^9}, {
   3.79015929714254*^9, 3.7901593286908884`*^9}, 3.7901594490744734`*^9, {
   3.790159531667585*^9, 3.7901595325682364`*^9}, {3.7901596972965384`*^9, 
   3.790159705347771*^9}, {3.7901607869435673`*^9, 3.79016080410845*^9}, {
   3.7901608824366446`*^9, 3.790160923623764*^9}, {3.7901609870434723`*^9, 
   3.790160997431325*^9}, {3.7901610935115023`*^9, 3.7901611310934076`*^9}, {
   3.790161241291935*^9, 3.7901612955179825`*^9}, {3.7901613629835763`*^9, 
   3.790161367040218*^9}, {3.7901614132720127`*^9, 3.7901614154310007`*^9}, {
   3.790161545692692*^9, 3.7901616426242123`*^9}, {3.7901618007292466`*^9, 
   3.790161878721034*^9}, {3.7901619622628546`*^9, 3.7901619917644196`*^9}, {
   3.7901620529250326`*^9, 3.7901620865955496`*^9}, {3.7901621619185977`*^9, 
   3.7901622888383045`*^9}, {3.79016234073724*^9, 3.7901624758031907`*^9}, {
   3.7907450687041*^9, 3.790745128448532*^9}, {3.7907452459570847`*^9, 
   3.790745248099612*^9}, {3.7907453491177115`*^9, 3.7907453504698772`*^9}, {
   3.7907454002457523`*^9, 3.7907454140738506`*^9}, {3.79074547551882*^9, 
   3.790745482460721*^9}, {3.7907457051553135`*^9, 3.790745752636436*^9}, {
   3.790745786441959*^9, 3.7907457871382923`*^9}, {3.790746071419524*^9, 
   3.790746075976118*^9}, 3.790746357349529*^9, {3.790746425138651*^9, 
   3.7907465682807302`*^9}, 3.7907466003030853`*^9, 3.790746685688845*^9, {
   3.790752462148349*^9, 3.79075246383974*^9}, {3.790752497257247*^9, 
   3.7907525083095894`*^9}, {3.790752592236307*^9, 3.7907526111651506`*^9}, {
   3.7907526707324314`*^9, 3.7907527227732897`*^9}, {3.7907527980377474`*^9, 
   3.790752850840437*^9}, 3.7907530967059727`*^9, {3.790753145556608*^9, 
   3.790753146451337*^9}, {3.7912752413553257`*^9, 3.791275252668771*^9}, {
   3.791275287023381*^9, 3.7912753142834225`*^9}, {3.7913423125005674`*^9, 
   3.79134231747219*^9}, {3.7913423812158527`*^9, 3.791342403213808*^9}, {
   3.791342501090163*^9, 3.7913425384226446`*^9}, {3.791342578273884*^9, 
   3.791342605462056*^9}, {3.791342679060407*^9, 3.7913426881195793`*^9}, {
   3.791342998206439*^9, 3.791343062217129*^9}, {3.791343092244545*^9, 
   3.79134315221691*^9}, {3.7913433103533936`*^9, 3.7913433108027782`*^9}, {
   3.791343350481431*^9, 3.7913433533548365`*^9}, {3.7913443684242907`*^9, 
   3.7913444558069906`*^9}, {3.7913444926601768`*^9, 3.791344540150804*^9}, {
   3.791435736823063*^9, 3.791435739718503*^9}, {3.7914399134205093`*^9, 
   3.791439979201829*^9}, 3.7917269858972416`*^9, {3.7917270532814846`*^9, 
   3.7917270537365465`*^9}, {3.791779550764742*^9, 3.7917795769286985`*^9}, {
   3.7917840706216445`*^9, 3.7917840711933613`*^9}, {3.7917841170601435`*^9, 
   3.791784117552826*^9}, 3.7917898103963366`*^9, 3.7917898607755876`*^9, {
   3.7919442443602123`*^9, 3.7919442998239584`*^9}, {3.8233100249732804`*^9, 
   3.8233100255557227`*^9}, {3.8233136809760485`*^9, 
   3.8233137049429493`*^9}, {3.8233137420734596`*^9, 
   3.8233137533263645`*^9}, {3.823313834837864*^9, 3.823313859501897*^9}, {
   3.823313908240549*^9, 3.8233139085507193`*^9}, {3.823313944815727*^9, 
   3.8233139651753845`*^9}, {3.8233140101448836`*^9, 
   3.8233140362666454`*^9}, {3.823314088192835*^9, 3.8233140999244485`*^9}, {
   3.8233161800039396`*^9, 3.823316180594361*^9}, {3.8233162513286963`*^9, 
   3.8233162543815317`*^9}, {3.8237528756142907`*^9, 
   3.8237528763321652`*^9}, {3.823752909986985*^9, 3.8237529377116423`*^9}, {
   3.8237529893278728`*^9, 3.823752990165572*^9}, {3.823753049151645*^9, 
   3.823753162722163*^9}, {3.8237531942536163`*^9, 3.8237532213818755`*^9}, {
   3.823753408127548*^9, 3.823753492571701*^9}, 3.823753536451937*^9, {
   3.823753584928401*^9, 3.823753605850565*^9}, {3.8238642943274283`*^9, 
   3.8238642988390155`*^9}, {3.8238643645587883`*^9, 3.8238643705295153`*^9}, 
   3.823865164852727*^9, {3.823865640247552*^9, 3.8238656558947773`*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"46b3d62f-6424-4079-afd5-80be945e5e44"]
}, Closed]],

Cell[CellGroupData[{

Cell["Step 4: Moments of area", "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.6000042319920015`*^9, {3.6005962565960674`*^9, 3.6005962590140715`*^9}, 
   3.6006031322879376`*^9, 3.6636738373457937`*^9, {3.6971725349450593`*^9, 
   3.69717255003508*^9}, {3.7289615946007776`*^9, 3.7289616467307887`*^9}, {
   3.7291631200139813`*^9, 3.729163149204567*^9}, 3.7291644717611895`*^9, 
   3.789956365054686*^9, 3.7899564651324177`*^9, {3.789956863478695*^9, 
   3.7899569047334957`*^9}, {3.7899907808554134`*^9, 3.789990789060862*^9}, {
   3.7901536085742593`*^9, 3.7901536346220827`*^9}, {3.790153726028319*^9, 
   3.790153740494941*^9}, {3.7912751571263227`*^9, 3.7912751619237857`*^9}, {
   3.791342276613366*^9, 3.79134234659645*^9}, {3.7913430478694167`*^9, 
   3.7913430522345295`*^9}, {3.7913432362603583`*^9, 3.791343284924265*^9}, 
   3.7913443423149137`*^9, 3.7913464866015406`*^9, 3.791442227988288*^9, {
   3.7917842555084443`*^9, 3.79178425631851*^9}, 3.8237527028173923`*^9, 
   3.823867143606558*^9},ExpressionUUID->"cd591088-36de-4aa0-86e4-\
9527e70f5852"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "moments", " ", "of", " ", "area", " ", "with", " ", "respect", " ", 
    "original", " ", "origin"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"mao", "=", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Ao", "->", 
        RowBox[{"RegionMoment", "[", 
         RowBox[{"msh", ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Szo", "->", 
        RowBox[{"RegionMoment", "[", 
         RowBox[{"msh", ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Syo", "->", 
        RowBox[{"RegionMoment", "[", 
         RowBox[{"msh", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "0"}], "}"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Izo", "->", 
        RowBox[{"RegionMoment", "[", 
         RowBox[{"msh", ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "2"}], "}"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Iyo", "->", 
        RowBox[{"RegionMoment", "[", 
         RowBox[{"msh", ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "0"}], "}"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Iyzo", "->", 
        RowBox[{"RegionMoment", "[", 
         RowBox[{"msh", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "1"}], "}"}]}], "]"}]}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\n", 
   RowBox[{
    RowBox[{"zc", "=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Syo", "/", "Ao"}], " ", "/.", "mao"}], ")"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"yc", "=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Szo", "/", "Ao"}], " ", "/.", "mao"}], ")"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "moments", " ", "of", " ", "area", " ", "with", " ", "respect", " ", "to",
      " ", "area", " ", "centroid"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"mshc", " ", "=", 
     RowBox[{"Translate", "[", 
      RowBox[{"msh", ",", 
       RowBox[{"-", 
        RowBox[{"{", 
         RowBox[{"zc", ",", "yc"}], "}"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"mac", "=", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Ac", "->", 
        RowBox[{"RegionMoment", "[", 
         RowBox[{"mshc", ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Szc", "->", 
        RowBox[{"RegionMoment", "[", 
         RowBox[{"mshc", ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Syc", "->", 
        RowBox[{"RegionMoment", "[", 
         RowBox[{"mshc", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "0"}], "}"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Izc", "->", 
        RowBox[{"RegionMoment", "[", 
         RowBox[{"mshc", ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "2"}], "}"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Iyc", "->", 
        RowBox[{"RegionMoment", "[", 
         RowBox[{"mshc", ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "0"}], "}"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Iyzc", "->", 
        RowBox[{"RegionMoment", "[", 
         RowBox[{"mshc", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "1"}], "}"}]}], "]"}]}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sym", "=", 
     RowBox[{"{", 
      RowBox[{"A", ",", "Sz", ",", "Sy", ",", "Iz", ",", "Iy", ",", "Iyz"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"mshc", ",", 
     RowBox[{"Axes", " ", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<z[mm]\>\"", ",", "\"\<y[mm]\>\""}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"sym", ",", 
        RowBox[{
         RowBox[{"mao", "[", 
          RowBox[{"[", 
           RowBox[{";;", ",", "1"}], "]"}], "]"}], "//.", "mao"}], ",", 
        RowBox[{
         RowBox[{"mac", "[", 
          RowBox[{"[", 
           RowBox[{";;", ",", "1"}], "]"}], "]"}], "//.", "mac"}]}], "}"}], 
      "]"}], ",", 
     RowBox[{"Alignment", "\[Rule]", "Left"}], ",", 
     RowBox[{"Spacings", "->", 
      RowBox[{"{", 
       RowBox[{"5", ",", "1.2"}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{
  3.789990771931593*^9, {3.789991270900275*^9, 3.7899912756531873`*^9}, {
   3.7899920313319263`*^9, 3.7899920413808193`*^9}, {3.789992073037743*^9, 
   3.7899920781692677`*^9}, {3.7899922911580153`*^9, 3.7899923568627253`*^9}, 
   3.7899923891825886`*^9, {3.789992487581474*^9, 3.7899924887798305`*^9}, {
   3.7899926050501366`*^9, 3.789992616202428*^9}, {3.789993563057398*^9, 
   3.7899935750248585`*^9}, {3.7899936214498806`*^9, 3.789993621791483*^9}, {
   3.789993680860732*^9, 3.789993681363346*^9}, {3.7901409947622285`*^9, 
   3.7901409986047797`*^9}, {3.790141151160098*^9, 3.7901411542129555`*^9}, 
   3.790141271173168*^9, 3.790141351367922*^9, {3.7901414118830147`*^9, 
   3.790141421855527*^9}, {3.7901420934008427`*^9, 3.790142105257502*^9}, {
   3.7901435825461645`*^9, 3.7901436179137087`*^9}, {3.7901437392555866`*^9, 
   3.7901437828738427`*^9}, {3.790143818088942*^9, 3.790143966559896*^9}, {
   3.790144076128025*^9, 3.7901441263177047`*^9}, {3.790144292447444*^9, 
   3.790144372939275*^9}, {3.7901444075368247`*^9, 3.7901444723414755`*^9}, {
   3.790144549552343*^9, 3.790144616111423*^9}, {3.7901447213161116`*^9, 
   3.7901447358313885`*^9}, {3.790144826649037*^9, 3.7901448380355873`*^9}, {
   3.790145004351389*^9, 3.79014502782971*^9}, {3.790145114685472*^9, 
   3.790145147831722*^9}, {3.790145230832641*^9, 3.790145238511897*^9}, {
   3.7901453259222684`*^9, 3.7901453379618773`*^9}, {3.790145369681957*^9, 
   3.790145370283457*^9}, {3.7901454031991043`*^9, 3.7901456277553873`*^9}, {
   3.7901521249779887`*^9, 3.790152190459159*^9}, {3.790152236658417*^9, 
   3.79015223864093*^9}, {3.790152307016969*^9, 3.7901523234293633`*^9}, 
   3.7901524050625334`*^9, {3.7901524415071363`*^9, 3.79015269426033*^9}, {
   3.790152807634059*^9, 3.790152817261935*^9}, {3.7901528554624224`*^9, 
   3.7901528858080215`*^9}, {3.790153141730174*^9, 3.7901531535572443`*^9}, {
   3.790153188474972*^9, 3.790153192680236*^9}, {3.790153358618696*^9, 
   3.790153400139406*^9}, {3.7901539871700163`*^9, 3.790153999783196*^9}, {
   3.7901541099751797`*^9, 3.7901541161154127`*^9}, {3.790154260790578*^9, 
   3.7901542641914725`*^9}, {3.790154508349752*^9, 3.7901545430618567`*^9}, {
   3.7901546656794777`*^9, 3.790154692749649*^9}, {3.79015474725464*^9, 
   3.79015474861399*^9}, {3.790155348163481*^9, 3.790155354119897*^9}, {
   3.7901554021312866`*^9, 3.7901554023185997`*^9}, 3.7901554768507185`*^9, {
   3.7901591034104004`*^9, 3.790159116797395*^9}, {3.790159200722864*^9, 
   3.7901592071551275`*^9}, {3.790159238103673*^9, 3.7901592429996543`*^9}, {
   3.79015929714254*^9, 3.7901593286908884`*^9}, 3.7901594490744734`*^9, {
   3.790159531667585*^9, 3.7901595325682364`*^9}, {3.7901596972965384`*^9, 
   3.790159705347771*^9}, {3.7901607869435673`*^9, 3.79016080410845*^9}, {
   3.7901608824366446`*^9, 3.790160923623764*^9}, {3.7901609870434723`*^9, 
   3.790160997431325*^9}, {3.7901610935115023`*^9, 3.7901611310934076`*^9}, {
   3.790161241291935*^9, 3.7901612955179825`*^9}, {3.7901613629835763`*^9, 
   3.790161367040218*^9}, {3.7901614132720127`*^9, 3.7901614154310007`*^9}, {
   3.790161545692692*^9, 3.7901616426242123`*^9}, {3.7901618007292466`*^9, 
   3.790161878721034*^9}, {3.7901619622628546`*^9, 3.7901619917644196`*^9}, {
   3.7901620529250326`*^9, 3.7901620865955496`*^9}, {3.7901621619185977`*^9, 
   3.7901622888383045`*^9}, {3.79016234073724*^9, 3.7901624758031907`*^9}, {
   3.7907450687041*^9, 3.790745128448532*^9}, {3.7907452459570847`*^9, 
   3.790745248099612*^9}, {3.7907453491177115`*^9, 3.7907453504698772`*^9}, {
   3.7907454002457523`*^9, 3.7907454140738506`*^9}, {3.79074547551882*^9, 
   3.790745502478151*^9}, {3.790745544956006*^9, 3.790745548347345*^9}, {
   3.7907457716932716`*^9, 3.7907458659798107`*^9}, {3.7907459203863244`*^9, 
   3.7907459247800803`*^9}, {3.7907466197246556`*^9, 
   3.7907466510780106`*^9}, {3.7907467839408493`*^9, 
   3.7907467872969685`*^9}, {3.7907468584053283`*^9, 3.79074685926674*^9}, {
   3.7912761453469067`*^9, 3.7912761754771814`*^9}, {3.7912762181074467`*^9, 
   3.7912762226971207`*^9}, {3.791276336274589*^9, 3.7912763649337344`*^9}, {
   3.791276440166626*^9, 3.7912764558102226`*^9}, {3.791276568710969*^9, 
   3.7912766745002127`*^9}, {3.791276738320804*^9, 3.791276748200244*^9}, {
   3.79127689928211*^9, 3.791276932647039*^9}, {3.7912771460574803`*^9, 
   3.7912772626259747`*^9}, {3.7913432406601877`*^9, 3.791343257148585*^9}, {
   3.791343395518503*^9, 3.791343442966219*^9}, {3.791343610871786*^9, 
   3.7913436129714203`*^9}, {3.7913439672771072`*^9, 3.791343990807022*^9}, {
   3.7913440236543827`*^9, 3.791344060743655*^9}, {3.791344098178814*^9, 
   3.7913442933155317`*^9}, {3.7913445487425456`*^9, 3.79134463175097*^9}, {
   3.79134466700079*^9, 3.7913446674354796`*^9}, {3.7913454546734924`*^9, 
   3.79134545638373*^9}, {3.7913455180834055`*^9, 3.79134552908806*^9}, {
   3.7913455671723795`*^9, 3.7913456050310097`*^9}, {3.7913456820077605`*^9, 
   3.7913457207377787`*^9}, {3.791345758850991*^9, 3.791345780142001*^9}, {
   3.791345858085134*^9, 3.791345871339893*^9}, {3.791345988246769*^9, 
   3.7913460649950066`*^9}, {3.7913461016292815`*^9, 3.791346113267357*^9}, {
   3.791346237970172*^9, 3.791346240536688*^9}, 3.791346281566439*^9, {
   3.791346387581378*^9, 3.7913463887471733`*^9}, {3.7913471522104073`*^9, 
   3.7913471567482057`*^9}, {3.791348120974722*^9, 3.791348143380756*^9}, 
   3.791348805621591*^9, 3.791349009423727*^9, {3.791349040992867*^9, 
   3.7913490456716194`*^9}, {3.7913536723811913`*^9, 3.791353686424614*^9}, {
   3.7914362896935997`*^9, 3.7914362922272005`*^9}, {3.791437838037245*^9, 
   3.7914378498146653`*^9}, {3.7914385707179203`*^9, 3.7914386584703913`*^9}, 
   3.791439081904854*^9, {3.7914400565992956`*^9, 3.791440059665219*^9}, {
   3.7914405583736477`*^9, 3.7914406157505383`*^9}, {3.791440673298688*^9, 
   3.791440687971422*^9}, {3.791440809208877*^9, 3.7914408302049417`*^9}, {
   3.7917271401112223`*^9, 3.7917271406057806`*^9}, {3.7917272047490807`*^9, 
   3.7917272061444807`*^9}, {3.791727277841635*^9, 3.791727342713092*^9}, {
   3.791727409149064*^9, 3.791727694809654*^9}, {3.791727725719409*^9, 
   3.791727726543684*^9}, {3.79172776869852*^9, 3.7917278569443197`*^9}, {
   3.791727890450926*^9, 3.7917279114989214`*^9}, {3.791729479005684*^9, 
   3.79172955296657*^9}, {3.7917296037781863`*^9, 3.791729635914881*^9}, {
   3.79172966613417*^9, 3.791729666547388*^9}, {3.7917297275893583`*^9, 
   3.791729892129773*^9}, {3.791729935314274*^9, 3.7917300950032263`*^9}, {
   3.791779607762517*^9, 3.7917796125995054`*^9}, {3.7919440440384893`*^9, 
   3.791944050293687*^9}, {3.823316639920766*^9, 3.82331666163968*^9}, {
   3.8237537583951254`*^9, 3.823753761417646*^9}, {3.8237537947762938`*^9, 
   3.8237538215858793`*^9}, 3.823753857124648*^9, {3.8238657790178432`*^9, 
   3.8238658020980644`*^9}, {3.8238659375070353`*^9, 3.823866039742208*^9}, {
   3.8238667022639413`*^9, 3.8238667051518927`*^9}, {3.8238667660155506`*^9, 
   3.8238667816708927`*^9}, {3.823866835741329*^9, 3.823866837339682*^9}, {
   3.823866874034607*^9, 3.8238669312412214`*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"f94eb21e-2df5-41b1-9193-1ef65935576f"]
}, Closed]],

Cell[CellGroupData[{

Cell["Step 5: Equation parameters", "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.6000042319920015`*^9, {3.6005962565960674`*^9, 3.6005962590140715`*^9}, 
   3.6006031322879376`*^9, 3.6636738373457937`*^9, {3.6971725349450593`*^9, 
   3.69717255003508*^9}, {3.7289615946007776`*^9, 3.7289616467307887`*^9}, {
   3.7291631200139813`*^9, 3.729163149204567*^9}, 3.7291644717611895`*^9, 
   3.789956365054686*^9, 3.7899564651324177`*^9, {3.789956863478695*^9, 
   3.7899569047334957`*^9}, {3.791345955395214*^9, 3.791345973963244*^9}, {
   3.791346395630892*^9, 3.7913464025830545`*^9}, {3.791346617018895*^9, 
   3.7913466373332725`*^9}, 3.7914422371885743`*^9, 3.823752706690787*^9, {
   3.8238671489810395`*^9, 
   3.823867200119336*^9}},ExpressionUUID->"bce8176b-3520-4462-b0af-\
a7a3aeda299e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"geo", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"A", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{"Ac", " ", "/.", "mac"}], ")"}]}], ",", 
     RowBox[{"\[CapitalIota]", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{"Izc", " ", "/.", "mac"}], ")"}]}], ",", 
     RowBox[{"R", "\[Rule]", 
      RowBox[{
       RowBox[{"d", "/", "2"}], "-", "yc"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"val", "=", 
    RowBox[{"Join", "[", 
     RowBox[{"mea", ",", "geo"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"val", " ", "/.", 
    RowBox[{"Rule", "\[Rule]", "List"}]}], ",", 
   RowBox[{"Alignment", "\[Rule]", "Left"}], ",", 
   RowBox[{"Spacings", "->", 
    RowBox[{"{", 
     RowBox[{"5", ",", "1.2"}], "}"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]}], "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.537622795498996*^9, 
   3.537622894561662*^9}, {3.537623044440235*^9, 3.5376230936910515`*^9}, {
   3.537623228199745*^9, 3.537623231323924*^9}, {3.5376233146726913`*^9, 
   3.537623328831501*^9}, {3.537623482339281*^9, 3.5376234825212917`*^9}, {
   3.537623521274508*^9, 3.5376235261817884`*^9}, {3.537624917437364*^9, 
   3.537625128320426*^9}, {3.5376251730519843`*^9, 3.5376251803164*^9}, {
   3.537671339414649*^9, 3.537671356705638*^9}, {3.5376809528035088`*^9, 
   3.53768095299552*^9}, {3.6000029089848776`*^9, 3.6000029208252983`*^9}, {
   3.6000029756593943`*^9, 3.6000030098078547`*^9}, {3.600003158522916*^9, 
   3.60000318349856*^9}, 3.6000032324514456`*^9, {3.6000033076123776`*^9, 
   3.60000340005814*^9}, {3.600003431055394*^9, 3.6000034794310794`*^9}, {
   3.6000035325647726`*^9, 3.6000035614872236`*^9}, {3.6000036318433475`*^9, 
   3.600003647334174*^9}, 3.600003682933437*^9, 3.6000042191843786`*^9, {
   3.6000042874812984`*^9, 3.600004390035879*^9}, {3.6000045146644974`*^9, 
   3.6000045412001443`*^9}, {3.600070569247798*^9, 3.600070571525402*^9}, {
   3.600596261572476*^9, 3.6005963099949613`*^9}, {3.6005963772466793`*^9, 
   3.6005963778550806`*^9}, {3.6005964615336275`*^9, 
   3.6005964934512835`*^9}, {3.6005965263517413`*^9, 
   3.6005965785806327`*^9}, {3.6005966096402874`*^9, 3.600596735236108*^9}, {
   3.6005968172922525`*^9, 3.6005968222686605`*^9}, {3.6005975946152177`*^9, 
   3.6005976378428936`*^9}, {3.6005977203514385`*^9, 3.60059777807154*^9}, {
   3.600597821283616*^9, 3.600597939235423*^9}, {3.600597981823498*^9, 
   3.6005980087335453`*^9}, {3.600603138793149*^9, 3.600603177684017*^9}, {
   3.600603426223654*^9, 3.6006034698569307`*^9}, {3.6006035079365973`*^9, 
   3.600603558699086*^9}, {3.600603598447956*^9, 3.6006036328304167`*^9}, {
   3.600603663812071*^9, 3.600603671144084*^9}, {3.6006092873029766`*^9, 
   3.6006092888161793`*^9}, {3.600701212913769*^9, 3.6007012407286177`*^9}, {
   3.6636736831863227`*^9, 3.663673688209532*^9}, {3.6640795480320005`*^9, 
   3.664079619454086*^9}, {3.6640796991846457`*^9, 3.664079717333684*^9}, {
   3.6971720519443827`*^9, 3.69717222127462*^9}, {3.697172261514676*^9, 
   3.6971723572348104`*^9}, {3.697172562075097*^9, 3.6971725624350977`*^9}, 
   3.6971726063951592`*^9, {3.6972525155055447`*^9, 3.697252531465567*^9}, {
   3.697364372157997*^9, 3.697364411619254*^9}, {3.697690490155671*^9, 
   3.6976905424457445`*^9}, {3.7291631839269705`*^9, 
   3.7291631880836554`*^9}, {3.7291632270408883`*^9, 3.729163251137182*^9}, {
   3.729163313346614*^9, 3.729163318019148*^9}, {3.789956924698392*^9, 
   3.7899569442619576`*^9}, {3.789957001423252*^9, 3.7899570081746607`*^9}, {
   3.7899570479075413`*^9, 3.7899570560574274`*^9}, {3.7899571015041275`*^9, 
   3.789957275150153*^9}, {3.7899573094676247`*^9, 3.789957311174254*^9}, {
   3.7899574006727943`*^9, 3.7899574638518972`*^9}, {3.789958142832867*^9, 
   3.789958152848838*^9}, {3.7899582849625397`*^9, 3.789958354745449*^9}, {
   3.7899584156751623`*^9, 3.789958497982152*^9}, {3.789958542407313*^9, 
   3.78995856373757*^9}, {3.789958601361434*^9, 3.7899586948690166`*^9}, {
   3.790154200304686*^9, 3.7901542085123143`*^9}, {3.7901542848408794`*^9, 
   3.790154349032836*^9}, {3.7901543803650217`*^9, 3.7901544443716393`*^9}, {
   3.790154562412945*^9, 3.7901546096649666`*^9}, 3.790154658718569*^9, 
   3.790154724792842*^9, {3.790154765416111*^9, 3.7901548026464095`*^9}, {
   3.7901549067848797`*^9, 3.7901549165066204`*^9}, {3.7901550227255397`*^9, 
   3.790155027068267*^9}, {3.7912773755483046`*^9, 3.791277384096727*^9}, {
   3.7913438421605234`*^9, 3.7913439609789314`*^9}, {3.7913462557039814`*^9, 
   3.7913462599215155`*^9}, {3.791346294867653*^9, 3.7913463552107725`*^9}, {
   3.791346408327983*^9, 3.791346436503566*^9}, 3.791346606511733*^9, {
   3.7913466463818684`*^9, 3.7913466829570155`*^9}, {3.79134672284193*^9, 
   3.7913467849140286`*^9}, {3.79134682159785*^9, 3.791346824630063*^9}, {
   3.7913468872312546`*^9, 3.7913469333776054`*^9}, {3.791346977023596*^9, 
   3.791346982858509*^9}, {3.79134701916718*^9, 3.791347134325859*^9}, {
   3.79134717285911*^9, 3.7913472023308372`*^9}, 3.7913474169485607`*^9, {
   3.791347490880574*^9, 3.791347491350877*^9}, {3.7913475528299866`*^9, 
   3.7913475530403204`*^9}, {3.7913479206380825`*^9, 3.791347921037642*^9}, {
   3.791347984032584*^9, 3.7913479992791667`*^9}, {3.7913480482561483`*^9, 
   3.791348050300475*^9}, {3.7913483996767225`*^9, 3.791348410539256*^9}, {
   3.791349416865833*^9, 3.791349417038927*^9}, {3.7913495581017036`*^9, 
   3.7913495584307227`*^9}, {3.7913537371852255`*^9, 3.791353739844002*^9}, {
   3.7913539725632143`*^9, 3.7913539777709885`*^9}, 3.791354079091504*^9, {
   3.791354699885389*^9, 3.7913547006938667`*^9}, {3.7914377756705065`*^9, 
   3.791437784520591*^9}, {3.791440099982813*^9, 3.791440168630993*^9}, {
   3.7914402031712713`*^9, 3.7914402475135856`*^9}, 3.791440282336396*^9, 
   3.79144065354392*^9, {3.79144069434155*^9, 3.7914406982019973`*^9}, {
   3.79172956292733*^9, 3.7917295911113925`*^9}, {3.791730154677781*^9, 
   3.79173016902077*^9}, {3.791730214187839*^9, 3.7917302252718925`*^9}, {
   3.791730265669391*^9, 3.7917302888178797`*^9}, {3.791730486863253*^9, 
   3.791730487932869*^9}, {3.7917306563287373`*^9, 3.79173066895111*^9}, {
   3.7917307160115423`*^9, 3.791730720999966*^9}, {3.7918148651452837`*^9, 
   3.791814867629361*^9}, {3.823754220127507*^9, 3.8237542517222977`*^9}, {
   3.823754318984174*^9, 3.8237543324022036`*^9}, {3.823836601662072*^9, 
   3.823836603017413*^9}, {3.8238366575119843`*^9, 3.823836668370248*^9}, {
   3.8238661275281878`*^9, 3.823866172135974*^9}, 3.8238663432727447`*^9},
 CellLabel->"In[23]:=",ExpressionUUID->"9032ada9-f181-4057-b774-73aae42b3638"]
}, Closed]],

Cell[CellGroupData[{

Cell["Step 6: Solution to rigidity", "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.6000042319920015`*^9, {3.6005962565960674`*^9, 3.6005962590140715`*^9}, 
   3.6006031322879376`*^9, 3.6636738373457937`*^9, {3.6971725349450593`*^9, 
   3.69717255003508*^9}, {3.7289615946007776`*^9, 3.7289616467307887`*^9}, {
   3.7291631200139813`*^9, 3.729163149204567*^9}, 3.7291644717611895`*^9, 
   3.789956365054686*^9, 3.7899564651324177`*^9, {3.789956863478695*^9, 
   3.7899569047334957`*^9}, {3.791345955395214*^9, 3.791345973963244*^9}, 
   3.791436443017542*^9, 3.7914392015413547`*^9, {3.7914422465322804`*^9, 
   3.79144226300422*^9}, 3.823752711085013*^9, 
   3.8238672067403975`*^9},ExpressionUUID->"a838d1ef-bc70-4739-96cc-\
c15119464862"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"equations", ":=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"NN", "'"}], "[", "x", "]"}], "-", 
        RowBox[{
         RowBox[{"QQ", "[", "x", "]"}], "/", "R"}]}], "\[Equal]", "0"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"QQ", "'"}], "[", "x", "]"}], "+", 
        RowBox[{
         RowBox[{"NN", "[", "x", "]"}], "/", "R"}]}], "\[Equal]", "0"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"MM", "'"}], "[", "x", "]"}], "+", 
        RowBox[{"QQ", "[", "x", "]"}]}], "\[Equal]", "0"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"NN", "[", "x", "]"}], "==", 
       RowBox[{"\[CapitalEpsilon]", " ", "A", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"u", "'"}], "[", "x", "]"}], "-", 
          RowBox[{
           RowBox[{"v", "[", "x", "]"}], "/", "R"}]}], ")"}]}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"QQ", "[", "x", "]"}], "==", 
       RowBox[{"G", " ", "A", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"v", "'"}], "[", "x", "]"}], "+", 
          RowBox[{
           RowBox[{"u", "[", "x", "]"}], "/", "R"}], "-", 
          RowBox[{"\[Psi]", "[", "x", "]"}]}], ")"}]}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"MM", "[", "x", "]"}], "==", 
       RowBox[{"\[CapitalEpsilon]", " ", "\[CapitalIota]", " ", 
        RowBox[{
         RowBox[{"\[Psi]", "'"}], "[", "x", "]"}]}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"u", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{
       RowBox[{"v", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{
       RowBox[{"\[Psi]", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"NN", "[", 
        RowBox[{"3", " ", "Pi", " ", 
         RowBox[{"R", "/", "2"}]}], "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{
       RowBox[{"QQ", "[", 
        RowBox[{"3", " ", "Pi", " ", 
         RowBox[{"R", "/", "2"}]}], "]"}], "\[Equal]", 
       RowBox[{"-", "FF"}]}], ",", 
      RowBox[{
       RowBox[{"MM", "[", 
        RowBox[{"3", " ", "Pi", " ", 
         RowBox[{"R", "/", "2"}]}], "]"}], "\[Equal]", "0"}]}], "}"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"sol", "=", 
    RowBox[{
     RowBox[{"DSolve", "[", 
      RowBox[{"equations", ",", 
       RowBox[{"{", 
        RowBox[{
        "u", ",", "v", ",", "\[Psi]", ",", "NN", ",", "QQ", ",", "MM"}], 
        "}"}], ",", "x"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"kmod", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"-", "FF"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"v", "[", 
       RowBox[{"3", " ", "Pi", " ", 
        RowBox[{"R", "/", "2"}]}], "]"}], " ", "/.", "sol"}], ")"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<kmod=\>\"", ",", 
   RowBox[{"kmod", "//.", "val"}]}], "]"}], "\[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.537622795498996*^9, 
   3.537622894561662*^9}, {3.537623044440235*^9, 3.5376230936910515`*^9}, {
   3.537623228199745*^9, 3.537623231323924*^9}, {3.5376233146726913`*^9, 
   3.537623328831501*^9}, {3.537623482339281*^9, 3.5376234825212917`*^9}, {
   3.537623521274508*^9, 3.5376235261817884`*^9}, {3.537624917437364*^9, 
   3.537625128320426*^9}, {3.5376251730519843`*^9, 3.5376251803164*^9}, {
   3.537671339414649*^9, 3.537671356705638*^9}, {3.5376809528035088`*^9, 
   3.53768095299552*^9}, {3.6000029089848776`*^9, 3.6000029208252983`*^9}, {
   3.6000029756593943`*^9, 3.6000030098078547`*^9}, {3.600003158522916*^9, 
   3.60000318349856*^9}, 3.6000032324514456`*^9, {3.6000033076123776`*^9, 
   3.60000340005814*^9}, {3.600003431055394*^9, 3.6000034794310794`*^9}, {
   3.6000035325647726`*^9, 3.6000035614872236`*^9}, {3.6000036318433475`*^9, 
   3.600003647334174*^9}, 3.600003682933437*^9, 3.6000042191843786`*^9, {
   3.6000042874812984`*^9, 3.600004390035879*^9}, {3.6000045146644974`*^9, 
   3.6000045412001443`*^9}, {3.600070569247798*^9, 3.600070571525402*^9}, {
   3.600596261572476*^9, 3.6005963099949613`*^9}, {3.6005963772466793`*^9, 
   3.6005963778550806`*^9}, {3.6005964615336275`*^9, 
   3.6005964934512835`*^9}, {3.6005965263517413`*^9, 
   3.6005965785806327`*^9}, {3.6005966096402874`*^9, 3.600596735236108*^9}, {
   3.6005968172922525`*^9, 3.6005968222686605`*^9}, {3.6005975946152177`*^9, 
   3.6005976378428936`*^9}, {3.6005977203514385`*^9, 3.60059777807154*^9}, {
   3.600597821283616*^9, 3.600597939235423*^9}, {3.600597981823498*^9, 
   3.6005980087335453`*^9}, {3.600603138793149*^9, 3.600603177684017*^9}, {
   3.600603426223654*^9, 3.6006034698569307`*^9}, {3.6006035079365973`*^9, 
   3.600603558699086*^9}, {3.600603598447956*^9, 3.6006036328304167`*^9}, {
   3.600603663812071*^9, 3.600603671144084*^9}, {3.6006092873029766`*^9, 
   3.6006092888161793`*^9}, {3.600701212913769*^9, 3.6007012407286177`*^9}, {
   3.6636736831863227`*^9, 3.663673688209532*^9}, {3.6640795480320005`*^9, 
   3.664079619454086*^9}, {3.6640796991846457`*^9, 3.664079717333684*^9}, {
   3.6971720519443827`*^9, 3.69717222127462*^9}, {3.697172261514676*^9, 
   3.6971723572348104`*^9}, {3.697172562075097*^9, 3.6971725624350977`*^9}, 
   3.6971726063951592`*^9, {3.6972525155055447`*^9, 3.697252531465567*^9}, {
   3.697364372157997*^9, 3.697364411619254*^9}, {3.697690490155671*^9, 
   3.6976905424457445`*^9}, {3.7291631839269705`*^9, 
   3.7291631880836554`*^9}, {3.7291632270408883`*^9, 3.729163251137182*^9}, {
   3.729163313346614*^9, 3.729163318019148*^9}, {3.789956924698392*^9, 
   3.7899569442619576`*^9}, {3.789957001423252*^9, 3.7899570081746607`*^9}, {
   3.7899570479075413`*^9, 3.7899570560574274`*^9}, {3.7899571015041275`*^9, 
   3.789957275150153*^9}, {3.7899573094676247`*^9, 3.789957311174254*^9}, {
   3.7899574006727943`*^9, 3.7899574638518972`*^9}, {3.789958142832867*^9, 
   3.789958152848838*^9}, {3.7899582849625397`*^9, 3.789958354745449*^9}, {
   3.7899584156751623`*^9, 3.789958497982152*^9}, {3.789958542407313*^9, 
   3.78995856373757*^9}, {3.789958601361434*^9, 3.7899586948690166`*^9}, {
   3.790154200304686*^9, 3.7901542085123143`*^9}, {3.7901542848408794`*^9, 
   3.790154349032836*^9}, {3.7901543803650217`*^9, 3.7901544443716393`*^9}, {
   3.790154562412945*^9, 3.7901546096649666`*^9}, 3.790154658718569*^9, 
   3.790154724792842*^9, {3.790154765416111*^9, 3.7901548026464095`*^9}, {
   3.7901549067848797`*^9, 3.7901549165066204`*^9}, {3.7901550227255397`*^9, 
   3.790155027068267*^9}, {3.7912773755483046`*^9, 3.791277384096727*^9}, {
   3.7913438421605234`*^9, 3.7913439609789314`*^9}, {3.7913462557039814`*^9, 
   3.7913462599215155`*^9}, {3.791346294867653*^9, 3.7913463294910607`*^9}, {
   3.7913472074087467`*^9, 3.7913473329485793`*^9}, {3.791347385199836*^9, 
   3.7913473967325077`*^9}, {3.791347436055352*^9, 3.791347460802396*^9}, {
   3.7913476034152703`*^9, 3.7913478852003493`*^9}, 3.791348267906912*^9, {
   3.7913483553427005`*^9, 3.7913483633870907`*^9}, 3.7913537827075787`*^9, 
   3.7913541051087017`*^9, {3.7913543136544747`*^9, 3.791354316287657*^9}, {
   3.791354460378742*^9, 3.7913544732763376`*^9}, {3.7913545284700527`*^9, 
   3.7913545502147493`*^9}, {3.7914364477999725`*^9, 3.791436452067486*^9}, {
   3.791436498928726*^9, 3.7914375720037074`*^9}, {3.7914376067543745`*^9, 
   3.791437688484954*^9}, {3.791437893000491*^9, 3.791437987841875*^9}, {
   3.7914380478500376`*^9, 3.791438122727378*^9}, 3.7914389788308997`*^9, 
   3.791439171799738*^9, {3.791440366968326*^9, 3.791440390621718*^9}, {
   3.7914404335316906`*^9, 3.791440444359994*^9}, {3.7914407786724463`*^9, 
   3.791440789401006*^9}, 3.7914409050865636`*^9, 3.791441029566799*^9, {
   3.7914418115815735`*^9, 3.7914418239226737`*^9}, {3.7917303229773216`*^9, 
   3.791730323528699*^9}, {3.7917841421359034`*^9, 3.791784172713688*^9}, {
   3.7917913710963073`*^9, 3.7917913718461304`*^9}, {3.7917979493508315`*^9, 
   3.791797949579317*^9}, {3.7918149325968914`*^9, 3.791814943046646*^9}, {
   3.8237541887634954`*^9, 3.8237541890487175`*^9}, 3.8237546743703427`*^9, {
   3.823836016473623*^9, 3.823836086127119*^9}, {3.823836134871725*^9, 
   3.8238361644588747`*^9}, {3.823836204451622*^9, 3.8238362432211723`*^9}, {
   3.8238362801648684`*^9, 3.823836282667746*^9}, {3.8238363170095177`*^9, 
   3.8238363689023385`*^9}, {3.8238364111709757`*^9, 
   3.8238364236322556`*^9}, {3.823836546259445*^9, 3.8238365523880663`*^9}, {
   3.823836833664291*^9, 3.823836853996887*^9}, 3.8238663918613997`*^9, {
   3.82386644599277*^9, 3.8238664501489077`*^9}, {3.8238664934141116`*^9, 
   3.823866521463791*^9}, {3.8238666142670174`*^9, 3.823866646056024*^9}, {
   3.8238672131417656`*^9, 3.823867219962593*^9}, {3.854612019609798*^9, 
   3.854612107233444*^9}, {3.8546121712186637`*^9, 3.8546121865415525`*^9}, 
   3.854612245874048*^9, {3.854612346712303*^9, 3.854612541311097*^9}, {
   3.8546131774540772`*^9, 3.854613231722978*^9}, {3.8551066974698925`*^9, 
   3.8551067209551754`*^9}, {3.8551067847975283`*^9, 3.855106795122204*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"bbd4175f-1186-4f44-9a28-7181d182927b"]
}, Closed]]
}, Open  ]]
},
AutoGeneratedPackage->Automatic,
WindowSize->{706.25, 443.75},
WindowMargins->{{74, Automatic}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
Magnification:>1.25 Inherited,
FrontEndVersion->"12.3 for Microsoft Windows (64-bit) (July 9, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"bcf7a9a7-276a-4831-85d8-3ceb13ed4c62"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 1384, 23, 131, "Section",ExpressionUUID->"05f91828-714a-44d3-8284-0a01a3d0257d"],
Cell[CellGroupData[{
Cell[1976, 49, 1538, 21, 67, "Subsection",ExpressionUUID->"20cea0ee-7c33-4fbf-bcf4-45ada18c04eb"],
Cell[3517, 72, 5537, 112, 297, "Input",ExpressionUUID->"a78369b1-6773-4d0b-9f92-5c148b56674a"]
}, Closed]],
Cell[CellGroupData[{
Cell[9091, 189, 2055, 29, 46, "Subsection",ExpressionUUID->"aff8d2b6-7939-4ccb-8f3a-79662e5746c2"],
Cell[11149, 220, 1791, 39, 151, "Input",ExpressionUUID->"f7508e1a-3c88-4d3f-b817-1965be0c2f98",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[12977, 264, 2073, 29, 46, "Subsection",ExpressionUUID->"4bd8ee11-9554-40cc-8113-a1db145179e6"],
Cell[15053, 295, 30243, 503, 309, "Input",ExpressionUUID->"34a59485-23f5-4ee3-a855-e52561f62e95"],
Cell[45299, 800, 7881, 128, 226, "Input",ExpressionUUID->"e1f601ec-2a98-49fa-8cc3-50b0cd225344"],
Cell[53183, 930, 7124, 104, 178, "Input",ExpressionUUID->"46b3d62f-6424-4079-afd5-80be945e5e44"]
}, Closed]],
Cell[CellGroupData[{
Cell[60344, 1039, 1986, 28, 46, "Subsection",ExpressionUUID->"cd591088-36de-4aa0-86e4-9527e70f5852"],
Cell[62333, 1069, 12199, 240, 726, "Input",ExpressionUUID->"f94eb21e-2df5-41b1-9193-1ef65935576f"]
}, Closed]],
Cell[CellGroupData[{
Cell[74569, 1314, 1714, 25, 46, "Subsection",ExpressionUUID->"bce8176b-3520-4462-b0af-a7a3aeda299e"],
Cell[76286, 1341, 10377, 160, 131, "Input",ExpressionUUID->"9032ada9-f181-4057-b774-73aae42b3638"]
}, Closed]],
Cell[CellGroupData[{
Cell[86700, 1506, 1660, 24, 46, "Subsection",ExpressionUUID->"a838d1ef-bc70-4739-96cc-c15119464862"],
Cell[88363, 1532, 13157, 234, 369, "Input",ExpressionUUID->"bbd4175f-1186-4f44-9a28-7181d182927b"]
}, Closed]]
}, Open  ]]
}
]
*)