(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[  10467211,     190967]
NotebookOptionsPosition[  10438804,     190439]
NotebookOutlinePosition[  10439244,     190456]
CellTagsIndexPosition[  10439201,     190453]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJzs3XeYFeX5B3yXKkVEkGIBDdYooliDStTYYtcoELEggh1QI4rmJ1yBEJHk
Z1CiRsVeEAsqioAoxUY0ohLsoFEQBAEbdWGL77zy/vbiZQ/rKc/sDPr5/JGL
JLvPc9/3nD17rpnvzvzi3Et/d36NTTbZ5IpNo//4Xfd+h/3hD92vObVx9F86
9bniogv6nNfzmD59z7vgvD/86tya0f9YXnuTTbo12GST//ff3wMAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/KC8v/+qrr6ZPn/7444//
7W9/692793nnnXfOOed07dq1U6dOnTt3PuOMM7p16xb970OHDn3wwQenTJky
a9asFStWVGeRjzzyyGn/59tvv63OrSFx0Y/buHHjnvnBkiVLki4nXosXL542
bdqkSZOeffbZ8ePHT548+fXXX/+Z/9RH79Jz5sx5+eWXn3/++WgsEyZMmDp1
6ttvv71q1aqkSwMAAAAAAABSau7cuffcc0+fPn1OPPHEPfbYo2HDhpvkpXHj
xh07dvzDH/4watSoTz75pLy8PL6af//731fs++WXX8a3EaTKokWL+vfv36RJ
k4rX/0svvZR0UYEtWbLkwQcf7Nu371FHHdWyZcsNveG0atXq2GOP7dev38MP
P/zNN98kXXXsojfVO+6445JLLjn44IMbNWqUcSZFRUU777zzqaeeOmjQoGef
fXb16tVJVw0AAAAAAAAkacmSJY899tgFF1yw44475hcF+VFbbLHFkUceee21
106bNq20tDRg8eXl5TvvvHPFRsIh/BzMmjXr/PPPr1u37no/aD+ZcMiaNWue
euqpk08+uVatWrm+29SpU6dTp07PPPNMtEjSfQT23Xff3XnnnQcffHB+b8IX
XXTRv/71r1ijegAAAAAAQBp06tRpm/S5+uqrkx5MGMuXL99pp52SHmcGn376
aeVqL7zwwqTr2vh899131f6yilF5efnUqVP79u3bvn37PK4zFmLLLbfs1q3b
6NGjly1bVngj//rXv9Zd/CcfDpk9e3bSPwobnwEDBiR93IJ59dVXTz755A39
cP0EwiHz58+/9NJLmzZtGuSt5rLLLluwYEHSPQUwY8aM008/fdNNNy18LDvu
uOPQoUOr+eFfoZxzzjlJv51kK/o5TXpaAAAAAAD8fB166KGFX1MIbrPNNgty
gThxI0aMSHqWmc2ePbtytZ06dUq6ro3Pt99+W/2vqzgsWbLkhhtu2GmnnZKe
6Ca1a9c+6qijbr311qikvNs5++yz113zJx8O+eCDD5I6XhuvPn36JH3cClVa
WvrEE0906NCh6k436nDIypUrBw8eXL9+/bBHv0GDBtddd92qVauS7i9PCxcu
7NmzZ9iZRLbddtuRI0duXHcR+eabb6LfGsFHEZM77rgj6YEBAAAAAPDzlc5w
SOSWW25JejaFKi8vr/7bL2RJOCSUjT0cEr1KX3nllTPPPLNOnTpJz3J9tWvX
PvXUU8eOHVtSUpJTU1999dV6T9YQDqGyjTocsnLlyttuuy3LRz5tpOGQ6N1p
1KhRrVq1iu81sN122z3yyCMbVxaiuLh46NChDRs2jG8sBxxwwL/+9a+kG83W
nXfeGd8owqpfv/7SpUuTHhgAAAAAAD9f06dPf/7/TJgwYcyYMSNHjuzXr9+h
hx4a/A91c7LrrrtuXNdrKnv99dcTHGCNGjXat29/8cUX33333U888cS4ceMm
TpxYcawz3jp+5syZFV/w3HPPRS+GUaNG3Xjjjaeddlrz5s0T7CXNNt5wSFT5
zTffvPvuuyc9wh/XokWLq6666sMPP8ymr9LS0hNOOGG9FX7y4ZDly5c/v47o
5/3xxx+/7777rrjiiv322y96N0jkwKXcRhoOWbx48cCBA7fccsvsO90YwyFz
5szp2LFjfEd/XYcccsi8efOS7jgr06ZN+8UvflE9Y+nZs+dG8ZSZ1IacKzv3
3HOTnhYAAAAAAGRWUlLy1ltvde/ePakLi88//3zSMyjIeg+2qDannnrq5MmT
ly9fHrCX8vLyDz/88Kqrror1r5U3RhtjOGTFihVDhgzZfPPNkx5ezg488MCb
b7557ty5G2pt9erVXbt2rfyNP/lwSNWWLVv25JNPRtOr/kOWZhtdOOTjjz++
6KKLNt1001w73ejCIU8//XTjxo2z7G6bbbbp27fv9OnTo3fjNWvWrFq1avbs
2WPGjLnkkkuyf5dr2rTp+PHjk+67KmVlZX/9619r1qyZZUd77LHH9ddfP2vW
rKVLl0Yf56KPBDNnzhw5cmSnTp1q1aqV5SK77777+++/n3TrVZk3b16WvaTB
RnQ/FgAAAAAAfrbee++9RK4qnnDCCUm3nr/KD7aoBm3btv33v/8da1/ffPPN
eeedV819pdnGFQ5Zs2bNP//5z5YtW8Y3kEaNGu23335nnnnmn//853vuuefh
hx9+4gfRP+69996bb765d+/ehx12WLNmzQrZpX379gMHDpwxY0bF/YWWLl0a
Lb7zzjtn/PqfeTikwsSJE7fZZptCJv9TshGFQ1577bXf/e53eXe6EYVDysrK
+vfvn2Vf0S/ZBx54IPqWDa22YsWKXr16ZT+ov/zlL+m8ZdmyZctOPvnkLLvY
euutp02bVsVqX3zxxZFHHpnlag0aNHjqqaeqrdNc/e1vf8v++CZrt912S+er
CwAAAAAA1lNaWvr73/+++s+l//e//0269TzdcMMN1TyrXXfdtdqCCvfff78H
Vay1EYVDxo8fv9NOO8UxhK222urCCy+cMGHCokWLsr/49eWXX06ePHn48OEn
nHBC9n8Ov54tt9xyr732atu2bdWPwRIOqRAdo4MOOii/af/EpD8cUlZWNmbM
mIMPPrjATjeWcMjy5cuzz8A0aNDg1VdfzWbZO+64I/tZnX766atWrYq705zM
mTOnXbt2Wda/ww47ZPOInOil1bNnz+zHct1116Uz2LDnnntm30Wyhg0blvS0
AAAAAAAgWyUlJaeddlo1n0u/4oorku47H2VlZTvuuGN1DqpJkyYff/xxdfZ4
7bXXxtrR888//0EW3nvvvZkzZ86YMePNN9/897///dprr7300ktPPfXUnXfe
OXTo0L59+3bv3v3EE0/s0KFD8+bN46hzowiHzJ49+/jjjw/e+w477NCvX79o
5lX85X6WFi9efPPNN++///7Bi1xLOGRdCxcubNq0aUyj3uSHmz5l88P7/vvv
v/vuu//5z3/eeuut6dOnv/7669OmTZs4ceLIkSP/8Y9/DBgw4JJLLunSpcsR
Rxyx++67165dO3idaQ6HrFq1asSIEbvsskuQTjeKcEjU8qGHHpp9Uw888ED2
i3fr1i37lY877rg1a9bE12lO5s2b16pVqywrr1WrVvQzleXKxcXF2WdOIv37
94+10zxEHwCyrz9Z0TtY9Gsu6YEBAAAAAEAOiouLt9122+o8nd64ceMVK1Yk
3XfOJk6cWJ1Titx///3V3OPq1atj/YvdOG4as2TJkpdeemn48OHHHntsqGvN
KQ+HlJWVXX/99cEvrLdt2/axxx4rPBNS2axZs/r37x/8wTfCIeuJDl/YCa/r
zDPPDF5wSUnJBx988Pjjj1922WVt2rQJUmc6wyFfffXV4MGDw4bZ0h8OKS0t
zem5Ob/97W9zupFF9Oa/6aabZr9+ly5dopLi6zdL0Ytht912y77sAQMG5LT+
1KlTs188csMNN8TUaX6uueaanOpPUPSKSnpaAAAAAACQs6FDh1bzGfU77rgj
6aZzdvLJJ1fniLbbbruSkpLqb3PSpEnxNRX3E4W+/fbbBx54oPDnNaQ5HLJo
0aKjjz46yOGosOeeez7xxBNxxELWtWzZsj/+8Y916tQJVbZwSGUdO3YMNd71
xBEOWVd5eflbb711xRVXNGrUqJA60xYOid70evXqVa9evVAHokLKwyHRAT3/
/PNz6ujDDz/MdZfzzjsvpy169uyZ7INUVqxY0aFDh+wLbt68eXFxcU5bRA3m
dPOQyIgRI2LqN1dR8dGHn5yKT9ALL7yQ9MAAAAAAACBnH3zwQTWfUW/btm06
n3S/IfPmzatRo0Z1jqhv376JdFpaWtqsWbOYmoo7HFLhtddeO+2004qKivKr
M7XhkBdffHGrrbYKeES23nrr0aNHV+cP4yeffHLKKacEKV44pLJbbrklyGwr
izscUmHp0qXDhg3L/qEb60lPOOSNN97o3Llz3u9CPyrl4ZD+/fvn1M5hhx2W
xy7vvvturnO74oorkvr4sWbNmmOPPTanaq+++uo8Nrr77rtzHcuoUaOC95uH
V155JdfKk7L99tvHnagEAAAAAIA4rF69uvrPq0+dOjXpvnMwYMCAjF388pe/
jGk+Dz/8cFLN/uY3v4mpqWoLh6z18ccf53olbq0UhkPKysoGDx4c9kJzjx49
kup00qRJbdu2LbB+4ZDKXn311SCvjcqqLRyyVklJyYgRIxo3bpxrnYmHQ6If
1bFjxx5yyCFxHIV1pTkccuedd+bazqOPPprfXjndiGOtpO5d1rNnz1xLze+X
5qpVq3K9WU3NmjXfeOON4C3n6sILL8x1REmJfiMnPS0AAAAAAMhTxjv5//rX
v47vvPrvfve7pJvO1po1a1q2bFm5hYMOOuj3v/99TPOZNGlSUv2ee+65MTVV
zeGQ73+4R/0jjzzSvHnznOpMWzhk4cKFRxxxRMAD0bRp02eeeSbZpkpKSq65
5ppCuhAOqWz+/PmhXiTrqeZwyFrRKz/X99gEwyHFxcV33313fInB9aQ2HBK9
z9evXz+nXmrXrr1y5cr8tsv1FiWRqLzZs2eH7fpHjR07Ntc6991337y3O+qo
o3LdbpdddlmxYkXAlnMVfdZq0qRJrmUnoqioaN68eQnOCgAAAAAACrHjjjtW
Pvt91113bbbZZjGdWq9Ro8bcuXOT7jsrjz/+eMYWRo0aFV845J133kmq30GD
BsXUVPWHQ9b6+uuvTzrppOzrTFU45PXXX2/RokXAo9CxY8f58+cn3db/56mn
nsr7TUY4pLKysrJatWoFfLVUSCQcstbTTz/dsGHDLOtMJBwSvcMMGTIkY4Yw
PukMh5SXl+dx76lf//rXee84ZcqUPKb3q1/9qqSkJGDjVfvmm2/yeCLYlVde
mfeO119/fR5j6dWrV8Cuc5VHfiYpxx9/fIKDAgAAAACAAh144IGVz34/+uij
l156aXxn16+++uqk+85KxktdLVq0WL16dXzhkEWLFiXV7w033BBTU0mFQyKl
paW9e/fOss70hENeffXV7C+LZ+Okk05atWpV0m39/3z00Udt2rTJoxfhkIxi
SvQlGA6JzJgxI8tr69UcDvnss8+i35INGjSIY+ZVS2c45Pbbb8+jlz/96U95
7xi9odWpUyePTf/yl78EbLxq3bt3z6PC8ePH573j66+/nseOkYkTJwZsPCfx
faAKbsyYMUlNCQAAAAAACpfxvgqPPvro7Nmz4zu73rRp07Rdp67sww8/zFj8
gAEDvo/tWkZRUVFpaWlSLd94441xNLVJouGQ73/4k/a///3v2dSZknDIyy+/
HPaic/fu3avzj+Wzt2jRogMOOCDXdoRDMmrcuHHA10yFZMMhkblz5+6+++4/
Wme1hUPeeuut6P2/Ro0acUw7GykMh8yZMye/MNsLL7xQyL75PQKvZs2ab775
ZqjeqzB+/Pg8yot89913eW8avdXn9+tjq622+uqrrwK2n6Vly5bVq1cvv0FV
s5YtW6bzNykAAAAAAGSpR48elU+AP/roo9H/ddxxx8V3jv2ee+5JuvUfkfHe
KTVr1lz7YI6YwiFNmzZNsOXhw4fH0dQmSYdD1ho6dOiP1pmGcMiLL75Yv379
gMO/8sory8vLk25rg1auXHnMMcfk1JFwSEZNmjQJ+LKpkHg4JLJw4cLtttuu
6jrjDodEP0Tjx4/P48kpwaUtHBJN5qijjsqvl+jIFrL1hRdemN++++23X9zv
ikuXLt12223zqK1169YFbt2+ffv8xpLIw2UeeOCB/KqtfhvLXe8AAAAAAGBD
LrroosonwNeGQyZOnBjfOfb27dun+YL1ihUrNt9888pld+rUae0XxBQO2Wab
bRLs+pZbbomjqU3SEQ6JXm/dunWrus7EwyFTpkwJ+zfUa290k3LLli1r165d
9k0Jh2TUrFmzgK+cCmkIh0Tee++9qkNT8YVDVq9efe+992Zz95LqkbZwyOTJ
k/NrpFGjRgV+DBg2bFjeY3z22WdDTSCjIUOG5FfYEUccUeDWXbp0yW/rOnXq
zJs3L0j72Tv66KPzq7b6ffzxx9U8HAAAAAAACKtXr16VT4CvDYeUl5fvuuuu
8Z1mf/XVV5PufoPuvvvujDVXXJWLKRxS+J8MF+K2226Lo6lN0hEO+f6HzE/b
tm2rqDPZcMgLL7yw6aabBhx7586d0xzBWtecOXOaN2+eZV/CIRm1bNky4Iun
QkrCIZGHHnqoijrjC4ccf/zxG9q0adOmJ554Yo8ePS79QZcuXWK6f8u60hYO
OeKII/JrJHo3LnDrsWPH5j3GffbZJ763x5UrV+Yd1opeTgXufu211+Y9losv
vjjIBLIUvZkn+ISmnBx22GHVORkAAAAAAIhDnz59Kp8DXxsOidx6663xnWnv
0qVLsr1XYd99961c8B577FFxLSmmcMj222+fYNd33HFHHE1tkppwSOTll1+u
os4EwyGTJ0+uW7duwJnvueeey5cvT6qdPLz22mt16tTJpjXhkIy23nrrgK+f
CukJh3xfZQ4hvnDI+PHj191os802O/7444cNG/af//ynrKxsvS8uLS2dNm3a
CSecEMexWCtV4ZA33ngj70aOOeaYAnefNWtWIZN85plnggyhsptvvjnvqgYO
HFjg7oU8qKV27dpz584NMoRsxPcwu+BGjhxZbWMBAAAAAICYXHbZZZXPgVeE
Q5YvX96oUaOYzrTXrFlz/vz5ybaf0Yaudt1+++0VXxNTOGSHHXZIsPG77ror
jqY2SVM4JHLSSSdtqM6kwiFz5swJe8OBpk2bfvbZZ4n0UoiRI0dm051wSEat
WrUK+BKqkKpwyNtvv72hOuMLh5SXlx944IFFRUXHH3/8uHHjSkpKsvmuBx98
MOyNgCqkKhxyyimn5N3IGWecUeDua9asKeS+E3vvvXccNw+JqmrdunXeVf3j
H/8osIDXXnst790jF154YZA5ZGP//fcvpNRq07hx41WrVlXbWAAAAAAAICaX
X3555dPgFeGQyB/+8If4zrcPGDAgwd43pHv37pVLbdSo0br3YYgpHLLjjjsm
2PiGHqZTuFSFQz788MMNXU9MJBxSXFy83377BZx2UVHRlClTqr+RIPr37/+j
DQqHZFTI9egqpCocEjnrrLMy1hlfOOT7H9408khbjR49Oo4jkp5wyPvvv19I
I0FCCFtttVUhNYwdO7bwGtZz3333FVLSvffeW2ABn3/+eSEF1KpVa968eUFG
UbXZs2cXUmd16t27dzUMBAAAAAAA4pYx+7FuOOS///1vfOfbW7RosXr16gTb
r+zrr7/O+Ofel1122bpf9pMMh9xzzz1xNLVJysIhkfPPPz9jnYmEQy6++OKw
077kkkuqv4tQysrKMj7UaV3CIRltt912YV9Ia6UtHDJ37tzatWtXrjPWcEje
/ud//if4EUlPOOTss88upJErr7yy8BratWtXSA0nnnhi4TWsK3oH23XXXQsp
afTo0QXWUFxcXEgBkeuuuy7INKo2cODAAuusNjNnzqyGgQAAAAAAQNx+NBwS
OfHEE+M75f7QQw8l1XtGN954Y8Y6Z82ate6XCYfkJG3hkHfeeSdjndUfDole
/2FH3bRp06+//rqauwhr2rRpVfcoHJLRzyQcEunUqVPlOtMZDlm6dGmDBg3C
HpGUhEOi95mMKZ3sDRo0qPAyDj/88EJqqFmzZtj3kylTphRST+S5554rvIyG
DRsWUsNOO+0UxwN31hWtH+2ScffTTjttSJrcfPPNsY4CAAAAAACqTTbhkEmT
JhVylaFqBxxwQFK9V1ZeXr7zzjtXLvLoo49e7yuFQ3KStnBIJOOTXKo5HPLu
u+/Wq1cv7KjvuOOO6mwhJl27dq2iR+GQjH4+4ZAJEyZUrjOd4ZDISSedFPaI
pCQcMmLEiAIbGTZsWOFlnHLKKWkoo0LPnj0LrGfatGmFl7H11lunoYwqvPHG
Gxn3rVGjxoIFC2LdGgAAAAAAfrayCYeUl5fvtttuBV5oqMIbb7yRVPvr2VAM
ZuzYset9pXBITlIYDrn99tsr11md4ZClS5dmTCIVYp999iktLa22FuLz+eef
VxGbEQ7J6OcTDole5Ntuu+16daY2HNK/f/+wRyQl4ZBDDjmkwEZGjBhReBmn
n356gWXst99+hZexVnFx8eabb15gPUGeYNKmTZsCy+jVq1fhZVTh0ksvzbjv
cccdF+u+AAAAAADwc5ZNOOT7DVxJD+Wss85KpPfKTj311Mrlbb/99pUvuAuH
5CSF4ZDvvvuucvygOsMhXbp0CT7nuP/Wuzr9+c9/3lCbwiEZ/XzCId9nSlyk
Nhxy0003hT0iaQiHfPHFF4U3MmrUqMIr6d69e+GVhPoN9fTTTxdezKefflp4
JYUHelu0aBFf1DBaOVo/476jR4+OaVMAAAAAACDLcMiKFSsaN25c4LWGDald
u3YarvbOnz+/Zs2alcv729/+VvmLhUNyksJwyPeZnl1SbeGQZ555JviQO3bs
WD3FV4+VK1e2bt06Y6dpeLtIoZ9VOOSTTz5Zr87UhkMefPDBsEckDeGQW2+9
tfBGKt+SKw8XXXRR4ZVcf/31hVcS6datW+HFLF68uPBK9t5778IrmTJlSuGV
ZDRx4sSMOzZp0mT16tUxbQoAAAAAAGQZDolceeWVhV9r2JDBgwdXf+/rGThw
YOXC6tat+9VXX1X+YuGQnIQNh/Ts2fO3P8iY28le5Yu21RMOWbFiRRzX8Z98
8slqKL463X///Rk7FQ7JaKMIh0ydOvW3/+eLL74oZKmddtpp3TpTGw6ZMGFC
2COShnDI4YcfXngj0Yuh8Eouu+yywivZa6+9Cq+kpKRkiy22KLyYVatWFV5M
hw4dCq/kggsuKLySjM4+++yMO/bu3TumHQEAAAAAgO9zCYd89tlnRUVFhV9u
yGjrrbdes2ZN9bdfoaSkJKqhcmHdu3fP+PXCITkJGA4pLy9v0KDB2mULvGz9
5Zdfrldn9YRD/vjHPwafcOvWreN7BEBSVq1alfGGRcIhGW0U4ZC///3vFSt/
/PHHhSzVq1evdetMbTjkjTfeCHtEEg+HfPXVVxnvspWr1157rfBirr766sIr
iRQYVYpMmjQpSCXR77jCx3LYYYcVXkmrVq2CFLOelStXNmzYMOOOb731VvDt
AAAAAACACtmHQyKnnHJK4ZcbNmRDm1aPJ598MmNVb775ZsavFw7JScBwyDff
fFOxbOGXrffaa69166yGcMisWbNq1aoVfMKDBg2Ku/JEXHLJJZWbFQ7JaKMI
h1x66aUVKxcYDlnv2UypDYfMnj077BFJPBzywAMPBGlk+vTphReT8ZZfeRg5
cmSBlayXVspPjRo1Cp9J5Jhjjim8mMgnn3wSpJ51RR/2Mu7Vrl274HsBAAAA
AADryikcMnXq1CCXGzI6+OCDq7n3dR155JGVS+rQocOGvl44JCcBwyH/+c9/
KpYt/LJ1v3791q2zGsIhJ510UvDxFhUVzZs3L+7KE/H2229X7lc4JKONIhyy
bsKwwHDIsmXL1s1ZpTYc8umnn4Y9IomHQ84999wgjURv5oUXM3To0CDF9OjR
o8BK2rZtW3gZdevWLXwm34eL8o4YMSJIPes68cQTM+514403Bt8LAAAAAABY
V07hkPLy8j322CPIFYeMZsyYUc3trzVr1qyM9Tz00EMb+hbhkJwEDIeMHDmy
YtnCL1tPmTJl3TrjDoe8+OKLcYz32GOPjbXsZK13d5dNhEM2YKMIh+y8884V
KxcYDokceuihFaulNhwyZ86csEck8XDITjvtFKSR999/v/BibrrppiDF/OIX
vyikjK+++ipIGQ0bNix8JpHTTz89SD3RR50g9VSIBpXx3lk1a9ZctGhR2L0A
AAAAAID15BQOidx5551BrjhkdO6551Zn7xUyDqF58+arV6/e0LcIh+QkYDik
b9++FcsWftm6uLi4du3aFQvGGg4pKyvbd9994xjv3XffHV/Zibv55pvX61c4
JKP0h0OWLVu27sqFh0MGDRpUsVpqwyGff/552COSbDhk4cKFoRqZNWtW4fXc
dtttoer57LPP8i7j6aefDlJD48aNC59J5JxzzglST4sWLcrLy4OUtNbtt9+e
caOTTz454C4AAAAAAEBGuYZDVq5cucUWWwS56FBZ3bp1lyxZUp3tV9HRtdde
W8V3CYfkJGA45PDDD69YNshl63UDG7GGQx577LGYxrtw4cL4yk7c119/XadO
nXX7FQ7JKP3hkFdffXXdlQsPh4wfP75itdSGQ+bPnx/2iCQbDgn4Pvbpp58W
Xs+IESNC1RP9Bsy7jHVTi4Vo1qxZ4TOJ9OjRI0g9mwS6wUuFjh07ZtxlzJgx
AXcBAAAAAAAyyjUcEunXr1+oiw6VDR06tNp6X+u+++6rXEaNGjXmzZtXxXcJ
h+QkVDikvLy8SZMmFcsGuWx98cUXVywYazikQ4cOccx23333ja/mlOjSpcu6
LQuHZJT+cMh6N4EpPByyePHiitVSGw754osvwh6RZMMhvXv3DtVI1b9ksxQw
HFLIS/2AAw4IUsNWW21V+Ey+DxoOiX5sg5T0/YYfsVS7du1nn3122rRpM2fO
jD4tLF++PNSOAAAAAADAuvIIh8ydO7dGjRqhrjusp3Xr1qWlpdXWfmT//fev
XMapp55a9XcJh+QkVDgkeu2tu2yQy9ZvvfXW3/9PcXFx4Qtm9Oabb8Y024ED
B8ZUc3qMHDly3ZaFQzJKfzjk3HPPXXflwsMhkVtvvXXtD++UKVMKXy0OP7Fw
yF577RWqkSC3PAr4qLttttkmv0eoLF++vGbNmkFqiD4CFT6TSM+ePYPUE/nd
734XpKTI9ddfn+WmDRo0iD4OdezYsXPnzn369Im+cdSoUTNnzozvdzQAAAAA
APwc5BEOiZx22mmhrjtU9uSTT1ZP79//EAzIWMPUqVOr/kbhkJyECoeMGTNm
3WUDXraO2znnnBPTbKdPn550c7FbuHDhui0Lh2SU/nBI+/bt1105SDgk/X5K
4ZBvv/22qKgoVCNfffVV4SUFDIdEZs2alUcNkyZNClXADjvsUPhMvg8aDtli
iy3yy8xU1rZt2wKLiV5+0cekE0888eqrr77//vvff//9ULUBAAAAAMDPQX7h
kJdffrnAM/xVOOyww6qn9+83cAFlt912+9HLDcIhOQkVDlnv5bqxhEMWL15c
p06dOAbbsmXLsrKypPurDtFPZUXXwiEZpTwc8vXXX693dwXhkPwkGA4ZN25c
wEaWLl1aeEl33XVXwJIee+yxPGoYMGBAqAJ22WWXwmcSOe+880KVFJk7d27h
Jc2cOTNgSRWaNm160kkn3XDDDf/+97/XrFlTeJ0AAAAAAPATll84pLy8POC9
5St79913q6H3b7/9tl69epV3/+c///mj3ysckpMg4ZDoVdemTZt1l91YwiFD
hgyJabDnnntu0s1Vk8suu6zu/xEOySjl4ZAHH3xwvZWFQ/KTYDikf//+ARtZ
uXJl4SWFDYfk95Suo446KlQBbdu2LXwm34cOh0yYMKHwkq666qqAJWVUv379
6FjcdtttQZ5YBAAAAAAAPz35hUO+jzNIELnggguqoffhw4dX3nqzzTZbtmzZ
j36vcEhOgoRD3n333fWW3SjCISUlJa1atYppsPfee2/S/ZEWKQ+HVH4YmXBI
fhIMh3Tq1ClgI9F7Y+El3X333QFL6ty5cx41tG7dOlQB7du3L3wmkfPPPz9U
SZG///3vBdZTVla27bbbBiypakVFRb/+9a+jz3jz5s0LMk8AAAAAAPhpyDsc
smrVqqZNm8Z0Yr9evXrffPNNrI2Xl5fvuuuulbfu3bt3Nt8uHJKTIOGQwYMH
r7fsRhEOeeKJJ2KaamTGjBlJ90dapDkcUlxc3KBBg/VWFg7JT4LhkHbt2gVs
5Ecf35aNsOGQPG7csWLFioAF7LfffoXP5PvQ4ZAePXoUWM+LL74YsJ6cHHTQ
QQ8//LAnzgAAAAAAwPcFhEMif/zjH+M7n1/4X6pWberUqRn3/fDDD7P5duGQ
nAQJh+y7777rLbtRhEOOOOKImKZaq1at1atXJ90faZHmcMi4ceMqrywckp+k
wiFlZWWbbrppqC6it68gVYX9tVW7du1c72cyY8aMgAUceOCBQcZywQUXBKyq
Q4cOBdYT9jE3eWjZsuXAgQMXLFgQZLwAAAAAALCRKiQcMm/evJo1a8Z0Jr9N
mzZlZWXxNZ7x9vhHHnlklt8uHJKTwsMh0QqVl01/OGTp0qW1atWKaap77rln
0v2RImkOh3Tr1q3yysIh+UkqHPLZZ58F7GLTTTcNUtW9994bsKrIRx99lFMB
jzzySMDdDznkkCBjufDCCwNWtfnmmxdym5fVq1c3btw4YD15i34dd+3a9d13
3w0yZAAAAAAA2OgUEg6JdOnSJb7T+GPHjo2p6wULFmSMtYwZMybLFYRDclJ4
OOSiiy6qvGz6wyFPP/10TCONdOvWLen+SJHUhkPmzZuXMSIlHJKfpMIhzz33
XMAuNttssyBVBQ+HPPnkkzkVMGjQoIC7H3744UHGEjYcEolexnkX89RTT4Ut
pkBFRUXdu3eP3peCjBoAAAAAADYiBYZDpk2bFt8J/KOOOiqmrgcPHlx5u9at
W5eWlma5gnBITgoMhyxYsKBOnTqVl01/OOTiiy+OaaSRYcOGJd0fKZLacMjl
l1+ecWXhkPwkFQ4ZPnx4wC6aNGkSpKr77rsvYFWRv/zlLzkV0LVr14C7//a3
vw0yloxxykK88MILeRdz2mmnhS0miE033fSaa6759ttvgwwcAAAAAAA2CgWG
Q8rLy/fZZ5/4zt5/+OGHwVsuLS3ddtttK+81dOjQ7BcRDslJgeGQq666KuOy
6Q+HRAc0ppFGpkyZknR/pEg6wyFLliypX79+xpWFQ/KTVDgkbNStefPmQaoK
Hg7p2rVrTgWE/Qh0wgknBBlL8HDI8OHD86vku+++q1u3bthiAmrSpEn0yaeQ
h+YAAAAAAMBGpMBwSOT++++P77x9r169grc8ZsyYyhvVqVNn8eLF2S8iHJKT
QsIh33zzTcOGDTMum/JwSNR1TPNca8mSJUm3SIqkMxwyYMCADa0sHJKfpMIh
hx9+eMAuttlmmyBVBf8EctBBB2W/e3l5+YZ+PeXnlFNOCTKW4Detij4r5ldJ
fJ8rAjrhhBMWLlwYZPIAAAAAAJBmhYdDiouLmzVrFtMZ+4YNGy5dujRsy0cf
fXTljbp165bTIsIhOSkkHFLFX0CnPBxy2223xTTPTX6IM/ljZ9aVwnBI9IO/
oduGbCIckq+kwiFhX2Dbb799kKqCh0N22WWX7Hf/8ssvw+7euXPnIGMJHg45
++yz86vkiCOOCFtJTJo2bTp69OggwwcAAAAAgNQqPBwS6d+/f3xn7P/xj38E
7PeTTz7JuMv06dNzWkc4JCd5h0MmTZpUxbIpD4ecfPLJMc0z0qpVq6T7I13S
Fg4pKys79NBDq1hZOCQ/SYVD6tWrF7CLUL/sHnjggYBVbfJDSCD73d95552w
u+f6UJsNueSSS8IWduyxx+ZRxoIFC4qKisJWEquzzjpr+fLlQQ4BAAAAAACk
UJBwyBdffFGzZs2YztXvvPPOZWVlofq98sorK2+x//7757qOcEhO8guHLFiw
oGXLllUsm+ZwSElJyWabbRbTPCP77rtv0i2SLmkLhwwaNKjqlYVD8pNIOGTV
qlVhu/jlL38ZpLDg4ZCioqLS0tIsd586dWrY3XO9idmGBA+H5PExKTJs2LCw
ZVSDvfbaa+7cuUGOAgAAAAAApE2QcEjk9NNPj+9c/XPPPRek2VWrVjVp0qTy
+g888ECuSwmH5CSPcMiyZcsOOuigqpdNczhk1qxZMQ1zreOOOy7pFkmXVIVD
nnzyyR9dWTgkP4mEQ+bNmxe2i7Zt2wYp7MEHHwxbWGTJkiVZ7j569OiwW597
7rlBxtKrV6+whbVp0yaPMvbZZ5+wZVSP5s2bv/HGG0EOBAAAAAAApEqocMjr
r78e34n6UNfBM/6J8ZZbbllcXJzrUsIhOck1HDJ79uzddtvtR5dNczhkwoQJ
MQ1zrVDXEPnJSEk4pLy8fMiQIdmsLBySn0TCITNnzgzbRZrDIR9++GGWu48Y
MSLs1qkNhzRq1CjXGj766KOwNVSn+vXrjxs3LsixAAAAAACA9AgVDonsv//+
8Z2o/+STTwpvtkOHDpVXvuaaa/JYSjgkJzmFQ8aPH7/55ptns2yawyG33npr
TMNcK7/XLT9haQiHLFu27LTTTstyZeGQ/CQSDpkyZUrYLvbYY48ghT300ENh
C4u88sorWe5+/fXXh926R48eQcbSu3fvsIVF1qxZk1MN/fv3D15DdapVq1b0
aSTI4QAAAAAAgJQIGA6J4xpNhcsvv7zATmfMmFF52aKiovweLi8ckpMswyGf
ffbZZZddlv2yaQ6HZPzJCuimm25KukXSJdlwSElJyejRo7O54U8F4ZD8JBIO
efzxx8N2keZwyFNPPZXl7n379g27dZrDIQsWLMi+gPLy8jZt2gSvoZrVrVt3
ypQpQY4IAAAAAACkQcBwyOrVq1u0aBHTKfrNN998+fLlhXR6/vnnV172lFNO
yW814ZCcVB0OKS8vf/HFF6NjUVRUlNOyaQ6HnHzyyTENc62HHnoo6RZJl6TC
IV9//fVf//rX1q1b57qycEh+EgmH3H777WG7aNeuXZDCRo4cGbawyJ133pnl
7t27dw+7dc+ePYOMpU+fPmELi7zzzjvZF/Daa68FLyAR9evXnzZtWpCDAgAA
AAAAiQsYDokMHDgwvlP0t99+e95tfvfdd/Xr16+85qRJk/JbUDgkJ5XDIUuW
LJk8efKwYcPOOeecXXfdNb9l0xwOadeuXdgZrmf06NFJt0i6VFs4pKSk5L33
3nv44Yf79et3zDHH1KtXL7+VhUPyk0g4ZMiQIWG7CBUOiV6HYQuLXH/99Vnu
ftJJJ4XdOlQ45NJLLw1bWCSne2j06tUreAFJadKkyZw5c4IcFwAAAAAASFbY
cMjChQtr1aoV0/n53Xffvby8PL/CbrnllsoL7rrrrnkvKBySk+jY7b333u3b
t4/+EfXYvHnzIMumNhwSva4aNGgQpMcNyf7BB/xMxBQO2WKLLfb+Qbt27XbZ
ZZftt9++Tp06QVYWDslPIuGQK664ImwXe+65Z5DC4giHDBw4MMvdDz744LBb
n3feeUHGEkc4ZMKECVnuXlJS0qxZs+AFJGjfffctLi4OcmgAAAAAACBBYcMh
kTPPPDO+8/P5Pfy9vLx89913r7zaLbfcknebwiFpkNpwyKJFi+LufezYsUl3
SbrEFA6Jj3BIfhIJh2R8LlshQoVDRo0aFbawSP/+/bPcPeoi7NbRnIOM5bLL
LgtbWOTZZ5/Ncvfx48cH3z1xoQ4NAAAAAAAkKHg4ZPr06fGdnD/llFPyKOml
l16qvFTDhg2XLl2ad5vCIWmQ2nBIrD8Fa40fPz7pLkkX4ZB0+mmEQ3r06BG2
i7322itIYXGEQ/74xz9muXvbtm3Dbp3mcMjTTz+d5e5nnHFG8N3T4JFHHgly
dAAAAAAAICnBwyGRDh06xHRmvqioKI8nv2cMclxyySWF9CgckgapDYe8/PLL
cfc+bty4pLskXYRD0umnEQ4555xzwnYRKhzyyCOPhC0s0q9fvyx3/+Uvfxl2
6wsuuCDIWC6//PKwhUWefPLJbLZevnx5/fr1g++eBi1atPj222+DHCAAAAAA
AEhEHOGQOP6St0L2V23W+vLLL2vVqlV5nQ8++KCQHoVD0iC14ZDJkyfH3fsz
zzyTdJeki3BIOv00wiFnnXVW2C7at28fpLA4wiF9+/bNcvedd9457NZpDoc8
/vjj2Ww9cuTI6Itr1KhRp06d+vXrb7bZZo0aNdp8882jf9SrVy/j57GNSK9e
vYIcIAAAAAAASEQc4ZA1a9ZstdVWMZ2Zb9KkycqVK7MvZsiQIZUX+c1vflNI
g98Lh6RDasMhEyZMiLv3MWPGJN0l6SIckk4/jXBI165dw3YRKhzy8MMPhy0s
ctVVV2W5+w477BB26wsvvDDIWC699NKwhUVGjx6dzdZlZWXl5eVVf01paWn0
QW7OnDmvvPJKdAT/+te/9urV66STTtp7772bNWsWvPKAioqKpk+fHuIQAQAA
AABAAuIIh0QGDx4c38n5u+++O8sySktLW7duXXmFLO+OXgXhkDRIbTjkmWee
ibv3J554IukuSRfhkHT6aYRDTj/99LBd7L333kEKe+ihh8IWFrnmmmuy3L1N
mzZht77ooouCjKV3795hC4s89dRTQWr7UcXFxZ988smUKVOGDRt2yimnbLnl
lsF7KcSxxx5bPXMAAAAAAIDgYgqHLFq0qE6dOjGdmd9rr71+9O9S1xo7dmzl
b2/VqlVJSUmBDQqH5OStt95auHDh3LlzP/7447fffjt6gQ0aNKhr16777LNP
/fr18142teGQZ599NuD0Mrr//vuT7pJ0iSkc0rlz58WLF8+fP//TTz/96KOP
Jk+efOutt/bp0+eoo44qcEfhkPwkEg6J3mzDdhG9+QcpLHonDFtY5Nprr81y
95122ins1qHCIRdffHHYwjZJ7llm0ee96J3nzjvvPPvss4OncfIzc+bMREYB
AAAAAAAFiikcEunWrVt8Z+ZfeeWVbGo49thjK3/vddddV3h3wiE5+e9//7uh
TdesWTN58uQ+ffpsvfXWuS6b2nDIxIkT4xjjum666aakuyRdYgqHVP1T9vnn
n//zn/886qijioqKcl1ZOCQ/iYRDgv9CDxUOuffee8MWFvnTn/6U5e677rpr
2K0vvvjiIGO58MILwxYWGTduXJDaCjR37tzhw4d37NgxeIPZO+OMM5IeAwAA
AAAA5CO+cMhbb70V35n5zp07/2gBn376aeVvrF279qJFiwrvTjgkJ1WEQyqs
WbPm3nvvzfgYoA1JbThkypQpMU2yQvaXL/mZSCQcUmH27NlnnXVWTisLh+Qn
kXBIjx49wnax7777BinsrrvuCltYZMiQIVnu3rZt27BbhwqHnHfeeWELi0ya
NClIbaEsWLDg1ltv7dChQ/BOf1SNGjU+//zzpAcAAAAAAAA5iy8cEjn44INj
OjNfs2bN+fPnV717v379Kn/jWWedFaQ14ZCcZBMOWWv58uXZzza14ZBXX301
pklW6NOnT9Jdki7JhkPWev7555s0aZLlysIh+UkkHHLppZeG7SJUOGTEiBFh
C4vccccdWe7+q1/9KuzWl1xySZCxBA/zRGbMmBGktuCiwnr27FmvXr3gLVfh
hhtuSLpvAAAAAADIWazhkMceeyy+M/PXXnttFVsXFxdvueWWlb/r9ddfD9Ka
cEhOsg+HRMrLy2+44YZslk1tOOSjjz6KaZIVQsWc+MlIQzgk8tlnn7Vr1y6b
lYVD8pNIOGTgwIFhu9hvv/2CFHb77beHLSzy+OOPZ7n7McccE3brUOGQ7t27
hy0sMnfu3CC1xeSbb74ZNmzYVlttFbzxjA444ICkOwYAAAAAgJzFGg4pKSnZ
ZpttYjoz36xZs+Li4g1tPXLkyMrfEupPlb8XDslRTuGQtf73f//3R5dNbThk
1apVMU2ywgknnJB0l6RLSsIhkS+//LJNmzY/urJwSH4SCYcMHz48bBehwiG3
3npr2MIiU6ZMyXL3rl27ht26V69eQcZy9tlnhy0ssmLFiiC1xWrlypU33HBD
06ZNg7df2Zw5c5JuFwAAAAAAchNrOCQyZMiQ+M7MP/DAAxvaN+MTbe67775Q
fQmH5CSPcEjk8ssvr3rZ1IZDInH//XL0Ck+6RdIlPeGQyMcff9ysWbOqVxYO
yU8i4ZAHH3wwbBf7779/kMJuvvnmsIVFZs6cmeXuvXr1Crt17969g4wl+rEN
W1jdunWDFFY9li5dOnjw4IYNG4YdwnqGDx+edKPw/7B35/E21fv/wCMZooko
DXJUNFLSpEGprgYJSTeuEkqkkQYqjwZNGmjWQHIrbkqDokk0atAkpRShFMk8
O865v9X3fH/nnq9zHHvvtfZem/t8/nEfPXDX5/X+rPGs9T5rAQAAAAAkJ93N
IfPnz69QoUKa7sxv6FePJ0+eXPwfV6tWbdWqVVHVpTkkKak1h6xbt65x48al
LDabm0NKTx7efvvtF3eJm4CpU6funMWuueaaCIvNquaQwBtvvFH6kjWHpCaW
5pDXXnst2iqiag6J/JUmgV9//TXB0W+44YZoh46qOSTyV5rUrFkzkmCZNGfO
nLPPPjvaeSgquA6Mu0QAAAAAAEhOuptDAp06dUrfzflPPvmk+IjdunUr/i+j
fQ6rOSQpqTWHBKZNm1axYsUNLTabm0Mifza3nipVquTn58ddZbb75ptv0roW
QrrooosiLDbbmkMCF1xwQSlL1hySmliaQz766KNoqzj88MMjCTZgwIBogwVW
rlwZ1+iXXnppJNMSeVPEAQccEEmwzBszZsxuu+0W7WwUyMnJibs4AAAAAABI
TgaaQ7766qt03JYv0L59+/WGW7ZsWfF3iZcpU2bmzJkRFqU5JCkpN4cEBg4c
uKHFZnNzyHXXXZemySw0b968uKvMdppDwguzly1dunT33Xff0JI1h6QmluaQ
qVOnRltFVG8Oueeee6INVrFixcRHHzp0aLSjR/XmkLPOOivaYMcee2wkwWKx
ZMmStm3bRjshBebPnx93cQAAAAAAkIQMNIcEjj322HTclg+UK1du7ty5Rcca
NGhQ8X/WokWLaCvSHJKUMM0hubm5devWLXGx2dwcMnjw4DRNZqGPPvoo7iqz
neaQ8ELuZc8888yGlqw5JDWxNIcsXrw42io29FW4ZPXv3z/aYLvuumvio2/0
20nJ6tGjRyTT0rp162iDtWrVKpJgccnPz7///vu33HLLaKcl2ADirgwAAAAA
AJKQmeaQUaNGRXtDvqibb765cKD8/PwDDzyw+L956623oq1Ic0hSwjSHBJ5/
/vkSF5vNzSHvvPNOmiaz0LBhw+KuMttpDgkv5F6Wl5dX4jF5C80hqYqlOSRQ
tWrVCKto1KhRJKnuuOOOCFNtkWTXSrANRzv6xRdfHMm0tGzZMjuDxevDDz+s
WbNmhNPyxBNPxF0TAAAAAAAkITPNIbm5ubVq1YrwhnxRNWvWXLt2bcFAH374
YfF/ULdu3fz8/Ggr0hySlJDNIXl5efvvv3/xxWZzc8j8+fPTNJmF+vbtG3eV
2U5zSHjh97INNXdpDklNXM0hjRo1irCKhg0bRpLqtttuizDVFklu8MG1R9my
ZSMcvVu3bpFMS4sWLSJMFXjggQciCRa7WbNm1alTJ6ppKdqcDAAAAAAA2S8z
zSH/TsO734saMWJEwSjt27cv/rf3339/5OVoDklKyOaQwBNPPFF8sdncHBI4
6KCD0jSfBdq1axd3idlOc0h44feyvLy8ErNpDklNXM0hZ599doRVHHzwwZGk
uuWWWyJMFQgWmFSAnJycCEeP6phw2mmnRZhqi83r+ylz5szZZ599IpmWCy+8
MO5qAAAAAAAgCRlrDlmwYEHFihUjuRtfXOPGjf/9P+9q2Gqrrdb7q8qVKy9Z
siTycjSHJCV8c8jSpUsrVaq03mKzvDmkZ8+eaZrPAocddljcJWY7zSHhRbKX
9e3bt/iSNYekJq7mkD59+kRYRYMGDSJJddNNN0WYaovkr39OPPHECEePqtng
lFNOiTBVYObMmZEEyxJ//PHHhj53lZTmzZvHXQoAAAAAACQhY80hgQsuuCD8
rfgN+eKLL+68887ifx7VS9rXozkkKeGbQwIdOnRYb7FZ3hwyduzYNM1ngW23
3TYvLy/uKrOa5pDwItnLgiNA8SVrDklNXM0hQ4YMibCK+vXrR5KqxL6jML76
6qukAnTt2jXC0YPLpEimpVmzZhGmqlChwuZ3rpk9e3b16tVDzswJJ5wQdx0A
AAAAAJCETDaHpPVB7bnnnlvi292nTJmSjlo0hyQlkuaQ8ePHr7fYLG8OWb58
ebly5dI0pQWmTp0ad5VZTXNIeFHtZU2aNFlvyZpDUhNXc8i7774bYRUHHHBA
JKmuu+66CFMFVqxYkVSAaD+Z17lz50imJdr3mUS1srLN+++/H/Icfeyxx8Zd
BAAAAAAAJCGTzSGB448/Psx9+GQdd9xxaSpEc0hSImkOWbdu3fbbb190sVne
HBI45phj0jSlBYJVFneJWU1zSHhR7WUDBw5cb8maQ1ITV3PIvHnzIqxi//33
jyRV7969I0y12267JRtg9OjREQbo1KlTJNPStGnTCFOdeeaZkaTKQoMGDQoz
M8E1bdwVAAAAAABAEjLcHPLSSy+FuQ+frBdeeCFNhWgOSUokzSGB1q1bF11s
9jeH3HTTTWma0gIXXnhh3CVmNc0h4UW1l02ZMmW9JWsOSU1czSGB3XffPaoq
9t1330giXXPNNVFFCjRt2jTZAHPnzo0wQMeOHSOZluOOOy7CVL17944kVRbK
z88P8wme4P8bdwUAAAAAAJCEDDeHrFu3rnbt2qk/okjGrrvumpubm6ZCNIck
JarmkEceeaToYtPdHJKfn5/3/6W2hA8//DBNU1qgQYMG0Za8mdEcEl5Ue1mw
N+20005Fl5zu5pDCnTcYOq0DlW5zag5Zrz0vjHr16kUSqVevXlFFCnTr1i2F
DLvttltUAc4999xIpiXal1Y99dRTkaTKTsGBqHz58qnNzOmnnx53fAAAAAAA
SEKGm0MC99xzT7jHFInq169f+qrQHJKUqJpDfvzxx6KLTXdzSPfu3QsG2nPP
PVNbwrp169L0yL5AmTJlli9fHm3VmxPNIeFFuJe1b9++6JLT2hxS9Bso//zn
P9M30EZtTs0hd9xxR1RV1K1bN5JIJV7DpGzYsGEpZGjVqlVUATp06BDJtBx1
1FFRRQr88MMPkaTKWim/4yu4SIg7OwAAAAAAJCHzzSGLFi2qVKlSuCcVG7fV
VlvNmzcvfVVoDklKVM0h6718IK3NIcFYtWrVKhgozKvjb7vttjTNaoEJEyZE
WPVmRnNIeBHuZY8++mjRJae1OWTo0KGFA02cODF9A23U5tQcMm7cuKiqSLnj
bj2XXXZZVJG2SPVUdfvtt0cVoF27dpFMyxFHHBFVpB133DHed+9kwKpVq6pV
q5bC5AwYMCDu7AAAAAAAkITMN4cELrrootDPKzYiqicsG6I5JClRNYcETjzx
xMLFprU5ZPLkyYUDXXzxxSkvZ+7cueXKlUvTxG6R5jfkbOo0h4QX4V720Ucf
FV1yWptDin4AZf78+ekbaKM2p+aQxYsXR1VFzZo1I4l0ySWXRBVp5513Tq0L
4u23344qQ8uWLSOZlsMOOyyqSGeccUYkkbJcnz59UpicV199Ne7gAAAAAACQ
hFiaQ7799tvQzys2It2/Kq45JCkRNodcccUVhYtNa3NI0Td+DBw4MMyi2rZt
m6aJDTRu3Diqkjc/mkPCi3AvW7p0adElp685ZM2aNZUrVy4YZdttt433vQeb
U3NIoG7dupFUEayXSPJcfPHFkeQJtGnTJrUMixYtiirDiSeeGMm0NGrUKKpI
d999dySRstycOXO23HLLZCdns//gDgAAAAAAm5lYmkP+/X/f/xC5hg0bpvtp
oOaQpETYHFL0axHpaw4Jtp999tmncKDXXnstzNLGjx+fpokNlClT5s8//4yq
8M2M5pDwot3LateuXbjk9DWHBKewwlEOOeSQNI2SoM2sOaRjx46RVFG2bNlI
TtMRvojsvvvuSznGvvvuG0mGI488MvycBA4++OBI8gQ+/vjjSCJlvzZt2iQ1
M8HJd82aNXGnBgAAAACAJMTVHDJ69OiIHlyUYMiQIenOrzkkKRE2h3z++eeF
i01fc8i4ceOK5g/528H5+fn16tVL09wGnnnmmagK38xMmzZt/yx2yy23RFjs
JtEccvrppxcuOX3NIcccc0zhKGeffXaaRknQZtYcEhxtoipk1apV4fNceOGF
UeUJTi4px4jq6zYHHnhg+DkJNGjQIJI8FStW/O/pfxg2bFhSk7PPPvvEHRkA
AAAAAJITV3NIXl5enTp1Inl4sZ4ddthh5cqV6c6vOSQpETaHFP0yRfqaQ1q2
bFk4SiS/HTxw4MA0ze0WIb6GwOZkk2gOKXrGSVNzyNdff100/3XXXZeOURK3
mTWHzJs3L6pCInnlUZcuXSIJU7ly5dzc3JRjRNXvmpOTE35OAgceeGAkeZo0
aRJJnk3C77//ntTkXHHFFXFHBgAAAACA5MTVHPLvtD0uv+qqqzIQXnNIUiJs
Dglst912BYtNU3PIrFmzypQpUxi+du3a4Ze5cOHCypUrp2l6K1WqtGLFivAh
2aRtEs0h9913X+GS09QccsEFFxTNP3To0HSMkrjNrDnk39G9lWLmzJnhw5x/
/vmRhDnhhBPCxFi6dGm5cuXCx6hevXr4OQnst99+4cME+vTpE0meTUX9+vUT
n5y333477rwAAAAAAJCcGJtDFi9enI7H5dH2IWyI5pCkRLtSrr/++i7/Y/Dg
wREutlDv3r2Lhj/ppJMiWWzfvn3TNL2BF154IZKQbLo2ieaQzz77rMv/N2/e
vAiXXGDRokWVKlUqmv/DDz+MfJSkbH7NIdddd10khUyZMiV8mPPOOy+SMP37
9w+Z5MQTTwwfY+uttw4/J4F99tknfJjAu+++G0meTcVFF12U4MwEl6+rV6+O
Oy8AAAAAACQnxuaQwMUXXxzJ84tCzZs3z0xyzSFJyUzHTiRWrVpVrVq1ouG7
desWyZKXLl264447pmmGTzvttEhCsunaJJpD0m3AgAHr5U9HC0pSNr/mkEmT
JkVSyCeffBI+TIcOHSIJ88MPP4RM8tBDD0WSJC8vL/y01K1bN3ySqlWrhvnU
zqaof//+CU7OGWecEXdYAAAAAABIWrzNId9//3345xdFvfHGG5lJrjkkKZtQ
c8iwYcPWC3/vvfdGtfCi39SIXLA3RZUzOy1fvjzuCFlNc0heXt6ee+5ZNHyV
KlXy8/PjTbX5NYcEU7rrrruGL2TcuHHhw7Rr1y58knr16oVP8ssvv4RPEli2
bFn4MOvtCKk599xzwyfZtDz//PMJTs6jjz4ad1gAAAAAAEhavM0hgWbNmoV/
hFFgr732iuRXbhOhOSQpm0pzyOrVq4v/wvUrr7wS4fIjeWZXoq5du0aVMwvl
5uZ6O0rpNIcU7+w66KCD4g61GTaHBLp16xa+kJdffjl8kkjOxVdddVX4JIGG
DRuGDzN37tzwSXJycsIn+S/8Wtnnn3+eyMxUqlRp4cKFcYcFAAAAAICkxd4c
MmbMmPCPMAoMHDgwY7E1hyRlU2kOueWWW4qH/+677yIc4rXXXkvTJFeoUGH+
/PkRRs0e+fn5Xbt2DWqMO0hW+y9vDlm4cGHxzza1adMm7lybZ3PIW2+9Fb6Q
Z599NnySs846K3ySjz/+OHySQL9+/cKH+emnn8InqVWrVsgYFStW/C98WdOs
WbMSmZzu3bvHnRQAAAAAAFIRe3NIXl7eXnvtFfIpRmDrrbdetGhRxmJrDknK
JtEcMn369AoVKhQPv3r16mgHat68eZrm+eabb442apa47bbbCgqMO0hW+y9v
DrnwwguLh+/du3fcuTbP5pDgxF2nTp2QhTz22GPhk5x55pkhY+y2225RfXto
zpw5W265Zcg8X331VfgkQVEhYwQTGz7GJifBvfWHH36IOykAAAAAAKTiiiuu
KH7f+1//+lcmM9x///0hn2IELrzwwkxm1hySlOxvDsnPzy/xC0e1atWKfKyf
fvqpfPny6Zjn6tWrr1q1KvLA8Ro4cGBhgXFnyWr/zc0hH3/8cYnhhwwZEne0
vxoGol0j7777btw1/eXee+8NWUiwhPAxWrVqFTJGz549w8co1LZt25B5Pvjg
g/Axdtlll5AxRo4cGT7GJieR5pBTTz017pgAAAAAAJCiyy+/vPit7+HDh2cy
w9KlS6tUqRLyQcbkyZMzmVlzSFKmT58eY12JGDlyZInJmzZtmo7hBg0alKap
vuOOO9IROC4PPvhg0erijpPV0tQc0r59+7gr24jc3NwGDRqUGD4bXrIxe/bs
aNfIhAkT4q7pL4sWLapUqVKYQq6//vrwMVq0aBFyPqN9C8QHH3wQMs/o0aPD
x9hpp53CZKhRo8aaNWvCx9jkzJgxY6OT8/bbb8cdEwAAAAAAUnTZZZcVv/X9
zDPPZDjGpZdeGuZBxrHHHpvhwJpDkvLjjz/GWNdGLV26tGbNmiUmT9MbafLz
8//xj3+kY6orVKjw008/pSNz5j3yyCPrVRd3oqyWpuaQ4FgXd2UbUfTdMuv5
7bff4k7375kzZ0a7Rt555524a/pfXbt2DVNIp06dwmc45ZRTwmSIvP0vOLYf
dNBBYSJF8rWdqlWrhsmQDd9jikWwc5U+MwcffHBUHyECAAAAAIDMK7ErY9iw
YRmO8eOPP4Z5kPHcc89lOLDmkKRE+6vZ0crLyyvlQwB33313msZdvnz5fvvt
l47Zbtq06Wbw9Orxxx8vXlrcobJamppDgr0j7spKM2nSpK233rrE5MGfZ8OO
MH369GjXSPa8uOCbb74JU8jJJ58cPsORRx4ZJkM6Pp4yZMiQMJH69u0bMkCw
2ZctWzZMhp9//jmKmfhPnjfeeKNr166NGjXKycnZe++9DznkkM6dOw8aNCjY
f3NzcyMcK6QBAwaUPjNZ8t4eAAAAAABIzSWXXFL87vfQoUMzn+TUU09N7SlG
zZo1165dm+G0pbQThLHnnntmuJCiBg8enI6iAlOnTo2xrtJdeeWVpSR/6aWX
0jf0999/H/6DSiV66qmn0hc7Azb0dDXuXFlt9913T8e21KZNm7gr26Dp06dX
r159Q8nr168fd8C/hGx9LO7NN9+Mu6b/OO6441Iu5MADDwwfYJ999kk5QI0a
NdJx8bBy5cowL+7o0qVLyABLly5NefQtImraKfTqq682bNiwlOGCtXD55Zdn
yevFzjvvvFKitmzZMu6AAAAAAAAQSo8ePYrfAB88eHDmk7zxxhupPci4+eab
M5+2TZs2qaUtXU5OTuZrKVTiuxoi8fXXX8dYVylK+SBFgSlTpqQ1wHPPPZeO
Ca9ateoff/yR1uRpkp+ff9ddd22orrjTZbVdd901HdtSixYt4q6sZPPnz99r
r71KSd66deu4M/5l6tSp0a6RMWPGxF3Tf4waNSrlQqpVqxZy9OBwEaa/7p57
7olkEoq75pprUk516qmnhhz9u+++S3n0wPvvvx/JJARr5/bbb0983FatWn3/
/feRDJ1y4FJ6jSpWrDh9+vQY4wEAAAAAQHgXX3xx8Xvgjz/+eOaT5Ofn16tX
L9mnGOXKlfv9998zn7ZVq1bJRk1ErVq1Ml9LoUGDBqWjqMC7774bY10bMnLk
yI0mX7lyZbpjlPhpp/BOOeWUrHpdfyKCwBdeeGEpRcUdMKvVrFkzHRvSscce
G3dlJVixYsVhhx1WevKrr7467ph/mThxYrRrZPjw4XHX9B/BPhvmlTWrV68O
M3pw9k956GB/Sd/hfdasWSl/2KVBgwYhR3/ppZdSnpZmzZpFMgOBfv36JTv6
Vlttdf3112fgtFui0nfVO+64I5ZUAAAAAAAQoe7duxe/Bz5o0KBYwjz00EPJ
Pkr4+9//HkvUM844I9moidhtt91iKafAww8/nI6iAi+++GKMdZXo3XffLV++
fOmxd9111wwkWbNmzUknnZSOae/UqVN+fn4GSojEkiVLmjVrVko5TZo0iTtj
VqtRo0Y6tqIDDjgg7srWl5ube/rpp280eSxdjsWNHj062jUSnCjjrun/ePrp
p1OuZcaMGWGGfu+991IeOjjfRTUDJSrxm32J2HHHHUMOXcrLlzZq0qRJkZQ/
YsSIlDPk5OTE8nqcjh07bihScBjM/OcLAQAAAAAgcueee27x2+ADBgyIJcyy
Zcu23XbbpB4ifPjhh7FEPeWUU5J93pGInXbaKZZyCmz0Gyspi+VDRaUYO3bs
Nttss9HYxx13XGbyrFq1qnnz5umY+RtuuCEzJYQ0e/bsAw88sJRCjj766OXL
l8cdM6ttv/326diEdtlll7gr+z+CzaB169aJJJ8wYULcYf8yZMiQaNdIv379
4q7p/8jPzz/mmGNSqyVkD8ATTzyR2rh77LHHmjVropqBEi1atCjlfq0///wz
zNBdunRJbdyWLVtGUvvatWtr1aqVWoZCwW7+yy+/RJInEQsWLKhYsWKJSYKr
hR9++CFjSQAAAAAAIH1K/P3rK6+8Mq48V1xxReLPDho0aBDXixEaNWqU4gOP
UpUrVy7GVz306dMnHUUF7rrrrriKWk8wvUGYMmXKJBK7S5cuGQu2Zs2aNm3a
pGPy43oRUOImTJiw8847l1LCkUceuXTp0rhjZrXc3Nx0bDyBihUrxl3cf8yc
ObN+/foJJv/111/jzvuX/v37R7tGgrNk3DWt75tvvkntKyohP9XRs2fP1Obw
tddei6r2Ujz11FOpxRs/fnyYcY8++ugUBt16661//vnnSAoP8zKZoipXrvzw
ww9n5qKolNeGZGZrAQAAAACADKhbt27xO+Ft2rSJK8/06dMTf3DwxBNPxJUz
/G/FbsiiRYviKirlXzfeqGuvvTauoooK5vass85KPPadd96ZyXi5ubn/+Mc/
Ip/8MmXKDB8+PJOFJG716tW9evUqPf8pp5yybNmyuJNmu99//z3yLafQqlWr
4q7vL6NHj65WrVqCmStWrJiXlxd35L9cddVV0a6O8847L+6aShAc5FOopXXr
1mEGPfjgg1MYNDjMRlV16fLz85s2bZpCwv79+6c86PLly7faaqsUBn3wwQej
Kjy1qjfkb3/725w5c6LKVqI33nhjQ6PfdtttaR0aAAAAAAAy5tdffy3xZnjD
hg1jTFXiy0yK23777VesWBFLwvz8/A29fjy8adOmxVJUoEWLFmkqqmPHjnEV
Vei9997bfffdk4r9wgsvZDhkXl7eBRdckI5VcOONN8b4UpoSTZ48ufRPyQQ6
d+6cm5sbd9JNwNdff52OzabAzJkz461u5cqV3bt3Tyrz/vvvH2/mQqW8kSA1
wYE67ppKsHr16mDOk62levXqKR+X5s2bl8Ls1ahRY8GCBdHWXopg36lSpUqy
IZs3b57yiK+++moK03L00UdH1UwVrNBkvw+4UcH13ogRIyKJV9zixYs31O7b
pk2bbDtvAgAAAABAyh544IES74eXKVPmjz/+iCvV22+/ncjDghi/fbNs2bLU
H3JszAcffBBXXUcccUSaiqpTp05cRQV++OGHDh06JPgpmaImT56c+bT5+fmX
XHJJOtZC69atY3wvTVHr1q275557Nvrr7TfffLMHcwl6880307HNFBg2bFhc
da1du3bIkCE5OTnJZm7ZsmVcmdfTvHnzaFfHUUcdFXdNJQsOmJUqVUq2nOD4
nNpwqX275OWXX4626o169tlnkw25/fbbp9yq0aNHj2SHq1KlSoRdqYsXL042
QILatm07f/78qHIWWLVq1bHHHlvicIcccsjy5cujHQ4AAAAAAOKSn59fr169
Dd2E79evX4zB9t13340+Jvjpp5/iSpjUt2+SNWrUqLjqqlOnTvrqmjhxYuYr
+u6779q1a5dCW0iBuB4MBbvAI488ko6309SqVeujjz6KpahCr7/++gEHHFB6
zrJlyw4ZMiTenJuW1B6UJ+jEE0/MfEVr1qx57LHH9thjj9Qy9+rVK/OZSxT5
cXWbbbZZt25d3GWVbPjw4cmWc9ddd6U2Vtu2bZMd6/rrr4+23gRdfvnlyUZ9
7733UhgoLy+vdu3ayY4VbcNMWrtnq1evHuEbvVavXn3aaaeVONBxxx23ZMmS
qAYCAAAAAIDYlf6Cjho1aqxcuTKubIMGDSr9AcGpp54aV7bAyy+/nPqzjY0Z
MGBALEUtXry4XLly6avr4IMPXrZsWcbK+eabb1J4dFhUzZo1M5a2RFOnTj3o
oIOimv+i2rVrF8vXiz744IOmTZtuNN7222//+uuvZz7eJu2aa65Jx6ZS6Jln
nslYLatXr3744Yd32223MIEfffTRjAUuxU8//RTVKijq888/j7uyDerZs2dS
teTk5KTQ6zJz5syyZcsmNdBZZ50V1ZdTkpWbm9ukSZOk0gbnrxQGGjVqVFKj
BPr37x9tscEkV61aNdkYSWnWrFn493rNnTv3hBNOKHH5LVu2XLVqVSSzAQAA
AAAA2SA/P/9vf/tb6bffL7300rjiLV++fLvttisl25gxY+LKFjjnnHNSf6qx
MSeddFIsRQ0dOjR9RRU47bTTcnNz01dCXl7epEmTbr755ki+j3PMMcekL2qC
1qxZc9VVV4WvpbiyZct27NhxxowZGahi9erVzz//fCJtIYGjjz569uzZGUi1
OQm2/LS+9iew1VZbTZgwIa1VLFiwYPjw4R06dKhWrVr4wOPGjUtr2gTddNNN
4WsprmfPnnFXtkHBQT7Bnb3Q6NGjkx0luD5JaojgwBLv4/4//vhj9913Tzzw
lltuOWfOnKSGCK7rDjvssKSmpXv37un4dFe7du2SipGCMmXKdOrUKdkpKvTa
a69Vr169xCUHi03rhQoAAAAAAGTe4MGDE7n9Pnbs2LgS9urVa0Op6tSpE9fv
/wZmzJiR7C8sJ6VMmTJTp07NcFH5+fkNGjRIX1GFDj/88ClTpkQbfuHChf/6
17/OPffcGjVqRBj1/PPPjzZnysaNG7fLLrtEWFqhLbfc8oILLvjoo4/S8ZWK
YKP6/PPPL7744h122CGRMMGWf+ONN3oql4JXXnklHZvHesqXL9+/f//Vq1dH
mDzYSL744ot+/fo1btw45c8/lWjWrFkR5kzNn3/+uaEH0CFtt912mensSs3i
xYsbNWqUeDlNmjRJqkVh3rx5lSpVSnz59erVW7BgQfrqTVBwZk/qJHX11Vcn
tfx33nkn8YUHWrRokabvEz3//PNJJUlZsBn06dPnt99+SzxbsBY6duy4oQVe
e+216eiWAQAAAACAGH3wwQfly5dP5MZ7xYoVx48fH0vIn3/+eUPPCu+9995Y
IgXWrl17/PHHp/YUI3GHHHLI4sWLM1nXPffck+6iijrjjDPuuuuut99++88/
/0w8ZH5+/ty5cydOnPjss8/eeuutXbp0OeGEE+rUqRPtM+VCt99+e/omPFkL
Fixo06ZNOsossOOOO3bs2HHUqFHhP/0TRH3llVd69uy5//77Jx5gt912e++9
9yKZq/82wU6Uk5OTvm1jPbvvvvsVV1zxz3/+c8qUKUl18qxater7778fO3bs
ww8/3KtXrzPPPLNhw4bbb799OkIGJ7gYGwgLLF++/PDDD09HdQUOPPDAYIh4
ayzFwoULk/oqVuKfAQpOBK1atUp8yYceemhSzQNpFew1wcE2weRly5b97LPP
ElxysDHstddeiU9Lu3bt0vcqlWDvO+qooxIPE9KWW27ZsmXL4Py1YsWKDUVa
tGjRyy+/fNJJJ21oIbvssssbb7yRpgkBAAAAAIBY5Ofn33///Ql2hhSoVKnS
c889F0vali1bFs9TsWLFhQsXxpIn0K1bt1QeXSTv8MMPX7p0aWaKGjNmTJr6
KxJRtWrVXXbZZY899qhTkuDPg7+tXr369ttvX6FChUwGGzlyZGbmP3Hjxo07
+OCD01p1cHA48cQTL7300uBA8eqrr06dOrX0N0UEW+m33377+uuvP/7448He
kVRDSKH27dtnw+/1b4rWrl3bpEmTyDeDBAVby0477bT77rvn5OQU33mDPwz+
auedd65Wrdq2226byWD77rtv7Ovl1FNPTXeZbdq0yeY37fz5558HHHBAgrUE
Z/YEH833798/8Slq27btypUr011pUr7++usEX6YUqFWr1rRp0za6zGB7CypN
fFpuvfXWdL8fY8qUKeXKlUs8UiSCK5m99toruHTs1avXDf/j6quvPuusszb6
1a3gHBTjhSUAAAAAAKTD7NmzTz755NRuuXfs2PGXX37JcODx48cXT9KlS5cM
xyiwbNmy7t27pzZ7qTnggAM+/fTTtBaVn58/ZMiQKlWqZLKuTcWXX36Z1slP
TV5e3rPPPrvHHntkcip23XXXBg0aNGrU6MgjjzzmmGMaN2586KGH7r///ttt
t13IJQfL/Oijj+Ke1E1VmEP65u3000+Pcb18/fXXwZ6SmUqPOOKIH3/8McZi
Szd//vzEm5cKPixVyluzlixZcv755yc+OX379s3OT4RMmTKldu3aCVaxzTbb
DBs2rJQmvZkzZyb+mo6KFSs+//zzmSnzxRdf3HLLLRNfX7GoVq3aCy+8kJkJ
AQAAAACADMjLy3vnnXfOOeeckHfpy5Yte+aZZ7755pulvLg7Wvn5+cV/7/ir
r77KzOiF/vjjjwEDBlSvXj3M7KWsXbt2U6ZMifwJ18qVK1966aWkXvv/3yZj
b25Jwdq1awcPHpzJj4lEbqeddho6dGjs3/7YFAVHgxkzZlxxxRUZfpfOJiSY
nMyvl1WrVr322mvt27cPzpWZLLZ8+fIXXXTRJ598kp2NEMHBKqm+ynLlyp18
8slPPPHEd999N3v27Llz506dOvW5557r1q1b5cqVE1xIsGsMHz487tJL8+ef
fyb1ibptttkmuBgYNWrUtGnT5syZ89tvv33xxRfBIbRNmzaJb281a9acNGlS
JssMAmdtf0gQrGvXrsEGlskJAQAAAACACM2ePXvq1Knffffdl19+OWLEiD59
+rRo0aJmzZqR31E/9NBDL7nkkrvvvvuZZ54ZP378119//e2336ajaeTxxx8v
OvRRRx0V+RCBadOmff//TZkyZdKkSe+9995DDz3Uvn37PffcM9rZS0316tWb
N2/er1+/N95447PPPps8eXKwogszr1mzpnhRc+bMKfwHBZvExIkTn3322R49
ehxyyCFZ+7wmS+y0007p2NKilZubO2zYsH333Tfu2UrO1ltvfc0112Rz703s
Vq9eXbjzBnv6N998E+z148aN69+/f8uWLYONM+51mO0eeeSRaNfI8uXLC1dH
cI4IDqeffvrpBx98EJxnb7nllg4dOhxxxBHBhh1v1cG5/uSTT+7Vq1dwWHj/
/feDbSY4NQcH/4LkS5YsiXZOkvLYY49l7CMjNWrU+Pjjj2MsNkFr164NTseZ
mZNAw4YNf/3118yXGVxN7bLLLhkrMxFlypQ555xzsvmVOwAAAAAAkIjjjjsu
xvvt48ePj7yiFStW7LDDDoVDjBgxIvIhAttuu22M8xZeic84zjrrrLhzbcLS
1IaUDvn5+ZMmTbrsssvierlN4nbaaafbbrtt4cKFcc9Ztps6dWrc62rT9tZb
b0W7RsaOHRt3TWGl6eyZuMmTJx988MHpLrNz587z58+Pt9KkjB49OvIO3vVU
rFjx1ltvLeXDNOm2YMGCjh07prXGBG211VZdunTRFgIAAAAAwOZh82sOCVx9
9dUFy995551LfEVGeJpDWM95552Xji0trXJzc8eOHXvOOedUrFgx7vlb37HH
HjtixIg07b+bH80hIf3888/RrhHNIZEIjlEDBgyoUqVKOgps2LDhJvHCkOIW
L1586aWXlilTJh3T0qpVq5kzZ8Zd4l+CS8RmzZqlo8ZE1K9fv3///nPmzIl7
GgAAAAAAIDKbZXPIrFmzypYtGyy/b9++6Vj+vzWHUEy/fv3StLFlwNKlS596
6qlmzZpVrlw5xjkMdtvgiHTvvff6Ne1kaQ4Jo1y5cuvWrYt2jWgOidDcuXP7
9OlT9J1gIe29997PPvtsXl5e3JWF8u23355//vlbbbVVVNNyzDHHvP/++3GX
tb7vv/++R48eGTs31apV69prr50yZUrcdQMAAAAAAEAarVu37quvvnr44Yfb
t2+fk5OTmYdxVatWPeecc4YPH75o0aK4JwDIUsuXLw8OTfXq1Uv5UFOuXLm2
bduOGzduU28LKWru3LnXX399jRo1Up6W7bbbrkePHpMnT467lNIsWbLkkUce
ad269Y477phypRtSuXLlE0444YYbbnj//fc3p20DAAAAAAAAEvT777+PGjWq
Z8+exx9//N5777311ltH8iSuTp06rVu3vvnmm1955ZVZs2bl5+fHXSiwyfjx
xx8ffPDBU089tVKlSokccHJycjp16vT000//8ccfcWdPl7y8vEmTJvXr1++o
o44qeHPaRjVo0ODyyy8PDsIrVqyIO34SgvPF1KlTH3300Xbt2u21114VKlRI
4RxUpUqVffbZJ1jCQw899OWXX+bm5sZdFgAAAAAAAGSR/Pz8xYsXf/vtt2++
+eaQIUNuueWWrl27tmjRolmzZieccEKTJk0aN258+OGHB/977LHHHn/88c2b
N+/cuXPv3r0HDhw4fPjwcePGffPNN0uXLo27DmBzsG7dulmzZo0fP37w4MF9
+vS59NJLL7room7dugX/ceuttz7zzDMffPDBb7/9FnfMTFuzZs20adNef/31
hx566KqrrrrkkkuCA3X37t0vv/zyu+++e+TIkZ999tlm85qm4Ky0YMGC4MwS
1BtsBjfffHPPnj0vu+yyiy++uKDqYGMI/uSmm24KzlnBmeu7775bsmRJ3KkB
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAA2YXl5efPnz//2228nTJjw3HPPPfjgg3379r3ooos6dOjQrl27s88+u02b
Nm3btg3+O/iTjh079ujRo1+/fo899thLL700ceLE6dOnL1u2LJOBc3Nz27dv
3+Z/BIEzOTRAfn7+mDFj3nzzzbiDAAAAAEAS1q1bN3v27MmTJ3/44Yevv/76
yJEjhwwZct99991zzz0PPvjgY4899uSTTwb/G/z3vffeO3DgwCeeeGLEiBGv
vvrqhAkTJk2a9P333y9evDjuIgAASMIff/wxbty44NLu/PPPb9SoUaVKlbYI
LVjI3nvv3apVq759+z7//PPTp0/Pz89PU/4xY8YUjhsMl6ZRAEr07rvvFhx/
vvjii7izAAAAAEDJVq5c+eGHHw4ZMuSaa65p1arV/vvvX758+fDPAqpVq3b4
4Ye3b9/+xhtvfPrppz/55JPVq1fHXSsAAP8xe/bsxx9//Mwzz6xRo0b4y79E
7LjjjsFwwcXhokWLoq2lTZs2haNoDgEy7PTTTy84/nTo0CHuLAAAAEA8Hn74
4V2zz5FHHpm+X9nLsHbt2sU9nSV48skn456YjVi7du2HH354yy23HHfccZG0
giSiQoUKwXB9+/YdN27cihUr4p6D0tx0001xb0QJ2X333WvXrr3nnnvWrVt3
v/32O+KII0477bTzzjvvyiuvvO222x577LEXXnhhwoQJU6ZMmTt37qa+1z/4
4INxz/em56OPPkp5wufMmRN3/AiMGTMmwo0w3e677764JyysevXqxT2Lybn2
2mvjnrNQ+vTpU7yo6667Lu5cu44dOzbza7PQJ598Elfhr7/+eoyFJ27lypVB
1Msvv3zffffNzEVgicqVK/e3v/1t0KBBv//+e/iivvzyy6IL3zyaQ2bNmhXX
xhyVYGNbr6hsuMBo1arVunXrYlmnBVq0aBFL4WeccUaMVW/efvjhh6IHt99+
+y3uRJFZunRpLJtrUvbYY486deoU/FBcv379hg0bnnjiieeee27v3r2DnyJf
fPHFTz/99Ndff83NzY17Ov9Xs2bN4p6zjahVq1ZOTs7ee+8dXCoceOCBBx98
8DHHHPP3v//9yiuvvPfee0eMGPH+++/PmDFj1apVcc/lX5o2bRr3hIXVq1ev
uGcxOcG+FvechfLxxx+XWNdmsC1l2CGHHJLyVvTQQw/FHT8hRW+9BofEww47
7NRTT+3QoUPww9Stt94a/CwzcuTI8ePHT548OTj75+XlpTwhAMBm484778z4
fdaEbB5fwp05c2bcE1myBx54IO65Kdny5cufeuqpk08+eeutt453isqVK3fk
kUcGO8js2bPjnpUSBFf48c5POmyzzTZHHHFE586dBwwYEBwB5syZs2m1i9x+
++1xT+GmJ/j5NOUJD/bNuONH4IUXXohuG0y7W265Je4JC6tKlSpxz2Jyunbt
GvechdK9e/fiRV188cVx59piu+22++mnnzK/Qgu8//77cRX+4osvxlV1IoLz
/meffRZs9sElQVxTtCGNGzd+5JFHFi5cmHJpxx13XNEFbh7NITNmzIhphUSm
eEN4llxg9O7dO5Z1WiC4Jo+l6uDnrxir3rytd0Vx/fXXx50oMkuWLIllc02H
MmXK1KxZ85BDDmnRosWVV14ZnLX/+OOPWGb1oIMOinsyIlO1atUDDzywWbNm
wV4wdOjQ4Aow8/cZ9t9//7inIazOnTtneNJC2n777eOes1Dee++9Euvab7/9
4o62idlll11S3oruuOOOuONHb+utt27UqNF555131113jRkzZtasWZvWrVcA
IBJZ2xzSvHnzuOcmAr179457IkuWbc0heXl5EyZMCC5NK1euHPfclKBJkyZP
PPFE5K8WD2OzbA4pLvhx/qijjurWrduLL764dOnSuGd9IzSHpEBziOaQDNMc
kmFZ2xwSOOCAA5YvX575dfpvzSElWbhwYXB1Wr9+/bhmJkHly5dv06bN6NGj
165dm1SBL7300nqL0hySJbK2OWSLWC8SNIdsZubPn1+hQoWiU12tWrXir83Z
RG1OzSElqlu3bqdOnZ588skff/wxY4/wNqfmkOJ22mmnM888c+DAgZMmTcrM
21o0h2Se5hAKaA7ZqG222ebwww/v0qXLv/71r5Q74QGATcvPP//81v/3xhtv
jB49euTIkcHFzxlnnBH8uBTvxcn06dPjnp5Q1qxZU7169RgnMCcnp127dg88
8MDzzz//6quvvvnmm4XrOnvehrF48eJbb721du3aMU5UgsqXL3/mmWe+//77
cc/ZX3744YfCtRms2WD9Bmv57rvvbtOmzW677Rb3VKVFuXLlmjZtes8990yd
OjU729qLHk6DlRIcToMfrAYNGtSxY8c6derEPX9ZKkxzyKpVq94qYuzYsS+9
9NLQoUMvueSSQw89NNhg4i7uL8Fxo3Hjxj179nz66aeDeEHIt/6vefPmRbcN
pt2MGTPWO/K88MILAwcO/Pvf/549h/EaNWoE1zB33nnnc889F+yGwbVN0Ql/
55134p7F5Hz33XfrzXlwnXbXXXe1bt161113jXuy/1eQ5Kyzzrr33nuLX28E
R+ziRX377bfBvxw8ePCNN9542mmnBassruRnn312LCeURYsWBbMUbJyjRo0K
zmvdunVr1qxZ+naiffbZJ7iAufbaa4M5nzt3bubrLd20adM6dOiQsW8IRiW4
yL/88su/+uqrRGr89ddfa9Wqtd4SNo/mkJUrV653Ln7xxReDc3GPHj0aNWqU
VefiXr16lXguLv71luAC45VXXgn+8f3339+5c+cGDRqULVs2luSVK1cODpix
rNlPP/00OEwFcxUcN3r37h0cLYMVul53QVS222674CK/a9euwfEwzJUhpSix
v/fxxx+PO1c0cnNzg1Pqa6+99vLLLwcXGI888kiwv7dq1ap+/frZ+bsnYeyy
yy6XXXbZJ598ku4LmIkTJ44ZMyY4GAbXKk8++eT111/frl27ww8/PN57XOlQ
pUqVoLTgp4Y1a9akbz4/+uijordeg4kdMWLEDTfccNJJJ2277bZxz8H/2nff
fTt16vTYY48FKz3YoYpe0gfiOh+lLDihFIZ//fXXg+PDM888c8011zRp0iT2
NxUXKFOmTHCNcdFFFw0ZMiSY82CPKzrnG3pGX3RbCuoKrrueffbZO+6449RT
T83CN+9lgzDNIevd5Su4AXLfffedc845OTk5cVeWFsFF71FHHXXbbbcFP+Zk
561XACDdgmuAWbNmBdcDO+ywQywXJFdeeWXccxDK8OHDY5m3+vXrB0Nn4c3/
9SxZsuSWW27ZbrvtIqk6+OEuKLxVq1Y9e/YMLtQfffTRJ554YtCgQcF/9+rV
64wzzthvv/2ieu4Q/Cw5bty4bL5InjNnzoABA2J83JZutWvX7t69+9tvv70J
fSvzl19+ueeee4IfS+OevOySvkcAq1atChberFmzWOoKfqDu1KnTxIkT03qP
MdvMmzcvOOrG1Z+28847Dxw4cMaMGdl8cI5ccGC56667qlWrFsuc5+TkPP74
40GGkFUEq+zXX399+un/x955x0Vxrf+fLiCCFXvXKIkNI2psiBXRaNTYri1Y
YoixJvbysht7Q6NGTSKKLZZrNGK4avQaLLlqghWNURRELEhTiuzyOz/mfve7
352ZZXfnPOfMLM/7z0RmPs+zZ3fPzL7nnF3NmjVjX8XKlSupvBZUiI2NnT59
utgisIH33ntv7NixP/74I6/l6C3hwYMHoaGhcD+7k4+jjh07Dh48mHwgh4WF
ffHFF2PGjPnkk08GDRrUvn17WtMkMv9ctmzZvXv35Mq8efOmpCNqH3KIech3
MZkzd+7cmUqrrcXZ2XnUqFEXL15U/l385s2bmJgYMvl0d3dnXEWdOnVSU1Op
vBzKSU9P37lzJ5lcKX/bkmvAnj17kguWa9euif0chC7knSj5iUcukO1+1kQK
fPLkCRlp5K2kcNCqDXJFPGPGDOXTMBsgHwX79u1r164d7x5QpmTJkmTC8Pvv
vzPup06nI1MFMktxdXXlUnibNm2OHj2qqpVyoSHfO1evXh0+fLijoyOXnnfr
1u2XX37JyMigXhcZwGQYq8TOVQlK5BDzkOusrVu3Url2UyekdSNHjvzpp59w
qoYgCIIgRRNyjcBlVXMfHx9ey31ToW3btuw79t1336n/5/L09PTFixdTkY6a
NGkyc+bM3377zZKZKukMuQCcO3du48aNlZ/6gw8++Pnnn9V8P428fSZNmsTr
apcNdevWXbt2rYbuY+Tk5CxdutTZ2Zl359QCg+dDT548Wb16dZZFtW/f/s6d
O9B1qZasrKzZs2ezHOTkXHPmzLGbpdFtIC0tjfFGLR4eHqtXr7Z2W41CIV+p
Bw8eZLwiCvmWPHXqFN1CFEL6cPjwYdvUhWLFik2ePDkxMZF3EYWQkJDw2Wef
0b1x7erqGhISMm/evL179167ds2Si4gXL16cO3du8+bN48aN69Chg8Lf/Rs0
aEAmmcYP2d26dWvixIlyT6cWBTnEAJkzV61aVUl7rYW8oHfv3qVeyJMnTwYN
GsSyEIeC7VbVdn1H+tC3b1/bygkICDhx4gT+ysCS7du3y70cv/zyC+90jCCT
lvDwcKDVbzhCvkmHDx9Ovm64dJVcZ9nlr6JBQUGkNPa3eu7fv9+pUyeWlVap
UuXo0aNqvqkFTWxsLPlWYtnzevXqnT17FrquR48e8XpMRoXAySEC2dnZ5ALE
voUcMo1fsmSJmh86QBAEQRAEjm3btrGffmzZsoV33TZy48YNxr0qVqzYpUuX
eNddCOSqkwyk0qVLKyzW1dV11KhRcXFxNieJj4+fM2eO8gU8W7RoYeGK4rzY
vXu3whoLxdnZmbwi5FKIl/Pg4eExceLEhIQE3s22lH//+9+8VmRSG2wWD3/+
/DmzXZ47d+7MZt9qlfPTTz8xuz3yww8/8C5XFZj56Ycujo6OUVFRcIU8e/aM
isNpOWRa8vDhQ7iKbOPFixcDBgywqhDSN/WbaVlZWTNmzKC4iQyZe3Tr1u37
779XbopmZGRERkb26NFD4cdX+fLl33///UKfUi9Sckh+wepSfn5+ShprOcHB
waDfxevWrWNTiIF58+bBlWMb5LJuz549Vk1onZycSOvUJrrYPeSVevfdd+Ve
FPL5yTsgU06dOkWuHGm8KVVH7969uUxmHj16ZH+rsgj4+/ufO3eOcT/JJ+TI
kSPZFOjr6xsfH8+4QBWSk5ND5n5sek7eLC9fvmRTFxlLs2fPZlOXyoGWQwRO
nDgBvfgPmUcJt155iSjk7KNHj/7rr78Y9BNBEARBEFWxefNmxhOP9957T6MS
O+NneAl79+7lXXQhkAlkUFCQwjKdnZ0pPhL76tWr+fPnK9zahszPp06dquaH
1nfs2KGw7eb597//bThXXl5eWlpaQkLCnTt3fv/99zNnzhw6dGjt2rUTJkzo
1atX48aN4XbUJddHo0aNMrOuu6o4ePAgUB8ESM9vW8CtW7euX7/+xx9/XL16
lbxeFy9ePH/+/LFjx77//vtVq1ZNnz6dXPr17t27bdu2QA+FMdtZ/unTp/Xq
1YMowRg/Pz/1rP3OHfLeh9stwsDMmTN5F6oiNm3aBN1wQnh4OHQhKSkpzZs3
Z1CLAX9/f3V+jy9ZssTCEipXrqz+LQXJhKFu3bq0XrV3331327ZtEPfYyQgk
R+7YsSPo8mtFTQ7JL1hugsFviOT6kcxFoWv59ttvoQsx4ejRo9BF2cDDhw8t
3zNx3bp1vPMWRaKiosy/LuSKgHdGppCLHbj1Q7Zs2WK4zrpx48a1a9fI5dXh
w4eXLl06fPjwli1blixZEujUDgVPTCxbtoz6wm6FAvrZPmLECENLb968Sa5b
L1++TEY1+TwJCwsLCgqC3rY1NDT0+fPnLPup0+mGDBkCWpSDRh4uY0Z2dnaX
Ll2ge07e/koecLMBvV7fu3dvuIpcXV0tvOlE3ryxsbHkI/HKlSvkLXzhwoUz
Z84cPHiQfGaSi51JkyYNGzYsJCQkICCA1s7jxrCRQwhkqgb6xBzpmOFceXl5
6enpiYmJZFD95z//+fXXX48cObJhw4bJkyf36dOnadOmcM+jkeujQYMGkReU
TVcRBEEQBFEJZMIGNLuQg9lPhxTJyMjw8vJi2SUyMeNdtDnIrHXlypXKN+lu
1KgRuZqgHi81NfXTTz9VmK1WrVrR0dHUs9Hik08+UVigGYzlkEIh16f37t3b
sWPH8OHDSdOoh1G/q2Ng8ODB1Ms38OOPP1IPTD7ZyIX89u3bBw4cSEvyYfkJ
/8cff1DJbIYrV64wK0cTTJ48GbThDRs2xAeQTbB2rQlr6dy5M5tC0tPTGe9l
P3ToUBUKySTS6NGjCw3v5uZGPp95hzUHeUEpitNly5bdvHkzg2WaHj16NGLE
CCBFpAjKIQTyRQnRTGOYrem3a9cuBg6kgRIlSjD+UclCYmNjLfmpXZ2fsUWB
QnepGDNmDO+MrJk+fTql96UpP//8s/lTk3fBzZs3Z8yYAbfr5XvvvXfjxg02
nTRQqINkM1OmTCn07ElJSWvXrm3WrBlQhtKlSxv/JsuA3Nxc6H1RFy1axLIi
9ZOamgqhJRizfft29nUlJyeTaTNQReTbn3pg8iGZmJgYHR29dOnSNm3aUJmE
M5NDCNOmTVMeWA5rP4gePnwYERFBriWBnpMi8wd8NgpBEARBig6xsbEQMwoz
9O7dm3fRVrNlyxbGXWJ/+W85cXFxVK7T58yZk5OTA5czKipK+UXTsGHD0tPT
4ULazJ9//qn8JZDDKjnEhNu3b0+ePJn6ciK1a9c+ffo0xQZC8OzZM7jfFCDk
EGOys7OPHTum/DkUxvqf8sWLzNClSxeWtWiCR48ewTWcEBkZybtE1XHp0iXQ
nv/666/Mann9+jXj9UPWr1/PrDrLefPmTdWqVc0nX7VqFe+Y5jh58mShJViI
m5vbtGnTGKwLYczNmzc//PBDKvmNKZpyCKFt27bUm2mA8R4ZERERcLWIqV+/
vjovNFasWGE+efXq1TVhbtsfllwDuru7M9vmQCUkJSUBWX+FyiEG9Hr9+fPn
gZ7g8PDwOHDgAGgPxeWQDyiIWiyRQwzExcXNnj27ePHiEEnI9IOllL5y5UqI
KgQ8PT3xJ10xkyZNgut55cqV2a/qI0AucICKgpBDTCAf1+Hh4Qr3JWQphzx5
8oRWe8UosdT+/vvvWbNmUTeFSG//+c9/UmwggiAIgiCqhVz0QRvsJpDLdm3t
g0la1LhxY5YtatCgAe+iZfnpp59KlCihsEBXV1c2T2okJCQEBAQoTPvuu++q
cGcTMixp/S4jRokcIpCWlrZ8+fLSpUvTDTZy5MiUlBQqDQSi0Ef5bAZaDjHw
119/ff755zavC8RYDlmzZg3dPhvzww8/sKxFKzRq1Aio4R4eHq9fv+Zdn+rQ
6XS+vr5APa9cuTLjpVoSExPLly8PVI4YZ2fns2fPsizQQpYuXWomNvn2zMzM
5J1RGrrbnXfo0OHBgwe8aiGznZYtW9KqxaEIyyGFigRK2LVrF+NyvvzyS7hy
xPTu3VuF62+kpqZ6enqaic1gPzJEEgvXfSXfMryTsqZNmzaU3pT/B8vlEAMx
MTEKf/eUg3zYsvy4oPh1b4xVcojAo0ePunfvDhHm448/zsrKguiemDt37kCU
INC/f382VWiLM2fOwPV84sSJvOp6+vQpUFEM5BAB8lFGPl1tftKHpRxCgFvF
SPmN8Tdv3mzcuJH6blzkszEpKYlK9xAEQRAEUTMdOnSgO4solGnTpvEu2gou
XLggWQXQJb9DwWoVvIuWQKfTLVy4UHl1JUqUYPnzcWpqqr+/v8LMPj4+J06c
YJbZQtq3b6/85ZBEuRwiQC5ae/ToQTdb+fLlf/zxRxXeRRf46quv6NZrgJkc
IvD8+fPPP//chpyM5ZCjR49Sb7WBmzdvsqxFK8Btc/z+++/zLk6l0P392pgP
P/yQfTkxMTGurq5AFYkpV67c48eP2ZdpnuTkZDNNmDRpEu+A0qSlpVH8Wp8y
ZQqDfWTMQ6YThw4donVDtcjKIaSHVBooyZ07dxiXk5eX16VLF7iKxCxZsoRx
jZZgZgOsYsWKqXPBE7snMTHRxcXFkkFFPtZ4PdLOC6AlO2yQQ/ILlmScP3++
hS+WVYSFhZHPKOrdk+SHH36gnt/BJjkkv+D7et++fWRSRz1Pq1atXrx4Qb17
YnJycqiHN7BixQoGJWgO0EUvd+/ezbG0ChUqQBTFTA4xcOnSpaZNm1qbk7Ec
ArfNK62nJl+9ejVkyBC62Xx8fLZv367aW68IgiAIglBBcp4D9OSFQOnSpTW0
Dq3kFMvNzW3VqlVA/fnqq694F21Kenr6Rx99pLy0EiVKXL16lXH458+fUzF5
lixZoqqJcb9+/ZQXJQktOSS/4DbOjh07vLy86Cbs1asXm3s41rJx40a6lRpg
LIcI/Pbbb++++65VORnLIXLyHhXIRwfLWrTCmDFjgBrOeO8ADQGx/4XAyJEj
uVS0bds2oIokCQgIyM7O5lKpGXr27CkX+NKlS7zTSXDnzh1a21u7uLioag8p
MqMg8wrldRVZOeT8+fPKuycHlyXjyElr1aoFV5QYFVroZl7WPn368E5XRJkx
Y4blg0pVH7MMsKo5lmObHCJw+vRpDw8P6pHGjRtHsW9mOHnyJPXwDrbKIQKP
Hz+uU6cO9UjNmzdnc3+yZMmS1MML4IqXkmRlZQE1nBAdHc2xNKBnB9jLIYS3
b9+uWbPG/HplJjCWQ7744guIbjvQk0MEyNHKlClDN2FQUJAKn7NAEARBEIQW
5OpSPAH45JNPQkJC6E4qjNmxYwfvui3ixYsXbm5u4vzDhw8HepLCQX3a/8OH
D6nIFY6OjlFRUVxKSExMrFmzpvIS+vXrp54fmMaOHau8IkkoyiECDx48aNGi
Bd2Q9erVIyOTbk7lHDt2jG6ZBrjIIfkFjzhNmTLF8pyM5ZD79+8DNZx8XjHe
bkMrAC0x7VDwxcq7OJUycuRIoJ7PmDGDV1G2rU1kMyNGjFCV3pkvv7OMu7u7
2qISjh8/rnxXQQEvL69Tp07xLsgU0vPNmzdLzvktp8jKIXFxcVTGhhhnZ2de
b4cbN25Y9TuFQnx8fP766y8ulcqRlZVF+i+ZdsOGDbzTFUUyMzOt+mW5WbNm
Kvw2gYMMS0pvx/+DEjmEcPbsWYXfLJJs3LiRVt/MEBsbSz25gzI5JL/gxg6E
vNe/f38G75e6detSTy6gQsNQJVB/TMnAn3/+ybEuoLUsuMghAg8fPnz//fct
zMlYDqGyhrYk1Pdbf/r0aefOnemGrFy5MpkV082JIAiCIIhKkJznfPLJJ0BP
Cgg0adJEEzcr5DbR/v333+HkkJ07d/Ku+3+Ji4sjU0EqdfG9kUhms1TWse/S
pcvr1685FmJg/vz5ysuRhLocQsjIyKC+HlGFChX++OMP6lGVcPr0abo1GuAl
hwhs2bLF0dHRkpyM5ZD09HSghvv6+rIsREMA3Xt3UHyv2I6ZPn06UM/Xrl3L
q6jc3FzQRerEbN68mVexkpw6dUoyZ7169XhHM4V8BdB6FTw9Pf/zn//wLkgW
Mr1XMuktsnLIq1evaI0QEypWrMixroMHDwLVJUmDBg0yMzM51itGbmvOo0eP
8o5WFAkPD7d2UP3222+8U7PjwIEDit+FEiiUQwj79++nnsrJyenkyZNU+maG
58+fU0/uQGPCf+fOHYglOBh8ibdu3Zp6bIErV65Ah9coVJ4RkyQpKYljXaGh
oRBFcZRD8gscyO7du1uSk7EcQq4iIbrtACCH5Bc83kV93VEfH59z585Rj4og
CIIgCHck5zmffPKJXq+ntXy0JOfPn+ddeiHodDrJpxKaN2+eD7YHK4HX8hpi
YmNjfX19qRQ1evRo7jrQ119/TaWWtm3bqmGj7U2bNlEpRwyEHJJf4IeQ1tGN
WqJECVU9gHz27Fm6BRrgK4fkFyyKYsnCyIzlEPKpAvE4nkPBbzQsC9EQe/fu
hWg4YdWqVbyLUymrV68G6jnfNeeXLFkCVJckLi4uMTExHOs1ITU1VTJnly5d
eEf7P6xcuZLiq3DkyBHeBRVCcnKyzXOVIiuHkO9i8v6iOE4MNGnShGNdb9++
hSjKDAMGDOB+uWSM3EZyfB+XLprk5eXZsFpC3759eQdnB9D+VsrlkHyYBT/J
VfCtW7eUZzODTqeTWz5ICVRscCAXaPfu3cqzmYHKTs2SJCQkgCbXLs2bNwfq
OZkkcKxr1KhREEXxlUPyC6Zelmxiy1gOgbOFIeSQ/AI/xMwGprbh5uYGlBZB
EARBEI78+OOP4u/9Tz75hPyvjRs30p1OGNO/f3/epRdCVFSUZHJhZQ84OUQl
z1Rev36d1n6FNWvWVMNqG3l5ebQ2N2nbti33h/sgnkISAJJD8gueBQgMDKSb
1sXFZc+ePUCBrYW0jm51BrjLIYSff/7ZycnJfE7GcgihUqVKEA1v374940K0
wr/+9S+IhjvgZtnykFkHUM9/+eUXjnUxlkMcCtabevLkCceSTahYsaI45OjR
o3nn+l/orqKstm0T5cjNzbXtgbsiK4cQypcvT3GoGOjUqRPHotjLIYSVK1dy
LNmEtWvXSoZMTU3lHa3IcejQIRuGk6Ojowp34QQCaK9JKnLIs2fPaG3NZkyT
Jk2gf56mtYSsMVTkEL1e37JlS+rZihcvHh8frzyeHEA/6BPUs/ex2gDaLb1k
yZJ86/r0008h6uIuh+QXvLuHDRtmPidjOQTuETA43SInJwfCRgsPDwcKjCAI
giAIF44ePSr+xhfkkIyMDIjLWAFnZ+fExETe1ZtDUrUtW7ZsVlZWPqQcoobt
/EgGUimtik6fPs27oP9y584dcr1DpaigoKA3b95wrOXIkSNUChEDJ4fkF/gh
lu8lajkqWXMgJiaGemkCapBDCOvWrTOfk70cUqNGDYiGBwcHMy5EK5w7dw6i
4YR9+/bxLk6lwK3Wwnd5WPZyCKFVq1Y5OTkcqzamcePG4oSLFy/mneu/LFq0
iGLnR44cqaolEcxDpvpkmmdtjUVZDqlatSrF0WKgR48eHIviIoc4OjqqZ028
yMhIcUJvb2/euYoiNu9GMXnyZN7ZGZGcnKzszScNFTmEQL7cIeItX76cSjw5
IFYSprWPJNBaMd26dYObrnz++ecQmQlAge0AoNVaKlSowLeusLAwiLrUIIfk
F4gN5JLNTE7GcsiFCxcguu0AKYfkF+juHTt2pJ55+vTpGrqmQxAEQRDEPMeP
Hxd/3QtyCGHixInU5xIGZs+ezbd2Mzx69MjR0VGcecaMGcI/gJNDoBcILZSE
hATJp1ltQ1XPwOZTvTPTp08fnU7Hq5CffvqJViEmgMohhHv37hUvXpx6bDU8
a3np0iXqdQmoRA4hl4Eff/yxmZzs5ZDatWtDNLx79+6MC9EKv/32G0TDCQcO
HOBdnEoBWjqbQF5NjnVxkUMIYWFhHKs2pnPnzuJ4u3bt4p3r/7Ns2TKKPQ8M
DFSPk2Mh6enp1i5FXpTlECBRs2fPnhyL4iKHEEqXLq2S1R4k1wpr2LAh71xF
DiXXFyVKlFDDdqgMePHihYK3nSy05JDXr19TvMFioFixYvfv36eSUJJ3332X
emZackg+2O/+cKuSjhs3DiKwo6MjUGA7oG/fvhA9r1y5Mt+6vvjiC4i6VCKH
5BfclDazkDVjOeTy5csQ3XYAlkMISUlJ5cqVox77q6++Ao2NIAiCIAgzTpw4
If6uN8ghQOtzCpBZimrXP5w9e7Y4MLnsMqwzCSeHxMXFcSw8MzOzSZMmtGoh
L7HaVh5OT08vXbo0rQI5Ck6SWhcVoOWQfJi3D3l78t0igfD7779Tr0tAJXII
4enTp56ennI52cshdevWhWj4hx9+yLgQrQD34MyhQ4d4F6dS4LY5Jq8mx7p4
ySGEHTt2cCzcwODBg8XZoqOjeefKj4iIoNht8pXx+PFj3jXZwsuXLxs0aGB5
pUVZDqlVqxbFMWOgd+/eHIviJYc4FOwWwXd9QoE///xTnI3vXj9Fk379+ikZ
TuvXr+ddAQtSUlKUdEkOWnIIYeXKlRAJDTfuILDqS9BCKMoh//nPf6jHI9Su
XRtov54JEyZABHZxcYFIax8o/PyUo2rVqnzrGj9+PERd6pFDCFu2bJHLyVgO
AfqocYCXQ/IL9oaGSB4ZGQmdHEEQBEEQBvzyyy/iL3rja0zb9t22kIiICI61
y5Gbmyu5d/ZHH31k+Ddwcsi9e/d4Fa7T6Xr37k2xFnXuSLh06VKKNe7du5dL
FVFRURSrMIaBHKLX6wcNGkQ9ecmSJUEfniqUq1evUi9KQD1yCGH+/PlyOdnL
IfXr14douPGnPWIM3IMzR44c4V2cSoHbRIy8mhzr4iiHuLm58a1dQHJ1vrNn
z/JNdf78eVdXV4rdXrZsGd+KlJCUlGT5+lRFWQ6pU6cOxTFjoG/fvhyL4iiH
EIYOHcp91e4nT56Ig4WEhPBNVdR48OCB5HKmllOrVq28vDzedYCTlpampEty
UJRD7t27B5HQ2dmZDBJaIU2Q3P9OIRTlEPIhWalSJeoJHcCWcZs8eTJEWjKt
hUhrHwwcOBCi5zVq1OBb16RJkyDqUpUcQqZhcrd6GMsh165dg+i2AxM5JB9m
QXh3d/erV68yCI8gCIIgCCjR0dHiL3pjOURyRVlaNG/enGPtcuzfv18yrfEe
0HByyF9//cWr8OnTp1MspFq1aupcRZzu4iHkAorLb0wnT56kVYIJDOSQ/II7
eBCLkDdo0CAjI4NBfkngLhtVJYdkZmZWqFBBMid7OcTPzw+i4XyfVlYzcMvj
/POf/+RdnEohnQHqOXk1OdbFUQ5xKFgOOjk5mWP5+TKTLr57/dy/f9/MGs42
UK9ePXVOBS3n4cOHFu4FUJTlEKBVvD7++GOORfGVQxxUsODDq1evxKn47vVT
BKHym05RmGKRyxPljRJDUQ4hvPPOOxAhP/vsM4ohjWnatCn1tBTlEMKnn35K
PSGBXGBC6HlffvklRFpV/aCvNiCeSCLUrFmTb11AopHaxpLcVtqM5ZA//vgD
otsOrOSQ7OxsisuDG6hateqzZ88Y5EcQBEEQBA5J98NYDiGXRUC/vgmo4eFN
E9q3by/OWb9+feMrRPuTQ6hXtHHjRi6FWALdxUMqVKiQkJDAuATJNX+owEYO
yQfzW/r27cvrWUu4y0ZVySH58ot8spdDIPbCdkA5RB64VVWLwi8XtnH06FGg
nhdlOYTQrl273Nxcjh2YNWuWONWlS5d45UlNTaW+FpMadslRjqRIL6YoyyFA
v3gWcTnE2dmZ71JC6enp4lR9+vThGKmoQT6Wvby8lI+lwMBA3qWA8/r1a+WN
EkNXDgFyA7y9vYE2a37//fepp6Urh8j9dqwciLuUX331FURUtf2gryr+8Y9/
QPScuxxSREQjvV7ftm1bcU7GcojkLntUYCOH5IMtcdy+fXu+V9MIgiAIgiik
UDmEsHnzZoiJhMCQIUN41S7JrVu3JHOa7JBiZ3LInTt3yIUAxSrKli2rhs2y
5UhPT/f29qZYb6dOnRgLCXYghxC6du0KUcKSJUuYlWBM0ZFDyLtb8h2Ecojd
g3IIe4qUHAL0jpZjwoQJHDswd+5ccSReL8rbt287d+5Mt739+vXjUgsEYWFh
hdaLcgh1VCiHAG1mJ0e5cuUeP37MqwOSv7bzfVGKGitWrKA1lq5du8a7Glg0
IYf8+uuvECEdwDZnVL8cQl53unexDEycOJFiTgGUQ9iDcohVqHAsSS7rjXKI
DQwbNgyihPHjxzMrAUEQBEEQ6lgih2RmZvr4+EBMJAiurq7cV/Y2Zty4ceKQ
Xl5e6enpxv/MnuSQt2/fNm/enG4VixcvZlyFtVhyn98qtm7dyjK/fcghN27c
ULiPthxRUVHMqjBQdOQQwpgxY8Q5UQ6xe1AOYU+RkkMuX75cs2ZNoHolAdpW
3hLmzZsnzkPeYlzCLFq0iG5jyZf7w4cPudQCQUZGRq1atcyXjHIIdVQoh3z6
6aeMVz0KCAgAWhOgUN68eSPOY0/Sl8rJzc2tXLkyrYE0bNgw3gXBogk5hHyq
uLi4QOQcMGAAxZwG1C+HEAIDA6mHJFSsWJH6sz8oh7AH5RCrUOFYIlMg8Z7g
KIfYQEJCgru7O0QVERERzKpAEARBEIQulsgh+WCTT4GFCxdyqV1MZmam5OPw
n3/+ucm/tCc5hPpNTicnp+fPnzOuwlqoL6xXvHhxlr+D2IccQhg4cCBEFdWq
VXv9+jXLQvKLmBzy+++/i3OiHGL3oBzCniIlh5Ap0PXr1z09PYFKFuPu7s7r
eWr1yCFkRuTs7Ey3sR999BH7QkAhsyPzJaMcQh11yiF6vb5fv34Q9coxYsQI
LhsmohzCl927d1McRa6urklJSbxrAkQTcgihUM/QNoB+KtWEHBIaGko9pAD1
+3Ioh7AH5RCrUOdYGj9+vElOlENsY8KECRBVlCpVSv33/xEEQRAEkcRCOeTB
gwdAD/g7FGj5Ktmobtu2bZIJb926ZfIv7UYO+eOPP6g/wNK+fXuWJdhMkyZN
6BYeFBSk0+nYhLcbOeTGjRtAhcycOZNlIflFTA7R6/UNGzY0yYlyiN2Dcgh7
ipocQv7XoUOHgEqWpHr16i9evGDfAZXIIVlZWRAfpNHR0YwLYYD5W/Eoh1BH
nXJIfsHTBI0aNYIoWY7Nmzez7wDKIRwh02x/f3+6o2jOnDm8ywJEK3JIx44d
IXISnjx5QjdqvkbkkIULF1IPKbB37166UVEOYQ/KIVahzrEUGxtrkhPlENtI
TEx0c3ODKGTkyJEsC0EQBEEQhBYWyiGEXr16QcwiBPbt28e+dhPkbsJ06NBB
/I/tQw7JyckR/7yrnHXr1jErQQnLly+nXvumTZvYhLcbOYTQp08fiEJcXV3j
4uJYFlKk5BDCqlWrTHKiHGL3oBzCniIohxDmzp0LVLUkHTt2fPv2LeMOqEQO
gbi9/M4773BZ6ACarKys+vXry1WNcgh1VCuH5Bc8N1GmTBmIqiVxcXGJiYlh
3AGUQzjy66+/Uh9FZcuWJR9ivCuDQityyMiRIyFyEn766Se6UfM1IodERERQ
DylAJkh0o6Icwh6UQ6xCtWPJ5LE+lENshvru6gYuXLjAuBYEQRAEQZRjuRxy
5swZoFkEoXXr1uxrN+HSpUuS2Q4dOiT+x/Yhh6xcuRKiBK3sMh8fH0+9dm9v
75cvXzIIb09yiNxbTznBwcEsC9GKHLJ06dLgAsaMGaPkOLdu3TLJiXKI3YNy
CHuKphyi0+lAnWQx1H+tKBQ1yCFnz56FaKZWJGEbuHjxolzVKIdQR81ySH7B
pbGTkxNE4ZJUqFABYmUAM6AcwpEePXpAjKJt27bxrgwKrcghixYtgshJIJMK
ulHzNSKHFLrpm81QXw4X5RD2oBxiFXTHEplHBf8P+/fvV3KoGTNmGOdEOcRm
Hjx4AFRL06ZNmS2jjSAIgiAILSyXQ/R6fYMGDYAmEgRee74bGD58uDhVlSpV
JB8mtQM55NWrVyVLlqSev0mTJmzyU6FFixbUO8DmByZ7kkPIZwu5vgYq5/Tp
08wK0Yoc0rZtW+Gw7733npLjkBeOfEIa50Q5xO5BOYQ9RVMOIaSnpwO9weVg
vIoddzkkNze3Tp061Nvo4eGRmprKrAr2hISESBaOcgh1VC6HEDZs2ABRuBwf
fPBBTk4Osw6gHMKLO3fuAA0hMvO3y2Wd8rUjh+zatQsiJ+HDDz+kGzVfI3LI
48ePqYcU8Pb2phsV5RD2oBxiFXTH0qNHjwxH/vrrr5UcysRmRzlECS1btgQq
h/pWXAiCIAiCQGO5HEL49ttvgWYRhNDQUMa1G/Py5UsyExanWrJkieS/twM5
ZPr06RD558+fzyY/FSCu0MlASkhIgE5uT3IIYdq0aUDlNGvWjNldUK3IIdWr
VxcOq1AOIYwYMcI4J8ohdg/KIewpsnII4d69ez4+PkDli/H09Lx+/TqzDnCX
Q8LDwyHayHc+zwC5xUNQDqGO+uUQMsMkAx6idjnCwsKYdQDlEF6QYQY3hKKj
o3nXB4JW5BDJm29UaNOmDd2o+RqRQyQ/q2lB90F4lEPYg3KIVdAdS+fPnzcc
WaEckpOTU7x4ccPRUA5Rwpo1a4DKIe8Llg4zgiAIgiDKsUoOIRfdpUqVAppI
kInoixcvGJdvYPXq1eJIrq6uz549k/z3WpdDEhMT3d3dIfKTmTOD/LQ4fPgw
RBNGjx4NndzO5JCrV68ClUNQuIil5WhCDsnLy3NxcREOq1wOIb01zolyiN2D
cgh7irIcQjh58qSjoyNQB8TUqlUrJSWFTQf4yiFpaWlly5aF6CEZsWxK4Ein
Tp3EhaMcQh31yyGE7OxsiHUIzbBjxw42HUA5hAvPnz+XfGKFFiEhIbxLBEEr
cgjQbm6E999/n27UfI3IIXq9nnpIA2RcUYyKcgh7UA6xCrpjKTIy0nBkhXII
4cMPPzQcDeUQJcCttkTYsGED+4oQBEEQBLEZq+QQwtSpU+EmEspnjLah0+kk
F9YeMmSI3J9oXQ4ZPXo0RPgaNWpoa63ap0+fQvTBycnp7t27oMntTA4hwwZi
cXuBRo0asRmWmpBDbt++bTiscjnk5cuXxr/bohxi96Acwp4iLocQVq5cCdQB
SYKDg/Py8hh0gK8cMnv2bIjuFStWjO4vKerk3Llz4tpRDqGOJuQQwpMnTypW
rAjRAUnc3NwuX77MoAMoh3BhwYIF0EPozp07vKukj1bkkJiYGIicDjQu68Ro
Qg4hGB58oA651KWYE+UQ9qAcYhV0x9LMmTMNR1Z+q3/jxo2Go6EcopDWrVsD
VUReGjJ/5lIUgiAIgiA2YK0cEh8fD/cIZ9WqVblMJKKjoyXzXLp0Se5PNC2H
3L9/38nJCSL8+PHjocNTh1zZQbTCjFlEBTuTQ/L/78Ujdcy8lymiCTnE+AkO
KncR/f39DQdEOcTuQTmEPSiH6PX6wYMHAzVBklmzZjHoAEc55MmTJx4eHhCt
Cw4OZpBfDbRr186kdpRDqKMVOSS/YLMhV1dXiCZIUrly5eTkZOgOoBzCnqys
rHLlykGPn88++4x3ofTRihxy+fJliJyEevXq0Y2arx05BGhFXALdT1qUQ9iD
cohV0B1L3bp1MxxZuRxy69Ytw9FQDlHI+vXrgSpyKBprSCIIgiCI3WCtHELo
06cP3ETi0KFDzGo30Lt3b3ES8ytzaloOIZfkQOH37t0LHZ46QBeMbm5uoNsk
2Z8cEhsbC1QRITQ0lEEJmpBDjO9KUZFDjDdGRznE7kE5hD0oh+QX/EbZtGlT
oD5IcvjwYegOcJRDjD+36bJ27VoG+dWA+AIK5RDqaEgOIXz//fcQTZCjXbt2
ubm5oB1AOYQ927ZtYzB4PDw86K6HoAa0IodcuHABIqdDwVKZdKPma0cOgXPz
UlNTKeZEOYQ9KIdYBd2xVKFCBcORlcshOp3Oy8tLOBrKIQp58uQJUEUO9rt7
HYIgCILYJTbIIXA7pRLat2/PrHaBhIQEyWU0vv/+ezN/pV05JDs7u0yZMkDh
b968CRoegvDwcKBurFq1Ci62/ckher2+Xr16QEV5eHjQvbcjiSbkkI4dOxoO
S0UOMb6PjXKI3YNyCHtQDhF49OgRg+epDXh5ed2+fRu0A7zkkOfPn8P9jHL9
+nXo/CqBTFpatmxpXDvKIdTRlhxCGD9+PEQf5JgwYQJoB1AOYQz5VPHz82Mz
eHht5guHVuQQyV3JqBAQEEA3ar525BDqIQ1kZWVRzIlyCHtQDrEKimPJZP9u
Kl86gYGBwtFQDlGOeAlEWjg6OsbHx/OqC0EQBEEQq7BBDtHr9Y0aNQKaSDgw
v7E8d+5ccYbSpUubvxLUrhyya9cuoOSurq7Qj7BBcPXqVaCG1K1bl7xZgGLb
nxySD7yzzMaNG6Hzq18OIQOSfLgZDktFDklISFj9Pzx69Ej5Aa0C5RDGoBzC
HpRDDJCvJ7ht5cW88847aWlpcB3gJYcsW7YMqGO+vr5w0x4VQr6ajctHOYQ6
mpNDyJ8EBQVBtEKOiIgIuA6gHMKYEydOMBs5lStX1uJluxm0IoecOnUKIieh
e/fudKPma0QOycvLox5SwMvLi+6sBuUQ9qAcYhUUx5LJNxoVOSQ6Olq46bR1
61blR7Mcu5RDQHeWmTNnDq+6EARBEASxChvkEMKOHTvgJhLmb7vRJTc3t2LF
iuIMU6dONf+H2pVDWrduDZQcYi1TBpAx4OjoCNST06dPA8W2Sznk+PHjQEUR
GjZsCP2jlfrlkEePHhkfloocwheUQxiDcgh7UA4xZsuWLUDdkKRnz546nQ6o
A1zkkLy8vOrVqwO1i+9P+ezJzs4uWbKkoXyUQ+xsRNkghxBevHhRo0YNiG5I
4u7ufvXqVaAOoBzCGOPF/RiwZ88e3hXTRCtyyP79+yFyOlhw/8oGNCGHJCcn
Uw8p0KJFC7pRUQ5hD8ohVkFxLJlc6Gl6uSq7lEPg7uo4FCztQmbRvEpDEARB
EMRybJNDsrKy4LYm8fDwSElJYVM+mYyJAzg6Oj548MD8H2pUDomNjQWKTRg8
eDBcclCqVKkC1JP+/fsDZbZLOSQpKQmoKIELFy6A5le/HGKycBDKIXKgHCIH
yiHsQTnEhDFjxgA1RJKFCxcCdYCLHHLs2DG4Xq1YsQI0vAoxHo0oh1BHi3JI
fsGPCORiFqIhklSrVu358+cQHUA5hCVwFxFyBAQE2NNaT1qRQ5YvXw6Rk7Bz
5066UfM1IodcunSJekiB0NBQulFRDmEPyiFWQXEsde3a1fjIKIdIwlEOyc7O
dnZ2BqrLAe/tIAiCIIhGsE0OIcyYMQNuIrFq1SoGtefLPKHTs2fPQv9Qo3II
uRgHik1YtmwZXHJQ2rRpA9QTNze3169fQ2S2SzmEUKFCBaC6CMOHDwcNr345
pG/fvsaHRTlEDpRD5EA5hD0oh5iQk5MD960tybFjxyA6wEUOCQ4OhmvUmTNn
QMOrkJiYGEP5KIdQR6NySL5oyyFoyPUsxBOaKIewZOjQoeJuOzk5AU10Bcgn
GO+6qaEVOSQsLAwiJ+HKlSt0o+ZrRA7Zt28f9ZAC1O9JohzCHpRDrILWWEpL
S3N1dTU+MsohknCUQwiNGzcGqovQrVs3jqUhCIIgCGIhNsshjx8/dnJyAppI
kMl2Xl4edO1xcXGSZ//ll18K/VuNyiGg95dOnDgBlxyUIUOGwLUF6Ecle5VD
unfvDlQXwcfHB/SDReVySFZWVvHixY0Pi3KIHCiHyIFyCHtQDhGTnJwMt+SX
GG9v77t371LvAHs55MGDB6CNSktLgwuvTvR6/YIFC2YUQC6peMfhBsohYmbN
mgXREzmo/96aj3IIQxITE11cXMTdHjhwINwuJA6832J00Yoc0q1bN4icBIgH
UjQhhyxbtox6SIGoqCi6UVEOYQ/KIVZBayyJlS2UQyThK4eEhoYC1UVwdnbO
yMjgWB2CIAiCIJZgsxxC6NevH9xc4qeffoKufeLEieLzvvPOO5bsL69FOeTh
w4dAmQUSEhKAkkMze/ZsuLaEhYVBZLZXOWTOnDlAdQnA7cyer3o55Pjx4yaH
RTlEDpRD5EA5hD0oh0hy5cqVYsWKAXVGDPmooX6Di70csnbtWrgWkfkzXHJE
5aAcIoZcTvbo0QOiLXLs27ePbgdQDmHG9OnTJV9T8o1AxiGcDOno6Pjw4UPe
1dNBK3KIn58fRM46derQzSmgCTnks88+ox5SIDExkW5UlEPYg3KIVdAaS4MG
DTI5MsohkvCVQ8LDw4HqEqDu1yEIgiAIQh0lcsj58+fhJhKdO3cGLfz169cl
S5YUn3f9+vWW/LkW5ZBNmzYBZSaQZmp32+Lt27fDdaZ69eoQnbFXOeTIkSNA
dQmsXr0aLrzK5ZDRo0ebHBblEDlQDpED5RD2oBwiR2RkJFBnJOnbty/db3P2
ckiHDh3g+vOPf/wDLjmiclAOkSQtLa1+/foQnZHEw8MjNjaWYgdQDmFDZmam
5E2Jdu3aCf8AbmEEwpdffsm3fFpoQg4hswhPT0+InNOnT6eY04Am5BCgxVha
tmxJN2c+yiE8QDnEKqiMpdzcXG9vb5MjoxwiCV855MKFC0B1CUydOpVjdQiC
IAiCWIISOYRc3vr7+8PNJe7cuQNX+I4dO8RnJFfrqamplvy5FuWQkJAQoMyE
tm3bAsVmgOS7gCK3b9+mntle5ZBHjx4B1SXQo0cPuPBqlkOys7N9fX1NDoty
iBwoh8iBcgh7UA4xA9BtdjmWLVtGsQOM5ZC0tDRnZ2e45qxZswYoOaJ+UA6R
Iy4uTvwTCRy1atVKSUmh1QGUQ9iwYcMGyVfTMC96+fKlh4cH0Jgh49M+Fn7X
hBwSGxsLEZJw8+ZNijkNqF8OycvLK126NPWQhI0bN1LMKYByCHtQDrEKKmNJ
vFytA8ohMvCVQ8j3pqOjI1BphObNm3OsDkEQBEEQS1AihxC+//57uLnE2LFj
4Qpv1qyZ+IyfffaZhX+uOTnkzZs37u7uQJkJQ4YMgYjNBtJzuM4QVq1aRT2z
vcoher2+bNmyQKU5FNwCzcvLAwqvZjnk22+/FR8W5RA5UA6RA+UQ9qAcYgby
ed61a1eg/ohxdHQkX760OsBYDtm/fz9oc86cOQOUHFE/KIeY4cSJE6D33k0I
Dg6mNdFFOYQB5MWqWbOmuM9169Y13uh2zJgxcGNmw4YNHDtAC03IIUuXLoUI
6e/vTzGkMeqXQ2JiYqgnJLi4uLx48YJiTgGUQ9iDcohVUBlLgYGB4iOjHCIJ
XzkkH+xmmoCTk1N6ejrfAhEEQRAEMY9COSQ7O7tcuXJAc4nixYunpaVBVC33
89aNGzcsPILm5JCzZ88CBRaYMGECRGw25OTkgDanV69e1DPbqxxC6NKlC1Bp
AleuXAFKrlo5JC8vr3bt2uLDohwiB8ohcqAcwh6UQ8yTkpIi+fkGRKlSpf7+
+28qHWAshwwdOhS0M48fPwZKjqgflEPMA7otiJhZs2ZR6QDKIQw4dOiQ5Iv4
zTffGP+zW7duwQ0Y8h1qLKJoFE3IIa1bt4YICbdyl/rlkJkzZ1JPSOjZsyfF
kAZQDmEPyiFWoXwsyflaKIdIwl0OGTJkCFBpAnS/QxEEQRAEoY5COYQwe/Zs
uLnE+vXrIaoeMWKE+FyBgYGWH0Fzcsi6deuAAgssWrQIIjYz4BwnQo0aNagH
tmM55IsvvgAqTWDlypVAyVUrh+zdu1fysCiHyIFyiBwoh7AH5ZBCuXnzppeX
F1CXxDRq1Oj169fKO8BSDtHpdGXKlIHriaurqx38tojYDMoh5tHr9QMHDoRo
kRyHDx9W3gGUQxjQqlUrcZNLly4t/pYBXSbLDuZg6pdDXr58CbGIkLOz89On
T2mFNEH9ckjjxo2pJ3QA+8UW5RD2oBxiFcrHUo8ePSSPjHKIJNzlkIULFwKV
JkA+9PgWiCAIgiCIeZTLIYmJiXCbmJssqUqFlJQUyQ1WrPr5VXNyCHlNgQIL
bN68GSI2M6CfO6a+Bo4dyyHQVyjdu3cHSq5OOUSv1zdq1EjysCiHyIFyiBwo
h7AH5RBLIOMHqEuSDBo0iHy0KuwASznk3r17oA155513IGIjWgHlkEJ5/fp1
kyZNILokiZeX161btxR2AOUQaC5evCj58s2ePVv8j0+cOAE3YNq3b8++fLqo
Xw6JjIyESAj605vK5ZCEhATq8QgBAQFAvivKIexBOcQqFI4lMxIFyiGScJdD
tmzZAlSaQLNmzfgWiCAIgiCIeZTLIQTQh6GioqLolrx27VrxWSpVqvT27VvL
D6I5OcTf3x8osMCBAwcgYjMDuj/UjQs7lkO2bt0KVJpAqVKlgJKrUw759ttv
5Q6LcogcKIfIgXIIe1AOsZAFCxYANUoS5au4s5RD9u/fD9qN4OBgiNiIVkA5
xBLi4+PLli0L0ShJyIuiUE1HOQQaMsLFHXZzc5NcCEKn09WrVw9uwFy7do19
ByiicjlEr9e3bduWerwKFSqkp6dTSSiJyuWQOXPmUI9HuHz5Mq2EJqAcwh6U
Q6xCyVgiX1KBgYFyR0Y5RBLucsiRI0eAShNwdHTMysriWyOCIAiCIGagIodc
uHABbjoREhJCsV5yYS55X2XhwoVWHUdbckhubq6rqytQYIEzZ85Qj82Sdu3a
gfYnPDycbmA7lkOgr1AcABZyEVChHBIfH29mtwWUQ+RAOUQOlEPYg3KIheh0
uj59+gD1SoyTk9Pp06eVdIClHDJ9+nTQbowdOxYiNqIVUA6xkLNnz8Kttymm
Z8+eSp5/RzkElAcPHkhuMjJixAi5P9m0aRPcaBk+fDjD6umjcjnk+PHjEPF2
7dpFJZ4capZDnj596unpST3eqFGjqMSTBOUQ9qAcYhVKxlJ4eLiZI6McIgl3
OSQmJgaoNAN3797lWyOCIAiCIGagIofo9fpmzZrBTSco+hKnT58WH9/FxcXa
rVq1JYdcv34dKK2B2NhY6rFZIrc5Ji1Gjx5NN7AdyyEMrlDIOwIiudrkkOzs
7BYtWpg5LMohcqAcIgfKIexBOcRyMjIyGjRoANQuMWXLlo2Pj7c5LUs5pGvX
rqCtWL16NURsRCugHGI5oL/vi1mwYIHNUVEOAWXChAmSL9mNGzfk/iQzM9PH
xwdoqLi6uiYlJbHsAF3ULIfodLqGDRtSz9a6dWvlO9yZR81yyNixY6lnK1my
5PPnz6nEkwTlEPagHGIVNo+lK1euuLm5mTkyyiGScJdD7t+/D1SagX/96198
a0QQBEEQxAxU5BBCREQE3HRi4sSJtOrt27ev+PiDBg2y9jjakkP27t0LlNbA
kydPqMdmCdBlo4E2bdrQDWzHcgiDK5Rjx45BJFeVHJKXlzdixAjzh0U5RA6U
Q+RAOYQ9KIdYBfkGKVWqFFDHxDRt2vTNmze2RWUph/j6+oL2QcneZ4gdgHKI
5ej1+lGjRkG0Sw6bJ70oh8Dx6tWr4sWLi9vbtWtX838I9OOywJw5c9iUD4Ga
5ZBdu3ZRD+bu7s7g2RzVyiFksufi4kI92/bt25VnMwPKIexBOcQqbBtLCQkJ
1apVM39klEMk4S6HZGRkAJVmAPpzFUEQBEEQJdCSQ7Kzs+HuPHt7e5NJi/Ji
nzx5IrmWb0xMjLWH0pYcsmbNGqC0BnJycqjHZsmYMWNA+1O3bl26ge1YDmFw
hbJp0yaI5OqRQ1JSUoKDgws9LMohcqAcIgfKIexBOcRayMzWyckJqGlihg8f
btuju8zkEDL7hW6C1vcWRBSCcohVkIumVq1aQXRMEnIdbdua3iiHwLF8+XLJ
Fys6Otr8H8bHx8N9wZUtWzYrK4tNB6ijWjnk6dOnlSpVoh5s7969VPpmHnXK
IXl5eV26dKEeLCwsjErTzIByCHtQDrEKG8bS+fPnLfkhAOUQSbjLIeQa1t3d
Hag6gblz5/KtEUEQBEEQM9CSQ/Jl7nLT4ptvvlFe7IIFC8RH9vf3t+Guvrbk
EOi95r28vKhnZsyUKVNAW+Tj40M3sB3LIQyuUKZOnQqRXCVyyI0bN2rXrm3J
YVEOkQPlEDlQDmEPyiE2wMCJNWbjxo02hGQmh/z666/QHSBff9RjIxoC5RBr
SUpKgvi9WA4/Pz8bnrNAOQSI3NzcypUri3vbsGFDS25KSK6DSgvtPuGrTjkk
KyurZcuW1FPNnj2bVt/Mo045ZOLEidRTBQUFkTcmlaaZAeUQ9qAcYhXWjqXN
mzdbuIYPyiGScJdDCNWrVweqTmD48OG8S0QQBEEQRBaKckhSUhLE6o4C7777
rsI9Vd++fSt5H8a2eyDakkNCQ0OB0grUqFGDembGLFq0CLRFDrQXV7FjOYRQ
6LqUChk4cCBEbO5ySEpKyvLlyyXXqZYE5RA5UA6RA+UQ9qAcYgNkxjhs2DCg
volxdna24auTmRzCYG/B+Ph46rERDYFyiA2QT+BixYpB9E2Svn37WnspjXII
ELt375Z8jX744QdL/vz8+fNw46RBgwYKb7nwQoVyCLn279GjB/VIo0aNYvYa
qVAOWbp0KfVI/v7+aWlptJpmBpRD2INyiFVYPpb+/PPPAQMGWH5klEMkUYMc
EhAQAFSdQFBQEO8SEQRBEASRhaIcQhg8eDDcpOL06dNKKj18+LD4mKVKlbJt
s3htySEhISFAaQWaNm1KPTNj1q1bB9oiwuPHjykGtm85BPoK5YMPPoCIzVEO
uXnz5pgxYzw8PKw6LMohcqAcIgfKIexBOcQ2srKyoL9KjPH19U1ISLAqITM5
hMEMJz09nXpsREOgHGIbEREREH2Tw9qfZlAOgUCv1/v7+4sbW7FiRQufIyBH
gPjJ3sC//vUv6CZAoDY55NWrVxBmCHkD5uXl0W2dGVQlh5DCIVYq9vPzS05O
pts3OVAOYQ/KIVZR6Fgib8NDhw4FBgZae2SUQyRRgxwC8VVlTK1atXiXiCAI
giCILHTlkMuXL8NNKj766CMllXbu3Fl8THKBZtvRtCWHgN5BIrRs2ZJ6ZsZ8
9913oC0iXLlyhWJg+5ZDoHWmypUrQ8RmKYdkZGRcuHBh8+bNYWFhLVq0sO2w
KIfIgXKIHCiHsAflEJtJSEgoX748UPfEkI/i7Oxsy+Mxk0NmzJgBWriTk5NG
nzRHaIFyiM1MmjQJonWSODo6njx50vJsKIdAcObMGclXZ+nSpZYfBFQrIldh
cOXDoSo5hFynS65Yq5A5c+bodDrqrTODeuSQe/futWrVinoYMtpTU1Op900O
lEPYg3KIVYjHEpnhk+sp8kn49ddfDxw4sEqVKrYdGeUQSdQgh0AvM+7q6sr4
mwtBEARBEMuhK4cQbP6ZslAcHR0fPnxoWypyOSl5zL///tu2A2pLDqlatSpQ
WoHWrVtTz8wYuQV+KaJwz2IT7FsO6dOnD1B1As7OzhCx4eSQmjVrNm3a1N/f
v0GDBnXr1qV1vxHlEDlQDpED5RD2oByihJiYGFdXV6AGirHqh2NmcsiIESNA
qy5Tpgz1zIi2QDlEyVk6deoE0T1JSpYsef/+fQuzoRwCQffu3cVd9fDwSElJ
sfwgOTk5oOpjXFwcXAeAUIkckpmZGRYWRj2Gp6enhXuM0kUNcoher9+0aZO1
y2NawowZM1guw5KPcggPUA6xlqYFNGnSxM/Pr1atWqVKlaJyWJRDJFGDHALx
nWXCy5cveVeJIAiCIIg01OWQyMhIuEnF1KlTbUslOXnu3r27zWVqSw6hNaWX
o127dtQzM2bPnj2gLXKgPfO3bzmkX79+QNUZgHjMGU4OAQLlEDlQDpED5RD2
oByikG3btgE1UJKtW7daGIyZHAK9GFft2rWpZ0a0BcohSnj58mXNmjUhGihJ
o0aNXr9+bUkwlEOoc/v2bckXZezYsdYeasGCBXCDJCwsDKJ8ULjLIdevX58w
YULp0qWpZ6hevfqff/4J2j05+MohSUlJX3/9dd26daln8PDw2LdvH2jrJEE5
hD0oh6gElEMkUYMc8sUXXwBVZ4B8mPOuEkEQBEEQaajLITk5ORUqVACaVJQq
VerNmzfWRiJ/ImlHREVF2VymtuQQb29voLQCQUFB1DMzZt++faAtItC9BWHf
csigQYOAqjOQm5tLPTbKIexBOYQxKIewB+UQ5YwdOxaoh2JcXV0vXrxoSSpm
ckizZs1AS/bz86OeGdEWKIco5MaNG8WLF4fooSRkmm2JI41yCHXI+JF8RWz4
7ktOTnZzcwMaIdauZKIGuMghGRkZly5dCg8PDwgIgDg7YcSIES9evGDWRhPY
yyE5OTnk8zAyMvLDDz90cnKifnaHgsearl+/zqyHxqAcwh6UQ1QCyiGSqEEO
mThxIlB1Bh4/fsy7SgRBEARBpKEuh+QDP8myfft2a/NIihy1a9dWsvOdtuQQ
T09PoLQCHTt2pJ6ZMQcOHABtEWH37t0UA9u3HDJkyBCg6gxY+NSkVaAcwh6U
QxiDcgh7UA5RTm5ubmBgIFAbxVSqVMmSJ6SYySHkox60Xjv4KkEUgnKIcg4f
PgzRQzlWr15daCSUQ+jy7NmzYsWKiVtq85zzk08+gRshy5Yto1s+NEBySFBQ
UFhY2LRp0+bPn7948eIFCxbMmjVr4sSJISEh1atXhzijgfbt21+7do1vVyHk
ED8/v9GjR3/55ZdkFrSogNmzZ0+ZMoV8tpD/5ezsTP2MBmrVqnXo0CGI5UMt
BOUQ9qAcohJQDpFEDXIIg7H0999/864SQRAEQRBpIOSQ5ORkuB3eGzdubO0F
XYsWLcTHWbNmjZIatSWHuLu7A6UV6NKlC/XMjCHTctAWESIiIigGtm85BPRu
p0Bqair12CiHsAflEMagHMIelEOo8OzZs2rVqgF1UkybNm0KXZ+KmRxSr149
0GIbNWpEPTOiLVAOocLcuXMh2iiJk5PT6dOnzedBOYQu8+fPl3wtfvvtN9sO
CHrdUblyZYhVFuEAkkO4ULt27SNHjnB0GAxAyCFcKFGixIoVK7Kzs/n2E+UQ
9qAcohJQDpFEDXLItGnTgKozEBcXx7tKBEEQBEGkgZBDCMOGDYObWlj14/XV
q1fFR/Dw8Hj16pWSArUlh0CvVGwHcgiD5/UiIyMpBrZvOWTkyJFA1RlAOcQB
5RB5UA6RA+UQ9qAcQotr165Bu7LGfPHFF+bzMJNDateuDVpp48aNqWdGtAXK
IVTQ6XS9evWC6KQkZcqUiY+PN5MH5RCKZGVllStXTtzPFi1aKDks6KJYe/fu
pVU+A+xDDgkKCoqIiMjJyeHdzv9iB3JI/fr1V65c+fz5c969/P+gHMIelENU
AsohkqhBDpk5cyZQdQZQDkEQBEEQ1QIkh8D9fuRg5V2pUaNGiY8wevRohQVq
Sw7x9vYGSitgB9vKHDp0CLRFhH379lEMbN9yyPDhw4GqM5CZmUk9Nsoh7EE5
hDEoh7AH5RCK7N27F6iZkpC5opkwzOSQWrVqgZbZsGFD6pkRbYFyCC3S09OB
JjaSNG3a9M2bN3JhUA6hyLZt2yRfggMHDig57JEjR+CGR/PmzWmVzwBNyyFV
q1adO3euChfe164c4uXlNXr06IsXL6phARYDKIewB+UQlYByiCRqkEOmTp0K
VJ2B+/fv864SQRAEQRBpgOQQQqtWrYCmFk5OTgkJCZZkSE1N9fDwEB+BzO4U
VqctOcTX1xcorUBgYCD1zIw5cOAAaIsIR48epRjYvuWQwYMHA1VnICsri3ps
ODnk+++/T05OJp97f//99/Xr1//5z38uX758xIgR5GO2VKlSNh8W5RA5UA6R
A+UQ9qAcQpfp06cD9VNMsWLFzMgezOQQoB/uDdjBVwmiEJRDKEI+BkuWLAnR
T0mGDRsm9+MpyiG0IB328/MTN7NGjRp5eXlKjkz+vGbNmnDD48KFC7SaAI0W
5RDy7Tlu3Ljo6GidTse7f9JoTg6pVKnS0KFDd+/eTcYD7+ZJgHIIe1AOsQo3
N7eXL18mJSXFx8ffu3fv8uXLERERs2bN6tu3b4MGDZTsHY9yiCRqkEMmT54M
VJ2Bhw8f8q4SQRAEQRBp4OSQffv2wc0uyATVkgwbNmwQ/23btm2VV6ctOaR+
/fpAaQVat25NPTNjQIerQExMDMXA9i2HDBgwAKg6AUdHR4i7cHByyI8//ih3
Ur1ef+XKlTlz5tigSdjBL3oohzAG5RD2oBxCl7y8vG7dugG1VEzVqlWfPXsm
mYSZHEI+6kFrJJNM6pkRbYFyCF3IJJ/MVCFaKkl4eLhkDJRDaPHzzz9Ldn7d
unXKD75mzRq4saGhl1sTckj58uVbt249adKkAwcOPH36lHfPCkf9coi3t3fT
pk1Hjhy5ffv2uLg4Va0TIgblEPagHGIV5scS+ZglF+yhoaE+Pj7WHhnlEEnU
IIeMHz8eqDoDctfCCIIgCIJwB04Oyc3NrVSpEtDsoly5ctnZ2eYDyD2kQ2V3
D23JIa1btwZKK9CyZUvqmRkTGRkJ2iLC3bt3KQa2bzmkb9++QNUJkA8QiNhc
5BAD5BMvKirKqpt4KIfIgXKIHCiHsAflEOqkpqbWrVsXqKtigoKC3r59K47B
TA5p3LgxaIF16tShnhnRFiiHUGflypUQLZXE2dlZcvKPcggtOnToIO6kt7d3
enq68oOnpaV5eXkBjQ0nJ6f4+HjlIRmgBjnE3d29QoUKfn5+H3zwQUhIyODB
g8eOHbtixYpDhw7FxsZCbGkKDXc5hHw6lS1blszZAgICunTp0r9//zFjxixY
sCAyMvLSpUsvXrxQuQ1iAsoh7EE5xCosHEsZGRnkk82qVc5QDpFEDXLI559/
DlSdAYWLpCEIgiAIAgecHEJYvHgx3ARj586d5s/+66+/iv+KXLDn5uYqL01b
ckivXr2A0go0a9aMembG7Nq1C7RFhJcvX1IMbN9yCPSIBZIi+MohAjqdTvIH
R5Z9YAnKIYxBOYQ9KIdAcPv27RIlSgA1VszkyZPFGZjJIe3atQOtrnz58tQz
I9oC5RDq6PV6BnssGvD19RXv2YpyCBWuXbsm2fMpU6bQOsW4cePgxsZXX31F
KycoQHII6e327du/++67nTt37tq1KzIyct++fQcOHDh48OCRI0eOHz8eExND
ZhRJSUkQO5ZyB0IO6dKli9DSH374QWjp3r179+/fT1p6+PDhn3766dy5c9ev
X3/8+HFmZqa23I9CQTmEPSiHWIVVY+nJkyeWP4SIcogkapBDyMwWqDqBsmXL
8i4RQRAEQRBZQOWQZ8+eubm5Ac0xChUS+vfvL/6r+fPnUylNW3LIiBEjgNIK
NGnShHpmxmzZsgW0RdT3MbFvOaR79+5A1Qm0b98eIrYa5BCBY8eOeXp6FnpY
lEPkQDlEDpRD2INyCBDkcxKosZJERkaaBGAmhwDdGDeAv0ogKIdA8ObNG5aP
7Tdv3txkWU6UQ6gwdOhQcRudnZ0fP35M6xT37t2DGxje3t4ZGRm0osIBJIf8
/PPPvCvjCcRHEEUtSnOgHMIelEOswtqxlJub+9lnn1lyZJRDJFGDHAL9Y4Gf
nx/vEhEEQRAEkQVUDiGEhobCTTMuXrwod96nT5+6uLiY/HtnZ+cnT55QqUtb
csjUqVOB0grYwU/My5YtA21RmTJl6Aa2bzmkS5cuQNUJAN3ZVo8cQoiKiiKf
eOYPawfvXJRDGINyCHtQDoEDdIE7E9zd3cl3hPHZmckhU6ZMga7OLp+YRiwH
5RAgHj16VK5cOYjeSjJ69Gjjs6McopzExETxHQnC4MGD6Z6oR48ecAMjPDyc
bloIUA6BAOUQuqAcwh6UQ6zChrGk1+stueePcogkapBDJBVWirRr1453iQiC
IAiCyAIth8itpEoFMtWXO6/kDf8BAwbQqktbcsi6deuA0gpUrFiRembGzJgx
A7RFAQEBdAPbtxzStGlToOoExo4dCxFbVXIIYefOneYPi3KIHCiHyIFyCHtQ
DoFDr9d//PHHQO0VU6NGDeMN5pjJIevXr4cuLSkpiXpsREOgHAIHmZZL2gVA
bN261XBqlEOUM23aNMk+X7t2je6JTp06BTcq6tSpQ3cBTAhQDoEA5RC6oBzC
HpRDrMK2sUTmSyEhIeaPjHKIJGqQQ7p16wZUnQDfyTyCIAiCIOaBlkMIbdu2
BZpmuLi4SN6OzsvLq1q1qvjfnz9/nlZR2pJDTp48CZRWwNnZWf23jMwTFhYG
2qKhQ4fSDWzfckjFihWBqhNYvHgxRGy1ySH5hQ1slEPkQDlEDpRD2INyCCiZ
mZmNGjUC6rCYzp07kzmqcGpmcsjBgweh67p9+zb12JazZcuWaZqCDH6O7YIA
5RBQoPe+NMbV1fXChQvCeVEOUUhGRoaPj4+4h0FBQdTPpdfryawebmCQqQj1
zHRBOQQClEPognIIe1AOsQqbx1JqamrlypXNHBnlEEnUIIc0adIEqDqBcePG
8S4RQRAEQRBZGMghP/74I9xMY/78+eIzSv6S0qhRI71eT6sobckh8fHxQGkN
PH/+nHpslgBdNhqg/kOAHcshOp3OyckJqDoBoJ+hVSiHZGRk1KhRQ+6wKIfI
gXKIHCiHsAflEGgePHhQunRpoCaLmT59unBeZnLIpUuXoIsy/JrMhXbt2kEX
SJdKlSpxbBcEKIdA89lnn0F0WJKKFSsKD1+gHKIQuVWbjh8/DnG6bdu2wY0K
CKGFLiiHQIByCF1QDmEPyiFWoWQsmX8gEeUQSdQgh1SoUAGoOgHjJekQBEEQ
BFEbDOSQt2/fVqlSBWimQWYyOTk5JmcMDg4W/8tvv/2WYlHakkN0Op2npydQ
YIEbN25Qj82S7t27g/bn0KFDdAPbsRySnJwMVJqB+/fvQyRXoRxC+PXXX+UO
i3KIHCiHyIFyCHtQDmHAmTNnoKVEY4SPdGZySEJCAnRFJ06coB7bclAO4Q7K
IdCQq902bdpANFmS1q1bkzOiHKKEvLy8mjVrihtYr149oPU2yetVpkwZuFFB
LnMgYtMC5RAIUA6hC8oh7EE5xCoUjqVRo0bJHRnlEEm4yyFkruLo6AhUnQDf
JwgQBEEQBDEPAzmEQKaCcJONPXv2GJ/r/v374n/j4+Pz+vVrihVpSw4h+Pv7
AwUWIAMJIjYzWrduDdqfmzdv0g1sx3IInGIh4OnpCXRXVp1yCOHjjz+WPCzK
IXKgHCIHyiHsQTmEDXKPeENAvoZu3LjBTA7Jy8srVqwYaEWRkZHUY1vO0qVL
hxUwZMiQfv36BQcH+/r6gtZrG+RihHzttm/ffsyYMRzbBQHKIQxITk6Ge9pC
zNixY1EOUYLcfl6gj9DOnDkTbkhQv0FEF5RDIEA5hC4oh7AH5RCrUDiWnj17
5uXlJXlklEMk4S6HJCUlAZVmID09nW+NCIIgCIKYgY0c8uLFC7j70h988IHx
ucj1pvjfTJo0iW5FmpNDBg0aBBRYYPfu3RCxmdGgQQO45pDBL17fRiF2LIdE
RUUBlSbQvHlzoOSqlUPi4uIknwhAOUQOlEPkQDmEPSiHsEGv14eGhgK1Wkyd
OnUmTJgg/u8QcggBes2BFStWQMS2GfJq3rt377vvvuvXrx/0A3FmINO/Tp06
TZs27cCBA3///TfF3S3VBsohbLhy5Qq06GXMN998I/6PKIdYyAcffCDuXtmy
ZbOysuBOmpiY6OzsDDQeXF1dnz59ChdeISiHQIByCF1QDmEPyiFWoXwszZ8/
X/LIKIdIwl0OuXbtGlBpAtWrV+dbIIIgCIIg5mEjhxBGjhwJN+W4cuWKcJbs
7GzJ9VTv3btHtxzNySHr1q0DCiywatUqiNjMqFq1KlxzAgMDqQe2Yznku+++
AypNYMSIEUDJVSuHEAYPHiw+LMohcqAcIgfKIexBOYQZZA7ZokULoG6LcXFx
Ef9HIDlk2rRpoLWoeSmMO3fu9OjRA7R8Me7u7nPnzn3+/Dnv6hmBcggzIiMj
IVotieRnFMohlnDhwgXJls6bNw/61KDPg5CPNej8NoNyCAQoh9AF5RD2oBxi
FcrH0qtXr7y9vcVHRjlEEu5yCPmOAypNgFyC8S0QQRAEQRDzMJNDYmNj4aYc
w4cPF86ya9cu8f8NDg6mXo7m5BBoJVjTl/k6nc7NzQ2uOXPmzKGe2Y7lEMlf
DCmyceNGoORqlkOuXr0qPizKIXKgHCIHyiHsQTmEJU+ePKlYsSJQwy0BSA6B
G0UCnTt3hohNEXKBAPdAvQlVqlS5f/8+74qZgnIISyQXyWQGyiGWILmfY7Fi
xZ49ewZ96kuXLsG9+uXKlQNd+UQJKIdAgHIIXVAOYQ/KIVZBZSxNmjRJfGSU
QyThLods374dqDQBNTulCIIgCILkM5RDCO3btweacri5uQk3W1q1aiX+v8eP
H6dei+bkkLy8PB8fH6DMhKFDh0LEZkNCQgJcZwjkXUY9sx3LIePGjQMqTeDu
3btAydUshxAaNWpkcliUQ+RAOUQOlEPYg3IIYy5evOjq6grU80IBkkOeP38O
Grt27doQsely7NgxUBNYoESJEtevX+ddK2tQDmEJuabr2rUrRMMtAeWQQvn7
778ld7MaPXo0mwAtW7aEGwA7duxgU4W1oBwCAcohdEE5hD0oh1gFlbEk+Vgo
yiGScJdDFi9eDFSawPnz5/kWiCAIgiCIeVjKIYcPH4abdSxZskRyzkbm7Tqd
jnotmpNDCKCranfp0gUoNgPOnTsH1xlnZ+fMzEzqme1YDvnoo4+ASnMo2PVS
r9cDJVe5HLJmzRqTw6IcIgfKIXKgHMIelEPYA727mRmA5BBC3bp14WKTqc7b
t2+BklMkIiICrgkCZHrGu0oOoBzCmJSUlNq1a0P0vFBQDimU8ePHS7bu9u3b
bALs27cPbgA0bNgQ7kpKCSiHQIByCF1QDmEPyiFWQWssNW3a1OTIKIdIwl0O
GTNmDFBpDgXCfG5uLt8CEQRBEAQxD0s5JC8vr1q1akATjypVqowcOVL831eu
XAlRixblENIKoMyEd955Byg2A0B/BmrZsiVEZjuWQ0B/wAJ9ak/lcsizZ89M
FtVHOUQOTcshW7ZsMRSyadMmugdHOUQS46d0qduAKIdwQe7XPWjg5JDhw4eD
Jn/w4AFQcorodLp69erBNaFnz568S+QDyiHsuXnzppeXF0TbzYNyiHlevXpV
vHhxcd+6d+/OLENubm7lypXhxsCpU6eY1WI5KIdAgHIIXVAOERMfH28oBOJz
EuUQq6A1lsLDw02OjHKIJNzlkDZt2gCVRujVqxff6hAEQRAEKRSWcghhxYoV
cHMPMe7u7i9fvoQoRItyCNwv1wQnJ6ecnByg5NDMnj0brjNkzENktlc55M2b
N5JLMdOCimUhh8rlEEJgYKDxYVEOkUPTckhwcLChEOrGBcohYpKSkgxV+Pj4
UD8+yiFcePv2bVBQEFDnzQAnh8BNXAUgdtCDYM6cOXBNOHfuHO/6+IByCBfI
9yZE282Dcoh5li1bJtk3Ml8NYQioHMJSdLEclEMgQDmELiiHiFm/fr2hEIhv
WJRDrILWWHr8+LHJkVEOkYSvHKLX60uWLAlUGmHjxo0cq0MQBEEQxBIYyyEp
KSkeHh5w0w8TRo4cCVSIFuUQMvcDXZPhxo0bQMmhAbpmFHj48CFEZnuVQ65e
vQpUF8HR0ZF8BMGFV78csmjRIuPDohwih3blkPT0dFdXV0MhV65coXt8lEPE
bN261VAFxHsK5RBevHjxokaNGkDNlwNODklLSytWrBhc8s2bNwMlpwvczjLe
3t4QG1lqApRDeLFw4UKIzpsB5RAz5ObmVqpUifErwoW7d+/ybrYpKIdAgHII
XVAOEdOhQwdDIeQbjfrxUQ6xCopjyWSlPpRDJOErhyQmJgLVJXDv3j2O1SEI
giAIYgmM5RDCp59+CjoDMebatWtAVWhRDskHXiJj//79cMlBadGiBVBPAgIC
gDLbqxyyc+dOoLoIQUFBoOHVL4dcvHjR+LDQcoher9f9D0AblKMcYsKBAweM
C3n69Cnd46McIiYkJMRQRZcuXagfH+UQjvz5558slWYHSDmE0K9fP7jko0aN
gktOkdOnTwN1wM/Pj3dx3EA5hBdkctWnTx+I5suBcogZdu3axfK14Mjnn3/O
u9mmoBwCAcohdEE5xISUlBTjTW937NhB/RQoh1gFxbE0duxY4yNDyyE6I6gf
3F7lkJMnTwLV5VCwYBrQDUAEQRAEQSjCXg65ceMG3AzEmFatWsFVoVE5BLT5
8+bNg0sOSrly5YB6ArSnTL79yiFA90wEvvvuO9Dw6pdD3r596+3tbTgstByy
bds2w7nS09MhToFyiAnGd8BcXFyo3x5BOcSEjIwMNzc3QxUjRoygfgqUQ/hi
IlxBAyqHwI0lQoMGDeCSUyQuLg6oAx06dOBdHDdQDuEI+Roi7z6I/kuCcogc
er2+SZMmzF4Ivnh4eIAuxmgDKIdAgHIIXVAOMcFEqPvll1+onwLlEKugOJaO
HDlifGRoOaR9+/bCiXr27En94PYqh6xcuRKoLgeNrxWDIAiCIEUH9nIIoWPH
jnCTEAN79uyBK0Gjckg+2G+pDpq9W5iSkgLUEAewPWXy7VcOMV5ZlC7u7u5A
foIB9cshhODgYMNhoeWQXr16CSfy9fUFOgXKIcbk5ub6+PgYqqhWrRr1U6Ac
YgJ5bxpXMWfOHOqnQDmEO7NmzQJ6CcSAyiE5OTmlS5cGSu7o6Aj9JUuFjIwM
oA784x//4F0cN1AO4cv9+/dLlSoF8RKI0ejlHgPgViVSJ8uXL+fd8v8DyiEQ
oBxCF5RDTCDf8saF3Lx5k/opUA6xCopj6eXLl8ZHBlUFXr16ZViCZvLkydSP
b69yyKBBg4DqIjx+/JhjaQiCIAiCWAgXOQT00UUBX1/fnJwcuBK0K4csXrwY
KHm9evVAkwPx888/AzWkW7ducLHtUg4h71l3d3eguoYNGwadXxNyyJQpUwyH
BZVDsrKyDNsxwK3jhHKIMadOnTKuAqLtKIeYMGTIEOMqtm7dSv0UKIdwR6fT
9ejRA+hVMAFUDiGEhYXBhT99+jRoeFoAzTQmTpzIuzJuoBzCHXJF7+TkBPEq
mIByiBzGe8wVBapUqULeI7y7/r+gHAIByiF0QTnEmOzs7OLFixsXkpaWRv0s
KIdYBd2xVKlSJcORQeWQvXv3Gk70zTffUD++Xcoher3e+AWiS9euXXnVhSAI
giCIVXCRQ/Ly8sh0GmgeIgDx9K4x2pVDkpOTjdfAp8uLFy9Aw0MA90TwyZMn
4WLbpRxy/vx5oKIIv/32G3R+TcghERERhsOCyiEnTpwwnAjOzEE5xJjhw4cb
VwHxCw7KIcZkZGSY3NU8fvw49bOgHKIG0tLS6tWrB/RCGAMth8TExMCFX7p0
KWh4WpQoUQKi/OnTp/OujBsoh6iBNWvWQLwKJqAcIsnt27cl2+Xi4uLGFVBl
aN++fbwb/7+gHAIByiF0QTnEmP379xtXQS6pIM6CcohV0B1LXbt2NRwZVA4x
fpWjo6OpH98u5ZB79+4BFUU4dOgQr7oQBEEQBLEKLnIIYfXq1XBTEWdn58TE
RND82pVDCKGhoUDhjxw5Ah2eOobtKelSr149vV4PF9su5ZBFixYBFdWgQQPQ
l0NAE3KI8bUtqBxivEwleWWBzoJyiIFXr16ZPA4/adIk6mdBOcSYrVu3mlRB
3l/Uz4JyiEqIi4vz9vYGei0MQMsh5KvQ398fKDzENt8QlCxZEqL8mTNn8q6M
GyiHqAHy7h42bBjEC2EMyiGSjB49WtyrMmXKZGVl8Q125swZuMHQokULvtUZ
g3IIBCiH0AXlEGNMdhMGWoUY5RCroDuWjAc8nBySmprq6elpOBHEvt52KYd8
++23QEVVrFgxNzeXV10IgiAIglgFLznk1atXxlM4ujC4l6hpOeT69etA4SF2
eATl7du3hp0v6LJx40bQ5HYph3Ts2BGoqN27dzPIrwk5JCcnx7AlK5wckpSU
5OLiYsi/d+9eoBOhHGIgPDzcpIpVq1ZRPwvKIcaI75lDLJ+Fcoh6MF4QCQho
OYRw8OBBoPC+vr4MPEzllClTBqJ86EUL1QzKISohKysrICAA4rUwgHKImGfP
nhUrVkzcKzUIY+Qzmcz24cbDhQsXeJf4X1AOgQDlELqgHGJAvGpBhw4dIE6E
cohV0B1LO3fuNBwZTg5Zv3694Syurq55eXnUT2GXcgjQW4OwevVqXkUhCIIg
CGItvOSQfMh9z8+ePQsdXtNyCKFTp04Q4QMCAhiEp8iVK1cg+uDj45ORkQGa
3P7kkOzsbJN1D2hRq1YtNptia0IOIZCGCIeFk0MWLFhgnB/u506UQwT0en2D
Bg1MqoBY7hvlEAPir49ixYpB/DKOcoiqWLZsGdDLIcBADtHpdH5+fkD5Y2Nj
ofMrp1y5chC1z507l3dl3EA5RD0kJCSUL18e4uUQQDlEzLx588SNcnZ2Jq8F
72j/n82bN8ONh/79+/Ou77+gHAIByiF0QTnEwNSpU02qANqFFuUQq6A7li5c
uGA4MpAcQi69jaegQOvP2J8cQvpWsWJFiIpKly6dmZnJpSgEQRAEQWyAoxxy
69YtiNkIm/0jtC6HREVFQYR3dnbW1lRww4YNEH0A3VJTwP7kkCNHjgBVtHXr
VjYlaEUOMWylBCSH5ObmmlxspqamQpwoH+WQ/+HixYviKs6fP0/9RCiHGBgz
ZoxJCbVq1YI4EcohqoLMMAcOHAj0ijgwkUMI+/btA8pPXlYG+RWCcgh1UA5R
FTExMa6urhCviAPKISKysrLKli0rbtSAAQN4R/sv5Nrcx8cHaDw4OTnFx8fz
LvH/g3IIBCiH0AXlEIGcnBzxTGzGjBkQ50I5xCrojqXExETDkYFukEZHRxvn
7969O8RZ7E8OMfZ26LJw4UIuFSEIgiAIYhsc5RBC586dqc9GNm/ezCC51uUQ
vV4fGBgIkf/48eMM8tOif//+1DtQsWLF169fQye3PzlkwIABEOVUqlQpOzub
TQlakUO+/fbbUQXMmzeP4mENHDhwwDh82bJlIc4igHKIAPnWFlcBseUuyiEC
GRkZXl5eJiW0a9cO4lwoh6gN8hXfpEkToBeFjRyi0+n8/f0h8n/wwQcM8isE
5RDqoByiNrZt2wbxijigHCKCTKolGxUTE8M72v8yadIkoPHgoJrf+lEOgQDl
ELqgHCJgcq9AYNOmTRDnQjnEKuiOpby8vFH/w4kTJyge2UDPnj2N80+cOBHi
LPYnh4wfPx6inBIlSrx69YpLRQiCIAiC2AZfOeT48eN0ZyPe3t7Q23kIaF0O
yQf7jS80NJRNfuVkZ2eTAUO9A2zWqbAzOSQzM9PDwwOinPXr1zOrQityCDTt
2rUzDt+yZUu4c6EcQkhNTZXckiknJ4f6uVAOEZD83W3QoEEQ50I5RIXEx8dL
PiquHDZyCOHUqVMQ+QlJSUlsSrAZlEOog3KIChk7dizEi4JyiDE6na5+/fri
Lr3//vsMFjK1HPLdCjEYBBjspmoJKIdAgHIIXVAOEZDc4RroShDlEKvQ1lh6
+PCho6Ojcf6NGzdCnMjO5JC8vLwKFSpAlDNr1iz25SAIgiAIogS+cohOp6td
uzbF2ciECRPYJLcDOSQf5lqpVKlSubm5zEpQAnU3ifDOO++8ffuWQXg7k0P2
7NkDUct7773H5uUQQDmEEBsbaxJ+yJAhcKdDOYSwceNGcQm+vr4Q50I5RCAg
IEBcAtDtbpRD1MnZs2ednZ2pvyjM5BDCsGHDqOcnhIeHMyvBNlAOoQ7KISqE
XI5BrBKJcogxcteSERERvKOZEhISQn0wGAD6Pc4qUA6BAOUQuqAcQrh//75k
FVeuXIE4HcohVqGtsTRt2jST/CdPnoQ4kZ3JIadPn4aopUqVKtraYh5BEARB
kHzecghh3bp1FCckd+/eZRPbPuSQhw8furm5US8hOjqaWQlKCA0NpV47s983
7UwO6dGjB0QtZ8+eZVkFyiGE3r17m4SfP38+3OlQDtHpdH5+fuIS/P39IU6H
cgjh8uXLkiWQ+QzE6VAOUS2bNm2i/qKwlENevnwJoUm0bduWWQm2gXIIdVAO
USfPnj2rVq0a3RcF5RBjgoKCxC3y9fVltqOl5URFRdEdCcbUqVOHTEf5Fohy
CAQoh9AF5RDC5MmTJat4+vQpxOlQDrEKDY2lpKSkEiVKmOS/f/8+xLnsTA4Z
OXIkRC3/j707j9dqXB/Hf5o1UqbTSQOKzJmOeaYMhygq86yQoZAon5eECjkh
wjEVGg9JURIaSDqnkkrUMatoonnefvexP59+fWvv3bP3s9aznrb3+4/zcqjn
ua5rTfd61rXue9CgQZnPBQBIU+LNIUuWLKlYsWIko5GGDRtmLOzi0RwS3H33
3ZGnsE38cLpq1arI15TJ5I/Yxak5ZNasWXEkEtMSDwXQHDJs2LAtg3/11Vfj
+0bNIQMGDMgzhbPPPjuOr9McEpxxxhl5phDTzzuaQ7JWTk7ONddcE+1GyWRz
SDBw4MBo48/19ddfZzKLwtIcEjnNIVlrypQpeS48V2SaQzaaPHlyniXKzlPB
hg0b6tWrF+GesJmhQ4cmm6DmkDhoDomW5pCffvopz0tS6dKlY2ow0xxSKNvQ
vtSiRYvNgi9VqlRMkwYXp+aQ+fPnh60ceSKnnHJKVq2mBwCkKPHmkKB169aR
DEgy+aNEsWkOWb16deRPV3faaac1a9ZkMosiyO+JapFVrVo1pvcd8lScmkNa
tmwZeRYVK1acM2dOhhP5gzeHrFixonbt2lsGP3HixPi+9A/eHLJ+/fo8pw0J
WrVqFcc3ag6ZMGFCfimE/xTHN2oOyWZhtHPUUUdFuFEy3BySk5NzzjnnRBh/
rhtuuCGTWRSW5pDIaQ7JZv37949wo2gO2ejCCy/csj6lS5eeN29e0qHl7fHH
H49wT9jMySefnGx2mkPioDkkWppD2rRpk2cKtWrViukbNYcUyrayL7377rtb
Bl+vXr2Yvq44NYeEu5XIsyhVqtTMmTMznAgAEIk8h1WXX355JmP48ssv0x+Q
1K5de/369RmLudg0h/z2+8O+kiVLRpvFK6+8kuEsCivylZf79OmTyfiLTXPI
zz//HEfv+ksvvZTJLHL9wZtD7rrrrjyDX7x4cXxf+gdvDunXr19+KTzwwANx
fKPmkEaNGuWXwo8//hjHN2oOyXLz5s37y1/+EtVGyXBzyG+/v8VZvXr1qOLP
FS7rmWyXLSzNIZHTHJLl2rdvH9VG0RyS67vvvsvz9vniiy9OOrR8RThfa57C
fVCC2WkOiYPmkGj9wZtD5s6dm9/PPkcffXRMX6o5pFC2iX1p1apVdevW3TL4
M844I6ZvLDbNIeFCWa1atciz6NatWyazAAAilOcj5ssuuyzDYZx++ulpDkge
euihTAZcnJpDgo4dO0abxWGHHZbN08rNmjWrRIkSEebbqFGjDOdbbJpD7rnn
nshTuPTSSzOZwkbxNYdk/wqen3/+eenSpbeMvGrVqrF+b0zNIeeee26sYUdi
/fr19evXzy+FmPqj4msOeeONN+IIOFrjx4/PL/5wTYlpJlvNIdkvVLJs2bKR
bJTMN4f89vuOnecJPB3t27fPfCIp0hwSOc0hWS4MGPJbEK2wNIfkyu/9908+
+STp0Apyww03RLIb5Cmp+69cmkPioDkkWjE1h4QhaNKZpeTmm2/OL4X4riya
Qwplm9iXOnXqlGfwN910U0zfWGyaQ5588snIU2jUqFFMa0IBABnwzjvvbHl9
z/w7L8OHD09nQFKuXLmFCxdmMuBi1hyyZs2agw46KNpExo8fn/lEUnTllVdG
mOmOO+4Y0wvjBSgezSE///xzlSpVoo1/r732WrZsWcZS2FR8zSH9+/dPJKMU
5eTknHDCCXlGfvjhh8f61TE1h5xzzjmxhh2Jgu/u33333Ti+NL7mkNdffz2O
gCO0YcOGv/71r/nFX7169Zi+V3PINqFPnz6RbJREmkOCZ555JpL4N6pcufKv
v/6aSC5bpTkkcppDsl84HiPZTJpDgl9++SXPKTgOOeSQpEPbipkzZ6a/D+Sn
VKlSP/zwQ1KpaQ6Jg+aQaMXUHFK6dOmkM9u6cPIpoA/51ltvjel7NYcUSjiN
J5vXVs2ePTu/hvzHH388pi8tHs0hy5Yti3Cuy1zVq1efP39+xlIAACI3YsSI
LS/xF154YYbD2LBhQzo/WF1xxRUZDriYNYcEM2bMqFChQoSJNGvWLJFEtuq7
774Ldz0RZhoOosxnUTyaQy6//PJogy9Xrly4d8tY/JuJrzmkb9++SSWViq5d
u+YXedxXk5iaQ/72t7/FGnb65s2bV3BjVUwLv8bXHJL9ayc9/fTTBcQfXx9U
cW0OeeCBB7YMafbs2QmGlKb8XiQvlKSaQ4Krr746/fg3FS4NSeVSMM0hkSuW
zSFr167dMqRrr702wZDS9MUXX1SuXDnNjaI5JHjooYfyLE4YJyQd2tadeuqp
ae4DBUjwuf/y5cvjyOitt95KKqNscMghh0Re0ttvvz3ptBITU3NIyZIlk85s
K3Jyck466aQCUujevXtMX605pFBKlCiRbF4FC+f5cMedX/Dx9fIVj+aQdu3a
RRt82FtGjx6dsfgBgDiEEdSWV/nmzZtnPpKePXsWeVgyadKkDEf74osvpjGM
KkiCT0YGDhwYYSLhLvXLL79MKpcCRDuhbseOHRPJIs85fyKRseaQjz76KPLg
BwwYkJng8zR58uTIM8r16quvJphXwV555ZUCIo/7YVkB66qkI74layORk5Nz
3nnnFZzC0qVL4/jqiRMnxlHwIFyA4gg4Kj/88EPBz9TiW4rojTfeiKnmYWvG
FHMq8pwT+IsvvkgwpDStW7cu/YduCTaHrFq16uijj04z/k1Vq1Zt3rx5SaVT
AM0hkctz8ff0NW3aNMGkwhGxZUhXXXVVgiGlb9iwYWluFM0hK1as+POf/7xl
ZcqXL79kyZKko9u6IUOGpLkPFKBKlSoxjT+3KhQ/joyGDh2aSDpZIvKpZYO2
bdsmnVZiQu6R1zNX0pltxXPPPVdw/PHNktqiRYs4Cl6nTp2YAk5RJB3peUo2
rwKE+6yzzjqrgMjj+yE9vlfAMtYcMnPmzGhfkAx69uyZmeABgPi89dZbW17l
E3lRa+nSpUV7m+nII4/MfLTPP/982oOpvCXbUHHHHXdEmMvZZ5+dYC55mjt3
bn7zEBZBuD1JaoHFNFdiKsDYsWMzEP/69esj/7mpR48eGYi8APFNqvDiiy8m
m1p+3n333QJmiA1efvnlWAOI6W3lhg0bxhp2mvr27Vtw/OFiGtNXT5gwIY6C
B/369Ysp5vSF83yjRo0Kjr9169Yxffvrr78eU83D1owp5lR07Nhxy5CmT5+e
YEjpW7Ro0e67757ORkmwOeS33xeeiPY14TBMysnJSTCjPGkOidwee+wRR0nP
O++8BJNatmzZliFdeumlCYYUiTyX9Eqd5pA8p7360++nu6RDS0m4Batdu3Y6
+0DB/v73vyeS1y+//BJHOkOGDEkknSxxwAEHRF7S+BYQyX4h98jrmSsLx1ob
ffvtt1v9mffDDz+M6dubNWsWR8Fr1aoVU8ApuuWWW+LIK1i3bl2yqeUp7OHX
XHNNAWGXLFly7dq1MX17fK+AZWbq1FC9U045JdrI27dvn4HIAYC45fkCUZMm
TRIJpmhD3FdeeSXzof7jH/9IezyVt5jWAkjR+vXrzz777AjTee+99xJMZ0ut
W7eOKrW6dev+8ssvSSWSZ1tXJDIzN2Dnzp2jDfvee+/NQNgFi29ShaR+aC3Y
lClTKlWqVHDkH3/8cawx7LnnnnEU/Igjjog17HR89tlnW10CrH79+jF9exwT
/uTK5snYw+llq/HHt4LGoEGDYqp52JoxxZyKm266acuQ4j5jZMC0adPSWaQv
2eaQYOHChfvtt18au9XmnnvuuWQz2pLmkMjVqVMnjpKec845CSb1448/bhlS
fJNEZUxOTs4FF1xQ5I3yB28OmT9/fn5D3/iWRYhcly5dirwDbFXNmjUTebYY
Ll5xpPP6669nPpfsEcfynWH4l3Raiclz6BuJBH+VKtiKFSsOPvjgrcb/zTff
xBRA06ZN4yh4jRo1Ygo4RfHtSwsWLEg2tTzdd999BYe9xx57xPft8b0Clpmp
U5955plow27VqlU2N6QBAKkbOnToltf6xo0bJxLM7NmzCzss2XnnnVevXp35
UJ9++ukoRlV5mDFjRubT2dSyZcsifEkkfNT69euTzWijDz/8MKq8dt1112Tn
eMnzyI3E+++/H3fwo0ePLlGiRIQxt2vXLhtuTz7++OMIk9pUUqsXFeDbb7/N
c1btzcT980KaL+nnJ/GpYvOT4rwEp556akwBjBs3Lo6CB506dYop5jQNHjw4
lfjj61MdMGBATDXP2CJieQpDzS1D6tu3b4IhRSWdyV4Sbw4J5s2bF+EqIRUr
Vvz666+Tzun/oTkkcjVr1oyjpH/7298STCrPZsiDDjoowZCisnz58gMPPLBo
G+UP3hxSwFsGkydPTjq6VP38889lypQp2g6QikR6AkNSceQyaNCgzOeSPfbe
e+/IS3rDDTcknVZibrzxxsjrmSs7l2XMycm58MILU4l/zZo1McWw1ZVYi6Z6
9eoxBZyiaFfK3lQWrgz+wgsvbDXsWOd9je8VsAxMnTp16tRy5cpFGPOVV16Z
1OzZAEDkwmhky8t9gjPqF7yM4JY6dOiQSJyPP/54RGOrzX366aeJZLSpH3/8
sV69elFl9NRTTyWd0H+tWLEiqkkGdtxxx8R7eFJ8XlkEI0aMiDXyH374YZdd
dokw4EceeSTWgFM3ZsyYCPPaVLb9jDZ9+vRUWhS23377uJt2atSoEUfBy5cv
nw3tRptZt25dijOCXn755THF8N5778VR8OD666+PKeZ0TJs2rWLFiqnE/8EH
H8QUw8svvxxTzZOd2ivPFwk7d+6cYEgR+p//+Z+ibZRsaA4Jvv/++whb7449
9tjs6RP+TXNIDHbdddc4SprsEm953iNXqlQpC4cHRfDNN9+E25kibJQ/cnPI
7NmzS5UqlWdZwog3q85yW3XRRRcVYeun6M9//vPy5csznNG3334bRy69e/fO
cCJZpVatWpGX9Iorrkg6rcRce+21kdcz15gxY5JOLg8PPfRQKsGHUVl8MRT2
5+UUhQtofDGnouA1VtKRbbM49urVq2TJklsN+8Ybb4wvhvHjx8dU7bgvMYsX
L4525ccseSkPAIjKU089teUVf999900qnpEjR6Y+MgmjxB9++CGROO+5557o
Rlj/jyxZh2Xu3LlRvSpSvnz5WbNmJZ1QZOty7rDDDtnQwPPiiy9Gks6WYn1x
e8GCBfvvv39UoZYqVerll1+OL9rCeu2116JKbTMtWrRIOrn/35tvvpni4/JD
Dz001kjCnWnZsmVjqvnSpUtjDb6w1qxZ06RJkxSDj69tsn///jEV/Lzzzosp
5iKbPn166k88Z8+eHVMYjz76aEw1z8xMtvnJ87lksXlksGHDhjynRtmqLGkO
CX766adUZgJPUcuWLbPnLTPNIdEK1+L8npinKe5RRMG6deuWZ1TZOeN6EXzw
wQepPHDZzB+5OeT888/Pryxnn3120tEVToTTaeYp89PBxTR/YzgPZDiR7BHO
7XHMMHP66acnnVlizj333MjrmWvAgAFJJ7e5nj17phh8GG3GF8Zf//rXOApe
okSJZIe18e1Lb731VoJ5bWrt2rWtWrVKMewePXrEF8nbb78dU7VjXTx62bJl
xxxzTITRxlpkACARN99885YX/UqVKiUVT7gJrV+/foqDkyZNmiQVZ8uWLSMc
ZW0qAzPLpeinn36Kap3Zww47LJHVfzaKakqHypUrZ8mDm+7du0eS0ZYef/zx
mGJetGjRQQcdFFWcFStWjHuSk8Lq1atXVNltplGjRkkn91/hDv3uu+9OPezm
zZvHGs+SJUtiKvif4nzWXwSrVq0688wzUw8+7IoxRRLfrFlHH310TDEXzeTJ
kwv1VvXKlStjiuTOO++MqeY9e/aMKeatmj9/fp4hHXPMMUmFFLmlS5cWYRCV
JWOMXCGF0047Le0d7X+1atUqS/pDNIdEa/HixXHUM6hZs2aCeV1++eV5RjV+
/PgEo4rWE088UdiN8odtDpkwYUIBZbnllluSDrBwcnJyorrNz1OFChXmzZuX
yYzSWdCtANvclo1QuHOPo6QNGjRIOrPEhJudOEr6pzh/wCmaRx55JPXgY11C
rk6dOjHVPNlO0fj2pfhWSi2Ub7/9tlA5Dhs2LL5gQk1iqvbdd98dU8wrVqw4
4YQTooqzTJky2fOcAgCIUH5v8Sc41k39AWt8s7hvVUyLV/4py+7s5s+ff8AB
B0SS13XXXZdUFuHOIpK1JypWrJg9sywW6hl9odxzzz1xBPz99983aNAgqiAP
PPDAbJiOZjOdOnWKKsHNZMMa97Nnzz788MMLFXbcy36FkGIqeDBu3LhYg0/d
4sWLU1xNZqOhQ4fGFEzYpjEVfI899ogp5iIYO3bs9ttvn3rwVatWjS+YK6+8
Mqaad+zYMb6wC5bfWjmlS5cOO3xSUUUunKMKtSP9KcuaQ377vScwjN+i2N3+
K0v6QzSHROuLL76Io55B2bJlk5q8Onzvn//852K/oUOahb3E/DGbQ8KJq+Cn
VAleT4vs/vvvL9SmL6xrr702k+k8+eSTcWTRrFmzTGaRVWbMmBFHSXfdddek
M0tM3bp14yhpcNdddyWd3P8KZ8twPixU8GFwGF88FSpUiKnm06dPjy/srYpv
X8qGJZv79etXpUqVQoUdxqLxxRPf2zEx/Ui+YMGCCDtD9txzz8mTJ8cRJwCQ
rFmzZuU3AIh1aYmCLV++PJWh4L777pvganfxtWrH/Ti1sBYuXBjVbA/PPfdc
5uOfN29eGM2mH/wuu+ySVa8Kpj7FYmFdf/31kUc7evTonXbaKaoIW7ZsuWrV
qsiDTF8oXVQ5bqZEiRIJPjD9+eef27VrV758+cKGHfciqh999FEc1c710EMP
xRp8isaNG7fbbrsVNvj47t/jW+A4+Omnn2IKO3Xr16/v1KlTOOIKFfn+++8f
X0gxLZb9p0SbNi+88ML8onrxxReTiioO77zzTqF2p2xrDvnt98fHjz32WOnS
paPY6bKiP0RzSLSimp0vT0uWLEkkqSlTpuQXUv369RMJKSarV68+4ogjUt8i
f8zmkHAOLLgsMbXWx2r69Ompb/ciCNe+TD48jal7+fjjj89YCtlm1KhRcZQ0
7BhhsJ10csmoXLlyHCUNTjzxxKST+6+5c+cW9o2G4P77748pnuXLl8dR7Vzv
v/9+TGGnIr59KdlV0j7++ONGjRoVNuZwVlmzZk18Ud17770xVPq/4pgLfdKk
SbVq1YoqwmbNmiU1FAcA4nbLLbfkNwZIdmbvtm3bbnWU8tRTTyUYYXyt2hl+
yyYVYTTYtGnT9FMrWbJkhh/6LFq0aL/99ks/8kMPPfSHH37IZORbdcEFF6Sf
V56iPfZXrlx5zz33FGFN8zztsMMO2TyfYSSHSX6efPLJzGc0b968cDYuQltI
ro8++ijW8AYPHhxtkTd18MEHJ9h/+NvvL+wXoUsh188//xxTVOecc07kpd4o
8Ymzvvvuu+OPP74Ikce68FNhZ+xJXePGjeMLuwDr1q2rVq1aflGdccYZiUQV
n0LNrZ2FzSG5Jk6cuPvuu0ex3/33Z+dk5+LWHBKtQYMGxVHPXElNE/fAAw8U
EFWy7wtHbu7cudWrV09xi/wBm0O++OKLcuXKFVyWLLx/36owyt11111TPRSL
JJMX9KuuuiqOFOrVq5exFLJNfpO8pS/DSw5liVWrVsVUzz/9/jvbnDlzkk1w
2LBhRXsbKL5fCL/55pvIS71Rgr9KxbovlS1bNpH3NcaNG3fqqacWLeY6derE
Glvr1q2jLfJGdevWjTDOtWvXhrvOrY5YUlShQoVevXol+4MYABCfrU7QEfdz
vQJ8/fXXBQ9UKleuvGzZsqTCW7JkSZkyZSIZcW2pYcOGSeVVgDAm/Pvf/16q
VKn0E7zvvvsyM8JcunRpJM/ULrnkkpUrV2Yg4EI57LDD0k8tTyVKlJg9e3b6
EYatPHTo0AiXeb3sssvmz5+ffmDx2XvvvaNKdks777xzODFmLJc5c+bcfPPN
ad5axteikKtz585RlTdPr7/+eqzx5yccO2+88cZee+1VtLDD5SmmF/NDYHvs
sUe0Rd5UjRo1knoz5ddff+3QocN2221XtMivvvrqmAJbs2ZNYafVTV1S61U9
++yzBUQVRhr/+c9/EgksJuHAufjii1PcKFnbHPLb76Pf5s2bR7Hr/al69eoj
R45MKhHNIdEKicdRz1yJ7CcrVqzIb02ZXDfeeGPmo4rVhAkTUry3/aM1h6xb
ty6V28lYJxCLzzHHHJPqoVhUQ4YMyUwuJ510Uhzxly9ffu3atZlJIdvcd999
cZQ0yJ6FejMpDPBiqmeua665JqnUpk+ffuaZZxY58nfffTemwIYOHRphhTfT
pUuXmMLeqrj3pSZNmmRylr8PPvjgxBNPTCfgU089NdYI45vG80/RnQ9Hjx69
7777RhXVueee+/3330cSGACQnf7+978XPB7Yf//9V69enVR4Bb+e3Lp166QC
C/r06RPVoGtL5cqVW758eYLZFeDDDz9M/c2yAoRb13Xr1sUa6syZM/fZZ580
4yxZsmQ4TLKwWXrOnDnpb4UCHHbYYUuXLi1yeCtWrHj22WcPOOCAqOIJm3LM
mDERFjAOU6dOjSrf/NSvXz/uxWVmzZrVo0ePhg0bpt//VqlSpViPnfDh4SIV
SWHzE87GGftNO1c47sL1pUGDBumEXbt27ZjCmzRpUlS1zU/IPcOvE86ePbtD
hw7bb799OmHH91A41l81g8z/7BMuEFsdSBx//PGJrzwSrZUrVx5yyCGpbJFs
bg757fcT73PPPVfkNqrNXHbZZQsXLsx8FppDIhR2iTA4iaOeuRK543vwwQe3
GliC71DE5KWXXkpli/zRmkNuvvnmFPfVxF/bL4Iw4E8xuyKrVq1aBiqzYMGC
SN5hydPbb78dd/zZKaqVhbfUrl27pJNLwB133BFTPTdq06ZNJsfP69evf++9
984///w0w/78889jijD13uwiOOqoo2IKe6tuv/32+PLKddttt8X6S87atWtH
jx4dDopI+hlatWoVX6hLly6tUKFC+kHmp169eum8UbVmzZpXXnmlUOsDFqx2
7drDhg2LsIAAQBb68ssvU1kp4JZbbkkqwnCjUUBgM2fOTCqwcMMVyUolBUh8
av0ChIFrJC/m/PWvf41pTuZwF/Pyyy9XrFgxzQh33nnnUaNGxRFh+sLtT/qb
oGCHH374lClTChXV6tWr//3vf7dt2zbNx6yb2nXXXXv27BnrEqJRueKKK6LK
ugB16tSJ/OWalStXDh8+vHXr1tFOCtGgQYNo49xMTAthb6ZEiRI9evSIew9c
smTJkCFDmjVrFskj1/hWhbvkkkvSD2+rdt99908++SSmFHKFy8Q333wTtmxU
K7b84x//iCnUk08+OZII83PbbbfFFHl+UpxkIJGFtGL1/fffp9KTkOXNIbm+
+uqrM844I+2977+qVat2//33L1q0KJPxaw6J0IgRI+Io5kZVqlSJuy12Mz/+
+GPlypW3Gthee+2VhfMKpimVRog/VHNIly5dUt9Xr7vuuqTjLbRjjz029QSL
LIxk4n5gHd8cF38qjqvdpWLMmDHxlTRchROcBDgRId8ddtghvpJu1KJFi7in
7ly7du3HH3986623FjzFVurSeSmpAHPmzCldunQkEeZn4sSJcUResIztS02a
NAkjomiDDxvl+eefD5+cykArdd27d482zk3de++9EYaap3322aewLcfhMJw6
dWrHjh132WWXqMII+1XXrl1XrFgRUyUBgCyxaNGievXqpThC6NSpUyJB5uTk
5NeDEfescQVL5W2yNFWpUiWbnw6sX78+DL8rVaqUZpplypQJI+1oFxH4/PPP
GzdunP4maNmyZYZ/i07dwIED008wRaeffnrY1u+///4vv/yyZSTLly8PdzFP
PPHElVdeedBBB0X7xlb16tX//ve/byv3Ju+++27JkiUjTL9gxx577H333ffm
m2/+8MMPhXqnI+zVkyZN+uc///nII4/ccMMNZ5xxRv369cuWLRtHkLE+Pvj1
119jXcRnM3/5y1/atGkzePDg8ePHf/nllwsXLizyr9zhLy5YsOCzzz4bOXLk
k08+edlll0X+znWzZs2irXau4cOHlyhRItpQCxB28rCXhiqFPfbbb79dtmxZ
kV9fWrNmzXfffffJJ5+ELRiGNGeeeWbRVsQuQExvlab4Hnc6Spcu/dZbb8UR
fJ769u2bYmDlypVLal2n+IwbN26rP1Nn8/BvU+F4fO2112rUqJH2PvhfFSpU
uOWWW8JxGnfM4Rwern2Rv2AeNuvFF18c36uvWSsMKlK/oyyys846K2NNwiGj
1Ce+C4Fl7WSPRbNu3bqtvgLwB2kOCXe7HTt2LNSOGm4Etq35ZH766ac0l49M
Xbjljy+RMFCM9bXuoF+/fvHFn4XCnU6EyxPkqVWrVlk4O2tMQqZXXXVVrPXc
VDiuw5ikd+/eo0ePnj59+rx584p8DQ2RL126NNz8jhkzpk+fPjfffPORRx4Z
7XmjUqVK0VY7VziHp7PSTYr23nvvcCKNI/78ZHhfKlu27KWXXvrEE098+OGH
herhCfX//vvvx44dG/bDcP6/7LLLjjvuuN122y2mON98882YCj5q1Kj4FpTf
zAknnNCtW7eRI0cuWLBgy0hWrlz5ySefPP3009dee+2hhx4a7S941apV69y5
86+//hpTGQGA7DFu3LhatWoVaqjQpk2bRNZazW9V+jfeeCPzweQKXx3F4Gvr
dthhh08//TSpNFMRbjPDnUL6mVauXLldu3Zz585NM54pU6akP6dlcMABB2Tz
Mrjh9iTuNyDys9NOO9WoUaNOnTp/+ctfwu1D+nOz5OeII4544YUXElzTqrBm
zZoV4WQphRWOoOrVq9euXXuPvITtFbbaLrvsUrVq1bh/ON3MXXfdFVPB169f
36hRo0zmkqdQ0lDbmjVrhuLvvvvuedZ/0w2x22677brrrvHNer1R27ZtI6/5
zJkzo33BpwjKli0bCphizcN/DX8m/OGwmTIQ22effRZ5zT/66KPM/BgVCvvO
O+9EHv9mwmH7+OOPF7a/qEOHDnEvQpdhzzzzTMEpbyvNIbmWLl0aTjhR9UaG
z7nooouGDh0a7QP38GnhM1u1ahVOHZHEualw/e3cuXOGHw1kiXBsnnbaaZGX
NE/nnntuBm5Fw3CusMvVhT9fzJqCFi5cGEYsBaT8R2gO+fnnn0855ZQi7KiV
KlWaMGFC0uGn6s477yxCjkXWpUuXOJoBPvnkkwzchYXRS+/evSMPPjvNnz8/
wsVhC9CyZctitoZgfnr06JGBehYsnJ3+8pe/hLvRWrVqhZP8Vm+jwh8Lfz6V
uabTVL9+/ThqnoFFfHLtt99+eT7Kj0my+9LG3wPz22fCqDj8mXBOzvAvljGN
xMJNWXy/eRasWrVqG3963XHHHcPxG9NLOuFs/+STTxazVmcAIE8rVqzo0KFD
0QYVhx56aOZ/6wgBbzljXs2aNdevX5/hSH77v2XWM/l0NQyqX3zxxSx/peKj
jz46+OCD00+2TJkyV1xxxYABA7755pvUUw5/cvr06Q899NBxxx2Xfgzh5vfh
hx9OpA8qFSHZPn36JHV7kgFhh2/dunUcz1hjNWrUqMK22/1BvPDCC3EUfO7c
uZHMDlSMPfroo9HWfOTIkfG96VM8RLsoRjjbDxw4sFq1ahmLv2zZsuHyF18b
xvvvv1/klev33XffoUOHZvlYqFAKXhhu22oOyTVz5swWLVoUbfvmKYwJTznl
lO7du8+YMaNomz7cQYwdOzaMDxs2bBjH7FjhZurEE08Mo9asHTTG7ccff/zb
3/4WeWELcPzxx8+aNSumdBYvXnzrrbcW7VlG2MFuu+22DC+NFKswFC/ghrd4
N4esWbOmV69e6UzSvt1223Xr1i37Zz7s27dvxt6G3qhZs2bpvw+yUbg69OvX
L5Oty/fff/+qVauiij87TZw4MfIpDQsQzifFu7synFI6d+6cyakXtzlhvBdt
zZcvX96mTZtMplC3bt0xY8ZEm8WW7EsFiOPMPGTIkB133DHpzOIShnlXX331
J598UpxusQGA/HzxxRd33nln+u/PHn744b179457FctNbdny3bVr14x9e66V
K1e+8cYbDRo0SLN6RfPXv/717bffzuY3Z9evX//MM89EteTon35fhfass866
77773nnnnWnTpv3nP//58ccfw14X/verr74aPXr0Cy+80KFDhxYtWkT1UL5M
mTJXXXXVt99+m3Qt8xZG7GPHjj3xxBMjSTbbhPPSJZdcMnDgwOz/HXVT4ZD8
8MMPTz/99KTrl73CThthwcNREI7Qdu3aZeANpm1dOJoiqfnatWvDRmzYsGHS
CWW77bbbLqrfVVavXj1ixIgjjzwykUT22WefsPNEtXxDqMnMmTMffvjhY445
Jv3Yjj322JdffjnadeiSEioc0skv022xOSTX9OnTL7jggvS39WZ22mmncERc
eOGFYeD3/PPPf/DBB19++WW4HMyZMyeMDOfOnRv+eeLEiWGg/uSTT7Zv3755
8+b169eP6cfzUqVKhVPis88+m8lboawSjutvvvnm9ttvD+e9OCpcsLJly950
003ff/99VOksXbr09ddfv/LKK9OfeaBKlSp33XXXZ599Vjx+Zv/nP/+ZX6bF
tTlk/vz5Tz31VO3atdPcE3JVq1btuuuu69Wr10cffVSoqfjjFu5f3nrrrXCj
HUmaRVC5cuU777wzzXcBwgB1wIABRxxxRObjr1WrVvfu3TM5UUBmhBPXuHHj
4riIb1XFihXbtm0bruxJ1yBiv/76axi0RHVKKcYuv/zyqGoeDswePXqk092X
jvPPP//TTz+NYwxgXypYzZo1I6x22ILhXizD/c8ZEy7B4TxfbO6pAYDNLFq0
aObMmZ9//vm0adPCjX/Xrl0vuuiiOBYMrVu3bhjGP/DAAy+88MLw4cMnT548
ffr0OH4p/fbbbzf9gbds2bJx3IzPmTPni/8zY8aMkM7HH3/8yiuv3HjjjYce
emgGVgHYqvLlyx977LG33XbboEGDPvnkk3DfETb0xpgXL14ceU0Ka82aNaFi
oVxJl6pwqlSpcuedd0b4ElPRhGNn49YMWzZs37CVBw8efNddd5166qlbzp9T
DOy1116333772LFjs7bxaeHChVtulCFDhoQd5vjjj9eisFXz5s0rVMHXrl27
acHDVexf//rX+++//8gjjzRp0qR69epJJ7TNSH3J+zx38jfeeKNdu3bHHXdc
Is/+tkV77rln6vt5OC421jyM1kLNJ0yYMHDgwFtvvfWII47I/Gu8WwoDrSOP
PPKWW27p379/iC1EGOLcGHOeL3iGpMIfmzhx4tChQx9//PE2bdqce+65u+++
exyxnXXWWR06dAjjjbCvhpFn7lhom3umEC76+c3Gs+02h+T67LPPwhk78k2f
rHLlyp1zzjl9+vTJhvF23MJ4Pr9r8XnnnRdhK3g6atWq1axZs0cfffSDDz4I
h0w4FXyxiS3XKQgDjJDIpEmTxowZE7Zjp06dwm1suLGK45Rbv379Vq1ahTPh
yJEjp06duvH8uc3tPOFMm2eCxak5JOztYTN169Yt7Ayxvo69xx57hMOnffv2
PXr06Nu373vvvff111/HlNSqVas2HWOES3PY7Z977rmbb775xBNPzJ6byn33
3bdjx47heAw3gytXrtwsi/Xr18+YMSMcQeGwDUORYcOGhdK1bt369NNPr1ev
XlJLrG6qZs2aoZ5XX311ly5dBgwYMH78+HAuCgUPp6OsagfaVNjrwjV68uTJ
YQQ1atSoZ5555o477gh75oEHHpgNc5PuvPPOYSR80UUX3XPPPb179w77bbj6
TJkyJZy9s3N2kVDPzX5CDLdgzz//fNgr4vgBtri6++67U6/5rFmzNq15OD+M
GzeuV69el156ad26dZNO5b922mmncKvSuXPnESNGhB04HHGb/myb38tQ9qV0
nHzyyYU6cjf7ASRcaHLvYf/nf/7njDPOCCeipBOKXu3atW+66aZ33303qndA
AIDs1K1btwSHHOHuMo6kwh3rxq+47LLL4viK5s2bJ1i39D3xxBNxlKUIcnJy
Pvzww6ZNm2b/hIc1atTo3r17lvx6c+uttyZdj0yoWrXqaaed9sgjj2wTD/K6
dOmSdMG2YRUqVCjsizPff/990lEXE999912KNe/cuXPSwRYHJ5xwQur7ecuW
LZOONy033HDDlkndeOONyUa13Xbbpb4JssSkSZPKlSu3ZS7benNIrq+++qpt
27bpz8aQrIoVKzZr1mzgwIHLli1LuqKZ8/XXXydd+HRt+fAlGwYYPXv2TGSD
FtmGDRvyfHO2ODWHhDNV5veEXI0bN44pqalTpyaVVJFNnjx5syyWLFmSdFBF
9+abb8a0cdOU1ES46QsjiqSLl4f99tsv6cIUB7169Uq95tnT3lY0+U2sqgMk
Hdddd12hjtyuXbsmHXImVK5c+aSTTnrggQeKzaR2AMBWFcvmkNGjR2/8in/9
619xfIXmkMh9++237du333vvvZOuzebKly/ftGnT/v37Z1XXdHFtDqlYseJx
xx3Xtm3bfv36/ec//9m27ko0h6TjwAMPLGzBs+HZTfGwdu3aFGuuOSQSF110
Uer7ueaQOGyLzSFB3759t8yleDSH5FqxYkWfPn2OP/74zO8S6ahTp87ll1/+
5ptvxrGCefbTHBKTba455LffH9DXr19/s0Q0h0RCc8imNIdkhuaQaGkOiUSh
jhfNIWzp4YcfLtSRW1ybQ8Lt8JFHHnnTTTe9/PLLeU6jBwAUe8WyOSQnJ+eA
Aw4In3/44YfH8fm/aQ6J05dffhmG63HP1rtVVapUufjiiwcPHpzfXI7J2laa
Q8JGLFWqVJkyZcqVK1e+fPmqVavusccehxxyyMknn9ykSZOrrrqqbdu2nTt3
Djvk8OHDv/vuu22rG2QzmkPSEfaHwhY8G57dFAO77LJL6jXXHBKJQg1+NIfE
YRttDgnCzrNZLsWpOWSjr776qmfPnmeffXY2TFy/pdKlSx9xxBFt2rR57bXX
El9nMHGaQ2KyLTaH/Pb7HP6bTQGkOSQSmkM2pTkkMzSHREtzSCQmTZqUes01
h7ClwYMHF+rI3VaaQzb76TXs/HXq1Amn8RNPPPHcc8+94oorbr311k6dOj32
2GNDhw4No3fdIAAAZK358+e/9NJLzZs3r1evXmaG02EIfdRRR910003Dhw/P
qnlCAADWr1/fqFGjTYcuxbI5ZKO1a9eOHTu2Q4cOhx9+eII9w+XKlTvssMOu
vfbaXr16TZgwYeXKlUkXBrJXuI3a9GgtTs0hAAAAAEBmLFu27MMPP+zZs+dV
V1118MEHlylTJpJf+3Nn0mvduvVLL700bdq0devWJZ0oAEC+Fi9evOeee24c
yRTv5pBNrVq1aurUqf3797/nnnuaNm26zz77lCpVKpLR4EYVKlSoW7fu8ccf
36JFi7Zt2z7yyCP9+vWbPn268SEUyqZzk2oOAQAAAADStG7durlz506ZMmXE
iBG9e/d+6KGH2rZte/HFFzdq1Ojkk08+/vjjjz766COOOCL8b/jn8G8aNmwY
/uttt932yCOPvPLKK6NGjZoxY8aiRYu26UVMAIA/oM8///zII4/86+9mzpyZ
dDiJWbt27axZs8aPHz906NCXXnqpe/fud91113XXXde0adNTTjnlhBNOOPbY
Y4866qiNA8LwL8NA8ayzzmrcuHHz5s1vueWWMIAMw8L333//iy++WLJkiWEh
RCIcSjfeeGPuOSoclUmHAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAsM1Ys2bN7NmzR44c+eyzz7Zv375ly5ZXXXXVpZde2rx58wsu
uODCCy8M/3zNNdd07Njx6aefHjp06OTJk3/++ecNGzZkLMLly5ef/39effXV
jH0vpCInJ2f48OHvvPNO0oEAmbNs2bLPPvvszTfffOyxx9q0aXPdddddccUV
F198cbNmzcKl86KLLrr88suvv/76+++//8UXXwxX2BkzZvz666/hdJGxCCdM
mLDx0jl16tSMfW/qwvAj1LBv37533313qFUYe1xyySWhgGH4Ef4h/N/w7//x
j3+E6s2aNWv16tVxxBC2Tm6JwgaK4/OLsSVLlkyaNGns2LFhAw0bNuztt98e
NWpUGCIuWrQok/t5dgrj5PHjx7/33ntvvfVWGCF88MEH//rXv0LFko4rGb/8
8ktIf8yYMbm7SihI2FU+/fTT8O+TDi1h4UgJu0o4V4c9ZMSIEaE4YTA5evTo
iRMnLl68OOnoAAAAAIDiYNWqVe+999699957ySWXHHPMMTVq1PhTkZQuXXrv
vfe++OKLH3vssY8++mjlypXxxTxx4sSN33vnnXfG90VQBGPHjs3dOSdNmpR0
LEAsFi5cOGjQoNtvv/38888/9NBDq1WrVrRLZ8WKFQ877LDrr7/+hRdemDZt
2vr16+OLuWvXrhu/d+TIkfF9UeqWL18+ZMiQzp07N2vWbN999y1VqlShqhdG
LE2bNu3Ro8fkyZOj6lA99thjcz981KhRkXxgcZWTkzNlypTevXuHo+CMM86o
WbNmwfv5fvvt17hx40cffTT8rUy2Eydl/vz5ffr0ue2220499dRddtklv8rU
rl37b3/721133TVgwIDi2isSNve//vWvcIpr27Ztw4YNC77RqFy58v7779+k
SZPHH388nBKLfVvR6tWrw9m4e/fuV1999dFHH121atUCilO9evVTTjnl5ptv
fvbZZ8NxVOyLAwAAAABEZf369Z988smDDz548sknlytXrsBnL0VUsmTJAw88
8KqrrnrllVcWLVoUbfxPP/30xi/SHEK2Oeecc3J3zksuuSTpWIDILF++fMSI
EbfffnuDBg3iuG4G5cuXP+aYY9q0aRO+KPKZMS644IKNX5Rsc0hOTs748eOv
vvrqSpUqRVW6nXfe+bLLLnvvvffSaTxYs2bNxkHR22+/HWHKxcmXX37ZsWPH
OnXqFHljVa1atWnTpkOGDFm3bl3S2UQsHLavvfba2WefXdhOp2C77bZr0aLF
8OHDi01Zpk+f3q5duyK3nf/p9+M61CScD4tZQ1E41QwdOjSMEitXrlzk4uyz
zz5du3b98ccfk84GAAAAyC4tW7askX1CVEkXJhrr1q1r0KBB0uXMQ56vqx98
8MFJx7WNOeWUUzK/U8Vq3rx5TzzxROPGjbfffvsi/xRZBCVLljzuuOMefvjh
L774IpJEjjzyyI0fnnpzyNVXX530PpWWxx57LL/UTj755KSjS8v48eMj2TGy
waxZszbunKVLl547d27SEUXgzTffTHofqdGpU6dki5Btid98881JhRSJBx54
IMNbsMimTp0atkK4ioUjOpOXzooVK5533nkvvvji/Pnz089i0aJFm/aCJtUc
MmfOnK5du+61117x1a1OnTr33Xff999/X4Twwrlu4+e88cYbkae/TVuwYEEY
Qx5++OERbqxwKrj33nuLx9PtsMvdeOONBc/8kKJdd9319ttvj+TAT8RPP/3U
vXv3gw46KP1SbBSO6y5duoRPTjq5dI0dO/byyy+vUqVKVJUpUaLEaaed1r9/
/2LWPwMAAAAU2fnnnx/VLw8RKl269Lx585KuTQQGDx6cdC3z9vHHH28Z7a67
7pp0XNuY/fffP/M7VRw2bNgwatSopk2bFuE1xsjVrVu3TZs2EyZMKPJkyJ9+
+ummH5h6c8i5556bVNaR6Ny5c36p7bvvvklHl5YPPvigaDtDFmrVqtWmqXXo
0CHpiCIwYMCApPaNTSX7rDaprMMJM894LrnkkqRCisQdd9yR4S1YWCtXruzd
u/emvYgJCmF06dLlm2++KXI6jz766KYfmPnmkBD8eeedV6JEiYwVrVGjRu+8
806hBhthpLTxrw8cODC+amxbVq9e3a1bt4oVK8a0pcLotGXLlttuL+Xy5cvv
ueee7bbbLtqyVKlSpXv37mvWrEk6v0IIp81777038lJsVKZMmVtvvXXBggVJ
J1oUkydPDielmCoTHH300dOmTUs6SwAAACB52dkcEiT+CnAkTjvttKQLmTfN
IZEoBs0hCxYsePjhh/fcc8+ka5mH+vXrd+vWbc6cOYVNqmXLlpt+juaQ3zSH
ZI2FCxdu9kxkxx13XLlyZdJxpStLmkMqVao0c+bMpIqQVNaaQzIv7Ga33HLL
DjvskHSR8nDSSSf16dNn+fLlhcpow4YN9erV2/RzMtkcsm7duu7du5cvXz6R
ijVo0KBfv36prNOxePHiMmXKbPyLL7/8cgaKk/2GDRuWmWFk2EO6dOkS+WpK
sQpHVjgeq1evHl9ZQvEHDx5c5IbqjAkRDho0qGbNmvGVYqPKlSv36NFjG1p8
Z/bs2c2bN89AZUqVKtWuXbsVK1YknTEAAACQpKlTp777f955550333yzf//+
HTt2PPXUU9NZ4jZ9f/7zn7etN6G2NHv27AQLWKJEiQMOOOC666577rnnXn/9
9bfffnvkyJEbt/Wvv/66ZcBjxozZ+AdGjBgxePDgV1999f777z/ttNMqVKiQ
YC5Za9ttDsnJyRk7duxFF1206WOO7BT25DPPPPO1115L8YQQzmMlS5bc9BNS
bw759NNPNz0fDh06dODAgQ8++ODZZ5+98847J1WBzey+++5hwz3xxBOhJsOG
Ddv0uP7666/zS238+PGbHt1Dhgzp27dv+/btTzrppPhe9S2s/fbb79prr/3H
P/4RTllvvfXWpqktXrw4xY2Y5cIZdcvEn3322aTjSte8efPCJaN3794PPfRQ
ixYtEuw323vvvZcsWZJIEcIeG84b4ah88skn27Zt27hx47BLx5RmjRo1wonx
lltuCd81ffr0POOZNm3aZie0QYMGdevW7dxzz82eXtBatWo1b978scce++c/
/7nZCW3WrFkZ3oJbFS5DYZB8wgknJF22ratUqdI111zz8ccfp/jI+O67797s
EzLWHDJlypRDDjkkkSptqk6dOj179iz4mWnnzp03/SvPP/98ZkqUtb744ovT
Tz89w1uqfv36n332WdKpp+Srr77K2MxCDRs2zOYVVcImy/yZs0GDBll4HdnM
0qVLb7jhhgzP3Fi7du33338/6dQBAACAbLRhw4Zp06bdeOONST0+7tevX9I1
SEvbtm0Tqdvpp58+YsSIaJ+OrV27dvz48RdeeGEmp/vOfttoc8i4ceOOOeaY
pItXaDvuuOPNN988evToAt4EHDly5JatDqk3hxQgJyfn66+/vvfee5Pqmttv
v/1effXVOH75X79+/aeffnrttdcmtajQ8ccf/9Zbb+XZsVbMrF69Os+H8vvs
s0/2v/NbWIsXLx4+fHgis/E0btw4DGCSLsD/mjNnzqOPPnrooYemn9duu+12
ySWXPP/881999VWaO0z46999992DDz6Y1NwXe+2110svvbQNLRIRzpMh4Fq1
aiVSrnTsvffeDzzwwIwZM/LbZ8K/z7NpLQPNIStWrLjjjjs26+dMRbgxOfzw
w8Ph0Llz5wEDBowdO/aTTz7597///dFHH7333nuDBg26++67TzvttKpVqxb2
k8MRcfXVV7/77rubjTRClfr3779ZqL169Yq7RNnsmWeeSeoOsVy5cs8991yW
XzfDfpj6iDGcW9q3bz9lypQwFgr3XKtWrZo1a9bgwYNbtmxZqVKlFD8kDDDC
/p903psLmylcBItwmEci3BSEIzfpGuRrwoQJe+yxRyKVCWP+cFFLugAAAABA
9vrqq68SWR7lqKOOSjr1olu5cmURfpRO0x577BH34guzZ88+9thjM5xX1trm
mkOmTp165plnxleQkiVL1q1b96yzzmrTps1TTz31yiuvDBo0aPDgwQMHDnz5
5Zefe+65Tp06nX/++fXr10/nV+Jq1apdeumlr7322sZp83Nycj788MPmzZvn
+bGRNIdstGDBggwv1rD99tuH0mXgYfeXX36Z4fc6d9ttt6FDh2b5850IvfDC
C/mV4p133kk6urhMmTLliCOOyOR+Fdx///1J5725UIeDDz64aOk0adIk/PU4
jpTFixdfc8010Ra/YJUqVXryySe3odn+Q9nfeOONffbZJ76abLfddgceeOAF
F1zQoUOHcLbv27fvP//5z3Dp7N+/f+/evZ9++uk77rjjjDPOSHM5hj333LNt
27Zjx45dv359bmpr164NX3H00Ufn+efjbg75+uuv99prr0KlULp06TCG6dOn
T4rNhLldnWEEcsUVV5QrV65Q37Xzzju3atXq2Wef7dev38MPPxw20JZ/5rHH
Hou1RFlr9erVGT5v5Oniiy/OzkXZwiF2++23p5hFhQoVwlC5gDHesmXLrr32
2hQ/rUSJEo8++mj2DKvCQL1FixZF3cKRadmyZbbNRxq2UdeuXZPqmdnowQcf
TLoSAAAAQPbKycm5/vrrM/+TxaRJk5JOvYh69+6d4VrttttumZlPeN26da1b
t85wdtlpG2oO+fnnn6+++uo4ilCqVKnTTjvtqaeemjlz5tq1a1OMZ/Xq1Z99
9lnfvn3btGlTo0aNon112bJl99prr0MPPbTgR2bRNofk6tKlS9FiLqzttttu
4sSJkcefnw0bNlx22WWZSW2XXXb57rvvMpZa4sJltIBFRk4//fSkA/z/2Lvv
8CautG3guOOGgwsl9F5NMyVUA4HQCTVACCUQCOUNNfCGlou+oYYaYAlsILAE
CIReAqEtIWBML6EZ2wQMbrjgbkt8Z9G++rSSLM/MOWfOSNy/v/bamNHzPDOS
RqNbZzgi7xoqR6qII0eOiO7bHHmFnDNnjqwlegICAo4ePcq7sNWrV/PbEaZc
XV3Pnj3Lux2Grl27xikQW6RIkQEDBuzateuvv/6Snv1LTk6+cOHC3//+90GD
Bim+Ixh56ODg4Hr16vn7+9v4M67hkKtXr5K3AOk1Ozk5jRo1Ki4uTvEjJiQk
LF68uFy5csqGZtWSJUsYzsRevHz5Ujsp8bZt29q+E5D6UlNTu3TpIrF+Pz+/
8PBwKZv99ttvpY9l6NChWshCkI+lWrhjlEH37t21MBMDcpD06tVL9Ej+g5yW
iJ4HAAAAAAAAAGiXTqdT/2diQ4YMEd23Qir/UNrLy+v69euqdUcOhtatW/Nr
Jygo6E8J7t69e+fOnZs3b167di08PDwsLOyPP/44derU7t27169fP3/+/AkT
JnzyySedOnUKCQmRviyzdHYRDsnJyVmxYkWRIkXY9u7h4dG7d+/t27cnJSVR
VkgOJ7LXhg4dymMfFeITDiFmz57No1oz5GDmUbwNeXl5H3/8Me++yPFz6dIl
lVsT6/jx47ZnQl7QRNfIEXmaS//tMxN+fn4PHz4U3bcVJ0+elHgvBhcXl3/9
61/qVLV06VLee4Swo0XsExISRo0axfxWeob1KH799Vf6rynT09PJW3CHDh04
3e+PXziEvOPLertv1aoVq1Nc8gZ34MCBtm3bMhmRBlco4u3Jkyc1a9ZkMj1W
yOcR4zpywpFnZdOmTaUXv3fvXolb1uv1ffr0kb5lcooudoEm8v5boUIF+fuT
o65du2ZlZQmcicGLFy9sRIWFWLRokeipAAAAAAAAAIB26XQ6la9muLu70/xO
UJSrV6+qOSVi+fLlKvcYGRnJ6at84t1332VesF6vf/LkydGjR+fOncsquqP9
cMjNmzeZP2c9PT0nTZr0/Plz5tWmp6fv2LGjXbt2bAvmFA4hRxTXiBQxePBg
HpUXKCcnh+3Pqy29hd+pFXh3tpEjR4qukS/ylBk/fjzX48oMefV79eqV6L6t
+PHHH6XUv3btWjWr6tq1K9fd0bNnTzXbobFr16533nmHbfulSpVas2ZNZmYm
82rJ2/G3335bvXp1tgVzCoecPn26cOHC0suYMWMG87uqkdeinTt3BgYGUo5o
1qxZbAvTuBcvXlDe24iTVq1aaeH+MuTcSdatG+W+JMbExLi6ukrf/tChQ1W4
I6FVUVFRQUFB8vckd2QHSV/kkIe4uDitxasKvVma6dy5cwLHAgAAAAAAAAAa
t2nTJpWvV9jjzXBVXmKlaNGiQhZV5rdyAo9wiJknT54sW7asYsWKNHVqORyi
1+s3btzo4eHBaqcUerNAzdSpU2NjY3kXf+LECYbXTjmFQ4j9+/ezKtKqP//8
k1PlBeK6jIC3t3dKSoqo1oS4efNmgWMpXLhwQkKC6Er5Iq9LY8aM4XdoWerb
ty95UNF9W9GzZ0/blX/44YcqV/7bb79x3ReXL19Wsx1lMjMzR40axbbxMmXK
rFu3jvcv1nNzc7/77jvbd4qRhUc45Ny5c+REQnoNZG7MazCKi4vr378/zYj4
nV1oEDmAZa2JobJhw4aJnY9Opxs0aJD0gp2cnKKiouQ+ysCBA2WNZdy4ceq/
A7569So4OFjmDlTPpEmTVB6IUWJiYp06dUQPwLpSpUo5/CkoAAAAAAAAACgW
Fxen8sWK0qVLi10XV67k5GRPT081R/Tpp58K6fTu3bucOlIhHGKQl5e3Z88e
xQuJaDYckpqaOmDAALY7ZfTo0fHx8aq1QJ71a9asYfLbbX5f32RkZLi7u9NX
aFX9+vU5lS3F/fv3OfVF9OvXT2BrQgwZMkTKZOwxDClXTk5OaGgov6PL0uLF
i0U3bcX58+dtlx0eHq5ySeRV19fXl9NeqFy5sjZTOqYePHhQt25dhl17e3uv
WrWK/g4y0iUmJn7xxRfOzs70xTMPh/z5559kINILIOcAbAuwat++fSVKlFA2
ookTJ6pQoRaQJy/5rKFsSqrZvHmzwBFNnjxZVrVdunRR8CiXL1+WOxaV17fR
6XS9evWSW6TKyEc/NWdikJSU1KBBA9Gt29KtWzftv00DAAAAAAAAgCj8vjvI
z88//yy6aRlWr15ttYsaNWpwmo86188t6XQ6Tt+MqxYOMTpz5oyCHaTNcMj1
69erVKnCcHdUqlTp7NmzQnpJSEgYO3Ys5fdcXH/bW758eUZjNjdixAh+ZRco
JyeHU1/E0qVLBbamPulLwZcsWVLsgufqiIuLK1u2LL8DzIyTkxOnG2TQ0Ov1
5B0kv5obNmwopCobJVHq37+/kI6k27Fjh6zoQoHat2+vYGUAJu7cuUN/gza2
z5rs7Oz69etLf/SBAweq9jXly5cvO3XqpGBE5PxEnQqFW7lypYL5qMzDw4Oc
AAuZz6pVq+RWe+jQIWWPpSDAtm3bNrb92jBnzhy55anP19f3wYMHqs2ESElJ
YXVLU65UvpkdAAAAAAAAANgRq3fiaNWqFb8rFWTjopuWSq/XW73te7Vq1caO
HctpPrt27RLVL9sQgpH64ZDXb765mDdvnpubm/Q6tRYOIYff+vXr2SZ2hg0b
lpaWJravsLAwmtvccw2HNG7cmOG0Tc2YMYNf2VIwWbbFqq1bt4ptTWXTp0+X
Ppzt27eLrlcN165dK1y4MKcDzFLRokUfP34sumlzS5Ysya9gUQGqtm3bctoF
48aNE9KRFBkZGSNGjGDYLHkXXr16tdifYJNH/8c//kFzazm24RDyRiz9oWvU
qKHyiUdubq6C2wl99tlnahYpCjkSnJyc5A5HCHLkqB+wvHfvntwTb29vb8V1
yl2ihChSpEh0dDTbrq3as2eP3NpEIWfvOp1OhZm8fvNq3LVrV9EdS1KsWLHM
zEx1xgIAAAAAAAAA9uW9996zvJiwcuXKkiVL8rtYcePGDdF9S3LmzBmr9a9Z
s+Z//ud/OA2HPKioful/mmqVkHCIwb1796zGe6zSVDgkOzub7a1kChcu/NNP
P4lu6z/i4+MVH2xcwyFdunRhOHNTq1at4le2FFWrVuXU2rFjx8S2pqa0tLSi
RYtKH05ISMhbsqw3eXnhdIBZVbdu3fT0dNFN/5d//etf+VWr/j1lDPr168dp
/gsWLBDSUYGePHkSHBzMsNOKFSuKWr7A0tWrV8uVK6esEYbhkPzOjfNz6tQp
Vg8tHXnhXbx4saw6Bw8erH6dKiNPEH5JUR6WLFmi5nzy8vKaNm0qt8iOHTsq
fsTDhw8rGEvr1q15ZyHIBygvLy8FtYmyceNGrgMxsouFd4xUGwsAAAAAAAAA
2Jfu3btbXkn47rvv5s+fz+9Khb38Ou+jjz6yLN7b2zslJYVfOOTu3bui+rV6
MNATGA55/WaBcYkr4WgnHJKVlcU2pfDOO+9cuHBBdFv/JS8vb+LEiQp64RoO
+fTTTxmO3ZTwZE7z5s05tXb16lWxralp7dq1cudz/vx50VWr5Msvv+RxgOXn
448/1lTwJi0tLb97ZsXHxwsp6YsvvuA0fG1+3xQVFcX21mB169Z98eKF6Lb+
S2JiorLF/ViFQ5KSkkqXLi39cZs0aSLweUo+zkgvVfs3S6LHLzDGiY+PT2xs
rGrz+fbbbxUUuXjxYsWPmJqaquxmi6RUho2bIc/ZDz74QEFVAgUGBpKP5/xm
YkDOeGUtSilctWrVVFtTBQAAAAAAAADsyPDhwy2vJHz33XdxcXFs72dhqnDh
womJiaJbL8Dz589dXV0tix8zZgz5r/zCIQkJCaJa7tmzJ4+OxIZDXr/JWki5
Hq6RcEhmZmbHjh0Zzr9EiRK3bt0S3ZZ1Cm7szjUcMnXqVIaTN3X69Gl+ZUvR
o0cPTq09ffpUbGuqycvLq1Spktz59OrVS3ThKrGxdAYnK1asEN30f6lTp45l
kZ6enqK+HJ83bx6nyR84cEBIRzZERkYqXlXDqpYtWyYnJ4tuywpyStO/f3+5
7bAKh8h96P379zN5XMX+8Y9/SCzV4V+r1X+JZmL06NHqzOfhw4fK7o9Gmb5u
2LChggclH9Jv377Nqnczhw4dUlCScNOmTeM0EIPU1NTKlSvLKikoKKhMmTKl
S5cODAwUdTsnDb5fAwAAAAAAAIBwVu8b/t1335H/NGTIEH5XKlReKFiB/NZO
MazswSkc4uTkJPAHPn369OHRlPBwyOs33+p269bNdp1aCIdkZGSw/bFepUqV
Hj9+LLotW/bu3SvrV5NcwyHkdYnh8E0Jz+d89tlnnFrLysoS25pqfvnlFwXz
Ia/qkZGRomtXg/rfPJKXDuGxK1NWVxurXr26qHrWrVvHafJaW4oqIiKiTJky
DBskJwzk7Vh0W/kiJ4oTJkyQ1RGTcMjFixdlPaiHh0d2djb941JasGCBlGq7
du0qulKOyDFTv359WbtPI9zc3J4/f857Pnq9vmXLlsoqpFywYvDgwcoet3Xr
1qzaN0Wes1WqVFFWklg+Pj5cE32DBg0qsAYyunHjxu3bt+/u3buZmZmm/5y8
p4SHh2/evPl//ud/SpQoocJADLp3785vJgAAAAAAAABgp2bNmmV5GcEQDrly
5Qq/KxXlypXLy8sT3X2+SG1Wv2ho06aN4Q84hUM8PDwEdm31iy16WgiHvH6z
5n/t2rVt1Ck8HJKent6uXTuGk69cubLWlsS3StatOriGQ/jdSfzhw4f8ypZi
zJgxnFoT25eaWrRooWxEEydOFF27GoT8LD0wMPDJkyeiW/8PqycGHTp0EFXP
pk2bOI1dUzeTIq+usm50UqDevXvn5uaKbqsAOp2O1Cm9KSbhkAEDBsiaZLNm
zegflB6ZlZRb9bVv3150pRzxezVQwcyZM3nPR/FaGcWLF6d8aInhJavOnDnD
pH1Ty5YtU1yPcKR45gMx2LZtm43H9fb2Hjdu3P379yVujbzF7Nu3r3PnzirM
pFixYpq6Bx8AAAAAAAAAaMGcOXMsLyMYwiFE8+bN+V2sEL7WtA0HDhywWvPe
vXsNf8ApHOLl5SWwa7mX/SXSSDiEuH//vre3d351ig2HpKWltWnThuHYfXx8
DKvc2IWxY8dK7ItrOGTNmjUMd4GpiIgIfmVL8cUXX/Doy9nZWWxfqgkLC1M8
JV9f39TUVNEdcCfqngUhISFmv88VxeptXEaOHCmqnh9++IHTzG/cuCGqKTMP
Hjwg5xgMW6tXr156errotiQhdTZo0EBiX/ThkGfPnrm4uMga5qRJk5h0Su/l
y5cF3nUoNDRUdJm8pKSkBAUFydp3muLv7891JR+9Xt+0aVNltTVu3Jjy0Xft
2qV4Mq1atWIyAaPY2FhyxqK4HuHKlCnDI9pHnkGBgYFWH9HDw2POnDlJSUnK
tnzx4sXq1avzHkt0dDTbgQAAAAAAAACAvbP6XYYxHEJzwapA77//vtjebejY
saNlwaVLlzZeceIUDvHx8RHY9SeffMKjKe2EQ4iFCxfmV6fAcEhmZmZoaCjb
sdvXPabJM6t9+/ZS+uIaDiEvfWz3glFUVBS/sqUYP348j75cXV3F9qUayoWV
Vq5cKboD7kSFQ4ihQ4dq4YexGzZssKxt1qxZourZunUrp4ELv0+WwaNHj9gu
zh8YGGhfX6I9ffq0ZMmSUlqjD4fMnDlT7jy//fZbJm0yER4e7ubmZqPapk2b
iq6RlylTpkjcZRUqVBg9ejR5KTtx4kRERMSrV6+ysrLS09MTEhLIANevX//Z
Z5/Vq1dP7pFAb9OmTfzmc/bsWcWF9e7dm/LRr1+/TjOZU6dOMRmCwYgRIyQ+
btWqVcln4Y0bN/7222+RkZGGQyUtLS0+Pv7ixYtr16799NNPbS/YyMmePXsY
DsTA6k14iQ8++IC8DVFunMxt+vTpsu6wKdfu3buZzAEAAAAAAAAAHIbVxWyN
4ZDc3NxSpUrxu1ihzZUNIiIirFZLZmX8G07hED8/P4GNDxkyhEdTmgqHZGRk
5HdICwyHjBw5ku3M582bJ6oXxZKSkqpVq1Zga1zDIevXr2e7I4yE3/li0qRJ
PPoSeycs1URFRVFet69QoYKW76TGhMBwSCGT8xaB9u7da1nY/PnzRdVjexl8
Glo4eUtPTw8ODmbYlIuLy9mzZ0W3JVt4eHjhwoUL7I4yHJKVlZXfD+dtWLt2
Las2mbAa3zIKCQkRXSAX5OSqwCOEnKj/7W9/k37/O/IK8Pnnn0s58Fjp1KkT
vxF16NBBcWEjRoygfPS0tDSaybRo0YJVNvLZs2cFnuqUK1du2bJljx8/lrjN
69evDx061HYui60BAwYwmYYROQN0d3c3exQyqNWrVzNMpR45coTfE2ry5Mms
6gQAAAAAAAAAx2B1IQXTL1n+9re/cbpSQYwZM0Zg7/mx+gs7Nze32NhY499w
Coe88847AhsfOnQoj6Y0FQ55nf9K+6LCIcx/3N2zZ08t/IhegUePHvn7+9vu
jms4xPY3RzT++usvfmVLMXnyZB59FS5cWGxf6pgwYQL9rPbt2ye6D77EhkNc
XV3Pnz8vdgJHjhyxLOybb74RVc/27ds5TfvPP/8U1ZQBeY9jHmdds2aN2KYU
2717d4HdUYZDtmzZomCky5cvZ9UjE+SwISdI+VUbHBwsukAuVq1aZWMfVa5c
mZyFZmdnK9hyYmLijBkzuK54YOTu7v7q1SvmwyGuXLlCUxiTeyf5+fnR1HD6
9Gn6Goi5c+faeJRatWrt3LlT2U1bXrx4MXHiRJoepSPDzMnJYTIQA8ubrpKP
KqxmburcuXOc8iHdu3dnXi0AAAAAAAAA2DWr2Q/TcEh8fLyHhwePKxWEt7d3
SkqKwPYtZWVlBQQEWJb6ySefmP6ZQ4ZDPv30Ux5NaS0ckpeXV6tWLcs6hYRD
bt68yfZKYJEiRUxTTHbnn//8p+0GuYZD/v73vzPcF6aEh0O+/PJLHn29DeGQ
5ORkHx8f+lm1atVKdCt8iQ2HEMWLF3/27JnACRw/ftyyqqVLl4qqp8CXU8WE
h0M2btzItiOGv74XYtiwYbYbpAyHtG3bVsFUZ8yYwapBVu7du+fk5GS12qpV
q4qujj1yVNeoUcNqvy4uLtOmTcvMzKR8iAsXLpQrV07B4SEXj9uFEH369KGp
avbs2fQ1VK5cmaaG/v3709dgY7FQNze3+fPn0ycuTp48yfZGYPn57bff6Adi
cOnSJbONkxakr7EjF3mhzu8FisYHH3zAqWAAAAAAAAAAsFMFhkNeS7jmTGPl
ypWiercqv2XYL168aPpnCIdIp7VwCLFu3TrLOtUPhyQnJ1NeELaktSeUXHq9
vmnTpjYaRDhEGYRDFFu6dCmrcV29elV0NxxZDYfUrFmT1fSkeO+995T9BJ6J
kydPWpYkcPEERw2HXLlyxXKRfxpOTk7Xr18X2BG9Fy9e2M6w0YRDyPtykSJF
FAw2NDSUXYvM5LdKXvny5UWXxt7Zs2etNluhQoVr166xehRyNtu3b18FR4gs
48ePZ1WwEXniUH4XzyT+Z/u8t0AeHh5JSUmUNRw4cMDqxmvUqMHwBT8+Pr5L
ly40zUrBJLHz+s1LX7NmzUy3XLRo0du3bzPZeH5mzpzJfCAtW7bkWjMAAAAA
AAAA2B0p4ZDr168zv0xhVLlyZZ1OJ6p9S1Yv0IWEhJj9pBThEOk0GA5JSkqy
XA9H5XCI7eXNlalVq5ayBZ815fLlyzZ6RDhEGYRDlMnJySldujSrcQ0aNEh0
QxxZDYds2rTpww8/ZDVAKT7//HNRE/jtt98s6/n2229F1eOQ4ZDExETmyxRo
8xaHci1evNhGjzThkEePHikbrJubW3p6OsMemYiKinJ1dbWsVoMnq/T69+9v
2Wnjxo2ZLzFHPsqR115lx4lEHTp0YFszsXLlSsqqNmzYQF8GaU14GZ06dbLc
bJs2behjJ2by8vIsb9TCVr9+/ZiUun//ftPN+vj4hIWFMdmyDeS0s0GDBmwH
0rp1a95lAwAAAAAAAIB9kRIOIVq1asX2MoWpo0ePCund0o0bN6xW+MMPP5j9
JcIh0mnzevvAgQPN6lQ5HMJwOQIjHrfAFmLIkCH59YhwiDIIhyjD9ut1V1fX
mJgY0T3xYjUc8o9//CM1NTW/+xpw8v333wuZAMIhvOl0us6dO7Ptxd/fPzEx
UUg7bGVlZVWqVCm/NmnCITt37lQ83uPHjzPskZWxY8dalhoYGCi6LsZiY2Mt
YzBdunTJyMjg8XDk6Wnj5I1e2bJlmdfcqFEjyqq2b99OXwZ9hJJylZ7IyEjL
bfbr14/TSly5ubnM4/Gm6tSpw6RO02VDPDw8zpw5w2SzBbp7966zszPDgZBn
vTqVAwAAAAAAAIC9kBgO2bNnD8NrFGY6deokpHdLVn/15u/vb3lLboRDpNNm
OOT06dNmdaoZDvn999/ZXvcjevfurVr9vMXExHh7e1ttE+EQZRAOUUCv14eE
hLCd2MyZM0W3xUt+4RDynx4+fOjn58d2kja4ubldunRJ/QkgHMLbN998w7wX
yzNe+5XfjSEK0YVDpkyZoni8/fv3Z9ggK8+fPydvXmalFilSRHRdjC1atMis
x6ZNm3JKhhjk5OS0b99e8dFSILZZhYiICPqSyJOOvpJ+/frRV0ITPZ02bZrZ
1sh+JHuTvrX8kOOQ8mY6Nnh5edFXePHiRdNtWv5OhKtevXoxHMi4cePULB4A
AAAAAAAAtE9iOCQ3N7dMmTIML1OYefjwoZD2TaWkpFj9Pnrq1KmWf4xwiHTa
DIfo9fqyZcua1qlaOCQnJ4fH7+jDw8PVqV8dVl+aCiEcohTCIQqcPXuW+cQC
AgK4fjcnkI1wCHH8+HEnJyfm88wPed958eKFyhNAOIQrcqLo7u7OtpGgoCDL
9K/9Iic27dq1s9opTTikbdu2NEPW5snJxIkTzer08PAQXRRL5GAwW0mmSpUq
CQkJvB83NjaWfJahOWBsIJ/UGJbKZAW/U6dO0VfCZMWVVatWKXv0vLy8YsWK
mW6qbt26qamp9H3ZFhUV5enpSd+4VWZ3g1WgT58+xq2R/02/QVnOnDnDcBpr
1qxRs3gAAAAAAAAA0D6J4ZDXBd3NnNL48ePV793M2rVrLQtzcnKKjIy0/GOE
Q6RjGw5JSkrq+H8ob0g0cuRI0zpVC4dY/paTXosWLdQpXjWZmZklS5a07BTh
EGUQDlGgW7duPIa2ceNG0Z1xYTsc8prPvbRsaNmyJdcfPltCOIQfvV7/wQcf
MG9k9uzZKjfCW363R1QcDiGTp/yuv06dOpxuTkHj2rVrZnWSE37RRbF069Yt
0+68vLwePHigzkOT9ziaA8YG8hGAYZ1MVq4ICwujr8Ts84gyzZo1U/bo58+f
N90Oeb6rdsq6ZMkS+satos9ynDlz5rPPPvPz8yMfRtS/9Ripv1atWqymoc3b
ewEAAAAAAACAQNLDIYmJiZaLMLPi6+v76tUr9ds3yu8iTLdu3az+PcIh0rEN
h5hez//73/9Os6m9e/ea1qlOOCQ6OprHD+V27dqlQvEqmz59umWnCIcog3CI
XPfv3+cxMaJmzZoq/wRVHQWGQ0jXAwcO5DRVq7744gs1J4BwCD+7d+9m3oWL
i4v6y8uo4L333rNsVnE4JDU1lX7U06ZNY9sjPfJyVKFCBbM68/LyRNfFjNnn
uw0bNqj20DqdrlmzZvSHjSWG627FxMQwKenmzZv0xYwbN45JMS9fvlTw6FOn
TjXdyM6dO+k7kignJyc4OJhJ76ZcXV1ZVZiVlfXkyRNWW5NlwoQJTKbh5uYm
9hoLAAAAAAAAAGiQ9HAIMWLECCaXKawSe9t3q99qFcr/cjrCIdKxDYccOHDA
uGXKcEhycrKzs7Nxa+qEQ3r27Ml8woGBgRr8WS69R48eWTaLcIgyCIfI9fnn
n/OYmAHNLR40q8BwCJGRkdGgQQN+g7W0detW1SaAcAgnaWlp5ESCeRe9evVS
swvVWF23QfFrTlxcHJNpiz3Jt2rKlClmRTrSPb9Ml8Xo3LmzyonE69evMzls
zDBM72zYsIFJSXfv3qUvxiyeodi+ffsUPLrpnS4//vhj+nZkYXv/FAMvLy+V
u+Dhxx9/ZDKN9u3bi24FAAAAAAAAADRHVjjEbI1itmrUqCHwx9QDBgywLKlq
1ao6nc7q3yMcIh3bcMiaNWuMW6YMhxCmv21UIRxy9uxZHhOeMmUK78pFCQ0N
NWsW4RBlEA6RJT4+nt9KWUSnTp1Et8ielHAI8eTJk6CgIH6zNePh4XHlyhV1
JoBwCCezZ8/m0cWxY8fU7EI1qamplguUKQ6HkCcsq4FrLR8SFhZmVmFycrLo
oth49eqV8Rjw9vaOiYlRv4ZGjRqxOnKMjTAsr3///kyqevjwIX0xX3/9NZNi
FCyW9eLFC1dXV8M/DwgIULb2CA3y2b9KlSpM2jdi+8FTlLt37zKZxqpVq0S3
AgAAAAAAAACaIyscQrRp04bJlQqrTp48qWbvRrGxscYrY6ZWrlyZ3z9BOEQ6
ttfoRo0aZdwyfThk7ty5xq3xDofodLqGDRvymPD9+/e5Vi7Q1q1bzZpFOEQZ
hENkmTdvHo9xmVL/xhy8SQyHGP7S6nsuJ2XKlImPj1dhAgiH8BATE8PjXmyl
S5fOL/3rAIYMGWLWr+JwyIMHDxiOXVP5EL1eT14cTMsjHwdEF8VMcnLyDz/8
0L59+yVLlggpYO3atQyPHKJOnTqsaiO7vlSpUkyqioqKoq/H6odxBWrVqqXg
0RMTE8nZb2hoKP2nKmUWLlzIpH2jVq1aCWmErby8PPpRuLu7O+Td0wAAAAAA
AACAktxwyL59++ivVOSne/fuavZuZHUIXl5eNn5CiHCIdGzDIU2aNDFumf4y
pum3mbzDIdu3b+cxXmWXgu1Fenq6r6+vab8IhyiDcIh0mZmZxYoV4zEuU59/
/rnoRhmTHg55zW5Jf4natm2bm5vLewIIh/AwbNgwHi0o+Im9HbF8MioOh1i9
vxsNTeVDJkyYYFqb8HdqR5KYmOjm5sbwyGF4H6jIyEhWVT19+pS+nuXLl7Oq
xx4DTuR5x6p9A/J5VnRPbNA/g4YPHy66CQAAAAAAAADQIrnhkLy8vPLly1Ne
qciPk5NTZGSkit3/p6Ny5cpZFjNq1Cgb/wrhEOkYhkPIzjL9BTF9OCQtLY0c
dYatcQ2H5Obmli1blsd4uYYltGDkyJGq9YtwiFwOGQ7ZtGkTj1lZji4xMVF0
ryzJCocQn3/+uQpzNpo8eTLvCSAcwhx5IE4tKA5L2AXLOzVo4bYyRuT9KCcn
h23Lypjd7C8iIkJ0RQ6lc+fODA8bhrdQ3LJlC6uqmIQxVq5cyaqenTt30tej
vubNm7OaALFw4ULRDbHh7u5OOYq7d++KbgIAAAAAAAAAtEhuOIRYtmwZ5ZUK
G7788kvVejc4fPiw1Upu375t418hHCIdw3CI2f2XmSyAHBwcbNga13DIzz//
zGO2xPnz5/mVrQWXLl0y7RfhEGUQDpFIr9fXrFmTx6wskfdf0e2yJDcckp2d
3aJFC3VGbbBjxw6uE0A4hDnTG8kx5O3tnZWVpU4Lopid3isOh2RmZvLYBU2b
NhX+tvj6TULYtCrHu9uXWNOnT2d4zGzYsIFVYcOHD2dV1cuXL+nrYRgOGTly
JH096hszZgyrCRSy24SMmdzcXMo59O7dW3QTAAAAAAAAAKBRCsIhSUlJPO7/
bvDOO++kp6er1v7rfH7XFhoaavtfIRwiHcNwiNmdWZiEQw4ePLj8ja1bt9Jv
LT+tWrXiMduiRYvm5eXxK1sL9Hp98eLFjS0jHKIMwiESHTt2jMegrCKvjRr5
+TwTcsMhRGxsbOnSpVUbODl1uXHjBr8JIBzCVnJyspeXF4/6e/TooUL9Yt25
c8e0ZZqVUjjdZoucwPz444/kLZ5h1wpUr17dWBLX14e3ENuXoJMnT7IqrGrV
qqyqSk1Npa9n1apVrOqpUqUKfT3q++6771hNgAgPDxfdEAPkHZBmCB4eHlFR
UaKbAAAAAAAAAACNUhAOec3tt5wGGzduVKf31/nfdfrnn3+2/Q8RDpGOYThk
8uTJpltmEg5RwY0bN3gMlvj4449FN6eGAQMGGFtGOEQZhEMkateuHY9B5eef
//yn6I6ZURAOIcLDwz08PFQbeIUKFfjdzQfhELZWrFjBqf5NmzapUL9YZrlK
mnBIo0aNOO0IolOnTtHR0Qwbl4ucRxmLCQsLE1iJ47l58ybDQ4XJDVxevwkl
MqwqMzOTviSG4RDi6dOn9CWp7Ny5c6zad3V1TUtLE90QA2fOnKGZw6JFi0R3
AAAAAAAAAADapSwcYvaDRLaCg4NV+yHhV199ZVnAu+++m5uba/sfIhwiHcNw
iNk3FPYSDhkxYgSPwRbif5cEjfj++++NLSMcogzCIVLwy3Hlp2HDhsJ/OM+K
snDIa4sloXjr0KEDpwWXEA5hSKfTVapUiVP9z58/512/FpjmKmnCIb179+a0
Iwzc3d3JOxS/1JZt5GA++H+Y3CIEjLKyspycnJgcJPXq1WNVFdv7PDJ5N1m9
ejXDkg4fPkxfksoSEhJYtd+6dWvR3bBBc1emZs2aFXgpAwAAAAAAAADeZsrC
Ia85/7z67NmzKvSelZUVFBRk+ejz5s0r8N8iHCIdq3DIs2fPzLZsF+GQly9f
croNk7Oz81vyRcbjx489/s+MGTP4PRDCIXI5WDhk8ODBlj2SJ1rNmjV5TM/g
999/F903G4rDIa+5HZ/5mTZtGo8JIBzC0JEjRzgVHxISwrt4jdi8ebPxrZPm
lhxWPykw5+fnt2jRooyMDIYTAOF8fHyYHB5Tp05lVZLZIoSUmMQ72YZDlixZ
Ql+SynQ6Hav2yeuV6G7YULxkU7ly5eLi4kSXDwAAAAAAAACapjgccvDgQbqL
N7b07t1bhd6tfm/i6ur64sWLAv8twiHSsQqHrFu3zmzLdhEOWbp0KY+pEnXq
1BHdnKNBOEQuRwqHPHv2jLz+W/bYr1+/3bt385iegTrvdyqgCYfk5eV16NCB
35At7dmzh/kEEA5hqFOnTpyKnzBhAu/iHcwff/zBaV9YImeMmzZtwm/eHYa/
vz+TA4O8urIqqUuXLkxKKvTmMyOTktasWcOqJGLo0KFMqlKZi4sLk/avXLki
uhUGXr58qWzVHW9v71u3bokuHwAAAAAAAAC0TnE4RKfTVaxYkfoSjnXOzs5P
njzh3XuLFi0sH3rAgAFS/i3CIdKxCod88MEHZlvWfjgkLy+vQoUKPKZKDB48
WHR/jgbhELkcKRwybdo0qz1evnw5Nze3TJkyPAZIODk5RUVFie6eAZpwyOs3
X4Xwu42IJW9v7zt37rCdAMIhrDx8+JBT5cSWLVu4Fu94cnJyvLy8+O0RSzVq
1Ni/f7/D3HLrbRYYGEh/PJAzjaysLFYlVa5cmb4kA09PTyYlsQ2HNG7cmElV
KnNzc6PvPSAgQKfTiW6FAWU3PyIHJM0dxAAAAAAAAADg7aE4HEJ8++231Fdx
8sVp1XejW7duWX3cCxcuSPnnCIdIxyQckpKSYvmjfu2HQ44ePcpjpAbLly8X
3Z+jQThELocJh6SlpZGXX8sGW7ZsafiDxYsX8xigwaRJk8S2zwRlOIS4c+eO
t7c3vzmbqVy5cnJyMsMJIBzCCtv7Ppi5ceMG1+IdkmU6VwXNmjU7f/686NaB
SpEiReiPhI4dO7KqJzs729nZmb4kA9Idk6rWrl3LqiTCx8fH7oJVpGAmvffv
3190K2z06dNHbu/kJFbiRQwAAAAAAAAAAJpwSHJyMr/vcQICAjIzM/k1Pnr0
aMsHrV+/vsTraQiHSMckHLJ161bLLWs/HDJmzBgeIzU4deqU6P4cDcIhcjlM
OCS/3+3u27fP8AcvX7709PTkMUPC19c3NTVV7ATo0YdDiP3793MaslVdu3Zl
+CtjhENYqVatGqfK3dzcsrOzuRbvkDZv3sxpjxSoc+fOYWFhogcACpGTBPpj
QOLHUinu3r1LX4+Rv78/k6pIgwyrKqSBc065cnJymDRO3vVEt8LA7du35TZO
PmuTfyW6cAAAAAAAAACwGzThEGLs2LEsruVY98MPP3Dq+tWrVz4+PpaPuGnT
JolbQDhEOvpwiF6vDw4Ottyy9sMhXO+SkJiYKLo/R4NwiFyOEQ7Jy8uzepe0
ypUrmyYHrEYKWVm1apXACTDBJBxCzJ07l9+cLc2ePZvVBBAOYSI6OppT2US9
evX4Ve7A0tLSrJ42qwYREXuUm5vr5OREueu9vLxSUlJYlfTLL78wOSANihcv
zqQq5uGQ48ePMylMNUlJSfRdBwQEMLz9kEB9+/aV1Xjr1q2fPn0qumoAAAAA
AAAAsCeU4ZB79+7RX8zJT4MGDTiti7t+/XrLhytatGhGRobELSAcIh19OOTQ
oUNWt6zxcEhERASPeRqUKVNGdH8OCOEQuRwjHLJ3716r3Zm9FXJ9v6tYsWJe
Xp6oCTDBKhyi0+l69erFb9SWDh48yGQCCIcwwe91mBgyZAi/yh3byJEj+e0X
iTp16nTp0iXRkwCpmJwGjxgxgmFJ33zzDX1JRqVLl2ZS1bp16xhWVUjo+44y
V69epe96ypQpovtg4MKFC9JbdnZ2XrBggb2fPQIAAAAAAACA+ijDIUSHDh3o
r+fkh8fNc/NbhuLLL7+UvhGEQ6SjDIeQ/dW0aVOrW9Z4OIT5xV5TXbt2Fd2f
A0I4RC7HCIc0b97csjV/f//09HSzv+zYsSOPMRrs379fSPussAqHvH6zulft
2rX5jdqMr6/v/fv36SeAcAgTvXv35lQ2sWLFCn6VO7YrV67w2y+yICJiL06c
OEG/u69evcqwpKFDh9KXZFS+fHkmVTH/vPDZZ58xKUw1u3fvpu/60aNHovug
lZeX16BBA4n9VqpU6Y8//hBdMgAAAAAAAADYJfpwyJEjR+iv5+Snf//+zFv+
/fffrT7W48ePpW8E4RDpKMMhZ8+ezW/LGg+HfPjhhzzmaTBt2jTR/TkghEPk
coBwyKVLl6y2NmPGDMs/PnbsGI8xGoSGhqrePUsMwyGv3/zkvGjRovymbaZ6
9eqpqamUE0A4hF5ubq6fnx+nsgmyjzhV/jbo2rUrv10jV6dOnS5fvix6JGCL
1XUaZWncuDHbkvJLmytTpUoVJlXRD8pM+/btmRSmmkWLFlG2/MEHH4hugoHl
y5dLadbZ2Xnu3LmZmZmi6wUAAAAAAAAAe0UfDtHpdJUrV6a8pJMfFxeXmJgY
ti0PHDjQ8oG6dOkiayMIh0hHEw7JycmpV69eflvWcjiEVO7r68tjngZr164V
3aIDQjhELgcIh1i9t7ubm9vz588t/1iv11evXp3HJA2uXbum/gRYYRsOIU6e
POns7Mxv2mZ69uxJeSc7hEPo/fHHH5xqNrh37x6nyt8GN2/edHJy4rqD5CJn
7+Hh4aIHA9ZNmTKFcv/SvINYFRQUxOTAM6hZsyaTqpiHQ+rXr8+kMNWMGDGC
suVffvlFdBO09u/fL/0FtmnTpidOnOB0+10AAAAAAAAAcHj04RBi1apVlJd0
bPj6668Z9hsfH+/m5mb5KMeOHZO1HYRDpKMJh8ydO9fGlrUcDrH6PSlDP//8
s+gWHRDCIXLZezgkMjLS6qV48mKY3z/heruowYMHq9k+W8zDIcS3337Lb9qW
Fi5cSFMtwiH0Zs+ezalmg6SkJE6VvyXov8PloXv37oj9aBDlLaICAgIyMjIY
1qPT6dimm+rUqcOksA0bNjCsiihTpgyTwlTz/vvv0/RbtmzZ3Nxc0U1QCQsL
I2fUchtv3br13bt3RdcOAAAAAAAAAPaHSTgkJSXFx8eH5qqODcWLF8/OzmbV
7+LFiy0folKlSjqdTtZ2EA6RTnE45PTp07Z/Nq7lcMjMmTN5DNPoX//6l+gW
HRDCIXLZezhkwoQJVvu6fft2fv8kLS2NvFDzGGah/FcssQs8wiF6vX7w4MGc
pm3V0aNHFVeLcAg9tjd9MEOeX/idNaX4+HhyWs5vHynm4uJCXs9fvnwpekLw
/9lY+k+KZcuWsa0nMTGR1fFmEBISwqQw5uEQT09PJoWppnz58jT9btq0SXQH
VCIiIhSvaePq6jp9+nS2MSoAAAAAAAAAcHhMwiHEuHHjaK7q2LZ9+3Ymzep0
ugoVKlhuX8F3NwiHSKcsHPLo0aMCL5RpORzSpUsXHsM0evDggegWHRDCIXLZ
dTgkOTnZaqyxwDvXT506lccwDWbNmqVO+8zxCIcQmZmZjRo14jdwM+RdOCIi
QlmpCIdQ0uv1np6enGomSpcuzaPst83Ro0f57SNK/v7+a9eutfc1BBxDenq6
1aUaJSpZsiTz77vJmTPDg41o3Lgxk8J4nHyS+TOpTQXx8fE0nVauXNmun/K3
bt2qVKkS5e6uUKECTbQVAAAAAAAAAN42rMIhDx8+pLysYUOTJk2YNGv1gran
p6eCZcYRDpFOQTjk2LFjUn6br+VwSI0aNXgM0yglJUV0iw4I4RC57DocsmTJ
EqtN/frrr7b/4ZMnT2wvakQjMDAwMzNTnQmwxSkcQjx9+lTNxQqCg4PT0tIU
1IlwCKXnz59zKtigQYMGPMp+C40dO5brnqJETsCOHz8uekhvO3ImT7MT161b
x7ykixcvsjrGDLQcDiEnKkxqU8FPP/1E0+mOHTtEd6CQTqdbs2aNh4cHq50+
YsSIrKws0W0BAAAAAAAAgB1gFQ4hOnfuzOrihqXLly/TN9utWzerF1IUbArh
EOlkhUP0ev2iRYsk3hNcs+EQ0gXDa32WyMaxNj4PCIfIZb/hkJycnFKlSll2
FBwcLOXJ1bdvXx7zNPj+++9VmABz/MIhxIULF2h+hC5Xv379FLzGIhxC6fff
f+dUsEGnTp14lP0WSk9Pr1WrFtedRY98Krl3757oUb29Jk+erHjf1a5dm8da
EIcPH2Z4gBVi9+OFjRs3si2MuHr1KpPaVDB8+HDFbTZr1sxOPxCR97sGDRow
3OMGjRo1sqNcEAAAAAAAAACIwjAccvz4ceaXOIwGDRpE2Wl0dLTVyMGNGzcU
bA3hEOmkh0MuXbrUtWtX6VvWbDjk2bNnPCZpVLZsWdEtOiaEQ+Sy33DI9u3b
rXb0ww8/SPnnXL/FrlWrlj1+2cE1HEJ8//33/GZuaenSpXIrRDiE0tatWzkV
bDB06FAeZb+doqKi1FzPRxkXF5cJEybY0f01HEndunUV77hTp07xKIn5K4yW
wyEFroGmEeRsh3yoUdxmeHi46A7kycjI2LZtW2hoKMN9bSYwMJDTMwgAAAAA
AAAAHAbDcIher69WrRqnCx1ubm5xcXE0nU6fPt1ysy1btlS2NYRDpCswHJKT
k/PPf/6zSZMmcres2XCI1S9JGcLa+JzwC4eEh4fHCDVq1CgefdlpOIS8W9Wv
X9+ynRIlSmRnZ0vcQsOGDXmM1ODEiRO8h8Ac73DIa3VvZuHk5PTbb7/JKg/h
EEqzZ8/mVLDBlClTeJT91iLva56enlx3GRNVqlS5ePGi6Gm9XchHNsX7q1ev
XpyqIq/GDI8r4r333mNSGI/oI3n9Z1Ibb48ePVLc47Bhw0SXL8O1a9fGjBnj
5+fHcC/nx9nZme3ZFwAAAAAAAAA4GIbhEGLt2rX8LnQsWLBAcZvZ2dnFihWz
3ObOnTuVbRDhEOkswyF6vT46OvrgwYPz58/v27ev4h+fajYcsmXLFrYzNNOs
WTPRLTomfuEQR2Wn4ZAzZ85YbWfhwoXSN5Lf2iNMdO7cmV/7nKgQDsnJyeH6
e1sz/v7+UVFR0stDOITSoEGDOBVsMHPmTB5lv83IiZyzszPXvcaEk5PTjBkz
JGb/gN5PP/2kbE95eHhERkZyqoq8ArA9rliFQzZt2sS2MGLVqlVMauNt/fr1
yhr09fV98eKF6PILlpiY+N1331kNJPP2448/iu4eAAAAAAAAADSKbTjk1atX
vr6+nC5xlCpVSvEdqHfu3Gm5wRIlSuTk5CjbIMIh0rm4uDR4o169ejVq1KhY
sSKrn01pNhwya9YsJg3mR/GKN2AbwiFy2Wk4xOrtqzw9PRMTE6VvJDs7m7yJ
8JvtvXv3+E2ABxXCIa/f/CCdZgl6uerXr5+RkSGxNoRDKDVr1oxTwQZz5szh
UfZbbu/eva6urlx3HCvk6Xznzh3RA3srDB06VNk+WrNmDb+qRo8ezfSAKtS0
aVMmhfEIhyxZsoRJbbz16NFDWYMaTz7cv3+f7ALyeU1gfM7JyWnHjh2iJwEA
AAAAAAAAWsQ2HEJMmDCB31WO3bt3K6vK6m+Nab4mQDhECzQbDhk4cCDXxtu0
aSO6RceEcIhc9hgOuXfvntVexowZI3dT8+fP5zfbUaNG8WifH3XCIa/frM1O
Djx+kzczaNAgvV4vpTCEQyhxTVsVoluADmw4duyYmk9JGu7u7suXL9fpdKJn
5shevXrl4+OjYO9069ZN4outMp988gnbw4lVOGTz5s1sCyO++eYbJrVxFR8f
7+bmpqA78jlLdO35ys3NrVKlCvMdqoyzs/OePXtEjwQAAAAAAAAANId5OCQi
IoLfJQ5lCybcuXPHclMuLi4xMTGK20Q4RAs0Gw4hByrXxtu1aye6RceEcIhc
9hgOGTlypNVeHj58KHdTcXFx7u7unGYrdyUT4VQLh7ymuGeBMhLX50c4hEZO
Tg6nao3s4ttSO3Xu3Dl+KwcyFxoaGhsbK3pmDkvZOhglS5aMj4/nWtiAAQPY
HkisbvLIIxxiF1m4ZcuWKWitYsWKKSkpomvPlwrvZbKQE/WbN2+KngoAAAAA
AAAAaAvzcAjRrVs3fpc4bty4Ibceq0GOfv360fSIcIgWaDYc0rBhQ66Nv//+
+6JbdEwIh8hld+GQ+Ph4Dw8Py0Z69OihbIPDhg3jN177+i5bzXAI8dVXX/Gb
vBkXF5ezZ88WWBLCITRSU1M5VWtEzniZlw1Gt2/frlixIu+dyEqFChUePHgg
emaOqUmTJgr2yKlTp3gX9tFHH7E9iliFQ8gbJdvCiLlz5zKpjR+9Xl+tWjW5
fZG347CwMNG126K1cAhRqVIl8g4rejAAAAAAAAAAoCE8wiEnT57kd31j+PDh
sopJS0uz+mPG8+fP0/SIcIgWaDYcUrduXa6Nt27dWnSLjgnhELnsLhwyd+5c
q40ofke4efMmv/GWKlUqJyeH7QT4UTkckpeX16lTJ37DNxMUFPTXX3/ZLgnh
EBqJiYmcqjWaP38+87LBFNmJHTt25L0fWfH3979w4YLomTmaW7duKdgX06dP
V6G23r17sz2EmjdvzqQwHuGQr7/+mklt/JDzLgV9LV68WHThBSAnJyNGjNBa
Um7YsGGiBwMAAAAAAAAAGsIjHKLX62vUqMHp4kbhwoVlrbS/ceNGy43UqVOH
8q7WCIdogWbDIfyOf4NWrVqJbtExIRwil32FQzIzM4OCgiy7aNy4Mc07Qps2
bfhNeMeOHQwnwJXK4RAiOTm5SpUq/IZvplGjRllZWTbqQTiExvPnzzlVazRn
zhzmZYMZnU43f/58Jycn3nuTCQ8Pj71794qemUMZN26c3L3QpEkTdWKQPXr0
YHv8sAqHKLsRj23af7kbPHiw3KbatWtHXmFEFy5VVFQUOQXq3r27i4sL8/2r
wNGjR0WPBAAAAAAAAAC0gkc4hFi/fj2/ixvSfzSk1+vr1atnuYWNGzdSNohw
iBZoNhxSqVIlro2zuhwNZviFQ959992yQvn4+PDoy77CId9//73VLnbt2kWz
2QMHDvCYrUGjRo0oo4yqUT8cQvz5559WFwfjxPbaZQiH0Hjy5Amnao1mzZrF
vGywKiwsrGbNmrx3KCurV68WPTAHkZmZWbRoUVnDJy/gjx8/Vqe8Dz/8kO2R
06JFCyaFWf0hAyWNL5SUlJRETiBldRQYGBgTEyO6cCViY2OXLVsm/CUxJCTE
Xs4nAQAAAAAAAIA3TuGQtLQ0Pz8/Thc3ypUrl5eXJ6WMixcvWv5zUlh6ejpl
gwiHSFeiRInExMTnz59HR0c/fPjwjz/++OGHH7766qsePXrUqFGD5udUmg2H
8P4xe926dUW36Jj4hUMKvCEFb19++SWPvuwoHJLfklbkDSU3N5dmyzqdjuv6
4fZy4wMh4RDi0KFD/IZvacOGDflVgnAIjadPn3Kq1mjixInMy4b8ZGVlzZgx
w9nZmfduZUL7yyzYBXJ6L3fyP/30k2rl9erVi+1h07JlSyaF8fhJBfmAz6Q2
TlasWCG3o8OHD4uumgo5Cw0LCxs1ahS/KyQFOnLkiOgxAAAAAAAAAIAmcAqH
EJMnT+Z3cWPfvn1SarC6Yi2TbwcQDpHu3XfftfGgKSkpu3fvHjhwoLe3t9wt
azYcwvvXYWXLlhXdomNCOEQuOwqHHD161GoLK1asoN/4ypUreYzXoE+fPvQV
qkBUOIRYsGABv/mbcXV1zS+ug3AIjdjYWE7VGg0dOpR52WDblStXgoODee9Z
JrZs2SJ6WvYtNze3cuXKsmZOPneoWWHfvn3ZHjOswiHkczfbwgrJWWZTfZmZ
mSVKlJDVzoQJE0RXzQxpn5walSpVivlOL1CTJk2weAgAAAAAAAAAvOYZDomM
jOR3z/G2bdsWWEBCQoKHh4flv3348CF9dwiHSGc7HGKUlJQ0Z84cWRERzYZD
6taty2OSRr6+vqJbdEwIh8hlR+GQ999/37L+IkWKpKam0m88JSWF0417CPJO
GhUVRV8kbwLDIXq9vk+fPpzmb6lEiRJWF7dHOITGy5cvOVVr9OGHHzIvGwqU
nZ29fPly8mLLe/9ScnV1PXPmjOhp2bGtW7fKGniVKlXS0tLUrHDAgAFsj5lW
rVoxKWz16tVsCyNWrlzJpDYeVq1aJauXevXqZWVlia6asfT09Llz53p6ejLf
9badPHlSdOsAAAAAAAAAIB6/cAjRo0cPfhc37ty5Y/vRly5davmvOnXqxKQ1
hEOkkxgOMXj8+LH0ZIVmwyGNGjXiMUlTEu+sBLIgHCKXvYRDrl+/brV+MhZW
DzF+/HgeEzaYPHkyqzr5ERgOef3mZnZ16tThtwvMNGvWLDs726wGhENokD3I
qVojVt/kggLx8fGjRo3iFxpnolixYs+fPxc9Krskd9kQPz8/Hi8jto0YMYLt
AcPqJYXH4mPbtm1jUhtzmZmZJUuWlN5IUFBQZGSk6Kp5efr0qdVlTvnBCloA
AAAAAAAA8JpzOOT06dP8Lm6MGjXKxkPrdLpKlSpZ/itWNyxGOEQ6WeEQIiMj
Q+KP+zQbDunUqROPSZpKSEgQ3aUDQjhELnsJhwwaNMiyeBcXF4b7JSIigseE
DYoUKfLq1StWpXIiNhzy+s16Zf7+/vz2gpnRo0ebFYBwCA29Xm91tTeGgoOD
mZcNsty6dcvqIk7a0bZtW4RvFdiwYYP0IZM3X/JqqX6RU6dOZXu0hIaGMimM
vE2wLYw4cuQIk9qYW7RokfQuyJvCxYsXRZfMXXh4eIsWLZgfA1YVK1ZMp9OJ
7hgAAAAAAAAABOMaDtHr9bVr1+Z0ccPLyys5OTm/h/71118t/0mFChVYXQ9B
OEQ6ueEQIi8vT8qyM5oNh4wePZrHJE09evRIdJcOCOEQuewiHPLs2TNXV1fL
4j/++GO2D9S9e3ceQzZYvXo122qZEx4Oef0mkurs7MxvL5jZvHmz6aMjHEKp
WrVqnAo2KFOmDI+yQRby0WD//v1W89sawepD0NsjNTU1KChI+oTNXjlV8803
37A9VFiFQ6yudUnp0qVLTGpjKy4uztfXV3oXu3fvFl2ySnQ63axZs5gfBlZd
vnxZdLsAAAAAAAAAIBjXcAixceNGfhc3bHznYjVasGzZMlZ9IRwinYJwyOs3
64c0b97c9pY1Gw5ZsmQJj0mawpU9HhAOkcsuwiFfffWV1eKvXr3K9oG4LpZV
qVIljf/YUwvhEGLVqlX89oIZd3d305dihEModezYkVPBBj4+PjzKBgWys7OX
Ll0q62ti1QQFBaWmpoqekD2ZMWOG9PGSd2RRdTI/x2vdujWTwhYvXsy2sEJa
zZCPHTtWegvffPON6HrVtmvXLnJezfxgMPP111+LbhQAAAAAAAAABOMdDklP
Ty9atCinixv5fVn2119/Wd7WvHDhwi9fvmTVF8Ih0ikLhxDPnz+3ffBoNhzy
888/85ikqePHj4vu0gEhHCKX9sMhaWlp5HXVsnJW3+mY0uv1wcHBPOZscODA
AeY1M6SRcAjZC5zey6wqXbp0bGys4aERDqGkwqJbOTk5PCoHZchzh5xOu7u7
897vcs2YMUP0bOxGZGSk9K+z+/TpIzDluHv3brbHCasTCeZLmhAMP/OycufO
HRcXF4n1Dxs2jLybiy5ZgCtXrpQqVYr58WCqSZMmorsEAAAAAAAAAMF4h0Ne
c7jFs6nDhw9bPqLVdVmHDx/OsCmEQ6RTHA4hduzYYWPLmg2HhIeH85ikqY0b
N4ru0gEhHCKX9sMhq1evtlr5oUOHeDzc5s2beczZgEeghSGNhEOIrKysJk2a
8NsRZlq1amWIHCAcQonHz+fNRERE8KgcaDx9+nTMmDFubm6897505K2NVCV6
MHZAp9ORNyaJU23cuHFGRobAak+ePMn2OGnTpg2TwhYsWMC2MCcnJ60tNZab
mxsSEiJ9sG9zkO/58+dcz2HEXm0AAAAAAAAAAC1QIRwSHR3t7OzM6fpGhw4d
zB4uJyenRIkSln957do1hk0hHCIdTThEr9f36tUrvy1rNhySmJjIY5Kmpk6d
KrpLB4RwiFwaD4fk5eVVqFDBsuyqVaty+t4kMzMzMDCQx6gN2L6RsaWdcAgR
ExNTsmRJfjvCzPjx418jHEKN+e/6LWHRLc168uTJqFGjXF1deR8DEpFTYtEj
sQP5xS8tlStX7sWLF2KrvXLlCtuDhFVic968eWwL8/f3Z1IYQ9J7rFatmgaX
PVEZOZns0qUL26PCFCYMAAAAAAAA8JZTIRxC9O7dm9/1jfv375s+ltU7ejRr
1oxtRwiHSEcTDnn9ZsHq/H5PqtlwiF6v9/X15TFMI/KcEt2lA0I4RC6Nh0P2
7t1rtewNGzbwe9CZM2fyGLXBkCFD+FVOSVPhEOLixYtqrkWwbds2hEMoqbDo
FvPzW2ArOjr6888/10hE5NmzZ6LnoWkPHjyQeEMZckp8+/Zt0fX+OzTI9ggJ
DQ1lUticOXPYFlalShUmhbFy7do1iTeUCQwMxPpOBmlpaY0aNWJ7YBhduXJF
dH8AAAAAAAAAIJI64ZBz585xurhBfPHFF6aP1aZNG8u/2bFjB9uOEA6RjjIc
QowbN87qljUbDiHq1KnDY5hG9erVE92iA0I4RC6Nh0OaNWtmWXNgYCDXle1j
YmL4fbPp5ub2/PlzfsXT0Fo4hCCPzmlHWCLPhWXLlln+/wiHSKfColuTJk3i
UTmwFRUVNWLECInfJvMj8MmrfXl5eU2bNpUyRmdn519//VV0vf+m1+slplkk
atWqFZPCrN4OlQar1AoT2dnZwcHBUsp2d3e/cOGC6Ho1JC4urlKlSmyPDYPd
u3eLbg4AAAAAAAAARFInHKLX6+vWrcvj4gbh4+OTmppqeKB79+5Z/kHx4sWz
s7PZdoRwiHT04ZBnz565u7tbblnL4ZBBgwbxGKYROezJ00p0l44G4RC5tBwO
uXjxotWav/76a94PPXDgQB7TVq1+ZTQYDnmdf7aQB6uhIIRDpCNvaqVKleJU
s0H37t15VA48REZGfvbZZwIjIo0bNxY9A+1asmSJxDFyXapLrpo1azI8Qlq0
aMGkqhkzZjCsihg5ciSTwpiYPn26xLJ/+ukn0cVqzp07d7y9vdkeHsSiRYtE
dwYAAAAAAAAAIqkTDiE2b97M/MqG0Zo1awyPMn78eMv/OmvWLObtIBwiHX04
hBg8eLDllrUcDtm6dSuPYZqKi4sT3aWjQThELi2HQ/r06WNZsLu7e2xsLO+H
5np3jMDAwMzMTN4tKKDNcEhubq7V9cRUg3CILEOGDOFUs0GtWrU4VQ6cREZG
Dh8+XFRE5PHjx6IHoEV37tyxmtm2NHnyZNHF/pdu3boxPDyaN2/OpKqvvvqK
YVXEsmXLmBRG79KlS05OTlJqnj9/vuhiNcrqDXMpzZgxQ3RbAAAAAAAAACCS
auGQzMzMgIAA5hc3DKpVq6bX69PT0/38/Mz+k4uLC4+bhiMcIh2TcMiZM2cs
t6zlcAg56ngM0xTWXmYO4RC5NBsOefz4sdXvIz777DN1CrB6RxtWNm3apE4X
smgzHEIkJCSUL1+e3+6wDeEQWX788UdONRuQlywsumWPIiIi+vbty/XYsIp8
ShLduubk5uaGhIRImV7Pnj3z8vJE1/tfJkyYwPDwaNq0KZOqpk6dyrAq4tCh
Q0wKo5SRkUE+oUspeMiQIXhltmHSpElsjxByyInuCQAAAAAAAABEUi0cQkyb
No3tlQ1Tv/7666ZNmyz//759+/LoBeEQ6ZiEQ3Q6neW3e1oOhxDVq1fnMU8j
bX5BbNcQDpFLs+EQq6tIFeL5pbaZ3bt38xi4Qe3atTX4NYpmwyHEjRs3PD09
+e0RGxAOkSUmJoZTzUaRkZGcindIjx49Gv9/yN4RWwx5kWnQoAHvI8QUeTix
LWvQvHnzpIyuffv2WVlZoos1t2bNGoaHx3vvvcekKuZnaA8ePGBSGCWJkYZe
vXrl5uaKLlbT0tLS2N5zbeLEiaJ7AgAAAAAAAACR1AyH/PXXX87OzgyvbJjq
2rWr1R+ynT17lkcvCIdIxyQcQsyZM8dsyxoPh4wdO5bHPI1GjBghukVHg3CI
XNoMhyQlJVm9RXvnzp1VqyE3N7dMmTI8Zm5w8uRJ1XqRSMvhkNec4zo2IBwi
V40aNTiVbfDTTz/xK97xnDt3zjg6ckSJLuffUeHNmzcXL16c60Fi5O7ujq+t
TV27dk3KLX5atGiRnp4uulgrjh49yvDwaNy4MZOqJk6cyLAqsoO0cNCavnTY
0LFjx+zsbNHF2oFdu3YxPEjIhwLRDQEAAAAAAACASGqGQwiVF4Xm9/NqhEOk
YxUOuXHjhtmWNR4O2bdvH495GgUHB4tu0dEgHCKXNsMhixcvtlptzZo1O6uI
7c88zXTp0kX0mM1pPBxCzJgxg98eyQ/CIXJ98cUXnMo2GD9+PL/iHY/pN7zk
1Fd0Of+Rmpr61Vdfubu7cz1UDDSyCIMWZGZmkjPPAicWEhKSkpIiuljrIiMj
GR4bjRo1YlJVfmudKVO1alUmVdEgz9CKFSsWWGpoaGhGRoboYu2DXq9v27Yt
q4OEvH6KbggAAAAAAAAARFI5HPL777+zuqwhxYYNGzg1gnCIdKzCITqdLigo
yHTLGg+HJCUlOTk58RipAdl4amqq6C4dCsIhcmkwHJKTk8M1laEd9+/fFz3s
/6L9cAh5E+natavKuwnhELn279/PqWyDJk2a8Cve8ZiGQ7R2j5XHjx/36tWL
69FCkANSdKNaMXLkyALHVatWrYSEBNGV5kuv1wcEBLA6NkJCQphUxTYRR97m
mFSlGBnyRx99VGCdjRs3xqcYWe7evStl3R4pFi1aJLobAAAAAAAAABBJ5XCI
Xq9X7XbhRYoUSUtL49QIwiHSsQqHEP379zfdMu9wiM6Esi00btyYx0iNTp06
xbbltxzCIXJpMByybds2Hp1q0OjRo0UP+79oPxxCpKSkVK9eXc3dhHCIXMnJ
yfxuQUi4ubllZWXxq9/BmIZDXFxcNHivkP379xctWpTfAUM+KIluUROkvLdW
rlz5+fPnoistQMeOHVkdG/Xr12dS0pgxY1iVREyePJlJVYqtXbu2wCLr1Knz
8uVLsXXaI7JzmRwkW7ZsEd0KAAAAAAAAAIikcjiE2LJlC5PLGgXiunI4wiHS
MQyHbNq0yXTLvMMhxtWzhw4dqmwLK1as4DFSo4ULF7Jt+S2HcIhcWguH6PX6
+vXr8+hUgzw9PTX13YpdhEOI+/fvFylSRLXdhHCIAt26deNUucHFixe51u9I
TMMhxNGjR0VXZMXTp09DQ0M5HS2DBg0S3Z94d+/e9fLysj2oMmXKREdHi660
YLNmzWJ1bNSrV49JSaNGjWJVEvHzzz8zqUqZy5cvu7m52a6watWqsbGxAou0
X3FxcUwWDzl+/LjoVgAAAAAAAABAJPXDIVlZWWY3B+GE613CEQ6RjmE45OHD
h6Zb5hoOiY6ONj7QggULlG3k5cuXHh4ePKZq0K1bN7Zdv+UQDpFLa+GQ06dP
82hTszS1MLi9hEOIo0ePqraPEA5R4MiRI5wqN1ixYgXX+h2JWTiEnCiKrsi6
vLy8SZMm8ThaWrZsKbo5wdLS0mrWrGl7SsWLFyen6KIrleTgwYOsjo3g4GAm
JUm5X490AhdvIZ96ypUrZ7s88gfCT4ntWs+ePekPkhs3bojuAwAAAAAAAABE
Uj8cQsycOZP+soZtH3zwAdcWEA6RjmE4RKfTeXp6GrfMNRxiuiryzp07FW9n
yJAhPKZqEBAQoPiWN2AJ4RC5tBYO6dKlC482NatUqVI5OTmip/4fdhQOIRYt
WqTOPkI4RIG8vLwCv2Gk0bt3b671OxKzcIifn192drboovK1ZcsWV1dXtkdL
48aNRbclkl6vHzRokO0R+fv73759W3SlUr148YLVsVGpUiUmJQ0fPlxrJSlA
DpXu3bvbLq9kyZIRERGiKnQMTNJN8fHxovsAAAAAAAAAAJGEhEOePXvGZE1U
Gw4ePMi1BYRDpGMYDiEaNmxo3DLXcIjpTcmvXLmieDuXLl3iMVWjsLAwhl2/
5RAOkUtT4ZA///zTapGurq7uQjk7O/MYvsFPP/0kevD/YV/hEL1e379/f377
xQjhEGWsnp2yUqRIkdzcXN4tOAazcAhx6NAh0UXZsmPHDrZHS926dUX3JJLZ
/Rwt+fr6hoeHq1kSOSbXv6H4s17p0qWZHBslSpRg0hHDz19DhgxhUpICy5Yt
s11bQEDA3bt31Szp5MmThkPFke6iQt68ihcvTnOQlCxZUnQTAAAAAAAAACCY
kHAIwfVLmXLlyuXl5XGtH+EQ6diGQ4YNG2bcMr9wSExMjGl+KTk5WfGm9Hp9
vXr1eAzW4Ouvv2bY+FsO4RC5NBUOsbowe0BAQGZmptjCzpw5w2P4Btr5Vbt9
hUOI9PR0ri/OBgiHKBMbG8t8CQhTZ8+e5d2CY7AMh3zyySeiiyrAypUrGR4q
tWrVEt2QMDdu3LB9b0RPT8/z58+rWVJaWprx5qQjRoxQtpGPPvqIybHh4+PD
pCmGawxu3LiRSUlyXbhwwfbvPooUKXL16lU1S0pMTPT19TU8+pQpU9R8aN5I
OzQHSZcuXUR3AAAAAAAAAACCiQqHXLx4keayhm2LFy/mXT/CIdKxDYesWLHC
uGV+4ZA5c+YYHyUwMJBya/wiB0RISAiTluE1wiHyaSccEhcXZ/U7rGnTpoku
7d8Jsdq1a/OYv8Eff/whusV/s7twCBEdHU1e4fntmkIIh1Do168fp/oLOdx3
hfxYhkN8fX2FJ+4K9NVXX7E6VN7alUNSU1OrVKliYzJubm4nTpxQuSryEc9Y
wPr165Vt5Pvvv2d1eJD3d/qmPvnkE1b1qPPibCY+Pr5UqVI2qvLy8rpw4YLK
VZHTP2MB2lljjYk7d+7QHCSzZs0S3QEAAAAAAAAACCYqHEI0atSI5spGfjw8
PBISEngXj3CIdGzDIYcPHzZumVM4JCcnp0SJEsZHadq0KeUGX7165ePjw2O2
Bk+ePGHSOCAcIpd2wiGmgS4jZ2fnp0+fii7t3zZs2MBj/gZ9+/YV3d+/2WM4
hDh79izX+9whHKIY1yV3KleuzORbXYdnGQ4h9u3bJ7quApCdO2jQICaHSvPm
zUV3IwAZoO10Fnl73b9/v8pVJSUlBQQEGGtQfF/FqKgoJscGkZGRQd/Xxx9/
zKQYf39/9V/WdDqd6Y04Lbm7u//2228qV/XixQtvb29jDQ8ePFC5AK7IXvbz
81N8nPzyyy+iOwAAAAAAAAAAwQSGQ7Zt26b4soYNn376qQrFIxwiHdtwyM2b
N41b5hQO2blzp2n9gwYNot8mpwPGYMWKFfQVwmuEQ+TTSDgkMzPTuM68qY8+
+kh0af+RlpZGcyXfNmdn5+joaNEt2ms4hCDnPJx2TSGEQyjo9fpatWpxaoEg
pxMqdGHvrIZD+vfvL7qugqWkpJQsWZL+ONFI+k5lBb4qkpcX9asaO3assQDy
xkezgo3tRVGki4uLo++L1SpJ3bp1oy9GroULF9ooycXF5dChQ+pXNXDgQGMN
Pj4+Op1O/Rq4atmypbKDhDxxEhMTRZcPAAAAAAAAAIIJDIdkZ2cXL15c2ZUN
G65cuaJC8QiHSMc2HJKamvrZ/zl37hzDLRu1aNHCtP65c+fSbzMmJsbT05PH
eAu9rT9r5QHhELk0Eg7Jb4n433//XXRp/9+kSZN47AIDsn9F92fH4RC9Xk/e
UDjtGoRDaPzyyy+cWiiEpfWlsRoO8fLySk9PF11awXbt2kV/nIwfP150H2oL
Dw93c3PLbyBOTk4//vijkKrIQxvLqF27Ns3WJk6cSH9sEI8fP6ZvrW/fvkyK
WbNmDX0xspw5c8Z0p5hxdXUVssrQqVOnTMsgH+vUr4E3xRciWrVqJbp2AAAA
AAAAABBPYDiEmD17trIrG/l577331Kkc4RDp2IZDeLt+/bpZ/ax+HWl682vm
7t+/z6TItxzCIXJpIRyi1+tr1KhhWVuDBg00dduIiIgIHrvAoEiRIq9evRLb
oP2GQ16/Sas2bdqUx65BOIQGeQo3adKEUxflypXLy8tTpxH7ZTUcQixfvlx0
aQUjxw/9LSwXL14sug9VJSUllS9fPr9pODs779ixQ/2qyFM1JCTEtJLBgwfT
bDC/A1uuW7du0XfXu3dvJsWofJfJFy9e2PiVh5ub28GDB9Wsx4C8m1erVs20
knHjxqlfBm/5haILtGzZMtG1AwAAAAAAAIB4YsMhz58/d3V1VXZxw6rt27er
UznCIdLZVzjE8vfjly9fZrLl5OTkokWL8pgwMWrUKCZFallaWhrvh0A4RC4t
hEOOHDlitbYtW7aILs1cly5deOwFA/V/MmzGrsMhr9+ckJB3K+b7BeEQSmfO
nOHUBbF7927VGhFCp9NRLvGR33fogYGBwgNpUhw7dozyIDl8+LDoJtSj1+s/
/PDD/Ebh7Oy8a9cuIYWtWLHCrJiVK1fSbDAvLy8gIIDy2CD++OMP+u569OhB
X0n9+vXpK5GODLBNmzb5FePu7k7OzdSsx8jyhycaPBukRz6cKjtOHj58KLp2
AAAAAAAAABBPbDjk9X/fFJhSUFBQVlaWOmUjHCKdHYVDHj586O7ublb/y5cv
WW3f8uI2K4ULF05ISGBVpwYdOXKE8osAKRAOkUsL4ZC2bdtaFqbm24F0x48f
57EXDCpXrqzT6QR2Z+/hkNdvvm2xfAughHAIva5du3JqRLXl5kT53//932vX
rtFswcYCCwsXLmRVJz95eXnk1JrmIImLixPdhHoWLFiQ3xxcXFz27NkjpKpD
hw45Ozub1UPecSg3O2TIEJoDw+DEiRP0DXbv3p2+ktmzZ9NXIp2Ns0oPDw9y
tqNmMUY7duywrIfJ6i5ak5GRoeAgUTlBBAAAAAAAAACaJTwcEhYWpuDihlUz
ZsxQrWyEQ6Szl3CIXq9v3769WfH+/v4MHyInJ6dmzZo8hkzMmzePYamaEh4e
7uXlpcJKyAiHyCU8HHLt2jWrhc2aNUtsYVbpdLqqVavy2BEGBw4cENidA4RD
iK1bt7LdKQiH0Hv06BHz0I7RhQsX1OxFTevWrSMN8guH+Pn5JSUlsaqWnz59
+ig+PMqXLy+6fPUcOnQovzm4urru27dP/ZLImfmWLVusLjKZmppKufH9+/cr
PjCMmIyFSf7t5s2b9JVIZOPNhZwWnjx5UrVKjMj51dq1a52cnMzq8fDwyM3N
Vb8eFSh4W9y8ebPoqgEAAAAAAABAE4SHQwgmN5R3dnZW8+tXhEOks5dwyM6d
Oy2Lb9y4MdtHOXXqFI8hE8WKFcvMzGRbrRY8fvzYcE9zhENoOGo45OOPP7as
ysXFJSYmRmxh+Vm9ejWPHWHQpk0bga05RjiEmDhxIsOdgnAIEzNmzODUS69e
vVTuRR0HDhwwfE/KLxxSSKsxPDMbN25UfHiQtxjR5avk3r17vr6+Vofg5uZ2
8OBB9UsKCwtr1qyZ1ZKqVKlCv/3c3NxSpUopPjYMtm3bRl9Jp06dKMuoWrWq
Xq+nr0SKq1evknM/q2V4enqePn1anTJMkZepkJAQqyU1atRI/XrUkd8TNj8B
AQEO+TkRAAAAAAAAABRYuHCh5dWDtWvXqlmD1TVg5VL58j7CIdLZRTgkJSWl
RIkSlsUPHDiQ+WP17duXx5yJTZs2Ma9WrOjo6HLlyhm6QziEhkOGQ548eWK5
1DwxYMAAgVXZRl5qvL29eewLA8ovgmk4TDgkNze3Xbt2rPYIwiFMpKenlylT
hkcvTk5OERERKrfD27Fjx4w/KucaDvHx8YmPj2dVNifkRELx4fHzzz+LLl8N
ycnJ+a1qRQ6kw4cPq1ADeeFNSEh4+PDhkSNHZs+e3bBhQxv7pV+/fkwedP78
+YqPDYP169fTl9GhQwfKMlSLacXFxeX3Uuzl5XX27FkVasjJySEvOw8ePDh4
8OD06dPr1q1rYzKff/65CiUJERgYKOsg+eqrr0SXDAAAAAAAAABaYfXu0mvW
rFGzhpycnJIlS8q6vmFJ5V8qIRwiHdm5ApuS6IsvvrBaPI9beMfHx5cuXZrH
qMuVK5eWlsa8YFH++uuvChUqGLtDOISGQ4ZDJk2aZLWqixcvCqyqQGPHjuWx
Lww++eQTUX05TDiESExMNH3xoYFwCCvnzp2zGgaj179/f/Xb4efEiROmtxvg
Gg4hpkyZwqpyfpTdlsjT0zM9PV107dzpdDobtzV5991327PTrl27999/v23b
tq1bt27VqlWzZs1q165NTol9fHxk7ZrFixcz6T02NtbNzU3BsWH0t7/9jb4M
yjiik5NTdHQ0fRkFIh/YyV7Lr4yyZcsyP1TatGkTGhrasmVLcqjUqlWrVKlS
cuO15MRehckIUbRoUelz8PDwePr0qeiSAQAAAAAAAEArrP5mauXKlSqXMW/e
PFmXeszUrFlTtdV0DRAOka548eICm5LiypUrlnepNmCyXrSlixcvWr2FOr3J
kyfzKFh9z549q1SpkmlrCIfQcLxwSHJystWvk+rVqyeqJInu3bvHY18YuLi4
iDrYHCkcQty6dcvLy4t+jyAcwtDSpUs5dXTkyBEhHTH322+/eXh4mLbGOxxC
3gVEHQ/SyfoW1chRbzlkZubMmQqGI9aJEydYtT9o0CCaSsjnQfoaQkNDaWro
2rUrfQ1ScPrwy9Xly5fVGY76PD09pc9h+vTpousFAAAAAAAAAA2xmspQ/7sM
yp9ufffddyoXjHCIdEFBQQKbKtDLly+rV6+eX/H8liBYvXo1j2k7OTlduXKF
U82qiYmJqVKlillrCIfQcLxwyJIlS6yWtG7dOlElSde+fXseu8OA7GshTVn9
Ennz5s1CimFi79699LsD4RCG9Hp9jx49eHRUtmzZV69eCWmKoTNnzlh+Xcg7
HELUqlVL4ytskBNRBUcFwwSCZu3Zs0fBZIRLSEhgNYGwsDCaSpgkiGzfGKVA
6tz3h7yb0xQphIuLS2ZmpuKWycva+vXr+/XrV7NmzQoVKpBPix9++OHixYsv
XLig8m9SLMXFxUmfA3kBTE1NFVswAAAAAAAAAGjK3LlzLa8hLF26VP1KBg8e
rOzKj6+vr/qX9MeMGaOsWtv8/PxUbsTUkCFDeDQVEBAgsCnbMjMzW7RoYaP4
xMT/x96dh2s17o0Db++GrZlKhuZCKRySIpKOKXM5klnmIsnQIUNXIiKcOEIy
JEKGCB0yRCihSClpUpkaNChNe+/2+S3t39ub2u39TGs9u97P5w9XXHnW93vf
a93rftb6Pve9NKRD5+XldezYMYwGP+igg3JyckIKOwILFy5s2LDh1nlFUBzy
2GOPhdEjgQULFoQdfOG2tQNLkrKystKSzurVqwvcjKxs2bK///57WkKKy5tv
vhlGd+QL7olpaYQxY8ZsHczgwYOjjySFevXqlWR3pLE45Lnnnksy+G2ZPn16
upJasWLFFotKpUr37t3TlVRKfPzxxwWudRNBcUigU6dOqUokDPHuWhI44IAD
0v7+N2ypWh8pYrVr105tOzRv3jzhYFq0aJF8AEFGybRGbm5u8jEUbsKECUnu
v5MWwVWcWL7B18M+ffoEX2C39cmNGjWKpiZnW8aOHRt7OwTfbtIYKgAAAFAM
3X777Vs/Q0jVVs5xmThxYiLPfUqUuPrqq6OPtnPnzolFW7iKFStGn8smSS6t
XDyTKsSGDRvOOOOMQiIPeyGXVatWFVgFkby01HelxMyZM7f14i+C4pBHHnkk
jO4IzJs3L+zgC9e9e/cw8ipdunRa0rnrrrsKjOfEE09MSzzxys3NrVu3bhg9
ki+Ci2Vr77777taRbBcLuRQiuE2cdtppyfRFGotDhg4dmkzkhZg6dWq6kgpM
njx5i51TUiIjI+OLL75IY17JGDly5La2GIimOKREMd5DauHChQmcD88++2y6
Aw/X0qVL69Wrl0DLpF27du1S2xTJ1NHVqlUryaMH84FkNpqM4Cb7yy+/FFiO
W/wlVrT222+/tWzZMsbPX7FiRcobPBaxV7M3a9Zsu/7JAAAAABCG3r17b/0Y
oV+/fmkJJsZHMVuYMWNG9KFedtllCYRapHLlykWfyybnnHNOGEkFIvhRWwKu
ueaawsNu1qxZ2DFMmzYtjJ9t7rTTTtvjS66PP/54l1122VZSEbzvfvjhh1Pe
F/nmzJkTdvCFu/rqq8PIKzMzM/pcFi9evK2fgW9HZVH33HNPGD2Sr1atWtnZ
2RFn9PLLL28dSVpqTVNr5cqVjRs3Trgv0lgcMmTIkMTPoUJ988036UoqX0gb
HDRs2DC85cLCM2DAgEKSiqw4JJh4pLdqaFtGjhwZ75mwzz77RD+ERiknJ+eY
Y46Jt1mKiT59+qS2NdavX1+9evXEgilVqtSGDRuSOXowP0y4KerUqRMEn6p2
KNC6detatGiRcITp9dBDD8Wbb3ALaNKkSeyHqFmz5pdffhlGyxfu8ssvjyW8
smXLfv/999GHBwAAABRzt91229ZPEvr27ZuWYIYPHx7705h8xxxzTFpCveSS
S+INNRY77bRTWtLJd9ZZZ4WRVImUbg6eKvfff3+RYQcNEkEkI0aMyMzMTHmb
V6tWbdasWRHEnyrDhg0rZM3qrKyscePGhR3Dgw8+mPKOyJf2vrjqqqtCSi36
XAopdJk0aVL08SRmyZIlZcqUCalTSqRjP5cCB9XOnTtHHEYYguu3cuXKiXVE
GotDnnzyyeROom366quv0pXUJkWWdyamZcuWa9asSXdyscrNze3atWsh6dSr
Vy/JcpfYi0NKbKyuiX6fxyLddNNN8Z4Go0ePTnfU4br++uvjbZPi46233kp5
gzz++OMJx7Nw4cJkDv3OO+8kfOghQ4akqgUKlJeXd/HFFyccXtp9+umn8eb7
j3/8I96jBHO5Z555JqQuKFB2dnYhW95szoYyAAAAQIGuu+66rZ8k3HzzzWkJ
Jjs7u0aNGnE9kBk5cmRaQg1pB5aSJUumcYvz008/PYykAjNnzkxXUlsLWrhf
v36xhH3rrbdGE9Lrr78exl7e9erVS/KRdTSCHunTp08hiZQpUyaaNzX9+/dP
eS/kmzZtWgTxFyKkxY4CEa9WPWvWrGCcLDCSypUrF89Firbl3HPPDalTArvv
vnvEb2m7deu2dRjHHntslDGEJxiCMjIyEuiINBaHPProo0mfRwWbMGFCupLa
JLhx3HDDDWFkd9ppp20XI0lwgZ900kmFJFKnTp358+cneZS4ikMCHTp0KFat
F5wnTZs2jfcESHfU4UpmF5Xi4Jdffkl5m2zYsOGQQw5JLJ6PPvoomUM/9NBD
iR13n332CXsCNnDgwMRiKybinQW99tprCR/r6quvjmy5oVGjRsUSUnCDSONT
BQAAAKA469Sp09YPEy644IJ0xXPXXXfF/hymdu3a6XoE3bZt29jjjMvvv/+e
lowCrVq1Cimp4vAiKd+aNWvOPvvsGMMeOnRoZIG9/fbbWVlZKW/5pk2bFsOf
8W5uxYoVhfdI6dKlR40aFU0w//znP1PeBfk+/vjjaFLYlnbt2oWU2qJFi6JM
pEOHDtuK5OSTT44ykuSNHz8+pE7J17t37yjTKfAca9CgQZQxhOq+++5LoBfS
WBxyxx13JH0SFSyyMblweXl5vXr1CiPBLl26FPN3ajNmzPjb3/5WSAq1atX6
4Ycfkj9QvMUhgY4dOxafPVk++uijuIKvVKnSvHnz0h11iCZNmhTGbDMy1atX
D6llvvzyy8RCSmDvks0Fo01ixx0zZkyqci/Q2LFjt1WLu13YZ5994k35iCOO
SOaIRx555OLFi8Poiy0EY2ws6W+Pu6QBAAAA0WjZsuXWzxPatGmTrnjiWmm/
X79+6Yoz3t8hxi6N2080bNgwpKTefvvtdCW1ue++++7AAw+MPezx48dHGd6Y
MWPKlSuX8sY/5phjim19yNixY2vXrl1I8BUrVgz76ffmCiyWS4lXXnklsiwK
VOBQnxJTp06NLIsJEyYUEkm3bt0iiyQl8vLy9ttvv5D6pcTGvebD+IX1thR4
BylZsuT69esjiyFUQX8lsNhLGotDCt9wJBlPP/10upLaWoxLgcXrlltuKZ71
IUFUjzzyyE477VRI8E2aNPnxxx9TcrgEikMC7dq1W7duXUoCSNLxxx8fV+Tp
WpAwGosWLapZs2YCHVp8tG3bNrz2KWTTukKcd955yRw0sS9fl19+eaqyLtD8
+fOrVauWQGDFR7x7gwZjZvIHDa6viRMnhtQp+b7++usi1zGrWrXq7NmzQw0D
AAAA2H6tWrWqwN8E1a5dO41RXXTRRbE8filTpsySJUvSFWR4D1cjLkjY3C67
7BJSUml/kZSXlzdo0KDCX6ZsLZrff21u3LhxFStWTHn777///sXtl7Dr1q3r
0aNH4WHvueeeU6ZMiTKqE088MeWNn2/gwIFRJrK1vfbaK6TUIqve2bBhw+GH
H15IJLfccks0kaRQXItlJeDSSy+NJpFghNlWDO+88040MURgzZo18ZaGprE4
5Mwzz0z2BNqGNJbmFijhfRkKd/bZZwc9nu7k/uLXX38tcuW61q1bL1++PFVH
TKw4JHD00UevWLEiVWEk5vPPP48r5mBakt6AQ5WdnR3eCoGRCXXn09WrVycw
WapTp07CR5w/f34CjVCjRo1Q15kMxr2DDjoogcCKlf79+8eV9ciRI1Ny3Kys
rPBWngxmwocddljhAZQpUyb4OhlSAAAAAMAO4IUXXtjWg4WZM2emK6qvv/46
lmcvadz7Ji8vr3Tp0vE9KopZun60mJ2dHVJGgU6dOqUlqf9u7KwxY8YceeSR
8cZcsWLFtPxqeOLEiWFU6ey6667vvfde9OkUaOrUqQcccEDhAafwh8+xO/jg
g1Pe8vl69eoVcS5bqFSpUkipDR8+PJoUinz/e+utt0YTSQpNnz49pH7Jl5GR
Ec3SLo8++ui2YrjooosiCCAyCxYsCIbT2LsgjcUhrVu3TsVJVIBrr702XUlt
y+OPPx5Gps2aNZs7d266k/tTMCF59dVXq1SpUnjAZ511VmqX7Ei4OKTExvv4
/PnzUxhMXFasWFGvXr3Yo23VqlVOTk66oo3AlVdemXBXFh/BVRBqK3355Zex
r2C5SXBfSOxwiQ1c7777bmqz3lww1JxzzjkJRFXcfPDBB3ElHtysU3j0bt26
hbG71lNPPVX4cYNZ30svvZTy4wIAAAA7kkJ+hd29e/c0BhbLT9u+/PLLdIW3
YsWKuB8SxWzw4MFpSeqXX34JL6nKlStHv7NJXl7ee++9l/D+0U2bNo044E1m
zZp1yCGHpLYL8t14441hPKuM3aJFizp37pyZmVl4nEcddVRafnFcq1atMJo9
cMUVV0Sfzibr1q0LKa/Av//97whS+P7774tc+SeyVTJSKBimdt999/B6p0TI
i/BvcvLJJ28rgJ133jm9w07KffLJJ6VKlYqx/dNYHLLvvvum6CTa0jnnnJOu
pArxzjvv7LbbbilPtmLFii+++GJ6U/v666+PPvroIkPt0aPHhg0bUnvoZIpD
AkGPfPbZZ6kNKRbB0Nq+ffvY46xevXqUm3BFL/hykUw/Fh8RFGsV+f59awmv
DlfIrXNb7r777tTmu4X+/fvHG1LxtHTp0rgSv//++1MbwOGHH57aUWXSpEll
y5Yt5IgZGRkvvPBCCo8IAAAA7HgmT55cyOOF8uXLx/tQJYVeeeWVwp+3NG/e
PF2xBT799NNEHhLFJl07I7z77rvhJRW45JJLIluIIzjQ22+/feihhyYT8Jln
nhlNtAXKzs6+9dZbi9xUOgF77bXXc889l5ubG3FGy5YtCzKqUKFCkRFecMEF
qf3hc4yCEa/IqpWEHX/88dFntMmkSZNCyitw/fXXhx1/Tk5OMOYXGUmTJk3C
jiQMCRewxe71118PNYWpU6cWPlgNGzYs1ACiN2jQoBgbP13FIX/88UdWVlYq
Tp8CtGzZMi1JFWnx4sWnnHJKGCn//e9/T8uufzNmzIjlV/ylSpUKafOyJItD
Smx8X3ndddetXr06jPC25d577409wl133TWaFZbS5cMPPyxwF9HtTuXKlaP5
KtGlS5e4Att3330TCCy4uuNtgfPPPz/UFnjzzTfjDal4SmCvnyeeeCLlYVSp
UmXIkCEp6bJZs2YVXksc3AVeeeWV5A8EAAAA7NiKfNp87rnnpiu2nJycmjVr
FhJbeJv5xuLqq69O5AlRbNK1YMXFF18cXlL5wv6x27p16959993u3bvvvffe
yUcb6rbmMfrkk09q166dfC5b23fffV966aWU/8S4QNOnT7/hhhsqVqxYZFTl
y5dP46Ud6u9qy5Qps3LlynSl1qNHj/BSa9y4cdjxX3PNNTEG8/PPP4cdTMod
f/zx4fVOvipVqvz000/hpVDkb5+rVau2ePHi8AJIiyuuuCKWxk9XcUgh+wYm
LyMjo9h2aF5e3mOPPVbkQkOJadu2bTTL1gV35zFjxnTs2DGWGtEGDRpMnDgx
pEiSLw7JV79+/Q8//DCkILdw3333xR7YbrvtFsxSogksLWbPnh3GZoVp0aZN
m2gabf369S1btowrtuCCjfcol1xySVyHOProo4PAwsg335QpU4J5eFwhFVvt
27ePN/1vv/02pGCC8zbJ7XonT55c+IORcuXKjR49OplDAAAAAP8XvP7667E8
zUjjr3379eu3raiqVau2du3adAW2ZMmScuXKxf1gKB7R/zp10aJF4f3EeHMX
Xnhhyt8ozZs379FHHz355JNT2y9PP/10auNMzIoVK84+++wU5rW5/fff/5ln
nglpjaBly5YF/RLLgg/5mjZtmuSz02Tk5eU1adIkpHbOd99996UlteXLl8dS
mZOMUF/5FXIv2Npll10WXiQhiWUbteS1adMmpGKwGFed6tixYxhHT6P169fH
supLWopDggEt9rE3Mb169Yo+r9h99913Bx54YEi5n3LKKW+//XZIK1zNmTPn
tttui70u9IILLgi18jBVxSH5Lr/88t9//z28aINR7rrrros9nho1anz//ffh
xZN2wRyyUaNGKezB9IpgpbJNgrnxAQccEHtsJ5xwQlwLRPz444+lS5eO/fOD
GXuo107wTbBOnTrx90kxdeedd8bbAkH3Va1aNaR4ypQpc/vttyfQg0FUjz/+
eOFf0vfee+9vv/023k8GAAAA/q+ZMmVKLJs7BEqWLBn2cvTbsnTp0m398LNn
z55pCem/Gx87n3766Yk8FYpHw4YNFy5cGGVS7dq1CzupTcqVK3fxxRc/8sgj
n332WVzLjOfm5s6bN+/DDz986qmnbrvttvPOO+/www/fc889Q4rz008/Da/N
4/Xcc89VqlQppEwzMzNbtWp13333Jf+KJOijSZMmDRgw4LTTTitTpkzsMVx/
/fWh/hyySPfcc09IzbtJ+fLlo6/7Cq7uM888M+zU6tevH8bCFMHpFFzpcUUS
nMzF6sotUjDUR1OYVyKct/lTp06tXLlyjAHcfPPNkW0uFo1FixYV/mPeEmkq
Dhk4cGDS50sRgvM2gV/KRym4p9xwww1h7M6WLxjS27dvP2TIkORLXoO50Acf
fNC7d+9gVhNXAMHcICVtVYjUFoeU2FiPMXTo0DBKa2bNmnXcccfFHknjxo0X
LFiQ8jCKj5ycnLgapPiL+DcLwaUdnCSxh/fss8/G+MnBrTCuRcOCkSHUxZqC
6zHelVKKuVGjRiXQDt27dw81qmDQ7tq1a+yV8MEUq8jHDsFtKNSqIQAAAGAH
kJeX98wzz8S1ZmypUqWeeOKJtER76aWXbh1PRkbG/Pnz0xJPIN43lQlr3Lhx
ZGu233rrrdEktbWgN3fdddcaNWrUrVu3/lbq1atXu3btPfbYo1q1apUrV454
w/Qo63NisWTJkm7dugXXY6hZ77333hdeeGGfPn2GDRs2YcKE4CQs5GVuTk7O
ggULxo0b9+KLL95xxx3HHXdcjFVnmwu6/p133omyJbcW2R7rFStW/OKLL6JM
LbKre5999vn1119TGPmiRYuOOeaYBCIJTsLPPvsshZGE6qabbkp5XxSib9++
KSzPeP/99+PdreDUU08NaamidJk4cWLh5T3RF4d88MEHmZmZyZ0pMSlbtuzY
sWMjzi5eU6dOPfHEE8NuikMPPbRz5879+/cfMWLEN998s2rVqkJCWrt27axZ
s4JuGjJkyA033NC8efMEpjetW7cOPiSCBkx5cUi+YF7Xs2fPVNVmBA0ejKVx
rcPQvn37FStWpOToxVYwaQyj79Lou+++i7gNg+8CDRs2jDG84Pv1Rx99VORn
BnfhXr16xZ71BRdcENI6RZviOf/88xPqkOIrsRlpMD+Jvd41GcFdadCgQcHt
qcAl3YKh6T//+c8JJ5xQ+IcEXwnvvffeHazmFgAAAEi5RYsWJfwT8n/84x9z
5syJOOApU6ZsHUm7du0iDiPf2rVre/bsmVjrJaZBgwZh78++evXqHj16RJnU
9qJ8+fLF82lbcBl27NgxyqaoUKFC48aNmzZt2qJFiyM2Cv4Q/GvNmjWTfP9Y
rly5u+66K41bRP1348IagwcPDnujqM1VrFgxOGIEZ9cff/xx/fXXR5ZXiY11
Pu+9917yka9fv/6xxx7bbbfdEo4kKyurX79+QQskH0yonn/++bgW2EmJDh06
/PLLL0lGPnPmzITXm6pWrdpDDz2U3pWCUmvYsGGF5BtlcUgwsAwdOjS8Zaa2
VrZs2aA3c3NzI8sxMcFsqlmzZpE1S2DXXXc94IADDj744EMPPbRVq1YtW7Zs
3rx58F+C8z/JT65Tp86rr74a2RQlpOKQfBkZGcFI8v777yeczuzZs/v27RvX
InIlS5YcMGBA8ZzjpdCgQYPC67i0CKZqaRlqFi5cGFzFMQYZTIyDmW0hKzks
X778nHPOiT3rYDIT9rkawdJ5Edt9990Tbo1gih5lqMGXgmOOOeaiiy666qqr
OnfufNZZZ8VYjBTcVqZNm5bC0wAAAADYweTl5Y0fP/6iiy5K/iXUSSed9Oab
b4a6ufkWjjrqqC1i+OCDDyI7er5ly5YNGjSoyKXjQ9KuXbuJEyem/MHg0qVL
H3744d133z0tSRV/f/vb31Lb4Kk1ZcqUCPYKCdX555//888/p7ENV69ePWLE
iLg2lE+hZs2a/ec//8nJyQkjtWDIGjhwYDLFFckIbhOff/55YkPW4sWLH330
0VTtel+lSpXLLrvskUceGTduXJS3rSIF/T5q1KigoVKSZgIqVKhw4403BsNI
vJH/+uuvTz75ZHBXSn4Jo3r16j3wwAM//vhjGC0cvRtuuGFbmUZTHLJ27dpg
enbwwQcn2S+JCQbS1157LTs7O4JMExYMSm+99dYhhxySliZKibJly/bt2zfi
isrCi0OCoSAYEB566KFgZHjwwQc7depUt27dBFKrUaNG+/bt77rrrnfffbfI
xYWC8TyYGPfv3z+BE75Ro0YTJkyIpunSaMyYMRGvtheBli1bpqs9161bF3yP
jj3U4Bt3cIt/+umnv/vuu+A2F9w6p02b9uKLLwZzkuAqjvFDgr8ZjKthpzZy
5MiEeqNYO/HEE5Npk969e6c7g8IEk9vg1Nrhy9sAAACA2P3888/ffffd9OnT
J0+e/Morr/Tq1at9+/a1atVK7UOJjIyMAw88sEuXLvfee++zzz77wQcfBIf7
9ttvw9jx9rXXXtv80I0aNQrjYcicOXNm/I8gkUmTJn366aeDBg3q1KlT7IsJ
h2qXXXZp27Zt7969R40a9cUXX0yZMiXo6E0xr1mzZuukZs2atekvTJs2LT+p
xx577MILL9xnn33SnVBxd8YZZ6T8NEu54Eo/99xz41pHvTg44ogjotn146ef
ftp0CQRt9fXXXwfHHTZs2FVXXdW0adPi8N6kbNmyrVq1uuGGG1599dXPP/88
GEg3v65/++23baU2d+7cra/uxx9/vPgMWTvvvPNxxx132223vfXWW8GQ9c03
32ye2urVqzflsn79+vfee++ee+4JTozg5hJeSPXr1w9uiDfddNOAAQOef/75
4M4VNGNI5966des2nXhBtwYtMHbs2CeeeKJbt25HHXVU0DjhpRmXxo0b33LL
LUOHDg3C2/w+EtzNg7vMl19+GXRNcF717NnzrLPOCu77YcTQsmXLa6+9dvDg
wR9//PHmt7b0rikUr9zc3OOPP77ABFNVHPLLL79sPaC9+OKLwUl1yCGHhL3j
WCyysrKC3rzuuuteeumlCRMmbDGgRbZTXuGCOeTo0aODgTfdrRWfzMzMCy64
ILipRd9i2yoOCbr7zjvvXLJkydb/y7x584LZZvPmzRPOt27dusFwfckll3Tt
2vWGja655prgX1u3bp1wVfNOO+10991370hrFm3LzJkzi89dJoWCyVsaWzUY
Oh566KFoduwqsbFc6quvvgo7qWBuFuXSeZEJJjbJNEvQ1xEvFhqj8uXLB4Nh
gaMuAAAA8H/ZGWeckcZHFi+//HLKM8rNza1du/amQzz88MMpP0Sgfv36aWy3
5BX4qj1d6wbsGG666aYwzrQwLF26dNCgQYcffni626xo7du3j6YsJF/C214U
E3fccce2UmvcuHG6o0vK5htmzZ07N11hnHrqqSGdewXuiVbMTZo0aVP8w4cP
T3c4JSZOnBhS74Rk2bJlDRo02DqRVBWHnHfeedH3Qgr16NEjJe2QKrNnz779
9tsL7LJipXz58t27d58/f366GqrA4pDgHjRjxowi/99vvvmmS5cuFSpUiL7d
ttChQ4cffvgh/NZKv+XLl++oFeBPPfVUulv3v8GNab/99gs70+CqKXL9nOQt
XLgw5b8fKSZGjBiRfPu88cYb1atXT3cq/9/OO+/cq1evCM4KAAAAYHu04xWH
BPr375//+RUqVAhpawDFIWzhySefDONMC9XcuXPvuOOOvffeO92Nt6Vdd921
Z8+e8+bNi7hBFIcUW4pDiiHFIcmbNm1a+fLlt0hEcUi+4lYcki8vL2/ChAlX
XnlllSpV0t1CW2rSpMnAgQPDWJQvLlsXh+y3336rVq2K/ROCqfugQYOaNWsW
fRuWLFnywgsvjKWOZYfxyiuvRN/O0Zg8eXK6W/dP69evv+eee0JacKNFixab
34tD9cQTT4SRQnGQqm8cS5cuvfjii9O7MFfTpk0HDBhQrPZGBAAAAIqbHbI4
ZNmyZfkbNF955ZVhfP5/FYewlbFjx4Z0soUtLy/viy++6Nq1a9p/EF27du2r
rrpq9OjR6VrFXXFIsaU4pBhSHJISI0eO3CIRxSH5imdxyCbZ2dlvvPFGhw4d
qlatmt6Gatq0ae/evYPzP4xdFBOwRXFI+fLlE661mD17dt++fffff/8ImrFO
nTq33HLL/5HVQja3oxaHlC5dOrhI0926/+vnn3/+5z//WalSpVQluO+++wZ9
F+VVv6MWh+y8886pbcaFCxcGE/IaNWpEmUXwHapnz57Tp09PYSIAAAAAwA5v
0aJFr7/+eo8ePQ4//PAyZcpE8DAzMzOzRYsWffv2nTJlSjF5sQUQpT59+mw+
KqaqOIRoBHeumTNnDhky5PLLL49g/4h8ZcuWPemkkwYNGvTTTz+luwG2tEVx
yPDhw5P/zGnTpt12221h7H5Ss2bNyy67LIh5w4YNyccJhVu1atWDDz6YTDF2
MDk/55xzxo4da85czOXk5Lz66qvt2rULb6+ZSpUqnXLKKcGcYfLkyUYwAAAA
ACBJ69evnzBhwgMPPHDGGWc0bdo0Vc82K1as2KpVq65duz755JMTJ05cu3Zt
uhMFSKcNGza0b99+0yCpOGS7tmLFitGjR/fq1att27aNGzeuXLlySm6de+65
5wknnHDTTTcNHz58xowZubm56U50mzYvDjnuuONS++Hz5s0bMmRIp06dmjRp
kpGRkUBLli5dOuiXM888c9CgQbNmzfKGnegFZ93333//4IMPBqNEVlZWLOdt
gwYNLr300ueff37p0qXpDp/4BN09Z86cZ599tkuXLgcccED+6qaJqV27djCo
XnPNNcHwFXyHKs43AgAAAABgB5CdnT1//vzx48e//PLL//rXv66//vqzzjrr
hBNOOPbYY4866qgjjjiiRYsWhx12WPCH4F+D/3j22Wdfc801d91115NPPvnm
m29+/vnnCxYs8CIGYAurVq068cQTm2/0wgsvpDscUumPP/6YOXPmhx9++Nxz
z/Xr169r166nn35627ZtjznmmNatWx9++OH5t85WrVq1adMmuKVeeOGFPXr0
uO+++5599tnRo0d//fXXS5YsSXcScQgCbv4/Pv300/AOFFw1kyZNeuONNx59
9NGbb745aLfjjjsuaNKWLVsGTXrkkUcGLXzSSSe1b9/+yiuvfPDBB9955525
c+d6nUqxEpyQ8+bNGzNmzODBg3v27NmtW7fOnTt36dIl+EMwf37++efHjRu3
cOHCdIdJygTfg1auXPn999+PHTv2xRdfHDBgwI033ti9e/err7466Pcrrrgi
+Gfw5+BL1t133/3444+PGDEi+JvffvttcCtJd+wAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAwP/I25CTnZ2dm5fuOAAAAAAAACABq3/44NHuJ+xTMaNE6TYDf9qQ7nAg
EXkLh566c5XTn1/ivW1xtm789XtnHXj7lJx0BwIFWL9s7qT3XxrU75+Xn33a
8Ucesv9eNatWKFOqZMnMzIyMEpvLLF1u5+o1GzRp1ur408/vcuNdA58b9dn3
S9Zuh6NP7soFX7//8uD7e3W/5MyT2hx2YKN6e1TbuUK5rFKZJUuXq1x191r1
G+7X9PC2HS65tvcDTwx/57OZS9fHeYRVL3eoUKJE1hkvrwslge1W7orZ415/
8t4bLzvzxNbNGtfdvUql8lmlSpYqW7nannX32e/gVieff83t/x72zhc/rMiN
5eN+f+H08pl1un2cneIwc5Z+//GIwf16XHJG21YHN6qzW5VKwcnx57mxa416
++zfrPWpF15758AX3p04b2UsYeYtfrLtTiX37TnRLWAHkbfut9lfvvvS4Adu
v/6Kc9u3PbL5/vvUrVF9lwpls0qXzMjIKFmqzE7lKu5SvUa9hvs3O+K4086+
tNst9z72wn/GT/91dXxfNzbMHXBEVonMOtd8kupTHAAAAGC7s+GHAUeULpFq
GVUvenuLh795y4acVCblB9pM1snPLI8p5UQiKdW07/SNDy1zJvbct2Qo8adS
Zu2rxxb+6Cucfk+58meNKOJdQASJlGx8y6RYH0KvH31p9YyiPzI2mbW6flTM
n2BmL/xyWK+OTXfd1AWpLA7J+23ISWVT1Zixq3jas79th+/nAnmLBh8X1iCb
kVmqdNZO5SpUrrpbzXp7N/7bIUccc/IZ513W7cY7/jX4xbfGfjXnt3XbZ6P9
r9zpdzULTuSsw+6bGdOLtNRZ/+5lu6Vs2IhEZv1rx6VnbMpb+lLHqhnB4HjF
u3+kJYCk5Uy6pXE4k4iNF+mf12j1GnX2bnxgiyOPO7XjRVf16PPA4y+M+mTq
j78n8y71jxfaZ4US9P8Gn1mydJmdylaotEvV6nvUrLtXo/2btjji721P7XDe
JVfdcNvdDw5+/o0xX3z308ri+UZ4/ZJvRz91xxUnN92jbHKXctaujduc1b3/
82Pn/B7xMBSnvNU/fv7awFsuPuGgmhXiPZ8zK9RsesKF/7z/ufen/xZLf2aP
u65+5raKQ3K+6X1A8Z+VZ+zR+YN4S2K2LXfp1NfuvaLt/rvGesMvs+v+J131
wOtTlxZ2UmWPvbp2ZioDzVny9ct3XXLsvlVjnaTvtPtBp3V/aNT05YXNIte+
fXH1jMwG148v7BYU1XecrYpU1r3SYacUfG7WfteOWZ7knGrDTwPbJNcGpVr0
nxXWMJS35udJbz7eu/PpRzSslvC8tUy1ff9+3o3/fn3iL2tjOGTO5N4HlCqh
OAQAAADgT4pDYqI4JD0UhxTXJ5gbVnz35n2Xta69ZfFGKotD1o1OxyvzCqc+
u72uHBFmcUjRSu9c96Cjz+x6x6DXx88t5q81C7T6gy61M/9MJHOvaz+N5UVD
6igOidmG2f86Iv/VW6VTnlm4XV6o4RWHFNVp5XZv0vqMq+4YPGrywrgXYAi9
OCRWGVlVGxzS9vzr7h36/oxlxaBQZN3P44fcfMaB1UqlPNGytVqee9sz434u
botlrP1p3NDbO7VpUDEzFWmWqX7gaVff/8oXhb3cXf1h13p/HkxxSHCXXzn9
5VtO3rtCYjeMjAp7te3++Ke/FBhJzqSbg683GVUv3vLrWwI2LP9mWI/j6yVY
3ZtZqdHJPYZ8vqjA63v9J92Ds6Go6fH2XhwSNMLu7Z/5IamZVDEtDlkz/+Mh
vS44KkUDyP9XcueGx17ad9i4H9dsc1aQt2j4mRu/nykOAQAAANgod/Xi2V+M
erL3ec13S+opUlatoy6/6+m3xk2Z++vy1dkFvR/Oy13/x7JfZn/90auP3nJe
i92Te2aVUbHRydf0H/LG2Enf/fDL0pVr1ufE/kp6YyC/zpky7j/P3n9t+wOq
bPu5ctm6x3Z76LXPZi78Y8uHlHk5a1cu+uGbsa8+cvM5LfZI3xvZAhVdHLJZ
W6xb9duCaePefKLPJa3rpGGdhkIVXRyyyYbsNSuXzP/2z0QualUrqYezGRUa
HHNZn8df++jrWT8vXbUuJ643kBuy165ctnDBrG+/HDvq+YG9Ljpiz3hOjjK7
HXjyZbc99Nxbn0ye9fOyNcXxFfua+R89fv3JjSoX/Fw3hcUhuVNu/1vKX7gV
qcKpQ7fX2pD/FYxOwVU9fcKop/te9ve65SJvxBJZwXncud/wL34tbu81tylv
4TOnVv7/0WdU7fjy0ihPAsUhsVo37rq9/ud+XabZ3dOL4wgZg7wNOevXbLxP
fDN+9EuP9el8QsNKkZ4AJXdueFzn+17/dlkcDZi3ITd77R/LF/+4KehG0Qa9
tTK7Hdyh59PjC37VHbr1P37wQKcWuxdxg88oW+PQDt3ufGT4exNnzP916cp1
2cH0c+GC2VPHj3rmgZ6Xn9p0tyI+IGvPwy/513vz1qQlx7/YsHzKy33OOaSo
jBNTcudGba+8/7XJi7caV1Z93uuQ/JtYEdvKBLPZlYvnTfl4xGO3nHdYXBOv
CKSiOCT7x9G9jq1RwFenjPJ1W53b44Gho8ZNnbtwxZr1ubnBfPi3n76f+OFr
T/a79pw2e1f+67eccvWPv+7pCQv/2tR/fNj1z+VZSlQ6d2Ry9+11P7xxY+vd
C5i8ZVZs0OaCmx4c9vZn385b9Pva7GBEWf37bz/O+OKDVwf37daxVf2/lgtk
VNj75Bufm7Tkr9++Voy6uEbw1zJ2u/y9mNozhV8NSuxUq1WnXoNe+3jK3EW/
F/w190+561ct/WnmVx+99kTfLidua6ock/LNe3++Kqm+CG41wUWxYMYX7w1/
+JZObeoXXVRUcue9Wp1x5W0Dho786KvZW3/1TUbO4onDbj3jgKpFzetLVqp7
aPvLe/Z/4tX3xk+e+eOS3/9Ym7MhN7hlLl80f/rEsf958bG+1114UrOa5Qto
2pK77HvClfe9MnGruWfuvOfPrJn/PygOAQAAAPirDb+Nu7NN1cQe9pdpcvV7
8b1SzVs+aeAZ9RN8fJtR7fh/T0vVs/LcX9+55sAC3p+W3KPt/V+siCWpvJVT
n76gUTEqrIijOOQv1s4Z0a1Z5WL0ljKO4pC/WD3zpauaJvbiqsJBV78+L4Wv
tPOWjb+zdZWiQylZtfnlg8al6S1XTHIWT3rx9nOaVS+0qit1xSF5i544Pvqf
qlc4ZQeoDfmrtXNHXn/oLvFeDH/+HjZ7w4bc7HWrVy7/7dcFs7+b/PlHb494
7rH+t3Y7/6TD9q4SU3FfmeoHn33HiGkrUrWYTGhyp/U9eLOMyrZ+aG6EMSsO
iU3eby+dudkUJbNu1w+LwSvzlMhZOPbu4/eIb/2DjOqXjt54w9iQvWbV0p9n
T/nsnRce6XNV++Y1y8V4NmVWbtLhzrfmJNqI2T+/37tN9XjffWadNmyL950b
/hxllv36w/SvPnn7xcfu+efFJzWrVSGOjy2/1ym9Rs6O8lRYM+etO09vWMSL
1ozK+599zxvTiirAWf/rl8Pv6LhfEfOVneoc3/OVGavSdXP6f+yddVwUWxSA
md2lQRALwcBEUTGwuwsVu7s7nh3Pn93drdjdLTYqtmKLiSIqKB3L7sy+XWBh
gY05Exu88/35nuzUnXvv3PPdc+I+nJ3f1TMn3Ydimad0nXaDpiz3PXvr0Yt3
X378iRFLJQmxkWHf3z25ffHQpvnjereo4Kw2UG+Rt0Lr4Qt3XwkMiREn/Am6
vnlolbTRS4ccogoV83pP/zIGECM1wVYOIX9dnV4nd9YHYO7SYPzep1qrxShK
AH29vXNSq5IZW6x14XoDFuy/9T48ISn66+31XYunfJBZdTrCPHOWNOT8+Gpq
phuWhZpNO/xCa7UYxUP7dH3L2KZFMjw2wrZo46FLDt/5+DcxKerTtRXtCie7
BYRT33Pw+8ni08DWc+gRBp2MJPTmIu+CjPdCCAv3OvaDu7mINOz+pr7l7DXc
AOuSnVdcC+ajI6Vi3p2Y3b6UpgMrsSxQZ8DCQw9pSsVUfMjD48uHN3NX59+I
cpVpPmjuzkuBoXHimG8PDk5vlv4QUA5BEARBEARBEARBEATJAvXraHcXBtuc
HDoeYlIcWfLJtz2TwwnLznjKaTpx8aNpZTOFZawrzXwIWSOTfNrcHBiAtWi6
9Ze6u0aRUklSYnxM1N+w0OBPb188vnvt3FHfDYunj+jetDytgvZM5RDFwX8d
6+EKeyZpNXeyXAcpTRLHx0ZHhP38/vn9y6cBiuDy5mUzx/T2rlKIVuyHqRyS
fCEnexeCNi7CoemmT5xvRic/ra6jVXOwdGu18NoPI8iQrx4q+t35lUPpZaDg
Tg5JON8vt94D5natfX9nMzdEAfX38rDisMBzlmTpmZBGBl3bMbW9B51tsUKn
Cj2W+n0zYvEp1m9oxs5CWGryff2dry45ROTo3qDb6Hkb9p+9+eTt59C/MZkz
ZUkeTC4Jeb6W7Q/GZTiD5KwQMRG/gt8H3rtybNvicV2qu2rbY20QOYQMWlEr
w0kROdvvz0YuV+zdiWUgQcQ0OSQz0j+BR2e1K2lL83ds3busffCX4X2Mvj0e
dNLq5BA1ULGfb+yY1Lok/eoZdmX6bA+M5r81UBGPN3YvpeveWhRus/TWT8CY
nvT92tIOJXUoxlZFfRZdD9XzTCEu6NRM76L05GeBffEmQ5YefxZGp3MgYz7f
2jW9S2VdqVPSAcghCqRfdrQC+u6aJjDJs9nE+FjFrPzbp3cvHt+7fv7o7o1L
po/s0ayiCx0Zi5UcIg7a06NE1kkkkavOv9d/0Z9wSUJvruyuS0Oi94KqJf7V
1g6Fs/YGgnyNF94F5OISf/Nb3NFd1ytm1+0Eo68Dhp8GTTZ8ZPxpIPl2YlBp
pjlLCMd6ywO5TMFGRd6dVSNrIxAW7XuSQw0lnbigE9OaFdZletuW6rT40mdG
YgoZ+erYnM7lHGk/VJRDEARBEARBEARBEARB1EB+2dTUHrp4JSwx8T6z9Wrq
z7kBbmA9xLLN3ihuL1vyYFKG2JpFpdlPoatxYv+xRUGXokkO0QoZ9eHa9ikd
y+fSFgpkIYfIZNI3CyuDqnlokkO0QsUF3903t1d17RV5WMgh8of6dEYZWEBc
4DrkCvMtk5pJujehuKamYVW845r7f4w0s0LCt9vbJ/qUcaR/GzmTQyRPpgOf
HgdkUzdEjvTtoiqgt1qXHKL83bCAjX3L08k2RNiV6rT0Rqgx1gGhQn1bO2Q+
3by9Tkbq6wQ0yyFWbs0m7LwboqsXZC2HqCHh65Vl3cpo2OprCDkkwX9clm7U
suby98bYpJhBflpRCyBaaJRDUoh/d2CQpx3N37Iu1WdfELNY68/tLUBp0yCx
56Tvl+c0K0D3nhA5vMaeC+GxPZDh91a2L6YrykvkqjPj6k8Gp0GGXZ9eS1ea
MaFzw5l+elJJyT8P1nf3oNeGRPlqjdj5mMlUJjbo7MKu5egMIkA5RN5+7k8C
dYzMJjBk9McbO6d3rphb2xDLXA6RfDnQ3U3NT9vXmB3AwIZKCDo8soo2k92i
5U4mVdXE73e0c816s4mc9Zc+1TnaZCX29Z5B5bV5LJYdDjHMccHg06DAsKvs
Pg2kXw90LcR0RmvhPvxSOJczU+m75bUydtoC135nmWzx0A4V8WhjzzK6DD/C
sfLII0FsE5ZIQm+t6lGOVlYYlEMQBEEQBEEQBEEQBEHUknDnnxLQJSz7zkeY
1kWmfuxpS6PoRgaE7pMfcLs2Lg1aWk1l8dXBZzdc25DFHuoAipEwkkNSISNf
HZ7atJCGzVis5BCZ2G9IfsgTYSSHKIn7eG5Be417BFnJIbK4Y13ohsZSsPTe
xWRRXBdUxMEOOdQer1iHNQ+4X5DlAEn4syPzelVzBtd94koOoX5sasSw6BRz
7FplVzdE/laf7wfaQ01TDkkm/u2+/mVppSkQ5qs3+fRnI0shIn2ZoaSMEtvG
G4P1JG2pl0OsSnTbGkivjgQfckgyCR+OjPRSE7bVvxxChR/qpGamICj+zx0u
d1UbFvG1YS7031IdcogcKuzqPxXpltYQuvpsec0gAip9ObciRDyDJiaQBJ8Y
7EF7272Vx9AzvOx/lyW+39urpM7zIHJU/9efVjlC9cQ+WVxPpydhXrDNmsdR
/I5V1J+7S1sVojUIC5yqDfd9+pfVXRcHX5rr7aYjvQBYDpHFAyeBbCYwVPSb
YzNauGloIgzlECrq9uQKaj4siFze278wnnfHv97RtZimm23ReHMotG1Rfy6P
Kq3mBwnnTgdCGDeMmGcb2hbSpIZZttnDdJMAg08DX6aplVSO+nh+TfDWC+V9
zOO9JYjDEZf6e7CDqhArLPvvM46FMyry8frOxXV2mOZuHbe9YiAPqSfhw/Fx
NdQUX8oIyiEIgiAIgiAIgiAIgiDqIYM3N4UtnCXLCMwTJj+aVga0p93MTFRh
7ktOt4dKHk8rnRZbI/L3O8fEdRFfGay1NkBm2MghyVARj9Z2LKpmQZadHALN
2cBKDkkm9vWeAeXUtTl2ckiS/7gikFwubIvCa0D6fmWdrPE580Ktl93jQ0Vh
BxUTdHHN8MZFbRlWdOFKDok73QvqjLHGttWubOuGgN9qiBwiU0Shr02uSmvT
ppkgb8M5N8OMJ1dO7JWhBdV2E6KyM57oJ4KgRg6xKNHvWDDtbpU3OUSmCHk+
WtY4T6bT07scIg1aXlNtMJPI3fUo+7idkQBL26VbDpGT9H59E0e6XamoSK9j
8FBu9D4fXTUDVGFQtULyYWurvHQvgshRY97DWOhFaIeKfLCsmbPuV0xYtP8Z
drM6+Qz8+6GuBXROXIgcVSb6/earG419sa2brho3qefhUHn0iU/c+FlkmP/i
lgW15ImByyFJN0bovpcqsJ7AUJFPNnYpoSYkzmh6Sf0+3a+wumZnUWXha3bB
fOmPM8PKqH3E5nXXALVIMuRgF7UVQq3rrv7Iro1Kvh7pW0KtomTRfDvTmmLg
TwPnwVe4+DQggw90BjXHDPey4hR/7oQw6veOFumtVFCE4/Fc/OnIEBppq0RF
uh/4zPVEQvz52LDyWo+NcgiCIAiCIAiCIAiCIIgmYi4OAi5gCUtOYp7Lg/qx
s5XaxApalpQqzuPUDok+1CFt47uwxPi7jNYBk26PAZXIYS2HKCBDz4/yzKwe
sJNDpK8XeEFsHfZyiEwhutyZXTtLqmt2cog0cHZ5yIUA4+H0EL9e1TDzRmCh
c6M5138ZWTWExJC7u6a0L+fErpYLR3KI5MFkd30XlbH13sX+fTRayA/LqgMq
VjB4Gahf54aUohkktirZ+8Ano1idp0I1jz6ES//z0fo4icxyCJGz0epXkJ6P
TzlEpgh43p5cMUMcUd9ySMLtscU0Da7W9dZ8Mh7XiBVU6KbG9BMm0ZJD5I3j
9ZIatBNvEI4N17wBPllgViIGcoi8//rm65Ob9kHM3Uf6cZeSiwq/PoWW+WZR
ZvwtLjoMKvLqSDr5+2w8R1/8xXnTp/74z6lH714L8rdc/YRBZRMtSL4eH1JW
U7IbuBwiCZgIyoTIyQSG/HVpXMXM0WkGcgj192x/9eKiVZPNIexvu/Tbsb7F
s84KzKsv+wC5B9Svw12c1bYXO589HFRDSfq0r4uaiiwWDTcyvQfgT4OSkxhW
Ts1yLbfHFGZqh5gJCnQ+wFk2M8kTldo6li25TJoY82xtKzUFhjJD5Gq8+iUf
dTyTZb4ljfNovNEohyAIgiAIgiAIgiAIgmhE8mJOBUggMaXSC/PFlthLg6E2
CqdJcMW3Rqct2Jl7zX/FLGwPXYbmRA6RIw0+2CXj7WMnh0DDyJzIITJF8oFL
w0tlPDBLOeTd4iogy4XrhDQyMvTM4FIZg32EU/V/znw1poVJ6Z/AYwv71HCB
bP7WCDdyCBm8th6sA2KPrffObOyGgG8pI1MqMXBJbbqen3mRbns/GLzAjPTl
vEpabot9i+3Mc+LTJ6McQuRu4wsMAfEshyhO8fn8KiqGgX7lECr8YEctiYSE
pSY/MHhL4oYIX2/6/TBNOURGRZzoQTvvhpmZXb3V70HjYNLtsRAtlpEcIm/j
gXMq0u/BRCXH3GRa6zADVNS92TV01nlJPqTHxLtclUegfh/pSisPnX3lqbe4
rExHhV2d4EUvc6DA2XvDy3juDp0G+eviyDJqdSYGcsjjaR56l0MU1xBytGfG
lB9wOSTx4bSy6iewokrzGH6lZCb+2ZI6mVu3yGsBZEYfd2tMcfW32LzWys/c
DJ8x92dVzdwqzWuv+sLw16GfBsJyM58bgRwix77mgsccdTIqYw2Rf4gfRyMo
Ff1gUX06rqCwUM9joXxOrmIeL2ukwXFDOQRBEARBEARBEARBEEQz1I/tLWHF
kQXFxt1hvrokeTbLE1ZaRlhiYgBXqzuqaQqsG21gujULmu2AKzlEscHw/EDV
6AxLOeTjipqGkEPkxAVM9VR1KdjJIeSH5TVAF1J54VsO5RBpyNmR5W0zHMHG
o++et3yEU1hAhR/qpAy8CnO4VW7adeiEf+cvXrJw+sjOtQrSyiyvAjexldjj
3Rx0H4tTsrkbIu/SNzain5OAcRodadD6RrQiqQos3IeeN+xNj708RP3ObCXm
Fea84DybUBYyyCH2jTaAI2r8yyHye3V7XPr4plc5RPp+WQ2tygSRr9epSH2d
Da/E7G/LvRwikyVcGeJKPyRJ5O1yBFKwQXJ/EqT1MZRDZFTotua2un8+7TDV
l7IfzpPeb23tTOvOCVx6neSyTJz0w9oGtCQNIk+LjW+4iexSkXdm0RNh5AOm
17Q73BW5yIzk895OaoRxBnLI0xllDSGHKG7mlWHFVA4NlUOoMM1GnGUr3whO
TlIO+XVn64wxdGG5mfTVeypkR0tNQqh1p6OcJYaQvF/fOGN5LFHVJTCJLR3w
pwFnqSrZyiHycyk2gHXlqmTEF/orn7uwzIynnExz4p6tzFKCTi2CQv3P8l5V
k4q8NamCuk8YlEMQBEEQBEEQBEEQBEG0EX22X35ApnBFxtshV5jvaCK/rKsP
i0MLCg67yk2YPSk9tEE4tt/POA2y5OGUUoaRQxRxk73t0heSWcohn1bWMpAc
IpNFXRxUKH3tlKUcAr2QqovfcXUh8a93di+eIcxnXtB7+X0u9/hyRsLtSTWr
dpy06ULg78zBi8QvZybWyFLtRwucxFaS7o3XWEOCJ2xbZm83REb93NxED3KI
vBt8s6yWpqoAWSAc6y0PZPGKs4NOQTNBwaFXYvk+ERU5RFhy/F14QE0fcoiM
DN7URBmc16ccknBrTFFd3YFt442c5ds3JHEH2/Mhh8jiz/alX5RFPjeptgQg
VkgeTyutBzlERoX5tgLYIYpXl9Umeyry5vhyNAvy2NRfy3Vtozi/YYXoDYNW
5cbfjGQ9fCW93+JNM8EM4dR0w3t+pTkq4toYj8wjFgM55Nm/BpJDFOlfDnVO
j5QD5RAyeENDjZ9EFi12cFCuJf1Qu9qo9g6KPJB0H670/dLqGucVVkyGGc2H
+rChsaq5JKrIONOf4b5x2MshirevyVoOdLAk/3FFUk9FVGURB1685Mu+zgVp
vWxE3i6H9TPflnza6ZM1BRPKIQiCIAiCIAiCIAiCIFoR34flwTAjcnU7xjz2
TYXtb+8IslGIPD1PRXFwoYm3xiiXyIj8A84zT0VuSDlE/rweTEkL0JiwHCIj
g1bUSovHmKYcIv1xaUrNDHs+Cacaky6E8J+BgA+oPxnT0miHi9gK+XllbT0X
lbFtueNntnZD9CeHyGRx/v8Ahg5Lz8l3OKn/AEbyYi6dOhUObXbz3TbS5RCr
Oqs+Mnh/9CKHyGRRZ/o6p5yn/uQQKuyAtpIySkRlZzzJBuEevuQQ6vf25pC6
YaC6fZKnM8roQw6RkV9W1wGMDETuHieYTxGp0KM96FY75Cd1jeT57PI0E+oJ
CvY6wWo2SUVc/4euCEM4tdzGtKAHhPj70zwzjlmmJYfIZElP/y2nfIIwOYQM
Xt9A8wsrLMtRpodUJG+W1kw3UQRFaHfu0vdLqml+I0VVFnGmWysQP51dMb1B
CMvMeMLwJhiFHCJwLuAC+sRWwbLM2GtsTXOVVJfmNZczmXZkIObeDC+aVrB1
jaVvuC3gqQXq18nemSU7lEMQBEEQBEEQBEEQBEG0Iw1aXhMSTjAzs2ux/Qfz
9arY8/1huUrMHNrtgyQ/V0/cpUEuqYcVFB3nz2I/lmHlEBn5cVXt1OdlynKI
jPq9t62ypojpySFUxIOVrQtmOKqtR9+9xlZLBoT0xZwKdIs+cRFbiT7cSX1N
K/Ocxau17DlqxpKNe09cuvXgxfsvIb8jYhPESVK6h5Q+n+Wp5h21aZHd3RB9
yiEy8vu25oCqZKISI6/yV6BAI7GXB9OL/VpUWcRzKCNNDrFl2BD1JIfIEq4O
S7lnepNDpO+WVqc1DSFc+p+P1scZ8Qpfcgg4G5Oo8kLajV5vcojqZnd6N6jf
OYapC8hvu9vSTKOhSPczMYCbwi6ZTiJ4Y2O6WZgI504HfzAdeqmfx3tqr6+l
gk3tFZyG/LUQc2usu+rUw9TkEBn5dX2DVOsCJodE7GurLUmORe2V3CaqifUb
lpbRQlBgxHV6nTsVuqWptv7KuukWFp+Eao4XebpP2leisMTE+6Ysh1h22Hlj
ZhVAKqQMEM5td31mdU6SR1OV+wnMa68Cl7LLAPXrZJ/CNN8zIl9v/RaBo/5e
GJTRb0c5BEEQBEEQBEEQBEEQRAdU6E5vQIhPjkWNZUyLQMsypPCgiU3jTSwX
cqmIo12d0usuM92IloyB5RAZ+X1zk5R1aJOWQ2SyyGPdUp+Jickh8e/29iuT
YbHXvGCrFcZZSwZCwsnuuqpvpF0w+9hK0u0xGVdyCduijYcsOuD/KYptM5No
ckO2Z3c3RK9yiEwWc3kw7VijotWUmXSXw/zzdKB+7PCm26gFRUbd4NXuUsoh
1i22MxsS9CWHyBJvjEyObelLDqFTUkaJfYvtIaZeWoY3OYQK3dQY8v6bWbfa
/ZdmW9SfHEL93tYM1Iu5T3nIpBcjf+zvmLUYgcajsJw5aob6s68t7Tm4wKXH
8d9Mug8y2Je+CCMoOuo673W20shYmcX05BD5uLujZcqUECSHJN0arb36iKj0
5Puc1mOTvllcNfXVot+viC8N1N5wLCrNec7pOCF5OlOZi0XgxjjCbxxySMcj
CdLPu9o6w/ZEpGNbZWYAi6Rr3MkhZDDEpCs99aG+xQzq15GuqrcZ5RAEQRAE
QRAEQRAEQRCdRJ7smQe0cKWIKDJfc5E8AcUYzJJtlCA2a3bUz53edqm/ZV6V
ZdllQ8shMipkU+PkxOAmLofIoo52dUz+aROSQyQhFyfXzJWhlkyumpMvhugt
ezKPJN35h26Eln1shQxaWj39qdmU7LzK/xdHkTfJ85nl1LkhzbeHZnc3RM9y
iGrggRZWVRe91GfZJcmLORXo9w1Ezg4H2Cep0kyqHGJecwXD5O56k0NkideG
K3KH6EcOocL2d8hJfwZiXnHuC9Os3ZUGb3KILOFENzvdP5mOsBRtr0J/cohM
fL5fLsiU1LLlzj/gF5eKOD8wcyECbXfKc9ZzvpodFba7Df3HJiw+6gZY3CBD
9ranP823qr3yg14NLEng3EppPbXpySHygXd782RnGyKHUOE7WugarW2qL3iW
wOWJhm5vkWo2O/Y+S+s2k9/W1dcxihI56q96w+VIQX5ZUzeliyRchgFSsWT8
ESORQxIVnc21cWVhKTrTERbudYxxuiCu5BDym69PbtodiMiL689Feif5ZWPj
dM0O5RAEQRAEQRAEQRAEQRDdJNwY6QZK5iEoONSP+RZw6TttBazVISw3k8W6
PPl1XX1lmXWr+utYllHnTw4RXx6Ul6BhSpAfV9RU3D9jlUMkj6eVFppZNNms
I08DFb6nTfIytYnIIVTE/RWtMtWSKdNv3zsul+4NiYaEG+pgH1uJ3N8uNURB
ONVf+CCau5j8/9kN0bccoqhFVJ5uLaLkh52ny2E+/YuMxFwaRK+kjBLLmstZ
aYjaSZFDBMUn3GPYbetPDpHFnuqVi9CPHEK7pIwS+fTjiv6yGvABf3KI2G8o
qGwf4dT3HM0f16McInkwCdTQReVnB0Lf26SnM8sDukoWry0NyO/rGwBOxrrm
MpjiTP0+3sOFflfISSlHGKoZDI1JDkm6NtxVYGbZ4ZCOpFJk8Np6iicIkUOk
rxd46R49LUoNPc+hX06F7fFJSaZlQ3PenTKh14W15z/X4IaWRtIyJBK5+18w
fTlEjvjNuiYg5U0FwrHeskBmHxrcyCHU76PdALlPRNWWsMguyoZ4/3/Shg6U
QxAEQRAEQRAEQRAEQWggeQpbWjUjcnU5QjcbeVbI4I2NrCGHMxMU++cO02rv
0reLqipXCO28d7KtLMGbHEKFbW9uQcuUSF2sNVY5JPF0TwczGnKIjPy8qrbi
FExBDol/m6WWTKHWKx+YfC0ZFaRvFlamGehnLYeIr49ICdtbek64xelN1OSG
NNv2P3BD9C6HyKSv5lWC2CFm5p4zn+kn7wMVsr0lrGCa/H6U+OcOp2n8VUmR
Q2za7otk+AN6lEOov/va2ulFDom/OZp2SRklDm12m3SFKP7kEJWoJD2sOx+j
2eD1KIdIA2d7QnoVgdtYf1g7pX4f6AiJ1BL5Bl7i0wIFXrHAtf+5KPq/Hu8/
3p3+oyPy9DwJ+HGuiD7bNzX8bExySMTu1vJXVbccIpOmuLUQOYR24i17rwlX
fnGV6YT6vaNl8ucX3eGBbp9CONb89xZnfggZvK5+8lQmR8/TDIdk45JDFGVP
zgwoBpotqWDhPuxiOIOby4kcEndzTHHA+yWqMPeloZIpkiHbW6RO+1AOQRAE
QRAEQRAEQRAEoQP5cWVtWM5b26ZbmIeHqd/KzWt0EbgOusQsziV5OkO5bEzk
7HSYudKi/D2+5JDUyB8dUyLhQv88hLHKIeTH5YrEJjTkEMUlu9O8ZA4vBCyH
JNeScVKNJAly1Z5y6Ud2qCWjgvT9kmp6kkOUHoq116xHuoIuMCTP/s9uiP7l
EEV/CIg7yhG4DLjAOGoMObFASEkZJUTurkdZjxF8oUc5RF9Qv/e3B5SUUWJR
ddEbE+5+eZRDbo4ClEqR49DrjBHKIa/ng5QzQcGRN0BTIenrhZVBnYONz94I
pldDi8Tz/egXbZBj23hjMM0hmPywpp6t7l9UQuTte9YgiXniLw1ySb4FRiSH
pDZ6GnKITOw3JD8Bk0MeT/ege9bW7r18X3PTmyulbMtWu2m16ST/sbQzS9qW
G3QwiBuLSplXxbrz0Wwih8iJf7KwVg6m6UPytNz8HvzFx4EcQn5cWx/QgZgJ
S0wMMGDht5gLA12Tbz7KIQiCIAiCIAiCIAiCILSgfu5qBdtlbV51MSyzdQai
TvakXwBdAZGr2zEmG67F/uOU+5IJ537n2EcleZNDIva2Uezno2NKUD+3NLE0
VjkkMdlcoSWHyGJPdHMwbjlEXS2ZsgP2v88utWRUID8sq07zRrKUQ6g/u1tb
KzL1j7nFcfBaoxuy9YexRvw5Rf9ySHoSGNrYt9rFv6kTcxFYUkaJdf21THOv
8032k0Okb5dUg7TXNARFRt3gVivTJzyWlbkyOB9kYiUoNPoWzUmEPsvKAGP9
wpKTH0C6scRbo4uAOgdRxXk8b4VXlCUB6Sq0S+nEXh5SEHCxRO5ep/Qh76kh
/vLgZDvEiOSQ6IMdFGFxOnIIFbazpRWsrAx9HTf5yThUHLLnJQcV+CT3J5YQ
Jn+a/KbzYxqSsWlC4FRt9OF3HAw8SSkzC8u2+xm2RyOUQ+Qn9e1AF2YzEznW
FSbfjoI1APZySNy1EaCys0TuvucMOjYrN4SgHIIgCIIgCIIgCIIgCEKTqFO9
8oJ0DaH75PuMV16gi7ly7Fv7witvx10a5Jq6riUoPPIGByF9vuSQpNtjklfg
2JkS9OFr4VS534+WHMIFPMoh8W/39PWwUf1j88I+qx5GZk/PQH9ySMoe2xzN
t37jOAqvwQ2xbvo/cUMMIYfIIg+0h2wrVTyPRhu5fvKZUMktDkZYespDpjXM
+CXbySHxN0bBgvTpEDk7HAgz1ZeaPzkk/kgnG90/mY55rZV044V6lEOg+U/k
V/EJ0KHEnu/vDFOTc/c7z7cOKr46ND9sAl5yEo0JOPltSzM7yM/atdtvsNRJ
sSd7KDK0GY8cIgmYUFzREOnIIQyI2t8OVl9TfiaFm009+iaG3ROKPtxR3ibM
69O7CdTvbc2gBp91sTazT39gN/pQ4btaWsm/JFruZFirxijlEPl1RflPqQh9
7koEBTofoJsyKBm2cgj1a4+PA+gUrZpvpyUd8UdqKVmUQxAEQRAEQRAEQRAE
QeiScBO4m1JR6oVh+umEG6NAe5FS1pwarP8KXNqKPN5dmatb6D75ARcLRTzJ
IeSH5TWS1zFNXA6hwne3To5OmbocIgm5MKlGxloyuWtPvZzdasmooD85hC80
uiFbWLsh4hD/HTMHelcp4eJkY2Fpl7tA6VrtRyw89CTcuNqDIeQQ4P5nBZZ1
V/OanUPyfHYF5SkRTq4usEgMka/36Sgez44x2UwOoX7vSy8pY5HfNQ9sSmBV
a0WQEXZCdOBNDoHmnyBchtEvgqE/OSTmYAeQ4pKzN93aOApiz/SBpa0zM6+5
/CPfTY38tAI0j1FUb5gQoGtKKw2cXR7UOVvUX8+zuKcFKmyXt40RySHk1zV1
k58JT3IIpK5MhofkWm/U9vu/9VW6A1JXRhWrwk3G73nyx2DNyUjlEMX/D9rq
DduLoYJ9zfmP6Y/rLOUQ8vPaelag0xOWm/nMgEVlUs96dV1LlEMQBEEQBEEQ
BEEQBEHoI3k+yxO0jkzk7HiQyZ4uKuJYN1B99VTMqywCVbKhwvb45Ej9W1HF
udzkBedHDqF+7WiREsE0cTkk7nSvXMmP1pTlECri/nLvAhneBbtyAw9kx1oy
Kpi8HKIhQsTWDaEiHqzqWEJ9cgxBzooD97wxnvoWhpBDZOIrQ2Ab8c3MLBtv
CuGvd4i5OFCZL8pM5Pnv7dMDXGGxLdsmm0C7c/VE9pJDpG8Xp5WUIfJ0P3x3
UVXY/nRhifF39TJWcg5vckjSjZGQEiJmOToejKB70vqTQ6Qv5oCMBouGGwG9
ScLFgaDKO3Ice57mf+xPONUDtkPfTOgx/bH23lt855/ioK5PWHqajp80SviR
Q6g/e9qkjPs8ySGy+HP9gJ5SOgKHMp3mnnjLQZkZnUQd6Qxsmiqn6VSh+6Jz
HxhuI2CF8cohCov+0ohSjCqqKU60WP/TdNNospNDpO+WVIUpa/LO8pTxTIgR
BEEQBEEQBEEQBEEQmpCfVteFbRKyabwRHkQjv29uCqxDkIrQA7JyTX7f1Fi5
/9Si1kqOtn7yIodQ4XvbplZBMG05JO7iwNTc6CYrh8S/3dOndOZaMqsfZdNa
MiqYuhyiyQ1pspmFh0CGnh1RTntvRTjVnnvXSJqHQeQQ8svqOsAAgpld270M
c8XrPp3v25qnlZSxb7k9hJQ8mwnTHs1E5f59anx7TrOVHKJaUkZYavIDMTx/
PZG72zGDlcBgA19yCPltXX3Im5ij7b5w2vdPb3IIFe7bCpI4RFR54Rv6Md2k
e+OLAdMgiCrMfcF/hijJ/Umgt1uOeY3lH7SNwwl+Q4FanGOPk8bbZWiGFzmE
ijjUyTHl3/Mlh8gij3bJydQOSUaUt2q/5Zc+8fvQqN++rUG1ibJgkb/W4DXX
vupXrzZmOURO4osV9R0ZPnzCqcna17RGBVZyiPT90mrAqZ159aWmmtALQRAE
QRAEQRAEQRDkfw31a3ebHLqXf1RXgrwWQJfTpK8XeEFDiUoEbqNv0lUnyKDl
NZVxUpumW0I4WrDiQw6hfu70Vq69mrQcEn22r3JTrknKIZLv5ydmriVTZ/qV
UOOqHcITJi6H8OGGSN6uaUhn+V7g0uXQD2O4IQaRQ2TiSwOhOdIVEW9++jnJ
81lpaQcEBQdfVkSoyW9QH1HgOuAC46oYfJGN5BDq9752aW+WTaMNyQXj4vyG
FYLFsq3rr+W1PhFP8CWHRB/tAtBriPz9zkXTP2m9ySHRJ7o7AboTi5ortBoS
GWFQBMvMouVOvkw2FcivcMfOxmevlswv4pujCsPeJ1G1pUGmONnhQw6hwva2
Vb5NvMkhsugzfaB5bNRg4VJ78Jqr/LkX1J9DnSDvpAasCjUYuenWd32lezJy
OUR+gj+O93ZjUlco+YfLjL1GQ41kI4eQ39bXh2Y3gZX4QhAEQRAEQRAEQRAE
QYyH6NO9YUuVitTudHOeJ5PoPy5t46Ztg+EDysIq2Tj3P08v5KCamtyhHWCD
rA54kEOk75ZWT1uCM2E5hArd2SrNLTI5OYT6G7CsZcZaMgK3rnuDsnctGRVM
Ww7hwQ2hfu5pS3dbr6DQkCtGIBMYRg5R+H7QgKuo4jxu6nxlIvpCeg0Zc6/5
ymNEnekDLH1j33IHq2pEPJB95BDpm8VpNWSI/H3PRKX+55fzKsHi48LSUx4a
X4oXXfAkh8Sc6gUo12dVddEryLuvJzmE+nOoMyAOTeTudPA34D2NOtQRmgOB
yNXvAmiOy5DYg+1hifsUw87oWxqbf9K9CbCaMmZmOXvpoX4OD/Agh5AfV9VJ
exz8ySGypEfTYd9AmrF0rTt03fVgXp5gwu2x0MakCevCjUZv8Q/h/5UyejlE
TuyD2VWZJmUhnNvu+qSrC2cjh0Tsbwc9N+7uIYIgCIIgCIIgCIIgCKJvEm+P
KQpaAyTy09U1kok61Uu5yZzI0/14uEp6D3qHy9npEJ1M8knpObqJPD1PRjG/
I5ngXg6JPD+gQPotN105JPH+ZI/0VW7TkkPi3+zuXTprKnurcuNvGknBEP4x
aTlEQ3TIqvEmxidKfl5dB9A3OXQ6FGHwpmIYOUQW4duKfrA7Feu2+7jrlZWQ
37c2TwtnOLTZnd4FJT2a6gHbo2tece4LDu4Nh2QbOST++kg35ZCXoYIP9WOH
t73Wa8oMka/3ae7bEc/wIodQv/e1p1+iQuQ+9iZM3tCPHCJ9t7ymNf2jWFWe
HwiRgySPp5WGbtWHVTNkjvhCf4Dbk4JFo02aFDYGOVJE5WcHmmRkl3s5JObK
UJWsKzzKIfL39nAXDpKHpGFduPHY7fd/cd1iye+7WnOQPCQNm2ItJu55Es5n
czMFOUT+nn7e3T4/U+/Gtsq/Adq7WRZySNKNEQWgJ2blsw+QjQpBEARBEARB
EARBEAQxKqSBs8vDlpQd2+0LoxkVpX5sb6mM3QmKjrmdICO/b24CqS9vZmbb
YnuozsMlXB1eMHVZS1BgyBUOF3a5lkPi7k0uq7qAaapyiOTN8tqqlRtMRw6R
fD8/obqmZW+Ba+cD34zLg+ALU5ZDJE/VuyGNNjI/z6j97SA9E+Ey7Ko+9pdr
xUByiPjKYHB4S1j232dcB7Akz2Z6ppWUcRt5XbXfJ7+sawCIOit+odAwP6OS
K7KJHEL92ts2raSMffOtGV7RmIsDXWEBKdsmm4KNqjPSDR9yiPjp7Iq0X33L
suNvQmN4+pBDyB/7OwAqVFlWmPEANreLPtgeNt2UY15zxUd9NDAGmT7kvdyY
2+rlGOrP7tbQS7VosYOzFHt6hWs5JOHhjAqqbyifcohCQ93anL7WRQvCoUyn
+ec+ctr9S96uqgcz93QiyFm+x9LLfJXDMQ05RP6qRtwYXw6aNEiJsHDPo9pq
pjKXQ8hPK2pC61wJCo68YXqZvBAEQRAEQRAEQRAEQZBUyM9r6sEWqqwbrPtC
a81J+nZxNWX8wrzyguSFOCpsXzsHrT+fGcs6qz/pOFz0mT7KEIOg+D93uIzZ
ciqHUOEXh7lnjOiYphwSE/BvFdsM/9405BA1tWQyQ+Sos+SZSeZaB2LCcggf
boj03eKqIEvOspVvBJcXxQQDySEqAQj62Hc9znHALfp8fxdljM2y2pK3Gfsr
KuJ49zywEJyDzx5dNcH0SfaQQ6RvFlVRtlFBgYEXMykEkmezPGF2qqjczKfG
leJFF9zLIeLXK2gHboncTde9hs+J+JdDJB+2taL/hhJOjddALwPcqSuwaLYN
UriGMaqVEGlj1e6A+tuc5D/WDaiaEE59zxvcb2QEp3II9ddvtEfG95NfOUSR
PWJnG4AURRcrt2ZTj76N4azxSt6tb8KxxaLApnibWac/cD9UmYocIkf8dn2z
XAzvLOFQb1mgxi8U5nIIk0xG8lv4yiRzDyEIgiAIgiAIgiAIgiDJUL/3+MB0
DVGFOS9orAiJ701Mi23ZNd+m3O4UdaonLGYnqjRP6wIU9edgR+XOZM73p3Mn
h0h+XJpQJUfmKzc9OYT6e3dhozyZ4xAmIIfEvfFVV0smKxbuIy79MaIgMT+Y
rhwieTpDgxvCIumL9N3iKiiH0INBBQN5I6q/jtOcPOT3rc2UaakIp44Hsqaz
Uh2A6GFRdfFb44l1ZAs5JO7aiLSgtdrKPeS3LU3ttF5XZgSuAy4wKWFiMDiW
Q6jwq+PK08yKQzjVnR8QxWQw41kOkXw7OdiDvpVs5zXhKt2Edekk3RpdCFzB
warDYV7NACVk0FK6A3A6mtKaUL+2NgUVbJQjKDLujmlu++dODpH+8ptS3THz
rJxvOUTx1XVhqDv0gdHCqnDzGac/cqQ3kz+O9y4CHurpYFPcZ96lr5y6SSYk
hygawLlBJcCvfyoW7sMuasj5w1gOIb+vbwA+H7199iEIgiAIgiAIgiAIgiA8
EX22rzNI1xAUG+uvcwUs+lw/5a8SeXudikz7H/F+wwqCVuyF7pPva17Epn5s
a67MYmFRbck7boN7nMgh0rBHvmPrOqv7HZOSQ8jIV8dmtHRTF+gycjkkuZYM
/U2QRL42Oz6Z1u50MCYrh2hyQxpuYCUfYFkZwGG3gA6bcuyyM7hM+CB5qlJS
ptjY2+qiYeTHVbVhWbEERUffNJq0QdlADqF+7fFJC706tN6ltkJcFHT+YWbv
veOHCcWkuJRDkr6eGu2VxTHV0CCKdNgUGMvwpHmUQyQ/ri/0Lkh7FCdy1Zp+
DW6GyEk83RPmPStw7H1WP1MyJtFYYZnpT9T1otC+QoGo/OxA41HhIHAih0j/
PN07voGLOvWBfzlEpsgesbVNfrC6RAvCzqP72oBwTuZs8YGrmwIzcNE+TYfy
fbc8juCqJzcpOURO/NNFtWn25FlvXZ6Wm9+r+yhmLIcw6UGMccqBIAiCIAiC
IAiCIAiCwEj0H1cMtEpJ5OtzRnsNe+qnb+scqf9aWHz8XdUFM3HAxBKgZShB
oeHXNIXsyM+r6yojL1YN1wdzHMRmJodQksTYiB8fnt0+s2vp+K41C9poXAI0
bjmEkorjIn99fnHv4r5VU/s0LJ5DYysxYjlkYYD/0hau0O2PtlVnP2AaVzMJ
TFUO0RC0ZOuGKDqSOgDjwaHjQc6iGowxkBwii9zdin60OxVBgREclqePPpde
Usaq9soP6h899edwZ1j2dsKp40ENe3L1junLIdLXC9NLyhQeflXD6SU9muYB
i0uZV5r30nTi2hzJIeLQu1uGVM1F707Zundede8Pix6RDzmEjPl8c9e09mUc
aL+Twtw1xhwNYuprxexvC+6niNwDLurF+mOS7MNM4DbmtrpeNPF0L7AGI6q8
0IjyJEFgJodQUvmsPPTDc/+zvssmdK9d2FZjK9SLHCInLnB9KxdwRJ7uRRds
Pu9aKBcPOObRsiZ5+dFYFAZbm6X+YVxML01NDlH4YYe6wjZKqGBdYfLtrDmh
GMsh4gv94YVuHHuf0cvnK4IgCIIgCIIgCIIgCMIf0hdzK8Ci5zl8dmson5IM
GbS8pnJZPmuufmngbFi1dSJv79PqZRTp6wVeygVB+1a7tJ0TI6ByCBRjlUOg
GK0cQjjkywvLHqBEVLT/ac7bk/FgonKIJjekAWsvjArd7ZMlwbwGBAUHXzKC
yhaGkkNiD7SDB13z6CqXQR/VUiRE7m5H/2p8TRNuj4V5j2ZWtVZoUE30jcnL
IXHXhitjZvJZwKI3GiNx5Jf1DSFpexS+6DA/47pYLbCRQ8iEP5+f+h1cPbFr
jQL0SskIHMt1nn/+E9sEOCzkEIqUJiXERv35Gfzh9dN7184d3rF63oSBHep5
5IH0Ghb5aw3ZdO83i/At9XeXN1i/IJyH+OlHDgnf0Rx+di7Drqk5OypsO/y3
zGssM5KeDgpUDoGiLzlEjvjDwf4esL4PgMi1+UJ/LmTH+Dc7u5dgNo+mgYWb
z6oHrF1b05ND5ETfmVaJ6eMXuHbaH5zpChjLIfJBCvx8dZdAQxAEQRAEQRAE
QRAEQYwf8su6+jSr2KdiVXf1J40rT0kPpyhXqMzsvXdmSSZPflhRC7aW7dB+
v7o1zqRH05QHIpy6HOF+Lz/KIfQwWjmEDUSuZhvecZftwLgwTTlE8kRtyNKS
vRsiJ+n1ynp08nwT+TsdCDGGG2IoOSTxaGfYaKHAoRdXu0yTnv5bTikXCt0n
BWiLT0jfLa0OE1mEJSfcM4rtsCYuh1A/d/sosxkQOdvv+61lfKAiTvTIC9u3
7OCzx1TUPZAcIr9ZIiv7nHmcXfLny+Voa07/rghyFGs0eOmJl3856ZqAcgiH
mOf29Pln07XPrBsz9XdXS3hujgIjrutnzI/w9YYrdq7Dr6k5O/LbunrgWZGo
2pL3/4/MIVD0KIfIFJ3fwzUdivFmXli7994XxMGARobfWdKqEPh9oottuSHH
vrB68UxSDpE35g/bWwPHvnTsa8x/nKGfZCyHMOqNXIYavrYigiAIgiAIgiAI
giAIwhYqbF87WF5qkefMZxoCjbEXB7mmrpURzn3Pqsn5QX7f0hS2X8qmyeas
AerEm6PdlAfKP+ACD2VAUA6hR7aUQ8ySczf7R5tIDBKGScohvLohcsiQU0M8
tHsPhGONf28bvqJMMgaTQ451ge92zdnnLDeBhKiz/fIrgyk2DdbpCIBQv/e1
o5sQJgUiT/fjxvCATVsOkb5eUFnZvwiKjrmlI5OFOGCiO2ygtai2xESqYgDl
EBgWTsVrtB3874aTD0PiuWy0+pZDBHaFqrQeNHPLuee/OIs3Ru/zgZe/Uq9f
8ECEL4PiXG5j1ZWVAQzm6Yi8FnAUHNc32UsOUUBFPNrUu6w9U0dAB0JXn82v
2KYSUkCG31vdxd2Wn7M0M3frsjuI+ctvonKIovrdlVGlmVo3omIZEhwylUOY
5THSV5YlBEEQBEEQBEEQBEEQhF9izqWH3GghcBt1U92CY3I0LvXfCN0nqt/X
TYVDZRSLmsuDMi11xV4YoDxlgdvom3xYFlA5xKLpltAkcVxU2PcPLwL8jm1f
OqlP0zK5NNfQMVY5RFRp3stEcXz0nx+fXj28fmr3qumDW1dy1hzLMG45hHCo
PGzOIE94tgM5woLdDxtFmgiOMUU5RKMbso4bN0QB9efesrbF1LsPAgfPfjtf
8uCgMcRQckjC4Y7wXab5Bl/mIpBABm9uYpv2m71PRer8i/hrI9xgpWWsdSon
+sCk5ZC4q8MKKW+6Zc3lulMUkB9X14HtnhcUHa1LOTEOGMkhBCEQmVtY2djl
yJkrn0vBIiVKl6tUrXbD5m069Rw4cuLMRWu2Hzx36+nH8ESehl19yyHCYkMu
ai4PxYzEk93toedB5DfmsjLCsjOequnByc8ra4NnRcIyM55wMRroH6gcYi6f
IIgVs/KQjy/u+x3fsWxyv+Zlc2u+YfqXQ5JJ+HTm3+aF+fHIhIW67P/KjQoR
9+7YpIau/KQQMS/W78QPhkOvycohchJfrmyYk6EaRDg1XvNa2WUxzhwStacN
g1KBAy6iHIIgCIIgCIIgCIIgCJIdEN/5pzgohkbk7XUyKsvPkJ9W11UGeSxr
LNMYFYo+1SsPaDVM6DnrueqPURFHuzql/oIi6snLdk+4HLI1a7L7hOCryzuX
UrvfznjlEDULp0k/AzYPrKR2G74RyyGWxbpsCYyVn/27Dc1yMVl/JRzrL39h
FIUmuMQE5RDJk+lq3ZD6a79yfHqJ329tn9G/hVcxZ0drcwtbJ1f3Gm2Hzd//
KMy4dlobSg5htCO/+IQADo6d9GRG2bSSMmWmP6bT66smsaB9ox4avJ6UCcsh
1E/fNmklZXJ3OfKHxthA/TnSBdY/E06dDqorNmdsgOQQIu/AS8YQcAPKIZY+
+2LS/pYKO923EMzHkiMo3O9MGKePM+nGyILQ0yBy9TuvHznk1xZQ552Mee1V
X9SMddSPTY3gBXTcxqjLQmICwOUQNROYhG/XV3bzsFP37w0khyigYt4endK0
MB9FZuxqLHjGlUxHRb3Y908DPgwRwqHBqjeMmqUpyyHyOxp6sm8RzbsItGNZ
ZuzVFLOOsRyScLQzPBscd6UCEQRBEARBEARBEARBEMMifTmvEmx1yt57Z2im
1XzJ0xlp67Y52vhqMQbi/YbBVu4FxcffTV+2p375tlZuCxVVmv+Kn7AtJ3JI
MjFPVjbLl+V6TUoOSSbxvW8Xtyw/ZbRyiMhz1nNlTJr6dbpfUUbrrxYeY65y
va3ZwJieHKI/N8RUMJAcQv3e1gwcFhJVXfyOfR8ddbZvWn4ru6ZbvtF78FTo
rtY5QGdLOPc5k1V81C+mK4dIX833UvYtwpIT7tEc4hL8xxWDxfKtaq/8YPzv
/v9ODlGYPhcGFQUnHhEU6HGMy2mE9PV84IzWTI9Tsq9r6oKzfVh3OKQ2cVXs
oQ7wvGicFfrSN5zIIcnEPl/bMn+WPseAckgKcUGn57Rzt+O6yoxlhRkPOMy1
RMW8OTrdW0OWNRbYVF8YyKBhmrYcIif24ZxqamUlGhDOPjs/SVjIIeKrw1zA
7c14phwIgiAIgiAIgiAIgiAIS8ivGxrClpgta63IGJyJ8xuqND4IlwHnYzQd
SoE4YGIJUPxA4Dr4snItigze0DAtQUmdVZ94ChFxJ4fIFIt/s6tmWkk1PTlE
jvjt+qZOGRcSjVcOyRiTjr0/qwqjkumC/O33fDGuvBHsMDk5RPJkuoc6N6Te
/9YNMZQcQn5mUNrJss1e1rYFGbwpraSMwHXA+Wjafxl7eQgwh4Bt08001RO+
MFk5JNZvaFreCOv6a+mPzdL3y2rAUtIA1BPD8T+UQxSJ3a6MKAE2MwjnTgc4
LOIWudcHnIPBsvVu3aWqOED6ZmFl6P0RFBt/T21WhaTrw13BqVosvHf91ceV
cg53coic+Cfza2QKyRtcDkkm6cftDYNrOoNHWm3Y1FjymuNSQonB11b1q5KH
adILtdg3XP8R3AuYvBwi7xO+7O3gAn6PU7Gt/G9ATBJTOUQaOLs8+BnKP3d/
Zy9nHkEQBEEQBEEQBEEQ5P8LFb6/vdqqIRrJWLecCj/YKb3SyxRdmfmlL+bA
1qOI3N2PpyzcS98tqaYMi9o23/aDrxUqTuUQmSzp7eoGOVRvsEnKIfKf+76/
o7PqdZiKHCJ/oh+3t87LaEumfY35j40gZsARpiaHaHRD1qjLs///wEByiOT5
zHLQrAACt7GsaxgkPZ5eRjleiCrMfg65FEng7Aqw2IfIc+YzjuNoMExUDqFC
fVunlZTJ2/NEBGBcoML2t88JKy2Tp/txyBEMwf9SDpETdWNsKXBom8jj48uZ
7Zd0dzwwF418tKu3NlgfI4rk8bTS0F5U4/RSGrS0Gji0K6qy6K1J+q6cyiHy
nwva0DRDr2McckgyVMy70wu6lncCZ+HRAJG32zE6Rb6gpxn16tisDh4OTMWG
zAgKDLwAdUmzgRwiv5GRNyd4Mi0qJCzc8+DpyczkEFnE7tbgWoHyHoR1Ojjo
JzYYq05Hjd4fRRAEQRAEQRAEQRAEMQpiLgzIDwrOCAoNv6ZcSCW/rk/LPGJJ
J+E7+WFFLVh9Avs2uxVblSTP0sOTjh0OhPMWHeJYDpHJxM9mV1JZgzNROUTx
gxsa2af/e9ORQxQK08VhJRntxzQvPvh8mJFHIuliYnKI5LF6N6Tu/9gNMZQc
wmSbukXjzZkrkEGJOtM3TUjL4b0TKASSIduaw3K2C1wHXtSa+opnTFMOkb5U
KSnjMVWXIJqZ+Osj3WBty7rBOiPvAv6vcohMFntnUllwASrCqcWWj9xEbak/
vt7QSKtQpRAdn4j9hjgDJVVBsfF3NbxPCWd65QReqBnhMuyqMTQ1MBzLIfIR
7cXCqirtxIjkkBTIiBdHZnUs68iFe5El2yN3SMOf7JvqU8qei3I4Nk02Ayed
2UIOUfzau43NczO8hYSdq6tD6t8C5ZCku/8UhbYvLR0SbVAOQRAEQRAEQRAE
QRAEMRrE9ybAar0QubsdS9m6K1FJTOvYdi+dfLPk9y1NYSWrrRtuCCbFd/4p
rixek7f3afrVBcBwLofIZFFn+6UXdzZZOUQmSwyYlH5rTEkOkRP/dGEte91/
nBUiT8stQWyXQ40C05JD0A1Rh4HkkLjDHWGdtpZ6CLQhgzc1TispU2jolVjw
L0Sf6+8Ci7nYe+/gLSeVbkxSDom9klZXzsy2ySZ4Dgbp64WVYT6B0GPqI6Pu
kv+/coj82u9PrwDekE44Nlr3nhNBQ9UipntwPSkT8Yc7wmo4mpnZdTykaa4r
H85rwEt9tdjBn1fNI5zLITJZzKXB6XXHjE4OSUH659nB6W1L5WDpXojKzw7k
M2GMJOzR7kneJexYnqZFjWVBoNPMLnKIIoHW+SHM9HVVgHKILGKvD3RaZ2bX
9XgC68tNuWZJfNTPD48u7Vk0tHFRRpU/0yBs3ep2H79465FLdwM/hPyNk5hi
H4cgCIIgCIIgCIIgCGIQpK8XeMHWpexSyrqo7PkVFBh8mV7wjgrf185B+89n
wrzq4qcXhxRQHqngMD8+13F5kENkSY+npQW6TVgOkZEfV9VRbrc0MTlE3sy/
7u2Qn9FGTBuv6fcMmVCAI0xKDpGovDIqWNRZDVr+zm4YRg4hP66oCY1c5Oh8
hJ3Cpygpo2wBFpUXMorqJD2ZURZWe8Hca/4rgxVeMEE5hArd1SpH6ukQLv3O
QSsDJP/GT982sCkB4dz3LJMj6Yv/sxwikyU8nl0ZakGYmdnXXfGaC+Mn8dLA
fMAotZXPXj20JvLrmrrAXtS8zmrNKmSS/1hgyh35eFBiYoBBK2cxhAc5RCZ5
nq62G6kckoLk98Nd4xoXZlp6RI6o8kL+ywklhd7ZMqKuKzhvUDoWQPM3+8gh
cuKfLanjwE6vgcohii9/aGkq87prOKsBlk7il3NT6+Vh9HVG5K4348p3o3ZF
EQRBEARBEARBEARBjBkyeGMj2GK+RfWl7yV/j3ZV5sIVlpn+mPbyTPSpXnlA
i2DCol4VlBXChSUm3OM1ksKHHCIjPy5XRldNWQ6RUWG726RWajA5OUR+9hHX
xpYBb2pWIHTrfTzU1KUEU5JDNLohsNXvbIdh5JCkm6MKARfuLRpsYNeCos70
UdZgIBzb7tXdx6pFPrQ1hm1KFRQeftVQxoXpySHSl/MqKfsUkefMZwzbmmr2
EXrYNd3yzXh7gv+3HCKTJT5fUB2+F9y2+sLnHMyNIg52AOYIE1Ve+IZ/I0wS
MKE4rJHryPgQc7ybI+xCzcysWvn+McFt9XzIIQpbp17qa8qPHJJ0fUQBgZlt
u/2RHPxY/KcLi7qUYZhExLLZNs0jqPhcXyeCyNnjJBeDSez7U3PauTNMIgK8
VdlKDlFk1TzcvRCbeitQOUSWdGdcEeDETlBo9C1+TIzYBzMqgQUoUcmRVyNM
sENDEARBEARBEARBEAQxHqjwgx1zwnyN0pNOrG2izElrVW/NJ8CiVPzVYcBQ
UPpxPWc953cZnxc5RCZ9t7hqyh4tk5ZDZNSvHS1SnroJyiFyEl+uqO/IZOGa
yNlozWtjCOExx4TkEHRDNGAQOYQK39EC6FRpfQlpQH7d2IhdpnHGEDQLpPGA
yckhsZeHMB3J2SLynMVUReGf/7scIpOJXy6rbQd+qNZesx6xDtJTv3a2hFVL
IHIPuMj/E4g90hl2R4SlpjzU1sSpP3t9oPdYUJiv2C6v8CKHKDJipU4t+ZRD
BAVGXOeqdSWF3Fje1QOuXhD5h2qunJQshyiSytznqkNN/Hp5YfsS4JIlilp0
dwGtM5vJIXJi7s3wgt82JWA5RBZ/aVB+YGOybM5XZSoqfE8b4KTPwWBzNQRB
EARBEARBEARBkGxE7MVBLqAoD5Ejp0PqHxA5OxyALReJAyaCgmBpKDKW8LzF
kx85RCYNTM1hzUQOoZLiY2NiE4yhHjf5fUPD5Og0IzlEkqC4DlhFaE7lEPnP
hRzpXpBR47MsN/5GpAmvRJqOHCJ5PK20Ojek9iqIg5YdMYgcknRvfDHglvdK
81gVZ0l6NA0Sp+YYi+pLWJktjDExOYT6sTOtpIz+EbgOumisxb5QDpH/3NvV
DeBlEizLTw1g26ap0G3NYRFW87prgvkeWaSv51cC1XDQ3XdTP3e0gCp08ACy
McCPHCKTvkmtq8FEDqFSZ7Oa/0WKHMKhk5BCwsdTk+rmhY2PFs23h2mau6bI
IfKWsZLTlhH37vCY6rlgEwfrdgcAfXr2k0PkLf3jjjbQslhKGLzbcRcGOMOO
Jigyzp8nvUz+kewJ6iLN668z4vxhCIIgCIIgCIIgCIIgJkNSwCRmvoaZoNAw
P+hyvvTFnArQYsdyrBtt5H0tiCc5RCa+PCh5zY+BHBJ3vl9eAhpC4mvhVJnU
gYEcInmgaGPWbfdFQf6KYzlEJqOi/SdXgJVRSkXg2mk/70Ek3jAZOUSjG7Ly
/+6GGEQOoX5tAR1T3nxY5g2JPN2baXyEEwRFx9xOYHnXmGBacojkxdyKkI6Z
c3J47ww1TlkP5ZDkHwza0ASWkE6Bhcf4W9HsroQK2+sDspb08QjiT/cEFYER
VZz7QlcnSoXta+cAu71mdh0OclHlRL/wJIco9Q0mckjClSEuBOHU56zm6bzy
1y3qrP7C8cwlKfjUqEqAGjMirwUap/epcoiZdbNtXCcDTPx4eFBZgL9kDrpT
2VEOkb/Uf/1GezCqfslE/Eq4PqIwTOCxaLghhKfUIT+BM0377if1koYTQRAE
QRAEQRAEQRAkuyN9s7Ayk1CPqNxMBundyQ8rasECjoqloDa7+c8hy5ccQv3a
1kyx4geXQxL8hroKzERVl4CSpvC2cBp3sociyAGXQyRPFQv8gmLj74E2nnEu
h8hJeru+aS5G1WVy1F78zBBxYw4wFTlEkxtSC90Qg8ghiRcH5AW9K3bNtrJp
PeTXDQ2Zp1bnBMKp0yGecqdrw6TkkNjLgwsYqKSMEnOv+awS1PAGyiEpSD9v
awkfZ0UlR15lmaIr+mxf0IZ4tmWwdJOWOo4mNg3Xf6XRiUad7JkHdoMJlyFX
TC6iypccQv3xbaXwhOFyiPjmqMICHSmylHKImVXTLdxrbFRUwPy6dOUrocf0
J5omAko5xMy+7b4/3J/mn5vTqtHVWESVF76h/x5mTzlETuKr1Y2c4N8njLIC
SZ7MKAvaqEHk7nOWhxpMCkDjZnKxJD9jGDkRBEEQBEEQBEEQBEFMH/Lbpibw
mJx1A1pr2FmPFrKlKbAwfK5ux/Sw5ZEvOUQmCZhYQshADom7MsRVYGZm3/UY
KBDI28IpGbRU4RiA5RDJk+TYk0XjzbB1cj7kEEWU/VS/IgyS15iZmbsPv2SA
wDF7TEQO0eyGfPzfuyGGkEOgcTkiX69TbPrppIdTPZTHE5YYf5eL1f8ocCoS
q9qr9N/cTEgOoX7s8E5LzuDgs4feGKgdeCoSQeHh1wxZWEcTKIcoIYN3+8DU
MgXCooMvsAtTi1V6ETrYtj/A6+SS+runDSBbWXInSusGiAMmusNS/gmKT4Dp
uUYAX3KIcrYBlkMSboxU2AE27Q9qeQnS5BAzm2Zb+ci2QEXcGO9pReeGCLU4
/GlyiJlDu318TG2psAvD3GlNW2AKfLaVQ1K+T4pCv0+YlYwiv29tbg85jLDU
lIesaxWqJfFYF8iigKDgqJum1pMhCIIgCIIgCIIgCIIYKdSfQ52AWcCJXJ0P
M1zEp8L3t4dkxCZcBl6M5fiK1cGbHEKFbmpkAZdDUreGCsvM0LjzTy38LZzG
HetiB5dDxP7jigrkj9F58BVYJIwfOURO7P2ZVQAZr9Mh8rXZ8Ymf1VE+MQ05
RKMbsgLdEEPIIeTnVbUhr5/QfVIAm1B35KleaR6HRfWlHO3nFz+YDOrVFdcx
kdV1MMF05BDJizkVlK1CUGDwZW5GZjJkewtQmMqMcGy3l/9sYmBQDkmHDNnf
EZTFIxlBob6nWD1Y8vv2loD5JeEy9CqfDyHh0kCAnmZRaW4g3W6b/LyuAWwa
I/SY/tjEpi+8ySFU2PbmFnA5JOZcP0WbFpac9EDLnUyXQ8ws665mELengfjV
stp2NG6Ilrxr6XKImW3zbT946U4TnsypTMNigX1VZGM5RE7co3k1YKMhMzlE
fqQbo4pBkoCZV1/2gZfGnHiiG422nIag8JjbKIcgCIIgCIIgCIIgCIJwRNzl
wa6QRSJB4RHXmSeYjT7Vi/6eUkGRMbf1kgybNzlEJr44IA8BlEPSwmWWrXz/
gq6Dv4XTlDsEW8alIk/1To4QwdcVeZND5FfycXsr+LZmBbZVZz3Qh6rEJSYh
h2hyQ2qiG6JA73II9WNLE1pbk1MgnNrtZZNAn/yyPr2kjIPPbi4SUqT88KfV
dQHXobiUPD1OROjXOzAZOSTm0qC0kjKisv8+5SzUHH2uf35Yh8ydQMQhKIeo
QoUe6QaaVyYjcO1+lFUtjsT7kz3o770Xlp7GozEhnzPRz+8hcOlz+i/gymOv
jywKur1CDz6vlQ94k0Nk4qtDXQigHEL93O3jqOimLJpt02YwqcghZqKKc1/w
c8/FT2aW1zmvs+10RONQoSKHmFnWXB7Ez0Qr/u4EnR9WhFPfc5Cvo2wth8hk
0q/7OkE6TqZyiIz8sactpPyXVePNvDhEKIcgCIIgCIIgCIIgCIIYkCTQBmtR
hTm09zeqI/7qsII0l770t5zNnxzCgKSn/5ZLjm8I3KDLYIZbOFV7MmvrpyRV
z9H9BFAn4lEOUeSvuTi0JKyUgfIwRfud5u/B84EpyCGSR1PVuyHL0Q1RoG85
hArd1hyQ6Nui4pznbFbrkx5OSXv8ggKDLnHoX1F/DneBxD/k2DRc/0Wvrc5E
5BDqx46WaVua5TeJUV05DSQ9ng4xFOQIio29ncDdCXACyiEZoX6f6lMIrIcQ
zh32sRmGqPBTvenHVvmcAEkDZ5en66kQDk03A0O85Lcd3o6Qvk1QZPRNQ70z
4kQGjZ0/OYQBaeWvCNfh17QNd6pyiJnAdeDFaF7Oh/q9x0dHkhxR+dmBGhu3
qhxiJig6+hZz4V8b5PfNuuqWAtXx7C6HyB9t1K1J5WmXo2Ish8h7qKA19QFp
SmyabWMl7mkA5RAEQRAEQRAEQRAEQRBDIn27uCrd5TabxpuC2S3AJt2fRC8Y
Zl554Rs9bQ82IjmE+rm/Q+6UVVvz+tDFbmOSQ6IuD0ldStVW+lwDvMohcuKf
LKgJy96cCpGr6fq3JrQ2aQJyiAY3xLzGcn7SWKeTEHx9y7R+zSsVc3a0trC0
z1PQo3bHUYuPPPtjXE6KnuUQ8uu6BvTzbQiLD/eLZNEXUhEneqQl8hGVBdbR
0knC7TGwDfYKJfGRPl9w05BDJM/TI91E7q5HIUkOdEN+Wd8AoCOZsaptxxco
h2SG+nN+YBGY9aO4NXna7GSjHpHffH1y07UmRF4LeJoBSV/Nq0jXDbGtufQV
vN+TvF5aC/LWEHm6H9dzWqRkYh4u7rfgPrxPNSI5hAo70jV1lDKvvVJrMD6D
HCJ/tA3X81Nahoo42CGH1sedb+AlzQZDBjnEjHBstTOEn9P8tb2FVtEBqsBn
fzlEcaj3m1rkodeHsZBD5Md5s7Ke1kaUAevGm3h4wVAOQRAEQRAEQRAEQRAE
MSjk9y1NaVUwJ3J3O8Z6eVn6Yk4FGqvmVvXW8LOqqgbjkUNib44pIVTe7P4X
gPEj45FDkgLnVVaGyqza7IkE/jnfcogie/OeDvnB+5oVWJeffDvKuOKSmjF+
OcQwbgj1586SNkXVRy2ETl5D9r8znsQE+pVDJPS659RDFRt2mdWAQH5YWSfN
RLFusI7zrB3St0uqQW6evN/N3/dMFMdnoQWTkEOizvRNq/wiKDrmFtcvBxVx
vDvNYJgSq9or+ZbHYKAckhUq4vKw4vTLvChvjlOzzR9ZzEvIL9tb0dVDGJir
tJA8nuZB88ba1lgUyKwtJD6e7UU7xYAcqxp6L8ckfru1TX7z4hPumbIcEn93
QmllK3bsdUarF5BJDjETuPYF1QuiDflxeQ0tUzvCqdtxLcNYRjlEkVdmuB8v
OU50fO4RzgMugpKW/C/kkOT0hsPc6UxcWMkh8pcsaHML2iqdudf8V5z3HyiH
IAiCIAiCIAiCIAiCGBbq75EuTrpXiDgKC5EfV9TSuexl22I7Hzls1WMsckhc
wFTPtDsjqrLoLXAlzljkkKQ3K+qmJeYQFB13B7qax78coghcXRvjAYsbK6+o
YLfDhqnAAoYMWlqdZnDOMHKIRjdkWRBvJyP9fnxgKe1BNSJXvYX3o41DAdKr
HBJ9YSDtqgwW7iP92LmCcddHFlEejcjV5QgPySCoXzrz72fGpuEG/ZWWMQE5
hPy4um7a62JeeSEfY0bi3fElgKVlihtXaRmUQ9RBRV0f7Q7XQxwarnnHJvvR
9/0daaqfAreRN7gvqRHnN4xeSR3CseGaN8yDnYmBi2sBQqtE/h7Hw/Q3qkm/
H+tb3FzxqpqyHJLwaGalNIFRVGHuC63dX2Y5RH5eZSbd46PLlnc4mjN8EXl7
n9Yme2SWQ+TvttfspzwYD1T4juaaZy+CAkP9YG/f/0QOkZPwfGldB51f5Szl
EMX08lS/ojR7aEHhoVeAA4BOUA5BEARBEARBEARBEAQxNHFXhhbQtZhtXomj
fUNkyJam2vNhEzk7HtJj1niwHNJ480/Oz46Kvj3RUyW8ZNf5KHRJGbxwWnHe
S+4DfYmBS+uo1GyxaLjxB/Rm6UMOkZMgP9McsA3rKRAOdZc85adKO7dI3y2u
QlcOqbeWZcUoBkgeTVX35plX588NEb9YWotOSSFBgR7HuH/LGaBHOUT6dllN
mlvRiZwNVr5gFyEhg7c0S3fICg4DhonoEuc3tCCwtIz7xAD+gz8pGL8cEnt1
uFva/bNpspkfhUwatLwmfblCAZGz3T6+qrsxwDTlkMfT6Sa4SG58bfbCk+rE
3J5QBi5h2tdZ9orFHaL+XBruTmsKQeRsu5fjZkSF+rahJaQJCnQ+8I3d6yT5
sNU7L/05jLDE6Ou8ZIjIQtLnw/3cU+wFPckh9daxvJfqiLk3raKKg2Hd7oD2
25dVDpFPgctOuhPL+ZnFHdIshwhLjr+rdQTLKofIr63ynMec63ZU+I4WGt9+
kefMp3xXnDRZOUTxoXy0R2EdrwBrOURO/LNlDWhsDlFgU3dVELefjCiHIAiC
IAiCIAiCIAiCGJykh2p38Ktg22wrV2EhKnx/e22L50S+Pme43qCkDcn9SaAA
HQ97FMkfR3sWUj0HYelpj6EhXvLDMm2ZprMgLDfzOcc51amIa2MzhIKIvIMu
g4M80AthkGUlBennna2B9QyUhyzW7+QPo08fIn0xl26REPOaKz7q+3o0uiFL
OV6BToMM3tqcbpV1gduIa9zHdMBQPzY10oscQobsbUfzZbAsNeQsW3Mm7sao
YmlhNIHbmFt8Rcslz2d5wpIXEDnb7dWTGCQJmFAcoq5Ytt2v1zZJflxbP73m
nK33Tr58DOr33rbAFC/m5Wc9M5pAUcw+H4AcAq8ZxwuSh1PcATMfi5Y7mTi7
cQFTy8PEHwU21RY8YxOCTXixqhGtkKeozLSHXMZ6E+9PLk2nv7GpOMWfgwJ1
1N+rY8tqziGR5WrdR12L5LtvS3i7o5Nb2gyOoRzyBCQucRImzwT161S/Ihlm
5SUmBmgfW9XJIfJzKzXicji3N11LxUDCocU2HaKvOjnEzMyq/MRbHLcNaeDs
8hpeBiJ3h/3gURb8acCZAK/yZC3bHdDTIBwTMLOK1pKv3LR66s/1SV60HA0i
T7u9IVy+ZiiHIAiCIAiCIAiCIAiCGB7puyXVtIQgibw9T0Zyd7To0701b3cU
FBpxTa8J45Pu/FMUEqAzr7mc0zg6FXFrWpVM2QwsGcRhpO8W0c0TkYyw5OQH
nMohcc9WNM5UwVpUbcl78OIs9EJEFecyXQGmQg93dYElFkiFsK8+O0A/u3AZ
I3kwmW7wT8RVYiDA2WlwQ6othTcZekjfQhoWkbPLEQ47PYaQ39bVBylfzN5q
8gfdF8Gq1IDj39g+IGnQ6rrpUQ8i38BL/HX55Jd19WkmRFEiKjv9kV6i90n+
Y4uA5JBWu/XYJKmIs/1VYp0WDdbzsDlfSeyFgS4wUY/I0+WwHstkaCXC1xsg
QDj2OqOv3DTaALY+iyZbmDlT8Y9meQHfQDnWXjMfsskmRIVdGVdee466FHI0
3viJq3YtDVrbkEZmKvOiPQ8HczXKJX3a160I7TFCUKDLAR6ThFF/A5Y2z68y
rhNOLbYwuL2AuUsyjA1hTdcRdXdWjUyJ5XS/AOrlEEVX1XLzew6j2tTf/e00
NDPrqgsCdY1d6uUQedtw6bDnM4ffBNTPbc00vPh2dVcyKB0F/sYpN/MZN9eT
eLa3I+1mwB2STzt9nDUPi5wpUVSY38TKdPIoCvJ33MfhLADlEARBEARBEARB
EARBECOACtnaXOMeJUGxcf6cBjMSrg7XlOtfWHLSff0u/yRdG+4KiUqJys8O
5GwZmgq78W+tLAu1gkKjboJvgvT5LE/IcrqgwIjrnN1pKvrxqpYuWQ5v3/U4
PL4DvRAmaVbST/zn4S5aVl+13kBn742vjSHIpwnx1aH5aV6asMTE+xynkdGB
hmpO5kx0InpQv7Y1g2xhF7gO5+4FYQr5aQUokbqg2D93wSctfrexBZ2sIUSO
iiNPszZD5A/icNd8KoezaLr1N4/RFioMnJWCyNlqJ6c7ZDUgf0NBRoQ+41Ky
xEczPFWanu598+wQB0wEZfCSIyo3/ZFRdMBU6KbGgPw+1p2OGENZMvGlgYCa
JGai6kuZlvtKfDa/Gh1PIyMWZcbfYpVcgww5PcRDt5ZC5PHZzUnAU/p5m3cu
nXdUVLD99rfcNlvxe9/ObrSHCTuviVc5zmSRDBUTuLV7SdX7LXRpufoJozSA
SbfHuEG0OaHHdOaTwCwX8uf2nHpZHiSRf6ifDu1Ckxwix6JYr4NfODpDKnSn
t3o3xKbq3Ce6PUtNcogcq9KDT4VwNAEjv6xvoP7ts6+7/BWTqRX400D+NcnJ
PZd38GkJ3DhtarqP/Pfa2DKapq1c5suhIu4tbJRX9ztH5Gy48gVXLi/KIQiC
IAiCIAiCIAiCIMYAFXG0q4Z1bYsqi95wHK9N0lTKRVRhzgs9ZzBIPNmdxl5P
lQWqggzMDbXEvt7d10NdzMS83lr45s6k22NBy+lmdl2OcROiEn8+Nbaqo5rG
IywzA1pVnMGFsAzik1+3NKNbayQzosKddwcZQ4UAtcQcaEc34Tzh1Pe8Xq9D
/26ITPJ0RhlQ9Nmy1e4Ins6FNtIXczQlZlf/IJ2HXIE9SPLn+WEeNKQZC7f2
659Gc1AIIfLysKKqz0He9s7x2/aijnenVWJCBYHbsCv8JwYCxkaYZWJihuTN
8toZdFHzOqu/8urLSJ7PLAe0Q8xyNNn0xQjKe0nfLKwMeEv16vhoJmZ/W/oF
SVimGhO/WFIL1NRTDunW7zS7SkZk6MV/dG+JJ3I12/CO7aRO/Hp1Q3WzoAxY
Fuu2+z0fQpPk2+mRFejeYSKH19hzXDkAyVDRL3wHetqrXr5l8R57GF+qFn9B
/RXlH6LL3KBJ3Nv9A8upE+VppAzUIofIsSjeY/c7DsLqcf7j1c2dzIjczTfR
yk+i/eZaeww48on9vaSirgxVm5hIkL/d7i/M2h7004BwHgycDWkg8cqQdM/a
qsUOvWasEr9e20T98+K6mFLih0ODPXV3IqIi3fd/5uQbGOUQBEEQBEEQBEEQ
BEEQ4yDeb5jadB72LXf84HwpTPpiTgU10RSLmss/6DnWA63bYGZm1coXXPMl
M9Kw+5v6lLNXv0JL5Op7Hr6oHnuoI2xzrnn1ZaxvNhX1Yt+o6rk0LNhatvL9
C/9N8IVYt9vPKo6b4D+uOKPaMgpEhTvteKPXOkh00fCOqce8/joea0ZkQZMb
UnXJO96C35In0z1gcoi3r8HlEEVeI1DbtO5wKJb+z4s/HR5AY2+9TclOK++E
cdE+qAi/ESUytUq7zkfjOPhpLQf9vb05JGdMMhae0x/y/F6TwWvrgcYeQaHR
t/QSHEl6s7J+JmOO68INag56Y6SmhGIaIZy7HGanD3CB+OowSAYYYVkm0iTX
SF8v8IJ4Z/L39Aiga8mMvEnVg0uYRB7vrR/Y3Ssq6vGatoV1vWdWnmP9WKTT
IH+dH1pKR/IYwqnG5Muh/L1DVOTjDZ1L0PV9zAt5L7r5k4uziXt/fGqTghk6
WJFLk7nXWfw49XNLE0AqHjkWzbaxTj8lDX+4dUAFTSqRQ49TusYD7XKIHEGe
ejOvsbrpVMSNcWXU3RqbCuOv0fwu0WneCPM3Xegfzma8p8IuDMk8zisg7Kv9
e4dxOiDwpwFHfq/4zrhiKs81h88e/dYzo36d7l9Mzd3kWg6RJaf/2d7bQ2MW
0bQjF26/KZBRTqAMoByCIAiCIAiCIAiCIAhiJCQ9mpY1eErk63MmioeDkR9X
1sqyxGnTZPN3fe8DjjndKzdsVznh2MY3lPHaIBXz/vzyvlVyawlTi7wWvAav
Hyfd+acYMLJmVWs5i33oCcE3No2s56Il6CJwY7KUB78Q1smjJQ80JLKhh8C5
yaJ7fw0eocwE+WVNPUBE3KHtXv0teGt0Qxbz54bIqJ+bQQEnGmnkeYf8uqYu
LEgmLDP9Ca2XgYp5c3BUNSddr5qFS90x+17GcNM0pF8PdMkaPRMUH3+X3xst
vjSQTtmcTFh7zX7Ea/mP6JM9dVehyPg0mOSUgkJF+U+tlDUIZ9+G55CY9P2S
aiBbIRlBgZ7HDayHkB9X1ARJPjatfPUbXVQD9XunNyzSKigy5jab91QStL6x
ztQaam6W1zTm4eRUpD+vz29eUPszIuwrj7/MKHAvDTk3uoL2eCrhUGn44SD+
JVLq74P13T3saN5lUd4aw7be/8108kTFffLbMLqJW0a7UJiv/ozLIeyEnrgL
/fMBW0qOFtuYfzxQsR8urhpQLY+2Wbmn7nKSOuWQ5B9yaTzz4jdmL1Jc4Nrm
6m6MTbnhZ37QvnpaaVksCrVccD2U2WOMebi4gZqRjbD3Gn+FhcID/zRg9gmS
Cer34S4Z629ZeM15puepYdzjBTWzZLjkQQ5JJvbN/pHVtX2iJj9Nu3J9tz2N
YNUzoxyCIAiCIAiCIAiCIAhiLEiDltXIFIkUlpxwj59VMCpkS7NMsYkc+oxP
pyB5t6qezl1SWZfF8rVY8xy4iZaM+RpwZNnI1mWddGoIth0PQ3fokiF72wEd
F8V15Kg50x9oNVAJoU9Or53QqbKzzqC1eYP14OV6RhcicO1xjE2efum7xVXh
UckM2JTqsfU5B0U3uIIKPd6zEGgh3bz02OuR+rkAycMp7np3Q+SP+eW8ioDH
7NDxoIGNHyr8/KCiUGuJcG6786PWFXRpxJvzq4fUzq9ro7t9yTYzjr7mrFGL
PxzoW0ptlhIiV8utn3hMpUD93t4CUkAjDYtSwy/yNiSJXy2pCYvOyxGVHnuT
17eUCr85q656ZcXCc/Jd9puFNSO+MRLWZaVC5Gm56a0BNa4Y//EewOHDpubi
lwYVz6jIm2NLQ8c8wqnlts9semjppy0toAWezBSFKNpsecu6FgsZdm9tz3La
S8yYF/JefPMnpCuS/rq9pFUhrdqJuUvDqac+6jG7WPyHU9OaFaZdUs62WNMR
K48/DqV9h8nY4Psn1k/qVDF35hZkU9xn/pXvbOO30o/rG4FKPaZcR54mK54A
+ycy9tuDoytG+3hmuZIsWPvsi9T1c7TkkORzdSjXY+X176A2LQm5PL1u7qw/
L8zXcO4t0ChFu2aPwKlSv/X+oaDnKf56Zny1nFl/XuTaYlkAG5WA0acBkbft
7mBWk0rJl32dsz5U6/Jjr/zW70YGMvhA5hPhSw5RIPnpv6Z3eUcdzdnctf6Y
nfd/MZ28QeUQLlwfBEEQBEEQBEEQBEEQRC3Uj+0tMqzVWFRfylu4lgrf/x97
dx1X1f3HcZx7gQtiAKJi9+zunJ2zW6dOndNZ29xs3R52zm7nnO3sbmfOnF2o
GFhYCEpzix9g443vjXO5l9/r+fd278nvufJ5n8+nhdfHf8ZL9/VmKXqU6Bd1
d+P3RU0uz73d2lQFmw9dtP2E38PgCOWnf5/TqmOiwl+/fHLv+rnj+7csnz12
QPcWVfP7CDcAcC4w5D+T/timCtw/tJIZr+QmcM9Z96dZG49euR8UFpNoPzTK
qIjQ4Gf3b1w8eXD76vkTB3/fpmYRX3fRL5Kl+3aPaQUw83dElrpkr79vmNf0
Xhu0v29B0yYL6ZYid+PfNl239CVny2lDry7vLjA6/LODmLbKkN0PpK9Z6suG
SD63QnNvbk3RKJg8e499UlbCjVI93je0shmV1PhtT1uyw8glu8/cCnwVpdLE
3cZhIc8f+P13cNvyGUO/bVw2q4eRT3XPWqnzmLUXXlgtr6F9dWl5v0oZDORc
3PN3WHguWJJCh/rJzp4FzL2/4xaW3utuWX/qTfiNFd/kNyuwIvOpOlSiuzT6
/p5xTfMYmDIkz1Dztz33LS7T6xR2YXINcx9iTi7Zm844ZdEcBDMpAw+OqeVr
RqTFNXereedCkmCL4zf68f5fq6U3a5JaioLfLL1qQV5Mc39pEzOa+Dg5Z64z
0hpXXsyDA793LGGwX5Lcq/jXE7deDTb2LNKG+u+Z3q2soW4TToos1X9acTFJ
TnPknV0T2hXzFs8WOqfJWbZRt0ET56/eefTstbuBL0Mjo+OeHqrI1y+fPrx7
89KJ3X8vnDysz9f1S2ZOoeMMumWvO2yzv+UrZXTAlr5G2rDolzJ/08ELth6/
/vDl57/KlVHhocFP7/mdP35g64o54wZ+1/LLAumEe6vJ8/xywmhd+tNwiEvm
6r8sPX7vdXRk8L1zOxcNa1fW99PHkHv26t9P334lyNjnaiMD/pn1bVkd0xvl
PuV/2HDH1Nvi03CIInvdoatOPwiNjgy6c2bbvEGtEmd+PHLV6Tdn93XjN0T4
nT1TO5XQsYg7+1YdtOOBJWV9C/6NE7dk/XXFvCUr4s7O0Q30Jb/ccjYYsUWC
nwb6aV//O6TEx49nKcMhCVTPTi7q82UWI3eJLFWe2j1/3/jf40jBo6yNeHx+
+/yhnarn9RRbn5y98tfpPnbFsYDwJP/XFQAAAAAAQLKlDdnU4aOXs9I0XmpJ
QwZjQrd1/tCtV56lxz7p/9CmUUWFvgi48u/WP0Z1q5bdQBksCSnq/2n0PUCt
Ojr85cPrp3Ytm9i7fr7U5tbUJOVSdqLxZJE1d8Qta5VvRsxbd+CM3/1nryKV
GkMHURUR9OD6qb1rZg/vXCWrCdNXjHJOW7jh9+P/2nHC71FwuNI2VaH4gxjy
NMDv7KEtSyb3F2nqopcs9Rf1vh+3eMvhC/6PX4ZFqyW4/VVnBuvKhriUmSBx
NiRO1PkxZUXiYPLMbdeKt2m3Fq06JvLVk9sXDq6bNaB5EWMvbVqds2feah2H
zt91zWgZSJA67OHFA2t+7/tVIaEapTxV9vJNug0YN3vZxj3Hzl2/9yQ4QmXe
9ZewzD/wO7NvzcxBbUoa649ulHu2ql1GLd5x6mZgqNKCurgy8vWzu5eObJo/
olOlzBatOXF3af0+k1fsOe338GV4jIU3qTbq+Y3jWxcMa18hi1BaRZG+SO0O
fX+d+sff2w+euuz/8EVojHl3StzlHh4cePvikS1/jOleI6elT2PntEWb/zJz
3eHL94OjpLp1tRpVdPir5w/9L5/cv2HRuN4N8xvuRGFki9OVaPnT5CWb/zl9
9c7jF68iolUGn1nmb7U6JuL1i8d3rpx6s9EFLNno+ElTFToMmr58+5FzfgFP
XoZFGX7SJqZ5tKplRrO+X+aRs2aPCcv3nrvzPNyi3Jr65YW/f2td3GAPN5lH
9goteo9ZuH7fqWv3n4eExz0K4859WNDDm+cOblo8sX+7qrlTG1qg3TJV6jZ1
zx1b1o510Lz22zrpm0piN7a5FJnjdnWXv/l1W60qKuzF/avHt/85pnvNnGbG
tSWmqL3A+CzJj8Ih7oV6bn2U+CqNuLdvercKGROlDRS+xep3HjDlry0H/7vx
MG4ZiNHE37AhT+5eObFr1cxhXesW9NbV1yTlF83HH3hsTuLio3BIyhI/7X2W
aLXUhvnvnNypTPpEX+qeqWTDLoOnLdt26OzNR0Gv321m4O1L/+5YMX1w51r5
PHXcELI0hdpOPWrOtCZr/tNAkblip18XbTl2JeBFWLTeHxVaddwj+sXDWxeO
7lg5c/i3DYr4GO0n45quWJMfpizfdfrm46DQaOl/MSr9F331IVwneTjkjch7
+2f3qpHD6AM67gdc2a+6DJy4YPXOo+f87j2NWzWV8RdJ+KsXT+7fPHd4+6oF
k4f2bFFF+E0JRfrCdbsMn7f17OMoQiEAAAAAAADSizzY+11rd1mmbjulfXc+
6sOXyfP0/1e6ngWqs0MLWlohtBV51j6H9f3FV3NvRhVr9LiwiVRtNugtjdhi
R2Rpu+zUc0nFHOyV2QaBGnnu/scl7IIc8XcLa8Za9HIuNPyc9YZ+JGU2JP7r
A/7ulNfwYZOlrTrmhI0m7MTTPvujrvlxHgu5euUu91XXwdNWH7weZOUF2PLr
063l2ki7OpJpOm4z9TVt5eG+2WwR83GtOvO+OYWiuPsxn2XPRpeSY6+ZdOtK
vfy6Vpp6x/o1M9W54YUk/xHhUn6Kv1WXwfA1zaV/SMjzDjgp/qDTPlnXLrNF
t4RVHqzaiIAjS4Z3qJwjlTVvT3maPNW/Gb3q9JMknRqUiCro8tbp/ZqWyiTc
9k2Ia/riTfsvOHTfzIk5qksjiznKr3KZb499xs/o+3BIqipT9I+Nirizd+b3
NXMa69+lf1s8slf7fu7Rx2ZfYe/CITKv2nP99f2y04bd2vF796rZzM4VyVLm
qt1v0UmThjTF2u7fOM4Fh579ZNOiN7S2QobKpcSYK5L+jtUG7e2d/+2PHBuF
Q95QvbiwYVLPegW8JL5n3dIXrNa6z+iFm0/cfW2LfxEAAAAAAADgPdX54YUT
/vrjXGDwGann+ypPD3pTKHYuMuKC9erPn3GkcIhr1ZkB+v7g50jhEOeCw/RH
CgiHWIFDhkP0Z0P8bPWXYM2zQ2Mb5NBdCJCnLdVz1Q2TEgkWkzrSIJO7KNw9
Unuly5g1V74ipSrWaNCi4/cDx85eseO439NI6YoLhEPiEQ75DOEQvf4fwiHx
9+nmTpbcFFZ9sGojHpzaNHdE98blcnuZ+5vExTNX2UbdR8zbcuah6GiFpKAJ
u3d8/ewRPZpV+iKt2eukq3feSs2+H/3nnivPLQvAOFI4xLXCFH/jS8rbcIhz
gYEnjQZmVEGXNv/eu2ERH+FrLr6zVvN+UzdfCrLw19jbcIhr8ZEXjE/KeXZu
3cQedQvobF6ik3PqXJVa95+53cwGZIRDjIq+PLV6wogdm4ZD3n/700u7/xzT
u1W1wr66xkuZTO6eNkfRKl91/GHkrJW7Tt58TpMQAAAAAACApKPxn1rJzcnJ
rfK029L/3Ul9ZUwJFycn13KTbNI2AABi41tlH5g/pHOdErl8Pd1dFal8shas
3LLvpPWXgm3+x3YAQJLTRj7zO75zzYIpI37s3r5p3Sqli3yRI3M6z5TuChdn
mZOTzNnFLUUqb9+seQqWqFDzq9Zd+gyeMHfljmNXAyMc7qmhjX5559yBDX9O
HzOozzetGlSvWLJw3my+3qk/2ldFitRpfbPmLliyYs1Gbbr+MGzSvFU7j/s9
cbx9tZk34RC3qjPvih8j5cubx7YsmTq8V7t6FYrlz5U1g3dKhVzuovBI7ZU+
S56i5Ws0avvdwImLNhy68tRaZfM34ZCU9f54LP6BMS+uH9m0eMqQnm3qlC+a
L1eWDF4Jm+nmkdo7fZa8xSrUaty+55Apizcfufbc1PgkTKYJ3NQpp3PShEM+
ogy5f+nIthXzJo/o/12H5vGLSKG8OTKn906dws3VRS57k0t2S5Eytad3ukzZ
8xYqXrZy9bqNW3Xq8dPQsdPmL1u/88iF288j+Jc/AAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAACRzMU9OrxjRukQ6FyfngkPPqmzzpepXt4+t
mzv6h06NqpUumCODV0p3F2cX91TevllzF65Qv23PIZOX7L78PMY2G2NfVM/P
/z26Q1lfVyd5jh+PKZN6c/7vaV7f2DGtR/UcKZyc3Fqtj7bhF4c/urh/zaxf
e7WuW6l0kXw5MqVNpXB2cUvpmT5b/lJfNur445j5m08/iNDabotsRRMRePng
2rkj+7SrV6VM0fw5M/nE7bmzm0eadFnzlazSsEPfkXM3nLgXprH1dqlf3z25
ZcGoXi1rli+WL4evVwqFW+p0WfMUKlW5YadfpizfezEwMhmejfe04QFHl43s
XKvdvNs2P/T/F9S35rSp3XXMqhOPopJ6UwAAAAAAAAAAgFWFLGvk5uRQXCtN
vUNFKFnRhFzbOuXbqtnc351jW4RDIgMOLhzYokQGhcA15+KVr3aPabv8w5Nz
xfUDbejNXTO+r5nT493+Sx8OiTn+cx65JOtFHEXl6Y69ZEQ9OLp4QJNCXu+P
kI3CIdGBp1eN6lgxi7uho/uWLGWumj2n77kTYYPtkp7y+fl147t+mT2FyJ6n
yP7lt5O33QyzweqgDfPfPb1HtWzGzojcs1DTQX+dCExuqTZ10PnVw5sX9nKO
30mX8lP81eL/67WxJV0ETqflFHUWPv1wLSiP/ZhDsqXNirw6bX+/pqhvTCyb
cKxcfEq2H7v5+muHXj4BAAAAAAAAAMAHhEOQhCIDDi7o3zB/mkTFM2nDIZrg
c0v6Vstq+nXvkr5MlxlHApNxD42oh8f+HNT0be31A8nDIdGH+0pXQPWou+ix
g64Yqhfn1475upxv4gST5OEQddCZhT0qZhRJTn3KPXvdYdvv2bCtibVpQy4u
7Vctq0ge5lOKLNUHbLgVKd2Gvbrw53dl05mUb0g4G3eTR/eH8BsbRzQtkFr2
dtc88reZceKFCfc14RDDPg6HxGpe/vdHj7Jp3263s0/JDpP23XfguxoAAAAA
AAAAALxFOARJQfns7OqR7Uqnd9V5jqULhygf7BpWI7PubxUj96nw48bbya1O
pgq6uH5sp/J60gBSh0Mi9n6XWabzm63As/mqIIfr+KINvbV7Zq9auVLqPixS
hkO0ry4t71c5gwV1dJl3uZ93PrLRXCgr0oZdXzuguiWrgyxNid4bA6x/qygf
7R/7Vc7ET2pZqsJtx6097v88PEalDHt26+TG37uV9UkcRJB5Fu+66FyIw90C
H4m8vfXXBjk/5HVSFuq0+FKo2XukVcdEvnp6+8Kh9bMHJYwxs4Dcs8BXfSYt
23Xq+oOg0EilgV8mH33rwFbFfWyTUzHBJ+GQBHFX3ag6md9tqCx14fbTjjxx
vNsaAAAAAAAAAAB8hHAIbErz2m/H1B7VDc9rkCYcon1xeGT1DM6GvliQPF21
UUcdL3GgizbMf++sPrVz60khvN1facMhYdu/ySBVNkSWvuPW19JtuvVFP/p3
yeBmRbwNXqdShUO0r8/Pa5XHGk8E11ztVtxxpB474Vf+/Dq/yBQZY5yzNFvk
Z8Wzow0+MbFOxs8vh5RlRpz4PCARfWNeg3Sf30wpCnyz8qYjdhDRvjo3v30B
jw97osjZfM65V9ZbezUv/5vb2rxLXpa26q8Hn4oPtvnkW8/MbpXb9MY8Evo8
HBJPHbhvaBWf9xeUPG25fuv9HfFCAgAAAAAAAAAACYyFQxQZijfoMnDyH+v3
HL9068GzkPAopfqTwkz0to5pTKhAyLP1PfxpyVCrUcVEhr58EnDj/LHdf88f
3btJMYPv8hIOcVBRD478MaBxQU+BFvsShEPUj7f1KuJh/KuFpSoz+NBLR86H
RD8+sXRIi6JpBdIy0oZDXm1sn1aqbIg8a8/90k36sCr1y0sbxnWukEmkYixJ
OEQduOvHkqmtd+wVX3y3/ZlD3CGa5/8MqeBlvWvQJcfX6x9Z5SGlfXFgQKlU
Or7CveIUP91LpObunBopdfwf8kwN51yOsMZG2Yo25L85bb74KLAjS13qp12P
zUpjGKS6vaC+t6mnX5axzdonllzeypuzapry2ymOW8u1n69mWq1GrVbFREWE
vw4Jevr4/p0bV86dPLRny+rFM8cO6tmmVlFfoRlJusMh8SKuzG+a9cNjQuZd
tt+G2wREAAAAAAAAAABwSHrDIbLUhVuP2XApyFiN3uJwyOe0oX4bR3zcRf4T
hEMcjerF+bWjvy7rKz6uwdrhEO3LQwNL6iqYWkTmU3euX4wVN9NG1MFXNk3o
Uimz+NvyUoZDtC9Xt/C09ql5v+F5fzlh92dIG3Z73+y+dfKkEi9PWz8cognc
2qOgUBHZBDKfegv8rV/Lty7t830/FrdmbCxhzz2rTbtm8S0TdmZMxdS6rgpZ
xm+26++H83pLx/Q6ryV55uZ/3XaQdi4xd/7uWvDjTi6yNOWHHQmWKGwUta9H
JtPSIc6Fh5+39BkVvrWTj0nfqjMcYpQm/P6JNRN76B1S9Yb+cEicqGtz6n98
TcnSVvn18AuHSH4BAAAAAAAAAICP6QyHyNKU7rfprlj1UYJwSALt6wsL2+fT
Ua0kHOIwtKG3ds/oVSuXh6kvZVs3HKK+91dTX2laU6QoM+qsgzSmiKMNv7N/
br96eU1IIbwhYThE+2xpI12dEazCuehvF60/nsh6ogNPLhvasphI85ZPWTkc
og05MqSU1cNT8WRe9Rbes+flOuz0mIppJFkcUn05/YYlwRhN4Iavs+u+MmS+
3XYb6gESvrWjvtCBe9GBR1/be1Ff++rM1PqZPtl3t4K9dz+Xbru1TxbUMm3I
i8EshSDN7akVxSOTTuaGQ95RPf/vrx+rZ9bzjUZ2SBtyqH/hT34rehTqvu6u
3UfvAAAAAAAAAADAJz4Ph8hSlx16WHxehlThkHiaZ/t/KZ24ckw4xAFEPfp3
yaBmhb1Nrnq/Yc1wiPL6tC+tOCsjsRTlxl+2/3fxY56cWjG8dXEfQ/OaDJAu
HKJ5vLBOCuMbYB5FhSm37LNvhTr4yuaJXStnEW/e8imrhkPUActbZBIY9mQe
ebbuu/U3uUhamsd68xdWIPPtsDHI3DyDJmBJo3T6Qitp2qwPM/Q/a4OWfqX3
rnLO0XWbPfd80AYfHVb+07yOzLP6tKvSxhCit3cyqX+RdR5R4Wuam7QEWBYO
SaAJPjO7dV4dqVvjaZfoi+PKf9pixyVbiz9vWn/AFQAAAAAAAAAAkEzicIg8
W7u1j0zJXkgZDomNf316U+dcn5TvCIfYM1XQpQ3jOlfIZNpb2IlZLxyivjWr
hoTRkDgy70Z/PbbbC1IdcnXL5G5Vslo2MESycIgmYHY1cwMSRqWoNe+BvZ0Y
bfjdA/N+qP+FzmEh4qwYDom5NrWqtHdIqoZLnthjGEF1e35db2k6Cr3lXn1O
gFlXoObximZ6oyFOLuUm3TQcelJfGllMf+hFnuPbneLxT5vSvj45porXp3su
86634I7UIS/lkX7ZTAlIuZSfbIXgWczOLmlNuQKtEA6Jp3m2f2DZxP1yRFqh
xFwaVy5R6sg1V4c19+y5PRMAAAAAAAAAAPjYp+EQ59w994aYVjWSOBwS5/WB
3nk+KnQRDrFL2rDbe2f3qZM7pTWqrdYKh2ifrGyub76C9TgXGHTa/t6ejgg4
uOCnhvnSWKMlhFThEI3/7xUtixEZkLrxsmd2VAGPeXp65Yg2JdKZ2bzlU1YL
h8RcGp+oGYAiQ7Gveo5ZuOGfc/6BL0OjVaro8KCH10/u/GtCr4YFvcy6mtzr
/fHUjs7EG6obM6t/+uRy9Slcr/vI+ev2/3frcVBolEqtjAh+dOP07uWT+zUp
6mNWgxFF1ZlmpEO0r3Z9ayCpIEvbZaexsx++vrWhYU0uBQedijLvuEkp8uK0
mp+t16mrz7JB/x/VqQF5Tbm4Xb+cZYXkWcyBnpmSIBwSGz/Oa2ePfJ8MmBGb
kxN5clChxHNp3PJ/tzWQ32QAAAAAAAAAADiEj8Mhskydtpj8QrH04ZBY7fP1
7Xzfl1AIh9ilqKM/5n5bXJN5ZC5Wo8W3/YePmThl0sifO9c2OaFgpXBI5L/9
8yWq6cpT56nZdcSc1XvO3Hz4/FWk8m0BeNeySX0bFzV36orMt/M2e5ucoTw7
rNC7fXf3LVKtWdcfh42eOHnSqAFd6xU0ddyPROEQ9fXxpa2SldBBlrbdBhNz
bpLSBMyp8e6de1fvvBW/6thn8MjxkyePHdKzWWlfUxMyVgqHqG7OqPYhQ+CS
sUrv+YcfGAgNaEIurfyxcgaTEyJeHTZHWGFzrUgTsKj+hwYVzunLd5+1/56B
bdSGXl83qEYmk6/WlM1WhZi6barrE8sZaqfjXGj4eWOro+q/IfkN3uSp6y68
b1+PUc2TLV1yf3aAXYsOPyvtQJk3VGeHFjBlVVTUnPfY8uVFebhPVlPuJuuF
Q+JEnBpS7KOFRywcEqsN2vR1xsSBFplnlYkXrLdlAAAAAAAAAABAMh+FQ9wr
T/M3/Q1dG4RDYmOVF34t+q5sRDjEPqlvTmtQomGfaZvOPIxIVDVTPTs2uWEW
E0pvVgmHaJ8sbeT5Uf0qVf7mo7bcDNNf0dO+vr5+cM0sid+LFiDzbrv+laXb
a2WagPnNStTtOXndyYCwRPeL5uWZWc1zmrCf0oRDVJd+K2pWPwaRM5Kp++5w
q2+xJbQhW7qXrtJp5NKDN4MTX9th11d1L5rShN2zSjhEE7i86buhFu752sw+
9UJoXVXe39yrmCkb6+TkUmrcdembP4jTvtjQ/l3cUJGr6ZSjT4W2TvV4989l
Ek/jMMyMlSx873eGAwOulaffM3amtI/n1TScOLKzfkeRFyZ/6fnZoZVlaL/B
NgNwVOeGFzIpHFJrgRVmJSmP9MueZOGQ2NjXe3t8+HrBcEjck95vUvnPw0su
ebpts7/+QAAAAAAAAAAAIJH34RCZT5t15pRhbBIOidU8XFj3bT2ScIhDijz7
a0lDr8N/whrhENWV0SXe5x9SFf12hZ9Q8wL10wPDKqc1dRSNLEO33XY4psGA
6CsTK3oY37E3JAmHqP4bYtK7+qaQ5/rxqB1VvgVoHi5vll74srNGOCT8cL88
CZVhWbrqo4++MGXt1zzd/l0+E7qdyLP3OyLFWCIzRZ0eUighayjzrjRk/xNT
YivaoAM/FnEX33NZum67TWp8oX26rLGRB6qi/pIgo2cramNbIwEeWcauO8NM
2TTpaF/u7fWFjrCaS9FfL9jouvm/DIfEqm9NqfDuPhYOh8TdBOvbpvt8rZJ5
1559w45ucwAAAAAAAAAAoMO7cIgs47e7zer8b5twSKz2xcqmqRM+gXCIY9I+
+7O+aFXVCuGQmH/7vyl9O8k8K/32rykTRrSvT42qaFqDACeXEmOu2FNvBAEh
a1qkFr1rJQiHxBzvn/tDXTRF9dkB/+d3dczhvsKFYsvDIZqAuTXj0wOytNUm
nAk1vcwdeW5UGeGQhMy3xz5bzAYRog1c2ji+o5AsTYURx8yYPBRzdUqVVEZ3
+Z3UX2815UxpHsyrmcLIR7q3XGc8IRBzoOdnwz8SnxWv1muD7aDXg/bppo7Z
dF35KesseGirReH/MxwSq328qN7bjKB4OCTuV9/7p2uiM1Zx/EXHCuUBAAAA
AAAAAPD/5m04RObbbZdZ2RBbhUNitS/XtEwYEkI4xEGpTg3IK1gIszwcErGv
R5aEL1MU/uGA6R1xNI/WtM5kStVOlrbLLrspf4tRXxpZTLAcKkE4JOpgnw9l
UZl3yzXGmyEkc9pnf9QV7cZhcTgk6vjPX8SdfEX+PnvNHdsRcax/PtHrJ++A
k/bSUuDtiDKXXF23mjsFI/rs8PdTzoyQZe71jwnrgubujKpGrwGvzgJVfOWx
H3MaXcA8W/2d5OkQzYPlzTLoirHI0rZZb7ut+z8Nh8RqAxfWeRPyMiUcEqu+
Nq60zrlk7iWGnzLvlyQAAAAAAAAAALCFt+GQ1C3/fmXeB9gqHBKrDV7VLP6F
bcIhDkpzZ1olnfWkz1kcDonc912m+IJj6iqTLpk37kX7ZGULHa3z9UrRZoOD
vTKtfbKgtmAYwfrhkIg93TO9P7rybN/vp6AYv5R6Cl5tFodDtJEPT62fMXH1
FQuGIWnuzfxSbFKUoua8x0kdQngvKvDs5tnjl54LN/8jtIGL6xsZ2vKWa4Xf
b4s/rTQP5tYwekRlGXvsN543UZ0eJBDd8Wy91ozeKVakCVjcUPcQL5lvlx02
nHqTPMMhmkdza7g6uTVaFqL/P/GfUiEh6WRSOCRWc3d6Fd2XqmuhX45ZcG8B
AAAAAAAAAABJvQmHuFaZcc/MwIXNwiGx2scLarsRDnFYJnRGsDQcEn2wd1a5
k5NHpcnXzP8Y1aVRxQX7A8Tx7LjNwcIhsWGrmorV9q0fDgnd1jn9+5Kwc+Hh
5y0cIpQsxBzslVkwjmT5WBlr0ATMrCoS93LON+h08jrB2qeL64kM1ZFn7XNY
vHGI9skfdY3NlIn7zOw/HDV+M6rODStoPOwg8+m0NQkL+ZpHK5ql133Jy3y7
7rRlYCx5hkOUJ37OLTccDonvMZMjfhtMC4cYCjIpig07beUGJwAAAAAAAAAA
wEoSwiGyLL0Pmlv7tV04JFbtP6W8C+EQhxWyvJFgGMHScIg6+OqOuYN/mn/O
gr4IsbGa+7OrCW6wRdd1Uone0MZ4KfrN3lk5HBKyoe2HdgHuVWfe5YaOo/z3
p1yClWL7CIfEKk/8ksf4Fsuz9z1sD1trTaqLvxYRyF6YNq3t1dpWAs9S5y8G
njK+OKou/lZUIOwgz9r7YFKdG+3LbV2y6rl8ZOk6bbNpaiV5hkNCVzePW+IN
h0O0QX81jH/MmRgOMfh4TFFhkgWxTAAAAAAAAAAAYMdsGA6BYwsV7lRh8VgZ
64jvuC84CMel7MSb6qTeXhNFb26fSvCutWo4RBu0qvmHNcOr+arndjNyJEkp
Tw7I61jhEM2D2dWM3iDOBYacSXZLvvbFn/WNtkGS5+p3xIR4WvT+HpkEOsc4
Fxp+zvjiqL4yuoRI36Oka9sTdXJgQb1bmLrFGtvOu0mW4RDV6YFfOBsLh8Qq
j/fPLTc9HBKruTO1or67X+bd+K9HRP4AAAAAAAAAAEiGCIdAUPia5o4VDolV
Hu6bTax2l6b9ZlsOQbCK6K1fpxa8a60ZDtE+/eurj0MpMpcUqdP6Zs1TsET5
anWbtu/Wd/CY6X/8vfPoxXvBMf9XqZG3pVwRdhIOEZkUlabeogfJsEoctrqZ
scXMo+oMfxMCY6oLIwSakTg5uRQffcX4x6qvjyslNBRLUXPe4yS4zTT35tXS
H01T1Jpv441KjuEQzaO51ePTG0bCIZr7s750NSMcEqu6ZKA7jTx3n4Nhpn0e
AAAAAAAAAABwAIRDIMjxwiGagBlVhFqHuJSb5HCNQ5IoHKJ5tKC24DQbJ1fP
7CVqte3925z1R24ExVhpA+yW44VDNHemVjJ8f7iVHHnOHrbU2rRPFtQyHItx
LTjwuCl5Me2zxfWElkeX0uP9BMIhfhPKCIVDnLy+3mL7XFv4gV459KcinIv+
dtHG639yDIeEbmznlfB/GQ6HWLD5R38wcBY9qs1kACAAAAAAAAAAAMkO4RDJ
aCMen9+9dPKAbq3qViySK6NPGg+Fs7PCwzNdtgJlazbrOmjqygN+wQ4USXC8
cEhsyPJGIptseXhC/fLCuol9W1YumDVdKjeFh3emvGUafvvrn8ceSxiJSJJw
iOberC8Fr4JE10TqXJVa/zRtw5nHUcm0n4jjhUNi/vk+s6FBKB5lRv5nyhgM
A6IfHV08oluD0nkyeXso3FKny1awSqu+k9ZfDE6a8rPyxC95DFX13YoOPBZq
0ifG7Psug8BQGScnl/JTBBqSqG9OKisWDkmCJIbm/vzaKfVvkcy3+15bX97J
MBwStq1TuoQrSrJwSGzo+jYGfv3Jc/Y5GC7NFwMAAAAAAAAAgKRiF+EQzcM5
1YU6PCSiO4QgXjT/VJqO26xT0tKEXN00qUedL9IYrxu5Z6nQcdwWv9eOUC93
wHBI6KqmApssS//NdguKYJE3VvYo5a37XKf8ouX00yHSnN2kCIeob02pYM6d
+hFn70KNfpy951aoI1zzpnC4cIjh0SXyzM2X3rHGXax9efL3Znk8dF8MaUt/
v/pmlBW+xSSae4ZaCsnSN5jnZ+L50dyZWlHsxnCtPP2u8USM2n9KebFwiJNH
01WvzDwO5lGeHWowiKGoNT/Q1jd38guHhG7r/DZtJF04xPB9EPeTqPGyp8lt
mQYAAAAAAAAA4P8c4ZD3rBEOUT765/eOJX1MKVPFcfGt8tOaa2F2XoZxvHCI
9vnieoaHR8STpW2/8bW53/D65NiqaQ13DPAo0nvHEwkaJCRBOER9bayBOIFJ
nNMWbzN6k2PEosQ4WjhE7a8/6OOc6avZl6wxrUT9aEuPQobHEMnTVZ9w2qZR
Ic2DeTXd9W1N+lpT/jN9a6J3dvERahzi5PrlrPvGVwPN7d9FU1i2Xm3DdnXL
ZGhX5bn7H7d5d7HkFg7RPFxYN9W7/0uycEis8mDvLIZ2QFF2osAMJAAAAAAA
AAAA4DjsIhwSG6sOf+J3fMv8YW1LpTOhxKOnLKaJCrpzds/Scd9+mdWUCRiW
hkPCr674vkzaz0stHvmb/7by6M2nodEx4c9uHF42qHZWXWW/lIW+WXbNGvVY
qTheOER9c1I5o1kGWYZvtoeZ9/naJ+vbG6ytvfsKz+oz/ax+QGwfDlFd/LWI
ibknI1x9K/dZcu5l0swWsTIHC4cozw4rrHNzZamLfbf2tlW2T3ltalWRx4s8
W6dNtmtRoL42rrTu4IVHgU7L/MwZpGOsBcNHXGvMfSQQDhHuRBL35Gi93nbT
P7RBa1p6GYzBuNVfEmTzyFcyC4dEnhhQ4P3uSBgO0T5bVMdgfNI5/+AzzBEE
AAAAAAAAACAZsZNwyHvqwB098ok2JzAWQtC+Oj2qYirjn/OGJeGQmHub+pZK
83nNTOZdbcKZxN0RlAFrO+XRtY8y7yojj720114KjhcOEandyXP2PWROOThO
+IFeOQRLgzKvJsusPWrB5uEQ5enB+a2bDXnDJXONIVvv2Hy2iLU5VDhE+3R1
y3Q61iuvkt8tu2KlHkaax0u+8hS8BuS5+h6yTTJO+3JLp8yf37ay1EU6Lzr/
ysw9Vx7um01wKRCLJWjuTqssGg5xKTvxhq3aO2if/tkgpeEzmb3fEdvHCZJV
OCTm8vhyH3XbkTAcYvzClWfvc8jhl2YAAAAAAAAAAPCevYVD4tsxLK7vIbY1
AiGE8N3dM4u1+zc/HBJ5dX6TLLoqU/KsHTc901mCCj89rLjON3Zlqcv9etw+
Z204XDhEG7SkgbEtdi0z4bqZhdVX69safoX+E4oq0+9at0GGrcMhMcd+ymVK
JdQkMu+y/TbcSfJ2GpZwoHCI9vX+7z8/lzLvalMuWC+hofH/Xbj5Rfxwpw6b
zB3uZIqIf38p8FkwT5a6wqhToRZ86qsVjUWbVCnqLNL9TPiE5u504XCIPGsf
qR/K72gfL6preEiQk2u1OQ9t3wkoGYVDwk7/VvaT/I2U4RDN/VlfGr7O5Fl6
7DMzPQkAAAAAAAAAAOyP/YVDYtU3JpYV6x0iEkIIWdVMMGpiXjgk8sqcBhl1
FohkPs1X6i1AaUO2d9Hx/nrCMc7UbNldW70JbgKHC4co/zWWZpCla732ubnN
Ag71yWpKYdCj6UrrlvhsHA6J+qeXaHMEM8kz1Bhz1PYTKazFYcIh2hc7uufW
vaVyz8Ktx++6a41isPblskbuppz9HD8clfrRog35p18B3bVwWap8TUduuWXe
fBb1rcnlRdtdKer/+UIgHHJvuuicGienFC3X2maujPbZkgbGnqaeFk5nM09y
CYfE3FnRNnuiHZEyHBIbvaOzt+GNlmfp9Y9Dp/YAAAAAAAAAAMBH7DAcEhu5
oY3hzvXviIQQlCd/ySNWvzEjHKJ5vKFTTj1VQefCw8/FGPh/Y04O0FdLlnnV
nnvLDtIVn3K0cIjxl+8VJUZdNPtqfr2yiWizgAQupcf7WTXyY9twSMTubzOK
90kxW8ri/XY9sX3jAWtwkHBI+LkpNX0Mn0mPL1pMOhRo4R2svjq2pGhg4s1B
abY6zDq7qEfU1bkNfA0/C9xzNRqz94GhZVsn5fH+uUVDAooGfwlMDtPcmyEe
DnGtNvuBLe4ZbfDq5samtDkXSJK1PzmEQzQvT09rlOXze0bScIjAgZPn/PGY
ybcEAAAAAAAAAACwT/YYDlEe/SGHUMlFJISguT1VcLiByeEQpd/MGp76yqxu
VabfMVywUx77Kae+3ZR5NVxsk3qfCRwsHKINXtXMYCVTnr377lfmFwhfrzAx
HFJmggOHQ0K3dkxvg2xIPI/iPx9wxP4hDhAOUT7cNaiSkWTIW86+1YbufmTB
Xay+OsbEcEjzNdL1v1A/+ee3Gr5Cp0fuU7H/lnsmVcOjd3xjpP3CB4qvlgYb
/0RNgAnhEJeSY6/aotVU5M4uRhcBRc15j5Pg5nXwcIjy2X/Lf66RWfcZlzQc
og1cUEvngLuPOBf59WKSP88BAAAAAAAAAIBV2GM4RHV2aAGhQo9ICEEbON9o
8eMNE8MhyquTKupvcOJaaZqRbEhs7OvVBibeyHP1/kfaF+lN5WDhkLDNX6c1
UMmUZWi9xqLyoKljZVI48FgZbci6Nt42yobEkaWtPeu6w72rbtfhEG3orR2T
vi7ubdJgIJdsjWedN3cRspexMtrwO3undynjY0p0wMk5Y53Jp8STY+JLY3yp
f/kr45+oCZhZVTgcIs874KTkT+X4JlwD8hq9fjzabLDGUCJTOVg4RKOKCn3x
8Nb5o9uXzxj+XaMSvoYuH0nDIbHRWzoYfYy4Vp0ZYGdRVQAAAAAAAAAAYB57
DIeoL48qJvTOuVA4JGhJAwnCIZp782sbOHDORX69YDQeoTo9KJ+BglaqhksC
7amBgmOFQ8K2f5NBf5xBlq7JUks7s7xa18ZL7HjEU1Q21knGVLYLh2hfrGxm
yiphBW7FBh+3r2yUUfYZDlG+uLx91o+NCnmbFI54T5a22oQzoWZ9s8b/9wrC
+Ya4L2q/6bVV91wVfH33vF+aFfMxqX/Jhw3yrPDrsRChBVj7bFEdsWdMHLcm
KwT207RwiC2eymKTbuRZ+xyyQU7lM44RDjGPtOEQoT5tqVuvM28RAAAAAAAA
AAAAdsYuwyHXxooNJBAKIYQsaySWaTAlHPJ6V7csBioqsrSdt0cZ/RDNg9nV
DFXbFBV/97fFtABBDhUOebWxvf7xGbL0TZdZYWhP2P7vxcYfxY8JarzU2kkf
m4VDtE/+bJja2cVV4eaeIkUKdzcX6euhcVwL/nxMujEjErCrcIgy6Nr+pWN7
NiyWXji1oI88Y+PF/ubczppHfzYUfbjIc/U9FGGVPVcF3zi4YkLvJiUzmjT1
SReZT53Z1wQ62GgezqkunORwa7JSoM5uUjhElrHnfukb7URs6eBpdFNcio26
nBTPLMIh5hIa/yTP/fOJpMj8AAAAAAAAAAAAayMc8p54OERzb3b1FIY+yqXs
xBsCJbLwv1sYHLzgUmGKv/10c3egcIj26dLGei9reea2awOtclg1gWvbZhYo
DsrSfDntmtVvGxuOlfmMRhUTGfYy8J7fxVNH9m5dvWjqb/27t21QqaBvCivW
St1Kjb7oQBVJewqHCC96YjzKjDprzrCQmCtTKotco/IsHTY8tU52KnpDa1OG
2RjjVmTQv0Y72GjuTTfeU+P9JzZbLdASx7RwSLpv90geDlFd+q2o8cs7qQaQ
EA4xl+bR3BrGrzRFrfl21cYMAAAAAAAAAACYiXDIe8LhENWFEUUMF6LchQqA
sTG7uupvbxFPUX2OFTpcWInjhEPUN6dU0NcwwSVvz91BVitzaV/9O7KSl8Fz
6JSiYI8tjyU4i0kZDtFLGXLnzK7lU/q3qZLb07xBJh+ReTdbYaXMgA3YUzgk
Vhl869+N8377zhqtQ+K5lx59wZz8gfrBhm75Dac1ZGmrjj352mqnWfXqzokt
C0d/b43WIfFcCw8+aSQYo7kztZIp4RCBhjiae9Mri4dDfHtI3zkkfH3rVMY3
RdHwr5dJcccSDjHbq+WNjd8ossy9DkrfnAYAAAAAAAAAAEiOcMh7ouEQ5akB
RorAsgzd94pUUpSH+2YzXFtK1Wrta5FtsgWHCYeEH+yTU89h9Sj96ylrzyqJ
uLa0W3Ev3V/okbvZlBMSVUvtMhzykZjnl7bP+rFJUR+he1k315JjrtrRZCWD
7Coc8tFmBfvtmf9LU4tOg1P8YKRGS82LOGmD/p3UOJfuTkty75LfrfAzpymJ
APWrW/8sHtyqZHrhlIVuqWrNu2dwz01q8+HWfI1IOOT21IrCHynP2ueQ1Pe3
+tq4UgJXkEfbjcbnqUnAMcIhbi3Xxl/rWmX4yycBNy8d37ns90FdG5XObDg9
JXE4JHpLB5HUT+2FVjhgAAAAAAAAAAAgqREOeU8wHKI6O7SAkTKUPMcPR0WO
kvLkgLyGa0vy3D+fsJfJGg4SDtE8WFhXd2hClq7BQn9pjqY66Nzf43s3r5g/
i09KhWsKr4y5S9XvOvyPIw8lzADYezjknaiHx/74qW4uD7FtTbzpeX4+7iBv
rNtpOOQtbcSdPVO7lMtgfkTEteSYK2YHdaIeHFo0rEu9Url9vVK4KlL6ZClQ
qUXvCWsvvLRB9Cfq/j+zelTObH4HFecCQ84Yun+0gQtqCX+6W/O/I4xvs9p/
SnnhUyXPO+CU1OttzN7u6Q13SIonS9dtd5Lcrg4VDkks5ul/a0Z/XTq9nh2Q
OBwSs6+Hr/Ez6/zFQMmvMQAAAAAAAAAAID3CIe+JhUPUtyYbrdrJ8w44KXKU
BHImijqL7GWwhmOEQ0IP9Mqls16nyN9r9ws7OZRW4SjhkDdiAo8v6FEuncmj
ZuS5+v+b1Nsuxr7DIW9oX11a3q+ymQkR50LDzjlsfVgbdv3vX6pnNq+JiDzX
T8cMZR5CVzYRHmHj1kIoHHJzYlnhs+QifX8dbdCS+gL5F3mW3pL3MNHJocMh
b6ifn5jdsUiaz3MaEodDBHciVduNEnX4AQAAAAAAAAAANkQ45D2xcEjIyqZG
eyAIh0POG61oOecbdNpOCrKOEA6JuTCqlK6NlKWtNeNKksw7kI5jhUMSqF+c
mt+1pJfx99Q/vpiK/HrRTu4AwxwhHJJA/fTwuPpZzYhJuJSZ4OcoQ3500gSd
mNo0p3CO4wPnQsPPG7gIo7d18hT9KMFwyPXxpYXDIa7VZj8wa+KPOPWNCWUE
tifJOl0lg3BIgqhbKzvlSzRlRuJwiOqU0LrlWmPuI4kvMgAAAAAAAAAAID3C
Ie8JhUOUJ3/JY0o5yGIp22ywkxd27T8coro548tUOrZHkf/7Xc+TU9OQBA4Y
DkkQfW/rL5V8xG8iRe2Fn9VxNfdmVDGvCYQhbo1XvDJ/vxwmHBJP/WTvwHKe
JqV04qRovCI4abfbcpoXR36r6mPqnitqLQjUv4Ioj/+cW/SCFgyHXBV8Biac
llbrBD7SIsoTQs8954JJ1FwmuYRD4qjvLW+e6eNPlToccmFEYYFD51xs5CWH
COkBAAAAAAAAAABDCIe8JxQOCVku+GnWoqi90E7myth7OER9Z35dHU0pZBka
LrhhaCaEo3LUcEi8KP/VXQumENt6WZbeBxNvPeEQy2lfn5lQPa1pXVzyDT6T
HArE4Zdm1stg0p4bfvBpbv9eQfRydGsuFA65Mrq4aDhEnrWP5LNcYvb18BU4
YM5Ff0uaNj/JKBwSP8Nna+csHz5X4nCI+vIokUtNntPeHiIAAAAAAAAAAMAM
hEPeEwmHqK+MKSH8QrdVuJSdeMM+RjnYdzhEfXdhPe/Py5cpSw89+so+wjXW
5sjhkDiaZ/t+LqWrz8tnFPWXBCU6hYRDrEIbfHhQKaNTsj6S5ustdrHhFtO+
PjmyQmoT8iHuzdeE6f+48LUtRQ+jW/M14ca3T3Xxt6KiYQeX8lP8pX5ERG8V
+p3gUnz0lSR5WiWrcEjc+vZwcYP3x1vqcIhYkxpZ+m/3JMeMJQAAAAAAAAAA
/2cIh7wnEg5RHuqTVaAa5FJ81GX7SHRYkT2HQ9S359f9PBrimrvzhkcam26I
DTl4OCSO5sn27/IrjN9NZSYkzkcRDrEWlf+ihumFQxIS16ltSn1/ZctMwqV9
Rc35j/WnCVSnxM99s9UGUibvP/C80KyPBCnbbJB6qkxs9Ma2IukXl1JjrxEO
0Us4HBL3tD3w/buPljoccn18aZGfW54indUAAAAAAAAAAICdIxzynkg4JHrr
1yKHS561j/SHydbsNxyi9JtRPU3iArc841cL/JJzNcvxwyFxoq/8Xs3TSDbB
ueCwc4kuJ8Ih1qN9sq6daEhCUfeP58mnD482aEe3HIJ77lp1ZoD+nJn2xZ/1
jaec3pz7JitDjW+a6uzQgoIXk3Oh4eclX22jN7R2F9gWl9Lj/RwjHFLbzsMh
scrTA/O92SOpwyE3JpQR+bmVst0m+1m0AAAAAAAAAACAmQiHvCcSDola11Lo
wzxa/C3werhjsddwSPTF8RVSJtoCmVeVcWeS3Rn4VLIIh8Td7Xfm1/UyGA9x
LvDZ5UQ4xJq0gWtaZRDqHqL4amlwUm+tNWlfbO0s0grKycm1xjwDnUNilSd+
zi0WExA7hKozg/MLXkweLdYIpE0sFL25vcgIKJdS4647Rjik7h/P7DscEqt8
141G8s4h40qJ/NxK3SGZjJQCAAAAAAAAAOD/GuGQ90TCIZFrxcIhLiXHXE1u
c2XsMxwSdmJI8cSblbLUgINByafBgR7JJBwSG6vym1IxhaGbqcRnNxPhEOtS
35xWRWRsSKr2m+1rwy2mCVhQR+Q2MtbwI2RFE0PX8AeKeotfGF+bxOfUOBcb
eUn6R03Mzi5pBeJDcbfqFccIhzRYYoUnhKThkNiovd1944+51OGQK6NLiPzc
8v5mRzK79wEAAAAAAAAA+H9EOOQ9obEyYi9QOzl5ttsYbp2jYTfsMByifbm3
1xeJLhX3gj23B+ofAJF8JJtwSGxs6J7uBvo36BgBQTjE2sJ2f5vZaJ1bnvvn
43Z9IZkj8nC/XEb3XJax54EYQ5+ivir40BIbaKI88UseodiBzOebnVFWOxb6
t+dw32wC22NpUiXy7t6ZP7WuWjBLWg+FW6p02YvV+nrwH8ceGzzyCUwNh4gN
9zFG2nCINvhN4EjicIjq0shiAodOlrnXP8bPAwAAAAAAAAAAsHOEQ94TCYfE
7Pk2vdD8Bed8g07bbrKKTdhdOETzeG27LJ/W5hR5Oq27n8yOuz7JKBwSq7rw
axF9BUqZT5ddiW9MwiFWpzw3vLCxzVfUNDhbxUGpr48vbex541phir/hxFnM
gZ6ZRB4Nrl/Oum88u6b89yfjiZWEU1JrfqANTonqvPGrI45zoeHnzVx+taHn
57bMo6v7iixV0e/W+BtOwJgaDknZbpMV7kBpwyGxqosJq6LU4ZBzw0QOXdwv
mjP/J09WAAAAAAAAAACSM8Ih74mEQ1RnhxYUq0G5Vvz9dvLqX2Fn4RDlzXl1
P5104JKj7YrbZl+d2pAdXbPKndK02+QgLV+SUzjE0D3vWnHqncR3EuEQ61Nd
+q2o4e2XZ//hqJ1fR2ZR35pc3vDVJMvw7R5jZyxkTQuR+9Gl/BR/4801lEd/
yCESO3ApPuqyLea4aO7P+lLghpPnHXDSrCsk4tyEKl4GsjXyzC2W3zOwo6pz
wwQfzAlkvt/ts0IbDInDIbHh69ukkjwcojzxs0iTGhej8SgAAAAAAAAAAOAA
7DQcUspOwyGah3OqCxal3WrMfZisiil2FQ6J+G9kWY9PvjNbiyU3Lai4x5wf
WUIh0iHAbiSrcEis6sygfDqru/IcDpJIcPRwSKzqlJEdSN1qrQXhGTumvjyq
mMEnTooGS54b68+heTSvhsAC6VJizFWBcIjYGBebPI8ThK9r5SHZ9kSdGlLY
2GNV5llvUYDepVl1dmgBE8IhzgWG/GeFJ5TU4RDVmcH5nSUPhxzqY2Cm14dt
/0rSrQAAAAAAAAAAALZhl+EQgTb/CWwfDomN2ds9g9BcGScnt6oz7jpIzkCI
/YRDtEG7e37xcTHROWuzP/wsKberbs6olirug2QZe+63whvlNpG8wiGxEZva
61qJZGm/3hyW1NsmxOHDIbERmzt4Gdhq97qLbDHBJClE7/vO18Cy7lplxj3j
S7nm7vTKCqPn3jn/YIHxHMqDvbMYf87I0nfZGWGN/TdOebx/buMRAlmG7ntN
Xj+1z1c28zT60YaPnOrMYN3ZMt1cq0wXOKFGSR0O0QbOr6WQOhwSs+fbdAKX
WqbvDzjKkxEAAAAAAAAAAOhnl+GQm5PK2Ws4xJR5Fi7FR12SfLqK7dhLOEQd
sKxZxo+qWQnJkChLPjHq0qQqb3IWijqLnjpK/TuZhUPUl0cV13HXe7Ze6yAv
rDt+OMTwPK8UtRc8Sk5ht4/F5zr0L+uKStM+G2yk81P8p1Qw+nAQe4TGHOiZ
yWjFXubdbuNry3deiObR3BoCD76U7TaZfGW/+rul2ELmUmrcdT1NV5QnB+Q1
IaaRsvV6a4RqpA6H2ETUxrYCPWFcyk66aYv5RQAAAAAAAAAAQFr2GA4RDmAI
NYe3bjgkVnniZ4E3qN+QZey4JdjsrEH0hfENqvVYePqFndRk7CMcEnlhfKWP
Soku2ZovtigZon5xYmrjbG9L4s75Bp02a8NVz/9bNbZX0wr5s/ikVChSps38
RblG343863ighC9bJ7NwiPbZojqf9V2QpeuwyVEmmTh+OCQ2ZLn+tdKz6Qqj
k1X0iwz4Z8GQb+qWzJ3RK4XCLU367IW/bP3DlI2XQ+wkbhK1oY3eCrlHnYWC
qRi1/+8VjfYO8eq8Q6BDleFWJglk3m3Xh9gsyhazv4fRLTJr+IjqvyGCE2Fk
6brt1rOgKv/9KZd4TMM5v1WmyiSLcIj25V8Njfe7cUrTfrPdbToAAAAAAAAA
ADCdPYZDtE8Xfl4m1sX5i4GnbB0OiQ3f2jGt4GAZJydF8RFnzYsuxFyZWMEj
/oD32GcnUzXsIByifbm3d/4PuSGXHK3/umlClV2rUSujI8NCXgQG3Lpy5tDW
pZP6NS7s/VFhMlXLtaEmb1T4lSVdinnqrhGmzNd61n+vpCngJrNwSGzYqqaJ
ry959t7/OExJMhmEQ6I3tUup7xLqdSDcvA/VvDg6/quc7jo/1jlduT5r/e3g
WOifrSHL+M024XyS5tGCOsbaMLg1XWV8kYnbnvRGnjKy9J22mr5amU3zcE51
45FN12pzHpqY9xFLnSTssfc3O/WFQw71ySoe03BvvDzY8iOSPMIhmvszqxo/
ry6lxl2zk5AqAAAAAAAAAACwhD2GQ4RjCPKcAkVva4dDYkPWtfYSP2IeFSZc
Nr34GXluTLn4Mq1bhSl208w9bHWzpA2HqO/+1VSwjGgel9Lj9Y0t0EMbfHRE
BS/D25SyeL9dTyVokBC9pUMqsf2S5/jhqDXu2qi7uyZ2qVHQN5VbCq8sX5Ss
0W7Q3J1Xgqx1poOXfpUoEqYoN9HPXq5+41SnhCdbuLVaZ9EcJKnoDYekrD5L
aLDKZ9T313XJpzsY8v7qTF9rytmkDsDpDYe4l5t4zYQrXBu0pqWR9cC12uwH
Ro9lzK6uPoY/Rp6lx15rjEYRpjz6Qw6j17dL8dFXTLxlhT43gXP+wWf0nIuY
vd0zCD8aXIqPumyVdSU5hEP0jPP6lMznm512uWIBAAAAAAAAAAAT2WU4JGZ3
Nz2vcScqWaT7do+RuR3al3u/zyP2Pr9oOEQbvK6NeO8QJyf3ogOOvjaleYQ2
+EC/AvEv88qzdtspUdsJM7xe0UQ0HJJPbxHPfOFnRpXT09bASmTpuu4yKcej
ebiyhUhaReZde85Nqx+Q6E1tjTUpeMsad6325ZHfKuu47GWp8reYsP+R5YuC
2m9CmU+KlLJMnba8tJur3zgTBk65tfjbsrp+9P3903rUK5YljZsiZbrsRap3
HLb4yEOLRxhpn/9RV1fLJtfCg0+ZVdSOvji+vMg965yj6zbBmTUxjw7P7tOw
RDYvd0VKn2yFqrYbvOCfAMvr1qGrm+mKsDjn7XfIxNxK1NEf8xi8DJwLDz9v
dDGIXNcqhcFD5lpi9GWpRnfp8WpNc6Mn04ylRnP794pCU+Rk6Tpv03cyord+
Lfw7Rpa55wHrNKtJDuEQoZ4rihpzBScrAQAAAAAAAAAA+ybefiCBPEvvQ9KH
Q1TnhhUSCnS4G+nQrw5Y3jyjaI5DNBwSGxuxv6cJPezjjlqmJn/cEC3dRl2Z
VfdNNCZVjTnmva4vCe2LP+sLDfuJ29/cPx+37lWifbq1a26j7zdbyLW6aRWw
Vzu6Zha8DGRpm698auWgQ8TfLQTDOrKMPQ9YlhzQPFjezMCb+XKf8j9s8Les
RP96batPpuSkqj7L33HahsRRHu6bTTQc0njFa7O/Rxt0aETlz9tKyLzL9ttw
x6Kit/J4fx3xFpf8PxwyKdz2jubevFqicS7nvD8dNVo31746Mb6m72dPBlma
Ej1W3bAobaO6MKLw508cec7uu0yPJ2nuzq5uKLUl8+m229jdaGyGi8yrybIn
tg5Oae5MrWQ0xZGq3SZT14EYsRvHvey4y3qfKuIzzxIyJmZOSErMtGE2cfd9
cwtDYRKI2tjW6E3qXHDYORsnkQAAAAAAAAAAgDSiN7Qx/IZyosKKb4/9Fr+g
bpT22aI6QjkElxJj9Dex1wYfHlhSsLdCvFTtN4uWVlVXxpUWDEq829IsjWac
NdoFRBt2YU6TbG9CEIpiw/+zp07umgezqwm94B3/anavf6x5lcT4za5jSq8W
88hz/fSvCZEW7YvlTUzIVbl9OfOeVZM+2qAlDUSvQa/OOyxKDUQd+SGnsSKo
zLvcj1vumX3aX2/++uNuQe5lx16UfqGxKtF+R3EUdRaZGxXSBCxppHfgiNyn
0qDdj8wt437WuyXhRBQb/K/BAJ7+j7sypoR4nkuWruMWw9+jCfy7jd6kn8yr
zA+bzb76NAGzvvzsXnIt0O9AiFlnKeL4gIIG9lxRe6Gxs688+Yuh9iNupUZd
SIK7Q3VuWEFjoU3XGvMem3rQovb3zGJseXEtNPC4/mCF9snC2qLJxSw99lkr
oRFzoKdw9jSeWxMLQmHS0D6eX9PYkZNl6rHfOq1WAAAAAOB/7d153FZz+gdw
97O2byot0zLtqCZMKWXLkkRMZK2YyJIakd3kZQtTfhFFhqJSWSqEZoiEalqY
VIr0aN/Tvj7bPb+yjJZnuc/9rJn3+2/u53vO+Z5zer2uz7kuAACgoG1/NdJZ
IT/JaZk5Mimf9ozsI/zEU59ekmHJPbx15uNnZlpEzfi3AvR8D29+p0vloHGF
onU7PPFBpiMQ0jfN/nvXJqV//tHYOj0+Llx1pLQFj54Qaa235NXv5NouCW/5
5PaGgfZolIq2H7klwLr2TvxzoP1V7OLRW3PrnOyXvuSplhGGdY5K/NOYnHwr
nzrjjjoR3Y4xFc94YPK6KPp9pC8fcvYBSZsSLR7/qjAFoyKy6/VLMppMkpH4
5k8mRZcUSp7aK5vZNXFV2/abHs04ntQ5fRodcoOHyrcZ/E2UKYTwmuyrzgft
nZq9Ps8qm5V9O6nYY1o/PGVDFOc17du/NTtkqaEyp/X/KuoRIOFN73fNfN5I
dke6P/j18vmZP/Jia/eYHF1eJ6eSP7klu/dybIN7vwicTkr96oHGWb5bYmvd
PCmr12Hawr4nRvZySmz62IJca4KR/N41ZSP6qz9LOPfFCKcn5ZvUL+5tkF3g
p8zlYwtmvwEAAAAAALktfdXgMyOtMP9UW8lmkEvuCG9+9aLIBhLEVL38tVWH
VqP3Ln3ntmZlgmY3EtoO+yHyyk368qHtoulmkVil+ZX3DBo7Ze6yjTuT01L3
bNuwdM6k0U/2bHdsmV9rNLG1b/4wuo/W807KlMhb6Ce0eSmXimCpS165uFKQ
zv1Ri2384NwAsYbw2iFnBWoeE/fHx7/JzTEpqTPvqhfR7KV94k8duDwHbUv2
vnVl5D1SEmt1HDJ3R6CrH94wvtOvrQNiKrUflnTkDTFIX/7MaZE+SmPr3jkz
qiOMMKFVtEHn4QuDtUcIrxt9aYWDn2fFmtwxOZqUyU9SZ90d8f78aeNkmWCK
MAuVWPuyF+buCHbkP7zd+ZDxUEWO6z5xfY4eYOHNH3avm9mVij/92RVZ3o57
J92QaUeKhGNvnZxtC6q8svuDbtllIkt3mhA81xXeNOGazN8uoXJ/GpV1r5Xk
j2+qEsnLOLZOruZqdoy+OFBsMfpQWJ7ZO6FT6WxWXfJPo6J/DAAAAAAAAIVK
6qy76weq4MU16/ddbpa4MxFe/WKbSCfCJNZqd9+rUxdv2Lln+9qkf//z770v
PLb0AYWiUCjCCEfcSY8tDHJoaUkvnBesN0mkB9Tozs+3FbZqTHjj0PMiLoTF
Nrhndm6U93fM6NM0spBQzpXt9E6QTgFBGyME3l7Z2TamQ8Qzk2Kq/+WzABNz
DpUypUdkjXx+FirV5KY3kiLtHZOSNLT9f0vhoVLNH5hW6DZ/JAKdpOKXvh4s
wfDLH/lXhD1c9s9ZueX17yLd0ekrRl16cECiWKMe76/NSSE7SHjpR4kXj87i
nKTOfbBxZD8XKtn4uuELIu2UE173VpcaBx15kQbXjVuRC0+vHdPvbZLJyLaS
HcZk1aQoZXqmQ2VKNn/0i6gbmuSCnRO7ZjNIJb7V09HMzwqvG9+5esYXOKZa
94+zzpukL326VQTJoYRje32Sm7matO/6NYt8cNL+I6l5azY9Y/Jb+spB2Q2L
K3HhiMLW7gQAAAAAAIhS+qrnWgec2FHminH50WI8vHn81cfkPHkRqtDm0bvO
jqyIHyp/7fvBvnkOr32rS81ABdAIVlHurIFf58PknoDCm8deESAJE39yzjNE
6avevCqTcmEeiG/1VLCa5p53u5QNskEDTq3Jzo6JXQPMNYpr/ODcHNS7t73T
qULAmzGmXLMer32bbfeK3QuGXlbrl/szVLblA58doR+pp8zp0zDyzRpTtds/
oxn0E6Q9yb7zWfqEG0d+vT27E5q2+r2eTQ5sDRNTsfWjnwfoopTxUlcOOiNI
U6qY6j0/zaJwHt7wUpsAr6oSDa95ac6W7G7o9PUf3dXsoCRhuZb3fbw+t5o7
pC4deenvMtwUpS8Zk/k+3z25e40MsyEJ9a5/Z00Bd57Y/eENVbOMJ8VU7T45
qgBEeNvU+5tm1KEortnfFmX5Mklf8VzrbCc6hcq3GbQgV1+s4c2vXVIquz97
yBU8Y9DKQtU6JPsBfqU7jD5CH8kAAAAAAMChtk+5NVjfkP1KnNo/X8ILaYuf
bR2w9HKIUKnmfaZt2Tz8ggiLirH17poRtKy148v+rcvnXvuQYo17TcppVTYv
bJ92V+NAfTJiqlz++uqclMF2/fvxlqXyoi9LJuv93S2fBLv24XXD2kbcuuOo
oxJaDvg+98qCu754qGkmXQkyFqrQ/uVl0cd1UuY91izQ3/tJ8XodHv/H0kw6
HaRvnjOiZ4v/3jxF63d6eUGwUSiFR+r3L54frItQ8eZ95wQfv/GftEX9mweL
88VXbnnT81PXZLK5U9Z8+n8dah/wi/sDJa8tzo0HfOpXQeIyoXJXjtuW1c+l
Lx/cOsD9tk9chWZdB36yMpNjSV0/fdCVDQ7Y1KGSDa99Jbd34M5M3g9FW/TP
ZMhU+vIXzs3ovZdY5+pRSYWg7UTytNuzbl6TcNaQtVG+wtLXvHtzw8MvcpHm
f/smiyPfOa13g2w2WkzFs/vPzjYlFUzyvL7Nso2kHCr+uNs/K0SNkcI/DGub
5eMkVKHT21sLepUAAAAAAEAuSN8866kLqkbVmCG+evsB0zfm/XCZtCXD2kfd
PSRU/sy+07eE//OfLRGHQ/b9P+c//23Qim14++z+Z1cMMnUjs79e8sRe/1hX
qL4r/tGepe/dc2oU83OKN7p+1DfRtEfYH7x4p2vtQA37cyqx7bCNAWt2QZrb
hMpcOHxNLtUEk1dOeujsSsHv3CL1Ow2dF3WBNHnRi+0rR7XLE6qccs1Dw/4x
O2n9juS0lF2bVid9NXl0/1s7NCn/yxWOObrpjcPn53LtNt+k/TDr2Y61AzZg
2ie26vn9pm4I+hgNb/24Z70gHTl+UqTySRf16Df6o9kLl23YsXfvtnVL508Z
0/8vFx53YN+MuMpn3vvu0lxL/qUvfvrUSBNFMb/v8Ul2uYyd0+5uFPw0Jx7T
5IKbHx/5wcyvl6zbvnfv9vXLF3z+5lO3d2hc9oDdHFux5W1jIx7CE8zOec9d
VO2wh1modMtHZx2+5fcsGHTe4WGSUKkTb31vVT6Mc4tE2vxHmmT1bA5Vuenj
5Kh/PX3D5L+2Kn/og6ZIg87D5mUYqkhdOb5rvSxzi6GSja4f/V0UQays7Fo0
6tr6wTfj/uWUP+2+f66M/gTlqpRpt9XK6qEeU6PHJ7l85gAAAAAAgHwTTkve
tWXNd198NOap3h3+cHSOiu+xRze+5I5n3pj878Vrt+5OyatEQ3jbzMdPjyKX
UOL4a4cv/LnWGCAcctT+MtyxF93x7LjPF67eHuAr7eRlE25vXi4nfS6K1rl0
8JeF45Pi/dtk64aV3835/P1XB957zek1g32vf5Ai1Vp1+evgNz6a/e2Kjdv3
pEa2T/bMG3BmoIktORd77H1fBh+7krb0pXaRtI0JlT7j6YVRf/QfTk/ZvW3j
qsVzp/1j9LN/7XpW7RLRn5uEys2vuueZ1z6YuXD5hm377ttAG273NyOuPa54
1H87Q0Wrn9njxZn5kDTLReHUPTs2rVny9cxJY//e95YLG5aLfvZRbLlGF9/a
f8T70+YvWbtlV3JaRNdjz8KXLqkRPB+SpWK1290zZl62c1gC2j2rzwmRxENi
qnUavy6CY09JevXqOlGV5DNXtOY5vUd8+UOe7sCUZe/e2arCYdukeL329w37
cO6KzbtTUnZvXvblhIE3nFz+0P8qVKJR1xELC1NLnfRVL52X0fiXX8S3HLAk
Rxtp7/fjerU47HQlVj2ly4ND35uxaM2WXSlpKbs2Js0YP6Bbi4pZ3X2xFVr0
HLMwuoTiYYedsmf7hiVzPxs/pE+XllUD9ww56JqWrHveLf1f/WDWotWbI73r
80J4zZCzsgrWxJ/U9+sj6tEMAAAAAADst+u1DrlcUMtYkY5j82DezK6vh3U5
Lqta1MHiKrboPmL+jl/rLcHCIf8VU7PX1ED1/ORVkwd0+kOZ4M0V4iu17DF8
boEHQ1Km9KiWC/1PshUqd+37WXw3Hd448cYoOiPkUKnLx0ZVQQxvnHTHSSWz
DmsUb9T93TXBi6Wps+6uF33qIIBAt+2u78bd27ZWDuJCP4stU/+c6x4dNWNt
IfmEPnvpK549PV/2ZfypA5dnt13SN0x7+qqGuTF2KbFysyv++sr01Xl0HVK+
H3nF77MeSBVT/ownZkbcNiZ906zn/3xC2Vx4UsVXPOHSu1/6dEU+dUZIWfXh
I+3rBMtWFanZts+EpLxpaJITOz7oltW7ouSlr2c5ISgSaRv+NeTGVlWi/4dL
0Rpn3fryFzkP/aR8fmuN/HgvJrR9eVN+/xtg74fdsuh9FSpz0chIIlsAAAAA
AEAhc2SHQ/bbnfT2fe3qZNMxIaFS0yv6jPnq0K/f8ysc8qPUH+aO69etda0S
kZSTQsVrntb1b+98U+C5kB8VknBI8gfXV8zfriH7xDXr9120VcTw9jnPX3Vc
JgGR4vU6Dpy1JarrWzjDIT9KXjtz1CPXnlm3TNDmQ7Elq53YpnPvAW/MXH3E
DSsoVOGQH6X9MOeNx64/p0HZ4D2gQkUqNWl7XZ8hE+asz/N0Ttrajx48t1rG
z+DYo5t2fy34yI/0LfPH97ux7fFHR3FBEis2PPfaewe/9cWaPHpZZSV59efP
92jToEx2N3ao+O/P6v7spKWFqWHIgdIWPdki894ZMdV6TIm6UdJBdi+b8tJ9
V51SvXjkb6b4cg3O6fbYa7PX584KfsvhkNS5DzbOfCfG1r/zXwVwiwAAAAAA
APwkbcuC9wbf3+3iVsfXOKZMsfiYuMQSZSpUP7bZ2R263vnkqx8t2FiImhDs
XT//o1cH3Htzp/Zn/rFB9UpHly6eGBsKxSUWL1uldqNT2l55ywODx01fuiOv
xvGQz1LWzRjx8A0XNqtbpVyx+PhiZSvXadru+gdembamEO3J3JeyadHUt4f2
v7d754vPbvGH+jUrlytZNDEuJhSKTShWsmyFytVq1WvUrPWFV91w+wP9h4ya
OGvJ1uCje8hW6tYlM94bPvChXl0va3dGs0Z1a1Q6et91iI8NHXVUTHzivitR
/pjf1W7U7IzzL+1y0519nxvzwazFP+zN5zr0ru8/HHxX57P/ULNi6SJxCSXK
Vzvu1I49+4+bn7NBNmnbl82e+Oqzj9x+/eUXtG7euF7NyuVLFdt35DE/H3mZ
/UfesOnpbTt0vrH3I4NGTZyxaMOeQhDF27Nm1vjnHr61c7tTGtaqWmHfyyw2
rkiJcsfUOLZ5mytuuv+ZsTNW7CwEq8zStn92q55pZiK2YZ+vcvVW37Nu3qRR
zzzc688dzjmlSf3qFcuUKJKw74UaE5tQtGT5qrWO/+MZF1x54939hr49Pckz
JlL7h8pkmpsNlbtoxJrCvgkBAAAAAAAAgDyUvuyFc0tnFi2Ib/5kkuRj4Rbe
PKZDycwuYOJJj87LpdYrAAAAAAAAAMCRKvmrR07KrPNEwmkDl0mHFGrb3776
6EwGuMXW/cuUHQW9PgAAAAAAAACg4O38vPex8Zm0njhj0HLpkEJsx4TO5TPO
hsRUu2bCDybKAAAAAAAAAAD7hLd93LNuXMa9Q1o+9b10SKG1dfxVGWdDYqpc
NXadaAgAAAAAAAAA8Ivtn/U+PiGjlEHciX0XpBX06shQeMPIi0plOFCmxp8n
bBANAQAAAAAAAAAOtHv2AycVzagHRe3bpu4t6MWRgfSkp1oVyeCKxdfv+fFW
0RAAAAAAAAAA4FDJ8588rdThQ0pC5a94c5OsQaGzZ3rverGHR0OKnnD/v3YW
9NoAAAAAAAAAgMIpffXYq2scHjhIPLnft0bLFC7hNcPblzksyRM65sKhSakF
vTYAAAAAAAAAoBDbOeuhk0scljmo1OktzUMKk12f9ap7WIqnSOPen2xxmQAA
AAAAAACArKWtHNuldvwhuYP4hvfM3F3QK+NnyfP6Ni1yyBWK/V2HV5JSCnpl
AAAAAAAAAMARIXnxK5dWO6QxRbEWT8xPLuiFsU/y1/1bHdLcJabS+c99vaeg
FwYAAAAAAAAAHEH2LHj+gsoH50OKt3h87t6CXtf/vF2zH2pW7OBkSIWzB8zZ
WdDrAgAAAAAAAACOOHsXj+pS/6DpJUUa3/Hp1nBBr+t/WNrKNzv9Pu7AS5JQ
67KhCw38AQAAAAAAAACik77+o3talA39mkUIHdPu+W+0DykQ6esm9mh0YNOQ
UKk/3jZxdVpBrwsAAAAAAAAAOLLtXjTmphNK/xoQiat28Qtf7yroVf2vSV76
5nXHFT0gGFKy8XUjFhgmAwAAAAAAAADkit3fjr7pxDL/DYiEyp96/6S1Wlbk
k/Cm6f3OqxL7azCkdJNuIxfK5wAAAAAAAAAAuSp51cf9OjYo8UtCIb5qm0c+
Wp1a0Kv6rQtv/fK5y+v+2jKkeP1Lnpi0MrmglwUAAAAAAAAA/EbtWTrxscsb
l/25i0XM0SffPOzfm9MLelW/Uekbpg24pM4vwZDYso0v6/v+kj0FvSoAAAAA
AAAA4Dcvfcv8Nx/q2LjcjxGRuJP7LzZgJi+kfftE07gfYyHlGnd86M35W4Rw
AAAAAAAAAIB8FN61YurIh65pfflzSVILeSHtu0Edz7rm4ZFTV+wKF/RaAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAADvD/0ucw7g==
      "], {{0, 397.290676719316}, {753.9199217274635, 0}}, {0, 255},
      ColorFunction->RGBColor,
      ImageResolution->{278.003, 278.003},
      SmoothingQuality->"High"],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    DefaultBaseStyle->"ImageGraphics",
    ImageSize->{554.1999999999991, Automatic},
    ImageSizeRaw->{753.9199217274635, 397.290676719316},
    PlotRange->{{0, 753.9199217274635}, {0, 397.290676719316}}], 
   "\n"}]}]], "Input",
 CellChangeTimes->{
  3.8913897341584277`*^9, 3.8913899202962713`*^9, 3.89139925464931*^9, 
   3.891399307435509*^9, {3.8913993750249248`*^9, 
   3.8913993770951695`*^9}},ExpressionUUID->"dd75adaa-41cc-4524-bc71-\
46423ee84a67"],

Cell[CellGroupData[{

Cell["SOLVER DEFS", "Chapter",
 CellChangeTimes->{{3.8913982896903777`*^9, 3.891398301377599*^9}, {
  3.8913983572309933`*^9, 
  3.8913984043003306`*^9}},ExpressionUUID->"0452671c-48b8-44ce-8d6b-\
537ea1ec9940"],

Cell[CellGroupData[{

Cell["FEM DEFINITIONS", "Section",
 CellChangeTimes->{
  3.4430806364968*^9, {3.4453166713873997`*^9, 3.4453166747414*^9}, {
   3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 
   3.4695731359491997`*^9}, 3.473055186341*^9, {3.4730552472860003`*^9, 
   3.47305524884*^9}, {3.473055399782*^9, 3.473055419801*^9}, {
   3.4734696760778*^9, 3.4734697047349997`*^9}, {3.4770537891542*^9, 
   3.4770537950354*^9}, {3.4932799754514*^9, 3.4932799779161997`*^9}, {
   3.4945558951644*^9, 3.4945558957416*^9}, {3.4957646303032*^9, 
   3.4957646329084*^9}, {3.497581602118*^9, 3.4975816042552*^9}, {
   3.500960505817*^9, 3.5009605094206*^9}, {3.556623836083009*^9, 
   3.5566238462386265`*^9}, {3.5568725055395393`*^9, 
   3.5568725163821597`*^9}, {3.556872678728445*^9, 3.5568726810485783`*^9}, {
   3.7323376045620503`*^9, 
   3.7323376086812124`*^9}},ExpressionUUID->"0558bbfb-1359-411c-9331-\
1b92d9329d8a"],

Cell[CellGroupData[{

Cell["DEFS defs ", "Subsection",
 CellChangeTimes->{{3.4770537307790003`*^9, 
  3.4770537313562*^9}},ExpressionUUID->"8d954b36-a52f-47bd-943c-07e7dfadc669"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "spell"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Off", "[", 
    RowBox[{"General", "::", "spell1"}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Clear", "[", "\[Delta]", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[Delta]", "[", "exp_", "]"}], ":=", 
    RowBox[{"exp", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"a", "[", "any__", "]"}], " ", "\[Rule]", " ", 
        RowBox[{"\[Delta]a", "[", "any", "]"}]}], ",", 
       RowBox[{
        RowBox[{"b", "[", "any__", "]"}], " ", "\[Rule]", " ", 
        RowBox[{"\[Delta]b", "[", "any", "]"}]}], ",", 
       RowBox[{
        RowBox[{"c", "[", "any__", "]"}], " ", "\[Rule]", " ", 
        RowBox[{"\[Delta]c", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"ux", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]ux", "[", "any", "]"}]}], ",", 
       RowBox[{
        RowBox[{"uy", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]uy", "[", "any", "]"}]}], ",", 
       RowBox[{
        RowBox[{"uz", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]uz", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"\[Theta]x", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]\[Theta]x", "[", "any", "]"}]}], ",", 
       RowBox[{
        RowBox[{"\[Theta]y", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]\[Theta]y", "[", "any", "]"}]}], ",", 
       RowBox[{
        RowBox[{"\[Theta]z", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]\[Theta]z", "[", "any", "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"uX", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]uX", "[", "any", "]"}]}], ",", 
       RowBox[{
        RowBox[{"uY", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]uY", "[", "any", "]"}]}], ",", 
       RowBox[{
        RowBox[{"uZ", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]uZ", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"\[Theta]X", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]\[Theta]X", "[", "any", "]"}]}], ",", 
       RowBox[{
        RowBox[{"\[Theta]Y", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]\[Theta]Y", "[", "any", "]"}]}], ",", 
       RowBox[{
        RowBox[{"\[Theta]Z", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]\[Theta]Z", "[", "any", "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Fx", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]Fx", "[", "any", "]"}]}], ",", 
       RowBox[{
        RowBox[{"Fy", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]Fy", "[", "any", "]"}]}], ",", 
       RowBox[{
        RowBox[{"Fz", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]Fz", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Mx", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]Mx", "[", "any", "]"}]}], ",", 
       RowBox[{
        RowBox[{"My", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]My", "[", "any", "]"}]}], ",", 
       RowBox[{
        RowBox[{"Mz", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]Mz", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"FX", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]FX", "[", "any", "]"}]}], ",", 
       RowBox[{
        RowBox[{"FY", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]FY", "[", "any", "]"}]}], ",", 
       RowBox[{
        RowBox[{"FZ", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]FZ", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"MX", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]MX", "[", "any", "]"}]}], ",", 
       RowBox[{
        RowBox[{"MY", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]MY", "[", "any", "]"}]}], ",", 
       RowBox[{
        RowBox[{"MZ", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]MZ", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"FN", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]FN", "[", "any", "]"}]}], ",", 
       RowBox[{
        RowBox[{"FT", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]FT", "[", "any", "]"}]}], ",", 
       RowBox[{
        RowBox[{"FB", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]FB", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"MN", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]MN", "[", "any", "]"}]}], ",", 
       RowBox[{
        RowBox[{"MT", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]MT", "[", "any", "]"}]}], ",", 
       RowBox[{
        RowBox[{"MB", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]MB", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"\[CurlyTheta]", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Delta]\[CurlyTheta]", "[", "any", "]"}]}]}], "}"}]}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[Delta]UN", "[", "exp_", "]"}], ":=", 
    RowBox[{"exp", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Delta]a", "[", "any__", "]"}], " ", "\[Rule]", " ", 
        RowBox[{"a", "[", "any", "]"}]}], ",", 
       RowBox[{
        RowBox[{"\[Delta]b", "[", "any__", "]"}], " ", "\[Rule]", " ", 
        RowBox[{"b", "[", "any", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"\[Delta]c", "[", "any__", "]"}], " ", "\[Rule]", 
        RowBox[{"c", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", " ", 
       RowBox[{
        RowBox[{"\[Delta]ux", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"ux", "[", "any", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"\[Delta]uy", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"uy", "[", "any", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"\[Delta]uz", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"uz", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", " ", 
       RowBox[{
        RowBox[{"\[Delta]\[Theta]x", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Theta]x", "[", "any", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"\[Delta]\[Theta]y", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Theta]y", "[", "any", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"\[Delta]\[Theta]z", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Theta]z", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", 
       " ", 
       RowBox[{
        RowBox[{"\[Delta]uX", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"uX", "[", "any", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"\[Delta]uY", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"uY", "[", "any", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"\[Delta]uZ", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"uZ", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", " ", 
       RowBox[{
        RowBox[{"\[Delta]\[Theta]X", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Theta]X", "[", "any", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"\[Delta]\[Theta]Y", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Theta]Y", "[", "any", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"\[Delta]\[Theta]Z", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[Theta]Z", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", 
       " ", 
       RowBox[{
        RowBox[{"\[Delta]Fx", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"Fx", "[", "any", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"\[Delta]Fy", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"Fy", "[", "any", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"\[Delta]Fz", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"Fz", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", " ", 
       RowBox[{
        RowBox[{"\[Delta]Mx", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"Mx", "[", "any", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"\[Delta]My", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"My", "[", "any", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"\[Delta]Mz", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"Mz", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", " ", 
       RowBox[{
        RowBox[{"\[Delta]FX", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"FX", "[", "any", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"\[Delta]FY", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"FY", "[", "any", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"\[Delta]FZ", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"FZ", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", " ", 
       RowBox[{
        RowBox[{"\[Delta]MX", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"MX", "[", "any", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"\[Delta]MY", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"MY", "[", "any", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"\[Delta]MZ", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"MZ", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", " ", 
       RowBox[{
        RowBox[{"\[Delta]FN", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"FN", "[", "any", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"\[Delta]FT", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"FT", "[", "any", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"\[Delta]FB", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"FB", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", " ", 
       RowBox[{
        RowBox[{"\[Delta]MN", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"MN", "[", "any", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"\[Delta]MT", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"MT", "[", "any", "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{"\[Delta]MB", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"MB", "[", "any", "]"}]}], ",", "\[IndentingNewLine]", " ", 
       RowBox[{
        RowBox[{"\[Delta]\[CurlyTheta]", "[", "any__", "]"}], "\[Rule]", 
        RowBox[{"\[CurlyTheta]", "[", "any", "]"}]}]}], "}"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"DOFS", "[", "exp_", "]"}], " ", ":=", 
    RowBox[{"Union", "[", 
     RowBox[{"Cases", "[", 
      RowBox[{
       RowBox[{"{", "exp", "}"}], ",", 
       RowBox[{
        RowBox[{"a", "[", "__", "]"}], "|", 
        RowBox[{"b", "[", "__", "]"}], "|", 
        RowBox[{"c", "[", "__", "]"}], " ", "|", 
        RowBox[{"uX", "[", "__", "]"}], "|", 
        RowBox[{"uY", "[", "__", "]"}], "|", 
        RowBox[{"uZ", "[", "__", "]"}], "|", " ", 
        RowBox[{"\[Theta]X", "[", "__", "]"}], "|", " ", 
        RowBox[{"\[Theta]Y", "[", "__", "]"}], "|", 
        RowBox[{"\[Theta]Z", "[", "__", "]"}], "|", 
        RowBox[{"ux", "[", "__", "]"}], "|", 
        RowBox[{"uy", "[", "__", "]"}], "|", 
        RowBox[{"uz", "[", "__", "]"}], "|", " ", 
        RowBox[{"\[Theta]x", "[", "__", "]"}], "|", " ", 
        RowBox[{"\[Theta]y", "[", "__", "]"}], "|", 
        RowBox[{"\[Theta]z", "[", "__", "]"}], "|", 
        RowBox[{"FX", "[", "__", "]"}], "|", 
        RowBox[{"FY", "[", "__", "]"}], "|", 
        RowBox[{"FZ", "[", "__", "]"}], "|", " ", 
        RowBox[{"MX", "[", "__", "]"}], "|", " ", 
        RowBox[{"MY", "[", "__", "]"}], "|", 
        RowBox[{"MZ", "[", "__", "]"}], "|", 
        RowBox[{"FN", "[", "__", "]"}], "|", 
        RowBox[{"FT", "[", "__", "]"}], "|", 
        RowBox[{"FB", "[", "__", "]"}], "|", " ", 
        RowBox[{"MN", "[", "__", "]"}], "|", " ", 
        RowBox[{"MT", "[", "__", "]"}], "|", 
        RowBox[{"MB", "[", "__", "]"}], "|", 
        RowBox[{"Fx", "[", "__", "]"}], "|", 
        RowBox[{"Fy", "[", "__", "]"}], "|", 
        RowBox[{"Fz", "[", "__", "]"}], "|", " ", 
        RowBox[{"Mx", "[", "__", "]"}], "|", " ", 
        RowBox[{"My", "[", "__", "]"}], "|", 
        RowBox[{"Mz", "[", "__", "]"}], "|", " ", 
        RowBox[{"\[CurlyTheta]", "[", "__", "]"}]}], ",", "Infinity"}], "]"}],
      "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"DFFS", "[", "exp_", "]"}], " ", ":=", 
    RowBox[{"Union", "[", 
     RowBox[{"Cases", "[", 
      RowBox[{
       RowBox[{"{", "exp", "}"}], ",", 
       RowBox[{
        RowBox[{"FX", "[", "__", "]"}], "|", 
        RowBox[{"FY", "[", "__", "]"}], "|", 
        RowBox[{"FZ", "[", "__", "]"}], "|", " ", 
        RowBox[{"MX", "[", "__", "]"}], "|", " ", 
        RowBox[{"MY", "[", "__", "]"}], "|", 
        RowBox[{"MZ", "[", "__", "]"}], "|", 
        RowBox[{"FN", "[", "__", "]"}], "|", 
        RowBox[{"FT", "[", "__", "]"}], "|", 
        RowBox[{"FB", "[", "__", "]"}], "|", " ", 
        RowBox[{"MN", "[", "__", "]"}], "|", " ", 
        RowBox[{"MT", "[", "__", "]"}], "|", 
        RowBox[{"MB", "[", "__", "]"}], "|", 
        RowBox[{"Fx", "[", "__", "]"}], "|", 
        RowBox[{"Fy", "[", "__", "]"}], "|", 
        RowBox[{"Fz", "[", "__", "]"}], "|", " ", 
        RowBox[{"Mx", "[", "__", "]"}], "|", " ", 
        RowBox[{"My", "[", "__", "]"}], "|", 
        RowBox[{"Mz", "[", "__", "]"}]}], ",", "Infinity"}], "]"}], "]"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[Delta]DFFS", "[", "exp_", "]"}], " ", ":=", 
    RowBox[{"Union", "[", 
     RowBox[{"Cases", "[", 
      RowBox[{
       RowBox[{"{", "exp", "}"}], ",", 
       RowBox[{
        RowBox[{"\[Delta]FX", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]FY", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]FZ", "[", "__", "]"}], "|", " ", 
        RowBox[{"\[Delta]MX", "[", "__", "]"}], "|", " ", 
        RowBox[{"\[Delta]MY", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]MZ", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]FN", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]FT", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]FB", "[", "__", "]"}], "|", " ", 
        RowBox[{"\[Delta]MN", "[", "__", "]"}], "|", " ", 
        RowBox[{"\[Delta]MT", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]MB", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]Fx", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]Fy", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]Fz", "[", "__", "]"}], "|", " ", 
        RowBox[{"\[Delta]Mx", "[", "__", "]"}], "|", " ", 
        RowBox[{"\[Delta]My", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]Mz", "[", "__", "]"}]}], ",", "Infinity"}], "]"}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[Delta]DOFS", "[", "exp_", "]"}], " ", ":=", 
    RowBox[{"Union", "[", 
     RowBox[{"Cases", "[", 
      RowBox[{
       RowBox[{"{", "exp", "}"}], ",", 
       RowBox[{
        RowBox[{"\[Delta]a", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]b", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]c", "[", "__", "]"}], " ", "|", 
        RowBox[{"\[Delta]uX", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]uY", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]uZ", "[", "__", "]"}], "|", " ", 
        RowBox[{"\[Delta]\[Theta]X", "[", "__", "]"}], "|", " ", 
        RowBox[{"\[Delta]\[Theta]Y", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]\[Theta]Z", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]ux", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]uy", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]uz", "[", "__", "]"}], "|", " ", 
        RowBox[{"\[Delta]\[Theta]x", "[", "__", "]"}], "|", " ", 
        RowBox[{"\[Delta]\[Theta]y", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]\[Theta]z", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]FX", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]FY", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]FZ", "[", "__", "]"}], "|", " ", 
        RowBox[{"\[Delta]MX", "[", "__", "]"}], "|", " ", 
        RowBox[{"\[Delta]MY", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]MZ", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]FN", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]FT", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]FB", "[", "__", "]"}], "|", " ", 
        RowBox[{"\[Delta]MN", "[", "__", "]"}], "|", " ", 
        RowBox[{"\[Delta]MT", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]MB", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]Fx", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]Fy", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]Fz", "[", "__", "]"}], "|", " ", 
        RowBox[{"\[Delta]Mx", "[", "__", "]"}], "|", " ", 
        RowBox[{"\[Delta]My", "[", "__", "]"}], "|", 
        RowBox[{"\[Delta]Mz", "[", "__", "]"}], "|", " ", 
        RowBox[{"\[Delta]\[CurlyTheta]", "[", "__", "]"}]}], ",", 
       "Infinity"}], "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"DOFS", "[", 
     RowBox[{"exp_", ",", "n_"}], "]"}], " ", ":=", 
    RowBox[{"Union", "[", 
     RowBox[{"Cases", "[", 
      RowBox[{
       RowBox[{"{", "exp", "}"}], ",", 
       RowBox[{
        RowBox[{"a", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"b", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"c", "[", 
         RowBox[{"__", ",", "n"}], "]"}], " ", "|", 
        RowBox[{"uX", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"uY", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"uZ", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", " ", 
        RowBox[{"\[Theta]X", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", " ", 
        RowBox[{"\[Theta]Y", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"\[Theta]Z", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"ux", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"uy", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"uz", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", " ", 
        RowBox[{"\[Theta]x", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", " ", 
        RowBox[{"\[Theta]y", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"\[Theta]z", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"FX", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"FY", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"FZ", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", " ", 
        RowBox[{"MX", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", " ", 
        RowBox[{"MY", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"MZ", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"FN", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"FT", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"FB", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", " ", 
        RowBox[{"MN", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", " ", 
        RowBox[{"MT", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"MB", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"Fx", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"Fy", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"Fz", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", " ", 
        RowBox[{"Mx", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", " ", 
        RowBox[{"My", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"Mz", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", " ", 
        RowBox[{"\[CurlyTheta]", "[", 
         RowBox[{"__", ",", "n"}], "]"}]}], ",", "Infinity"}], "]"}], "]"}]}],
    ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[Delta]DOFS", "[", 
     RowBox[{"exp_", ",", "n_"}], "]"}], " ", ":=", 
    RowBox[{"Union", "[", 
     RowBox[{"Cases", "[", 
      RowBox[{
       RowBox[{"{", "exp", "}"}], ",", 
       RowBox[{
        RowBox[{"\[Delta]a", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"\[Delta]b", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"\[Delta]c", "[", 
         RowBox[{"__", ",", "n"}], "]"}], " ", "|", 
        RowBox[{"\[Delta]uX", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"\[Delta]uY", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"\[Delta]uZ", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", " ", 
        RowBox[{"\[Delta]\[Theta]X", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", " ", 
        RowBox[{"\[Delta]\[Theta]Y", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"\[Delta]\[Theta]Z", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"\[Delta]ux", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"\[Delta]uy", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"\[Delta]uz", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", " ", 
        RowBox[{"\[Delta]\[Theta]x", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", " ", 
        RowBox[{"\[Delta]\[Theta]y", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"\[Delta]\[Theta]z", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"\[Delta]FX", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"\[Delta]FY", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"\[Delta]FZ", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", " ", 
        RowBox[{"\[Delta]MX", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", " ", 
        RowBox[{"\[Delta]MY", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"\[Delta]MZ", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"\[Delta]FN", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"\[Delta]FT", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"\[Delta]FB", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", " ", 
        RowBox[{"\[Delta]MN", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", " ", 
        RowBox[{"\[Delta]MT", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"\[Delta]MB", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"\[Delta]Fx", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"\[Delta]Fy", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"\[Delta]Fz", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", " ", 
        RowBox[{"\[Delta]Mx", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", " ", 
        RowBox[{"\[Delta]My", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", 
        RowBox[{"\[Delta]Mz", "[", 
         RowBox[{"__", ",", "n"}], "]"}], "|", " ", 
        RowBox[{"\[Delta]\[CurlyTheta]", "[", 
         RowBox[{"__", ",", "n"}], "]"}]}], ",", "Infinity"}], "]"}], "]"}]}],
    ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"DRULE", "[", "n_", "]"}], ":=", " ", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"a", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"b", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"b", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"c", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"c", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"uX", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"uX", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"uY", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"uY", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"uZ", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"uZ", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"\[Theta]X", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"\[Theta]X", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"\[Theta]Y", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"\[Theta]Y", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"\[Theta]Z", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"\[Theta]Z", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ux", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"ux", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"uy", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"uy", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"uz", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"uz", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"\[Theta]x", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"\[Theta]x", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"\[Theta]y", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"\[Theta]y", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"\[Theta]z", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"\[Theta]z", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"FX", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"FX", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"FY", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"FY", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"FZ", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"FZ", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"MX", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"MX", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"MY", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"MY", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"MZ", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"MZ", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"FN", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"FN", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"FT", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"FT", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"FB", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"FB", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"MN", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"MN", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"MT", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"MT", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"MB", "[", "any__", "]"}], "\[Rule]", " ", 
       RowBox[{"MB", "[", 
        RowBox[{"any", ",", "n"}], "]"}]}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[Delta]\[Delta]", "[", "u_", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "dof", "}"}], ",", 
      RowBox[{
       RowBox[{"dof", "=", 
        RowBox[{"DOFS", "[", "u", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"dof", "==", 
          RowBox[{"{", "}"}]}], " ", ",", 
         RowBox[{"u", "*", "0"}], ",", 
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{"u", ",", 
            RowBox[{"{", "dof", "}"}]}], "]"}], ".", 
          RowBox[{"\[Delta]", "[", "dof", "]"}]}]}], "]"}]}]}], "]"}]}], 
   ";"}], " "}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4426462585778456`*^9, 3.4426462590770454`*^9}, 
   3.4770537732734003`*^9, {3.4770538084514*^9, 3.4770539107874002`*^9}, {
   3.4770539837018003`*^9, 3.4770539840762*^9}, {3.6310184366218147`*^9, 
   3.631018437292616*^9}, {3.685233451807683*^9, 3.685233452477684*^9}, {
   3.685234382901882*^9, 3.6852343866400967`*^9}, {3.6853442041034565`*^9, 
   3.6853443400412316`*^9}, {3.6853443751512394`*^9, 3.685344377332364*^9}, 
   3.6853454114825144`*^9, {3.6868316461612635`*^9, 3.6868318084514904`*^9}, {
   3.686832766952832*^9, 3.6868328092028913`*^9}, {3.686832846372944*^9, 
   3.686832931023062*^9}, {3.6872635529744654`*^9, 3.6872635616644773`*^9}, {
   3.6875150430418844`*^9, 3.6875151112847824`*^9}, {3.687743582879592*^9, 
   3.6877436675097103`*^9}, {3.687743698119753*^9, 3.6877437374098077`*^9}, {
   3.6877437674998503`*^9, 3.687743819059922*^9}, {3.687744657251096*^9, 
   3.687744669171112*^9}, {3.692421446310708*^9, 3.69242161182094*^9}, {
   3.6926015199824505`*^9, 3.692601820564872*^9}, {3.6926909355497313`*^9, 
   3.6926909367897334`*^9}, {3.6927677148447485`*^9, 3.692767777644837*^9}, {
   3.692767831454912*^9, 3.6927678718849688`*^9}, {3.6942322376116867`*^9, 
   3.6942324085019264`*^9}, {3.694415508707368*^9, 3.694415535947406*^9}, {
   3.6944156219175262`*^9, 3.6944156308775387`*^9}, {3.694415674217599*^9, 
   3.694415743297696*^9}, 3.6944162623784227`*^9, 3.694416759679119*^9, {
   3.6946871199157624`*^9, 3.694687178045844*^9}, 3.6946872406459312`*^9, {
   3.6948454377388935`*^9, 3.6948454739389443`*^9}, {3.694845622699153*^9, 
   3.694845623739154*^9}, {3.6948457209192905`*^9, 3.6948457976193976`*^9}, {
   3.724304012886026*^9, 3.724304060229605*^9}, {3.73313814515314*^9, 
   3.7331381540290995`*^9}, {3.733138190908001*^9, 3.7331382926372166`*^9}, {
   3.7458091168859*^9, 3.745809330453831*^9}, {3.7530811243190904`*^9, 
   3.7530811449186587`*^9}, {3.7561686396442633`*^9, 3.756168670119571*^9}, {
   3.7600603151211576`*^9, 3.7600603156835256`*^9}, {3.7894796484099903`*^9, 
   3.789479649089468*^9}, {3.789479692503845*^9, 3.7894797188708086`*^9}, {
   3.7894797500361404`*^9, 3.789479784847563*^9}, 3.7894799681885223`*^9, {
   3.789480438163148*^9, 3.7894804422051945`*^9}, {3.7894806002852697`*^9, 
   3.789480655832934*^9}, {3.8166040129889574`*^9, 3.8166041495837865`*^9}, {
   3.816604189186468*^9, 3.816604214802972*^9}, {3.8166042734773865`*^9, 
   3.8166043972850933`*^9}, {3.816604428267262*^9, 3.816604499850178*^9}, {
   3.8166081703698654`*^9, 3.8166082203890176`*^9}, {3.8210655469757404`*^9, 
   3.821065597044009*^9}, {3.821065646217851*^9, 3.821065659621196*^9}, {
   3.821065714586218*^9, 3.8210658123471637`*^9}, {3.8210658715411763`*^9, 
   3.821065940333043*^9}, 3.8210659934232154`*^9, {3.821151689134054*^9, 
   3.8211516901175613`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"86524515-b3a6-482c-aad1-64230c74b3c9"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.686831884411597*^9, 
  3.6868318902216053`*^9}},ExpressionUUID->"94c9b0e2-c110-4ce3-bfb7-\
00a12f7655c1"]
}, Closed]],

Cell[CellGroupData[{

Cell["SHAPE defs ", "Subsection",ExpressionUUID->"c79ebdb3-6ee6-4331-856b-9e6bc911ffbc"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"SHAPES1", "[", "h_", "]"}], ":=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"1", "-", 
       RowBox[{"(", 
        RowBox[{"x", "/", "h"}], ")"}]}], ",", 
      RowBox[{"(", 
       RowBox[{"x", "/", "h"}], ")"}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"SHAPES11", "[", "h_", "]"}], ":=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"2", " ", 
          RowBox[{"x", "/", "h"}]}]}], ")"}]}], ",", 
      RowBox[{"h", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"x", "/", "h"}], ")"}]}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"3", "-", 
         RowBox[{"2", " ", 
          RowBox[{"x", "/", "h"}]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"x", "/", "h"}], ")"}], "2"]}], ",", 
      RowBox[{"h", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"x", "/", "h"}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"x", "/", "h"}]}], ")"}]}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LAGRANGE", "[", 
     RowBox[{"n_", ",", "h_"}], "]"}], ":=", " ", 
    RowBox[{"Simplify", "[", 
     RowBox[{"MapIndexed", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"#1", "/", 
          RowBox[{"(", 
           RowBox[{"#1", "/.", 
            RowBox[{"x", "->", 
             RowBox[{"h", "*", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "/", 
               RowBox[{"(", 
                RowBox[{"n", "-", "1"}], ")"}]}]}]}]}], ")"}]}], ")"}], "&"}],
        ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Apply", "[", 
           RowBox[{"Times", ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"x", "-", 
               RowBox[{"h", "*", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"ii", "-", "1"}], ")"}], "/", 
                 RowBox[{"(", 
                  RowBox[{"n", "-", "1"}], ")"}]}]}]}], ",", 
              RowBox[{"{", 
               RowBox[{"ii", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], 
          "/", 
          RowBox[{"(", 
           RowBox[{"x", "-", 
            RowBox[{"h", "*", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"jj", "-", "1"}], ")"}], "/", 
              RowBox[{"(", 
               RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"jj", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LAGRANGE", "[", 
     RowBox[{"n_", ",", 
      RowBox[{"{", 
       RowBox[{"x0_", ",", "x1_"}], "}"}]}], "]"}], ":=", " ", 
    RowBox[{"Simplify", "[", 
     RowBox[{"MapIndexed", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"#1", "/", 
          RowBox[{"(", 
           RowBox[{"#1", "/.", 
            RowBox[{"x", "\[Rule]", 
             RowBox[{"x0", "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x1", "-", "x0"}], ")"}], "*", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"#2", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "/", 
                RowBox[{"(", 
                 RowBox[{"n", "-", "1"}], ")"}]}]}]}]}]}], ")"}]}], ")"}], 
        "&"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Apply", "[", 
           RowBox[{"Times", ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"x", "-", 
               RowBox[{"(", 
                RowBox[{"x0", "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"x1", "-", "x0"}], ")"}], "*", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"ii", "-", "1"}], ")"}], "/", 
                   RowBox[{"(", 
                    RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"ii", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], 
          "/", 
          RowBox[{"(", 
           RowBox[{"x", "-", 
            RowBox[{"(", 
             RowBox[{"x0", "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x1", "-", "x0"}], ")"}], "*", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"jj", "-", "1"}], ")"}], "/", 
                RowBox[{"(", 
                 RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ")"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"jj", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LAGRANGE", "[", 
     RowBox[{"n_", ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"{", 
         RowBox[{"x0_", ",", "x1_"}], "}"}]}], "}"}]}], "]"}], ":=", " ", 
    RowBox[{"Simplify", "[", 
     RowBox[{"MapIndexed", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"#1", "/", 
          RowBox[{"(", 
           RowBox[{"#1", "/.", 
            RowBox[{"x", "\[Rule]", 
             RowBox[{"x0", "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x1", "-", "x0"}], ")"}], "*", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"#2", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "/", 
                RowBox[{"(", 
                 RowBox[{"n", "-", "1"}], ")"}]}]}]}]}]}], ")"}]}], ")"}], 
        "&"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Apply", "[", 
           RowBox[{"Times", ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"x", "-", 
               RowBox[{"(", 
                RowBox[{"x0", "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"x1", "-", "x0"}], ")"}], "*", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"ii", "-", "1"}], ")"}], "/", 
                   RowBox[{"(", 
                    RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"ii", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], 
          "/", 
          RowBox[{"(", 
           RowBox[{"x", "-", 
            RowBox[{"(", 
             RowBox[{"x0", "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x1", "-", "x0"}], ")"}], "*", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"jj", "-", "1"}], ")"}], "/", 
                RowBox[{"(", 
                 RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ")"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"jj", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"SHAPES1", "[", 
     RowBox[{"bas_", ",", "ver_"}], "]"}], ":=", " ", 
    RowBox[{"Simplify", "[", 
     RowBox[{"bas", " ", ".", " ", 
      RowBox[{"Inverse", "[", 
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"{", "bas", "}"}], "/.", " ", 
             RowBox[{"{", 
              RowBox[{"x", "->", 
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "&"}], ",", " ", 
           "ver"}], "]"}], ",", "1"}], "]"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"SHAPES11", "[", 
     RowBox[{"bas_", ",", "ver_"}], "]"}], ":=", " ", 
    RowBox[{"bas", " ", ".", " ", 
     RowBox[{"Inverse", "[", 
      RowBox[{"Flatten", "[", 
       RowBox[{
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"bas", ",", 
              RowBox[{
               SubscriptBox["\[PartialD]", "x"], "bas"}]}], "}"}], "/.", " ", 
            RowBox[{"{", 
             RowBox[{"x", "->", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "&"}], ",", " ", 
          "ver"}], "]"}], ",", "1"}], "]"}], "]"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"SHAPES2", "[", 
     RowBox[{"bas_", ",", "ver_"}], "]"}], ":=", " ", 
    RowBox[{"bas", " ", ".", " ", 
     RowBox[{"Inverse", "[", 
      RowBox[{"Flatten", "[", 
       RowBox[{
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"{", "bas", "}"}], "/.", " ", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"x", "->", 
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], ",", 
              RowBox[{"y", "->", 
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]}], "&"}], ",", " ", 
          "ver"}], "]"}], ",", "1"}], "]"}], "]"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"SHAPES21", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x1_", ",", "y1_"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x2_", ",", "y2_"}], "}"}]}], "}"}], "]"}], ":=", " ", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Nx", ",", "Ny"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Nx", "=", " ", 
        RowBox[{"SHAPES11", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "x", ",", 
            RowBox[{"x", "^", "2"}], ",", 
            RowBox[{"x", "^", "3"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", "x1", "}"}], ",", 
            RowBox[{"{", "x2", "}"}]}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Ny", "=", " ", 
        RowBox[{
         RowBox[{"SHAPES11", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "x", ",", 
             RowBox[{"x", "^", "2"}], ",", 
             RowBox[{"x", "^", "3"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", "y1", "}"}], ",", 
             RowBox[{"{", "y2", "}"}]}], "}"}]}], "]"}], " ", "/.", " ", 
         RowBox[{"x", "\[Rule]", "y"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"Return", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"Nx", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "*", 
           RowBox[{"Ny", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Nx", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "*", 
           RowBox[{"Ny", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Nx", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "*", 
           RowBox[{"Ny", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Nx", "[", 
            RowBox[{"[", "3", "]"}], "]"}], "*", 
           RowBox[{"Ny", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Nx", "[", 
            RowBox[{"[", "4", "]"}], "]"}], "*", 
           RowBox[{"Ny", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Nx", "[", 
            RowBox[{"[", "3", "]"}], "]"}], "*", 
           RowBox[{"Ny", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Nx", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "*", 
           RowBox[{"Ny", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Nx", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "*", 
           RowBox[{"Ny", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Nx", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "*", 
           RowBox[{"Ny", "[", 
            RowBox[{"[", "4", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Nx", "[", 
            RowBox[{"[", "3", "]"}], "]"}], "*", 
           RowBox[{"Ny", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Nx", "[", 
            RowBox[{"[", "4", "]"}], "]"}], "*", 
           RowBox[{"Ny", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Nx", "[", 
            RowBox[{"[", "3", "]"}], "]"}], "*", 
           RowBox[{"Ny", "[", 
            RowBox[{"[", "4", "]"}], "]"}]}]}], "}"}], "]"}]}]}], "]"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"SHAPES3", "[", 
     RowBox[{"bas_", ",", "ver_"}], "]"}], ":=", " ", 
    RowBox[{"bas", " ", ".", " ", 
     RowBox[{"Inverse", "[", 
      RowBox[{"Flatten", "[", 
       RowBox[{
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"{", "bas", "}"}], "/.", " ", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"x", "->", 
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], ",", 
              RowBox[{"y", "->", 
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], ",", 
              RowBox[{"z", "->", 
               RowBox[{"#", "[", 
                RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}]}], "&"}], ",", " ", 
          "ver"}], "]"}], ",", "1"}], "]"}], "]"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"SHAPES1", "[", "h_", "]"}], ":=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"1", "-", 
       RowBox[{"(", 
        RowBox[{"x", "/", "h"}], ")"}]}], ",", 
      RowBox[{"(", 
       RowBox[{"x", "/", "h"}], ")"}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"SHAPES11", "[", "h_", "]"}], ":=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"2", " ", 
          RowBox[{"x", "/", "h"}]}]}], ")"}]}], ",", 
      RowBox[{"h", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"x", "/", "h"}]}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"x", "/", "h"}], ")"}]}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"3", "-", 
         RowBox[{"2", " ", 
          RowBox[{"x", "/", "h"}]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"x", "/", "h"}], ")"}], "2"]}], ",", 
      RowBox[{"h", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"x", "/", "h"}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"x", "/", "h"}]}], ")"}]}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LAGRANGE", "[", 
     RowBox[{"n_", ",", "h_"}], "]"}], ":=", " ", 
    RowBox[{"Simplify", "[", 
     RowBox[{"MapIndexed", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"#1", "/", 
          RowBox[{"(", 
           RowBox[{"#1", "/.", 
            RowBox[{"x", "->", 
             RowBox[{"h", "*", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "/", 
               RowBox[{"(", 
                RowBox[{"n", "-", "1"}], ")"}]}]}]}]}], ")"}]}], ")"}], "&"}],
        ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Apply", "[", 
           RowBox[{"Times", ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"x", "-", 
               RowBox[{"h", "*", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"ii", "-", "1"}], ")"}], "/", 
                 RowBox[{"(", 
                  RowBox[{"n", "-", "1"}], ")"}]}]}]}], ",", 
              RowBox[{"{", 
               RowBox[{"ii", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], 
          "/", 
          RowBox[{"(", 
           RowBox[{"x", "-", 
            RowBox[{"h", "*", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"jj", "-", "1"}], ")"}], "/", 
              RowBox[{"(", 
               RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"jj", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LAGRANGE", "[", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"n_", ",", "r_"}], "}"}], "}"}], "]"}], ":=", " ", 
    RowBox[{"Simplify", "[", 
     RowBox[{"MapIndexed", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"#1", "/", 
          RowBox[{"(", 
           RowBox[{"#1", "/.", 
            RowBox[{"r", "->", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"#2", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "/", 
              RowBox[{"(", 
               RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ")"}], "&"}], 
       ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Apply", "[", 
           RowBox[{"Times", ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"r", "-", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"ii", "-", "1"}], ")"}], "/", 
                RowBox[{"(", 
                 RowBox[{"n", "-", "1"}], ")"}]}]}], ",", 
              RowBox[{"{", 
               RowBox[{"ii", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], 
          "/", 
          RowBox[{"(", 
           RowBox[{"r", "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"jj", "-", "1"}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{"n", "-", "1"}], ")"}]}]}], ")"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"jj", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LAGRANGE", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"n_", ",", "r_"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m_", ",", "s_"}], "}"}]}], "}"}], "]"}], ":=", " ", 
    RowBox[{"Flatten", "[", 
     RowBox[{
      RowBox[{"Outer", "[", 
       RowBox[{"Times", ",", 
        RowBox[{"LAGRANGE", "[", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"m", ",", "s"}], "}"}], "}"}], "]"}], ",", 
        RowBox[{"LAGRANGE", "[", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"n", ",", "r"}], "}"}], "}"}], "]"}]}], "]"}], ",", "1"}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LAGRANGE", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"n_", ",", "r_"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m_", ",", "s_"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k_", ",", "t_"}], "}"}]}], "}"}], "]"}], ":=", " ", 
    RowBox[{"Flatten", "[", 
     RowBox[{
      RowBox[{"Outer", "[", 
       RowBox[{"Times", ",", 
        RowBox[{"LAGRANGE", "[", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"k", ",", "t"}], "}"}], "}"}], "]"}], ",", 
        RowBox[{"LAGRANGE", "[", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"m", ",", "s"}], "}"}], "}"}], "]"}], ",", 
        RowBox[{"LAGRANGE", "[", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"n", ",", "r"}], "}"}], "}"}], "]"}]}], "]"}], ",", "2"}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LAGRANGE", "[", 
     RowBox[{"n_", ",", 
      RowBox[{"{", 
       RowBox[{"x0_", ",", "x1_"}], "}"}]}], "]"}], ":=", " ", 
    RowBox[{"Simplify", "[", 
     RowBox[{"MapIndexed", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"#1", "/", 
          RowBox[{"(", 
           RowBox[{"#1", "/.", 
            RowBox[{"x", "\[Rule]", 
             RowBox[{"x0", "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x1", "-", "x0"}], ")"}], "*", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"#2", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "/", 
                RowBox[{"(", 
                 RowBox[{"n", "-", "1"}], ")"}]}]}]}]}]}], ")"}]}], ")"}], 
        "&"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Apply", "[", 
           RowBox[{"Times", ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"x", "-", 
               RowBox[{"(", 
                RowBox[{"x0", "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"x1", "-", "x0"}], ")"}], "*", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"ii", "-", "1"}], ")"}], "/", 
                   RowBox[{"(", 
                    RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"ii", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], 
          "/", 
          RowBox[{"(", 
           RowBox[{"x", "-", 
            RowBox[{"(", 
             RowBox[{"x0", "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x1", "-", "x0"}], ")"}], "*", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"jj", "-", "1"}], ")"}], "/", 
                RowBox[{"(", 
                 RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ")"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"jj", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"LAGRANGE", "[", 
     RowBox[{"n_", ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"{", 
         RowBox[{"x0_", ",", "x1_"}], "}"}]}], "}"}]}], "]"}], ":=", " ", 
    RowBox[{"Simplify", "[", 
     RowBox[{"MapIndexed", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"#1", "/", 
          RowBox[{"(", 
           RowBox[{"#1", "/.", 
            RowBox[{"x", "\[Rule]", 
             RowBox[{"x0", "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x1", "-", "x0"}], ")"}], "*", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"#2", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], "/", 
                RowBox[{"(", 
                 RowBox[{"n", "-", "1"}], ")"}]}]}]}]}]}], ")"}]}], ")"}], 
        "&"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Apply", "[", 
           RowBox[{"Times", ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"x", "-", 
               RowBox[{"(", 
                RowBox[{"x0", "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"x1", "-", "x0"}], ")"}], "*", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"ii", "-", "1"}], ")"}], "/", 
                   RowBox[{"(", 
                    RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"ii", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], 
          "/", 
          RowBox[{"(", 
           RowBox[{"x", "-", 
            RowBox[{"(", 
             RowBox[{"x0", "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x1", "-", "x0"}], ")"}], "*", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"jj", "-", "1"}], ")"}], "/", 
                RowBox[{"(", 
                 RowBox[{"n", "-", "1"}], ")"}]}]}]}], ")"}]}], ")"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"jj", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"SHAPES1", "[", 
     RowBox[{"bas_", ",", "ver_"}], "]"}], ":=", " ", 
    RowBox[{"Simplify", "[", 
     RowBox[{"bas", " ", ".", " ", 
      RowBox[{"Inverse", "[", 
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"{", "bas", "}"}], "/.", " ", 
             RowBox[{"{", 
              RowBox[{"x", "->", 
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "&"}], ",", " ", 
           "ver"}], "]"}], ",", "1"}], "]"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"SHAPES11", "[", 
     RowBox[{"bas_", ",", "ver_"}], "]"}], ":=", " ", 
    RowBox[{"bas", " ", ".", " ", 
     RowBox[{"Inverse", "[", 
      RowBox[{"Flatten", "[", 
       RowBox[{
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"bas", ",", 
              RowBox[{
               SubscriptBox["\[PartialD]", "x"], "bas"}]}], "}"}], "/.", " ", 
            RowBox[{"{", 
             RowBox[{"x", "->", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "&"}], ",", " ", 
          "ver"}], "]"}], ",", "1"}], "]"}], "]"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"SHAPES2", "[", 
     RowBox[{"bas_", ",", "ver_"}], "]"}], ":=", " ", 
    RowBox[{"bas", " ", ".", " ", 
     RowBox[{"Inverse", "[", 
      RowBox[{"Flatten", "[", 
       RowBox[{
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"{", "bas", "}"}], "/.", " ", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"x", "->", 
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], ",", 
              RowBox[{"y", "->", 
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]}], "&"}], ",", " ", 
          "ver"}], "]"}], ",", "1"}], "]"}], "]"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"SHAPES21", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x1_", ",", "y1_"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x2_", ",", "y2_"}], "}"}]}], "}"}], "]"}], ":=", " ", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Nx", ",", "Ny"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Nx", "=", " ", 
        RowBox[{"SHAPES11", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "x", ",", 
            RowBox[{"x", "^", "2"}], ",", 
            RowBox[{"x", "^", "3"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", "x1", "}"}], ",", 
            RowBox[{"{", "x2", "}"}]}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Ny", "=", " ", 
        RowBox[{
         RowBox[{"SHAPES11", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "x", ",", 
             RowBox[{"x", "^", "2"}], ",", 
             RowBox[{"x", "^", "3"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", "y1", "}"}], ",", 
             RowBox[{"{", "y2", "}"}]}], "}"}]}], "]"}], " ", "/.", " ", 
         RowBox[{"x", "\[Rule]", "y"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"Return", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"Nx", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "*", 
           RowBox[{"Ny", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Nx", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "*", 
           RowBox[{"Ny", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Nx", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "*", 
           RowBox[{"Ny", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Nx", "[", 
            RowBox[{"[", "3", "]"}], "]"}], "*", 
           RowBox[{"Ny", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Nx", "[", 
            RowBox[{"[", "4", "]"}], "]"}], "*", 
           RowBox[{"Ny", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Nx", "[", 
            RowBox[{"[", "3", "]"}], "]"}], "*", 
           RowBox[{"Ny", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Nx", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "*", 
           RowBox[{"Ny", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Nx", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "*", 
           RowBox[{"Ny", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Nx", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "*", 
           RowBox[{"Ny", "[", 
            RowBox[{"[", "4", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Nx", "[", 
            RowBox[{"[", "3", "]"}], "]"}], "*", 
           RowBox[{"Ny", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Nx", "[", 
            RowBox[{"[", "4", "]"}], "]"}], "*", 
           RowBox[{"Ny", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Nx", "[", 
            RowBox[{"[", "3", "]"}], "]"}], "*", 
           RowBox[{"Ny", "[", 
            RowBox[{"[", "4", "]"}], "]"}]}]}], "}"}], "]"}]}]}], "]"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SHAPES3", "[", 
    RowBox[{"bas_", ",", "ver_"}], "]"}], ":=", " ", 
   RowBox[{"bas", " ", ".", " ", 
    RowBox[{"Inverse", "[", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"{", "bas", "}"}], "/.", " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"x", "->", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], ",", 
             RowBox[{"y", "->", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], ",", 
             RowBox[{"z", "->", 
              RowBox[{"#", "[", 
               RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}]}], "&"}], ",", " ", 
         "ver"}], "]"}], ",", "1"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4670783931368*^9, 3.4670784098444*^9}, {
   3.468067594204*^9, 3.4680678179392*^9}, 3.4680680234556*^9, {
   3.468068073126*^9, 3.4680681447455997`*^9}, {3.4680681751188*^9, 
   3.46806831009*^9}, {3.4684605671832*^9, 3.4684605726744003`*^9}, {
   3.471399186098*^9, 3.4713991974236*^9}, {3.471404873455*^9, 
   3.4714048739854*^9}, {3.4820580083386*^9, 3.4820580095086*^9}, {
   3.4820588874835997`*^9, 3.4820588977016*^9}, {3.6187193088566475`*^9, 
   3.6187193100797176`*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"856bd559-5b74-4b05-9f4e-9f00a0beb082"]
}, Closed]],

Cell[CellGroupData[{

Cell["QUAD defs ", "Subsection",ExpressionUUID->"dc9c950b-33d1-4cab-8fd6-45232b6e0626"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"LIN1", ",", "exp_", ",", "var_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"p", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"{", "1", "}"}], "}"}], "/", "2"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"w", "=", 
         RowBox[{"{", "1", "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Apply", "[", 
         RowBox[{"Plus", ",", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", 
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
              " ", "/.", 
              RowBox[{"Thread", "[", 
               RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], 
           "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"LIN2", ",", "exp_", ",", "var_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"p", "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "0", "}"}], ",", 
           RowBox[{"{", "1", "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"w", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "1"}], "}"}], "/", "2"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Apply", "[", 
         RowBox[{"Plus", ",", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", 
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
              " ", "/.", 
              RowBox[{"Thread", "[", 
               RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], 
           "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"LIN2G", ",", "exp_", ",", "var_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"p", "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "0.21132486540518713", "}"}], ",", 
           RowBox[{"{", "0.7886751345948129", "}"}]}], "}"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"w", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "1"}], "}"}], "/", "2"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Apply", "[", 
         RowBox[{"Plus", ",", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", 
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
              " ", "/.", 
              RowBox[{"Thread", "[", 
               RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], 
           "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"LIN3", ",", "exp_", ",", "var_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"p", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", "0", "}"}], ",", 
            RowBox[{"{", "1", "}"}], ",", 
            RowBox[{"{", "2", "}"}]}], "}"}], "/", "2"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"w", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "4", ",", "1"}], "}"}], "/", "6"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Apply", "[", 
         RowBox[{"Plus", ",", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", 
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
              " ", "/.", 
              RowBox[{"Thread", "[", 
               RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], 
           "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"LIN3G", ",", "exp_", ",", "var_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"p", "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "0.1127016653792583", "}"}], ",", 
           RowBox[{"{", "0.5", "}"}], ",", 
           RowBox[{"{", "0.8872983346207417", "}"}]}], "}"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"w", "=", 
         RowBox[{"{", 
          RowBox[{
          "0.2777777777777777", ",", "0.44444444444444453", ",", 
           "0.2777777777777777"}], "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Apply", "[", 
         RowBox[{"Plus", ",", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", 
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
              " ", "/.", 
              RowBox[{"Thread", "[", 
               RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], 
           "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"LIN5", ",", "exp_", ",", "var_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"p", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", "0", "}"}], ",", 
            RowBox[{"{", "1", "}"}], ",", 
            RowBox[{"{", "2", "}"}], ",", 
            RowBox[{"{", "3", "}"}], ",", 
            RowBox[{"{", "4", "}"}]}], "}"}], "/", "4"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"w", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"7", ",", "32", ",", "12", ",", "32", ",", "7"}], "}"}], 
          "/", "90"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Apply", "[", 
         RowBox[{"Plus", ",", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", 
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
              " ", "/.", 
              RowBox[{"Thread", "[", 
               RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], 
           "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"LIN7", ",", "exp_", ",", "var_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"p", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", "0", "}"}], ",", 
            RowBox[{"{", "1", "}"}], ",", 
            RowBox[{"{", "2", "}"}], ",", 
            RowBox[{"{", "3", "}"}], ",", 
            RowBox[{"{", "4", "}"}], ",", 
            RowBox[{"{", "5", "}"}], ",", 
            RowBox[{"{", "6", "}"}]}], "}"}], "/", "6"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"w", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "41", ",", "216", ",", "27", ",", "272", ",", "27", ",", "216", 
            ",", "41"}], "}"}], "/", "840"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Apply", "[", 
         RowBox[{"Plus", ",", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", 
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
              " ", "/.", 
              RowBox[{"Thread", "[", 
               RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], 
           "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"LIN14", ",", "exp_", ",", "var_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"p", "=", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{"ii", ",", 
            RowBox[{"{", 
             RowBox[{"ii", ",", "0", ",", "13"}], "}"}]}], "]"}], "/", 
          "13"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"w", "=", 
         RowBox[{"{", 
          RowBox[{
           FractionBox["8181904909", "402361344000"], ",", 
           FractionBox["56280729661", "402361344000"], ",", 
           RowBox[{"-", 
            FractionBox["1737125143", "22353408000"]}], ",", 
           FractionBox["11148172711", "28740096000"], ",", 
           RowBox[{"-", 
            FractionBox["6066382933", "16094453760"]}], ",", 
           FractionBox["22964826443", "44706816000"], ",", 
           RowBox[{"-", 
            FractionBox["3592666051", "33530112000"]}], ",", 
           RowBox[{"-", 
            FractionBox["3592666051", "33530112000"]}], ",", 
           FractionBox["22964826443", "44706816000"], ",", 
           RowBox[{"-", 
            FractionBox["6066382933", "16094453760"]}], ",", 
           FractionBox["11148172711", "28740096000"], ",", 
           RowBox[{"-", 
            FractionBox["1737125143", "22353408000"]}], ",", 
           FractionBox["56280729661", "402361344000"], ",", 
           FractionBox["8181904909", "402361344000"]}], "}"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Apply", "[", 
         RowBox[{"Plus", ",", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", 
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
              " ", "/.", 
              RowBox[{"Thread", "[", 
               RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], 
           "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"TRI1", ",", "exp_", ",", "var_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"p", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1"}], "}"}], "}"}], "/", "3"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"w", "=", 
         RowBox[{
          RowBox[{"{", "1", "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Apply", "[", 
         RowBox[{"Plus", ",", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", 
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
              " ", "/.", 
              RowBox[{"Thread", "[", 
               RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], 
           "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"TRI3", ",", "exp_", ",", "var_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"p", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "1"}], "}"}]}], "}"}], "/", "2"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"w", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "1", ",", "1"}], "}"}], "/", "6"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Apply", "[", 
         RowBox[{"Plus", ",", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", 
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
              " ", "/.", 
              RowBox[{"Thread", "[", 
               RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], 
           "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"TRI4", ",", "exp_", ",", "var_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"p", "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1"}], "}"}], ",", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "1"}], "}"}], "/", "3"}]}], "}"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"w", "=", 
         RowBox[{
          RowBox[{"1", "/", "24"}], "*", 
          RowBox[{"{", 
           RowBox[{"1", ",", "1", ",", "1", ",", "9"}], "}"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Apply", "[", 
         RowBox[{"Plus", ",", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", 
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
              " ", "/.", 
              RowBox[{"Thread", "[", 
               RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], 
           "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"TRI41", ",", "exp_", ",", "var_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"p", "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "0"}], "}"}], "/", "2"}], ",", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "1"}], "}"}], "/", "2"}], ",", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}], "/", "2"}], ",", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "1"}], "}"}], "/", "3"}]}], "}"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"w", "=", 
         RowBox[{
          RowBox[{"1", "/", "120"}], "*", 
          RowBox[{"{", 
           RowBox[{"11", ",", "11", ",", "11", ",", "27"}], "}"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Apply", "[", 
         RowBox[{"Plus", ",", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", 
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
              " ", "/.", 
              RowBox[{"Thread", "[", 
               RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], 
           "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"TRI7", ",", "exp_", ",", "var_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"p", "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"1", "/", "2"}], ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"1", "/", "2"}], ",", 
             RowBox[{"1", "/", "2"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", 
             RowBox[{"1", "/", "2"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"1", "/", "3"}], ",", 
             RowBox[{"1", "/", "3"}]}], "}"}]}], "}"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"w", "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"1", "/", "40"}], ",", 
           RowBox[{"1", "/", "15"}], ",", 
           RowBox[{"1", "/", "40"}], ",", 
           RowBox[{"1", "/", "15"}], ",", 
           RowBox[{"1", "/", "40"}], ",", 
           RowBox[{"1", "/", "15"}], ",", 
           RowBox[{"9", "/", "40"}]}], "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Apply", "[", 
         RowBox[{"Plus", ",", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", 
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
              " ", "/.", 
              RowBox[{"Thread", "[", 
               RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], 
           "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"TRI12", ",", "exp_", ",", "var_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"p", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "1"}], "}"}]}], "}"}], "/", "4"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"w", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"4", ",", 
            RowBox[{"-", "1"}], ",", "4", ",", "4", ",", "8", ",", "8", ",", 
            "4", ",", 
            RowBox[{"-", "1"}], ",", "8", ",", 
            RowBox[{"-", "1"}], ",", "4", ",", "4"}], "}"}], "/", "90"}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"Apply", "[", 
         RowBox[{"Plus", ",", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", 
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
              " ", "/.", 
              RowBox[{"Thread", "[", 
               RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], 
           "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"TRI28", ",", "exp_", ",", "var_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"p", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "4"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "6"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "4"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "4"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"5", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"5", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"6", ",", "0"}], "}"}]}], "}"}], "/", "6"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"w", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "36", ",", 
            RowBox[{"-", "27"}], ",", "64", ",", 
            RowBox[{"-", "27"}], ",", "36", ",", "0", ",", "36", ",", "72", 
            ",", "72", ",", "72", ",", "72", ",", "36", ",", 
            RowBox[{"-", "27"}], ",", "72", ",", 
            RowBox[{"-", "54"}], ",", "72", ",", 
            RowBox[{"-", "27"}], ",", "64", ",", "72", ",", "72", ",", "64", 
            ",", 
            RowBox[{"-", "27"}], ",", "72", ",", 
            RowBox[{"-", "27"}], ",", "36", ",", "36", ",", "0"}], "}"}], "/", 
          RowBox[{"(", 
           RowBox[{"3.", "*", "560"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Apply", "[", 
         RowBox[{"Plus", ",", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", 
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
              " ", "/.", 
              RowBox[{"Thread", "[", 
               RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], 
           "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"TRI1", ",", "exp_", ",", "var_", ",", "map_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"p", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1"}], "}"}], "}"}], "/", "3"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"w", "=", 
         RowBox[{
          RowBox[{"{", "1", "}"}], "/", "2"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Apply", "[", 
         RowBox[{"Plus", ",", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", 
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
              " ", "/.", 
              RowBox[{"Thread", "[", 
               RowBox[{"var", "\[Rule]", 
                RowBox[{"map", "[", "#1", "]"}]}], "]"}]}], "&"}], ",", "p"}],
            "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"TRI3", ",", "exp_", ",", "var_", ",", "map_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"p", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "1"}], "}"}]}], "}"}], "/", "2"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"w", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "1", ",", "1"}], "}"}], "/", "6"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Apply", "[", 
         RowBox[{"Plus", ",", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", 
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
              " ", "/.", 
              RowBox[{"Thread", "[", 
               RowBox[{"var", "\[Rule]", 
                RowBox[{"map", "[", "#1", "]"}]}], "]"}]}], "&"}], ",", "p"}],
            "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"TRI4", ",", "exp_", ",", "var_", ",", "map_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"p", "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1"}], "}"}], ",", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "1"}], "}"}], "/", "3"}]}], "}"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"w", "=", 
         RowBox[{
          RowBox[{"1", "/", "24"}], "*", 
          RowBox[{"{", 
           RowBox[{"1", ",", "1", ",", "1", ",", "9"}], "}"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Apply", "[", 
         RowBox[{"Plus", ",", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", 
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
              " ", "/.", 
              RowBox[{"Thread", "[", 
               RowBox[{"var", "\[Rule]", 
                RowBox[{"map", "[", "#1", "]"}]}], "]"}]}], "&"}], ",", "p"}],
            "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"TRI7", ",", "exp_", ",", "var_", ",", "map_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"p", "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"1", "/", "2"}], ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"1", "/", "2"}], ",", 
             RowBox[{"1", "/", "2"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", 
             RowBox[{"1", "/", "2"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"1", "/", "3"}], ",", 
             RowBox[{"1", "/", "3"}]}], "}"}]}], "}"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"w", "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"1", "/", "40"}], ",", 
           RowBox[{"1", "/", "15"}], ",", 
           RowBox[{"1", "/", "40"}], ",", 
           RowBox[{"1", "/", "15"}], ",", 
           RowBox[{"1", "/", "40"}], ",", 
           RowBox[{"1", "/", "15"}], ",", 
           RowBox[{"9", "/", "40"}]}], "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Apply", "[", 
         RowBox[{"Plus", ",", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", 
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
              " ", "/.", 
              RowBox[{"Thread", "[", 
               RowBox[{"var", "\[Rule]", 
                RowBox[{"map", "[", "#1", "]"}]}], "]"}]}], "&"}], ",", "p"}],
            "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"TRI12", ",", "exp_", ",", "var_", ",", "map_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"p", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "1"}], "}"}]}], "}"}], "/", "4"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"w", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"4", ",", 
            RowBox[{"-", "1"}], ",", "4", ",", "4", ",", "8", ",", "8", ",", 
            "4", ",", 
            RowBox[{"-", "1"}], ",", "8", ",", 
            RowBox[{"-", "1"}], ",", "4", ",", "4"}], "}"}], "/", "90"}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"Apply", "[", 
         RowBox[{"Plus", ",", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", 
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
              " ", "/.", 
              RowBox[{"Thread", "[", 
               RowBox[{"var", "\[Rule]", 
                RowBox[{"map", "[", "#1", "]"}]}], "]"}]}], "&"}], ",", "p"}],
            "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"TRI28", ",", "exp_", ",", "var_", ",", "map_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"p", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "4"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "6"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "4"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "4"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"5", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"5", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"6", ",", "0"}], "}"}]}], "}"}], "/", "6"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"w", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "36", ",", 
            RowBox[{"-", "27"}], ",", "64", ",", 
            RowBox[{"-", "27"}], ",", "36", ",", "0", ",", "36", ",", "72", 
            ",", "72", ",", "72", ",", "72", ",", "36", ",", 
            RowBox[{"-", "27"}], ",", "72", ",", 
            RowBox[{"-", "54"}], ",", "72", ",", 
            RowBox[{"-", "27"}], ",", "64", ",", "72", ",", "72", ",", "64", 
            ",", 
            RowBox[{"-", "27"}], ",", "72", ",", 
            RowBox[{"-", "27"}], ",", "36", ",", "36", ",", "0"}], "}"}], "/", 
          RowBox[{"(", 
           RowBox[{"3.", "*", "560"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Apply", "[", 
         RowBox[{"Plus", ",", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", 
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
              " ", "/.", 
              RowBox[{"Thread", "[", 
               RowBox[{"var", "\[Rule]", 
                RowBox[{"map", "[", "#1", "]"}]}], "]"}]}], "&"}], ",", "p"}],
            "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"REC9", ",", "exp_", ",", "var_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"p", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "2"}], "}"}]}], "}"}], "/", "2"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"w", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "1", ",", "4", ",", "1", ",", "4", ",", "16", ",", "4", ",", "1", 
            ",", "4", ",", "1"}], "}"}], "/", "36"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Apply", "[", 
         RowBox[{"Plus", ",", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", 
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
              " ", "/.", 
              RowBox[{"Thread", "[", 
               RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], 
           "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"HEX27", ",", "exp_", ",", "var_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"w", ",", "p"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"p", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "2", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "0", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "0", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "1", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "2", ",", "2"}], "}"}]}], "}"}], "/", "2"}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"w", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "1", ",", "4", ",", "1", ",", "4", ",", "16", ",", "4", ",", "1", 
            ",", "4", ",", "1", ",", "4", ",", "16", ",", "4", ",", "16", ",",
             "64", ",", "16", ",", "4", ",", "16", ",", "4", ",", "1", ",", 
            "4", ",", "1", ",", "4", ",", "16", ",", "4", ",", "1", ",", "4", 
            ",", "1"}], "}"}], "/", 
          RowBox[{"6", "^", "3"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Apply", "[", 
         RowBox[{"Plus", ",", 
          RowBox[{"MapIndexed", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", 
                 RowBox[{"#2", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
              " ", "/.", 
              RowBox[{"Thread", "[", 
               RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], 
           "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"TET5", ",", "exp_", ",", "var_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"w", "=", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "16"}], ",", "9", ",", "9", ",", "9", ",", "9"}], 
            "}"}], "/", "120"}]}], ",", 
         RowBox[{"p", "=", 
          RowBox[{"Transpose", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"1", "/", "4"}], ",", 
               RowBox[{"1", "/", "2"}], ",", 
               RowBox[{"1", "/", "6"}], ",", 
               RowBox[{"1", "/", "6"}], ",", 
               RowBox[{"1", "/", "6"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"1", "/", "4"}], ",", 
               RowBox[{"1", "/", "6"}], ",", 
               RowBox[{"1", "/", "6"}], ",", 
               RowBox[{"1", "/", "6"}], ",", 
               RowBox[{"1", "/", "2"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"1", "/", "4"}], ",", 
               RowBox[{"1", "/", "6"}], ",", 
               RowBox[{"1", "/", "6"}], ",", 
               RowBox[{"1", "/", "2"}], ",", 
               RowBox[{"1", "/", "6"}]}], "}"}]}], "}"}], "]"}]}]}], "}"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Apply", "[", 
        RowBox[{"Plus", ",", 
         RowBox[{"MapIndexed", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"w", "[", 
               RowBox[{"[", 
                RowBox[{"#2", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
             " ", "/.", 
             RowBox[{"Thread", "[", 
              RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], 
          "]"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"QUAD", "[", 
      RowBox[{"TET10", ",", "exp_", ",", "var_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"w", "=", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", 
             RowBox[{"-", "1"}], ",", 
             RowBox[{"-", "1"}], ",", 
             RowBox[{"-", "1"}], ",", "4", ",", "4", ",", "4", ",", "4", ",", 
             "4", ",", "4"}], "}"}], "/", "120"}]}], ",", 
         RowBox[{"p", "=", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "1", ",", "0"}], "}"}], "/", "2"}], ",", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "0", ",", "1"}], "}"}], "/", "2"}], ",", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "0", ",", "0"}], "}"}], "/", "2"}], ",", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", "1", ",", "1"}], "}"}], "/", "2"}], ",", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", "1", ",", "0"}], "}"}], "/", "2"}], ",", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", "0", ",", "1"}], "}"}], "/", "2"}]}], 
           "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Apply", "[", 
        RowBox[{"Plus", ",", 
         RowBox[{"MapIndexed", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"w", "[", 
               RowBox[{"[", 
                RowBox[{"#2", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "*", "exp"}], 
             " ", "/.", 
             RowBox[{"Thread", "[", 
              RowBox[{"var", "\[Rule]", "#1"}], "]"}]}], "&"}], ",", "p"}], 
          "]"}]}], "]"}]}], "]"}]}], ";"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{
  3.4426462761434455`*^9, {3.4426463580278454`*^9, 3.4426463672786455`*^9}, 
   3.4461855349388*^9, {3.4468649264091997`*^9, 3.4468649477656*^9}, 
   3.4770653198157997`*^9, {3.4771016648258*^9, 3.4771016703638*^9}, 
   3.4773012612406*^9, 3.4773013118782*^9, {3.4773017793166*^9, 
   3.4773018115618*^9}, {3.4818081970202*^9, 3.4818082252406*^9}, {
   3.4822977608296003`*^9, 3.48229777267*^9}, {3.482298444565*^9, 
   3.4822984493698*^9}, {3.4822986565578003`*^9, 3.4822987152293997`*^9}, {
   3.4822987471470003`*^9, 3.4822988202018003`*^9}, {3.4823218768966*^9, 
   3.4823219047738*^9}, {3.6320400759127555`*^9, 3.6320400774188414`*^9}, {
   3.6339410644178886`*^9, 3.633941069742193*^9}, {3.633942002306533*^9, 
   3.6339420034775996`*^9}, 3.6565732333204584`*^9, {3.685329942084824*^9, 
   3.6853299995431104`*^9}, {3.6881195224183316`*^9, 
   3.6881195236983337`*^9}, {3.6881195571483803`*^9, 
   3.6881195915584283`*^9}, {3.688120564569791*^9, 3.6881205683897963`*^9}, {
   3.6881206185098658`*^9, 3.688120642069899*^9}, {3.688284719785588*^9, 
   3.688284729985602*^9}, {3.6882848245567346`*^9, 3.688284827776739*^9}, {
   3.688284875506806*^9, 3.6882848867468214`*^9}, {3.688350375413198*^9, 
   3.688350378173202*^9}, 3.6883504111932483`*^9, {3.7455544449212356`*^9, 
   3.745554465572897*^9}, {3.7455544990494084`*^9, 3.7455545172795343`*^9}, {
   3.74644306965172*^9, 3.746443076505107*^9}, {3.7468733511314077`*^9, 
   3.7468733665022874`*^9}, {3.763815192640204*^9, 3.7638152262175827`*^9}, {
   3.76381555999401*^9, 3.763815576658593*^9}, {3.763815629456071*^9, 
   3.7638156433643184`*^9}, {3.7638156760642715`*^9, 3.763815680110509*^9}, {
   3.763816314054133*^9, 3.763816315160985*^9}, {3.7641283974818926`*^9, 
   3.7641284022168202`*^9}, {3.764128466623234*^9, 3.764128512308055*^9}, {
   3.7641285516285644`*^9, 3.764128597474304*^9}, {3.7641286389761047`*^9, 
   3.764128668115802*^9}, {3.7661439599999857`*^9, 3.766144017439571*^9}, {
   3.8413897282608337`*^9, 3.8413897551839*^9}, {3.8413907066897593`*^9, 
   3.841390726628026*^9}, 3.8413907607649965`*^9, {3.8435604066446185`*^9, 
   3.843560438358281*^9}, {3.8435605553679347`*^9, 3.843560556538128*^9}, {
   3.8435617747579966`*^9, 3.8435617981268296`*^9}, {3.8435621954269557`*^9, 
   3.8435621959062867`*^9}, {3.8445744705479603`*^9, 3.84457448460798*^9}, {
   3.844574539146332*^9, 3.844574603163684*^9}, 3.8445746860003757`*^9, {
   3.8721492282062855`*^9, 3.872149229483136*^9}, {3.8721492692823997`*^9, 
   3.8721492926678143`*^9}, {3.872330854573894*^9, 3.872330873686554*^9}, {
   3.8736820802074738`*^9, 3.8736820984942775`*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"5bb53d9d-e81a-454b-9154-93d0a848cb22"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"tet", "=", 
     RowBox[{"Tetrahedron", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "1", ",", "0"}], "}"}], "/", "2"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "0", ",", "1"}], "}"}], "/", "2"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "0", ",", "0"}], "}"}], "/", "2"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "1", ",", "1"}], "}"}], "/", "2"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "1", ",", "0"}], "}"}], "/", "2"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "1"}], "}"}], "/", "2"}]}], "}"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fun", "=", 
     RowBox[{"{", 
      RowBox[{"1", ",", "x", ",", "y", ",", "z", ",", 
       RowBox[{"x", " ", "y"}], ",", 
       RowBox[{"x", " ", "z"}], ",", " ", 
       RowBox[{"y", " ", "z"}], ",", " ", 
       RowBox[{"x", "^", "2"}], ",", " ", 
       RowBox[{"y", "^", "2"}], ",", 
       RowBox[{"z", "^", "2"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"eq", "[", "i_", "]"}], ":=", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Array", "[", 
        RowBox[{"w", ",", "10"}], "]"}], ".", 
       RowBox[{"(", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"fun", "[", 
             RowBox[{"[", "i", "]"}], "]"}], " ", "/.", 
            RowBox[{"Thread", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"x", ",", "y", ",", "z"}], "}"}], "->", "#"}], "]"}]}],
            "&"}], ",", "p"}], "]"}], ")"}]}], "-", 
      RowBox[{"Integrate", "[", 
       RowBox[{
        RowBox[{"fun", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x", ",", "y", ",", "z"}], "}"}], 
         StyleBox["\[Element]", "OperatorCharacter"], 
         StyleBox["tet", "OperatorCharacter"]}]}], 
       StyleBox["]", "OperatorCharacter"]}]}]}], 
    StyleBox[";", "OperatorCharacter"]}], "\[IndentingNewLine]", 
   StyleBox["\[IndentingNewLine]", "OperatorCharacter"], 
   RowBox[{
    RowBox[{"sol", "=", 
     RowBox[{
      RowBox[{
       StyleBox["Solve", "OperatorCharacter"], 
       StyleBox["[", "OperatorCharacter"], 
       RowBox[{
        RowBox[{"Thread", "[", 
         RowBox[{
          RowBox[{
           StyleBox["Table", "OperatorCharacter"], 
           StyleBox["[", "OperatorCharacter"], 
           RowBox[{
            RowBox[{"eq", "[", "i", "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}], "==", "0"}], 
         "]"}], ",", 
        RowBox[{"Array", "[", 
         RowBox[{"w", ",", "10"}], "]"}]}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"120", "*", 
     RowBox[{"Array", "[", 
      RowBox[{"w", ",", "10"}], "]"}]}], " ", "/.", "sol"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Apply", "[", 
    RowBox[{"Plus", ",", 
     RowBox[{
      RowBox[{"Array", "[", 
       RowBox[{"w", ",", "10"}], "]"}], " ", "/.", "sol"}]}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.8413897580019073`*^9, 3.8413905824006023`*^9}, {
  3.841390641631239*^9, 3.841390651680857*^9}, {3.841390686922451*^9, 
  3.841390692801841*^9}},
 CellLabel->
  "In[116]:=",ExpressionUUID->"2796b207-ca8f-4b54-a424-0623979b3666"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1"}], ",", 
   RowBox[{"-", "1"}], ",", 
   RowBox[{"-", "1"}], ",", 
   RowBox[{"-", "1"}], ",", "4", ",", "4", ",", "4", ",", "4", ",", "4", ",", 
   "4"}], "}"}]], "Output",
 CellChangeTimes->{
  3.8413900780711346`*^9, 3.8413901203216476`*^9, 3.841390186370854*^9, 
   3.841390445057602*^9, 3.841390476814777*^9, {3.841390518910721*^9, 
   3.841390583991149*^9}, 3.841390653783507*^9, 3.8413906934544754`*^9},
 CellLabel->
  "Out[121]=",ExpressionUUID->"9e47140f-35ae-4f4b-a178-ce339cffc08e"],

Cell[BoxData[
 FractionBox["1", "6"]], "Output",
 CellChangeTimes->{
  3.8413900780711346`*^9, 3.8413901203216476`*^9, 3.841390186370854*^9, 
   3.841390445057602*^9, 3.841390476814777*^9, {3.841390518910721*^9, 
   3.841390583991149*^9}, 3.841390653783507*^9, 3.8413906934584646`*^9},
 CellLabel->
  "Out[122]=",ExpressionUUID->"fef5b72b-1304-4411-a0ed-010f44c05ce2"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["INTEGRATE defs ", "Subsection",ExpressionUUID->"a5b9565e-f023-4594-b62d-3be91d548681"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"INTEGRATE", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"LINE", ",", "exp_"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"ele_", ",", "fun_"}], "}"}]}], "]"}], ":=", 
    "\[IndentingNewLine]", 
    RowBox[{"Apply", "[", 
     RowBox[{"Plus", ",", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"QUAD", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"LINLINE", ",", "exp"}], "}"}], ",", "#"}], "]"}], "&"}], 
        ",", "ele"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RULE", "[", 
     RowBox[{"{", 
      RowBox[{"LINE", ",", 
       RowBox[{"{", "iy_", "}"}], ",", "list_"}], "}"}], "]"}], ":=", " ", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"ix", ",", "iz", ",", "hx", ",", "nn"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"ix", ",", "hx"}], "}"}], " ", "=", " ", 
        RowBox[{"UNIT", "[", 
         RowBox[{
          RowBox[{"XYZ", "[", 
           RowBox[{"Last", "[", "list", "]"}], "]"}], "-", 
          RowBox[{"XYZ", "[", 
           RowBox[{"First", "[", "list", "]"}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"iz", " ", "=", " ", 
        RowBox[{"CROSS", "[", 
         RowBox[{"ix", ",", "iy"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"nn", " ", "=", " ", 
        RowBox[{"Length", "[", "list", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"xrule", " ", "=", " ", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "[", "ii", "]"}], "\[Rule]", " ", 
           RowBox[{"ix", ".", 
            RowBox[{"XYZ", "[", 
             RowBox[{"list", "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "]"}]}]}], ",", 
          RowBox[{"{", 
           RowBox[{"ii", ",", "1", ",", "nn"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"yrule", " ", "=", " ", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"y", "[", "ii", "]"}], "\[Rule]", " ", 
           RowBox[{"iy", ".", 
            RowBox[{"XYZ", "[", 
             RowBox[{"list", "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "]"}]}]}], ",", 
          RowBox[{"{", 
           RowBox[{"ii", ",", "1", ",", "nn"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"zrule", " ", "=", " ", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"z", "[", "ii", "]"}], "\[Rule]", " ", 
           RowBox[{"iz", ".", 
            RowBox[{"XYZ", "[", 
             RowBox[{"list", "[", 
              RowBox[{"[", "ii", "]"}], "]"}], "]"}]}]}], ",", 
          RowBox[{"{", 
           RowBox[{"ii", ",", "1", ",", "nn"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Flatten", "[", 
        RowBox[{"Join", "[", 
         RowBox[{"xrule", ",", "yrule", ",", "zrule"}], "]"}], "]"}]}]}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"QUAD", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"LINLINE", ",", "exp_"}], "}"}], ",", "element_"}], "]"}], ":=",
     " ", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "NN", ",", "rule", ",", "xx", ",", "yy", ",", "zz", ",", "J", ",", 
        "int"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"NN", " ", "=", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1", "-", "\[Xi]"}], ",", "\[Xi]"}], "}"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"rule", " ", "=", " ", 
        RowBox[{"RULE", "[", "element", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"xx", " ", "=", " ", 
        RowBox[{
         RowBox[{"NN", ".", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x", "[", "1", "]"}], ",", 
            RowBox[{"x", "[", "2", "]"}]}], "}"}]}], " ", "/.", " ", 
         "rule"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"yy", " ", "=", " ", 
        RowBox[{
         RowBox[{"NN", ".", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"y", "[", "1", "]"}], ",", 
            RowBox[{"y", "[", "2", "]"}]}], "}"}]}], " ", "/.", " ", 
         "rule"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"zz", " ", "=", " ", 
        RowBox[{
         RowBox[{"NN", ".", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"z", "[", "1", "]"}], ",", 
            RowBox[{"z", "[", "2", "]"}]}], "}"}]}], " ", "/.", " ", 
         "rule"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"J", " ", "=", " ", 
        RowBox[{"Sqrt", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["\[PartialD]", "\[Xi]"], "xx"}], ")"}], "^", "2"}], 
          "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["\[PartialD]", "\[Xi]"], "yy"}], ")"}], "^", "2"}], 
          "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["\[PartialD]", "\[Xi]"], "zz"}], ")"}], "^", 
           "2"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"int", " ", "=", " ", 
        RowBox[{
         RowBox[{"J", "*", "exp"}], " ", "/.", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"x", "\[Rule]", "xx"}], ",", " ", 
           RowBox[{"y", "\[Rule]", "yy"}], ",", " ", 
           RowBox[{"z", "\[Rule]", "zz"}]}], "}"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"QUADE", "[", 
        RowBox[{"QTYPE", ",", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"int", " ", "/.", " ", 
            RowBox[{"\[Xi]", "\[Rule]", " ", "#1"}]}], ")"}], "&"}]}], 
        "]"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"QUADE", "[", 
    RowBox[{"LINE1", ",", "exp_"}], "]"}], ":=", " ", 
   RowBox[{
    RowBox[{"exp", "[", 
     RowBox[{"{", 
      RowBox[{"1", "/", "2"}], "}"}], "]"}], ".", 
    RowBox[{"{", "1", "}"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"QUADE", "[", 
    RowBox[{"LINE2", ",", "exp_"}], "]"}], ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"exp", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}], "]"}], ".", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}]}], "/", "2"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"QUADE", "[", 
    RowBox[{"LINE3", ",", "exp_"}], "]"}], ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"exp", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "1", ",", "2"}], "}"}], "/", "2"}], "]"}], ".", 
     RowBox[{"{", 
      RowBox[{"1", ",", "4", ",", "1"}], "}"}]}], "/", "6"}]}], 
  ";"}]}], "Input",
 InitializationCell->True,
 CellLabel->"In[62]:=",ExpressionUUID->"569ced92-9f9f-42df-9c2f-23d8ec58ff3c"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["FORCE MODEL", "Section",
 CellChangeTimes->{
  3.4430806364968*^9, {3.4453166713873997`*^9, 3.4453166747414*^9}, {
   3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 
   3.4695731359491997`*^9}, 3.473055186341*^9, {3.4730552472860003`*^9, 
   3.47305524884*^9}, {3.473055399782*^9, 3.473055419801*^9}, {
   3.4734696760778*^9, 3.4734697047349997`*^9}, {3.4770537891542*^9, 
   3.4770537950354*^9}, {3.4932799754514*^9, 3.4932799779161997`*^9}, {
   3.4945558951644*^9, 3.4945558957416*^9}, {3.4957646303032*^9, 
   3.4957646329084*^9}, {3.497581602118*^9, 3.4975816042552*^9}, {
   3.500960505817*^9, 3.5009605094206*^9}, {3.556623836083009*^9, 
   3.5566238462386265`*^9}, {3.5568725055395393`*^9, 
   3.5568725163821597`*^9}, {3.556872678728445*^9, 3.5568726810485783`*^9}, {
   3.7323376045620503`*^9, 3.7323376086812124`*^9}, {3.7335630623483887`*^9, 
   3.733563072583865*^9}, {3.733563130246215*^9, 3.733563131355714*^9}, {
   3.817531303014368*^9, 3.8175313048303127`*^9}, {3.8175314979069576`*^9, 
   3.8175315153006535`*^9}, 
   3.817531608989934*^9},ExpressionUUID->"8cd27ec9-6390-43ab-b1a7-\
f5d04655f647"],

Cell[CellGroupData[{

Cell["NULL ELEMENT defs ", "Subsection",
 CellChangeTimes->{{3.6926098999374723`*^9, 3.6926099165674953`*^9}, {
  3.7606078822118464`*^9, 3.7606078873319845`*^9}, {3.7606079926026382`*^9, 
  3.7606079992085595`*^9}},ExpressionUUID->"151470c2-e80a-4b27-8081-\
83d0351ad529"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"MEC", "-", "E1050"}], "|", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"should", " ", "anything", " ", "go", " ", "wrong"}], ",", " ", 
    RowBox[{"do", " ", "this"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Delta]W", "[", 
     RowBox[{"analysistype_", ",", "ele_", ",", "fun_"}], "]"}], ":=", "0"}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.7606079691729827`*^9, 3.7606079699771805`*^9}, {
  3.760608006624578*^9, 3.760608064931302*^9}, {3.7880761427660694`*^9, 
  3.788076155873885*^9}, {3.788424805091097*^9, 3.7884248740992002`*^9}, {
  3.817531967792331*^9, 
  3.817531969861539*^9}},ExpressionUUID->"4ef2ee80-c103-4727-96ef-\
84727c02059e"]
}, Closed]],

Cell[CellGroupData[{

Cell["FORCE ELEMENT (disp) defs ", "Subsection",
 CellChangeTimes->{{3.6926098999374723`*^9, 3.6926099165674953`*^9}, {
  3.7606078822118464`*^9, 3.7606078873319845`*^9}, {3.766555151642228*^9, 
  3.7665551755834265`*^9}, {3.774244544239236*^9, 3.7742445459997997`*^9}, {
  3.787895139092532*^9, 
  3.787895139619763*^9}},ExpressionUUID->"083331bd-7be2-49c4-acdc-\
6506556e55bb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"MEC", "-", "E1050"}], "|", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{"FX_", ",", "FY_", ",", "FZ_"}], "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=",
      "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{"FX", ",", "FY", ",", "FZ", ",", "0", ",", "0", ",", "0"}], 
          "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{
          "FX_", ",", "FY_", ",", "FZ_", ",", "MX_", ",", "MY_", ",", "MZ_"}],
           "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=",
      "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], ".", 
       RowBox[{"\[Delta]", "[", 
        RowBox[{"fun", "[", 
         RowBox[{"[", 
          RowBox[{"n1", ",", "2"}], "]"}], "]"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"MX", ",", "MY", ",", "MZ"}], "}"}], ".", 
       RowBox[{"\[Delta]", "[", 
        RowBox[{"fun", "[", 
         RowBox[{"[", 
          RowBox[{"n1", ",", "3"}], "]"}], "]"}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"fX", ",", "fX"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fY", ",", "fY"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fZ", ",", "fZ"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"fX1_", ",", "fX2_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fY1_", ",", "fY2_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fZ1_", ",", "fZ2_"}], "}"}]}], "}"}], " ", ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"nl", ",", "r0", ",", "h0"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"r0", "=", 
         RowBox[{
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"h0", "=", 
         RowBox[{"Simplify", "[", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{"r0", ".", "r0"}], "]"}], ",", 
           RowBox[{
            RowBox[{"L", ">", "0"}], "&&", 
            RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"h0", "/", "6"}], "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"\[Delta]", "[", 
             RowBox[{"fun", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "1"}], 
               "]"}], "]"}], "]"}], ".", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ".", 
            RowBox[{"{", 
             RowBox[{"fX1", ",", "fX2"}], "}"}]}], " ", "+", 
           RowBox[{
            RowBox[{"\[Delta]", "[", 
             RowBox[{"fun", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "2"}], 
               "]"}], "]"}], "]"}], ".", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ".", 
            RowBox[{"{", 
             RowBox[{"fY1", ",", "fY2"}], "}"}]}], "+", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"\[Delta]", "[", 
             RowBox[{"fun", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "3"}], 
               "]"}], "]"}], "]"}], ".", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ".", 
            RowBox[{"{", 
             RowBox[{"fZ1", ",", "fZ2"}], "}"}]}]}], ")"}]}]}]}], " ", 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"area", " ", "force"}], "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Delta]W", "[", 
     RowBox[{"DISP", ",", 
      RowBox[{"{", 
       RowBox[{"FORCE", ",", 
        RowBox[{"{", 
         RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], " ", ",", 
        RowBox[{"Polygon", "[", 
         RowBox[{"{", 
          RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",",
       "fun_"}], "]"}], ":=", "\[IndentingNewLine]", 
    RowBox[{"\[Delta]W", "[", 
     RowBox[{"DISP", ",", 
      RowBox[{"{", 
       RowBox[{"FORCE", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"fX", ",", "fX", ",", "fX"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"fY", ",", "fY", ",", "fY"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"fZ", ",", "fZ", ",", "fZ"}], "}"}]}], "}"}], " ", ",", 
        RowBox[{"Polygon", "[", 
         RowBox[{"{", 
          RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", 
      "fun"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"fX1_", ",", "fX2_", ",", "fX3_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fY1_", ",", "fY2_", ",", "fY3_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fZ1_", ",", "fZ2_", ",", "fZ3_"}], "}"}]}], "}"}], " ", 
         ",", 
         RowBox[{"Polygon", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], 
       ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Area", "[", 
        RowBox[{"Polygon", "[", 
         RowBox[{"fun", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "1"}], "]"}], 
          "]"}], "]"}], "]"}], "/", "12"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Delta]", "[", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", 
             "1"}], "]"}], "]"}], "]"}], ".", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ".", 
         RowBox[{"{", 
          RowBox[{"fX1", ",", "fX2", ",", "fX3"}], "}"}]}], " ", "+", 
        RowBox[{
         RowBox[{"\[Delta]", "[", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", 
             "2"}], "]"}], "]"}], "]"}], ".", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ".", 
         RowBox[{"{", 
          RowBox[{"fY1", ",", "fY2", ",", "fY3"}], "}"}]}], "+", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\[Delta]", "[", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", 
             "3"}], "]"}], "]"}], "]"}], ".", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ".", 
         RowBox[{"{", 
          RowBox[{"fZ1", ",", "fZ2", ",", "fZ3"}], "}"}]}]}], ")"}]}]}], " ", 
    ";"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{
  3.5002027395954*^9, {3.5007051491098003`*^9, 3.5007051504826*^9}, {
   3.5007158972342*^9, 3.500715901961*^9}, {3.557660909440528*^9, 
   3.5576609113281307`*^9}, {3.557660948393796*^9, 3.5576609720746374`*^9}, {
   3.557661012619109*^9, 3.5576610278447356`*^9}, {3.557661136342926*^9, 
   3.557661147387746*^9}, {3.6297908563470783`*^9, 3.629791071268656*^9}, 
   3.6297911922156687`*^9, 3.629791337951124*^9, 3.630659123489007*^9, {
   3.6306802085628467`*^9, 3.630680256501731*^9}, {3.6306810828067827`*^9, 
   3.630681095411605*^9}, {3.6336810185255365`*^9, 3.6336810782549524`*^9}, {
   3.685253847224399*^9, 3.68525389391807*^9}, 3.6853217521711235`*^9, {
   3.6853402653249354`*^9, 3.6853402673449383`*^9}, {3.6881771903780155`*^9, 
   3.688177478668419*^9}, {3.688177519198476*^9, 3.688177565838541*^9}, {
   3.6881807547137823`*^9, 3.6881807650437965`*^9}, {3.6881808240138793`*^9, 
   3.688180876463952*^9}, {3.6881809499540553`*^9, 3.688181051294197*^9}, {
   3.688181093904257*^9, 3.6881812886945295`*^9}, {3.688181328234585*^9, 
   3.6881813304845877`*^9}, {3.688181453674761*^9, 3.6881815439948874`*^9}, {
   3.6881825493903384`*^9, 3.6881825553503466`*^9}, {3.6888686424940867`*^9, 
   3.688868654634104*^9}, {3.6889603910835114`*^9, 3.688960395673517*^9}, {
   3.6892196168325553`*^9, 3.6892196711326313`*^9}, {3.6892225677866864`*^9, 
   3.689222572486693*^9}, {3.692609973477575*^9, 3.6926099745275764`*^9}, {
   3.6926155402795706`*^9, 3.692615635319703*^9}, {3.692615764369884*^9, 
   3.6926157969499297`*^9}, {3.6926158381999874`*^9, 
   3.6926159127500916`*^9}, {3.69261598286019*^9, 3.6926159923902035`*^9}, {
   3.692616041680272*^9, 3.692616050660285*^9}, {3.692616114410374*^9, 
   3.692616301970637*^9}, 3.6926169967516093`*^9, {3.692617055031691*^9, 
   3.6926170726717157`*^9}, {3.6926171281517935`*^9, 
   3.6926171424118137`*^9}, {3.693017729825803*^9, 3.693017759355844*^9}, {
   3.693017854095977*^9, 3.6930178839960184`*^9}, {3.693017945736105*^9, 
   3.6930179921261697`*^9}, {3.693716924097577*^9, 3.693716939187598*^9}, {
   3.694845162608508*^9, 3.6948452135185795`*^9}, {3.6948452490186296`*^9, 
   3.6948452827886767`*^9}, {3.724757160342552*^9, 3.7247571958524694`*^9}, 
   3.724757226606532*^9, {3.724757277132578*^9, 3.7247573049427323`*^9}, {
   3.7247573425972123`*^9, 3.724757343668002*^9}, {3.724757406051021*^9, 
   3.7247574182226624`*^9}, {3.72475750713536*^9, 3.724757523005001*^9}, {
   3.7247575654114623`*^9, 3.724757565695835*^9}, {3.725367981062604*^9, 
   3.7253680379435987`*^9}, {3.753080180213684*^9, 3.75308023490277*^9}, {
   3.7531760736894627`*^9, 3.7531760867433243`*^9}, {3.753176152767415*^9, 
   3.753176188588335*^9}, {3.7531763657274866`*^9, 3.7531763780597005`*^9}, {
   3.7557233277936163`*^9, 3.7557233738564167`*^9}, {3.760607910807132*^9, 
   3.760607911704075*^9}, {3.766555201350331*^9, 3.7665553560217686`*^9}, {
   3.7665553926814957`*^9, 3.766555405620928*^9}, {3.76663078538684*^9, 
   3.766630788445305*^9}, {3.7666308695077744`*^9, 3.7666309155844073`*^9}, {
   3.766630963805001*^9, 3.766630964328018*^9}, {3.7666310063775616`*^9, 
   3.766631007597319*^9}, {3.766631053754822*^9, 3.7666310557693295`*^9}, {
   3.766631102143116*^9, 3.766631182053177*^9}, {3.774244592505701*^9, 
   3.774244606024996*^9}, {3.774244666999945*^9, 3.774244780885934*^9}, {
   3.7742448195924053`*^9, 3.7742448333656425`*^9}, {3.7742448971593103`*^9, 
   3.7742449615049114`*^9}, {3.774245098242358*^9, 3.7742451238780427`*^9}, {
   3.77424518753212*^9, 3.7742451943686037`*^9}, {3.7742452586200476`*^9, 
   3.7742453104279203`*^9}, {3.7742469442792187`*^9, 
   3.7742472465608587`*^9}, {3.774247297716411*^9, 3.774247331264948*^9}, {
   3.78807546567931*^9, 3.7880755830304527`*^9}, 3.78807562415361*^9, {
   3.788075666988602*^9, 3.7880756768677874`*^9}, 3.788075710101962*^9, {
   3.788075747380065*^9, 3.7880757482704797`*^9}, {3.7880760000927234`*^9, 
   3.788076030825418*^9}, 3.817437852364077*^9, {3.8408458462334127`*^9, 
   3.8408458682568913`*^9}, {3.840847529962968*^9, 3.840847547834058*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"ada53db8-99ac-46a2-9d53-b6f81dda0511"]
}, Closed]],

Cell[CellGroupData[{

Cell["FORCE ELEMENT (evnt) defs ", "Subsection",
 CellChangeTimes->{{3.6926098999374723`*^9, 3.6926099165674953`*^9}, {
   3.7606078822118464`*^9, 3.7606078873319845`*^9}, {3.766555151642228*^9, 
   3.7665551755834265`*^9}, {3.774244544239236*^9, 3.7742445459997997`*^9}, {
   3.787895139092532*^9, 3.787895139619763*^9}, {3.817437626458826*^9, 
   3.8174376276248903`*^9}, 
   3.8223693711432643`*^9},ExpressionUUID->"fb933fff-8f47-4eeb-94ff-\
c567f9d4dab5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"MEC", "-", "E1050"}], "|", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Delta]W", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"EVENT", ",", 
        RowBox[{"{", 
         RowBox[{"s0_", ",", "sol0_"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"FORCE", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], 
     "]"}], ":=", 
    RowBox[{"\[Delta]W", "[", 
     RowBox[{"DISP", ",", 
      RowBox[{"{", 
       RowBox[{"FORCE", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], 
     "]"}]}], ";"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{
  3.5002027395954*^9, {3.5007051491098003`*^9, 3.5007051504826*^9}, {
   3.5007158972342*^9, 3.500715901961*^9}, {3.557660909440528*^9, 
   3.5576609113281307`*^9}, {3.557660948393796*^9, 3.5576609720746374`*^9}, {
   3.557661012619109*^9, 3.5576610278447356`*^9}, {3.557661136342926*^9, 
   3.557661147387746*^9}, {3.6297908563470783`*^9, 3.629791071268656*^9}, 
   3.6297911922156687`*^9, 3.629791337951124*^9, 3.630659123489007*^9, {
   3.6306802085628467`*^9, 3.630680256501731*^9}, {3.6306810828067827`*^9, 
   3.630681095411605*^9}, {3.6336810185255365`*^9, 3.6336810782549524`*^9}, {
   3.685253847224399*^9, 3.68525389391807*^9}, 3.6853217521711235`*^9, {
   3.6853402653249354`*^9, 3.6853402673449383`*^9}, {3.6881771903780155`*^9, 
   3.688177478668419*^9}, {3.688177519198476*^9, 3.688177565838541*^9}, {
   3.6881807547137823`*^9, 3.6881807650437965`*^9}, {3.6881808240138793`*^9, 
   3.688180876463952*^9}, {3.6881809499540553`*^9, 3.688181051294197*^9}, {
   3.688181093904257*^9, 3.6881812886945295`*^9}, {3.688181328234585*^9, 
   3.6881813304845877`*^9}, {3.688181453674761*^9, 3.6881815439948874`*^9}, {
   3.6881825493903384`*^9, 3.6881825553503466`*^9}, {3.6888686424940867`*^9, 
   3.688868654634104*^9}, {3.6889603910835114`*^9, 3.688960395673517*^9}, {
   3.6892196168325553`*^9, 3.6892196711326313`*^9}, {3.6892225677866864`*^9, 
   3.689222572486693*^9}, {3.692609973477575*^9, 3.6926099745275764`*^9}, {
   3.6926155402795706`*^9, 3.692615635319703*^9}, {3.692615764369884*^9, 
   3.6926157969499297`*^9}, {3.6926158381999874`*^9, 
   3.6926159127500916`*^9}, {3.69261598286019*^9, 3.6926159923902035`*^9}, {
   3.692616041680272*^9, 3.692616050660285*^9}, {3.692616114410374*^9, 
   3.692616301970637*^9}, 3.6926169967516093`*^9, {3.692617055031691*^9, 
   3.6926170726717157`*^9}, {3.6926171281517935`*^9, 
   3.6926171424118137`*^9}, {3.693017729825803*^9, 3.693017759355844*^9}, {
   3.693017854095977*^9, 3.6930178839960184`*^9}, {3.693017945736105*^9, 
   3.6930179921261697`*^9}, {3.693716924097577*^9, 3.693716939187598*^9}, {
   3.694845162608508*^9, 3.6948452135185795`*^9}, {3.6948452490186296`*^9, 
   3.6948452827886767`*^9}, {3.724757160342552*^9, 3.7247571958524694`*^9}, 
   3.724757226606532*^9, {3.724757277132578*^9, 3.7247573049427323`*^9}, {
   3.7247573425972123`*^9, 3.724757343668002*^9}, {3.724757406051021*^9, 
   3.7247574182226624`*^9}, {3.72475750713536*^9, 3.724757523005001*^9}, {
   3.7247575654114623`*^9, 3.724757565695835*^9}, {3.725367981062604*^9, 
   3.7253680379435987`*^9}, {3.753080180213684*^9, 3.75308023490277*^9}, {
   3.7531760736894627`*^9, 3.7531760867433243`*^9}, {3.753176152767415*^9, 
   3.753176188588335*^9}, {3.7531763657274866`*^9, 3.7531763780597005`*^9}, {
   3.7557233277936163`*^9, 3.7557233738564167`*^9}, {3.760607910807132*^9, 
   3.760607911704075*^9}, {3.766555201350331*^9, 3.7665553560217686`*^9}, {
   3.7665553926814957`*^9, 3.766555405620928*^9}, {3.76663078538684*^9, 
   3.766630788445305*^9}, {3.7666308695077744`*^9, 3.7666309155844073`*^9}, {
   3.766630963805001*^9, 3.766630964328018*^9}, {3.7666310063775616`*^9, 
   3.766631007597319*^9}, {3.766631053754822*^9, 3.7666310557693295`*^9}, {
   3.766631102143116*^9, 3.766631182053177*^9}, {3.774244592505701*^9, 
   3.774244606024996*^9}, {3.774244666999945*^9, 3.774244780885934*^9}, {
   3.7742448195924053`*^9, 3.7742448333656425`*^9}, {3.7742448971593103`*^9, 
   3.7742449615049114`*^9}, {3.774245098242358*^9, 3.7742451238780427`*^9}, {
   3.77424518753212*^9, 3.7742451943686037`*^9}, {3.7742452586200476`*^9, 
   3.7742453104279203`*^9}, {3.7742469442792187`*^9, 
   3.7742472465608587`*^9}, {3.774247297716411*^9, 3.774247331264948*^9}, {
   3.78807546567931*^9, 3.7880755830304527`*^9}, 3.78807562415361*^9, {
   3.788075666988602*^9, 3.7880756768677874`*^9}, 3.788075710101962*^9, {
   3.788075747380065*^9, 3.7880757482704797`*^9}, {3.7880760000927234`*^9, 
   3.788076030825418*^9}, {3.817437636844257*^9, 3.817437649087758*^9}, {
   3.8174378054427986`*^9, 3.8174378405468597`*^9}, {3.8174388645560064`*^9, 
   3.817438902212788*^9}, 3.8175212166525545`*^9},
 CellLabel->"In[74]:=",ExpressionUUID->"7fc5c889-d8fb-4d93-a77a-b27e6485fb15"]
}, Closed]],

Cell[CellGroupData[{

Cell["FORCE ELEMENT (vibr) defs ", "Subsection",
 CellChangeTimes->{{3.6926098999374723`*^9, 3.6926099165674953`*^9}, {
  3.760607890234026*^9, 3.760607893763776*^9}, {3.787895219181797*^9, 
  3.787895220119398*^9}},ExpressionUUID->"dce07bb7-b202-419e-b524-\
443fea7a31b5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MEC", "-", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{"FX_", ",", "FY_", ",", "FZ_"}], "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=",
      "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{"FX", ",", "FY", ",", "FZ", ",", "0", ",", "0", ",", "0"}], 
          "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{
          "FX_", ",", "FY_", ",", "FZ_", ",", "MX_", ",", "MY_", ",", "MZ_"}],
           "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=",
      "\[IndentingNewLine]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], ".", 
        RowBox[{"\[Delta]", "[", 
         RowBox[{
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n1", ",", "2"}], "]"}], "]"}], "/.", 
          RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"MX", ",", "MY", ",", "MZ"}], "}"}], ".", 
        RowBox[{"\[Delta]", "[", 
         RowBox[{
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n1", ",", "3"}], "]"}], "]"}], "/.", 
          RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}]}], ")"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"fX", ",", "fX"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fY", ",", "fY"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fZ", ",", "fZ"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"fX1_", ",", "fX2_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fY1_", ",", "fY2_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fZ1_", ",", "fZ2_"}], "}"}]}], "}"}], " ", ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"nl", ",", "r0", ",", "h0"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"r0", "=", 
         RowBox[{
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"h0", "=", 
         RowBox[{"Simplify", "[", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{"r0", ".", "r0"}], "]"}], ",", 
           RowBox[{
            RowBox[{"L", ">", "0"}], "&&", 
            RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h0", "/", "6"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Delta]", "[", 
              RowBox[{
               RowBox[{"fun", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "1"}], 
                 "]"}], "]"}], "/.", 
               RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ".", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ".", 
             RowBox[{"{", 
              RowBox[{"fX1", ",", "fX2"}], "}"}]}], " ", "+", 
            RowBox[{
             RowBox[{"\[Delta]", "[", 
              RowBox[{
               RowBox[{"fun", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "2"}], 
                 "]"}], "]"}], "/.", 
               RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ".", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ".", 
             RowBox[{"{", 
              RowBox[{"fY1", ",", "fY2"}], "}"}]}], "+", 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"\[Delta]", "[", 
              RowBox[{
               RowBox[{"fun", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"n1", ",", "n2"}], "}"}], ",", "2", ",", "3"}], 
                 "]"}], "]"}], "/.", 
               RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ".", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ".", 
             RowBox[{"{", 
              RowBox[{"fZ1", ",", "fZ2"}], "}"}]}]}], ")"}]}], ")"}]}]}], " ",
       "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], " ", ",", 
         RowBox[{"Polygon", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], 
       ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"fX", ",", "fX", ",", "fX"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fY", ",", "fY", ",", "fY"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fZ", ",", "fZ", ",", "fZ"}], "}"}]}], "}"}], " ", ",", 
         RowBox[{"Polygon", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", 
       "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"fX1_", ",", "fX2_", ",", "fX3_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fY1_", ",", "fY2_", ",", "fY3_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fZ1_", ",", "fZ2_", ",", "fZ3_"}], "}"}]}], "}"}], " ", 
         ",", 
         RowBox[{"Polygon", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], 
       ",", "fun_"}], "]"}], ":=", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Area", "[", 
        RowBox[{"Polygon", "[", 
         RowBox[{"fun", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "1"}], "]"}], 
         "]"}], "]"}], "/", "12"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Delta]", "[", 
          RowBox[{
           RowBox[{"fun", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", 
              "1"}], "]"}], "]"}], "/.", 
           RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ".", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ".", 
         RowBox[{"{", 
          RowBox[{"fX1", ",", "fX2", ",", "fX3"}], "}"}]}], "+", 
        RowBox[{
         RowBox[{"\[Delta]", "[", 
          RowBox[{
           RowBox[{"fun", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", 
              "2"}], "]"}], "]"}], "/.", 
           RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ".", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ".", 
         RowBox[{"{", 
          RowBox[{"fY1", ",", "fY2", ",", "fY3"}], "}"}]}], "+", 
        RowBox[{
         RowBox[{"\[Delta]", "[", 
          RowBox[{
           RowBox[{"fun", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], ",", "2", ",", 
              "3"}], "]"}], "]"}], "/.", 
           RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ".", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ".", 
         RowBox[{"{", 
          RowBox[{"fZ1", ",", "fZ2", ",", "fZ3"}], "}"}]}]}], ")"}]}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{"{", "m_", "}"}], "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=",
      "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "m"}], "  ", 
         RowBox[{"fun", "[", 
          RowBox[{"[", 
           RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], "/.", 
        RowBox[{"DRULE", "[", "2", "]"}]}], ")"}], ".", " ", 
      RowBox[{"(", 
       RowBox[{"\[Delta]", "[", 
        RowBox[{
         RowBox[{"fun", "[", 
          RowBox[{"[", 
           RowBox[{"n1", ",", "2"}], "]"}], "]"}], " ", "/.", 
         RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"m_", ",", "J_"}], "}"}], "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=",
      "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"m", ",", "J"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}]}], "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"m_", ",", "J_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"ix_", ",", "iy_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"iz", "=", 
         RowBox[{"ix", 
          StyleBox["\[Cross]", "OperatorCharacter"], 
          StyleBox["iy", "OperatorCharacter"]}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"m", " ", 
             RowBox[{"fun", "[", 
              RowBox[{"[", 
               RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], "/.", 
            RowBox[{"DRULE", "[", "2", "]"}]}], ")"}], ".", 
          RowBox[{"(", " ", 
           RowBox[{"\[Delta]", "[", 
            RowBox[{
             RowBox[{"fun", "[", 
              RowBox[{"[", 
               RowBox[{"n1", ",", "2"}], "]"}], "]"}], "/.", 
             RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ")"}]}]}], "-", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"J", ".", 
            RowBox[{"fun", "[", 
             RowBox[{"[", 
              RowBox[{"n1", ",", "3"}], "]"}], "]"}]}], "/.", 
           RowBox[{"DRULE", "[", "2", "]"}]}], ")"}], ".", 
         RowBox[{"(", 
          RowBox[{"\[Delta]", "[", 
           RowBox[{
            RowBox[{"fun", "[", 
             RowBox[{"[", 
              RowBox[{"n1", ",", "3"}], "]"}], "]"}], "/.", 
            RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], ")"}]}]}]}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"for", " ", "detailed", " ", "graphics"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"m_", ",", "J_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"ix_", ",", "iy_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"xyz_", ",", "obj_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"m", ",", "J"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"ix", ",", "iy"}], "}"}]}], "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], 
    ";"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{
  3.5002027395954*^9, {3.5007051491098003`*^9, 3.5007051504826*^9}, {
   3.5007158972342*^9, 3.500715901961*^9}, {3.557660909440528*^9, 
   3.5576609113281307`*^9}, {3.557660948393796*^9, 3.5576609720746374`*^9}, {
   3.557661012619109*^9, 3.5576610278447356`*^9}, {3.557661136342926*^9, 
   3.557661147387746*^9}, {3.6297908563470783`*^9, 3.629791071268656*^9}, 
   3.6297911922156687`*^9, 3.629791337951124*^9, 3.630659123489007*^9, {
   3.6306802085628467`*^9, 3.630680256501731*^9}, {3.6306810828067827`*^9, 
   3.630681095411605*^9}, {3.6336810185255365`*^9, 3.6336810782549524`*^9}, {
   3.685253847224399*^9, 3.68525389391807*^9}, 3.6853217521711235`*^9, {
   3.6853402653249354`*^9, 3.6853402673449383`*^9}, {3.6881771903780155`*^9, 
   3.688177478668419*^9}, {3.688177519198476*^9, 3.688177565838541*^9}, {
   3.6881807547137823`*^9, 3.6881807650437965`*^9}, {3.6881808240138793`*^9, 
   3.688180876463952*^9}, {3.6881809499540553`*^9, 3.688181051294197*^9}, {
   3.688181093904257*^9, 3.6881812886945295`*^9}, {3.688181328234585*^9, 
   3.6881813304845877`*^9}, {3.688181453674761*^9, 3.6881815439948874`*^9}, {
   3.6881825493903384`*^9, 3.6881825553503466`*^9}, {3.6888686424940867`*^9, 
   3.688868654634104*^9}, {3.6889603910835114`*^9, 3.688960395673517*^9}, {
   3.6892196168325553`*^9, 3.6892196711326313`*^9}, {3.6892225677866864`*^9, 
   3.689222572486693*^9}, {3.692609973477575*^9, 3.6926099745275764`*^9}, {
   3.6926155402795706`*^9, 3.692615635319703*^9}, {3.692615764369884*^9, 
   3.6926157969499297`*^9}, {3.6926158381999874`*^9, 
   3.6926159127500916`*^9}, {3.69261598286019*^9, 3.6926159923902035`*^9}, {
   3.692616041680272*^9, 3.692616050660285*^9}, {3.692616114410374*^9, 
   3.692616301970637*^9}, 3.6926169967516093`*^9, {3.692617055031691*^9, 
   3.6926170726717157`*^9}, {3.6926171281517935`*^9, 
   3.6926171424118137`*^9}, {3.693017729825803*^9, 3.693017759355844*^9}, {
   3.693017854095977*^9, 3.6930178839960184`*^9}, {3.693017945736105*^9, 
   3.6930179921261697`*^9}, {3.693716924097577*^9, 3.693716939187598*^9}, {
   3.694845162608508*^9, 3.6948452135185795`*^9}, {3.6948452490186296`*^9, 
   3.6948452827886767`*^9}, {3.724757160342552*^9, 3.7247571958524694`*^9}, 
   3.724757226606532*^9, {3.724757277132578*^9, 3.7247573049427323`*^9}, {
   3.7247573425972123`*^9, 3.724757343668002*^9}, {3.724757406051021*^9, 
   3.7247574182226624`*^9}, {3.72475750713536*^9, 3.724757523005001*^9}, {
   3.7247575654114623`*^9, 3.724757565695835*^9}, {3.725367981062604*^9, 
   3.7253680379435987`*^9}, {3.753080180213684*^9, 3.75308023490277*^9}, {
   3.7531760736894627`*^9, 3.7531760867433243`*^9}, {3.753176152767415*^9, 
   3.753176188588335*^9}, {3.7531763657274866`*^9, 3.7531763780597005`*^9}, {
   3.7557233277936163`*^9, 3.7557233738564167`*^9}, {3.760607934362851*^9, 
   3.7606079386004443`*^9}, {3.760608196677984*^9, 3.7606082206131644`*^9}, {
   3.7650816994300117`*^9, 3.76508188551581*^9}, {3.765081961656807*^9, 
   3.765082049591256*^9}, {3.7650820808183804`*^9, 3.765082093155528*^9}, {
   3.765082452422645*^9, 3.7650825105342064`*^9}, {3.76508255601999*^9, 
   3.765082685611348*^9}, {3.765082742570591*^9, 3.7650827441033616`*^9}, {
   3.7650827973670535`*^9, 3.7650828162989264`*^9}, {3.7650828756452084`*^9, 
   3.76508291725654*^9}, {3.787989785884842*^9, 3.7879897861538515`*^9}, {
   3.787989950939253*^9, 3.7879899714860353`*^9}, {3.787990031945051*^9, 
   3.7879900904605694`*^9}, {3.7880748631855245`*^9, 3.788074907396145*^9}, {
   3.788074983681623*^9, 3.7880749851875305`*^9}, {3.7880752108539596`*^9, 
   3.7880753460848837`*^9}, {3.7880753955492105`*^9, 3.7880754495543413`*^9}, 
   3.7880757985887327`*^9, {3.7880758550342417`*^9, 3.7880758814237986`*^9}, {
   3.7880759143167744`*^9, 3.7880759877586217`*^9}, {3.788076059772026*^9, 
   3.788076102767933*^9}, 3.7881670103681445`*^9, {3.788424742599498*^9, 
   3.7884247886832037`*^9}, {3.820469573319458*^9, 3.8204696119241095`*^9}, {
   3.820469713680828*^9, 3.820469726202425*^9}, {3.820469774985937*^9, 
   3.8204697820405493`*^9}, {3.8204709818632145`*^9, 
   3.8204709829070034`*^9}, {3.8211506205514607`*^9, 
   3.8211506410480547`*^9}, {3.821150731307102*^9, 3.821150735471115*^9}, {
   3.821151423923393*^9, 3.82115148698011*^9}, {3.821151531470887*^9, 
   3.8211516059392166`*^9}, {3.8298844266880245`*^9, 
   3.8298844622541885`*^9}, {3.829890944882238*^9, 3.8298909629438314`*^9}, {
   3.829891002598065*^9, 3.8298910041502285`*^9}, {3.8298910779119153`*^9, 
   3.8298911107781134`*^9}, {3.8298912682866173`*^9, 3.829891271409994*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"c0b8b313-977d-4b5b-b916-1fcc9f0bcf90"]
}, Closed]],

Cell[CellGroupData[{

Cell["FORCE ELEMENT (stab) defs ", "Subsection",
 CellChangeTimes->{{3.6926098999374723`*^9, 3.6926099165674953`*^9}, {
  3.760607890234026*^9, 3.760607893763776*^9}, {3.787895219181797*^9, 
  3.787895220119398*^9}, {3.788574649818136*^9, 
  3.7885746509362783`*^9}},ExpressionUUID->"31f8a698-c60f-4104-ae68-\
d3d63efe157c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MEC", "-", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"STAB", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{"FX_", ",", "FY_", ",", "FZ_"}], "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=",
      "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"STAB", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{
          "FX_", ",", "FY_", ",", "FZ_", ",", "MX_", ",", "MY_", ",", "MZ_"}],
           "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=",
      "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{
          "FX", ",", "FY", ",", "FZ", ",", "MX", ",", "MY", ",", "MZ"}], 
          "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"STAB", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"STAB", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"fX1_", ",", "fX2_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fY1_", ",", "fY2_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fZ1_", ",", "fZ2_"}], "}"}]}], "}"}], " ", ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"fX1", ",", "fX2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fY1", ",", "fY2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fZ1", ",", "fZ2"}], "}"}]}], "}"}], " ", ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"STAB", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], " ", ",", 
         RowBox[{"Polygon", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], 
       ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}], " ", ",", 
         RowBox[{"Polygon", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", 
       "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Delta]W", "[", 
     RowBox[{"STAB", ",", 
      RowBox[{"{", 
       RowBox[{"FORCE", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"fX1_", ",", "fX2_", ",", "fX3_"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"fY1_", ",", "fY2_", ",", "fY3_"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"fZ1_", ",", "fZ2_", ",", "fZ3_"}], "}"}]}], "}"}], " ", 
        ",", 
        RowBox[{"Polygon", "[", 
         RowBox[{"{", 
          RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",",
       "fun_"}], "]"}], ":=", " ", 
    RowBox[{"\[Delta]W", "[", 
     RowBox[{"DISP", ",", 
      RowBox[{"{", 
       RowBox[{"FORCE", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"fX1", ",", "fX2", ",", "fX3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"fY1", ",", "fY2", ",", "fY3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"fZ1", ",", "fZ2", ",", "fZ3"}], "}"}]}], "}"}], " ", ",", 
        RowBox[{"Polygon", "[", 
         RowBox[{"{", 
          RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", 
      "fun"}], "]"}]}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{
  3.5002027395954*^9, {3.5007051491098003`*^9, 3.5007051504826*^9}, {
   3.5007158972342*^9, 3.500715901961*^9}, {3.557660909440528*^9, 
   3.5576609113281307`*^9}, {3.557660948393796*^9, 3.5576609720746374`*^9}, {
   3.557661012619109*^9, 3.5576610278447356`*^9}, {3.557661136342926*^9, 
   3.557661147387746*^9}, {3.6297908563470783`*^9, 3.629791071268656*^9}, 
   3.6297911922156687`*^9, 3.629791337951124*^9, 3.630659123489007*^9, {
   3.6306802085628467`*^9, 3.630680256501731*^9}, {3.6306810828067827`*^9, 
   3.630681095411605*^9}, {3.6336810185255365`*^9, 3.6336810782549524`*^9}, {
   3.685253847224399*^9, 3.68525389391807*^9}, 3.6853217521711235`*^9, {
   3.6853402653249354`*^9, 3.6853402673449383`*^9}, {3.6881771903780155`*^9, 
   3.688177478668419*^9}, {3.688177519198476*^9, 3.688177565838541*^9}, {
   3.6881807547137823`*^9, 3.6881807650437965`*^9}, {3.6881808240138793`*^9, 
   3.688180876463952*^9}, {3.6881809499540553`*^9, 3.688181051294197*^9}, {
   3.688181093904257*^9, 3.6881812886945295`*^9}, {3.688181328234585*^9, 
   3.6881813304845877`*^9}, {3.688181453674761*^9, 3.6881815439948874`*^9}, {
   3.6881825493903384`*^9, 3.6881825553503466`*^9}, {3.6888686424940867`*^9, 
   3.688868654634104*^9}, {3.6889603910835114`*^9, 3.688960395673517*^9}, {
   3.6892196168325553`*^9, 3.6892196711326313`*^9}, {3.6892225677866864`*^9, 
   3.689222572486693*^9}, {3.692609973477575*^9, 3.6926099745275764`*^9}, {
   3.6926155402795706`*^9, 3.692615635319703*^9}, {3.692615764369884*^9, 
   3.6926157969499297`*^9}, {3.6926158381999874`*^9, 
   3.6926159127500916`*^9}, {3.69261598286019*^9, 3.6926159923902035`*^9}, {
   3.692616041680272*^9, 3.692616050660285*^9}, {3.692616114410374*^9, 
   3.692616301970637*^9}, 3.6926169967516093`*^9, {3.692617055031691*^9, 
   3.6926170726717157`*^9}, {3.6926171281517935`*^9, 
   3.6926171424118137`*^9}, {3.693017729825803*^9, 3.693017759355844*^9}, {
   3.693017854095977*^9, 3.6930178839960184`*^9}, {3.693017945736105*^9, 
   3.6930179921261697`*^9}, {3.693716924097577*^9, 3.693716939187598*^9}, {
   3.694845162608508*^9, 3.6948452135185795`*^9}, {3.6948452490186296`*^9, 
   3.6948452827886767`*^9}, {3.724757160342552*^9, 3.7247571958524694`*^9}, 
   3.724757226606532*^9, {3.724757277132578*^9, 3.7247573049427323`*^9}, {
   3.7247573425972123`*^9, 3.724757343668002*^9}, {3.724757406051021*^9, 
   3.7247574182226624`*^9}, {3.72475750713536*^9, 3.724757523005001*^9}, {
   3.7247575654114623`*^9, 3.724757565695835*^9}, {3.725367981062604*^9, 
   3.7253680379435987`*^9}, {3.753080180213684*^9, 3.75308023490277*^9}, {
   3.7531760736894627`*^9, 3.7531760867433243`*^9}, {3.753176152767415*^9, 
   3.753176188588335*^9}, {3.7531763657274866`*^9, 3.7531763780597005`*^9}, {
   3.7557233277936163`*^9, 3.7557233738564167`*^9}, {3.760607934362851*^9, 
   3.7606079386004443`*^9}, {3.760608196677984*^9, 3.7606082206131644`*^9}, {
   3.7650816994300117`*^9, 3.76508188551581*^9}, {3.765081961656807*^9, 
   3.765082049591256*^9}, {3.7650820808183804`*^9, 3.765082093155528*^9}, {
   3.765082452422645*^9, 3.7650825105342064`*^9}, {3.76508255601999*^9, 
   3.765082685611348*^9}, {3.765082742570591*^9, 3.7650827441033616`*^9}, {
   3.7650827973670535`*^9, 3.7650828162989264`*^9}, {3.7650828756452084`*^9, 
   3.76508291725654*^9}, {3.787989785884842*^9, 3.7879897861538515`*^9}, {
   3.787989950939253*^9, 3.7879899714860353`*^9}, {3.787990031945051*^9, 
   3.7879900904605694`*^9}, {3.7880748631855245`*^9, 3.788074907396145*^9}, {
   3.788074983681623*^9, 3.7880749851875305`*^9}, {3.7880752108539596`*^9, 
   3.7880753460848837`*^9}, {3.7880753955492105`*^9, 3.7880754495543413`*^9}, 
   3.7880757985887327`*^9, {3.7880758550342417`*^9, 3.7880758814237986`*^9}, {
   3.7880759143167744`*^9, 3.7880759877586217`*^9}, {3.788076059772026*^9, 
   3.788076102767933*^9}, 3.7881670103681445`*^9, {3.788424742599498*^9, 
   3.7884247886832037`*^9}, {3.788574662089695*^9, 3.7885746993059206`*^9}, {
   3.7885747319173193`*^9, 3.7885747927154846`*^9}, {3.788833131233985*^9, 
   3.788833188690298*^9}, {3.821150888214839*^9, 3.8211509294646425`*^9}, {
   3.8211509603238955`*^9, 3.8211510555185704`*^9}, {3.8211511473842373`*^9, 
   3.821151233654641*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"65b79de0-5668-4f72-bfc3-de1bda5b7249"]
}, Closed]],

Cell[CellGroupData[{

Cell["FORCE ELEMENT (nonl) defs ", "Subsection",
 CellChangeTimes->{{3.6926098999374723`*^9, 3.6926099165674953`*^9}, {
  3.760607890234026*^9, 3.760607893763776*^9}, {3.787895219181797*^9, 
  3.787895220119398*^9}, {3.788574649818136*^9, 3.7885746509362783`*^9}, {
  3.789441075232401*^9, 
  3.7894410761072865`*^9}},ExpressionUUID->"0cf68cd3-ef64-4451-ad2e-\
c7945d56e7d3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MEC", "-", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"NONL", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{"FX_", ",", "FY_", ",", "FZ_"}], "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=",
      "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"NONL", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{"FX", ",", "FY", ",", "FZ", ",", "0", ",", "0", ",", "0"}], 
          "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"NONL", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{
          "FX_", ",", "FY_", ",", "FZ_", ",", "MX_", ",", "MY_", ",", "MZ_"}],
           "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=",
      "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"FX", ",", "FY", ",", "FZ"}], "}"}], ".", 
       RowBox[{"\[Delta]", "[", 
        RowBox[{"fun", "[", 
         RowBox[{"[", 
          RowBox[{"n1", ",", "2"}], "]"}], "]"}], "]"}]}], "+", 
      RowBox[{"MY", "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            RowBox[{"fun", "[", 
             RowBox[{"[", 
              RowBox[{"n1", ",", "3", ",", "3"}], "]"}], "]"}]}], "*", 
           RowBox[{"\[Delta]", "[", 
            RowBox[{"fun", "[", 
             RowBox[{"[", 
              RowBox[{"n1", ",", "3", ",", "1"}], "]"}], "]"}], "]"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"fun", "[", 
              RowBox[{"[", 
               RowBox[{"n1", ",", "3", ",", "1"}], "]"}], "]"}]}], ")"}], "*",
            " ", 
           RowBox[{"\[Delta]", "[", 
            RowBox[{"fun", "[", 
             RowBox[{"[", 
              RowBox[{"n1", ",", "3", ",", "3"}], "]"}], "]"}], "]"}]}]}], 
         ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"fun", "[", 
              RowBox[{"[", 
               RowBox[{"n1", ",", "3", ",", "1"}], "]"}], "]"}]}], ")"}], "^",
            "2"}], "+", 
          RowBox[{
           RowBox[{"fun", "[", 
            RowBox[{"[", 
             RowBox[{"n1", ",", "3", ",", "3"}], "]"}], "]"}], "^", "2"}]}], 
         ")"}]}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"area", " ", "force"}], "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Delta]W", "[", 
     RowBox[{"NONL", ",", 
      RowBox[{"{", 
       RowBox[{"FORCE", ",", 
        RowBox[{"{", 
         RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], " ", ",", 
        RowBox[{"Polygon", "[", 
         RowBox[{"{", 
          RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], ",",
       "fun_"}], "]"}], ":=", "\[IndentingNewLine]", 
    RowBox[{"\[Delta]W", "[", 
     RowBox[{"DISP", ",", 
      RowBox[{"{", 
       RowBox[{"FORCE", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"fX", ",", "fX", ",", "fX"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"fY", ",", "fY", ",", "fY"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"fZ", ",", "fZ", ",", "fZ"}], "}"}]}], "}"}], " ", ",", 
        RowBox[{"Polygon", "[", 
         RowBox[{"{", 
          RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", 
      "fun"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"NONL", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"fX1_", ",", "fX2_", ",", "fX3_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fY1_", ",", "fY2_", ",", "fY3_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fZ1_", ",", "fZ2_", ",", "fZ3_"}], "}"}]}], "}"}], " ", 
         ",", 
         RowBox[{"Polygon", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], 
       ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"FORCE", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"fX1", ",", "fX2", ",", "fX3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fY1", ",", "fY2", ",", "fY3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fZ1", ",", "fZ2", ",", "fZ3"}], "}"}]}], "}"}], " ", ",", 
         RowBox[{"Polygon", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", 
       "fun"}], "]"}]}], ";"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{
  3.5002027395954*^9, {3.5007051491098003`*^9, 3.5007051504826*^9}, {
   3.5007158972342*^9, 3.500715901961*^9}, {3.557660909440528*^9, 
   3.5576609113281307`*^9}, {3.557660948393796*^9, 3.5576609720746374`*^9}, {
   3.557661012619109*^9, 3.5576610278447356`*^9}, {3.557661136342926*^9, 
   3.557661147387746*^9}, {3.6297908563470783`*^9, 3.629791071268656*^9}, 
   3.6297911922156687`*^9, 3.629791337951124*^9, 3.630659123489007*^9, {
   3.6306802085628467`*^9, 3.630680256501731*^9}, {3.6306810828067827`*^9, 
   3.630681095411605*^9}, {3.6336810185255365`*^9, 3.6336810782549524`*^9}, {
   3.685253847224399*^9, 3.68525389391807*^9}, 3.6853217521711235`*^9, {
   3.6853402653249354`*^9, 3.6853402673449383`*^9}, {3.6881771903780155`*^9, 
   3.688177478668419*^9}, {3.688177519198476*^9, 3.688177565838541*^9}, {
   3.6881807547137823`*^9, 3.6881807650437965`*^9}, {3.6881808240138793`*^9, 
   3.688180876463952*^9}, {3.6881809499540553`*^9, 3.688181051294197*^9}, {
   3.688181093904257*^9, 3.6881812886945295`*^9}, {3.688181328234585*^9, 
   3.6881813304845877`*^9}, {3.688181453674761*^9, 3.6881815439948874`*^9}, {
   3.6881825493903384`*^9, 3.6881825553503466`*^9}, {3.6888686424940867`*^9, 
   3.688868654634104*^9}, {3.6889603910835114`*^9, 3.688960395673517*^9}, {
   3.6892196168325553`*^9, 3.6892196711326313`*^9}, {3.6892225677866864`*^9, 
   3.689222572486693*^9}, {3.692609973477575*^9, 3.6926099745275764`*^9}, {
   3.6926155402795706`*^9, 3.692615635319703*^9}, {3.692615764369884*^9, 
   3.6926157969499297`*^9}, {3.6926158381999874`*^9, 
   3.6926159127500916`*^9}, {3.69261598286019*^9, 3.6926159923902035`*^9}, {
   3.692616041680272*^9, 3.692616050660285*^9}, {3.692616114410374*^9, 
   3.692616301970637*^9}, 3.6926169967516093`*^9, {3.692617055031691*^9, 
   3.6926170726717157`*^9}, {3.6926171281517935`*^9, 
   3.6926171424118137`*^9}, {3.693017729825803*^9, 3.693017759355844*^9}, {
   3.693017854095977*^9, 3.6930178839960184`*^9}, {3.693017945736105*^9, 
   3.6930179921261697`*^9}, {3.693716924097577*^9, 3.693716939187598*^9}, {
   3.694845162608508*^9, 3.6948452135185795`*^9}, {3.6948452490186296`*^9, 
   3.6948452827886767`*^9}, {3.724757160342552*^9, 3.7247571958524694`*^9}, 
   3.724757226606532*^9, {3.724757277132578*^9, 3.7247573049427323`*^9}, {
   3.7247573425972123`*^9, 3.724757343668002*^9}, {3.724757406051021*^9, 
   3.7247574182226624`*^9}, {3.72475750713536*^9, 3.724757523005001*^9}, {
   3.7247575654114623`*^9, 3.724757565695835*^9}, {3.725367981062604*^9, 
   3.7253680379435987`*^9}, {3.753080180213684*^9, 3.75308023490277*^9}, {
   3.7531760736894627`*^9, 3.7531760867433243`*^9}, {3.753176152767415*^9, 
   3.753176188588335*^9}, {3.7531763657274866`*^9, 3.7531763780597005`*^9}, {
   3.7557233277936163`*^9, 3.7557233738564167`*^9}, {3.760607934362851*^9, 
   3.7606079386004443`*^9}, {3.760608196677984*^9, 3.7606082206131644`*^9}, {
   3.7650816994300117`*^9, 3.76508188551581*^9}, {3.765081961656807*^9, 
   3.765082049591256*^9}, {3.7650820808183804`*^9, 3.765082093155528*^9}, {
   3.765082452422645*^9, 3.7650825105342064`*^9}, {3.76508255601999*^9, 
   3.765082685611348*^9}, {3.765082742570591*^9, 3.7650827441033616`*^9}, {
   3.7650827973670535`*^9, 3.7650828162989264`*^9}, {3.7650828756452084`*^9, 
   3.76508291725654*^9}, {3.787989785884842*^9, 3.7879897861538515`*^9}, {
   3.787989950939253*^9, 3.7879899714860353`*^9}, {3.787990031945051*^9, 
   3.7879900904605694`*^9}, {3.7880748631855245`*^9, 3.788074907396145*^9}, {
   3.788074983681623*^9, 3.7880749851875305`*^9}, {3.7880752108539596`*^9, 
   3.7880753460848837`*^9}, {3.7880753955492105`*^9, 3.7880754495543413`*^9}, 
   3.7880757985887327`*^9, {3.7880758550342417`*^9, 3.7880758814237986`*^9}, {
   3.7880759143167744`*^9, 3.7880759877586217`*^9}, {3.788076059772026*^9, 
   3.788076102767933*^9}, 3.7881670103681445`*^9, {3.788424742599498*^9, 
   3.7884247886832037`*^9}, {3.788574662089695*^9, 3.7885746993059206`*^9}, {
   3.7885747319173193`*^9, 3.7885747927154846`*^9}, {3.788833131233985*^9, 
   3.788833188690298*^9}, {3.789441083494993*^9, 3.7894410929575987`*^9}, {
   3.7894411329012265`*^9, 3.789441135103803*^9}, {3.8216139632647324`*^9, 
   3.821614000501048*^9}, {3.821778980163827*^9, 3.821779023170026*^9}, {
   3.8526149197908554`*^9, 3.8526149264241767`*^9}, {3.8526150097945175`*^9, 
   3.8526151076594424`*^9}, {3.8526151937844095`*^9, 
   3.8526153799795046`*^9}, {3.8526154236433077`*^9, 3.852615428357727*^9}, 
   3.852615738143323*^9, {3.85261577369608*^9, 3.8526157754718657`*^9}, {
   3.852615819281072*^9, 3.8526158733183727`*^9}, 3.8526167397965617`*^9, {
   3.85261723461384*^9, 3.8526172417322617`*^9}, {3.8526178141348553`*^9, 
   3.8526178535724907`*^9}, 3.852617953477276*^9, {3.8526936587753305`*^9, 
   3.852693709451621*^9}, {3.8526943296373367`*^9, 3.852694418011649*^9}, {
   3.852694451913797*^9, 3.852694569753277*^9}, {3.852699051213097*^9, 
   3.85269906934655*^9}, {3.8526991193491087`*^9, 3.85269912274557*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"d831f715-1d7b-4328-b9e0-96e2e52321c7"]
}, Open  ]],

Cell[CellGroupData[{

Cell["FORCE ELEMENT (tmec) defs ", "Subsection",
 CellChangeTimes->{{3.6926098999374723`*^9, 3.6926099165674953`*^9}, {
  3.760607890234026*^9, 3.760607893763776*^9}, {3.787895219181797*^9, 
  3.787895220119398*^9}, {3.788574649818136*^9, 3.7885746509362783`*^9}, {
  3.789441075232401*^9, 3.7894410761072865`*^9}, {3.8223693498062468`*^9, 
  3.8223693569381757`*^9}},ExpressionUUID->"9c4b6186-ec02-4cc7-bbf5-\
1d329d86fa36"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MEC", "-", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Delta]W", "[", 
     RowBox[{"TMEC", ",", 
      RowBox[{"{", 
       RowBox[{"FORCE", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], 
     "]"}], ":=", "\[IndentingNewLine]", 
    RowBox[{"\[Delta]W", "[", 
     RowBox[{"DISP", ",", 
      RowBox[{"{", 
       RowBox[{"FORCE", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], 
     "]"}]}], ";"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{
  3.5002027395954*^9, {3.5007051491098003`*^9, 3.5007051504826*^9}, {
   3.5007158972342*^9, 3.500715901961*^9}, {3.557660909440528*^9, 
   3.5576609113281307`*^9}, {3.557660948393796*^9, 3.5576609720746374`*^9}, {
   3.557661012619109*^9, 3.5576610278447356`*^9}, {3.557661136342926*^9, 
   3.557661147387746*^9}, {3.6297908563470783`*^9, 3.629791071268656*^9}, 
   3.6297911922156687`*^9, 3.629791337951124*^9, 3.630659123489007*^9, {
   3.6306802085628467`*^9, 3.630680256501731*^9}, {3.6306810828067827`*^9, 
   3.630681095411605*^9}, {3.6336810185255365`*^9, 3.6336810782549524`*^9}, {
   3.685253847224399*^9, 3.68525389391807*^9}, 3.6853217521711235`*^9, {
   3.6853402653249354`*^9, 3.6853402673449383`*^9}, {3.6881771903780155`*^9, 
   3.688177478668419*^9}, {3.688177519198476*^9, 3.688177565838541*^9}, {
   3.6881807547137823`*^9, 3.6881807650437965`*^9}, {3.6881808240138793`*^9, 
   3.688180876463952*^9}, {3.6881809499540553`*^9, 3.688181051294197*^9}, {
   3.688181093904257*^9, 3.6881812886945295`*^9}, {3.688181328234585*^9, 
   3.6881813304845877`*^9}, {3.688181453674761*^9, 3.6881815439948874`*^9}, {
   3.6881825493903384`*^9, 3.6881825553503466`*^9}, {3.6888686424940867`*^9, 
   3.688868654634104*^9}, {3.6889603910835114`*^9, 3.688960395673517*^9}, {
   3.6892196168325553`*^9, 3.6892196711326313`*^9}, {3.6892225677866864`*^9, 
   3.689222572486693*^9}, {3.692609973477575*^9, 3.6926099745275764`*^9}, {
   3.6926155402795706`*^9, 3.692615635319703*^9}, {3.692615764369884*^9, 
   3.6926157969499297`*^9}, {3.6926158381999874`*^9, 
   3.6926159127500916`*^9}, {3.69261598286019*^9, 3.6926159923902035`*^9}, {
   3.692616041680272*^9, 3.692616050660285*^9}, {3.692616114410374*^9, 
   3.692616301970637*^9}, 3.6926169967516093`*^9, {3.692617055031691*^9, 
   3.6926170726717157`*^9}, {3.6926171281517935`*^9, 
   3.6926171424118137`*^9}, {3.693017729825803*^9, 3.693017759355844*^9}, {
   3.693017854095977*^9, 3.6930178839960184`*^9}, {3.693017945736105*^9, 
   3.6930179921261697`*^9}, {3.693716924097577*^9, 3.693716939187598*^9}, {
   3.694845162608508*^9, 3.6948452135185795`*^9}, {3.6948452490186296`*^9, 
   3.6948452827886767`*^9}, {3.724757160342552*^9, 3.7247571958524694`*^9}, 
   3.724757226606532*^9, {3.724757277132578*^9, 3.7247573049427323`*^9}, {
   3.7247573425972123`*^9, 3.724757343668002*^9}, {3.724757406051021*^9, 
   3.7247574182226624`*^9}, {3.72475750713536*^9, 3.724757523005001*^9}, {
   3.7247575654114623`*^9, 3.724757565695835*^9}, {3.725367981062604*^9, 
   3.7253680379435987`*^9}, {3.753080180213684*^9, 3.75308023490277*^9}, {
   3.7531760736894627`*^9, 3.7531760867433243`*^9}, {3.753176152767415*^9, 
   3.753176188588335*^9}, {3.7531763657274866`*^9, 3.7531763780597005`*^9}, {
   3.7557233277936163`*^9, 3.7557233738564167`*^9}, {3.760607934362851*^9, 
   3.7606079386004443`*^9}, {3.760608196677984*^9, 3.7606082206131644`*^9}, {
   3.7650816994300117`*^9, 3.76508188551581*^9}, {3.765081961656807*^9, 
   3.765082049591256*^9}, {3.7650820808183804`*^9, 3.765082093155528*^9}, {
   3.765082452422645*^9, 3.7650825105342064`*^9}, {3.76508255601999*^9, 
   3.765082685611348*^9}, {3.765082742570591*^9, 3.7650827441033616`*^9}, {
   3.7650827973670535`*^9, 3.7650828162989264`*^9}, {3.7650828756452084`*^9, 
   3.76508291725654*^9}, {3.787989785884842*^9, 3.7879897861538515`*^9}, {
   3.787989950939253*^9, 3.7879899714860353`*^9}, {3.787990031945051*^9, 
   3.7879900904605694`*^9}, {3.7880748631855245`*^9, 3.788074907396145*^9}, {
   3.788074983681623*^9, 3.7880749851875305`*^9}, {3.7880752108539596`*^9, 
   3.7880753460848837`*^9}, {3.7880753955492105`*^9, 3.7880754495543413`*^9}, 
   3.7880757985887327`*^9, {3.7880758550342417`*^9, 3.7880758814237986`*^9}, {
   3.7880759143167744`*^9, 3.7880759877586217`*^9}, {3.788076059772026*^9, 
   3.788076102767933*^9}, 3.7881670103681445`*^9, {3.788424742599498*^9, 
   3.7884247886832037`*^9}, {3.788574662089695*^9, 3.7885746993059206`*^9}, {
   3.7885747319173193`*^9, 3.7885747927154846`*^9}, {3.788833131233985*^9, 
   3.788833188690298*^9}, {3.789441083494993*^9, 3.7894410929575987`*^9}, {
   3.7894411329012265`*^9, 3.789441135103803*^9}, {3.8216139632647324`*^9, 
   3.821614000501048*^9}, {3.821778980163827*^9, 3.821779023170026*^9}, {
   3.822369386549012*^9, 3.822369387709909*^9}},
 CellLabel->"In[95]:=",ExpressionUUID->"9fc34948-c44b-4213-be16-e0154f43a876"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["CONSTRAINT MODEL", "Section",
 CellChangeTimes->{
  3.4430806364968*^9, {3.4453166713873997`*^9, 3.4453166747414*^9}, {
   3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 
   3.4695731359491997`*^9}, 3.473055186341*^9, {3.4730552472860003`*^9, 
   3.47305524884*^9}, {3.473055399782*^9, 3.473055419801*^9}, {
   3.4734696760778*^9, 3.4734697047349997`*^9}, {3.4770537891542*^9, 
   3.4770537950354*^9}, {3.4932799754514*^9, 3.4932799779161997`*^9}, {
   3.4945558951644*^9, 3.4945558957416*^9}, {3.4957646303032*^9, 
   3.4957646329084*^9}, {3.497581602118*^9, 3.4975816042552*^9}, {
   3.500960505817*^9, 3.5009605094206*^9}, {3.556623836083009*^9, 
   3.5566238462386265`*^9}, {3.5568725055395393`*^9, 
   3.5568725163821597`*^9}, {3.556872678728445*^9, 3.5568726810485783`*^9}, {
   3.7323376045620503`*^9, 3.7323376086812124`*^9}, {3.7335630623483887`*^9, 
   3.733563072583865*^9}, {3.733563130246215*^9, 3.733563131355714*^9}, {
   3.8175313791665382`*^9, 3.8175313820813637`*^9}, {3.817531489041069*^9, 
   3.81753151263837*^9}, 
   3.817531603785071*^9},ExpressionUUID->"c5ed4286-0f0c-409c-979d-\
dab5bad29c8f"],

Cell[CellGroupData[{

Cell["CONSTRAINT ELEMENT (disp) defs ", "Subsection",
 CellChangeTimes->{{3.632187277028809*^9, 3.63218727949695*^9}, 
   3.632188602208605*^9, {3.632189487917265*^9, 3.6321894914104643`*^9}, {
   3.68532054956944*^9, 3.6853205513594418`*^9}, {3.687743079248886*^9, 
   3.6877430854888954`*^9}, {3.76507863996914*^9, 3.7650786436977797`*^9}, {
   3.7880762440580482`*^9, 3.7880762616852336`*^9}, {3.788076337785893*^9, 
   3.7880763394484987`*^9}, {3.817437563190297*^9, 
   3.817437574730232*^9}},ExpressionUUID->"e54455fb-09fa-455e-a041-\
fad8f03d3ffa"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"MEC", "-", "E1050"}], "|", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"RIGID", ",", 
         RowBox[{"{", "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"RIGID", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1", "}"}], "]"}]}], "}"}], ",", "fun"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"RIGID", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"uX1_", ",", "uY1_", ",", "uZ1_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\[Theta]X1_", ",", "\[Theta]Y1_", ",", "\[Theta]Z1_"}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"\[Delta]\[Delta]", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n1", ",", "2"}], "]"}], "]"}], "-", 
          RowBox[{"{", 
           RowBox[{"uX1", ",", "uY1", ",", "uZ1"}], "}"}]}], ")"}], ".", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FX", "[", "n1", "]"}], ",", 
          RowBox[{"FY", "[", "n1", "]"}], ",", 
          RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], "]"}], "+", 
      "\[IndentingNewLine]", 
      RowBox[{"\[Delta]\[Delta]", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n1", ",", "3"}], "]"}], "]"}], "-", 
          RowBox[{"{", 
           RowBox[{"\[Theta]X1", ",", "\[Theta]Y1", ",", "\[Theta]Z1"}], 
           "}"}]}], ")"}], ".", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"MX", "[", "n1", "]"}], ",", 
          RowBox[{"MY", "[", "n1", "]"}], ",", 
          RowBox[{"MZ", "[", "n1", "]"}]}], "}"}]}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"RIGID", ",", 
         RowBox[{"{", "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Delta]\[Delta]", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n2", ",", "2"}], "]"}], "]"}], "-", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n1", ",", "2"}], "]"}], "]"}], "-", 
          RowBox[{
           RowBox[{"fun", "[", 
            RowBox[{"[", 
             RowBox[{"n1", ",", "3"}], "]"}], "]"}], 
           StyleBox["\[Cross]", "OperatorCharacter"], 
           RowBox[{
            StyleBox["(", "OperatorCharacter"], 
            RowBox[{
             RowBox[{"fun", "[", 
              RowBox[{"[", 
               RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", 
             RowBox[{"fun", "[", 
              RowBox[{"[", 
               RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}], ")"}], 
        ".", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"FX", "[", 
           RowBox[{"{", 
            RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", 
          RowBox[{"FY", "[", 
           RowBox[{"{", 
            RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", 
          RowBox[{"FZ", "[", 
           RowBox[{"{", 
            RowBox[{"n2", ",", "n1"}], "}"}], "]"}]}], "}"}]}], "]"}], "+", 
      "\[IndentingNewLine]", 
      RowBox[{"\[Delta]\[Delta]", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n2", ",", "3"}], "]"}], "]"}], "-", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n1", ",", "3"}], "]"}], "]"}]}], ")"}], ".", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"MX", "[", 
             RowBox[{"{", 
              RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", 
            RowBox[{"MY", "[", 
             RowBox[{"{", 
              RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", 
            RowBox[{"MZ", "[", 
             RowBox[{"{", 
              RowBox[{"n2", ",", "n1"}], "}"}], "]"}]}], "}"}], " ", "+", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FX", "[", 
              RowBox[{"{", 
               RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", 
             RowBox[{"FY", "[", 
              RowBox[{"{", 
               RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", 
             RowBox[{"FZ", "[", 
              RowBox[{"{", 
               RowBox[{"n2", ",", "n1"}], "}"}], "]"}]}], "}"}], 
           StyleBox["\[Cross]", "OperatorCharacter"], 
           RowBox[{
            StyleBox["(", "OperatorCharacter"], 
            RowBox[{
             RowBox[{"fun", "[", 
              RowBox[{"[", 
               RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", 
             RowBox[{"fun", "[", 
              RowBox[{"[", 
               RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}], ")"}]}], 
       "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"JOINT", ",", 
         RowBox[{"{", "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{"\[Delta]\[Delta]", "[", 
      RowBox[{
       RowBox[{"fun", "[", 
        RowBox[{"[", 
         RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"FX", "[", "n1", "]"}], ",", 
         RowBox[{"FY", "[", "n1", "]"}], ",", 
         RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"JOINT", ",", 
         RowBox[{"{", 
          RowBox[{"uX1_", ",", "uY1_", ",", "uZ1_"}], "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{"\[Delta]\[Delta]", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"fun", "[", 
          RowBox[{"[", 
           RowBox[{"n1", ",", "2"}], "]"}], "]"}], "-", 
         RowBox[{"{", 
          RowBox[{"uX1", ",", "uY1", ",", "uZ1"}], "}"}]}], ")"}], ".", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"FX", "[", "n1", "]"}], ",", 
         RowBox[{"FY", "[", "n1", "]"}], ",", 
         RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"JOINT", ",", 
         RowBox[{"{", "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", 
     RowBox[{"\[Delta]\[Delta]", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"fun", "[", 
          RowBox[{"[", 
           RowBox[{"n1", ",", "2"}], "]"}], "]"}], "-", 
         RowBox[{"fun", "[", 
          RowBox[{"[", 
           RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], ")"}], ".", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"FX", "[", "n1", "]"}], ",", 
         RowBox[{"FY", "[", "n1", "]"}], ",", 
         RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], "]"}]}], " ", ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"SLIDER", ",", 
         RowBox[{"{", 
          RowBox[{"nX_", ",", "nY_", ",", "nZ_"}], "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{"\[Delta]\[Delta]", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"fun", "[", 
          RowBox[{"[", 
           RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", 
         RowBox[{"{", 
          RowBox[{"nX", ",", "nY", ",", "nZ"}], "}"}]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"nX", ",", "nY", ",", "nZ"}], "}"}], ".", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"FX", "[", "n1", "]"}], ",", 
           RowBox[{"FY", "[", "n1", "]"}], ",", 
           RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], ")"}]}], "]"}]}], " ", 
    ";"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.496939383309*^9, 3.4969394213417997`*^9}, {
   3.559961640310264*^9, 3.559961656783893*^9}, {3.5599617303692226`*^9, 
   3.5599617392300377`*^9}, {3.5601312763250604`*^9, 
   3.5601312794606657`*^9}, {3.5601313134219255`*^9, 3.560131324388745*^9}, {
   3.560132497854006*^9, 3.5601324981348066`*^9}, {3.63023183959678*^9, 
   3.630231884758859*^9}, {3.630649684386073*^9, 3.630649712146661*^9}, {
   3.630649747889705*^9, 3.6306497780604305`*^9}, {3.630649843969201*^9, 
   3.6306501496326838`*^9}, {3.6306501928641567`*^9, 3.630650252234552*^9}, {
   3.630650308727783*^9, 3.6306503113519335`*^9}, {3.630650349614122*^9, 
   3.630650420974203*^9}, {3.630650474367257*^9, 3.630650601725542*^9}, {
   3.630651184910898*^9, 3.630651194788463*^9}, {3.6306517131931143`*^9, 
   3.6306517167213163`*^9}, {3.6306573863011556`*^9, 
   3.6306574164092083`*^9}, {3.6306574511192694`*^9, 3.630657474862511*^9}, {
   3.6306575678542747`*^9, 3.6306576670080485`*^9}, {3.6306577117645273`*^9, 
   3.6306579038944645`*^9}, {3.630658012221055*^9, 3.630658091874795*^9}, {
   3.6306581291432605`*^9, 3.630658226440631*^9}, {3.63065827139991*^9, 
   3.6306582739115143`*^9}, 3.630658635254949*^9, {3.6306586682178073`*^9, 
   3.6306586813998303`*^9}, {3.6306590619156985`*^9, 3.630659069606512*^9}, {
   3.6321872976489887`*^9, 3.6321873151349883`*^9}, 3.6321874056671667`*^9, {
   3.632187463194457*^9, 3.6321878547998557`*^9}, {3.632187889913864*^9, 
   3.6321878942471123`*^9}, {3.632187976697828*^9, 3.632187979874009*^9}, {
   3.6321886111201143`*^9, 3.63218861505834*^9}, {3.632188654528598*^9, 
   3.6321886640741434`*^9}, {3.632189320010661*^9, 3.632189331931343*^9}, {
   3.6853206095995235`*^9, 3.685320631309554*^9}, {3.6853206843496284`*^9, 
   3.685320754049726*^9}, {3.685320792059779*^9, 3.685320823639823*^9}, {
   3.685321020360099*^9, 3.6853211351402597`*^9}, {3.6853211801403227`*^9, 
   3.685321665981003*^9}, {3.6853216989010487`*^9, 3.6853217094910636`*^9}, {
   3.6853217810511637`*^9, 3.6853220138814898`*^9}, {3.6853225388622246`*^9, 
   3.6853226020023127`*^9}, {3.687743095218909*^9, 3.6877431192189426`*^9}, {
   3.687743169079012*^9, 3.687743170319014*^9}, {3.6877432521091285`*^9, 
   3.68774331760922*^9}, {3.6877433494492645`*^9, 3.6877434507694063`*^9}, {
   3.6877434824794507`*^9, 3.687743525179511*^9}, {3.6877442207004843`*^9, 
   3.68774423869051*^9}, {3.687744273840559*^9, 3.6877443377106485`*^9}, {
   3.687744434080783*^9, 3.6877445463509407`*^9}, {3.687744848891364*^9, 
   3.6877448558313737`*^9}, {3.6877638336712008`*^9, 3.68776389741129*^9}, {
   3.687763938681348*^9, 3.6877639455213575`*^9}, {3.6877641776516824`*^9, 
   3.6877642483817816`*^9}, {3.687764508142145*^9, 3.6877645655122256`*^9}, {
   3.687778690246417*^9, 3.687778699786431*^9}, {3.6892208471842775`*^9, 
   3.6892208613442974`*^9}, {3.6892209340143995`*^9, 3.689220966944445*^9}, {
   3.6892211581147127`*^9, 3.689221214324792*^9}, {3.689221265414863*^9, 
   3.689221335944962*^9}, 3.6892213742150154`*^9, {3.6892214353151007`*^9, 
   3.689221472385153*^9}, {3.689221514295212*^9, 3.689221800835613*^9}, {
   3.6892221753761373`*^9, 3.689222181266145*^9}, 3.689222955217229*^9, {
   3.6892232691076684`*^9, 3.689223331877756*^9}, {3.693460221154632*^9, 
   3.6934602635146914`*^9}, {3.6948453326087465`*^9, 
   3.6948453439687624`*^9}, {3.7348680727026668`*^9, 3.73486817909155*^9}, {
   3.746150241146084*^9, 3.746150271873185*^9}, {3.7530805273958597`*^9, 
   3.7530805538372126`*^9}, {3.7530806121866155`*^9, 3.753080612619146*^9}, {
   3.7530807812083597`*^9, 3.753080855476215*^9}, {3.7530808933957005`*^9, 
   3.753080928261367*^9}, {3.7530812010856276`*^9, 3.753081304984929*^9}, {
   3.753081363847283*^9, 3.753081510980585*^9}, {3.7530830896227846`*^9, 
   3.7530831670560236`*^9}, {3.753083282189464*^9, 3.753083319143241*^9}, {
   3.753083522782399*^9, 3.7530836451470532`*^9}, {3.753083680478052*^9, 
   3.7530837044483657`*^9}, {3.7530839780537753`*^9, 
   3.7530840044915133`*^9}, {3.7530841230935698`*^9, 
   3.7530841439684134`*^9}, {3.753084174787207*^9, 3.753084175438378*^9}, {
   3.7531753489377103`*^9, 3.7531753521812167`*^9}, {3.7531753986744366`*^9, 
   3.753175401639263*^9}, {3.7531757699701395`*^9, 3.7531757819468718`*^9}, {
   3.7531758502951393`*^9, 3.753176036147319*^9}, {3.7650793717088127`*^9, 
   3.765079384414342*^9}, {3.7650794145018706`*^9, 3.7650794160024643`*^9}, {
   3.765080191205142*^9, 3.7650801957605696`*^9}, {3.765080316588634*^9, 
   3.765080334411024*^9}, {3.7650804146979465`*^9, 3.765080452046597*^9}, {
   3.7650805125970893`*^9, 3.765080538042729*^9}, {3.7650806025099554`*^9, 
   3.765080640706174*^9}, {3.765081132572468*^9, 3.765081149288616*^9}, {
   3.7843471628441577`*^9, 3.784347230545391*^9}, 3.788076396075549*^9, {
   3.7880764597653866`*^9, 3.78807658689421*^9}, {3.7880766192477016`*^9, 
   3.78807666464567*^9}, 3.790134342393529*^9, {3.81147586433552*^9, 
   3.8114758660676584`*^9}, {3.8114759011903524`*^9, 3.8114759016633973`*^9}, 
   3.8114759988439693`*^9, 3.8114761633171883`*^9, {3.816603834074288*^9, 
   3.8166039336563835`*^9}, {3.8170006770430465`*^9, 3.817000724749156*^9}, {
   3.8170007595398445`*^9, 3.817000786405624*^9}, 3.8170037199219055`*^9, {
   3.8170045080782423`*^9, 3.8170045294203014`*^9}, {3.81700457884058*^9, 
   3.81700458306651*^9}, {3.8170046136020584`*^9, 3.8170046363287716`*^9}, {
   3.8170054362323685`*^9, 3.817005516642319*^9}, {3.817005553771696*^9, 
   3.8170057022018414`*^9}, {3.817438004752759*^9, 3.817438079208784*^9}, {
   3.8174381095342855`*^9, 3.817438111564824*^9}, {3.817438162423845*^9, 
   3.81743817388716*^9}, 3.8174382117090836`*^9, 3.8174382843486643`*^9, 
   3.817438365153536*^9, {3.8174384271840076`*^9, 3.817438431575055*^9}, {
   3.817438579668557*^9, 3.8174385809774275`*^9}, {3.817438614371037*^9, 
   3.817438652378895*^9}, {3.8456995036286135`*^9, 3.845699532708929*^9}, {
   3.887516945512927*^9, 3.8875170236188602`*^9}, {3.887517058030882*^9, 
   3.8875170700336304`*^9}, {3.8875172105926237`*^9, 3.887517223359357*^9}},
 CellLabel->"In[96]:=",ExpressionUUID->"0b0fb6de-166c-4bfa-bbad-14e9b6d9e646"]
}, Open  ]],

Cell[CellGroupData[{

Cell["CONSTRAINT ELEMENT (evnt) defs ", "Subsection",
 CellChangeTimes->{{3.632187277028809*^9, 3.63218727949695*^9}, 
   3.632188602208605*^9, {3.632189487917265*^9, 3.6321894914104643`*^9}, {
   3.68532054956944*^9, 3.6853205513594418`*^9}, {3.687743079248886*^9, 
   3.6877430854888954`*^9}, {3.76507863996914*^9, 3.7650786436977797`*^9}, {
   3.7880762440580482`*^9, 3.7880762616852336`*^9}, {3.788076337785893*^9, 
   3.7880763394484987`*^9}, {3.817437563190297*^9, 3.817437574730232*^9}, {
   3.8174387848423214`*^9, 3.817438785964677*^9}, 
   3.8431826672012787`*^9},ExpressionUUID->"384db60b-fdeb-4d91-872f-\
12ce927f343c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MEC", "-", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"EVNT", ",", 
         RowBox[{"{", 
          RowBox[{"s0_", ",", "sol0_"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"RIGID", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"RIGID", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"EVNT", ",", 
         RowBox[{"{", 
          RowBox[{"s0_", ",", "sol0_"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"JOINT", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"JOINT", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"EVNT", ",", 
         RowBox[{"{", 
          RowBox[{"s0_", ",", "sol0_"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"SLIDER", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"SLIDER", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"EVNT", ",", 
         RowBox[{"{", 
          RowBox[{"s0_", ",", "sol0_"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"CONTACT", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"nX_", ",", "nY_", ",", "nZ_"}], "}"}], ",", "d_"}], 
          "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"U", ",", "F", ",", "U0", ",", "dU0", ",", "F0", ",", "dF0"}],
         "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"(*", "events", "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"U", "=", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"nX", ",", "nY", ",", "nZ"}], "}"}], ".", 
            RowBox[{"fun", "[", 
             RowBox[{"[", 
              RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], "-", "d"}], ")"}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"F", "=", 
         RowBox[{"FN", "[", "n1", "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"U0", "=", 
         RowBox[{"U", "/.", "sol0"}]}], ";", 
        RowBox[{"dU0", "=", 
         RowBox[{"D", "[", 
          RowBox[{"U0", ",", "s"}], "]"}]}], ";", 
        RowBox[{"U0", "=", 
         RowBox[{"U0", "/.", 
          RowBox[{"s", "\[Rule]", "s0"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"F0", "=", 
         RowBox[{"F", "/.", "sol0"}]}], ";", 
        RowBox[{"dF0", "=", 
         RowBox[{"D", "[", 
          RowBox[{"F0", ",", "s"}], "]"}]}], ";", 
        RowBox[{"F0", "=", 
         RowBox[{"F0", "/.", 
          RowBox[{"s", "\[Rule]", "s0"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"{", 
          RowBox[{"U0", ",", "dU0", ",", "F0", ",", "dF0"}], "}"}], "]"}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"pick", " ", "the", " ", "expression"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"Which", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"U0", "\[Equal]", "0"}], ")"}], "&&", " ", 
           RowBox[{"(", 
            RowBox[{"F0", ">", "0"}], ")"}]}], ",", 
          RowBox[{"\[Delta]\[Delta]", "[", 
           RowBox[{"F", "*", "U"}], "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"U0", "\[Equal]", "0"}], ")"}], "&&", " ", 
           RowBox[{"(", 
            RowBox[{"F0", "<", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"Print", "[", "\"\<fail\>\"", "]"}], ";", 
           RowBox[{"\[Delta]\[Delta]", "[", 
            RowBox[{"F", "*", "F"}], "]"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"F0", "\[Equal]", "0"}], ")"}], "&&", " ", 
           RowBox[{"(", 
            RowBox[{"U0", ">", "0"}], ")"}]}], ",", 
          RowBox[{"\[Delta]\[Delta]", "[", 
           RowBox[{"F", "*", "F"}], "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"F0", "\[Equal]", "0"}], ")"}], "&&", " ", 
           RowBox[{"(", 
            RowBox[{"U0", "<", "0"}], ")"}]}], ",", 
          RowBox[{
           RowBox[{"Print", "[", "\"\<fail\>\"", "]"}], ";", 
           RowBox[{"\[Delta]\[Delta]", "[", 
            RowBox[{"F", "*", "U"}], "]"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"F0", "\[Equal]", "0"}], ")"}], "&&", " ", 
           RowBox[{"(", 
            RowBox[{"U0", "==", "0"}], ")"}], "&&", " ", 
           RowBox[{"(", 
            RowBox[{"dU0", ">", "0"}], ")"}]}], ",", 
          RowBox[{"\[Delta]\[Delta]", "[", 
           RowBox[{"F", "*", "F"}], "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"F0", "\[Equal]", "0"}], ")"}], "&&", " ", 
           RowBox[{"(", 
            RowBox[{"U0", "==", "0"}], ")"}], "&&", " ", 
           RowBox[{"(", 
            RowBox[{"dU0", "<", "0"}], ")"}]}], ",", 
          RowBox[{"\[Delta]\[Delta]", "[", 
           RowBox[{"U", "*", "F"}], "]"}], ",", "True", ",", 
          RowBox[{"\[Delta]\[Delta]", "[", 
           RowBox[{"U", "*", "F"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"EVNTPOST", ",", 
         RowBox[{"{", 
          RowBox[{"s0_", ",", "sol0_"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"CONTACT", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"nX_", ",", "nY_", ",", "nZ_"}], "}"}], ",", "d_"}], 
          "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"UF", ",", "k", ",", "UF0", ",", "\[CapitalDelta]s"}], "}"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"(*", "events", "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"UF", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"nX", ",", "nY", ",", "nZ"}], "}"}], ".", 
                RowBox[{"fun", "[", 
                 RowBox[{"[", 
                  RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], "-", "d"}], ")"}],
              "+", 
             RowBox[{"FN", "[", "n1", "]"}]}], ")"}], " ", "/.", "sol0"}], 
          "  ", "/.", 
          RowBox[{"s", "->", 
           RowBox[{"s0", "+", "\[CapitalDelta]s"}]}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"UF0", "=", 
         RowBox[{"UF", " ", "/.", 
          RowBox[{"\[CapitalDelta]s", "\[Rule]", "0"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"k", "=", 
         RowBox[{"D", "[", 
          RowBox[{"UF", ",", "\[CapitalDelta]s"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"\[CapitalDelta]s", "=", 
         RowBox[{"Max", "[", 
          RowBox[{
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"k", 
              StyleBox["\[NotEqual]", "OperatorCharacter"], 
              StyleBox["0", "OperatorCharacter"]}], ",", 
             RowBox[{
              RowBox[{"-", "UF0"}], "/", "k"}], ",", "0"}], "]"}], ",", "0"}],
           "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"\[CapitalDelta]s", "\[Equal]", "0"}], ",", 
          RowBox[{"1", "-", "s0"}], ",", "\[CapitalDelta]s"}], "]"}]}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.496939383309*^9, 3.4969394213417997`*^9}, {
   3.559961640310264*^9, 3.559961656783893*^9}, {3.5599617303692226`*^9, 
   3.5599617392300377`*^9}, {3.5601312763250604`*^9, 
   3.5601312794606657`*^9}, {3.5601313134219255`*^9, 3.560131324388745*^9}, {
   3.560132497854006*^9, 3.5601324981348066`*^9}, {3.63023183959678*^9, 
   3.630231884758859*^9}, {3.630649684386073*^9, 3.630649712146661*^9}, {
   3.630649747889705*^9, 3.6306497780604305`*^9}, {3.630649843969201*^9, 
   3.6306501496326838`*^9}, {3.6306501928641567`*^9, 3.630650252234552*^9}, {
   3.630650308727783*^9, 3.6306503113519335`*^9}, {3.630650349614122*^9, 
   3.630650420974203*^9}, {3.630650474367257*^9, 3.630650601725542*^9}, {
   3.630651184910898*^9, 3.630651194788463*^9}, {3.6306517131931143`*^9, 
   3.6306517167213163`*^9}, {3.6306573863011556`*^9, 
   3.6306574164092083`*^9}, {3.6306574511192694`*^9, 3.630657474862511*^9}, {
   3.6306575678542747`*^9, 3.6306576670080485`*^9}, {3.6306577117645273`*^9, 
   3.6306579038944645`*^9}, {3.630658012221055*^9, 3.630658091874795*^9}, {
   3.6306581291432605`*^9, 3.630658226440631*^9}, {3.63065827139991*^9, 
   3.6306582739115143`*^9}, 3.630658635254949*^9, {3.6306586682178073`*^9, 
   3.6306586813998303`*^9}, {3.6306590619156985`*^9, 3.630659069606512*^9}, {
   3.6321872976489887`*^9, 3.6321873151349883`*^9}, 3.6321874056671667`*^9, {
   3.632187463194457*^9, 3.6321878547998557`*^9}, {3.632187889913864*^9, 
   3.6321878942471123`*^9}, {3.632187976697828*^9, 3.632187979874009*^9}, {
   3.6321886111201143`*^9, 3.63218861505834*^9}, {3.632188654528598*^9, 
   3.6321886640741434`*^9}, {3.632189320010661*^9, 3.632189331931343*^9}, {
   3.6853206095995235`*^9, 3.685320631309554*^9}, {3.6853206843496284`*^9, 
   3.685320754049726*^9}, {3.685320792059779*^9, 3.685320823639823*^9}, {
   3.685321020360099*^9, 3.6853211351402597`*^9}, {3.6853211801403227`*^9, 
   3.685321665981003*^9}, {3.6853216989010487`*^9, 3.6853217094910636`*^9}, {
   3.6853217810511637`*^9, 3.6853220138814898`*^9}, {3.6853225388622246`*^9, 
   3.6853226020023127`*^9}, {3.687743095218909*^9, 3.6877431192189426`*^9}, {
   3.687743169079012*^9, 3.687743170319014*^9}, {3.6877432521091285`*^9, 
   3.68774331760922*^9}, {3.6877433494492645`*^9, 3.6877434507694063`*^9}, {
   3.6877434824794507`*^9, 3.687743525179511*^9}, {3.6877442207004843`*^9, 
   3.68774423869051*^9}, {3.687744273840559*^9, 3.6877443377106485`*^9}, {
   3.687744434080783*^9, 3.6877445463509407`*^9}, {3.687744848891364*^9, 
   3.6877448558313737`*^9}, {3.6877638336712008`*^9, 3.68776389741129*^9}, {
   3.687763938681348*^9, 3.6877639455213575`*^9}, {3.6877641776516824`*^9, 
   3.6877642483817816`*^9}, {3.687764508142145*^9, 3.6877645655122256`*^9}, {
   3.687778690246417*^9, 3.687778699786431*^9}, {3.6892208471842775`*^9, 
   3.6892208613442974`*^9}, {3.6892209340143995`*^9, 3.689220966944445*^9}, {
   3.6892211581147127`*^9, 3.689221214324792*^9}, {3.689221265414863*^9, 
   3.689221335944962*^9}, 3.6892213742150154`*^9, {3.6892214353151007`*^9, 
   3.689221472385153*^9}, {3.689221514295212*^9, 3.689221800835613*^9}, {
   3.6892221753761373`*^9, 3.689222181266145*^9}, 3.689222955217229*^9, {
   3.6892232691076684`*^9, 3.689223331877756*^9}, {3.693460221154632*^9, 
   3.6934602635146914`*^9}, {3.6948453326087465`*^9, 
   3.6948453439687624`*^9}, {3.7348680727026668`*^9, 3.73486817909155*^9}, {
   3.746150241146084*^9, 3.746150271873185*^9}, {3.7530805273958597`*^9, 
   3.7530805538372126`*^9}, {3.7530806121866155`*^9, 3.753080612619146*^9}, {
   3.7530807812083597`*^9, 3.753080855476215*^9}, {3.7530808933957005`*^9, 
   3.753080928261367*^9}, {3.7530812010856276`*^9, 3.753081304984929*^9}, {
   3.753081363847283*^9, 3.753081510980585*^9}, {3.7530830896227846`*^9, 
   3.7530831670560236`*^9}, {3.753083282189464*^9, 3.753083319143241*^9}, {
   3.753083522782399*^9, 3.7530836451470532`*^9}, {3.753083680478052*^9, 
   3.7530837044483657`*^9}, {3.7530839780537753`*^9, 
   3.7530840044915133`*^9}, {3.7530841230935698`*^9, 
   3.7530841439684134`*^9}, {3.753084174787207*^9, 3.753084175438378*^9}, {
   3.7531753489377103`*^9, 3.7531753521812167`*^9}, {3.7531753986744366`*^9, 
   3.753175401639263*^9}, {3.7531757699701395`*^9, 3.7531757819468718`*^9}, {
   3.7531758502951393`*^9, 3.753176036147319*^9}, {3.7650793717088127`*^9, 
   3.765079384414342*^9}, {3.7650794145018706`*^9, 3.7650794160024643`*^9}, {
   3.765080191205142*^9, 3.7650801957605696`*^9}, {3.765080316588634*^9, 
   3.765080334411024*^9}, {3.7650804146979465`*^9, 3.765080452046597*^9}, {
   3.7650805125970893`*^9, 3.765080538042729*^9}, {3.7650806025099554`*^9, 
   3.765080640706174*^9}, {3.765081132572468*^9, 3.765081149288616*^9}, {
   3.7843471628441577`*^9, 3.784347230545391*^9}, 3.788076396075549*^9, {
   3.7880764597653866`*^9, 3.78807658689421*^9}, {3.7880766192477016`*^9, 
   3.78807666464567*^9}, 3.790134342393529*^9, {3.81147586433552*^9, 
   3.8114758660676584`*^9}, {3.8114759011903524`*^9, 3.8114759016633973`*^9}, 
   3.8114759988439693`*^9, 3.8114761633171883`*^9, {3.816603834074288*^9, 
   3.8166039336563835`*^9}, {3.8170006770430465`*^9, 3.817000724749156*^9}, {
   3.8170007595398445`*^9, 3.817000786405624*^9}, 3.8170037199219055`*^9, {
   3.8170045080782423`*^9, 3.8170045294203014`*^9}, {3.81700457884058*^9, 
   3.81700458306651*^9}, {3.8170046136020584`*^9, 3.8170046363287716`*^9}, {
   3.8170054362323685`*^9, 3.817005516642319*^9}, {3.817005553771696*^9, 
   3.8170057022018414`*^9}, {3.817438004752759*^9, 3.817438079208784*^9}, {
   3.8174381095342855`*^9, 3.817438111564824*^9}, {3.817438162423845*^9, 
   3.81743817388716*^9}, 3.8174382117090836`*^9, 3.8174382843486643`*^9, 
   3.817438365153536*^9, {3.8174384271840076`*^9, 3.817438431575055*^9}, {
   3.817438579668557*^9, 3.8174385809774275`*^9}, {3.817438614371037*^9, 
   3.817438652378895*^9}, {3.817438930825718*^9, 3.8174390943730135`*^9}, {
   3.8174391259139147`*^9, 3.817439141253656*^9}, {3.817521077883604*^9, 
   3.817521080728553*^9}, {3.8175211772242155`*^9, 3.8175212036088133`*^9}, {
   3.8175674512925177`*^9, 3.817567623935768*^9}, {3.8175676609349613`*^9, 
   3.817567723697788*^9}, {3.817568085932104*^9, 3.8175680987457275`*^9}, {
   3.817569108580055*^9, 3.817569117864359*^9}, {3.817569150118846*^9, 
   3.8175691557258625`*^9}, {3.8176216772973127`*^9, 3.817621692611002*^9}, {
   3.8176217285430126`*^9, 3.817621790585905*^9}, {3.817786782380433*^9, 
   3.8177868741990595`*^9}, {3.8177916370767837`*^9, 3.817791664037953*^9}, 
   3.8177919725788736`*^9, {3.817797728334919*^9, 3.8177979470877533`*^9}, {
   3.817798048009226*^9, 3.8177980720019073`*^9}, {3.8177981782154303`*^9, 
   3.8177982245972304`*^9}, {3.817874042594287*^9, 3.8178740483145275`*^9}, 
   3.817874104353353*^9, {3.817874161520626*^9, 3.817874247753765*^9}, {
   3.817875812854987*^9, 3.8178758350526857`*^9}, 3.8178759752202544`*^9, {
   3.843182718463587*^9, 3.84318273860385*^9}},
 CellLabel->
  "In[103]:=",ExpressionUUID->"d1d4ded3-d4aa-4975-9dca-63bbae2f0533"]
}, Open  ]],

Cell[CellGroupData[{

Cell["CONSTRAINT ELEMENT (vibr) defs", "Subsection",
 CellChangeTimes->{{3.632187277028809*^9, 3.63218727949695*^9}, 
   3.632188602208605*^9, {3.632189487917265*^9, 3.6321894914104643`*^9}, {
   3.68532054956944*^9, 3.6853205513594418`*^9}, {3.687743079248886*^9, 
   3.6877430854888954`*^9}, {3.765078647709998*^9, 3.7650786536233745`*^9}, {
   3.787894934272877*^9, 3.787894940030588*^9}, 
   3.8174375910297575`*^9},ExpressionUUID->"2b0200db-117d-492c-ad1f-\
697e10914ed8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MEC", "-", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"RIGID", ",", 
         RowBox[{"{", "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"\[Delta]\[Delta]", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n1", ",", "2"}], "]"}], "]"}], " ", ".", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FX", "[", "n1", "]"}], ",", 
            RowBox[{"FY", "[", "n1", "]"}], ",", 
            RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], ")"}], "/.", 
        RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], "+", "\[IndentingNewLine]", 
      RowBox[{"\[Delta]\[Delta]", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n1", ",", "3"}], "]"}], "]"}], ".", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"MX", "[", "n1", "]"}], ",", 
            RowBox[{"MY", "[", "n1", "]"}], ",", 
            RowBox[{"MZ", "[", "n1", "]"}]}], "}"}]}], ")"}], "/.", 
        RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"RIGID", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"uX1_", ",", "uY1_", ",", "uZ1_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\[Theta]X1_", ",", "\[Theta]Y1_", ",", "\[Theta]Z1_"}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"\[Delta]\[Delta]", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"fun", "[", 
             RowBox[{"[", 
              RowBox[{"n1", ",", "2"}], "]"}], "]"}], "-", 
            RowBox[{"{", 
             RowBox[{"uX1", ",", "uY1", ",", "uZ1"}], "}"}]}], ")"}], ".", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FX", "[", "n1", "]"}], ",", 
            RowBox[{"FY", "[", "n1", "]"}], ",", 
            RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], ")"}], "/.", 
        RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], "+", "\[IndentingNewLine]", 
      RowBox[{"\[Delta]\[Delta]", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"fun", "[", 
             RowBox[{"[", 
              RowBox[{"n1", ",", "3"}], "]"}], "]"}], "-", 
            RowBox[{"{", 
             RowBox[{"\[Theta]X1", ",", "\[Theta]Y1", ",", "\[Theta]Z1"}], 
             "}"}]}], ")"}], ".", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"MX", "[", "n1", "]"}], ",", 
            RowBox[{"MY", "[", "n1", "]"}], ",", 
            RowBox[{"MZ", "[", "n1", "]"}]}], "}"}]}], ")"}], "/.", 
        RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"RIGID", ",", 
         RowBox[{"{", "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Delta]\[Delta]", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"fun", "[", 
             RowBox[{"[", 
              RowBox[{"n2", ",", "2"}], "]"}], "]"}], "-", 
            RowBox[{"fun", "[", 
             RowBox[{"[", 
              RowBox[{"n1", ",", "2"}], "]"}], "]"}], "-", 
            RowBox[{
             RowBox[{"fun", "[", 
              RowBox[{"[", 
               RowBox[{"n1", ",", "3"}], "]"}], "]"}], 
             StyleBox["\[Cross]", "OperatorCharacter"], 
             RowBox[{
              StyleBox["(", "OperatorCharacter"], 
              RowBox[{
               RowBox[{"fun", "[", 
                RowBox[{"[", 
                 RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", 
               RowBox[{"fun", "[", 
                RowBox[{"[", 
                 RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}], ")"}], 
          ".", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FX", "[", 
             RowBox[{"{", 
              RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", 
            RowBox[{"FY", "[", 
             RowBox[{"{", 
              RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", 
            RowBox[{"FZ", "[", 
             RowBox[{"{", 
              RowBox[{"n2", ",", "n1"}], "}"}], "]"}]}], "}"}]}], ")"}], "/.", 
        RowBox[{"DRULE", "[", "0", "]"}]}], "]"}], "+", "\[IndentingNewLine]", 
      RowBox[{"\[Delta]\[Delta]", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"fun", "[", 
             RowBox[{"[", 
              RowBox[{"n2", ",", "3"}], "]"}], "]"}], "-", 
            RowBox[{"fun", "[", 
             RowBox[{"[", 
              RowBox[{"n1", ",", "3"}], "]"}], "]"}]}], ")"}], ".", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"MX", "[", 
               RowBox[{"{", 
                RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", 
              RowBox[{"MY", "[", 
               RowBox[{"{", 
                RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", 
              RowBox[{"MZ", "[", 
               RowBox[{"{", 
                RowBox[{"n2", ",", "n1"}], "}"}], "]"}]}], "}"}], " ", "+", 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"FX", "[", 
                RowBox[{"{", 
                 RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", 
               RowBox[{"FY", "[", 
                RowBox[{"{", 
                 RowBox[{"n2", ",", "n1"}], "}"}], "]"}], ",", 
               RowBox[{"FZ", "[", 
                RowBox[{"{", 
                 RowBox[{"n2", ",", "n1"}], "}"}], "]"}]}], "}"}], 
             StyleBox["\[Cross]", "OperatorCharacter"], 
             RowBox[{
              StyleBox["(", "OperatorCharacter"], 
              RowBox[{
               RowBox[{"fun", "[", 
                RowBox[{"[", 
                 RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", 
               RowBox[{"fun", "[", 
                RowBox[{"[", 
                 RowBox[{"n1", ",", "1"}], "]"}], "]"}]}], ")"}]}]}], ")"}]}],
          ")"}], "/.", 
        RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"JOINT", ",", 
         RowBox[{"{", "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{"\[Delta]\[Delta]", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"fun", "[", 
          RowBox[{"[", 
           RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"FX", "[", "n1", "]"}], ",", 
           RowBox[{"FY", "[", "n1", "]"}], ",", 
           RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], ")"}], "/.", 
       RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"JOINT", ",", 
         RowBox[{"{", 
          RowBox[{"uX1_", ",", "uY1_", ",", "uZ1_"}], "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{"\[Delta]\[Delta]", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"fun", "[", 
            RowBox[{"[", 
             RowBox[{"n1", ",", "2"}], "]"}], "]"}], "-", 
           RowBox[{"{", 
            RowBox[{"uX1", ",", "uY1", ",", "uZ1"}], "}"}]}], ")"}], ".", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"FX", "[", "n1", "]"}], ",", 
           RowBox[{"FY", "[", "n1", "]"}], ",", 
           RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], ")"}], "/.", 
       RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"JOINT", ",", 
         RowBox[{"{", "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", 
     RowBox[{"\[Delta]\[Delta]", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"fun", "[", 
            RowBox[{"[", 
             RowBox[{"n1", ",", "2"}], "]"}], "]"}], "-", 
           RowBox[{"fun", "[", 
            RowBox[{"[", 
             RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], ")"}], ".", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"FX", "[", "n1", "]"}], ",", 
           RowBox[{"FY", "[", "n1", "]"}], ",", 
           RowBox[{"FZ", "[", "n1", "]"}]}], "}"}]}], ")"}], "/.", 
       RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}], " ", ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"SLIDER", ",", 
         RowBox[{"{", 
          RowBox[{"nX_", ",", "nY_", ",", "nZ_"}], "}"}], ",", 
         RowBox[{"Point", "[", 
          RowBox[{"{", "n1_", "}"}], "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{"\[Delta]\[Delta]", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"fun", "[", 
            RowBox[{"[", 
             RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", 
           RowBox[{"{", 
            RowBox[{"nX", ",", "nY", ",", "nZ"}], "}"}]}], ")"}], "*", 
         RowBox[{"FN", "[", "n1", "]"}]}], ")"}], "/.", 
       RowBox[{"DRULE", "[", "0", "]"}]}], "]"}]}], " ", ";"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.496939383309*^9, 3.4969394213417997`*^9}, {
   3.559961640310264*^9, 3.559961656783893*^9}, {3.5599617303692226`*^9, 
   3.5599617392300377`*^9}, {3.5601312763250604`*^9, 
   3.5601312794606657`*^9}, {3.5601313134219255`*^9, 3.560131324388745*^9}, {
   3.560132497854006*^9, 3.5601324981348066`*^9}, {3.63023183959678*^9, 
   3.630231884758859*^9}, {3.630649684386073*^9, 3.630649712146661*^9}, {
   3.630649747889705*^9, 3.6306497780604305`*^9}, {3.630649843969201*^9, 
   3.6306501496326838`*^9}, {3.6306501928641567`*^9, 3.630650252234552*^9}, {
   3.630650308727783*^9, 3.6306503113519335`*^9}, {3.630650349614122*^9, 
   3.630650420974203*^9}, {3.630650474367257*^9, 3.630650601725542*^9}, {
   3.630651184910898*^9, 3.630651194788463*^9}, {3.6306517131931143`*^9, 
   3.6306517167213163`*^9}, {3.6306573863011556`*^9, 
   3.6306574164092083`*^9}, {3.6306574511192694`*^9, 3.630657474862511*^9}, {
   3.6306575678542747`*^9, 3.6306576670080485`*^9}, {3.6306577117645273`*^9, 
   3.6306579038944645`*^9}, {3.630658012221055*^9, 3.630658091874795*^9}, {
   3.6306581291432605`*^9, 3.630658226440631*^9}, {3.63065827139991*^9, 
   3.6306582739115143`*^9}, 3.630658635254949*^9, {3.6306586682178073`*^9, 
   3.6306586813998303`*^9}, {3.6306590619156985`*^9, 3.630659069606512*^9}, {
   3.6321872976489887`*^9, 3.6321873151349883`*^9}, 3.6321874056671667`*^9, {
   3.632187463194457*^9, 3.6321878547998557`*^9}, {3.632187889913864*^9, 
   3.6321878942471123`*^9}, {3.632187976697828*^9, 3.632187979874009*^9}, {
   3.6321886111201143`*^9, 3.63218861505834*^9}, {3.632188654528598*^9, 
   3.6321886640741434`*^9}, {3.632189320010661*^9, 3.632189331931343*^9}, {
   3.6853206095995235`*^9, 3.685320631309554*^9}, {3.6853206843496284`*^9, 
   3.685320754049726*^9}, {3.685320792059779*^9, 3.685320823639823*^9}, {
   3.685321020360099*^9, 3.6853211351402597`*^9}, {3.6853211801403227`*^9, 
   3.685321665981003*^9}, {3.6853216989010487`*^9, 3.6853217094910636`*^9}, {
   3.6853217810511637`*^9, 3.6853220138814898`*^9}, {3.6853225388622246`*^9, 
   3.6853226020023127`*^9}, {3.687743095218909*^9, 3.6877431192189426`*^9}, {
   3.687743169079012*^9, 3.687743170319014*^9}, {3.6877432521091285`*^9, 
   3.68774331760922*^9}, {3.6877433494492645`*^9, 3.6877434507694063`*^9}, {
   3.6877434824794507`*^9, 3.687743525179511*^9}, {3.6877442207004843`*^9, 
   3.68774423869051*^9}, {3.687744273840559*^9, 3.6877443377106485`*^9}, {
   3.687744434080783*^9, 3.6877445463509407`*^9}, {3.687744848891364*^9, 
   3.6877448558313737`*^9}, {3.6877638336712008`*^9, 3.68776389741129*^9}, {
   3.687763938681348*^9, 3.6877639455213575`*^9}, {3.6877641776516824`*^9, 
   3.6877642483817816`*^9}, {3.687764508142145*^9, 3.6877645655122256`*^9}, {
   3.687778690246417*^9, 3.687778699786431*^9}, {3.6892208471842775`*^9, 
   3.6892208613442974`*^9}, {3.6892209340143995`*^9, 3.689220966944445*^9}, {
   3.6892211581147127`*^9, 3.689221214324792*^9}, {3.689221265414863*^9, 
   3.689221335944962*^9}, 3.6892213742150154`*^9, {3.6892214353151007`*^9, 
   3.689221472385153*^9}, {3.689221514295212*^9, 3.689221800835613*^9}, {
   3.6892221753761373`*^9, 3.689222181266145*^9}, 3.689222955217229*^9, {
   3.6892232691076684`*^9, 3.689223331877756*^9}, {3.693460221154632*^9, 
   3.6934602635146914`*^9}, {3.6948453326087465`*^9, 
   3.6948453439687624`*^9}, {3.7348680727026668`*^9, 3.73486817909155*^9}, {
   3.746150241146084*^9, 3.746150271873185*^9}, {3.7530805273958597`*^9, 
   3.7530805538372126`*^9}, {3.7530806121866155`*^9, 3.753080612619146*^9}, {
   3.7530807812083597`*^9, 3.753080855476215*^9}, {3.7530808933957005`*^9, 
   3.753080928261367*^9}, {3.7530812010856276`*^9, 3.753081304984929*^9}, {
   3.753081363847283*^9, 3.753081510980585*^9}, {3.7530830896227846`*^9, 
   3.7530831670560236`*^9}, {3.753083282189464*^9, 3.753083319143241*^9}, {
   3.753083522782399*^9, 3.7530836451470532`*^9}, {3.753083680478052*^9, 
   3.7530837044483657`*^9}, {3.7530839780537753`*^9, 
   3.7530840044915133`*^9}, {3.7530841230935698`*^9, 
   3.7530841439684134`*^9}, {3.753084174787207*^9, 3.753084175438378*^9}, {
   3.7531753489377103`*^9, 3.7531753521812167`*^9}, {3.7531753986744366`*^9, 
   3.753175401639263*^9}, {3.7531757699701395`*^9, 3.7531757819468718`*^9}, {
   3.7531758502951393`*^9, 3.753176036147319*^9}, {3.7650786786571007`*^9, 
   3.765078730242957*^9}, {3.765079011319233*^9, 3.7650790213991427`*^9}, {
   3.765079090426065*^9, 3.7650790915198584`*^9}, {3.7880750541013985`*^9, 
   3.7880751871791787`*^9}, 3.7880763476153545`*^9, {3.7880764088125978`*^9, 
   3.788076439490058*^9}, {3.788076727654149*^9, 3.788076736195205*^9}, {
   3.7880769509878035`*^9, 3.788076996669318*^9}, {3.788157806923176*^9, 
   3.7881578103397293`*^9}, {3.788157887685897*^9, 3.7881579246081514`*^9}, 
   3.788166841222316*^9, {3.788245673127977*^9, 3.7882457332638197`*^9}, {
   3.7884249270350504`*^9, 3.788424928787249*^9}, {3.796348073487073*^9, 
   3.796348235983635*^9}, 3.8204695675454354`*^9, 3.8210644461664095`*^9, {
   3.8211518525046625`*^9, 3.8211518941528387`*^9}, {3.821151937357603*^9, 
   3.821152092267825*^9}, {3.8211521441264668`*^9, 3.821152293547024*^9}},
 CellLabel->
  "In[108]:=",ExpressionUUID->"3e339245-4261-4d85-a21b-7a45c9fdf179"]
}, Closed]],

Cell[CellGroupData[{

Cell["CONSTRAINT ELEMENT (stab) defs ", "Subsection",
 CellChangeTimes->{{3.632187277028809*^9, 3.63218727949695*^9}, 
   3.632188602208605*^9, {3.632189487917265*^9, 3.6321894914104643`*^9}, {
   3.68532054956944*^9, 3.6853205513594418`*^9}, {3.687743079248886*^9, 
   3.6877430854888954`*^9}, {3.76507863996914*^9, 3.7650786436977797`*^9}, {
   3.7880762440580482`*^9, 3.7880762616852336`*^9}, {3.788076337785893*^9, 
   3.7880763394484987`*^9}, {3.7890210020583797`*^9, 3.7890210028862896`*^9}, 
   3.8174375960916395`*^9},ExpressionUUID->"a84f3a2f-e0c2-4a63-a71a-\
4ee7ae880488"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MEC", "-", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"STAB", ",", 
       RowBox[{"{", 
        RowBox[{"RIGID", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"RIGID", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"STAB", ",", 
       RowBox[{"{", 
        RowBox[{"JOINT", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"JOINT", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"STAB", ",", 
       RowBox[{"{", 
        RowBox[{"SLIDER", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"SLIDER", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.496939383309*^9, 3.4969394213417997`*^9}, {
   3.559961640310264*^9, 3.559961656783893*^9}, {3.5599617303692226`*^9, 
   3.5599617392300377`*^9}, {3.5601312763250604`*^9, 
   3.5601312794606657`*^9}, {3.5601313134219255`*^9, 3.560131324388745*^9}, {
   3.560132497854006*^9, 3.5601324981348066`*^9}, {3.63023183959678*^9, 
   3.630231884758859*^9}, {3.630649684386073*^9, 3.630649712146661*^9}, {
   3.630649747889705*^9, 3.6306497780604305`*^9}, {3.630649843969201*^9, 
   3.6306501496326838`*^9}, {3.6306501928641567`*^9, 3.630650252234552*^9}, {
   3.630650308727783*^9, 3.6306503113519335`*^9}, {3.630650349614122*^9, 
   3.630650420974203*^9}, {3.630650474367257*^9, 3.630650601725542*^9}, {
   3.630651184910898*^9, 3.630651194788463*^9}, {3.6306517131931143`*^9, 
   3.6306517167213163`*^9}, {3.6306573863011556`*^9, 
   3.6306574164092083`*^9}, {3.6306574511192694`*^9, 3.630657474862511*^9}, {
   3.6306575678542747`*^9, 3.6306576670080485`*^9}, {3.6306577117645273`*^9, 
   3.6306579038944645`*^9}, {3.630658012221055*^9, 3.630658091874795*^9}, {
   3.6306581291432605`*^9, 3.630658226440631*^9}, {3.63065827139991*^9, 
   3.6306582739115143`*^9}, 3.630658635254949*^9, {3.6306586682178073`*^9, 
   3.6306586813998303`*^9}, {3.6306590619156985`*^9, 3.630659069606512*^9}, {
   3.6321872976489887`*^9, 3.6321873151349883`*^9}, 3.6321874056671667`*^9, {
   3.632187463194457*^9, 3.6321878547998557`*^9}, {3.632187889913864*^9, 
   3.6321878942471123`*^9}, {3.632187976697828*^9, 3.632187979874009*^9}, {
   3.6321886111201143`*^9, 3.63218861505834*^9}, {3.632188654528598*^9, 
   3.6321886640741434`*^9}, {3.632189320010661*^9, 3.632189331931343*^9}, {
   3.6853206095995235`*^9, 3.685320631309554*^9}, {3.6853206843496284`*^9, 
   3.685320754049726*^9}, {3.685320792059779*^9, 3.685320823639823*^9}, {
   3.685321020360099*^9, 3.6853211351402597`*^9}, {3.6853211801403227`*^9, 
   3.685321665981003*^9}, {3.6853216989010487`*^9, 3.6853217094910636`*^9}, {
   3.6853217810511637`*^9, 3.6853220138814898`*^9}, {3.6853225388622246`*^9, 
   3.6853226020023127`*^9}, {3.687743095218909*^9, 3.6877431192189426`*^9}, {
   3.687743169079012*^9, 3.687743170319014*^9}, {3.6877432521091285`*^9, 
   3.68774331760922*^9}, {3.6877433494492645`*^9, 3.6877434507694063`*^9}, {
   3.6877434824794507`*^9, 3.687743525179511*^9}, {3.6877442207004843`*^9, 
   3.68774423869051*^9}, {3.687744273840559*^9, 3.6877443377106485`*^9}, {
   3.687744434080783*^9, 3.6877445463509407`*^9}, {3.687744848891364*^9, 
   3.6877448558313737`*^9}, {3.6877638336712008`*^9, 3.68776389741129*^9}, {
   3.687763938681348*^9, 3.6877639455213575`*^9}, {3.6877641776516824`*^9, 
   3.6877642483817816`*^9}, {3.687764508142145*^9, 3.6877645655122256`*^9}, {
   3.687778690246417*^9, 3.687778699786431*^9}, {3.6892208471842775`*^9, 
   3.6892208613442974`*^9}, {3.6892209340143995`*^9, 3.689220966944445*^9}, {
   3.6892211581147127`*^9, 3.689221214324792*^9}, {3.689221265414863*^9, 
   3.689221335944962*^9}, 3.6892213742150154`*^9, {3.6892214353151007`*^9, 
   3.689221472385153*^9}, {3.689221514295212*^9, 3.689221800835613*^9}, {
   3.6892221753761373`*^9, 3.689222181266145*^9}, 3.689222955217229*^9, {
   3.6892232691076684`*^9, 3.689223331877756*^9}, {3.693460221154632*^9, 
   3.6934602635146914`*^9}, {3.6948453326087465`*^9, 
   3.6948453439687624`*^9}, {3.7348680727026668`*^9, 3.73486817909155*^9}, {
   3.746150241146084*^9, 3.746150271873185*^9}, {3.7530805273958597`*^9, 
   3.7530805538372126`*^9}, {3.7530806121866155`*^9, 3.753080612619146*^9}, {
   3.7530807812083597`*^9, 3.753080855476215*^9}, {3.7530808933957005`*^9, 
   3.753080928261367*^9}, {3.7530812010856276`*^9, 3.753081304984929*^9}, {
   3.753081363847283*^9, 3.753081510980585*^9}, {3.7530830896227846`*^9, 
   3.7530831670560236`*^9}, {3.753083282189464*^9, 3.753083319143241*^9}, {
   3.753083522782399*^9, 3.7530836451470532`*^9}, {3.753083680478052*^9, 
   3.7530837044483657`*^9}, {3.7530839780537753`*^9, 
   3.7530840044915133`*^9}, {3.7530841230935698`*^9, 
   3.7530841439684134`*^9}, {3.753084174787207*^9, 3.753084175438378*^9}, {
   3.7531753489377103`*^9, 3.7531753521812167`*^9}, {3.7531753986744366`*^9, 
   3.753175401639263*^9}, {3.7531757699701395`*^9, 3.7531757819468718`*^9}, {
   3.7531758502951393`*^9, 3.753176036147319*^9}, {3.7650793717088127`*^9, 
   3.765079384414342*^9}, {3.7650794145018706`*^9, 3.7650794160024643`*^9}, {
   3.765080191205142*^9, 3.7650801957605696`*^9}, {3.765080316588634*^9, 
   3.765080334411024*^9}, {3.7650804146979465`*^9, 3.765080452046597*^9}, {
   3.7650805125970893`*^9, 3.765080538042729*^9}, {3.7650806025099554`*^9, 
   3.765080640706174*^9}, {3.765081132572468*^9, 3.765081149288616*^9}, {
   3.7843471628441577`*^9, 3.784347230545391*^9}, 3.788076396075549*^9, {
   3.7880764597653866`*^9, 3.78807658689421*^9}, {3.7880766192477016`*^9, 
   3.78807666464567*^9}, {3.7890210098488555`*^9, 3.7890210223821774`*^9}, {
   3.7890210765394955`*^9, 3.789021101390154*^9}, {3.821064422910862*^9, 
   3.821064437263141*^9}, {3.821064504769821*^9, 3.82106453846552*^9}, {
   3.82106460185704*^9, 3.821064667240161*^9}, {3.821064704521668*^9, 
   3.821064854939661*^9}, {3.821064886734498*^9, 3.8210649097711177`*^9}},
 CellLabel->
  "In[115]:=",ExpressionUUID->"740a7e8f-eb33-4f95-a38b-5ec610d5e36e"]
}, Closed]],

Cell[CellGroupData[{

Cell["CONSTRAINT ELEMENT (nonl) defs ", "Subsection",
 CellChangeTimes->{{3.632187277028809*^9, 3.63218727949695*^9}, 
   3.632188602208605*^9, {3.632189487917265*^9, 3.6321894914104643`*^9}, {
   3.68532054956944*^9, 3.6853205513594418`*^9}, {3.687743079248886*^9, 
   3.6877430854888954`*^9}, {3.76507863996914*^9, 3.7650786436977797`*^9}, {
   3.7880762440580482`*^9, 3.7880762616852336`*^9}, {3.788076337785893*^9, 
   3.7880763394484987`*^9}, {3.7890210020583797`*^9, 3.7890210028862896`*^9}, 
   3.8174375960916395`*^9, {3.8216140745704536`*^9, 
   3.8216140795088263`*^9}},ExpressionUUID->"5960f707-af67-46ca-921a-\
e3d384f15688"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MEC", "-", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"NONL", ",", 
       RowBox[{"{", 
        RowBox[{"RIGID", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"RIGID", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"NONL", ",", 
       RowBox[{"{", 
        RowBox[{"JOINT", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"JOINT", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"NONL", ",", 
       RowBox[{"{", 
        RowBox[{"SLIDER", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"SLIDER", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.496939383309*^9, 3.4969394213417997`*^9}, {
   3.559961640310264*^9, 3.559961656783893*^9}, {3.5599617303692226`*^9, 
   3.5599617392300377`*^9}, {3.5601312763250604`*^9, 
   3.5601312794606657`*^9}, {3.5601313134219255`*^9, 3.560131324388745*^9}, {
   3.560132497854006*^9, 3.5601324981348066`*^9}, {3.63023183959678*^9, 
   3.630231884758859*^9}, {3.630649684386073*^9, 3.630649712146661*^9}, {
   3.630649747889705*^9, 3.6306497780604305`*^9}, {3.630649843969201*^9, 
   3.6306501496326838`*^9}, {3.6306501928641567`*^9, 3.630650252234552*^9}, {
   3.630650308727783*^9, 3.6306503113519335`*^9}, {3.630650349614122*^9, 
   3.630650420974203*^9}, {3.630650474367257*^9, 3.630650601725542*^9}, {
   3.630651184910898*^9, 3.630651194788463*^9}, {3.6306517131931143`*^9, 
   3.6306517167213163`*^9}, {3.6306573863011556`*^9, 
   3.6306574164092083`*^9}, {3.6306574511192694`*^9, 3.630657474862511*^9}, {
   3.6306575678542747`*^9, 3.6306576670080485`*^9}, {3.6306577117645273`*^9, 
   3.6306579038944645`*^9}, {3.630658012221055*^9, 3.630658091874795*^9}, {
   3.6306581291432605`*^9, 3.630658226440631*^9}, {3.63065827139991*^9, 
   3.6306582739115143`*^9}, 3.630658635254949*^9, {3.6306586682178073`*^9, 
   3.6306586813998303`*^9}, {3.6306590619156985`*^9, 3.630659069606512*^9}, {
   3.6321872976489887`*^9, 3.6321873151349883`*^9}, 3.6321874056671667`*^9, {
   3.632187463194457*^9, 3.6321878547998557`*^9}, {3.632187889913864*^9, 
   3.6321878942471123`*^9}, {3.632187976697828*^9, 3.632187979874009*^9}, {
   3.6321886111201143`*^9, 3.63218861505834*^9}, {3.632188654528598*^9, 
   3.6321886640741434`*^9}, {3.632189320010661*^9, 3.632189331931343*^9}, {
   3.6853206095995235`*^9, 3.685320631309554*^9}, {3.6853206843496284`*^9, 
   3.685320754049726*^9}, {3.685320792059779*^9, 3.685320823639823*^9}, {
   3.685321020360099*^9, 3.6853211351402597`*^9}, {3.6853211801403227`*^9, 
   3.685321665981003*^9}, {3.6853216989010487`*^9, 3.6853217094910636`*^9}, {
   3.6853217810511637`*^9, 3.6853220138814898`*^9}, {3.6853225388622246`*^9, 
   3.6853226020023127`*^9}, {3.687743095218909*^9, 3.6877431192189426`*^9}, {
   3.687743169079012*^9, 3.687743170319014*^9}, {3.6877432521091285`*^9, 
   3.68774331760922*^9}, {3.6877433494492645`*^9, 3.6877434507694063`*^9}, {
   3.6877434824794507`*^9, 3.687743525179511*^9}, {3.6877442207004843`*^9, 
   3.68774423869051*^9}, {3.687744273840559*^9, 3.6877443377106485`*^9}, {
   3.687744434080783*^9, 3.6877445463509407`*^9}, {3.687744848891364*^9, 
   3.6877448558313737`*^9}, {3.6877638336712008`*^9, 3.68776389741129*^9}, {
   3.687763938681348*^9, 3.6877639455213575`*^9}, {3.6877641776516824`*^9, 
   3.6877642483817816`*^9}, {3.687764508142145*^9, 3.6877645655122256`*^9}, {
   3.687778690246417*^9, 3.687778699786431*^9}, {3.6892208471842775`*^9, 
   3.6892208613442974`*^9}, {3.6892209340143995`*^9, 3.689220966944445*^9}, {
   3.6892211581147127`*^9, 3.689221214324792*^9}, {3.689221265414863*^9, 
   3.689221335944962*^9}, 3.6892213742150154`*^9, {3.6892214353151007`*^9, 
   3.689221472385153*^9}, {3.689221514295212*^9, 3.689221800835613*^9}, {
   3.6892221753761373`*^9, 3.689222181266145*^9}, 3.689222955217229*^9, {
   3.6892232691076684`*^9, 3.689223331877756*^9}, {3.693460221154632*^9, 
   3.6934602635146914`*^9}, {3.6948453326087465`*^9, 
   3.6948453439687624`*^9}, {3.7348680727026668`*^9, 3.73486817909155*^9}, {
   3.746150241146084*^9, 3.746150271873185*^9}, {3.7530805273958597`*^9, 
   3.7530805538372126`*^9}, {3.7530806121866155`*^9, 3.753080612619146*^9}, {
   3.7530807812083597`*^9, 3.753080855476215*^9}, {3.7530808933957005`*^9, 
   3.753080928261367*^9}, {3.7530812010856276`*^9, 3.753081304984929*^9}, {
   3.753081363847283*^9, 3.753081510980585*^9}, {3.7530830896227846`*^9, 
   3.7530831670560236`*^9}, {3.753083282189464*^9, 3.753083319143241*^9}, {
   3.753083522782399*^9, 3.7530836451470532`*^9}, {3.753083680478052*^9, 
   3.7530837044483657`*^9}, {3.7530839780537753`*^9, 
   3.7530840044915133`*^9}, {3.7530841230935698`*^9, 
   3.7530841439684134`*^9}, {3.753084174787207*^9, 3.753084175438378*^9}, {
   3.7531753489377103`*^9, 3.7531753521812167`*^9}, {3.7531753986744366`*^9, 
   3.753175401639263*^9}, {3.7531757699701395`*^9, 3.7531757819468718`*^9}, {
   3.7531758502951393`*^9, 3.753176036147319*^9}, {3.7650793717088127`*^9, 
   3.765079384414342*^9}, {3.7650794145018706`*^9, 3.7650794160024643`*^9}, {
   3.765080191205142*^9, 3.7650801957605696`*^9}, {3.765080316588634*^9, 
   3.765080334411024*^9}, {3.7650804146979465`*^9, 3.765080452046597*^9}, {
   3.7650805125970893`*^9, 3.765080538042729*^9}, {3.7650806025099554`*^9, 
   3.765080640706174*^9}, {3.765081132572468*^9, 3.765081149288616*^9}, {
   3.7843471628441577`*^9, 3.784347230545391*^9}, 3.788076396075549*^9, {
   3.7880764597653866`*^9, 3.78807658689421*^9}, {3.7880766192477016`*^9, 
   3.78807666464567*^9}, {3.7890210098488555`*^9, 3.7890210223821774`*^9}, {
   3.7890210765394955`*^9, 3.789021101390154*^9}, {3.821064422910862*^9, 
   3.821064437263141*^9}, {3.821064504769821*^9, 3.82106453846552*^9}, {
   3.82106460185704*^9, 3.821064667240161*^9}, {3.821064704521668*^9, 
   3.821064854939661*^9}, {3.821064886734498*^9, 3.8210649097711177`*^9}, {
   3.8216140898940353`*^9, 3.821614102548308*^9}},
 CellLabel->
  "In[118]:=",ExpressionUUID->"0f1873b9-18e4-4615-b604-cee8b91dfc06"]
}, Closed]],

Cell[CellGroupData[{

Cell["CONSTRAINT ELEMENT (tmec) defs ", "Subsection",
 CellChangeTimes->{{3.632187277028809*^9, 3.63218727949695*^9}, 
   3.632188602208605*^9, {3.632189487917265*^9, 3.6321894914104643`*^9}, {
   3.68532054956944*^9, 3.6853205513594418`*^9}, {3.687743079248886*^9, 
   3.6877430854888954`*^9}, {3.76507863996914*^9, 3.7650786436977797`*^9}, {
   3.7880762440580482`*^9, 3.7880762616852336`*^9}, {3.788076337785893*^9, 
   3.7880763394484987`*^9}, {3.7890210020583797`*^9, 3.7890210028862896`*^9}, 
   3.8174375960916395`*^9, {3.8216140745704536`*^9, 3.8216140795088263`*^9}, {
   3.8223694156960897`*^9, 
   3.8223694175391617`*^9}},ExpressionUUID->"88fb82c3-ee77-417d-8c85-\
e52ab5f124cc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MEC", "-", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"TMEC", ",", 
       RowBox[{"{", 
        RowBox[{"RIGID", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"RIGID", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"TMEC", ",", 
       RowBox[{"{", 
        RowBox[{"JOINT", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"JOINT", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"TMEC", ",", 
       RowBox[{"{", 
        RowBox[{"SLIDER", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"SLIDER", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.496939383309*^9, 3.4969394213417997`*^9}, {
   3.559961640310264*^9, 3.559961656783893*^9}, {3.5599617303692226`*^9, 
   3.5599617392300377`*^9}, {3.5601312763250604`*^9, 
   3.5601312794606657`*^9}, {3.5601313134219255`*^9, 3.560131324388745*^9}, {
   3.560132497854006*^9, 3.5601324981348066`*^9}, {3.63023183959678*^9, 
   3.630231884758859*^9}, {3.630649684386073*^9, 3.630649712146661*^9}, {
   3.630649747889705*^9, 3.6306497780604305`*^9}, {3.630649843969201*^9, 
   3.6306501496326838`*^9}, {3.6306501928641567`*^9, 3.630650252234552*^9}, {
   3.630650308727783*^9, 3.6306503113519335`*^9}, {3.630650349614122*^9, 
   3.630650420974203*^9}, {3.630650474367257*^9, 3.630650601725542*^9}, {
   3.630651184910898*^9, 3.630651194788463*^9}, {3.6306517131931143`*^9, 
   3.6306517167213163`*^9}, {3.6306573863011556`*^9, 
   3.6306574164092083`*^9}, {3.6306574511192694`*^9, 3.630657474862511*^9}, {
   3.6306575678542747`*^9, 3.6306576670080485`*^9}, {3.6306577117645273`*^9, 
   3.6306579038944645`*^9}, {3.630658012221055*^9, 3.630658091874795*^9}, {
   3.6306581291432605`*^9, 3.630658226440631*^9}, {3.63065827139991*^9, 
   3.6306582739115143`*^9}, 3.630658635254949*^9, {3.6306586682178073`*^9, 
   3.6306586813998303`*^9}, {3.6306590619156985`*^9, 3.630659069606512*^9}, {
   3.6321872976489887`*^9, 3.6321873151349883`*^9}, 3.6321874056671667`*^9, {
   3.632187463194457*^9, 3.6321878547998557`*^9}, {3.632187889913864*^9, 
   3.6321878942471123`*^9}, {3.632187976697828*^9, 3.632187979874009*^9}, {
   3.6321886111201143`*^9, 3.63218861505834*^9}, {3.632188654528598*^9, 
   3.6321886640741434`*^9}, {3.632189320010661*^9, 3.632189331931343*^9}, {
   3.6853206095995235`*^9, 3.685320631309554*^9}, {3.6853206843496284`*^9, 
   3.685320754049726*^9}, {3.685320792059779*^9, 3.685320823639823*^9}, {
   3.685321020360099*^9, 3.6853211351402597`*^9}, {3.6853211801403227`*^9, 
   3.685321665981003*^9}, {3.6853216989010487`*^9, 3.6853217094910636`*^9}, {
   3.6853217810511637`*^9, 3.6853220138814898`*^9}, {3.6853225388622246`*^9, 
   3.6853226020023127`*^9}, {3.687743095218909*^9, 3.6877431192189426`*^9}, {
   3.687743169079012*^9, 3.687743170319014*^9}, {3.6877432521091285`*^9, 
   3.68774331760922*^9}, {3.6877433494492645`*^9, 3.6877434507694063`*^9}, {
   3.6877434824794507`*^9, 3.687743525179511*^9}, {3.6877442207004843`*^9, 
   3.68774423869051*^9}, {3.687744273840559*^9, 3.6877443377106485`*^9}, {
   3.687744434080783*^9, 3.6877445463509407`*^9}, {3.687744848891364*^9, 
   3.6877448558313737`*^9}, {3.6877638336712008`*^9, 3.68776389741129*^9}, {
   3.687763938681348*^9, 3.6877639455213575`*^9}, {3.6877641776516824`*^9, 
   3.6877642483817816`*^9}, {3.687764508142145*^9, 3.6877645655122256`*^9}, {
   3.687778690246417*^9, 3.687778699786431*^9}, {3.6892208471842775`*^9, 
   3.6892208613442974`*^9}, {3.6892209340143995`*^9, 3.689220966944445*^9}, {
   3.6892211581147127`*^9, 3.689221214324792*^9}, {3.689221265414863*^9, 
   3.689221335944962*^9}, 3.6892213742150154`*^9, {3.6892214353151007`*^9, 
   3.689221472385153*^9}, {3.689221514295212*^9, 3.689221800835613*^9}, {
   3.6892221753761373`*^9, 3.689222181266145*^9}, 3.689222955217229*^9, {
   3.6892232691076684`*^9, 3.689223331877756*^9}, {3.693460221154632*^9, 
   3.6934602635146914`*^9}, {3.6948453326087465`*^9, 
   3.6948453439687624`*^9}, {3.7348680727026668`*^9, 3.73486817909155*^9}, {
   3.746150241146084*^9, 3.746150271873185*^9}, {3.7530805273958597`*^9, 
   3.7530805538372126`*^9}, {3.7530806121866155`*^9, 3.753080612619146*^9}, {
   3.7530807812083597`*^9, 3.753080855476215*^9}, {3.7530808933957005`*^9, 
   3.753080928261367*^9}, {3.7530812010856276`*^9, 3.753081304984929*^9}, {
   3.753081363847283*^9, 3.753081510980585*^9}, {3.7530830896227846`*^9, 
   3.7530831670560236`*^9}, {3.753083282189464*^9, 3.753083319143241*^9}, {
   3.753083522782399*^9, 3.7530836451470532`*^9}, {3.753083680478052*^9, 
   3.7530837044483657`*^9}, {3.7530839780537753`*^9, 
   3.7530840044915133`*^9}, {3.7530841230935698`*^9, 
   3.7530841439684134`*^9}, {3.753084174787207*^9, 3.753084175438378*^9}, {
   3.7531753489377103`*^9, 3.7531753521812167`*^9}, {3.7531753986744366`*^9, 
   3.753175401639263*^9}, {3.7531757699701395`*^9, 3.7531757819468718`*^9}, {
   3.7531758502951393`*^9, 3.753176036147319*^9}, {3.7650793717088127`*^9, 
   3.765079384414342*^9}, {3.7650794145018706`*^9, 3.7650794160024643`*^9}, {
   3.765080191205142*^9, 3.7650801957605696`*^9}, {3.765080316588634*^9, 
   3.765080334411024*^9}, {3.7650804146979465`*^9, 3.765080452046597*^9}, {
   3.7650805125970893`*^9, 3.765080538042729*^9}, {3.7650806025099554`*^9, 
   3.765080640706174*^9}, {3.765081132572468*^9, 3.765081149288616*^9}, {
   3.7843471628441577`*^9, 3.784347230545391*^9}, 3.788076396075549*^9, {
   3.7880764597653866`*^9, 3.78807658689421*^9}, {3.7880766192477016`*^9, 
   3.78807666464567*^9}, {3.7890210098488555`*^9, 3.7890210223821774`*^9}, {
   3.7890210765394955`*^9, 3.789021101390154*^9}, {3.821064422910862*^9, 
   3.821064437263141*^9}, {3.821064504769821*^9, 3.82106453846552*^9}, {
   3.82106460185704*^9, 3.821064667240161*^9}, {3.821064704521668*^9, 
   3.821064854939661*^9}, {3.821064886734498*^9, 3.8210649097711177`*^9}, {
   3.8216140898940353`*^9, 3.821614102548308*^9}, {3.8223694278575764`*^9, 
   3.8223694427926483`*^9}},
 CellLabel->
  "In[121]:=",ExpressionUUID->"2b357a2a-7238-4740-a3a5-db3fb88a2de1"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["BEAM MODEL", "Section",
 CellChangeTimes->{
  3.4430806364968*^9, {3.4453166713873997`*^9, 3.4453166747414*^9}, {
   3.447462264275*^9, 3.4474622644154*^9}, {3.4695731321116*^9, 
   3.4695731359491997`*^9}, 3.473055186341*^9, {3.4730552472860003`*^9, 
   3.47305524884*^9}, {3.473055399782*^9, 3.473055419801*^9}, {
   3.4734696760778*^9, 3.4734697047349997`*^9}, {3.4770537891542*^9, 
   3.4770537950354*^9}, {3.4932799754514*^9, 3.4932799779161997`*^9}, {
   3.4945558951644*^9, 3.4945558957416*^9}, {3.4957646303032*^9, 
   3.4957646329084*^9}, {3.497581602118*^9, 3.4975816042552*^9}, {
   3.500960505817*^9, 3.5009605094206*^9}, {3.556623836083009*^9, 
   3.5566238462386265`*^9}, {3.5568725055395393`*^9, 
   3.5568725163821597`*^9}, {3.556872678728445*^9, 3.5568726810485783`*^9}, {
   3.7323376045620503`*^9, 3.7323376086812124`*^9}, {3.7335630623483887`*^9, 
   3.733563072583865*^9}, {3.733563130246215*^9, 3.733563131355714*^9}, {
   3.8175314748809648`*^9, 3.817531482757032*^9}, {3.8175315215912895`*^9, 
   3.817531523916857*^9}, 
   3.8175315939049935`*^9},ExpressionUUID->"73a21101-e5a0-41fe-a9f3-\
b32c75d34817"],

Cell[CellGroupData[{

Cell["BAR ELEMENT (disp) defs", "Subsection",
 InitializationCell->True,
 CellChangeTimes->{{3.753018875511382*^9, 3.7530188786265306`*^9}, {
   3.7878946919412775`*^9, 3.7878946924724035`*^9}, 
   3.7878949434473147`*^9},ExpressionUUID->"8fa3cde1-4d15-4761-ac55-\
ef8c43e31201"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"MEC", "-", "E1050"}], "|", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE_", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA_", ",", "iy_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE", "}"}], ",", 
           RowBox[{"{", "AA", "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE_", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA_", ",", "iy_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE", "}"}], ",", 
           RowBox[{"{", "AA", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE_", "}"}], ",", 
           RowBox[{"{", "AA_", "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE", "}"}], ",", 
           RowBox[{"{", "AA", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE_", "}"}], ",", 
           RowBox[{"{", "AA_", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "r0", ",", "h0", ",", "ix0", ",", "ux", ",", "\[Delta]ux", ",", "EE1",
          ",", "EE2", ",", "EE3", ",", "AA1", ",", "AA2", ",", "AA3", ",", 
         "fx1", ",", "fx2", ",", "fx3", ",", "nl", ",", "rule"}], "}"}], ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"nl", "=", 
         RowBox[{"{", 
          RowBox[{"n1", ",", "n2"}], "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"r0", "=", 
         RowBox[{
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"h0", "=", 
         RowBox[{"Simplify", "[", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{"r0", ".", "r0"}], "]"}], ",", " ", 
           RowBox[{
            RowBox[{"L", ">", "0"}], "&&", 
            RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"ix0", "=", 
         RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ux", "[", "i_", "]"}], ":=", 
         RowBox[{"ix0", ".", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"nl", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\[Delta]ux", "[", "i_", "]"}], ":=", 
         RowBox[{"\[Delta]", "[", 
          RowBox[{"ux", "[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"rule", " ", ":=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"a1_", ",", "a2_", ",", "a3_"}], "}"}], "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a1", ",", "a2", ",", "a3"}], "}"}]}], ",", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"a1_", ",", "a2_"}], "}"}], "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a1", ",", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"a1", "+", "a2"}], ")"}], "/", "2"}], ",", "a2"}], 
             "}"}]}], ",", 
           RowBox[{"a1_", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a1", ",", "a1", ",", "a1"}], "}"}]}]}], "}"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"EE1", ",", "EE2", ",", "EE3"}], "}"}], "=", 
         RowBox[{"EE", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"AA1", ",", "AA2", ",", "AA3"}], "}"}], "=", 
         RowBox[{"AA", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"fx1", ",", "fx2", ",", "fx3"}], "}"}], "=", 
         RowBox[{"ix0", ".", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"fX", " ", "/.", "rule"}], ",", 
            RowBox[{"fY", " ", "/.", "rule"}], ",", 
            RowBox[{"fZ", " ", "/.", "rule"}]}], "}"}]}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         FractionBox["1", 
          RowBox[{"30", " ", 
           SuperscriptBox["h0", "2"]}]], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"AA1", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", "EE1"}], "+", 
                  RowBox[{"2", " ", "EE2"}], "-", "EE3"}], ")"}]}], "+", 
               RowBox[{"2", " ", "AA2", " ", 
                RowBox[{"(", 
                 RowBox[{"EE1", "+", 
                  RowBox[{"8", " ", "EE2"}], "+", "EE3"}], ")"}]}], "+", 
               RowBox[{"AA3", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "EE1"}], "+", 
                  RowBox[{"2", " ", "EE2"}], "+", 
                  RowBox[{"4", " ", "EE3"}]}], ")"}]}]}], ")"}]}], " ", "h0", 
            " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"ux", "[", "1", "]"}]}], "+", 
              RowBox[{"ux", "[", "2", "]"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
              RowBox[{"\[Delta]ux", "[", "2", "]"}]}], ")"}]}], "+", 
           RowBox[{"5", " ", 
            SuperscriptBox["h0", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"fx1", " ", 
               RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
              RowBox[{"fx3", " ", 
               RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", 
              RowBox[{"2", " ", "fx2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Delta]ux", "[", "1", "]"}], "+", 
                 RowBox[{"\[Delta]ux", "[", "2", "]"}]}], ")"}]}]}], 
             ")"}]}]}], ")"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE_", "}"}], ",", 
           RowBox[{"{", "AA_", "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], 
       ",", "fun_"}], "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE", "}"}], ",", 
           RowBox[{"{", "AA", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}], "]"}]}], "}"}], ",", 
       "fun"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE_", "}"}], ",", 
           RowBox[{"{", "AA_", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_", ",", "n3_"}], "}"}], "]"}]}], "}"}], 
       ",", "fun_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "r0", ",", "h0", ",", "ix0", ",", "ux", ",", "\[Delta]ux", ",", "EE1",
          ",", "EE2", ",", "EE3", ",", "AA1", ",", "AA2", ",", "AA3", ",", 
         "fx1", ",", "fx2", ",", "fx3", ",", "nl", ",", "rule"}], "}"}], ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"nl", " ", "=", 
         RowBox[{"{", 
          RowBox[{"n1", ",", "n2", ",", "n3"}], "}"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"r0", "=", 
         RowBox[{
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n3", ",", "1"}], "]"}], "]"}], "-", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"h0", "=", 
         RowBox[{"Simplify", "[", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{"r0", ".", "r0"}], "]"}], ",", " ", 
           RowBox[{
            RowBox[{"L", ">", "0"}], "&&", 
            RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"ix0", "=", 
         RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ux", "[", "i_", "]"}], ":=", 
         RowBox[{"ix0", ".", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"nl", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\[Delta]ux", "[", "i_", "]"}], ":=", 
         RowBox[{"\[Delta]", "[", 
          RowBox[{"ux", "[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"rule", " ", ":=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"a1_", ",", "a2_", ",", "a3_"}], "}"}], "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a1", ",", "a2", ",", "a3"}], "}"}]}], ",", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"a1_", ",", "a2_"}], "}"}], "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a1", ",", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"a1", "+", "a2"}], ")"}], "/", "2"}], ",", "a2"}], 
             "}"}]}], ",", 
           RowBox[{"a1_", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a1", ",", "a1", ",", "a1"}], "}"}]}]}], "}"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"EE1", ",", "EE2", ",", "EE3"}], "}"}], "=", 
         RowBox[{"EE", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"AA1", ",", "AA2", ",", "AA3"}], "}"}], "=", 
         RowBox[{"AA", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"fx1", ",", "fx2", ",", "fx3"}], "}"}], "=", 
         RowBox[{"ix0", ".", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"fX", " ", "/.", "rule"}], ",", 
            RowBox[{"fY", " ", "/.", "rule"}], ",", 
            RowBox[{"fZ", " ", "/.", "rule"}]}], "}"}]}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"210", " ", "h0"}]]}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"7", " ", "fx3", " ", 
            SuperscriptBox["h0", "2"], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
           RowBox[{"184", " ", "AA1", " ", "EE1", " ", 
            RowBox[{"ux", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
           RowBox[{"94", " ", "AA2", " ", "EE1", " ", 
            RowBox[{"ux", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", 
           RowBox[{"19", " ", "AA3", " ", "EE1", " ", 
            RowBox[{"ux", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
           RowBox[{"94", " ", "AA1", " ", "EE2", " ", 
            RowBox[{"ux", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
           RowBox[{"176", " ", "AA2", " ", "EE2", " ", 
            RowBox[{"ux", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", 
           RowBox[{"18", " ", "AA3", " ", "EE2", " ", 
            RowBox[{"ux", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", 
           RowBox[{"19", " ", "AA1", " ", "EE3", " ", 
            RowBox[{"ux", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", 
           RowBox[{"18", " ", "AA2", " ", "EE3", " ", 
            RowBox[{"ux", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
           RowBox[{"16", " ", "AA3", " ", "EE3", " ", 
            RowBox[{"ux", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", 
           RowBox[{"228", " ", "AA1", " ", "EE1", " ", 
            RowBox[{"ux", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", 
           RowBox[{"104", " ", "AA2", " ", "EE1", " ", 
            RowBox[{"ux", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
           RowBox[{"24", " ", "AA3", " ", "EE1", " ", 
            RowBox[{"ux", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", 
           RowBox[{"104", " ", "AA1", " ", "EE2", " ", 
            RowBox[{"ux", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", 
           RowBox[{"128", " ", "AA2", " ", "EE2", " ", 
            RowBox[{"ux", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
           RowBox[{"8", " ", "AA3", " ", "EE2", " ", 
            RowBox[{"ux", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
           RowBox[{"24", " ", "AA1", " ", "EE3", " ", 
            RowBox[{"ux", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
           RowBox[{"8", " ", "AA2", " ", "EE3", " ", 
            RowBox[{"ux", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", 
           RowBox[{"60", " ", "AA3", " ", "EE3", " ", 
            RowBox[{"ux", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
           RowBox[{"44", " ", "AA1", " ", "EE1", " ", 
            RowBox[{"ux", "[", "3", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
           RowBox[{"10", " ", "AA2", " ", "EE1", " ", 
            RowBox[{"ux", "[", "3", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", 
           RowBox[{"5", " ", "AA3", " ", "EE1", " ", 
            RowBox[{"ux", "[", "3", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
           RowBox[{"10", " ", "AA1", " ", "EE2", " ", 
            RowBox[{"ux", "[", "3", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", 
           RowBox[{"48", " ", "AA2", " ", "EE2", " ", 
            RowBox[{"ux", "[", "3", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
           RowBox[{"10", " ", "AA3", " ", "EE2", " ", 
            RowBox[{"ux", "[", "3", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", 
           RowBox[{"5", " ", "AA1", " ", "EE3", " ", 
            RowBox[{"ux", "[", "3", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
           RowBox[{"10", " ", "AA2", " ", "EE3", " ", 
            RowBox[{"ux", "[", "3", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
           RowBox[{"44", " ", "AA3", " ", "EE3", " ", 
            RowBox[{"ux", "[", "3", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", 
           RowBox[{"14", " ", "fx3", " ", 
            SuperscriptBox["h0", "2"], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", 
           RowBox[{"228", " ", "AA1", " ", "EE1", " ", 
            RowBox[{"ux", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", 
           RowBox[{"104", " ", "AA2", " ", "EE1", " ", 
            RowBox[{"ux", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", 
           RowBox[{"24", " ", "AA3", " ", "EE1", " ", 
            RowBox[{"ux", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", 
           RowBox[{"104", " ", "AA1", " ", "EE2", " ", 
            RowBox[{"ux", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", 
           RowBox[{"128", " ", "AA2", " ", "EE2", " ", 
            RowBox[{"ux", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", 
           RowBox[{"8", " ", "AA3", " ", "EE2", " ", 
            RowBox[{"ux", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", 
           RowBox[{"24", " ", "AA1", " ", "EE3", " ", 
            RowBox[{"ux", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", 
           RowBox[{"8", " ", "AA2", " ", "EE3", " ", 
            RowBox[{"ux", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", 
           RowBox[{"60", " ", "AA3", " ", "EE3", " ", 
            RowBox[{"ux", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", 
           RowBox[{"288", " ", "AA1", " ", "EE1", " ", 
            RowBox[{"ux", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", 
           RowBox[{"96", " ", "AA2", " ", "EE1", " ", 
            RowBox[{"ux", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", 
           RowBox[{"48", " ", "AA3", " ", "EE1", " ", 
            RowBox[{"ux", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", 
           RowBox[{"96", " ", "AA1", " ", "EE2", " ", 
            RowBox[{"ux", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", 
           RowBox[{"256", " ", "AA2", " ", "EE2", " ", 
            RowBox[{"ux", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", 
           RowBox[{"96", " ", "AA3", " ", "EE2", " ", 
            RowBox[{"ux", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", 
           RowBox[{"48", " ", "AA1", " ", "EE3", " ", 
            RowBox[{"ux", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", 
           RowBox[{"96", " ", "AA2", " ", "EE3", " ", 
            RowBox[{"ux", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", 
           RowBox[{"288", " ", "AA3", " ", "EE3", " ", 
            RowBox[{"ux", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", 
           RowBox[{"60", " ", "AA1", " ", "EE1", " ", 
            RowBox[{"ux", "[", "3", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", 
           RowBox[{"8", " ", "AA2", " ", "EE1", " ", 
            RowBox[{"ux", "[", "3", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", 
           RowBox[{"24", " ", "AA3", " ", "EE1", " ", 
            RowBox[{"ux", "[", "3", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", 
           RowBox[{"8", " ", "AA1", " ", "EE2", " ", 
            RowBox[{"ux", "[", "3", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", 
           RowBox[{"128", " ", "AA2", " ", "EE2", " ", 
            RowBox[{"ux", "[", "3", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", 
           RowBox[{"104", " ", "AA3", " ", "EE2", " ", 
            RowBox[{"ux", "[", "3", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", 
           RowBox[{"24", " ", "AA1", " ", "EE3", " ", 
            RowBox[{"ux", "[", "3", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", 
           RowBox[{"104", " ", "AA2", " ", "EE3", " ", 
            RowBox[{"ux", "[", "3", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", 
           RowBox[{"228", " ", "AA3", " ", "EE3", " ", 
            RowBox[{"ux", "[", "3", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "28"}], " ", "fx3", " ", 
               SuperscriptBox["h0", "2"]}], "+", 
              RowBox[{"AA1", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"44", " ", "EE1", " ", 
                  RowBox[{"ux", "[", "1", "]"}]}], "+", 
                 RowBox[{"10", " ", "EE2", " ", 
                  RowBox[{"ux", "[", "1", "]"}]}], "-", 
                 RowBox[{"5", " ", "EE3", " ", 
                  RowBox[{"ux", "[", "1", "]"}]}], "-", 
                 RowBox[{"60", " ", "EE1", " ", 
                  RowBox[{"ux", "[", "2", "]"}]}], "+", 
                 RowBox[{"8", " ", "EE2", " ", 
                  RowBox[{"ux", "[", "2", "]"}]}], "+", 
                 RowBox[{"24", " ", "EE3", " ", 
                  RowBox[{"ux", "[", "2", "]"}]}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"16", " ", "EE1"}], "-", 
                    RowBox[{"18", " ", "EE2"}], "-", 
                    RowBox[{"19", " ", "EE3"}]}], ")"}], " ", 
                  RowBox[{"ux", "[", "3", "]"}]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", "AA2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"5", " ", "EE1", " ", 
                  RowBox[{"ux", "[", "1", "]"}]}], "-", 
                 RowBox[{"24", " ", "EE2", " ", 
                  RowBox[{"ux", "[", "1", "]"}]}], "+", 
                 RowBox[{"5", " ", "EE3", " ", 
                  RowBox[{"ux", "[", "1", "]"}]}], "+", 
                 RowBox[{"4", " ", "EE1", " ", 
                  RowBox[{"ux", "[", "2", "]"}]}], "-", 
                 RowBox[{"64", " ", "EE2", " ", 
                  RowBox[{"ux", "[", "2", "]"}]}], "-", 
                 RowBox[{"52", " ", "EE3", " ", 
                  RowBox[{"ux", "[", "2", "]"}]}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "9"}], " ", "EE1"}], "+", 
                    RowBox[{"88", " ", "EE2"}], "+", 
                    RowBox[{"47", " ", "EE3"}]}], ")"}], " ", 
                  RowBox[{"ux", "[", "3", "]"}]}]}], ")"}]}], "+", 
              RowBox[{"AA3", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"EE1", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "5"}], " ", 
                    RowBox[{"ux", "[", "1", "]"}]}], "+", 
                    RowBox[{"24", " ", 
                    RowBox[{"ux", "[", "2", "]"}]}], "-", 
                    RowBox[{"19", " ", 
                    RowBox[{"ux", "[", "3", "]"}]}]}], ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", "EE3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"11", " ", 
                    RowBox[{"ux", "[", "1", "]"}]}], "-", 
                    RowBox[{"57", " ", 
                    RowBox[{"ux", "[", "2", "]"}]}], "+", 
                    RowBox[{"46", " ", 
                    RowBox[{"ux", "[", "3", "]"}]}]}], ")"}]}], "+", 
                    RowBox[{"EE2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"5", " ", 
                    RowBox[{"ux", "[", "1", "]"}]}], "-", 
                    RowBox[{"52", " ", 
                    RowBox[{"ux", "[", "2", "]"}]}], "+", 
                    RowBox[{"47", " ", 
                    RowBox[{"ux", "[", "3", "]"}]}]}], ")"}]}]}], ")"}]}]}], 
                ")"}]}]}], ")"}], " ", 
            RowBox[{"\[Delta]ux", "[", "3", "]"}]}], "+", 
           RowBox[{"7", " ", "fx1", " ", 
            SuperscriptBox["h0", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "4"}], " ", 
               RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", 
              RowBox[{"\[Delta]ux", "[", "3", "]"}]}], ")"}]}], "-", 
           RowBox[{"14", " ", "fx2", " ", 
            SuperscriptBox["h0", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Delta]ux", "[", "1", "]"}], "+", 
              RowBox[{"8", " ", 
               RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", 
              RowBox[{"\[Delta]ux", "[", "3", "]"}]}], ")"}]}]}], ")"}]}]}]}],
       "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4426466268192453`*^9, 3.4426467788544455`*^9}, {
   3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 
   3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, {
   3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 
   3.4461862553468*^9}, {3.446186292506*^9, 3.4461863473556004`*^9}, {
   3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 
   3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, {
   3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 
   3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, {
   3.4938811515079627`*^9, 3.4938811517107615`*^9}, {3.4941655092594*^9, 
   3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, {
   3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 
   3.4957207485294*^9}, {3.4957208264826*^9, 3.4957208443914003`*^9}, 
   3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 
   3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, {
   3.4957212942609997`*^9, 3.495721324993*^9}, {3.4975823349274*^9, 
   3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, {
   3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 
   3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, {
   3.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 
   3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, {
   3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 
   3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, {
   3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, {
   3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 
   3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, {
   3.5007044087455997`*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 
   3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, {
   3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 
   3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, {
   3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 
   3.5007163483716*^9}, {3.5007163981823997`*^9, 3.5007164168244*^9}, {
   3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 
   3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, {
   3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 
   3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, {
   3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 
   3.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, {
   3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 
   3.5009593527897997`*^9}, {3.5625699941459312`*^9, 
   3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, {
   3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 
   3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, {
   3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 
   3.6297781672591486`*^9}, {3.6297782105906267`*^9, 
   3.6297787648833303`*^9}, {3.6297788067577257`*^9, 
   3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, {
   3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 
   3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, {
   3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, {
   3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 
   3.6298707174286036`*^9}, {3.6298707896411304`*^9, 
   3.6298709878862786`*^9}, {3.6306592122375627`*^9, 
   3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 
   3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 
   3.6308359887799683`*^9}, {3.6308362111739593`*^9, 
   3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 
   3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {
   3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 
   3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {
   3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 
   3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, {
   3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 
   3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, {
   3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 
   3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, {
   3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 
   3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, {
   3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 
   3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, {
   3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 
   3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 
   3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {
   3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 
   3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, {
   3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, {
   3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 
   3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, {
   3.685341231602439*^9, 3.6853412388978567`*^9}, 3.6853430337255144`*^9, {
   3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {
   3.68585391622186*^9, 3.6858539266884584`*^9}, {3.685853962796524*^9, 
   3.685853970925989*^9}, 3.6858541341643257`*^9, {3.685854449069337*^9, 
   3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, {
   3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^9, 
   3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {
   3.68596614502913*^9, 3.68596618077918*^9}, {3.6859665004496274`*^9, 
   3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {
   3.6860123360453115`*^9, 3.6860123945753937`*^9}, {3.6860124484754686`*^9, 
   3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 
   3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 
   3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 
   3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {
   3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, {
   3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, {
   3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 
   3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, {
   3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 
   3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, {
   3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {
   3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 
   3.6871473693028083`*^9}, {3.6874228236597347`*^9, 
   3.6874228709898005`*^9}, {3.6874231158501434`*^9, 
   3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, {
   3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 
   3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 
   3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, {
   3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 
   3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, {
   3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 
   3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, {
   3.6924127522818885`*^9, 3.6924127586918974`*^9}, {3.69241285349203*^9, 
   3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, {
   3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 
   3.6924137594552984`*^9}, {3.6924168804381475`*^9, 3.692416890318161*^9}, {
   3.692416926028211*^9, 3.6924169565082536`*^9}, {3.6924169983583126`*^9, 
   3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, {
   3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 
   3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, {
   3.69277257982156*^9, 3.6927725838615656`*^9}, {3.692855931835436*^9, 
   3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, {
   3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 
   3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, {
   3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 
   3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^9, 
   3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, {
   3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, {
   3.6937158692541003`*^9, 3.693715869654101*^9}, {3.6937159892942686`*^9, 
   3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, {
   3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 
   3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, {
   3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 
   3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, {
   3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 
   3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, {
   3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 
   3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, {
   3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 
   3.6942313193904014`*^9}, {3.6942313582004557`*^9, 
   3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, {
   3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 
   3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, {
   3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 
   3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 
   3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, {
   3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 
   3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, {
   3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 
   3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 
   3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, {
   3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 
   3.7496992868619986`*^9}, {3.7496993728466873`*^9, 3.749699375486853*^9}, {
   3.7530189177531705`*^9, 3.753018918350237*^9}, {3.753018991800671*^9, 
   3.753019041865839*^9}, {3.7530191095313196`*^9, 3.7530191100576744`*^9}, 
   3.753019155952956*^9, {3.7530192458219423`*^9, 3.753019353286773*^9}, {
   3.773986323215969*^9, 3.7739864366876383`*^9}, {3.7739864700193005`*^9, 
   3.7739865885966825`*^9}, {3.7739869332783327`*^9, 3.7739870501829805`*^9}, 
   3.773987085528166*^9, {3.7739872536160583`*^9, 3.773987270466986*^9}, {
   3.773987482712697*^9, 3.7739875221812735`*^9}, {3.773987740298462*^9, 
   3.7739877466065903`*^9}, {3.7739878599976892`*^9, 
   3.7739878861137896`*^9}, {3.773987965425336*^9, 3.7739879715632877`*^9}, 
   3.773988098774023*^9, 3.7739883193781385`*^9, {3.7739884099852057`*^9, 
   3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, {
   3.7739891227568517`*^9, 3.77398915009042*^9}, {3.7739892774900556`*^9, 
   3.773989291800435*^9}, {3.7739896060525217`*^9, 3.773989635013425*^9}, {
   3.7751890832095585`*^9, 3.7751890882413054`*^9}, {3.7751894923762302`*^9, 
   3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 
   3.7751912606478214`*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, {
   3.775194496052539*^9, 3.7751945353727713`*^9}, {3.7751945737174063`*^9, 
   3.775194621343042*^9}, {3.775194667862669*^9, 3.7751947598351893`*^9}, {
   3.7751948235734253`*^9, 3.7751949415953684`*^9}, {3.775195100078847*^9, 
   3.77519512113822*^9}, {3.7751954506873007`*^9, 3.775195467864645*^9}, {
   3.775270786870551*^9, 3.775270796325161*^9}, {3.7752708274391947`*^9, 
   3.775270839737406*^9}, {3.7752709283091574`*^9, 3.7752709474534383`*^9}, {
   3.7752710502850266`*^9, 3.7752711744130797`*^9}, {3.7752712273079033`*^9, 
   3.7752713060364757`*^9}, {3.775271448825513*^9, 3.7752714699277525`*^9}, {
   3.775271509321142*^9, 3.775271585609558*^9}, {3.775271620653377*^9, 
   3.77527180192237*^9}, {3.781671264558541*^9, 3.7816712751556396`*^9}, {
   3.7816715257512035`*^9, 3.781671526206021*^9}, 3.781671612475748*^9, {
   3.781672177985033*^9, 3.7816722548545895`*^9}, {3.7816755757937236`*^9, 
   3.7816756936745577`*^9}, 3.781675873086305*^9, {3.7816761808096905`*^9, 
   3.7816762075777946`*^9}, {3.788077170199604*^9, 3.7880772443461285`*^9}, 
   3.8175324221718016`*^9, {3.817532645653172*^9, 3.817532680712221*^9}, {
   3.8200248875082335`*^9, 3.8200249266511517`*^9}, 3.8200249735130763`*^9, {
   3.8217742761087155`*^9, 3.821774333135168*^9}, {3.821774750423011*^9, 
   3.8217747610558224`*^9}, {3.8217747912447248`*^9, 
   3.8217749904455633`*^9}, {3.8217750368892345`*^9, 
   3.8217752594972935`*^9}, {3.8217752941944513`*^9, 
   3.8217753660612097`*^9}, {3.843624690905726*^9, 3.843624714964343*^9}, {
   3.843625137403534*^9, 3.8436253106688747`*^9}, {3.8436254114664454`*^9, 
   3.843625482254491*^9}, {3.8436258314013753`*^9, 3.843625832963335*^9}, {
   3.84362587330585*^9, 3.8436258882972155`*^9}, {3.843625938953411*^9, 
   3.8436259929118633`*^9}, {3.8530325799408607`*^9, 3.8530325954117217`*^9}, 
   3.8530326372114444`*^9},
 CellLabel->
  "In[124]:=",ExpressionUUID->"e2cad124-25cf-4f48-8c9d-3d556e7072b7"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE_", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA_", ",", "iy_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE", "}"}], ",", 
           RowBox[{"{", "AA", "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE_", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA_", ",", "iy_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE", "}"}], ",", 
           RowBox[{"{", "AA", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE_", "}"}], ",", 
           RowBox[{"{", "AA_", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "r0", ",", "h0", ",", "ix0", ",", "iz0", ",", "ux", ",", "\[Delta]ux",
          ",", "EE1", ",", "EE2", ",", "EE3", ",", "AA1", ",", "AA2", ",", 
         "AA3", ",", "fx", ",", "fx1", ",", "fx2", ",", "fx3", ",", "nl", ",",
          "rule"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"nl", "=", 
         RowBox[{"{", 
          RowBox[{"n1", ",", "n2"}], "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"r0", "=", 
         RowBox[{
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"h0", "=", 
         RowBox[{"Simplify", "[", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{"r0", ".", "r0"}], "]"}], ",", " ", 
           RowBox[{
            RowBox[{"L", ">", "0"}], "&&", 
            RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"ix0", "=", 
         RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ux", "[", "i_", "]"}], ":=", 
         RowBox[{"ix0", ".", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"nl", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\[Delta]ux", "[", "i_", "]"}], ":=", 
         RowBox[{"\[Delta]", "[", 
          RowBox[{"ux", "[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"rule", " ", ":=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"a1_", ",", "a2_", ",", "a3_"}], "}"}], "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a1", ",", "a2", ",", "a3"}], "}"}]}], ",", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"a1_", ",", "a2_"}], "}"}], "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a1", ",", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"a1", "+", "a2"}], ")"}], "/", "2"}], ",", "a2"}], 
             "}"}]}], ",", 
           RowBox[{"a1_", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a1", ",", "a1", ",", "a1"}], "}"}]}]}], "}"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"fx", " ", "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}], ".", "ix0"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"EE1", ",", "EE2", ",", "EE3"}], "}"}], "=", 
         RowBox[{"EE", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"AA1", ",", "AA2", ",", "AA3"}], "}"}], "=", 
         RowBox[{"AA", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"fx1", ",", "fx2", ",", "fx3"}], "}"}], "=", 
         RowBox[{"fx", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{
         FractionBox["1", 
          RowBox[{"30", " ", 
           SuperscriptBox["h0", "2"]}]], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"AA1", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", "EE1"}], "+", 
                  RowBox[{"2", " ", "EE2"}], "-", "EE3"}], ")"}]}], "+", 
               RowBox[{"2", " ", "AA2", " ", 
                RowBox[{"(", 
                 RowBox[{"EE1", "+", 
                  RowBox[{"8", " ", "EE2"}], "+", "EE3"}], ")"}]}], "+", 
               RowBox[{"AA3", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "EE1"}], "+", 
                  RowBox[{"2", " ", "EE2"}], "+", 
                  RowBox[{"4", " ", "EE3"}]}], ")"}]}]}], ")"}]}], " ", "h0", 
            " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"ux", "[", "1", "]"}]}], "+", 
              RowBox[{"ux", "[", "2", "]"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
              RowBox[{"\[Delta]ux", "[", "2", "]"}]}], ")"}]}], "+", 
           RowBox[{"5", " ", 
            SuperscriptBox["h0", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"fx1", " ", 
               RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
              RowBox[{"fx3", " ", 
               RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", 
              RowBox[{"2", " ", "fx2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Delta]ux", "[", "1", "]"}], "+", 
                 RowBox[{"\[Delta]ux", "[", "2", "]"}]}], ")"}]}]}], 
             ")"}]}]}], ")"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE_", "}"}], ",", 
           RowBox[{"{", "AA_", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "r0", ",", "h0", ",", "ix0", ",", "ux", ",", "\[Delta]ux", ",", 
         "\[Delta]Wint", ",", "\[Delta]Wext"}], "}"}], ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"r0", "=", 
         RowBox[{
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"h0", "=", 
         RowBox[{"Simplify", "[", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{"r0", ".", "r0"}], "]"}], ",", " ", 
           RowBox[{
            RowBox[{"L", ">", "0"}], "&&", 
            RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"ix0", "=", 
         RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ux", "[", "1", "]"}], "=", 
         RowBox[{"ix0", ".", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ux", "[", "2", "]"}], "=", 
         RowBox[{"ix0", ".", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n2", ",", "2"}], "]"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\[Delta]ux", "[", "1", "]"}], "=", 
         RowBox[{"\[Delta]", "[", 
          RowBox[{"ux", "[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\[Delta]ux", "[", "2", "]"}], "=", 
         RowBox[{"\[Delta]", "[", 
          RowBox[{"ux", "[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"\[Delta]Wint", "=", 
         RowBox[{
          RowBox[{"-", "AA"}], " ", 
          RowBox[{"EE", "/", "h0"}], " ", "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"ux", "[", "1", "]"}], "-", 
            RowBox[{"ux", "[", "2", "]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Delta]ux", "[", "1", "]"}], "-", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], ")"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"\[Delta]Wext", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Delta]", "[", 
            RowBox[{
             RowBox[{"fun", "[", 
              RowBox[{"[", 
               RowBox[{"n1", ",", "2"}], "]"}], "]"}], "+", 
             RowBox[{"fun", "[", 
              RowBox[{"[", 
               RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], "]"}], ".", 
           RowBox[{"{", 
            RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "*", 
          RowBox[{"h0", "/", "2"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"\[Delta]Wint", "+", "\[Delta]Wext"}]}]}], "]"}]}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.4426466268192453`*^9, 3.4426467788544455`*^9}, {
   3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 
   3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, {
   3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 
   3.4461862553468*^9}, {3.446186292506*^9, 3.4461863473556004`*^9}, {
   3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 
   3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, {
   3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 
   3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, {
   3.4938811515079627`*^9, 3.4938811517107615`*^9}, {3.4941655092594*^9, 
   3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, {
   3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 
   3.4957207485294*^9}, {3.4957208264826*^9, 3.4957208443914003`*^9}, 
   3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 
   3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, {
   3.4957212942609997`*^9, 3.495721324993*^9}, {3.4975823349274*^9, 
   3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, {
   3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 
   3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, {
   3.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 
   3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, {
   3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 
   3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, {
   3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, {
   3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 
   3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, {
   3.5007044087455997`*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 
   3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, {
   3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 
   3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, {
   3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 
   3.5007163483716*^9}, {3.5007163981823997`*^9, 3.5007164168244*^9}, {
   3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 
   3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, {
   3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 
   3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, {
   3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 
   3.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, {
   3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 
   3.5009593527897997`*^9}, {3.5625699941459312`*^9, 
   3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, {
   3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 
   3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, {
   3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 
   3.6297781672591486`*^9}, {3.6297782105906267`*^9, 
   3.6297787648833303`*^9}, {3.6297788067577257`*^9, 
   3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, {
   3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 
   3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, {
   3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, {
   3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 
   3.6298707174286036`*^9}, {3.6298707896411304`*^9, 
   3.6298709878862786`*^9}, {3.6306592122375627`*^9, 
   3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 
   3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 
   3.6308359887799683`*^9}, {3.6308362111739593`*^9, 
   3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 
   3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {
   3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 
   3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {
   3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 
   3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, {
   3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 
   3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, {
   3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 
   3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, {
   3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 
   3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, {
   3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 
   3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, {
   3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 
   3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 
   3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {
   3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 
   3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, {
   3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, {
   3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 
   3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, {
   3.685341231602439*^9, 3.6853412388978567`*^9}, 3.6853430337255144`*^9, {
   3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {
   3.68585391622186*^9, 3.6858539266884584`*^9}, {3.685853962796524*^9, 
   3.685853970925989*^9}, 3.6858541341643257`*^9, {3.685854449069337*^9, 
   3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, {
   3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^9, 
   3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {
   3.68596614502913*^9, 3.68596618077918*^9}, {3.6859665004496274`*^9, 
   3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {
   3.6860123360453115`*^9, 3.6860123945753937`*^9}, {3.6860124484754686`*^9, 
   3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 
   3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 
   3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 
   3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {
   3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, {
   3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, {
   3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 
   3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, {
   3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 
   3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, {
   3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {
   3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 
   3.6871473693028083`*^9}, {3.6874228236597347`*^9, 
   3.6874228709898005`*^9}, {3.6874231158501434`*^9, 
   3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, {
   3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 
   3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 
   3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, {
   3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 
   3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, {
   3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 
   3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, {
   3.6924127522818885`*^9, 3.6924127586918974`*^9}, {3.69241285349203*^9, 
   3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, {
   3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 
   3.6924137594552984`*^9}, {3.6924168804381475`*^9, 3.692416890318161*^9}, {
   3.692416926028211*^9, 3.6924169565082536`*^9}, {3.6924169983583126`*^9, 
   3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, {
   3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 
   3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, {
   3.69277257982156*^9, 3.6927725838615656`*^9}, {3.692855931835436*^9, 
   3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, {
   3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 
   3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, {
   3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 
   3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^9, 
   3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, {
   3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, {
   3.6937158692541003`*^9, 3.693715869654101*^9}, {3.6937159892942686`*^9, 
   3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, {
   3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 
   3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, {
   3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 
   3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, {
   3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 
   3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, {
   3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 
   3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, {
   3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 
   3.6942313193904014`*^9}, {3.6942313582004557`*^9, 
   3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, {
   3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 
   3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, {
   3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 
   3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 
   3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, {
   3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 
   3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, {
   3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 
   3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 
   3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, {
   3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 
   3.7496992868619986`*^9}, {3.7496993728466873`*^9, 3.749699375486853*^9}, {
   3.7530189177531705`*^9, 3.753018918350237*^9}, {3.753018991800671*^9, 
   3.753019041865839*^9}, {3.7530191095313196`*^9, 3.7530191100576744`*^9}, 
   3.753019155952956*^9, {3.7530192458219423`*^9, 3.753019353286773*^9}, {
   3.773986323215969*^9, 3.7739864366876383`*^9}, {3.7739864700193005`*^9, 
   3.7739865885966825`*^9}, {3.7739869332783327`*^9, 3.7739870501829805`*^9}, 
   3.773987085528166*^9, {3.7739872536160583`*^9, 3.773987270466986*^9}, {
   3.773987482712697*^9, 3.7739875221812735`*^9}, {3.773987740298462*^9, 
   3.7739877466065903`*^9}, {3.7739878599976892`*^9, 
   3.7739878861137896`*^9}, {3.773987965425336*^9, 3.7739879715632877`*^9}, 
   3.773988098774023*^9, 3.7739883193781385`*^9, {3.7739884099852057`*^9, 
   3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, {
   3.7739891227568517`*^9, 3.77398915009042*^9}, {3.7739892774900556`*^9, 
   3.773989291800435*^9}, {3.7739896060525217`*^9, 3.773989635013425*^9}, {
   3.7751890832095585`*^9, 3.7751890882413054`*^9}, {3.7751894923762302`*^9, 
   3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 
   3.7751912606478214`*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, {
   3.775194496052539*^9, 3.7751945353727713`*^9}, {3.7751945737174063`*^9, 
   3.775194621343042*^9}, {3.775194667862669*^9, 3.7751947598351893`*^9}, {
   3.7751948235734253`*^9, 3.7751949415953684`*^9}, {3.775195100078847*^9, 
   3.77519512113822*^9}, {3.7751954506873007`*^9, 3.775195467864645*^9}, {
   3.775270786870551*^9, 3.775270796325161*^9}, {3.7752708274391947`*^9, 
   3.775270839737406*^9}, {3.7752709283091574`*^9, 3.7752709474534383`*^9}, {
   3.7752710502850266`*^9, 3.7752711744130797`*^9}, {3.7752712273079033`*^9, 
   3.7752713060364757`*^9}, {3.775271448825513*^9, 3.7752714699277525`*^9}, {
   3.775271509321142*^9, 3.775271585609558*^9}, {3.775271620653377*^9, 
   3.77527180192237*^9}, {3.781671264558541*^9, 3.7816712751556396`*^9}, {
   3.7816715257512035`*^9, 3.781671526206021*^9}, 3.781671612475748*^9, {
   3.781672177985033*^9, 3.7816722548545895`*^9}, {3.7816755757937236`*^9, 
   3.7816756936745577`*^9}, 3.781675873086305*^9, {3.7816761808096905`*^9, 
   3.7816762075777946`*^9}, {3.788077170199604*^9, 3.7880772443461285`*^9}, 
   3.8175324221718016`*^9, {3.817532645653172*^9, 3.817532680712221*^9}, {
   3.8200248875082335`*^9, 3.8200249266511517`*^9}, 3.8200249735130763`*^9, {
   3.8217742761087155`*^9, 3.821774333135168*^9}, {3.821774750423011*^9, 
   3.8217747610558224`*^9}, {3.8217747912447248`*^9, 
   3.8217749904455633`*^9}, {3.8217750368892345`*^9, 
   3.8217752594972935`*^9}, {3.8217752941944513`*^9, 
   3.8217753660612097`*^9}, {3.843624690905726*^9, 3.843624714964343*^9}, {
   3.843625137403534*^9, 3.8436253106688747`*^9}, {3.8436254114664454`*^9, 
   3.843625482254491*^9}, {3.8436258314013753`*^9, 3.843625832963335*^9}, {
   3.84362587330585*^9, 3.8436258882972155`*^9}, {3.843625938953411*^9, 
   3.843626019323427*^9}},ExpressionUUID->"c954bc84-9f65-453d-a2c5-\
f326325a1b63"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"GENERICBAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE_", "}"}], ",", 
           RowBox[{"{", "A_", "}"}], ",", 
           RowBox[{"{", "fx_", "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "NN", ",", "\[Xi]", ",", "r", ",", "r\[Xi]", ",", "h0", ",", "i\[Xi]",
          ",", "s", ",", "x", ",", "uu", ",", "\[Delta]uu", ",", "F", ",", 
         "\[Delta]wint", ",", "\[Delta]wext"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"NN", "=", " ", 
         RowBox[{"LAGRANGE", "[", 
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Length", "[", "node", "]"}], ",", "\[Xi]"}], "}"}], 
           "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"mapping", " ", "to", " ", "material", " ", "system"}], 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{"r", "=", 
         RowBox[{"\[Xi]", "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"fun", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"Last", "[", "node", "]"}], ",", "1"}], "]"}], "]"}], 
            "-", 
            RowBox[{"fun", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"First", "[", "node", "]"}], ",", "1"}], "]"}], 
             "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"r\[Xi]", "=", 
         RowBox[{
          SubscriptBox["\[PartialD]", "\[Xi]"], "r"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"h0", "=", 
         RowBox[{"Simplify", "[", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{"r\[Xi]", ".", "r\[Xi]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"L", ">", "0"}], "&&", 
            RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"i\[Xi]", " ", "=", 
         RowBox[{"r\[Xi]", "/", "h0"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"s", "=", 
         RowBox[{"i\[Xi]", " ", ".", "r"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"x", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"fun", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"First", "[", "node", "]"}], ",", "1"}], "]"}], "]"}], 
           ".", "i\[Xi]"}], "+", "s"}]}], " ", ";", "\[IndentingNewLine]", 
        RowBox[{"(*", "approximation", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"uu", "=", " ", 
         RowBox[{"i\[Xi]", ".", 
          RowBox[{"(", 
           RowBox[{"NN", ".", 
            RowBox[{"fun", "[", 
             RowBox[{"[", 
              RowBox[{"node", ",", "2"}], "]"}], "]"}]}], ")"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"stress", " ", "resultant"}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"F", " ", "=", 
         RowBox[{
          RowBox[{"EE", "[", "x", "]"}], "*", 
          RowBox[{"A", "[", "x", "]"}], " ", "*", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[PartialD]", "\[Xi]"], "uu"}], "/", "h0"}]}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"\[Delta]wint", "=", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"\[Delta]", "[", 
            RowBox[{
             RowBox[{
              SubscriptBox["\[PartialD]", "\[Xi]"], "uu"}], "/", "h0"}], 
            "]"}]}], "*", "F"}]}], " ", ";", "\[IndentingNewLine]", 
        RowBox[{"\[Delta]wext", "=", 
         RowBox[{
          RowBox[{"\[Delta]", "[", "uu", "]"}], "*", 
          RowBox[{"fx", "[", "x", "]"}]}]}], " ", ";", "\[IndentingNewLine]", 
        RowBox[{"Simplify", "[", 
         RowBox[{
          RowBox[{"Integrate", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ")"}], "*", 
             "h0"}], ",", 
            RowBox[{"{", 
             RowBox[{"\[Xi]", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", " ", 
          RowBox[{
           RowBox[{"L", ">", "0"}], "&&", 
           RowBox[{"h", ">", "0"}]}]}], "]"}]}]}], "\[IndentingNewLine]", 
      "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.4426466268192453`*^9, 3.4426467788544455`*^9}, {
   3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 
   3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, {
   3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 
   3.4461862553468*^9}, {3.446186292506*^9, 3.4461863473556004`*^9}, {
   3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 
   3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, {
   3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 
   3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, {
   3.4938811515079627`*^9, 3.4938811517107615`*^9}, {3.4941655092594*^9, 
   3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, {
   3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 
   3.4957207485294*^9}, {3.4957208264826*^9, 3.4957208443914003`*^9}, 
   3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 
   3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, {
   3.4957212942609997`*^9, 3.495721324993*^9}, {3.4975823349274*^9, 
   3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, {
   3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 
   3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, {
   3.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 
   3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, {
   3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 
   3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, {
   3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, {
   3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 
   3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, {
   3.5007044087455997`*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 
   3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, {
   3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 
   3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, {
   3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 
   3.5007163483716*^9}, {3.5007163981823997`*^9, 3.5007164168244*^9}, {
   3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 
   3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, {
   3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 
   3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, {
   3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 
   3.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, {
   3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 
   3.5009593527897997`*^9}, {3.5625699941459312`*^9, 
   3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, {
   3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 
   3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, {
   3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 
   3.6297781672591486`*^9}, {3.6297782105906267`*^9, 
   3.6297787648833303`*^9}, {3.6297788067577257`*^9, 
   3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, {
   3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 
   3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, {
   3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, {
   3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 
   3.6298707174286036`*^9}, {3.6298707896411304`*^9, 
   3.6298709878862786`*^9}, {3.6306592122375627`*^9, 
   3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 
   3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 
   3.6308359887799683`*^9}, {3.6308362111739593`*^9, 
   3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 
   3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {
   3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 
   3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {
   3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 
   3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, {
   3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 
   3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, {
   3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 
   3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, {
   3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 
   3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, {
   3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 
   3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, {
   3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 
   3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 
   3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {
   3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 
   3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, {
   3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, {
   3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 
   3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, {
   3.685341231602439*^9, 3.6853412388978567`*^9}, 3.6853430337255144`*^9, {
   3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {
   3.68585391622186*^9, 3.6858539266884584`*^9}, {3.685853962796524*^9, 
   3.685853970925989*^9}, 3.6858541341643257`*^9, {3.685854449069337*^9, 
   3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, {
   3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^9, 
   3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {
   3.68596614502913*^9, 3.68596618077918*^9}, {3.6859665004496274`*^9, 
   3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {
   3.6860123360453115`*^9, 3.6860123945753937`*^9}, {3.6860124484754686`*^9, 
   3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 
   3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 
   3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 
   3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {
   3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, {
   3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, {
   3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 
   3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, {
   3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 
   3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, {
   3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {
   3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 
   3.6871473693028083`*^9}, {3.6874228236597347`*^9, 
   3.6874228709898005`*^9}, {3.6874231158501434`*^9, 
   3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, {
   3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 
   3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 
   3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, {
   3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 
   3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, {
   3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 
   3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, {
   3.6924127522818885`*^9, 3.6924127586918974`*^9}, {3.69241285349203*^9, 
   3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, {
   3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 
   3.6924137594552984`*^9}, {3.6924168804381475`*^9, 3.692416890318161*^9}, {
   3.692416926028211*^9, 3.6924169565082536`*^9}, {3.6924169983583126`*^9, 
   3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, {
   3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 
   3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, {
   3.69277257982156*^9, 3.6927725838615656`*^9}, {3.692855931835436*^9, 
   3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, {
   3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 
   3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, {
   3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 
   3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^9, 
   3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, {
   3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, {
   3.6937158692541003`*^9, 3.693715869654101*^9}, {3.6937159892942686`*^9, 
   3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, {
   3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 
   3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, {
   3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 
   3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, {
   3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 
   3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, {
   3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 
   3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, {
   3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 
   3.6942313193904014`*^9}, {3.6942313582004557`*^9, 
   3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, {
   3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 
   3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, {
   3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 
   3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 
   3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, {
   3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 
   3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, {
   3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 
   3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 
   3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, {
   3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 
   3.7496992868619986`*^9}, {3.7496993728466873`*^9, 3.749699375486853*^9}, {
   3.7530189177531705`*^9, 3.753018918350237*^9}, {3.753018991800671*^9, 
   3.753019041865839*^9}, {3.7530191095313196`*^9, 3.7530191100576744`*^9}, 
   3.753019155952956*^9, {3.7530192458219423`*^9, 3.753019353286773*^9}, {
   3.773986323215969*^9, 3.7739864366876383`*^9}, {3.7739864700193005`*^9, 
   3.7739865885966825`*^9}, {3.7739869332783327`*^9, 3.7739870501829805`*^9}, 
   3.773987085528166*^9, {3.7739872536160583`*^9, 3.773987270466986*^9}, {
   3.773987482712697*^9, 3.7739875221812735`*^9}, {3.773987740298462*^9, 
   3.7739877466065903`*^9}, {3.7739878599976892`*^9, 
   3.7739878861137896`*^9}, {3.773987965425336*^9, 3.7739879715632877`*^9}, 
   3.773988098774023*^9, 3.7739883193781385`*^9, {3.7739884099852057`*^9, 
   3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, {
   3.7739891227568517`*^9, 3.77398915009042*^9}, {3.7739892774900556`*^9, 
   3.773989291800435*^9}, {3.7739896060525217`*^9, 3.773989635013425*^9}, {
   3.7751890832095585`*^9, 3.7751890882413054`*^9}, {3.7751894923762302`*^9, 
   3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 
   3.7751912606478214`*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, {
   3.775194496052539*^9, 3.7751945353727713`*^9}, {3.7751945737174063`*^9, 
   3.775194621343042*^9}, {3.775194667862669*^9, 3.7751947598351893`*^9}, {
   3.7751948235734253`*^9, 3.7751949415953684`*^9}, {3.775195100078847*^9, 
   3.77519512113822*^9}, {3.7751954506873007`*^9, 3.775195467864645*^9}, {
   3.775270786870551*^9, 3.775270796325161*^9}, {3.7752708274391947`*^9, 
   3.775270839737406*^9}, {3.7752709283091574`*^9, 3.7752709474534383`*^9}, {
   3.7752710502850266`*^9, 3.7752711744130797`*^9}, {3.7752712273079033`*^9, 
   3.7752713060364757`*^9}, {3.775271448825513*^9, 3.7752714699277525`*^9}, {
   3.775271509321142*^9, 3.775271585609558*^9}, {3.775271620653377*^9, 
   3.77527180192237*^9}, {3.781671264558541*^9, 3.7816712751556396`*^9}, {
   3.7816715257512035`*^9, 3.781671526206021*^9}, 3.781671612475748*^9, {
   3.781672177985033*^9, 3.7816722548545895`*^9}, {3.7816755757937236`*^9, 
   3.7816756936745577`*^9}, 3.781675873086305*^9, {3.7816761808096905`*^9, 
   3.7816762075777946`*^9}, {3.788077170199604*^9, 3.7880772443461285`*^9}, 
   3.8175324221718016`*^9, {3.817532645653172*^9, 3.817532680712221*^9}, {
   3.8200248875082335`*^9, 3.8200249266511517`*^9}, 3.8200249735130763`*^9, 
   3.820025011696958*^9},ExpressionUUID->"b73cc722-0125-4647-a0cb-\
7389fd1fe38e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"NEW", " ", "DEFS"}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", 
           RowBox[{"RECTANGLE", "[", 
            RowBox[{"ly_", ",", "lz_"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", 
             "mZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", 
           RowBox[{"RECTANGLE", "[", 
            RowBox[{"ly", ",", "lz", ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", 
           RowBox[{"RECTANGLE", "[", 
            RowBox[{"ly_", ",", "lz_"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", 
           RowBox[{"RECTANGLE", "[", 
            RowBox[{"ly", ",", "lz", ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", 
           RowBox[{"RECTANGLE", "[", 
            RowBox[{"ly_", ",", "lz_"}], "]"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"ly", ",", "lz", ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", 
           RowBox[{"RECTANGLE", "[", 
            RowBox[{"ly_", ",", "lz_", ",", "iy_"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", 
             "mZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "r0", ",", "h0", ",", "ix0", ",", "ux", ",", "\[Delta]ux", ",", "EE1",
          ",", "EE2", ",", "EE3", ",", "AA1", ",", "AA2", ",", "AA3", ",", 
         "fx1", ",", "fx2", ",", "fx3", ",", "nl", ",", "rule"}], "}"}], ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"nl", "=", 
         RowBox[{"{", 
          RowBox[{"n1", ",", "n2"}], "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"r0", "=", 
         RowBox[{
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"h0", "=", 
         RowBox[{"Simplify", "[", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{"r0", ".", "r0"}], "]"}], ",", " ", 
           RowBox[{
            RowBox[{"L", ">", "0"}], "&&", 
            RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"ix0", "=", 
         RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ux", "[", "i_", "]"}], ":=", 
         RowBox[{"ix0", ".", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"nl", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\[Delta]ux", "[", "i_", "]"}], ":=", 
         RowBox[{"\[Delta]", "[", 
          RowBox[{"ux", "[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"rule", " ", ":=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"a1_", ",", "a2_", ",", "a3_"}], "}"}], "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a1", ",", "a2", ",", "a3"}], "}"}]}], ",", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"a1_", ",", "a2_"}], "}"}], "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a1", ",", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"a1", "+", "a2"}], ")"}], "/", "2"}], ",", "a2"}], 
             "}"}]}], ",", 
           RowBox[{"a1_", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a1", ",", "a1", ",", "a1"}], "}"}]}]}], "}"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"EE1", ",", "EE2", ",", "EE3"}], "}"}], "=", 
         RowBox[{"EE", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"AA1", ",", "AA2", ",", "AA3"}], "}"}], "=", 
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "*", 
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "&"}], ",", 
           RowBox[{"Transpose", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"ly", "/.", "rule"}], ",", 
              RowBox[{"lz", "/.", "rule"}]}], "}"}], "]"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"fx1", ",", "fx2", ",", "fx3"}], "}"}], "=", " ", 
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"#", ".", "ix0"}], "&"}], ",", 
           RowBox[{"Transpose", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"fX", "/.", "rule"}], ",", 
              RowBox[{"fY", "/.", "rule"}], ",", 
              RowBox[{"fZ", "/.", "rule"}]}], "}"}], "]"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         FractionBox["1", 
          RowBox[{"30", " ", 
           SuperscriptBox["h0", "2"]}]], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"AA1", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", "EE1"}], "+", 
                  RowBox[{"2", " ", "EE2"}], "-", "EE3"}], ")"}]}], "+", 
               RowBox[{"2", " ", "AA2", " ", 
                RowBox[{"(", 
                 RowBox[{"EE1", "+", 
                  RowBox[{"8", " ", "EE2"}], "+", "EE3"}], ")"}]}], "+", 
               RowBox[{"AA3", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "EE1"}], "+", 
                  RowBox[{"2", " ", "EE2"}], "+", 
                  RowBox[{"4", " ", "EE3"}]}], ")"}]}]}], ")"}]}], " ", "h0", 
            " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"ux", "[", "1", "]"}]}], "+", 
              RowBox[{"ux", "[", "2", "]"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
              RowBox[{"\[Delta]ux", "[", "2", "]"}]}], ")"}]}], "+", 
           RowBox[{"5", " ", 
            SuperscriptBox["h0", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"fx1", " ", 
               RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
              RowBox[{"fx3", " ", 
               RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", 
              RowBox[{"2", " ", "fx2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Delta]ux", "[", "1", "]"}], "+", 
                 RowBox[{"\[Delta]ux", "[", "2", "]"}]}], ")"}]}]}], 
             ")"}]}]}], ")"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"circle", " ", "cross"}], "-", "section"}], "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", 
           RowBox[{"CIRCLE", "[", "d_", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", 
             "mZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", 
           RowBox[{"CIRCLE", "[", 
            RowBox[{"d", ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", 
           RowBox[{"CIRCLE", "[", "d_", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", 
           RowBox[{"CIRCLE", "[", 
            RowBox[{"d", ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", 
           RowBox[{"CIRCLE", "[", "d_", "]"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE", ",", "\[Nu]\[Nu]"}], "}"}], ",", 
           RowBox[{"CIRCLE", "[", 
            RowBox[{"d", ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE_", ",", "\[Nu]\[Nu]_"}], "}"}], ",", 
           RowBox[{"CIRCLE", "[", 
            RowBox[{"d_", ",", "iy_"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", 
             "mZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "r0", ",", "h0", ",", "ix0", ",", "ux", ",", "\[Delta]ux", ",", "EE1",
          ",", "EE2", ",", "EE3", ",", "AA1", ",", "AA2", ",", "AA3", ",", 
         "fx1", ",", "fx2", ",", "fx3", ",", "nl", ",", "rule"}], "}"}], ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"nl", "=", 
         RowBox[{"{", 
          RowBox[{"n1", ",", "n2"}], "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"r0", "=", 
         RowBox[{
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"h0", "=", 
         RowBox[{"Simplify", "[", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{"r0", ".", "r0"}], "]"}], ",", " ", 
           RowBox[{
            RowBox[{"L", ">", "0"}], "&&", 
            RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"ix0", "=", 
         RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ux", "[", "i_", "]"}], ":=", 
         RowBox[{"ix0", ".", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"nl", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\[Delta]ux", "[", "i_", "]"}], ":=", 
         RowBox[{"\[Delta]", "[", 
          RowBox[{"ux", "[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"rule", " ", ":=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"a1_", ",", "a2_", ",", "a3_"}], "}"}], "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a1", ",", "a2", ",", "a3"}], "}"}]}], ",", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"a1_", ",", "a2_"}], "}"}], "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a1", ",", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"a1", "+", "a2"}], ")"}], "/", "2"}], ",", "a2"}], 
             "}"}]}], ",", 
           RowBox[{"a1_", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a1", ",", "a1", ",", "a1"}], "}"}]}]}], "}"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"EE1", ",", "EE2", ",", "EE3"}], "}"}], "=", 
         RowBox[{"EE", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"AA1", ",", "AA2", ",", "AA3"}], "}"}], "=", 
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Pi", "/", "4"}], "*", 
             RowBox[{"#", "^", "2"}]}], "&"}], ",", 
           RowBox[{"d", "/.", "rule"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"fx1", ",", "fx2", ",", "fx3"}], "}"}], "=", " ", 
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"#", ".", "ix0"}], "&"}], ",", 
           RowBox[{"Transpose", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"fX", "/.", "rule"}], ",", 
              RowBox[{"fY", "/.", "rule"}], ",", 
              RowBox[{"fZ", "/.", "rule"}]}], "}"}], "]"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         FractionBox["1", 
          RowBox[{"30", " ", 
           SuperscriptBox["h0", "2"]}]], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"AA1", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", "EE1"}], "+", 
                  RowBox[{"2", " ", "EE2"}], "-", "EE3"}], ")"}]}], "+", 
               RowBox[{"2", " ", "AA2", " ", 
                RowBox[{"(", 
                 RowBox[{"EE1", "+", 
                  RowBox[{"8", " ", "EE2"}], "+", "EE3"}], ")"}]}], "+", 
               RowBox[{"AA3", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "EE1"}], "+", 
                  RowBox[{"2", " ", "EE2"}], "+", 
                  RowBox[{"4", " ", "EE3"}]}], ")"}]}]}], ")"}]}], " ", "h0", 
            " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"ux", "[", "1", "]"}]}], "+", 
              RowBox[{"ux", "[", "2", "]"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
              RowBox[{"\[Delta]ux", "[", "2", "]"}]}], ")"}]}], "+", 
           RowBox[{"5", " ", 
            SuperscriptBox["h0", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"fx1", " ", 
               RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
              RowBox[{"fx3", " ", 
               RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", 
              RowBox[{"2", " ", "fx2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Delta]ux", "[", "1", "]"}], "+", 
                 RowBox[{"\[Delta]ux", "[", "2", "]"}]}], ")"}]}]}], 
             ")"}]}]}], ")"}]}]}]}], "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.4426466268192453`*^9, 3.4426467788544455`*^9}, {
   3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 
   3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, {
   3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 
   3.4461862553468*^9}, {3.446186292506*^9, 3.4461863473556004`*^9}, {
   3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 
   3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, {
   3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 
   3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, {
   3.4938811515079627`*^9, 3.4938811517107615`*^9}, {3.4941655092594*^9, 
   3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, {
   3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 
   3.4957207485294*^9}, {3.4957208264826*^9, 3.4957208443914003`*^9}, 
   3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 
   3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, {
   3.4957212942609997`*^9, 3.495721324993*^9}, {3.4975823349274*^9, 
   3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, {
   3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 
   3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, {
   3.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 
   3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, {
   3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 
   3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, {
   3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, {
   3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 
   3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, {
   3.5007044087455997`*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 
   3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, {
   3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 
   3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, {
   3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 
   3.5007163483716*^9}, {3.5007163981823997`*^9, 3.5007164168244*^9}, {
   3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 
   3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, {
   3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 
   3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, {
   3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 
   3.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, {
   3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 
   3.5009593527897997`*^9}, {3.5625699941459312`*^9, 
   3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, {
   3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 
   3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, {
   3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 
   3.6297781672591486`*^9}, {3.6297782105906267`*^9, 
   3.6297787648833303`*^9}, {3.6297788067577257`*^9, 
   3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, {
   3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 
   3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, {
   3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, {
   3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 
   3.6298707174286036`*^9}, {3.6298707896411304`*^9, 
   3.6298709878862786`*^9}, {3.6306592122375627`*^9, 
   3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 
   3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 
   3.6308359887799683`*^9}, {3.6308362111739593`*^9, 
   3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 
   3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {
   3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 
   3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {
   3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 
   3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, {
   3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 
   3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, {
   3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 
   3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, {
   3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 
   3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, {
   3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 
   3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, {
   3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 
   3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 
   3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {
   3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 
   3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, {
   3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, {
   3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 
   3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, {
   3.685341231602439*^9, 3.6853412388978567`*^9}, 3.6853430337255144`*^9, {
   3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {
   3.68585391622186*^9, 3.6858539266884584`*^9}, {3.685853962796524*^9, 
   3.685853970925989*^9}, 3.6858541341643257`*^9, {3.685854449069337*^9, 
   3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, {
   3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^9, 
   3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {
   3.68596614502913*^9, 3.68596618077918*^9}, {3.6859665004496274`*^9, 
   3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {
   3.6860123360453115`*^9, 3.6860123945753937`*^9}, {3.6860124484754686`*^9, 
   3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 
   3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 
   3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 
   3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {
   3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, {
   3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, {
   3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 
   3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, {
   3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 
   3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, {
   3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {
   3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 
   3.6871473693028083`*^9}, {3.6874228236597347`*^9, 
   3.6874228709898005`*^9}, {3.6874231158501434`*^9, 
   3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, {
   3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 
   3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 
   3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, {
   3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 
   3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, {
   3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 
   3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, {
   3.6924127522818885`*^9, 3.6924127586918974`*^9}, {3.69241285349203*^9, 
   3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, {
   3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 
   3.6924137594552984`*^9}, {3.6924168804381475`*^9, 3.692416890318161*^9}, {
   3.692416926028211*^9, 3.6924169565082536`*^9}, {3.6924169983583126`*^9, 
   3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, {
   3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 
   3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, {
   3.69277257982156*^9, 3.6927725838615656`*^9}, {3.692855931835436*^9, 
   3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, {
   3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 
   3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, {
   3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 
   3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^9, 
   3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, {
   3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, {
   3.6937158692541003`*^9, 3.693715869654101*^9}, {3.6937159892942686`*^9, 
   3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, {
   3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 
   3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, {
   3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 
   3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, {
   3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 
   3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, {
   3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 
   3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, {
   3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 
   3.6942313193904014`*^9}, {3.6942313582004557`*^9, 
   3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, {
   3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 
   3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, {
   3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 
   3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 
   3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, {
   3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 
   3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, {
   3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 
   3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 
   3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, {
   3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 
   3.7496992868619986`*^9}, {3.7496993728466873`*^9, 3.749699375486853*^9}, {
   3.7530189177531705`*^9, 3.753018918350237*^9}, {3.753018991800671*^9, 
   3.753019041865839*^9}, {3.7530191095313196`*^9, 3.7530191100576744`*^9}, 
   3.753019155952956*^9, {3.7530192458219423`*^9, 3.753019353286773*^9}, {
   3.773986323215969*^9, 3.7739864366876383`*^9}, {3.7739864700193005`*^9, 
   3.7739865885966825`*^9}, {3.7739869332783327`*^9, 3.7739870501829805`*^9}, 
   3.773987085528166*^9, {3.7739872536160583`*^9, 3.773987270466986*^9}, {
   3.773987482712697*^9, 3.7739875221812735`*^9}, {3.773987740298462*^9, 
   3.7739877466065903`*^9}, {3.7739878599976892`*^9, 
   3.7739878861137896`*^9}, {3.773987965425336*^9, 3.7739879715632877`*^9}, 
   3.773988098774023*^9, 3.7739883193781385`*^9, {3.7739884099852057`*^9, 
   3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, {
   3.7739891227568517`*^9, 3.77398915009042*^9}, {3.7739892774900556`*^9, 
   3.773989291800435*^9}, {3.7739896060525217`*^9, 3.773989635013425*^9}, {
   3.7751890832095585`*^9, 3.7751890882413054`*^9}, {3.7751894923762302`*^9, 
   3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 
   3.7751912606478214`*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, {
   3.775194496052539*^9, 3.7751945353727713`*^9}, {3.7751945737174063`*^9, 
   3.775194621343042*^9}, {3.775194667862669*^9, 3.7751947598351893`*^9}, {
   3.7751948235734253`*^9, 3.7751949415953684`*^9}, {3.775195100078847*^9, 
   3.77519512113822*^9}, {3.7751954506873007`*^9, 3.775195467864645*^9}, {
   3.775270786870551*^9, 3.775270796325161*^9}, {3.7752708274391947`*^9, 
   3.775270839737406*^9}, {3.7752709283091574`*^9, 3.7752709474534383`*^9}, {
   3.7752710502850266`*^9, 3.7752711744130797`*^9}, {3.7752712273079033`*^9, 
   3.7752713060364757`*^9}, {3.775271448825513*^9, 3.7752714699277525`*^9}, {
   3.775271509321142*^9, 3.775271585609558*^9}, {3.775271620653377*^9, 
   3.77527180192237*^9}, {3.781671264558541*^9, 3.7816712751556396`*^9}, {
   3.7816715257512035`*^9, 3.781671526206021*^9}, 3.781671612475748*^9, {
   3.781672177985033*^9, 3.7816722548545895`*^9}, {3.7816755757937236`*^9, 
   3.7816756936745577`*^9}, 3.781675873086305*^9, {3.7816761808096905`*^9, 
   3.7816762075777946`*^9}, {3.788077170199604*^9, 3.7880772443461285`*^9}, 
   3.8175324221718016`*^9, {3.817532645653172*^9, 3.817532680712221*^9}, {
   3.8200248875082335`*^9, 3.8200249266511517`*^9}, 3.8200249735130763`*^9, 
   3.820025011696958*^9},ExpressionUUID->"60749396-a101-4238-9cbc-\
127984080635"]
}, Closed]],

Cell[CellGroupData[{

Cell["BAR ELEMENT (evnt) defs", "Subsection",
 InitializationCell->True,
 CellChangeTimes->{{3.753018875511382*^9, 3.7530188786265306`*^9}, {
   3.7878946919412775`*^9, 3.7878946924724035`*^9}, 3.7878949434473147`*^9, {
   3.817439189246712*^9, 3.8174391911071873`*^9}, 
   3.8431828238589272`*^9},ExpressionUUID->"96951bca-732f-4404-94a1-\
f038cbce51e0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MEC", "-", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"EVNT", ",", 
         RowBox[{"{", 
          RowBox[{"s0_", ",", "sol0_"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4426466268192453`*^9, 3.4426467788544455`*^9}, {
   3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 
   3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, {
   3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 
   3.4461862553468*^9}, {3.446186292506*^9, 3.4461863473556004`*^9}, {
   3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 
   3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, {
   3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 
   3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, {
   3.4938811515079627`*^9, 3.4938811517107615`*^9}, {3.4941655092594*^9, 
   3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, {
   3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 
   3.4957207485294*^9}, {3.4957208264826*^9, 3.4957208443914003`*^9}, 
   3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 
   3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, {
   3.4957212942609997`*^9, 3.495721324993*^9}, {3.4975823349274*^9, 
   3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, {
   3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 
   3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, {
   3.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 
   3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, {
   3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 
   3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, {
   3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, {
   3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 
   3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, {
   3.5007044087455997`*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 
   3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, {
   3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 
   3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, {
   3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 
   3.5007163483716*^9}, {3.5007163981823997`*^9, 3.5007164168244*^9}, {
   3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 
   3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, {
   3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 
   3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, {
   3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 
   3.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, {
   3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 
   3.5009593527897997`*^9}, {3.5625699941459312`*^9, 
   3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, {
   3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 
   3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, {
   3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 
   3.6297781672591486`*^9}, {3.6297782105906267`*^9, 
   3.6297787648833303`*^9}, {3.6297788067577257`*^9, 
   3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, {
   3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 
   3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, {
   3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, {
   3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 
   3.6298707174286036`*^9}, {3.6298707896411304`*^9, 
   3.6298709878862786`*^9}, {3.6306592122375627`*^9, 
   3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 
   3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 
   3.6308359887799683`*^9}, {3.6308362111739593`*^9, 
   3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 
   3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {
   3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 
   3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {
   3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 
   3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, {
   3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 
   3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, {
   3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 
   3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, {
   3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 
   3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, {
   3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 
   3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, {
   3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 
   3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 
   3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {
   3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 
   3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, {
   3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, {
   3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 
   3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, {
   3.685341231602439*^9, 3.6853412388978567`*^9}, 3.6853430337255144`*^9, {
   3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {
   3.68585391622186*^9, 3.6858539266884584`*^9}, {3.685853962796524*^9, 
   3.685853970925989*^9}, 3.6858541341643257`*^9, {3.685854449069337*^9, 
   3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, {
   3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^9, 
   3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {
   3.68596614502913*^9, 3.68596618077918*^9}, {3.6859665004496274`*^9, 
   3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {
   3.6860123360453115`*^9, 3.6860123945753937`*^9}, {3.6860124484754686`*^9, 
   3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 
   3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 
   3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 
   3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {
   3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, {
   3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, {
   3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 
   3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, {
   3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 
   3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, {
   3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {
   3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 
   3.6871473693028083`*^9}, {3.6874228236597347`*^9, 
   3.6874228709898005`*^9}, {3.6874231158501434`*^9, 
   3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, {
   3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 
   3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 
   3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, {
   3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 
   3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, {
   3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 
   3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, {
   3.6924127522818885`*^9, 3.6924127586918974`*^9}, {3.69241285349203*^9, 
   3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, {
   3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 
   3.6924137594552984`*^9}, {3.6924168804381475`*^9, 3.692416890318161*^9}, {
   3.692416926028211*^9, 3.6924169565082536`*^9}, {3.6924169983583126`*^9, 
   3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, {
   3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 
   3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, {
   3.69277257982156*^9, 3.6927725838615656`*^9}, {3.692855931835436*^9, 
   3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, {
   3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 
   3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, {
   3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 
   3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^9, 
   3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, {
   3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, {
   3.6937158692541003`*^9, 3.693715869654101*^9}, {3.6937159892942686`*^9, 
   3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, {
   3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 
   3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, {
   3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 
   3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, {
   3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 
   3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, {
   3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 
   3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, {
   3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 
   3.6942313193904014`*^9}, {3.6942313582004557`*^9, 
   3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, {
   3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 
   3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, {
   3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 
   3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 
   3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, {
   3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 
   3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, {
   3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 
   3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 
   3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, {
   3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 
   3.7496992868619986`*^9}, {3.7496993728466873`*^9, 3.749699375486853*^9}, {
   3.7530189177531705`*^9, 3.753018918350237*^9}, {3.753018991800671*^9, 
   3.753019041865839*^9}, {3.7530191095313196`*^9, 3.7530191100576744`*^9}, 
   3.753019155952956*^9, {3.7530192458219423`*^9, 3.753019353286773*^9}, {
   3.773986323215969*^9, 3.7739864366876383`*^9}, {3.7739864700193005`*^9, 
   3.7739865885966825`*^9}, {3.7739869332783327`*^9, 3.7739870501829805`*^9}, 
   3.773987085528166*^9, {3.7739872536160583`*^9, 3.773987270466986*^9}, {
   3.773987482712697*^9, 3.7739875221812735`*^9}, {3.773987740298462*^9, 
   3.7739877466065903`*^9}, {3.7739878599976892`*^9, 
   3.7739878861137896`*^9}, {3.773987965425336*^9, 3.7739879715632877`*^9}, 
   3.773988098774023*^9, 3.7739883193781385`*^9, {3.7739884099852057`*^9, 
   3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, {
   3.7739891227568517`*^9, 3.77398915009042*^9}, {3.7739892774900556`*^9, 
   3.773989291800435*^9}, {3.7739896060525217`*^9, 3.773989635013425*^9}, {
   3.7751890832095585`*^9, 3.7751890882413054`*^9}, {3.7751894923762302`*^9, 
   3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 
   3.7751912606478214`*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, {
   3.775194496052539*^9, 3.7751945353727713`*^9}, {3.7751945737174063`*^9, 
   3.775194621343042*^9}, {3.775194667862669*^9, 3.7751947598351893`*^9}, {
   3.7751948235734253`*^9, 3.7751949415953684`*^9}, {3.775195100078847*^9, 
   3.77519512113822*^9}, {3.7751954506873007`*^9, 3.775195467864645*^9}, {
   3.775270786870551*^9, 3.775270796325161*^9}, {3.7752708274391947`*^9, 
   3.775270839737406*^9}, {3.7752709283091574`*^9, 3.7752709474534383`*^9}, {
   3.7752710502850266`*^9, 3.7752711744130797`*^9}, {3.7752712273079033`*^9, 
   3.7752713060364757`*^9}, {3.775271448825513*^9, 3.7752714699277525`*^9}, {
   3.775271509321142*^9, 3.775271585609558*^9}, {3.775271620653377*^9, 
   3.77527180192237*^9}, {3.781671264558541*^9, 3.7816712751556396`*^9}, {
   3.7816715257512035`*^9, 3.781671526206021*^9}, 3.781671612475748*^9, {
   3.781672177985033*^9, 3.7816722548545895`*^9}, {3.7816755757937236`*^9, 
   3.7816756936745577`*^9}, 3.781675873086305*^9, {3.7816761808096905`*^9, 
   3.7816762075777946`*^9}, {3.788077170199604*^9, 3.7880772443461285`*^9}, {
   3.817439204000356*^9, 3.8174392066998005`*^9}, {3.817439295580332*^9, 
   3.817439307456877*^9}, 3.817521235605838*^9, 3.843182831518036*^9},
 CellLabel->
  "In[130]:=",ExpressionUUID->"4fc8b321-3152-4221-b61b-184e4731bed3"]
}, Closed]],

Cell[CellGroupData[{

Cell["BAR ELEMENT (vibr) defs", "Subsection",
 InitializationCell->True,
 CellChangeTimes->{{3.7530188810407906`*^9, 3.753018884630788*^9}, {
   3.7878946971705894`*^9, 3.7878946984332533`*^9}, 
   3.787894946958498*^9},ExpressionUUID->"4776b426-629c-430e-b1ee-\
96bd72401cb3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MEC", "-", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", 
           RowBox[{"{", "AA_", "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE", ",", "\[Rho]\[Rho]"}], "}"}], ",", 
           RowBox[{"{", "AA", "}"}], ",", 
           RowBox[{"{", "0", "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", 
           RowBox[{"{", "AA_", "}"}], ",", 
           RowBox[{"{", "fx_", "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "r0", ",", "h0", ",", "ix0", ",", "ux", ",", "\[Delta]ux", ",", "EE1",
          ",", "EE2", ",", "EE3", ",", "AA1", ",", "AA2", ",", "AA3", ",", 
         "fx1", ",", "fx2", ",", "fx3", ",", "nl", ",", "rule"}], "}"}], ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"nl", "=", 
         RowBox[{"{", 
          RowBox[{"n1", ",", "n2"}], "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"r0", "=", 
         RowBox[{
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"h0", "=", 
         RowBox[{"Simplify", "[", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{"r0", ".", "r0"}], "]"}], ",", " ", 
           RowBox[{
            RowBox[{"L", ">", "0"}], "&&", 
            RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"ix0", "=", 
         RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ux", "[", 
          RowBox[{"1", ",", "0"}], "]"}], "=", 
         RowBox[{
          RowBox[{"ix0", ".", 
           RowBox[{"fun", "[", 
            RowBox[{"[", 
             RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], "/.", 
          RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ux", "[", 
          RowBox[{"1", ",", "2"}], "]"}], "=", 
         RowBox[{
          RowBox[{"ix0", ".", 
           RowBox[{"fun", "[", 
            RowBox[{"[", 
             RowBox[{"n1", ",", "2"}], "]"}], "]"}]}], "/.", 
          RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ux", "[", 
          RowBox[{"2", ",", "0"}], "]"}], "=", 
         RowBox[{
          RowBox[{"ix0", ".", 
           RowBox[{"fun", "[", 
            RowBox[{"[", 
             RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], "/.", 
          RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ux", "[", 
          RowBox[{"2", ",", "2"}], "]"}], "=", 
         RowBox[{
          RowBox[{"ix0", ".", 
           RowBox[{"fun", "[", 
            RowBox[{"[", 
             RowBox[{"n2", ",", "2"}], "]"}], "]"}]}], "/.", 
          RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\[Delta]ux", "[", 
          RowBox[{"1", ",", "0"}], "]"}], "=", 
         RowBox[{"\[Delta]", "[", 
          RowBox[{"ux", "[", 
           RowBox[{"1", ",", "0"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\[Delta]ux", "[", 
          RowBox[{"2", ",", "0"}], "]"}], "=", 
         RowBox[{"\[Delta]", "[", 
          RowBox[{"ux", "[", 
           RowBox[{"2", ",", "0"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         FractionBox["1", 
          RowBox[{"6", " ", "h0"}]], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"3", " ", "fx", " ", 
            SuperscriptBox["h0", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Delta]ux", "[", 
               RowBox[{"1", ",", "0"}], "]"}], "+", 
              RowBox[{"\[Delta]ux", "[", 
               RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "-", 
           RowBox[{"AA", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"6", " ", "EE", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"ux", "[", 
                  RowBox[{"1", ",", "0"}], "]"}], "-", 
                 RowBox[{"ux", "[", 
                  RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Delta]ux", "[", 
                  RowBox[{"1", ",", "0"}], "]"}], "-", 
                 RowBox[{"\[Delta]ux", "[", 
                  RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox["h0", "2"], " ", "\[Rho]\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"ux", "[", 
                   RowBox[{"1", ",", "2"}], "]"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", 
                    RowBox[{"\[Delta]ux", "[", 
                    RowBox[{"1", ",", "0"}], "]"}]}], "+", 
                    RowBox[{"\[Delta]ux", "[", 
                    RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", 
                 RowBox[{
                  RowBox[{"ux", "[", 
                   RowBox[{"2", ",", "2"}], "]"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"\[Delta]ux", "[", 
                    RowBox[{"1", ",", "0"}], "]"}], "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Delta]ux", "[", 
                    RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
             ")"}]}]}], ")"}]}]}]}], "]"}]}], ";"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4426466268192453`*^9, 3.4426467788544455`*^9}, {
   3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 
   3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, {
   3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 
   3.4461862553468*^9}, {3.446186292506*^9, 3.4461863473556004`*^9}, {
   3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 
   3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, {
   3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 
   3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, {
   3.4938811515079627`*^9, 3.4938811517107615`*^9}, {3.4941655092594*^9, 
   3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, {
   3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 
   3.4957207485294*^9}, {3.4957208264826*^9, 3.4957208443914003`*^9}, 
   3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 
   3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, {
   3.4957212942609997`*^9, 3.495721324993*^9}, {3.4975823349274*^9, 
   3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, {
   3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 
   3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, {
   3.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 
   3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, {
   3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 
   3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, {
   3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, {
   3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 
   3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, {
   3.5007044087455997`*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 
   3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, {
   3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 
   3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, {
   3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 
   3.5007163483716*^9}, {3.5007163981823997`*^9, 3.5007164168244*^9}, {
   3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 
   3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, {
   3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 
   3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, {
   3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 
   3.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, {
   3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 
   3.5009593527897997`*^9}, {3.5625699941459312`*^9, 
   3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, {
   3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 
   3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, {
   3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 
   3.6297781672591486`*^9}, {3.6297782105906267`*^9, 
   3.6297787648833303`*^9}, {3.6297788067577257`*^9, 
   3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, {
   3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 
   3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, {
   3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, {
   3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 
   3.6298707174286036`*^9}, {3.6298707896411304`*^9, 
   3.6298709878862786`*^9}, {3.6306592122375627`*^9, 
   3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 
   3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 
   3.6308359887799683`*^9}, {3.6308362111739593`*^9, 
   3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 
   3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {
   3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 
   3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {
   3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 
   3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, {
   3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 
   3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, {
   3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 
   3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, {
   3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 
   3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, {
   3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 
   3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, {
   3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 
   3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 
   3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {
   3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 
   3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, {
   3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, {
   3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 
   3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, {
   3.685341231602439*^9, 3.6853412388978567`*^9}, 3.6853430337255144`*^9, {
   3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {
   3.68585391622186*^9, 3.6858539266884584`*^9}, {3.685853962796524*^9, 
   3.685853970925989*^9}, 3.6858541341643257`*^9, {3.685854449069337*^9, 
   3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, {
   3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^9, 
   3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {
   3.68596614502913*^9, 3.68596618077918*^9}, {3.6859665004496274`*^9, 
   3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {
   3.6860123360453115`*^9, 3.6860123945753937`*^9}, {3.6860124484754686`*^9, 
   3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 
   3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 
   3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 
   3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {
   3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, {
   3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, {
   3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 
   3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, {
   3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 
   3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, {
   3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {
   3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 
   3.6871473693028083`*^9}, {3.6874228236597347`*^9, 
   3.6874228709898005`*^9}, {3.6874231158501434`*^9, 
   3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, {
   3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 
   3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 
   3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, {
   3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 
   3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, {
   3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 
   3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, {
   3.6924127522818885`*^9, 3.6924127586918974`*^9}, {3.69241285349203*^9, 
   3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, {
   3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 
   3.6924137594552984`*^9}, {3.6924168804381475`*^9, 3.692416890318161*^9}, {
   3.692416926028211*^9, 3.6924169565082536`*^9}, {3.6924169983583126`*^9, 
   3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, {
   3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 
   3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, {
   3.69277257982156*^9, 3.6927725838615656`*^9}, {3.692855931835436*^9, 
   3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, {
   3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 
   3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, {
   3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 
   3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^9, 
   3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, {
   3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, {
   3.6937158692541003`*^9, 3.693715869654101*^9}, {3.6937159892942686`*^9, 
   3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, {
   3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 
   3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, {
   3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 
   3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, {
   3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 
   3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, {
   3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 
   3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, {
   3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 
   3.6942313193904014`*^9}, {3.6942313582004557`*^9, 
   3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, {
   3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 
   3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, {
   3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 
   3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 
   3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, {
   3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 
   3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, {
   3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 
   3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 
   3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, {
   3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 
   3.7496992868619986`*^9}, {3.7496993728466873`*^9, 3.749699375486853*^9}, {
   3.753019452689951*^9, 3.753019484970434*^9}, {3.7530196011509657`*^9, 
   3.753019673352596*^9}, {3.753019831211974*^9, 3.75301989711664*^9}, 
   3.7530200045416303`*^9, {3.7885030525030107`*^9, 3.7885030592759047`*^9}, {
   3.818904755546356*^9, 3.8189048128461294`*^9}, 3.820024775397682*^9},
 CellLabel->
  "In[131]:=",ExpressionUUID->"19608ffd-3ddf-4f38-ba52-74a0d4e3027f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[Delta]W", "[", 
     RowBox[{"VIBR", ",", 
      RowBox[{"{", 
       RowBox[{"GENERICBAR", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"EE_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", 
          RowBox[{"{", "AA_", "}"}], ",", 
          RowBox[{"{", "ff_", "}"}]}], "}"}], ",", 
        RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "NN", ",", "\[Xi]", ",", "r", ",", "r\[Xi]", ",", "h0", ",", "i\[Xi]", 
        ",", "s", ",", "x", ",", "uu", ",", "u0", ",", "u2", ",", 
        "\[Delta]uu", ",", "F", ",", "\[Delta]wint", ",", "\[Delta]wext", ",",
         "\[Delta]wine", ",", "AAA", ",", "EEE", ",", "\[Rho]\[Rho]\[Rho]", 
        ",", "fff"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"NN", "=", " ", 
        RowBox[{"LAGRANGE", "[", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Length", "[", "node", "]"}], ",", "\[Xi]"}], "}"}], 
          "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"mapping", " ", "to", " ", "material", " ", "system"}], 
        "*)"}], "\[IndentingNewLine]", 
       RowBox[{"r", "=", 
        RowBox[{"\[Xi]", "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"fun", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"Last", "[", "node", "]"}], ",", "1"}], "]"}], "]"}], 
           "-", 
           RowBox[{"fun", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"First", "[", "node", "]"}], ",", "1"}], "]"}], "]"}]}],
           ")"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"r\[Xi]", "=", 
        RowBox[{
         SubscriptBox["\[PartialD]", "\[Xi]"], "r"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"h0", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{"r\[Xi]", ".", "r\[Xi]"}], "]"}], ",", " ", 
          RowBox[{
           RowBox[{"L", ">", "0"}], "&&", 
           RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"i\[Xi]", " ", "=", 
        RowBox[{"r\[Xi]", "/", "h0"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"s", "=", 
        RowBox[{"i\[Xi]", " ", ".", "r"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"x", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"First", "[", "node", "]"}], ",", "1"}], "]"}], "]"}], 
          ".", "i\[Xi]"}], "+", "s"}]}], " ", ";", "\[IndentingNewLine]", 
       RowBox[{"(*", "approximation", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"uu", "=", " ", 
        RowBox[{"i\[Xi]", ".", 
         RowBox[{"(", 
          RowBox[{"NN", ".", 
           RowBox[{"fun", "[", 
            RowBox[{"[", 
             RowBox[{"node", ",", "2"}], "]"}], "]"}]}], ")"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"u0", "=", " ", 
        RowBox[{"uu", "/.", 
         RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"u2", "=", " ", 
        RowBox[{"uu", " ", "/.", 
         RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"stress", " ", "resultant"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"F", " ", "=", 
        RowBox[{
         RowBox[{"EE", "[", "x", "]"}], " ", 
         RowBox[{"AA", "[", "x", "]"}], "  ", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[PartialD]", "\[Xi]"], "u0"}], "/", "h0"}]}]}], ";",
        "\[IndentingNewLine]", 
       RowBox[{"\[Delta]wint", "=", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"\[Delta]", "[", 
           RowBox[{
            RowBox[{
             SubscriptBox["\[PartialD]", "\[Xi]"], "u0"}], "/", "h0"}], 
           "]"}]}], " ", "F"}]}], " ", ";", "\[IndentingNewLine]", 
       RowBox[{"\[Delta]wext", "=", 
        RowBox[{
         RowBox[{"\[Delta]", "[", "u0", "]"}], " ", 
         RowBox[{"ff", "[", "x", "]"}]}]}], " ", ";", "\[IndentingNewLine]", 
       RowBox[{"\[Delta]wine", "=", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"\[Delta]", "[", "u0", "]"}]}], " ", 
         RowBox[{"\[Rho]\[Rho]", "[", "x", "]"}], " ", 
         RowBox[{"AA", "[", "x", "]"}], " ", "u2"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Integrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Delta]wint", "+", "\[Delta]wext", "+", "\[Delta]wine"}],
            ")"}], "*", "h0"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Xi]", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.4426466268192453`*^9, 3.4426467788544455`*^9}, {
   3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 
   3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, {
   3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 
   3.4461862553468*^9}, {3.446186292506*^9, 3.4461863473556004`*^9}, {
   3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 
   3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, {
   3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 
   3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, {
   3.4938811515079627`*^9, 3.4938811517107615`*^9}, {3.4941655092594*^9, 
   3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, {
   3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 
   3.4957207485294*^9}, {3.4957208264826*^9, 3.4957208443914003`*^9}, 
   3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 
   3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, {
   3.4957212942609997`*^9, 3.495721324993*^9}, {3.4975823349274*^9, 
   3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, {
   3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 
   3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, {
   3.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 
   3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, {
   3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 
   3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, {
   3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, {
   3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 
   3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, {
   3.5007044087455997`*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 
   3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, {
   3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 
   3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, {
   3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 
   3.5007163483716*^9}, {3.5007163981823997`*^9, 3.5007164168244*^9}, {
   3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 
   3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, {
   3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 
   3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, {
   3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 
   3.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, {
   3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 
   3.5009593527897997`*^9}, {3.5625699941459312`*^9, 
   3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, {
   3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 
   3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, {
   3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 
   3.6297781672591486`*^9}, {3.6297782105906267`*^9, 
   3.6297787648833303`*^9}, {3.6297788067577257`*^9, 
   3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, {
   3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 
   3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, {
   3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, {
   3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 
   3.6298707174286036`*^9}, {3.6298707896411304`*^9, 
   3.6298709878862786`*^9}, {3.6306592122375627`*^9, 
   3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 
   3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 
   3.6308359887799683`*^9}, {3.6308362111739593`*^9, 
   3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 
   3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {
   3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 
   3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {
   3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 
   3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, {
   3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 
   3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, {
   3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 
   3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, {
   3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 
   3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, {
   3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 
   3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, {
   3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 
   3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 
   3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {
   3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 
   3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, {
   3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, {
   3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 
   3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, {
   3.685341231602439*^9, 3.6853412388978567`*^9}, 3.6853430337255144`*^9, {
   3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {
   3.68585391622186*^9, 3.6858539266884584`*^9}, {3.685853962796524*^9, 
   3.685853970925989*^9}, 3.6858541341643257`*^9, {3.685854449069337*^9, 
   3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, {
   3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^9, 
   3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {
   3.68596614502913*^9, 3.68596618077918*^9}, {3.6859665004496274`*^9, 
   3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {
   3.6860123360453115`*^9, 3.6860123945753937`*^9}, {3.6860124484754686`*^9, 
   3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 
   3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 
   3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 
   3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {
   3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, {
   3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, {
   3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 
   3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, {
   3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 
   3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, {
   3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {
   3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 
   3.6871473693028083`*^9}, {3.6874228236597347`*^9, 
   3.6874228709898005`*^9}, {3.6874231158501434`*^9, 
   3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, {
   3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 
   3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 
   3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, {
   3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 
   3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, {
   3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 
   3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, {
   3.6924127522818885`*^9, 3.6924127586918974`*^9}, {3.69241285349203*^9, 
   3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, {
   3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 
   3.6924137594552984`*^9}, {3.6924168804381475`*^9, 3.692416890318161*^9}, {
   3.692416926028211*^9, 3.6924169565082536`*^9}, {3.6924169983583126`*^9, 
   3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, {
   3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 
   3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, {
   3.69277257982156*^9, 3.6927725838615656`*^9}, {3.692855931835436*^9, 
   3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, {
   3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 
   3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, {
   3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 
   3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^9, 
   3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, {
   3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, {
   3.6937158692541003`*^9, 3.693715869654101*^9}, {3.6937159892942686`*^9, 
   3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, {
   3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 
   3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, {
   3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 
   3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, {
   3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 
   3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, {
   3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 
   3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, {
   3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 
   3.6942313193904014`*^9}, {3.6942313582004557`*^9, 
   3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, {
   3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 
   3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, {
   3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 
   3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 
   3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, {
   3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 
   3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, {
   3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 
   3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 
   3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, {
   3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 
   3.7496992868619986`*^9}, {3.7496993728466873`*^9, 3.749699375486853*^9}, {
   3.753019452689951*^9, 3.753019484970434*^9}, {3.7530196011509657`*^9, 
   3.753019673352596*^9}, {3.753019831211974*^9, 3.75301989711664*^9}, 
   3.7530200045416303`*^9, {3.7885030525030107`*^9, 3.7885030592759047`*^9}, {
   3.818904755546356*^9, 3.8189048128461294`*^9}, 
   3.820024775397682*^9},ExpressionUUID->"98537c0c-63f0-47c3-8482-\
b9e3ddb77204"]
}, Closed]],

Cell[CellGroupData[{

Cell["BAR ELEMENT (stab) defs ", "Subsection",
 InitializationCell->True,
 CellChangeTimes->{{3.753018875511382*^9, 3.7530188786265306`*^9}, {
   3.756267607734783*^9, 3.756267609945469*^9}, 
   3.7878947030333853`*^9},ExpressionUUID->"6b345e87-d31d-4230-bb6f-\
be7a6e7c1c79"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MEC", "-", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"STAB", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE_", "}"}], ",", 
           RowBox[{"{", "AA_", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE", "}"}], ",", 
           RowBox[{"{", "AA", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"STAB", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE_", "}"}], ",", 
           RowBox[{"{", "AA_", "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE", "}"}], ",", 
           RowBox[{"{", "AA", "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4426466268192453`*^9, 3.4426467788544455`*^9}, {
   3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 
   3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, {
   3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 
   3.4461862553468*^9}, {3.446186292506*^9, 3.4461863473556004`*^9}, {
   3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 
   3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, {
   3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 
   3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, {
   3.4938811515079627`*^9, 3.4938811517107615`*^9}, {3.4941655092594*^9, 
   3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, {
   3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 
   3.4957207485294*^9}, {3.4957208264826*^9, 3.4957208443914003`*^9}, 
   3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 
   3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, {
   3.4957212942609997`*^9, 3.495721324993*^9}, {3.4975823349274*^9, 
   3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, {
   3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 
   3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, {
   3.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 
   3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, {
   3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 
   3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, {
   3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, {
   3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 
   3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, {
   3.5007044087455997`*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 
   3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, {
   3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 
   3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, {
   3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 
   3.5007163483716*^9}, {3.5007163981823997`*^9, 3.5007164168244*^9}, {
   3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 
   3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, {
   3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 
   3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, {
   3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 
   3.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, {
   3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 
   3.5009593527897997`*^9}, {3.5625699941459312`*^9, 
   3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, {
   3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 
   3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, {
   3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 
   3.6297781672591486`*^9}, {3.6297782105906267`*^9, 
   3.6297787648833303`*^9}, {3.6297788067577257`*^9, 
   3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, {
   3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 
   3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, {
   3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, {
   3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 
   3.6298707174286036`*^9}, {3.6298707896411304`*^9, 
   3.6298709878862786`*^9}, {3.6306592122375627`*^9, 
   3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 
   3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 
   3.6308359887799683`*^9}, {3.6308362111739593`*^9, 
   3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 
   3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {
   3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 
   3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {
   3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 
   3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, {
   3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 
   3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, {
   3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 
   3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, {
   3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 
   3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, {
   3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 
   3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, {
   3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 
   3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 
   3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {
   3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 
   3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, {
   3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, {
   3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 
   3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, {
   3.685341231602439*^9, 3.6853412388978567`*^9}, 3.6853430337255144`*^9, {
   3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {
   3.68585391622186*^9, 3.6858539266884584`*^9}, {3.685853962796524*^9, 
   3.685853970925989*^9}, 3.6858541341643257`*^9, {3.685854449069337*^9, 
   3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, {
   3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^9, 
   3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {
   3.68596614502913*^9, 3.68596618077918*^9}, {3.6859665004496274`*^9, 
   3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {
   3.6860123360453115`*^9, 3.6860123945753937`*^9}, {3.6860124484754686`*^9, 
   3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 
   3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 
   3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 
   3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {
   3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, {
   3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, {
   3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 
   3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, {
   3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 
   3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, {
   3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {
   3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 
   3.6871473693028083`*^9}, {3.6874228236597347`*^9, 
   3.6874228709898005`*^9}, {3.6874231158501434`*^9, 
   3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, {
   3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 
   3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 
   3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, {
   3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 
   3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, {
   3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 
   3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, {
   3.6924127522818885`*^9, 3.6924127586918974`*^9}, {3.69241285349203*^9, 
   3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, {
   3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 
   3.6924137594552984`*^9}, {3.6924168804381475`*^9, 3.692416890318161*^9}, {
   3.692416926028211*^9, 3.6924169565082536`*^9}, {3.6924169983583126`*^9, 
   3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, {
   3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 
   3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, {
   3.69277257982156*^9, 3.6927725838615656`*^9}, {3.692855931835436*^9, 
   3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, {
   3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 
   3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, {
   3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 
   3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^9, 
   3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, {
   3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, {
   3.6937158692541003`*^9, 3.693715869654101*^9}, {3.6937159892942686`*^9, 
   3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, {
   3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 
   3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, {
   3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 
   3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, {
   3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 
   3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, {
   3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 
   3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, {
   3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 
   3.6942313193904014`*^9}, {3.6942313582004557`*^9, 
   3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, {
   3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 
   3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, {
   3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 
   3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 
   3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, {
   3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 
   3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, {
   3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 
   3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 
   3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, {
   3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 
   3.7496992868619986`*^9}, {3.7496993728466873`*^9, 3.749699375486853*^9}, {
   3.7530189177531705`*^9, 3.753018918350237*^9}, {3.753018991800671*^9, 
   3.753019041865839*^9}, {3.7530191095313196`*^9, 3.7530191100576744`*^9}, 
   3.753019155952956*^9, {3.7530192458219423`*^9, 3.753019353286773*^9}, {
   3.7562676525896635`*^9, 3.756267707097726*^9}, {3.7606671297197995`*^9, 
   3.7606671693669567`*^9}, {3.7885030281334577`*^9, 3.78850303141934*^9}, {
   3.7885030692138157`*^9, 3.7885030730711346`*^9}, {3.7888331112134047`*^9, 
   3.788833121736215*^9}, 3.7890211201729145`*^9, {3.850965595585096*^9, 
   3.8509656478473897`*^9}},
 CellLabel->
  "In[133]:=",ExpressionUUID->"dd1c907a-a96b-4d55-9240-d7d238ef5a54"]
}, Closed]],

Cell[CellGroupData[{

Cell["BAR ELEMENT (nonl) defs ", "Subsection",
 InitializationCell->True,
 CellChangeTimes->{{3.7530188810407906`*^9, 3.753018884630788*^9}, {
  3.753019375620509*^9, 3.753019378557259*^9}, {3.787894723689047*^9, 
  3.7878947246772313`*^9}},ExpressionUUID->"ff9d3315-2987-4a71-8623-\
d2457431d8bf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MEC", "-", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"NONL", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "CC_", "}"}], ",", 
           RowBox[{"{", "AA_", "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"NONL", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "CC", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA", ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"NONL", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "CC_", "}"}], ",", 
           RowBox[{"{", "AA_", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"NONL", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "CC", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA", ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"NONL", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "CC_", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA_", ",", "iy_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"NONL", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "CC", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA", ",", "iy"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"NONL", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "CC_", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA_", ",", "iy_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\[CapitalDelta]h", ",", "h0", ",", "ix", ",", "iz", ",", "NN", ",", 
         "fx", ",", "fy", ",", "fz", ",", "x", ",", "uu", ",", "vv", ",", 
         "ww", ",", "EE", ",", "\[Delta]EE", ",", "\[Delta]wint", ",", 
         "\[Delta]wext"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"\[CapitalDelta]h", "=", 
         RowBox[{
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"h0", "=", 
         RowBox[{"Simplify", "[", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{"\[CapitalDelta]h", ".", "\[CapitalDelta]h"}], "]"}], ",",
            " ", 
           RowBox[{
            RowBox[{"L", ">", "0"}], "&&", 
            RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"ix", "=", 
         RowBox[{"\[CapitalDelta]h", "/", "h0"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"iz", "=", 
         RowBox[{"ix", 
          StyleBox["\[Cross]", "OperatorCharacter"], 
          StyleBox["iy", "OperatorCharacter"]}]}], 
        StyleBox[";", "OperatorCharacter"], "\[IndentingNewLine]", 
        RowBox[{"NN", "=", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"1", "-", 
            RowBox[{"x", "/", "h0"}]}], ",", 
           RowBox[{"x", "/", "h0"}]}], "}"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"fx", " ", "=", 
         RowBox[{"ix", ".", 
          RowBox[{"{", 
           RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"fy", " ", "=", 
         RowBox[{"iy", ".", 
          RowBox[{"{", 
           RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"fz", " ", "=", 
         RowBox[{"iz", ".", 
          RowBox[{"{", 
           RowBox[{"fX", ",", "fY", ",", "fZ"}], "}"}]}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"uu", "=", " ", 
         RowBox[{"NN", ".", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"fun", "[", 
              RowBox[{"[", 
               RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "ix"}], ",", 
            RowBox[{
             RowBox[{"fun", "[", 
              RowBox[{"[", 
               RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "ix"}]}], 
           "}"}]}]}], " ", ";", "\[IndentingNewLine]", 
        RowBox[{"vv", "=", " ", 
         RowBox[{"NN", ".", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"fun", "[", 
              RowBox[{"[", 
               RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iy"}], ",", 
            RowBox[{
             RowBox[{"fun", "[", 
              RowBox[{"[", 
               RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iy"}]}], 
           "}"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"ww", "=", " ", 
         RowBox[{"NN", ".", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"fun", "[", 
              RowBox[{"[", 
               RowBox[{"n1", ",", "2"}], "]"}], "]"}], ".", "iz"}], ",", 
            RowBox[{
             RowBox[{"fun", "[", 
              RowBox[{"[", 
               RowBox[{"n2", ",", "2"}], "]"}], "]"}], ".", "iz"}]}], 
           "}"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"EE", "=", " ", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[PartialD]", "x"], "uu"}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{
             SubscriptBox["\[PartialD]", "x"], 
             RowBox[{"{", 
              RowBox[{"uu", ",", "vv", ",", "ww"}], "}"}]}], ".", 
            RowBox[{
             SubscriptBox["\[PartialD]", "x"], 
             RowBox[{"{", 
              RowBox[{"uu", ",", "vv", ",", "ww"}], "}"}]}]}], "/", "2"}]}]}],
         ";", "\[IndentingNewLine]", 
        RowBox[{"\[Delta]EE", "=", 
         RowBox[{
          RowBox[{"\[Delta]", "[", 
           RowBox[{
            SubscriptBox["\[PartialD]", "x"], "uu"}], "]"}], "+", 
          RowBox[{
           RowBox[{"\[Delta]", "[", 
            RowBox[{
             SubscriptBox["\[PartialD]", "x"], 
             RowBox[{"{", 
              RowBox[{"uu", ",", "vv", ",", "ww"}], "}"}]}], "]"}], ".", 
           RowBox[{
            SubscriptBox["\[PartialD]", "x"], 
            RowBox[{"{", 
             RowBox[{"uu", ",", "vv", ",", "ww"}], "}"}]}]}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"\[Delta]wint", "=", 
         RowBox[{
          RowBox[{"-", "\[Delta]EE"}], " ", "CC", " ", "AA", " ", "EE"}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"\[Delta]wext", "=", 
         RowBox[{
          RowBox[{"\[Delta]", "[", 
           RowBox[{"{", 
            RowBox[{"uu", ",", "vv", ",", "ww"}], "}"}], "]"}], ".", 
          RowBox[{"{", " ", 
           RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{"Integrate", "[", 
          RowBox[{
           RowBox[{"\[Delta]wint", "+", "\[Delta]wext"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "0", ",", "h0"}], "}"}]}], "]"}], "]"}]}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4426466268192453`*^9, 3.4426467788544455`*^9}, {
   3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 
   3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, {
   3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 
   3.4461862553468*^9}, {3.446186292506*^9, 3.4461863473556004`*^9}, {
   3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 
   3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, {
   3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 
   3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, {
   3.4938811515079627`*^9, 3.4938811517107615`*^9}, {3.4941655092594*^9, 
   3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, {
   3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 
   3.4957207485294*^9}, {3.4957208264826*^9, 3.4957208443914003`*^9}, 
   3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 
   3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, {
   3.4957212942609997`*^9, 3.495721324993*^9}, {3.4975823349274*^9, 
   3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, {
   3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 
   3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, {
   3.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 
   3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, {
   3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 
   3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, {
   3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, {
   3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 
   3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, {
   3.5007044087455997`*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 
   3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, {
   3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 
   3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, {
   3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 
   3.5007163483716*^9}, {3.5007163981823997`*^9, 3.5007164168244*^9}, {
   3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 
   3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, {
   3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 
   3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, {
   3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 
   3.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, {
   3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 
   3.5009593527897997`*^9}, {3.5625699941459312`*^9, 
   3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, {
   3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 
   3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, {
   3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 
   3.6297781672591486`*^9}, {3.6297782105906267`*^9, 
   3.6297787648833303`*^9}, {3.6297788067577257`*^9, 
   3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, {
   3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 
   3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, {
   3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, {
   3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 
   3.6298707174286036`*^9}, {3.6298707896411304`*^9, 
   3.6298709878862786`*^9}, {3.6306592122375627`*^9, 
   3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 
   3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 
   3.6308359887799683`*^9}, {3.6308362111739593`*^9, 
   3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 
   3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {
   3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 
   3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {
   3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 
   3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, {
   3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 
   3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, {
   3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 
   3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, {
   3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 
   3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, {
   3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 
   3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, {
   3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 
   3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 
   3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {
   3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 
   3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, {
   3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, {
   3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 
   3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, {
   3.685341231602439*^9, 3.6853412388978567`*^9}, 3.6853430337255144`*^9, {
   3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {
   3.68585391622186*^9, 3.6858539266884584`*^9}, {3.685853962796524*^9, 
   3.685853970925989*^9}, 3.6858541341643257`*^9, {3.685854449069337*^9, 
   3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, {
   3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^9, 
   3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {
   3.68596614502913*^9, 3.68596618077918*^9}, {3.6859665004496274`*^9, 
   3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {
   3.6860123360453115`*^9, 3.6860123945753937`*^9}, {3.6860124484754686`*^9, 
   3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 
   3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 
   3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 
   3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {
   3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, {
   3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, {
   3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 
   3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, {
   3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 
   3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, {
   3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {
   3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 
   3.6871473693028083`*^9}, {3.6874228236597347`*^9, 
   3.6874228709898005`*^9}, {3.6874231158501434`*^9, 
   3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, {
   3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 
   3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 
   3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, {
   3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 
   3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, {
   3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 
   3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, {
   3.6924127522818885`*^9, 3.6924127586918974`*^9}, {3.69241285349203*^9, 
   3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, {
   3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 
   3.6924137594552984`*^9}, {3.6924168804381475`*^9, 3.692416890318161*^9}, {
   3.692416926028211*^9, 3.6924169565082536`*^9}, {3.6924169983583126`*^9, 
   3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, {
   3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 
   3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, {
   3.69277257982156*^9, 3.6927725838615656`*^9}, {3.692855931835436*^9, 
   3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, {
   3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 
   3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, {
   3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 
   3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^9, 
   3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, {
   3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, {
   3.6937158692541003`*^9, 3.693715869654101*^9}, {3.6937159892942686`*^9, 
   3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, {
   3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 
   3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, {
   3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 
   3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, {
   3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 
   3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, {
   3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 
   3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, {
   3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 
   3.6942313193904014`*^9}, {3.6942313582004557`*^9, 
   3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, {
   3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 
   3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, {
   3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 
   3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 
   3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, {
   3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 
   3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, {
   3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 
   3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 
   3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, {
   3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 
   3.7496992868619986`*^9}, {3.7496993728466873`*^9, 3.749699375486853*^9}, 
   3.753020083991325*^9, {3.7530201458865404`*^9, 3.753020147585074*^9}, {
   3.7894406851054068`*^9, 3.7894406982798967`*^9}, {3.789456736272064*^9, 
   3.789456831643631*^9}, {3.8216141464350357`*^9, 3.821614249465634*^9}, {
   3.8217727479052997`*^9, 3.8217727798972683`*^9}, {3.8217728196181326`*^9, 
   3.821772858846867*^9}, {3.8217733416981835`*^9, 3.8217733490574265`*^9}, {
   3.852693331201587*^9, 3.8526934718702607`*^9}},
 CellLabel->
  "In[135]:=",ExpressionUUID->"d244a5d1-e20a-4a79-bd30-6faac10e4612"]
}, Closed]],

Cell[CellGroupData[{

Cell["BAR ELEMENT (tmec) defs ", "Subsection",
 InitializationCell->True,
 CellChangeTimes->{{3.7530188810407906`*^9, 3.753018884630788*^9}, {
   3.753019375620509*^9, 3.753019378557259*^9}, {3.7530200248509674`*^9, 
   3.7530200339415607`*^9}, 3.7575039589097877`*^9, {3.7878947510437098`*^9, 
   3.7878947515126114`*^9}, 
   3.7901298129642305`*^9},ExpressionUUID->"a9a446bc-1278-42f2-bc96-\
5aafbb0cf322"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MEC", "-", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"TMEC", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE_", ",", "\[Alpha]\[Alpha]_", ",", "kk_"}], "}"}], ",", 
           RowBox[{"{", "AA_", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{"ss_", ",", "\[CurlyTheta]0_"}], "}"}], "}"}]}], "}"}], 
         ",", 
         RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"TMEC", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE", ",", "\[Alpha]\[Alpha]", ",", "kk"}], "}"}], ",", 
           RowBox[{"{", "AA", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"ss", ",", "\[CurlyTheta]0"}], "}"}]}], "}"}]}], "}"}], 
         ",", 
         RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"TMEC", ",", 
       RowBox[{"{", 
        RowBox[{"BAR", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE_", ",", "\[Alpha]\[Alpha]_", ",", "kk_"}], "}"}], ",", 
           RowBox[{"{", "AA_", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"ss_", ",", "\[CurlyTheta]0_"}], "}"}]}], "}"}]}], 
          "}"}], ",", 
         RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "NN", ",", "\[Xi]", ",", "r", ",", "r\[Xi]", ",", "h0", ",", "i\[Xi]",
          ",", "s", ",", "x", ",", "uu", ",", "\[CurlyTheta]\[CurlyTheta]", 
         ",", "F", ",", "Q", ",", "\[Delta]w", ",", "\[Delta]p", ",", "AAA", 
         ",", "EEE", ",", "ffX", ",", "ffY", ",", "ffZ", ",", "kkk", ",", 
         "sss", ",", "\[Alpha]\[Alpha]\[Alpha]"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"shape", " ", "functions"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"NN", "=", " ", 
         RowBox[{"LAGRANGE", "[", 
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Length", "[", "node", "]"}], ",", "\[Xi]"}], "}"}], 
           "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"mapping", " ", "to", " ", "material", " ", "system"}], 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{"r", "=", 
         RowBox[{"\[Xi]", "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"fun", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"Last", "[", "node", "]"}], ",", "1"}], "]"}], "]"}], 
            "-", 
            RowBox[{"fun", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"First", "[", "node", "]"}], ",", "1"}], "]"}], 
             "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"r\[Xi]", "=", 
         RowBox[{
          SubscriptBox["\[PartialD]", "\[Xi]"], "r"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"h0", "=", 
         RowBox[{"Simplify", "[", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{"r\[Xi]", ".", "r\[Xi]"}], "]"}], ",", " ", 
           RowBox[{
            RowBox[{"L", ">", "0"}], "&&", 
            RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"i\[Xi]", " ", "=", 
         RowBox[{"r\[Xi]", "/", "h0"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"s", "=", 
         RowBox[{"i\[Xi]", " ", ".", "r"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"x", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"fun", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"First", "[", "node", "]"}], ",", "1"}], "]"}], "]"}], 
           ".", "i\[Xi]"}], "+", "s"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", "approximation", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"uu", "=", " ", 
         RowBox[{"i\[Xi]", ".", 
          RowBox[{"(", 
           RowBox[{"NN", ".", 
            RowBox[{"fun", "[", 
             RowBox[{"[", 
              RowBox[{"node", ",", "2"}], "]"}], "]"}]}], ")"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"\[CurlyTheta]\[CurlyTheta]", "=", " ", 
         RowBox[{"NN", ".", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"node", ",", "4"}], "]"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"stress", " ", "resultant"}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"AAA", "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Head", "[", "AA", "]"}], "===", "Function"}], ",", 
           RowBox[{"AA", "[", "x", "]"}], ",", "AA"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"EEE", "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Head", "[", "EE", "]"}], "===", "Function"}], ",", 
           RowBox[{"EE", "[", "x", "]"}], ",", "EE"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"\[Alpha]\[Alpha]\[Alpha]", "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Head", "[", "\[Alpha]\[Alpha]", "]"}], "===", 
            "Function"}], ",", 
           RowBox[{"\[Alpha]\[Alpha]", "[", "x", "]"}], ",", 
           "\[Alpha]\[Alpha]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"kkk", "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Head", "[", "kk", "]"}], "===", "Function"}], ",", 
           RowBox[{"kk", "[", "x", "]"}], ",", "kk"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"ffX", "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Head", "[", "fX", "]"}], "===", "Function"}], ",", 
           RowBox[{"fX", "[", "x", "]"}], ",", "fX"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"ffY", "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Head", "[", "fY", "]"}], "===", "Function"}], ",", 
           RowBox[{"fY", "[", "x", "]"}], ",", "fY"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"ffZ", "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Head", "[", "fZ", "]"}], "===", "Function"}], ",", 
           RowBox[{"fZ", "[", "x", "]"}], ",", "fZ"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"sss", "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Head", "[", "ss", "]"}], "===", "Function"}], ",", 
           RowBox[{"ss", "[", "x", "]"}], ",", "ss"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"F", " ", "=", 
         RowBox[{"EEE", " ", "AAA", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{
              SubscriptBox["\[PartialD]", "\[Xi]"], "uu"}], "/", "h0"}], "-", 
            RowBox[{"\[Alpha]\[Alpha]\[Alpha]", " ", 
             RowBox[{"(", 
              RowBox[{"\[CurlyTheta]\[CurlyTheta]", "-", "\[CurlyTheta]0"}], 
              ")"}]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Q", "=", 
         RowBox[{
          RowBox[{"-", "kkk"}], " ", "AAA", " ", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[PartialD]", "\[Xi]"], 
            "\[CurlyTheta]\[CurlyTheta]"}], "/", "h0"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"\[Delta]w", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            RowBox[{"\[Delta]\[Delta]", "[", 
             RowBox[{
              RowBox[{
               SubscriptBox["\[PartialD]", "\[Xi]"], "uu"}], "/", "h0"}], 
             "]"}]}], " ", "F"}], "+", 
          RowBox[{
           RowBox[{"\[Delta]\[Delta]", "[", "uu", "]"}], " ", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"ffX", ",", "ffY", ",", "ffZ"}], "}"}], ".", 
            "i\[Xi]"}]}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"\[Delta]p", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Delta]\[Delta]", "[", 
            RowBox[{
             RowBox[{
              SubscriptBox["\[PartialD]", "\[Xi]"], 
              "\[CurlyTheta]\[CurlyTheta]"}], "/", "h0"}], "]"}], " ", "Q"}], 
          " ", "+", 
          RowBox[{
           RowBox[{
           "\[Delta]\[Delta]", "[", "\[CurlyTheta]\[CurlyTheta]", "]"}], " ", 
           "sss"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Integrate", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Delta]w", "+", "\[Delta]p"}], ")"}], " ", "h0"}], ",", 
          RowBox[{"{", 
           RowBox[{"\[Xi]", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4426466268192453`*^9, 3.4426467788544455`*^9}, {
   3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 
   3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, {
   3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 
   3.4461862553468*^9}, {3.446186292506*^9, 3.4461863473556004`*^9}, {
   3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 
   3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, {
   3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 
   3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, {
   3.4938811515079627`*^9, 3.4938811517107615`*^9}, {3.4941655092594*^9, 
   3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, {
   3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 
   3.4957207485294*^9}, {3.4957208264826*^9, 3.4957208443914003`*^9}, 
   3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 
   3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, {
   3.4957212942609997`*^9, 3.495721324993*^9}, {3.4975823349274*^9, 
   3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, {
   3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 
   3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, {
   3.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 
   3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, {
   3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 
   3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, {
   3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, {
   3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 
   3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, {
   3.5007044087455997`*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 
   3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, {
   3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 
   3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, {
   3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 
   3.5007163483716*^9}, {3.5007163981823997`*^9, 3.5007164168244*^9}, {
   3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 
   3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, {
   3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 
   3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, {
   3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 
   3.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, {
   3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 
   3.5009593527897997`*^9}, {3.5625699941459312`*^9, 
   3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, {
   3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 
   3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, {
   3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 
   3.6297781672591486`*^9}, {3.6297782105906267`*^9, 
   3.6297787648833303`*^9}, {3.6297788067577257`*^9, 
   3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, {
   3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 
   3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, {
   3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, {
   3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 
   3.6298707174286036`*^9}, {3.6298707896411304`*^9, 
   3.6298709878862786`*^9}, {3.6306592122375627`*^9, 
   3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 
   3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 
   3.6308359887799683`*^9}, {3.6308362111739593`*^9, 
   3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 
   3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {
   3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 
   3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {
   3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 
   3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, {
   3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 
   3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, {
   3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 
   3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, {
   3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 
   3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, {
   3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 
   3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, {
   3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 
   3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 
   3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {
   3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 
   3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, {
   3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, {
   3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 
   3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, {
   3.685341231602439*^9, 3.6853412388978567`*^9}, 3.6853430337255144`*^9, {
   3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {
   3.68585391622186*^9, 3.6858539266884584`*^9}, {3.685853962796524*^9, 
   3.685853970925989*^9}, 3.6858541341643257`*^9, {3.685854449069337*^9, 
   3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, {
   3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^9, 
   3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {
   3.68596614502913*^9, 3.68596618077918*^9}, {3.6859665004496274`*^9, 
   3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {
   3.6860123360453115`*^9, 3.6860123945753937`*^9}, {3.6860124484754686`*^9, 
   3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 
   3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 
   3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 
   3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {
   3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, {
   3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, {
   3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 
   3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, {
   3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 
   3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, {
   3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {
   3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 
   3.6871473693028083`*^9}, {3.6874228236597347`*^9, 
   3.6874228709898005`*^9}, {3.6874231158501434`*^9, 
   3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, {
   3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 
   3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 
   3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, {
   3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 
   3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, {
   3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 
   3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, {
   3.6924127522818885`*^9, 3.6924127586918974`*^9}, {3.69241285349203*^9, 
   3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, {
   3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 
   3.6924137594552984`*^9}, {3.6924168804381475`*^9, 3.692416890318161*^9}, {
   3.692416926028211*^9, 3.6924169565082536`*^9}, {3.6924169983583126`*^9, 
   3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, {
   3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 
   3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, {
   3.69277257982156*^9, 3.6927725838615656`*^9}, {3.692855931835436*^9, 
   3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, {
   3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 
   3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, {
   3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 
   3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^9, 
   3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, {
   3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, {
   3.6937158692541003`*^9, 3.693715869654101*^9}, {3.6937159892942686`*^9, 
   3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, {
   3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 
   3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, {
   3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 
   3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, {
   3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 
   3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, {
   3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 
   3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, {
   3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 
   3.6942313193904014`*^9}, {3.6942313582004557`*^9, 
   3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, {
   3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 
   3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, {
   3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 
   3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 
   3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, {
   3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 
   3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, {
   3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 
   3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 
   3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, {
   3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 
   3.7496992868619986`*^9}, {3.7496993728466873`*^9, 3.749699375486853*^9}, 
   3.7530202209165316`*^9, {3.7898060059373465`*^9, 3.7898060199153595`*^9}, {
   3.8223694609291615`*^9, 3.8223694626206393`*^9}, {3.850614635752848*^9, 
   3.850614714304345*^9}, {3.8506148466526003`*^9, 3.850615010959174*^9}, {
   3.8506155810199738`*^9, 3.8506156273379755`*^9}},
 CellLabel->
  "In[139]:=",ExpressionUUID->"f88bacdb-15ba-45bb-9f2d-b203c439e479"]
}, Closed]],

Cell[CellGroupData[{

Cell["TORSION ELEMENT (disp) defs", "Subsection",
 InitializationCell->True,
 CellChangeTimes->{{3.753018875511382*^9, 3.7530188786265306`*^9}, {
   3.781589886623744*^9, 3.7815898932426767`*^9}, {3.7878947601549573`*^9, 
   3.787894760728943*^9}, 
   3.7878948945295725`*^9},ExpressionUUID->"3dc8e6c3-a584-4949-b311-\
54b1bddd6999"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MEC", "-", "E1050"}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"TORSION", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "GG_", "}"}], ",", 
           RowBox[{"{", "JJ_", "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"TORSION", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "GG", "}"}], ",", 
           RowBox[{"{", "JJ", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"TORSION", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "GG_", "}"}], ",", 
           RowBox[{"{", "JJ_", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "r0", ",", "h0", ",", "ix0", ",", "\[Theta]x", ",", 
         "\[Delta]\[Theta]x", ",", "GG1", ",", "GG2", ",", "GG3", ",", "JJ1", 
         ",", "JJ2", ",", "JJ3", ",", "mx1", ",", "mx2", ",", "mx3", ",", 
         "nl", ",", "rule"}], "}"}], ",", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"nl", "=", 
         RowBox[{"{", 
          RowBox[{"n1", ",", "n2"}], "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"r0", "=", 
         RowBox[{
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"h0", "=", 
         RowBox[{"Simplify", "[", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{"r0", ".", "r0"}], "]"}], ",", " ", 
           RowBox[{
            RowBox[{"L", ">", "0"}], "&&", 
            RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"ix0", "=", 
         RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\[Theta]x", "[", "i_", "]"}], ":=", 
         RowBox[{"ix0", ".", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"nl", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\[Delta]\[Theta]x", "[", "i_", "]"}], ":=", 
         RowBox[{"\[Delta]", "[", 
          RowBox[{"\[Theta]x", "[", "i", "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"rule", " ", ":=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"a1_", ",", "a2_", ",", "a3_"}], "}"}], "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a1", ",", "a2", ",", "a3"}], "}"}]}], ",", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"a1_", ",", "a2_"}], "}"}], "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a1", ",", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"a1", "+", "a2"}], ")"}], "/", "2"}], ",", "a2"}], 
             "}"}]}], ",", 
           RowBox[{"a1_", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"a1", ",", "a1", ",", "a1"}], "}"}]}]}], "}"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"GG1", ",", "GG2", ",", "GG3"}], "}"}], "=", 
         RowBox[{"GG", "/.", "rule"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"JJ1", ",", "JJ2", ",", "JJ3"}], "}"}], "=", 
         RowBox[{"JJ", " ", "/.", "rule"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"mx1", ",", "mx2", ",", "mx3"}], "}"}], "=", 
         RowBox[{"ix0", ".", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"mX", " ", "/.", "rule"}], ",", 
            RowBox[{"mY", " ", "/.", "rule"}], ",", 
            RowBox[{"mZ", " ", "/.", "rule"}]}], "}"}]}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         FractionBox["1", 
          RowBox[{"30", " ", 
           SuperscriptBox["h0", "2"]}]], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"JJ1", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", "GG1"}], "+", 
                  RowBox[{"2", " ", "GG2"}], "-", "GG3"}], ")"}]}], "+", 
               RowBox[{"2", " ", "JJ2", " ", 
                RowBox[{"(", 
                 RowBox[{"GG1", "+", 
                  RowBox[{"8", " ", "GG2"}], "+", "GG3"}], ")"}]}], "+", 
               RowBox[{"JJ3", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "GG1"}], "+", 
                  RowBox[{"2", " ", "GG2"}], "+", 
                  RowBox[{"4", " ", "GG3"}]}], ")"}]}]}], ")"}]}], " ", "h0", 
            " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"\[Theta]x", "[", "1", "]"}]}], "+", 
              RowBox[{"\[Theta]x", "[", "2", "]"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}]}], "+", 
              RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}]}], ")"}]}], "+", 
           RowBox[{"5", " ", 
            SuperscriptBox["h0", "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"mx1", " ", 
               RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}]}], "+", 
              RowBox[{"mx3", " ", 
               RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}]}], "+", 
              RowBox[{"2", " ", "mx2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}], "+", 
                 RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}]}], ")"}]}]}], 
             ")"}]}]}], ")"}]}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4426466268192453`*^9, 3.4426467788544455`*^9}, {
   3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 
   3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, {
   3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 
   3.4461862553468*^9}, {3.446186292506*^9, 3.4461863473556004`*^9}, {
   3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 
   3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, {
   3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 
   3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, {
   3.4938811515079627`*^9, 3.4938811517107615`*^9}, {3.4941655092594*^9, 
   3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, {
   3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 
   3.4957207485294*^9}, {3.4957208264826*^9, 3.4957208443914003`*^9}, 
   3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 
   3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, {
   3.4957212942609997`*^9, 3.495721324993*^9}, {3.4975823349274*^9, 
   3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, {
   3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 
   3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, {
   3.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 
   3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, {
   3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 
   3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, {
   3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, {
   3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 
   3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, {
   3.5007044087455997`*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 
   3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, {
   3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 
   3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, {
   3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 
   3.5007163483716*^9}, {3.5007163981823997`*^9, 3.5007164168244*^9}, {
   3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 
   3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, {
   3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 
   3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, {
   3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 
   3.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, {
   3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 
   3.5009593527897997`*^9}, {3.5625699941459312`*^9, 
   3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, {
   3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 
   3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, {
   3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 
   3.6297781672591486`*^9}, {3.6297782105906267`*^9, 
   3.6297787648833303`*^9}, {3.6297788067577257`*^9, 
   3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, {
   3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 
   3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, {
   3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, {
   3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 
   3.6298707174286036`*^9}, {3.6298707896411304`*^9, 
   3.6298709878862786`*^9}, {3.6306592122375627`*^9, 
   3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 
   3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 
   3.6308359887799683`*^9}, {3.6308362111739593`*^9, 
   3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 
   3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {
   3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 
   3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {
   3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 
   3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, {
   3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 
   3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, {
   3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 
   3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, {
   3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 
   3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, {
   3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 
   3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, {
   3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 
   3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 
   3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {
   3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 
   3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, {
   3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, {
   3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 
   3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, {
   3.685341231602439*^9, 3.6853412388978567`*^9}, 3.6853430337255144`*^9, {
   3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {
   3.68585391622186*^9, 3.6858539266884584`*^9}, {3.685853962796524*^9, 
   3.685853970925989*^9}, 3.6858541341643257`*^9, {3.685854449069337*^9, 
   3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, {
   3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^9, 
   3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {
   3.68596614502913*^9, 3.68596618077918*^9}, {3.6859665004496274`*^9, 
   3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {
   3.6860123360453115`*^9, 3.6860123945753937`*^9}, {3.6860124484754686`*^9, 
   3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 
   3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 
   3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 
   3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {
   3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, {
   3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, {
   3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 
   3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, {
   3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 
   3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, {
   3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {
   3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 
   3.6871473693028083`*^9}, {3.6874228236597347`*^9, 
   3.6874228709898005`*^9}, {3.6874231158501434`*^9, 
   3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, {
   3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 
   3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 
   3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, {
   3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 
   3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, {
   3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 
   3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, {
   3.6924127522818885`*^9, 3.6924127586918974`*^9}, {3.69241285349203*^9, 
   3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, {
   3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 
   3.6924137594552984`*^9}, {3.6924168804381475`*^9, 3.692416890318161*^9}, {
   3.692416926028211*^9, 3.6924169565082536`*^9}, {3.6924169983583126`*^9, 
   3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, {
   3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 
   3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, {
   3.69277257982156*^9, 3.6927725838615656`*^9}, {3.692855931835436*^9, 
   3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, {
   3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 
   3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, {
   3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 
   3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^9, 
   3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, {
   3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, {
   3.6937158692541003`*^9, 3.693715869654101*^9}, {3.6937159892942686`*^9, 
   3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, {
   3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 
   3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, {
   3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 
   3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, {
   3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 
   3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, {
   3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 
   3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, {
   3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 
   3.6942313193904014`*^9}, {3.6942313582004557`*^9, 
   3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, {
   3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 
   3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, {
   3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 
   3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 
   3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, {
   3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 
   3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, {
   3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 
   3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 
   3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, {
   3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 
   3.7496992868619986`*^9}, {3.7496993728466873`*^9, 3.749699375486853*^9}, {
   3.7530189177531705`*^9, 3.753018918350237*^9}, {3.753018991800671*^9, 
   3.753019041865839*^9}, {3.7530191095313196`*^9, 3.7530191100576744`*^9}, 
   3.753019155952956*^9, {3.7530192458219423`*^9, 3.753019353286773*^9}, {
   3.773986323215969*^9, 3.7739864366876383`*^9}, {3.7739864700193005`*^9, 
   3.7739865885966825`*^9}, {3.7739869332783327`*^9, 3.7739870501829805`*^9}, 
   3.773987085528166*^9, {3.7739872536160583`*^9, 3.773987270466986*^9}, {
   3.773987482712697*^9, 3.7739875221812735`*^9}, {3.773987740298462*^9, 
   3.7739877466065903`*^9}, {3.7739878599976892`*^9, 
   3.7739878861137896`*^9}, {3.773987965425336*^9, 3.7739879715632877`*^9}, 
   3.773988098774023*^9, 3.7739883193781385`*^9, {3.7739884099852057`*^9, 
   3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, {
   3.7739891227568517`*^9, 3.77398915009042*^9}, {3.7739892774900556`*^9, 
   3.773989291800435*^9}, {3.7739896060525217`*^9, 3.773989635013425*^9}, {
   3.7751890832095585`*^9, 3.7751890882413054`*^9}, {3.7751894923762302`*^9, 
   3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 
   3.7751912606478214`*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, {
   3.775194496052539*^9, 3.7751945353727713`*^9}, {3.7751945737174063`*^9, 
   3.775194621343042*^9}, {3.775194667862669*^9, 3.7751947598351893`*^9}, {
   3.7751948235734253`*^9, 3.7751949415953684`*^9}, {3.775195100078847*^9, 
   3.77519512113822*^9}, {3.7751954506873007`*^9, 3.775195467864645*^9}, {
   3.775270786870551*^9, 3.775270796325161*^9}, {3.7752708274391947`*^9, 
   3.775270839737406*^9}, {3.7752709283091574`*^9, 3.7752709474534383`*^9}, {
   3.7752710502850266`*^9, 3.7752711744130797`*^9}, {3.7752712273079033`*^9, 
   3.7752713060364757`*^9}, {3.775271448825513*^9, 3.7752714699277525`*^9}, {
   3.775271509321142*^9, 3.775271585609558*^9}, {3.775271620653377*^9, 
   3.77527180192237*^9}, {3.781589928213842*^9, 3.781590052438653*^9}, {
   3.7815900898176003`*^9, 3.781590109307678*^9}, {3.781590201383393*^9, 
   3.7815902433873234`*^9}, {3.7815905445265956`*^9, 3.781590569573782*^9}, {
   3.7815906952864275`*^9, 3.781590715680611*^9}, {3.7815908323678637`*^9, 
   3.781590881239719*^9}, {3.7815911048122363`*^9, 3.781591119274813*^9}, {
   3.8175324830973916`*^9, 3.817532552103792*^9}, {3.843704806259609*^9, 
   3.843704863557214*^9}, {3.8437049017363043`*^9, 3.8437049180939226`*^9}},
 CellLabel->
  "In[141]:=",ExpressionUUID->"c006909c-6e0d-492b-bdc3-30040bef3c3b"]
}, Closed]],

Cell[CellGroupData[{

Cell["TORSION ELEMENT (evnt) defs", "Subsection",
 InitializationCell->True,
 CellChangeTimes->{{3.753018875511382*^9, 3.7530188786265306`*^9}, {
   3.781589886623744*^9, 3.7815898932426767`*^9}, {3.7878947601549573`*^9, 
   3.787894760728943*^9}, 3.7878948945295725`*^9, {3.817439343565061*^9, 
   3.8174393448082724`*^9}, 
   3.8431828477515774`*^9},ExpressionUUID->"58028165-08f8-486e-8202-\
a1a17b0a485d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MEC", "-", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"EVNT", ",", 
         RowBox[{"{", 
          RowBox[{"s0_", ",", "sol0_"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"TORSION", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}],
       "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"TORSION", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4426466268192453`*^9, 3.4426467788544455`*^9}, {
   3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 
   3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, {
   3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 
   3.4461862553468*^9}, {3.446186292506*^9, 3.4461863473556004`*^9}, {
   3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 
   3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, {
   3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 
   3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, {
   3.4938811515079627`*^9, 3.4938811517107615`*^9}, {3.4941655092594*^9, 
   3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, {
   3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 
   3.4957207485294*^9}, {3.4957208264826*^9, 3.4957208443914003`*^9}, 
   3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 
   3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, {
   3.4957212942609997`*^9, 3.495721324993*^9}, {3.4975823349274*^9, 
   3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, {
   3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 
   3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, {
   3.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 
   3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, {
   3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 
   3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, {
   3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, {
   3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 
   3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, {
   3.5007044087455997`*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 
   3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, {
   3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 
   3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, {
   3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 
   3.5007163483716*^9}, {3.5007163981823997`*^9, 3.5007164168244*^9}, {
   3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 
   3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, {
   3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 
   3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, {
   3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 
   3.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, {
   3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 
   3.5009593527897997`*^9}, {3.5625699941459312`*^9, 
   3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, {
   3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 
   3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, {
   3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 
   3.6297781672591486`*^9}, {3.6297782105906267`*^9, 
   3.6297787648833303`*^9}, {3.6297788067577257`*^9, 
   3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, {
   3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 
   3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, {
   3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, {
   3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 
   3.6298707174286036`*^9}, {3.6298707896411304`*^9, 
   3.6298709878862786`*^9}, {3.6306592122375627`*^9, 
   3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 
   3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 
   3.6308359887799683`*^9}, {3.6308362111739593`*^9, 
   3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 
   3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {
   3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 
   3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {
   3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 
   3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, {
   3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 
   3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, {
   3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 
   3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, {
   3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 
   3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, {
   3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 
   3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, {
   3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 
   3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 
   3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {
   3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 
   3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, {
   3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, {
   3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 
   3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, {
   3.685341231602439*^9, 3.6853412388978567`*^9}, 3.6853430337255144`*^9, {
   3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {
   3.68585391622186*^9, 3.6858539266884584`*^9}, {3.685853962796524*^9, 
   3.685853970925989*^9}, 3.6858541341643257`*^9, {3.685854449069337*^9, 
   3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, {
   3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^9, 
   3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {
   3.68596614502913*^9, 3.68596618077918*^9}, {3.6859665004496274`*^9, 
   3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {
   3.6860123360453115`*^9, 3.6860123945753937`*^9}, {3.6860124484754686`*^9, 
   3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 
   3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 
   3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 
   3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {
   3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, {
   3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, {
   3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 
   3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, {
   3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 
   3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, {
   3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {
   3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 
   3.6871473693028083`*^9}, {3.6874228236597347`*^9, 
   3.6874228709898005`*^9}, {3.6874231158501434`*^9, 
   3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, {
   3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 
   3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 
   3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, {
   3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 
   3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, {
   3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 
   3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, {
   3.6924127522818885`*^9, 3.6924127586918974`*^9}, {3.69241285349203*^9, 
   3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, {
   3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 
   3.6924137594552984`*^9}, {3.6924168804381475`*^9, 3.692416890318161*^9}, {
   3.692416926028211*^9, 3.6924169565082536`*^9}, {3.6924169983583126`*^9, 
   3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, {
   3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 
   3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, {
   3.69277257982156*^9, 3.6927725838615656`*^9}, {3.692855931835436*^9, 
   3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, {
   3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 
   3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, {
   3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 
   3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^9, 
   3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, {
   3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, {
   3.6937158692541003`*^9, 3.693715869654101*^9}, {3.6937159892942686`*^9, 
   3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, {
   3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 
   3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, {
   3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 
   3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, {
   3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 
   3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, {
   3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 
   3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, {
   3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 
   3.6942313193904014`*^9}, {3.6942313582004557`*^9, 
   3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, {
   3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 
   3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, {
   3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 
   3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 
   3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, {
   3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 
   3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, {
   3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 
   3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 
   3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, {
   3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 
   3.7496992868619986`*^9}, {3.7496993728466873`*^9, 3.749699375486853*^9}, {
   3.7530189177531705`*^9, 3.753018918350237*^9}, {3.753018991800671*^9, 
   3.753019041865839*^9}, {3.7530191095313196`*^9, 3.7530191100576744`*^9}, 
   3.753019155952956*^9, {3.7530192458219423`*^9, 3.753019353286773*^9}, {
   3.773986323215969*^9, 3.7739864366876383`*^9}, {3.7739864700193005`*^9, 
   3.7739865885966825`*^9}, {3.7739869332783327`*^9, 3.7739870501829805`*^9}, 
   3.773987085528166*^9, {3.7739872536160583`*^9, 3.773987270466986*^9}, {
   3.773987482712697*^9, 3.7739875221812735`*^9}, {3.773987740298462*^9, 
   3.7739877466065903`*^9}, {3.7739878599976892`*^9, 
   3.7739878861137896`*^9}, {3.773987965425336*^9, 3.7739879715632877`*^9}, 
   3.773988098774023*^9, 3.7739883193781385`*^9, {3.7739884099852057`*^9, 
   3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, {
   3.7739891227568517`*^9, 3.77398915009042*^9}, {3.7739892774900556`*^9, 
   3.773989291800435*^9}, {3.7739896060525217`*^9, 3.773989635013425*^9}, {
   3.7751890832095585`*^9, 3.7751890882413054`*^9}, {3.7751894923762302`*^9, 
   3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 
   3.7751912606478214`*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, {
   3.775194496052539*^9, 3.7751945353727713`*^9}, {3.7751945737174063`*^9, 
   3.775194621343042*^9}, {3.775194667862669*^9, 3.7751947598351893`*^9}, {
   3.7751948235734253`*^9, 3.7751949415953684`*^9}, {3.775195100078847*^9, 
   3.77519512113822*^9}, {3.7751954506873007`*^9, 3.775195467864645*^9}, {
   3.775270786870551*^9, 3.775270796325161*^9}, {3.7752708274391947`*^9, 
   3.775270839737406*^9}, {3.7752709283091574`*^9, 3.7752709474534383`*^9}, {
   3.7752710502850266`*^9, 3.7752711744130797`*^9}, {3.7752712273079033`*^9, 
   3.7752713060364757`*^9}, {3.775271448825513*^9, 3.7752714699277525`*^9}, {
   3.775271509321142*^9, 3.775271585609558*^9}, {3.775271620653377*^9, 
   3.77527180192237*^9}, {3.781589928213842*^9, 3.781590052438653*^9}, {
   3.7815900898176003`*^9, 3.781590109307678*^9}, {3.781590201383393*^9, 
   3.7815902433873234`*^9}, {3.7815905445265956`*^9, 3.781590569573782*^9}, {
   3.7815906952864275`*^9, 3.781590715680611*^9}, {3.7815908323678637`*^9, 
   3.781590881239719*^9}, {3.7815911048122363`*^9, 3.781591119274813*^9}, {
   3.817439386305109*^9, 3.8174394287787733`*^9}, 3.81752126940705*^9, 
   3.8431828427789755`*^9},
 CellLabel->
  "In[143]:=",ExpressionUUID->"3748b005-eba5-4177-b103-b1bc292d66b2"]
}, Closed]],

Cell[CellGroupData[{

Cell["TORSION ELEMENT (vibr) defs", "Subsection",
 InitializationCell->True,
 CellChangeTimes->{{3.753018875511382*^9, 3.7530188786265306`*^9}, {
   3.781589886623744*^9, 3.7815898932426767`*^9}, {3.7878947601549573`*^9, 
   3.787894760728943*^9}, 3.7878948945295725`*^9, {3.78815413936168*^9, 
   3.788154140564639*^9}},ExpressionUUID->"bf88cfe5-1e62-4c1e-b33a-\
ab938a9234a5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MEC", "-", 
    RowBox[{"8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"TORSION", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", 
           RowBox[{"{", "JJ_", "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"TORSION", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"GG", ",", "\[Rho]\[Rho]"}], "}"}], ",", 
           RowBox[{"{", "JJ", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"TORSION", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"GG_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", 
           RowBox[{"{", "JJ_", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"mX_", ",", "mY_", ",", "mZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "r0", ",", "h0", ",", "ix0", ",", "\[Theta]x", ",", 
         "\[Delta]\[Theta]x", ",", "rule", ",", "mx"}], "}"}], ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"r0", "=", 
         RowBox[{
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"h0", "=", 
         RowBox[{"Simplify", "[", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{"r0", ".", "r0"}], "]"}], ",", " ", 
           RowBox[{
            RowBox[{"L", ">", "0"}], "&&", 
            RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"ix0", "=", 
         RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\[Theta]x", "[", 
          RowBox[{"1", ",", "0"}], "]"}], "=", 
         RowBox[{
          RowBox[{"ix0", ".", 
           RowBox[{"fun", "[", 
            RowBox[{"[", 
             RowBox[{"n1", ",", "3"}], "]"}], "]"}]}], "/.", 
          RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\[Theta]x", "[", 
          RowBox[{"1", ",", "2"}], "]"}], "=", 
         RowBox[{
          RowBox[{"ix0", ".", 
           RowBox[{"fun", "[", 
            RowBox[{"[", 
             RowBox[{"n1", ",", "3"}], "]"}], "]"}]}], "/.", 
          RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\[Theta]x", "[", 
          RowBox[{"2", ",", "0"}], "]"}], "=", 
         RowBox[{
          RowBox[{"ix0", ".", 
           RowBox[{"fun", "[", 
            RowBox[{"[", 
             RowBox[{"n2", ",", "3"}], "]"}], "]"}]}], "/.", 
          RowBox[{"DRULE", "[", "0", "]"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\[Theta]x", "[", 
          RowBox[{"2", ",", "2"}], "]"}], "=", 
         RowBox[{
          RowBox[{"ix0", ".", 
           RowBox[{"fun", "[", 
            RowBox[{"[", 
             RowBox[{"n2", ",", "3"}], "]"}], "]"}]}], "/.", 
          RowBox[{"DRULE", "[", "2", "]"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\[Delta]\[Theta]x", "[", 
          RowBox[{"1", ",", "0"}], "]"}], "=", 
         RowBox[{"\[Delta]", "[", 
          RowBox[{"\[Theta]x", "[", 
           RowBox[{"1", ",", "0"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\[Delta]\[Theta]x", "[", 
          RowBox[{"2", ",", "0"}], "]"}], "=", 
         RowBox[{"\[Delta]", "[", 
          RowBox[{"\[Theta]x", "[", 
           RowBox[{"2", ",", "0"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"mx", "=", 
         RowBox[{"ix0", ".", 
          RowBox[{"{", 
           RowBox[{"mX", ",", "mY", ",", "mZ"}], "}"}]}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         FractionBox["1", 
          RowBox[{"6", " ", "h0"}]], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"3", " ", "mx", " ", 
            SuperscriptBox["h0", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Delta]\[Theta]x", "[", 
               RowBox[{"1", ",", "0"}], "]"}], "+", 
              RowBox[{"\[Delta]\[Theta]x", "[", 
               RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "-", 
           RowBox[{"JJ", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"6", " ", "GG", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Theta]x", "[", 
                  RowBox[{"1", ",", "0"}], "]"}], "-", 
                 RowBox[{"\[Theta]x", "[", 
                  RowBox[{"2", ",", "0"}], "]"}]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"\[Delta]\[Theta]x", "[", 
                  RowBox[{"1", ",", "0"}], "]"}], "-", 
                 RowBox[{"\[Delta]\[Theta]x", "[", 
                  RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox["h0", "2"], " ", "\[Rho]\[Rho]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"\[Theta]x", "[", 
                   RowBox[{"1", ",", "2"}], "]"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", 
                    RowBox[{"\[Delta]\[Theta]x", "[", 
                    RowBox[{"1", ",", "0"}], "]"}]}], "+", 
                    RowBox[{"\[Delta]\[Theta]x", "[", 
                    RowBox[{"2", ",", "0"}], "]"}]}], ")"}]}], "+", 
                 RowBox[{
                  RowBox[{"\[Theta]x", "[", 
                   RowBox[{"2", ",", "2"}], "]"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"\[Delta]\[Theta]x", "[", 
                    RowBox[{"1", ",", "0"}], "]"}], "+", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Delta]\[Theta]x", "[", 
                    RowBox[{"2", ",", "0"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
             ")"}]}]}], ")"}]}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4426466268192453`*^9, 3.4426467788544455`*^9}, {
   3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 
   3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, {
   3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 
   3.4461862553468*^9}, {3.446186292506*^9, 3.4461863473556004`*^9}, {
   3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 
   3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, {
   3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 
   3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, {
   3.4938811515079627`*^9, 3.4938811517107615`*^9}, {3.4941655092594*^9, 
   3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, {
   3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 
   3.4957207485294*^9}, {3.4957208264826*^9, 3.4957208443914003`*^9}, 
   3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 
   3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, {
   3.4957212942609997`*^9, 3.495721324993*^9}, {3.4975823349274*^9, 
   3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, {
   3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 
   3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, {
   3.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 
   3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, {
   3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 
   3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, {
   3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, {
   3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 
   3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, {
   3.5007044087455997`*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 
   3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, {
   3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 
   3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, {
   3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 
   3.5007163483716*^9}, {3.5007163981823997`*^9, 3.5007164168244*^9}, {
   3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 
   3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, {
   3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 
   3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, {
   3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 
   3.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, {
   3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 
   3.5009593527897997`*^9}, {3.5625699941459312`*^9, 
   3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, {
   3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 
   3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, {
   3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 
   3.6297781672591486`*^9}, {3.6297782105906267`*^9, 
   3.6297787648833303`*^9}, {3.6297788067577257`*^9, 
   3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, {
   3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 
   3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, {
   3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, {
   3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 
   3.6298707174286036`*^9}, {3.6298707896411304`*^9, 
   3.6298709878862786`*^9}, {3.6306592122375627`*^9, 
   3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 
   3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 
   3.6308359887799683`*^9}, {3.6308362111739593`*^9, 
   3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 
   3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {
   3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 
   3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {
   3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 
   3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, {
   3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 
   3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, {
   3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 
   3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, {
   3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 
   3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, {
   3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 
   3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, {
   3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 
   3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 
   3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {
   3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 
   3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, {
   3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, {
   3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 
   3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, {
   3.685341231602439*^9, 3.6853412388978567`*^9}, 3.6853430337255144`*^9, {
   3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {
   3.68585391622186*^9, 3.6858539266884584`*^9}, {3.685853962796524*^9, 
   3.685853970925989*^9}, 3.6858541341643257`*^9, {3.685854449069337*^9, 
   3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, {
   3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^9, 
   3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {
   3.68596614502913*^9, 3.68596618077918*^9}, {3.6859665004496274`*^9, 
   3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {
   3.6860123360453115`*^9, 3.6860123945753937`*^9}, {3.6860124484754686`*^9, 
   3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 
   3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 
   3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 
   3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {
   3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, {
   3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, {
   3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 
   3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, {
   3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 
   3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, {
   3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {
   3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 
   3.6871473693028083`*^9}, {3.6874228236597347`*^9, 
   3.6874228709898005`*^9}, {3.6874231158501434`*^9, 
   3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, {
   3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 
   3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 
   3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, {
   3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 
   3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, {
   3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 
   3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, {
   3.6924127522818885`*^9, 3.6924127586918974`*^9}, {3.69241285349203*^9, 
   3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, {
   3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 
   3.6924137594552984`*^9}, {3.6924168804381475`*^9, 3.692416890318161*^9}, {
   3.692416926028211*^9, 3.6924169565082536`*^9}, {3.6924169983583126`*^9, 
   3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, {
   3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 
   3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, {
   3.69277257982156*^9, 3.6927725838615656`*^9}, {3.692855931835436*^9, 
   3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, {
   3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 
   3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, {
   3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 
   3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^9, 
   3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, {
   3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, {
   3.6937158692541003`*^9, 3.693715869654101*^9}, {3.6937159892942686`*^9, 
   3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, {
   3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 
   3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, {
   3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 
   3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, {
   3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 
   3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, {
   3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 
   3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, {
   3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 
   3.6942313193904014`*^9}, {3.6942313582004557`*^9, 
   3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, {
   3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 
   3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, {
   3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 
   3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 
   3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, {
   3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 
   3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, {
   3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 
   3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 
   3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, {
   3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 
   3.7496992868619986`*^9}, {3.7496993728466873`*^9, 3.749699375486853*^9}, {
   3.7530189177531705`*^9, 3.753018918350237*^9}, {3.753018991800671*^9, 
   3.753019041865839*^9}, {3.7530191095313196`*^9, 3.7530191100576744`*^9}, 
   3.753019155952956*^9, {3.7530192458219423`*^9, 3.753019353286773*^9}, {
   3.773986323215969*^9, 3.7739864366876383`*^9}, {3.7739864700193005`*^9, 
   3.7739865885966825`*^9}, {3.7739869332783327`*^9, 3.7739870501829805`*^9}, 
   3.773987085528166*^9, {3.7739872536160583`*^9, 3.773987270466986*^9}, {
   3.773987482712697*^9, 3.7739875221812735`*^9}, {3.773987740298462*^9, 
   3.7739877466065903`*^9}, {3.7739878599976892`*^9, 
   3.7739878861137896`*^9}, {3.773987965425336*^9, 3.7739879715632877`*^9}, 
   3.773988098774023*^9, 3.7739883193781385`*^9, {3.7739884099852057`*^9, 
   3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, {
   3.7739891227568517`*^9, 3.77398915009042*^9}, {3.7739892774900556`*^9, 
   3.773989291800435*^9}, {3.7739896060525217`*^9, 3.773989635013425*^9}, {
   3.7751890832095585`*^9, 3.7751890882413054`*^9}, {3.7751894923762302`*^9, 
   3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 
   3.7751912606478214`*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, {
   3.775194496052539*^9, 3.7751945353727713`*^9}, {3.7751945737174063`*^9, 
   3.775194621343042*^9}, {3.775194667862669*^9, 3.7751947598351893`*^9}, {
   3.7751948235734253`*^9, 3.7751949415953684`*^9}, {3.775195100078847*^9, 
   3.77519512113822*^9}, {3.7751954506873007`*^9, 3.775195467864645*^9}, {
   3.775270786870551*^9, 3.775270796325161*^9}, {3.7752708274391947`*^9, 
   3.775270839737406*^9}, {3.7752709283091574`*^9, 3.7752709474534383`*^9}, {
   3.7752710502850266`*^9, 3.7752711744130797`*^9}, {3.7752712273079033`*^9, 
   3.7752713060364757`*^9}, {3.775271448825513*^9, 3.7752714699277525`*^9}, {
   3.775271509321142*^9, 3.775271585609558*^9}, {3.775271620653377*^9, 
   3.77527180192237*^9}, {3.781589928213842*^9, 3.781590052438653*^9}, {
   3.7815900898176003`*^9, 3.781590109307678*^9}, {3.781590201383393*^9, 
   3.7815902433873234`*^9}, {3.7815905445265956`*^9, 3.781590569573782*^9}, {
   3.7815906952864275`*^9, 3.781590715680611*^9}, {3.7815908323678637`*^9, 
   3.781590881239719*^9}, {3.7815911048122363`*^9, 3.781591119274813*^9}, {
   3.788154182393029*^9, 3.7881542008707867`*^9}, {3.788154262468212*^9, 
   3.788154413095205*^9}, {3.788154445865172*^9, 3.7881544989994373`*^9}, {
   3.788154543552347*^9, 3.788154583606308*^9}, {3.8513960191034765`*^9, 
   3.851396064317687*^9}, {3.8513960979650345`*^9, 3.8513961553917027`*^9}, {
   3.85139633477669*^9, 3.851396341122322*^9}},
 CellLabel->
  "In[144]:=",ExpressionUUID->"be7bb257-aa79-4b73-ab76-e1f9d9ee6370"]
}, Closed]],

Cell[CellGroupData[{

Cell["TORSION ELEMENT (stab) defs", "Subsection",
 InitializationCell->True,
 CellChangeTimes->{{3.753018875511382*^9, 3.7530188786265306`*^9}, {
   3.781589886623744*^9, 3.7815898932426767`*^9}, {3.7878947601549573`*^9, 
   3.787894760728943*^9}, 3.7878948945295725`*^9, {3.7890211428141956`*^9, 
   3.7890211435642633`*^9}},ExpressionUUID->"af5bf7fa-ea36-40e4-b385-\
124ae24c7033"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MEC", "-", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Delta]W", "[", 
     RowBox[{"STAB", ",", 
      RowBox[{"{", 
       RowBox[{"TORSION", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "GG_", "}"}], ",", 
          RowBox[{"{", "JJ_", "}"}], ",", 
          RowBox[{"{", "mx_", "}"}]}], "}"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
     "]"}], ":=", 
    RowBox[{"\[Delta]W", "[", 
     RowBox[{"DISP", ",", 
      RowBox[{"{", 
       RowBox[{"TORSION", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "GG", "}"}], ",", 
          RowBox[{"{", "JJ", "}"}], ",", 
          RowBox[{"{", "mx", "}"}]}], "}"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
     "]"}]}], ";"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4426466268192453`*^9, 3.4426467788544455`*^9}, {
   3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 
   3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, {
   3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 
   3.4461862553468*^9}, {3.446186292506*^9, 3.4461863473556004`*^9}, {
   3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 
   3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, {
   3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 
   3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, {
   3.4938811515079627`*^9, 3.4938811517107615`*^9}, {3.4941655092594*^9, 
   3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, {
   3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 
   3.4957207485294*^9}, {3.4957208264826*^9, 3.4957208443914003`*^9}, 
   3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 
   3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, {
   3.4957212942609997`*^9, 3.495721324993*^9}, {3.4975823349274*^9, 
   3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, {
   3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 
   3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, {
   3.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 
   3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, {
   3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 
   3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, {
   3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, {
   3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 
   3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, {
   3.5007044087455997`*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 
   3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, {
   3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 
   3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, {
   3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 
   3.5007163483716*^9}, {3.5007163981823997`*^9, 3.5007164168244*^9}, {
   3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 
   3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, {
   3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 
   3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, {
   3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 
   3.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, {
   3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 
   3.5009593527897997`*^9}, {3.5625699941459312`*^9, 
   3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, {
   3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 
   3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, {
   3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 
   3.6297781672591486`*^9}, {3.6297782105906267`*^9, 
   3.6297787648833303`*^9}, {3.6297788067577257`*^9, 
   3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, {
   3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 
   3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, {
   3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, {
   3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 
   3.6298707174286036`*^9}, {3.6298707896411304`*^9, 
   3.6298709878862786`*^9}, {3.6306592122375627`*^9, 
   3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 
   3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 
   3.6308359887799683`*^9}, {3.6308362111739593`*^9, 
   3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 
   3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {
   3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 
   3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {
   3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 
   3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, {
   3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 
   3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, {
   3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 
   3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, {
   3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 
   3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, {
   3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 
   3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, {
   3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 
   3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 
   3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {
   3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 
   3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, {
   3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, {
   3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 
   3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, {
   3.685341231602439*^9, 3.6853412388978567`*^9}, 3.6853430337255144`*^9, {
   3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {
   3.68585391622186*^9, 3.6858539266884584`*^9}, {3.685853962796524*^9, 
   3.685853970925989*^9}, 3.6858541341643257`*^9, {3.685854449069337*^9, 
   3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, {
   3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^9, 
   3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {
   3.68596614502913*^9, 3.68596618077918*^9}, {3.6859665004496274`*^9, 
   3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {
   3.6860123360453115`*^9, 3.6860123945753937`*^9}, {3.6860124484754686`*^9, 
   3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 
   3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 
   3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 
   3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {
   3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, {
   3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, {
   3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 
   3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, {
   3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 
   3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, {
   3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {
   3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 
   3.6871473693028083`*^9}, {3.6874228236597347`*^9, 
   3.6874228709898005`*^9}, {3.6874231158501434`*^9, 
   3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, {
   3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 
   3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 
   3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, {
   3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 
   3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, {
   3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 
   3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, {
   3.6924127522818885`*^9, 3.6924127586918974`*^9}, {3.69241285349203*^9, 
   3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, {
   3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 
   3.6924137594552984`*^9}, {3.6924168804381475`*^9, 3.692416890318161*^9}, {
   3.692416926028211*^9, 3.6924169565082536`*^9}, {3.6924169983583126`*^9, 
   3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, {
   3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 
   3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, {
   3.69277257982156*^9, 3.6927725838615656`*^9}, {3.692855931835436*^9, 
   3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, {
   3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 
   3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, {
   3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 
   3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^9, 
   3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, {
   3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, {
   3.6937158692541003`*^9, 3.693715869654101*^9}, {3.6937159892942686`*^9, 
   3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, {
   3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 
   3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, {
   3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 
   3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, {
   3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 
   3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, {
   3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 
   3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, {
   3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 
   3.6942313193904014`*^9}, {3.6942313582004557`*^9, 
   3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, {
   3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 
   3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, {
   3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 
   3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 
   3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, {
   3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 
   3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, {
   3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 
   3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 
   3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, {
   3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 
   3.7496992868619986`*^9}, {3.7496993728466873`*^9, 3.749699375486853*^9}, {
   3.7530189177531705`*^9, 3.753018918350237*^9}, {3.753018991800671*^9, 
   3.753019041865839*^9}, {3.7530191095313196`*^9, 3.7530191100576744`*^9}, 
   3.753019155952956*^9, {3.7530192458219423`*^9, 3.753019353286773*^9}, {
   3.773986323215969*^9, 3.7739864366876383`*^9}, {3.7739864700193005`*^9, 
   3.7739865885966825`*^9}, {3.7739869332783327`*^9, 3.7739870501829805`*^9}, 
   3.773987085528166*^9, {3.7739872536160583`*^9, 3.773987270466986*^9}, {
   3.773987482712697*^9, 3.7739875221812735`*^9}, {3.773987740298462*^9, 
   3.7739877466065903`*^9}, {3.7739878599976892`*^9, 
   3.7739878861137896`*^9}, {3.773987965425336*^9, 3.7739879715632877`*^9}, 
   3.773988098774023*^9, 3.7739883193781385`*^9, {3.7739884099852057`*^9, 
   3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, {
   3.7739891227568517`*^9, 3.77398915009042*^9}, {3.7739892774900556`*^9, 
   3.773989291800435*^9}, {3.7739896060525217`*^9, 3.773989635013425*^9}, {
   3.7751890832095585`*^9, 3.7751890882413054`*^9}, {3.7751894923762302`*^9, 
   3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 
   3.7751912606478214`*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, {
   3.775194496052539*^9, 3.7751945353727713`*^9}, {3.7751945737174063`*^9, 
   3.775194621343042*^9}, {3.775194667862669*^9, 3.7751947598351893`*^9}, {
   3.7751948235734253`*^9, 3.7751949415953684`*^9}, {3.775195100078847*^9, 
   3.77519512113822*^9}, {3.7751954506873007`*^9, 3.775195467864645*^9}, {
   3.775270786870551*^9, 3.775270796325161*^9}, {3.7752708274391947`*^9, 
   3.775270839737406*^9}, {3.7752709283091574`*^9, 3.7752709474534383`*^9}, {
   3.7752710502850266`*^9, 3.7752711744130797`*^9}, {3.7752712273079033`*^9, 
   3.7752713060364757`*^9}, {3.775271448825513*^9, 3.7752714699277525`*^9}, {
   3.775271509321142*^9, 3.775271585609558*^9}, {3.775271620653377*^9, 
   3.77527180192237*^9}, {3.781589928213842*^9, 3.781590052438653*^9}, {
   3.7815900898176003`*^9, 3.781590109307678*^9}, {3.781590201383393*^9, 
   3.7815902433873234`*^9}, {3.7815905445265956`*^9, 3.781590569573782*^9}, {
   3.7815906952864275`*^9, 3.781590715680611*^9}, {3.7815908323678637`*^9, 
   3.781590881239719*^9}, {3.7815911048122363`*^9, 3.781591119274813*^9}, {
   3.789021170161874*^9, 3.7890212153743477`*^9}},
 CellLabel->
  "In[146]:=",ExpressionUUID->"44e8a493-76fa-4c68-90a1-5a13d8208ac6"]
}, Closed]],

Cell[CellGroupData[{

Cell["TORSION ELEMENT (nonl) defs", "Subsection",
 InitializationCell->True,
 CellChangeTimes->{{3.753018875511382*^9, 3.7530188786265306`*^9}, {
   3.781589886623744*^9, 3.7815898932426767`*^9}, {3.7878947601549573`*^9, 
   3.787894760728943*^9}, 3.7878948945295725`*^9, {3.7890211428141956`*^9, 
   3.7890211435642633`*^9}, {3.8216143327381015`*^9, 
   3.8216143387229114`*^9}},ExpressionUUID->"8b81389a-f376-4e70-918b-\
e661f912fb05"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MEC", "-", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"NONL", ",", 
       RowBox[{"{", 
        RowBox[{"TORSION", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}],
       "]"}], ":=", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"TORSION", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4426466268192453`*^9, 3.4426467788544455`*^9}, {
   3.443680046807*^9, 3.443680117163*^9}, {3.4436945929248*^9, 
   3.4436946334536*^9}, 3.4436946653087997`*^9, 3.4436947104396*^9, {
   3.4461861532916*^9, 3.446186153744*^9}, {3.4461862231328*^9, 
   3.4461862553468*^9}, {3.446186292506*^9, 3.4461863473556004`*^9}, {
   3.4461863827988*^9, 3.4461864352304*^9}, {3.446186572526*^9, 
   3.4461865777052*^9}, {3.451263479283*^9, 3.451263479751*^9}, {
   3.4938807027527814`*^9, 3.4938807074171515`*^9}, {3.493880800287371*^9, 
   3.4938808523754373`*^9}, 3.4938809479786386`*^9, 3.4938811002466917`*^9, {
   3.4938811515079627`*^9, 3.4938811517107615`*^9}, {3.4941655092594*^9, 
   3.4941656750562*^9}, {3.4941657353501997`*^9, 3.4941657435246*^9}, {
   3.4941657779382*^9, 3.4941658634418*^9}, {3.4957207052706003`*^9, 
   3.4957207485294*^9}, {3.4957208264826*^9, 3.4957208443914003`*^9}, 
   3.4957209431258*^9, {3.4957210322642*^9, 3.4957210490341997`*^9}, 
   3.4957211815324*^9, {3.4957212363352003`*^9, 3.4957212456328*^9}, {
   3.4957212942609997`*^9, 3.495721324993*^9}, {3.4975823349274*^9, 
   3.4975823545366*^9}, {3.4975824057046003`*^9, 3.4975824948898*^9}, {
   3.4975825327354*^9, 3.4975825337650003`*^9}, {3.4975826475076*^9, 
   3.4975826545744*^9}, {3.4993509657212*^9, 3.499350971072*^9}, {
   3.4993510472623997`*^9, 3.4993510481828003`*^9}, {3.4993511463536*^9, 
   3.4993512159764*^9}, {3.4993512745699997`*^9, 3.4993512754748*^9}, {
   3.4994811051716003`*^9, 3.4994811663392*^9}, {3.4994811996452*^9, 
   3.4994813495144*^9}, {3.4994814548164*^9, 3.4994814597148*^9}, {
   3.4994815491963997`*^9, 3.4994815501324*^9}, 3.5007041508297997`*^9, {
   3.5007041887066*^9, 3.5007042038073997`*^9}, {3.5007042395938*^9, 
   3.5007042409978*^9}, {3.5007043421602*^9, 3.5007043514421997`*^9}, {
   3.5007044087455997`*^9, 3.5007044250632*^9}, {3.5007044934178*^9, 
   3.5007045024034*^9}, {3.5007046824406*^9, 3.500704999808*^9}, {
   3.5007050353234*^9, 3.5007050451202*^9}, {3.5007052587142*^9, 
   3.5007052605706*^9}, {3.5007053328766003`*^9, 3.5007054596577997`*^9}, {
   3.5007159735338*^9, 3.5007161853984003`*^9}, {3.5007162280332003`*^9, 
   3.5007163483716*^9}, {3.5007163981823997`*^9, 3.5007164168244*^9}, {
   3.5007164654028*^9, 3.5007167457036*^9}, {3.5007176771076*^9, 
   3.5007176863896*^9}, {3.5007177671352*^9, 3.500717783874*^9}, {
   3.5007179049924*^9, 3.50071796265*^9}, {3.5009579544962*^9, 
   3.5009579659934*^9}, {3.5009580383814*^9, 3.5009581011401997`*^9}, {
   3.5009581956988*^9, 3.5009582131864*^9}, {3.5009583928048*^9, 
   3.5009583930388002`*^9}, {3.5009587458640003`*^9, 3.5009587595296*^9}, {
   3.5009592634954*^9, 3.5009592736354*^9}, {3.500959331527*^9, 
   3.5009593527897997`*^9}, {3.5625699941459312`*^9, 
   3.5625700053623505`*^9}, {3.5625701202721524`*^9, 3.562570128836568*^9}, {
   3.6293860977240434`*^9, 3.629386104244855*^9}, {3.629386199327022*^9, 
   3.629386220496259*^9}, {3.6296431182972393`*^9, 3.62964311889004*^9}, {
   3.629777573965969*^9, 3.629777733585449*^9}, {3.6297779641070547`*^9, 
   3.6297781672591486`*^9}, {3.6297782105906267`*^9, 
   3.6297787648833303`*^9}, {3.6297788067577257`*^9, 
   3.6297788473980503`*^9}, {3.6297790116215076`*^9, 3.629779171927389*^9}, {
   3.6297795741584954`*^9, 3.629779653484635*^9}, {3.6297818984505787`*^9, 
   3.6297819210082183`*^9}, {3.629782000178357*^9, 3.6297820021907606`*^9}, {
   3.629782216020336*^9, 3.629782224319551*^9}, 3.6297823407737556`*^9, {
   3.629783163862401*^9, 3.6297832496313515`*^9}, {3.629870677773334*^9, 
   3.6298707174286036`*^9}, {3.6298707896411304`*^9, 
   3.6298709878862786`*^9}, {3.6306592122375627`*^9, 
   3.6306592151235676`*^9}, {3.6306598443506727`*^9, 3.630659875316727*^9}, 
   3.63065995660847*^9, 3.630670566864462*^9, {3.63083558537886*^9, 
   3.6308359887799683`*^9}, {3.6308362111739593`*^9, 
   3.6308362148243656`*^9}, {3.630836286288091*^9, 3.6308363606378217`*^9}, 
   3.6308364233343315`*^9, {3.631888358317337*^9, 3.631888434445471*^9}, {
   3.6318884656455255`*^9, 3.6318885138028097`*^9}, {3.6318886621590705`*^9, 
   3.6318886772754974`*^9}, {3.631888745837618*^9, 3.6318888213573503`*^9}, {
   3.6318890221765027`*^9, 3.6318890526121564`*^9}, 3.631889169159961*^9, 
   3.6318894033631725`*^9, {3.631889517414973*^9, 3.6318895524526343`*^9}, {
   3.6318896836488647`*^9, 3.631889698765291*^9}, {3.6321898139439125`*^9, 
   3.632189856272333*^9}, {3.6321898953545685`*^9, 3.6321900355675883`*^9}, {
   3.6321900697005405`*^9, 3.6321903203378763`*^9}, {3.6321903691376677`*^9, 
   3.632190388074751*^9}, {3.632190466145216*^9, 3.6321904844272614`*^9}, {
   3.632190625107308*^9, 3.6321907202867517`*^9}, {3.632190835720354*^9, 
   3.6321908837511015`*^9}, {3.632190986102956*^9, 3.6321910052410507`*^9}, {
   3.6321927997536907`*^9, 3.6321928025258493`*^9}, {3.6321941664038568`*^9, 
   3.632194191948318*^9}, {3.6624544812484736`*^9, 3.662454485084693*^9}, {
   3.6624545866345015`*^9, 3.6624546098018265`*^9}, {3.685233396707606*^9, 
   3.6852334069476204`*^9}, {3.685233673317993*^9, 3.6852336973580265`*^9}, 
   3.685264712020458*^9, {3.685264780390554*^9, 3.6852648241406155`*^9}, {
   3.6852713583430376`*^9, 3.6852714170531197`*^9}, {3.6852718305336986`*^9, 
   3.6852718842537737`*^9}, {3.6852720012539377`*^9, 3.685272008663948*^9}, {
   3.685272070164034*^9, 3.6852720840640535`*^9}, 3.6853404120151405`*^9, {
   3.6853405127463226`*^9, 3.685340625313761*^9}, {3.6853410657279515`*^9, 
   3.685341078722695*^9}, {3.685341189812049*^9, 3.6853411945933223`*^9}, {
   3.685341231602439*^9, 3.6853412388978567`*^9}, 3.6853430337255144`*^9, {
   3.68585373700861*^9, 3.6858537556736774`*^9}, 3.685853822475498*^9, {
   3.68585391622186*^9, 3.6858539266884584`*^9}, {3.685853962796524*^9, 
   3.685853970925989*^9}, 3.6858541341643257`*^9, {3.685854449069337*^9, 
   3.685854452354525*^9}, {3.6858544860604534`*^9, 3.6858544933768716`*^9}, {
   3.685854943776633*^9, 3.6858549563563523`*^9}, {3.6859534582909718`*^9, 
   3.685953483154394*^9}, {3.685965935028836*^9, 3.6859660165689497`*^9}, {
   3.68596614502913*^9, 3.68596618077918*^9}, {3.6859665004496274`*^9, 
   3.685966524549661*^9}, {3.6859666104197817`*^9, 3.685966617519791*^9}, {
   3.6860123360453115`*^9, 3.6860123945753937`*^9}, {3.6860124484754686`*^9, 
   3.6860124852555203`*^9}, {3.686012537365593*^9, 3.6860125428256006`*^9}, 
   3.6860126339057283`*^9, 3.686012710945836*^9, {3.6860128143059807`*^9, 
   3.6860128145959816`*^9}, {3.6860129183361263`*^9, 3.6860129676061954`*^9}, 
   3.686013029216282*^9, {3.686019337710574*^9, 3.6860195425908613`*^9}, {
   3.686019651761014*^9, 3.6860196633110304`*^9}, 3.6860202343918295`*^9, {
   3.6860237604228506`*^9, 3.6860238349729548`*^9}, 3.686023961653132*^9, {
   3.68714588472073*^9, 3.687145885140731*^9}, {3.6871460474709578`*^9, 
   3.687146053790967*^9}, {3.6871460941910233`*^9, 3.6871460981810293`*^9}, {
   3.6871461354510813`*^9, 3.687146395471445*^9}, {3.6871464425315113`*^9, 
   3.687146453221526*^9}, 3.687146604551738*^9, 3.6871466841818495`*^9, {
   3.6871470071023016`*^9, 3.687147008182303*^9}, 3.687147048432359*^9, {
   3.6871470932524223`*^9, 3.6871471214924617`*^9}, {3.6871471604425163`*^9, 
   3.6871473693028083`*^9}, {3.6874228236597347`*^9, 
   3.6874228709898005`*^9}, {3.6874231158501434`*^9, 
   3.6874232243002954`*^9}, {3.6875189610998473`*^9, 3.687519005537389*^9}, {
   3.687519062781663*^9, 3.6875192133922777`*^9}, {3.6875193939396043`*^9, 
   3.6875193991879044`*^9}, {3.687520128393613*^9, 3.687520238740924*^9}, 
   3.6875261810306673`*^9, {3.6876715960629864`*^9, 3.6876717494132013`*^9}, {
   3.6876718441833344`*^9, 3.6876718768033795`*^9}, {3.6876723915341005`*^9, 
   3.687672434904161*^9}, 3.688395660193591*^9, 3.6883964158577833`*^9, {
   3.692412576581642*^9, 3.6924125803116474`*^9}, {3.6924126302817173`*^9, 
   3.692412655961754*^9}, {3.692412695731809*^9, 3.6924127074218254`*^9}, {
   3.6924127522818885`*^9, 3.6924127586918974`*^9}, {3.69241285349203*^9, 
   3.6924128539320307`*^9}, {3.692412907092105*^9, 3.692413029772277*^9}, {
   3.692413068192331*^9, 3.692413166452468*^9}, {3.692413741305273*^9, 
   3.6924137594552984`*^9}, {3.6924168804381475`*^9, 3.692416890318161*^9}, {
   3.692416926028211*^9, 3.6924169565082536`*^9}, {3.6924169983583126`*^9, 
   3.692417051860387*^9}, {3.6924171044204607`*^9, 3.6924171568505344`*^9}, {
   3.692417194820587*^9, 3.692417195170588*^9}, {3.6924213133305225`*^9, 
   3.6924213143205233`*^9}, {3.692421353670579*^9, 3.6924213540405793`*^9}, {
   3.69277257982156*^9, 3.6927725838615656`*^9}, {3.692855931835436*^9, 
   3.692855932875437*^9}, {3.6928567610465965`*^9, 3.6928568324266963`*^9}, {
   3.692856901206793*^9, 3.6928569095168047`*^9}, {3.69285698469691*^9, 
   3.692856993426922*^9}, {3.69285703490698*^9, 3.692857117767096*^9}, {
   3.6928573265673885`*^9, 3.6928576414078293`*^9}, {3.6932192279315724`*^9, 
   3.693219231191577*^9}, 3.6932193482617407`*^9, {3.6932193866617947`*^9, 
   3.693219399421812*^9}, {3.693220387105195*^9, 3.693220395585207*^9}, {
   3.693220619885521*^9, 3.693220622315525*^9}, 3.6932206741055975`*^9, {
   3.6937158692541003`*^9, 3.693715869654101*^9}, {3.6937159892942686`*^9, 
   3.693716052294357*^9}, {3.693716084724402*^9, 3.6937165234970164`*^9}, {
   3.69371656887708*^9, 3.6937167464873285`*^9}, {3.6937167931673937`*^9, 
   3.693716881127517*^9}, {3.6937174784783535`*^9, 3.6937174801583557`*^9}, {
   3.6937209970340457`*^9, 3.693721056784129*^9}, {3.6940658253906527`*^9, 
   3.69406583796067*^9}, {3.694065981390871*^9, 3.6940660285909367`*^9}, {
   3.69406631676134*^9, 3.694066328431357*^9}, {3.6940663845914354`*^9, 
   3.69406638788144*^9}, {3.6940667791219873`*^9, 3.6940668111720324`*^9}, {
   3.694067197922574*^9, 3.694067205792585*^9}, {3.694230787618657*^9, 
   3.6942308443987365`*^9}, {3.694230880048786*^9, 3.6942309310488577`*^9}, {
   3.6942309647089047`*^9, 3.6942310590790367`*^9}, {3.6942311817392087`*^9, 
   3.6942313193904014`*^9}, {3.6942313582004557`*^9, 
   3.6942317436109953`*^9}, {3.694232100401495*^9, 3.694232179791606*^9}, {
   3.694232591252182*^9, 3.694232606942204*^9}, 3.694265123583295*^9, 
   3.6943208649568324`*^9, {3.6944241392570753`*^9, 3.694424146417085*^9}, {
   3.72541924301532*^9, 3.7254192468679457`*^9}, {3.725431584796835*^9, 
   3.725431637535695*^9}, 3.725432095606172*^9, {3.749695458974357*^9, 
   3.7496954653226786`*^9}, {3.749695629209482*^9, 3.7496957170177097`*^9}, {
   3.749695766766241*^9, 3.7496959409872313`*^9}, {3.749696586402536*^9, 
   3.7496965868288536`*^9}, {3.7496969375048475`*^9, 3.749696939543347*^9}, {
   3.7496975602512183`*^9, 3.749697622751583*^9}, {3.7496976733864603`*^9, 
   3.749697733500789*^9}, 3.749698076456645*^9, {3.7496981179531765`*^9, 
   3.749698128232212*^9}, {3.7496982428286314`*^9, 3.749698362156461*^9}, {
   3.7496984682622967`*^9, 3.7496985284496694`*^9}, {3.7496992170188684`*^9, 
   3.7496992868619986`*^9}, {3.7496993728466873`*^9, 3.749699375486853*^9}, {
   3.7530189177531705`*^9, 3.753018918350237*^9}, {3.753018991800671*^9, 
   3.753019041865839*^9}, {3.7530191095313196`*^9, 3.7530191100576744`*^9}, 
   3.753019155952956*^9, {3.7530192458219423`*^9, 3.753019353286773*^9}, {
   3.773986323215969*^9, 3.7739864366876383`*^9}, {3.7739864700193005`*^9, 
   3.7739865885966825`*^9}, {3.7739869332783327`*^9, 3.7739870501829805`*^9}, 
   3.773987085528166*^9, {3.7739872536160583`*^9, 3.773987270466986*^9}, {
   3.773987482712697*^9, 3.7739875221812735`*^9}, {3.773987740298462*^9, 
   3.7739877466065903`*^9}, {3.7739878599976892`*^9, 
   3.7739878861137896`*^9}, {3.773987965425336*^9, 3.7739879715632877`*^9}, 
   3.773988098774023*^9, 3.7739883193781385`*^9, {3.7739884099852057`*^9, 
   3.7739885862960095`*^9}, {3.773988628922502*^9, 3.773988632767228*^9}, {
   3.7739891227568517`*^9, 3.77398915009042*^9}, {3.7739892774900556`*^9, 
   3.773989291800435*^9}, {3.7739896060525217`*^9, 3.773989635013425*^9}, {
   3.7751890832095585`*^9, 3.7751890882413054`*^9}, {3.7751894923762302`*^9, 
   3.7751895008441906`*^9}, {3.7751911834227276`*^9, 3.775191222686661*^9}, 
   3.7751912606478214`*^9, {3.7751943412188396`*^9, 3.775194461553982*^9}, {
   3.775194496052539*^9, 3.7751945353727713`*^9}, {3.7751945737174063`*^9, 
   3.775194621343042*^9}, {3.775194667862669*^9, 3.7751947598351893`*^9}, {
   3.7751948235734253`*^9, 3.7751949415953684`*^9}, {3.775195100078847*^9, 
   3.77519512113822*^9}, {3.7751954506873007`*^9, 3.775195467864645*^9}, {
   3.775270786870551*^9, 3.775270796325161*^9}, {3.7752708274391947`*^9, 
   3.775270839737406*^9}, {3.7752709283091574`*^9, 3.7752709474534383`*^9}, {
   3.7752710502850266`*^9, 3.7752711744130797`*^9}, {3.7752712273079033`*^9, 
   3.7752713060364757`*^9}, {3.775271448825513*^9, 3.7752714699277525`*^9}, {
   3.775271509321142*^9, 3.775271585609558*^9}, {3.775271620653377*^9, 
   3.77527180192237*^9}, {3.781589928213842*^9, 3.781590052438653*^9}, {
   3.7815900898176003`*^9, 3.781590109307678*^9}, {3.781590201383393*^9, 
   3.7815902433873234`*^9}, {3.7815905445265956`*^9, 3.781590569573782*^9}, {
   3.7815906952864275`*^9, 3.781590715680611*^9}, {3.7815908323678637`*^9, 
   3.781590881239719*^9}, {3.7815911048122363`*^9, 3.781591119274813*^9}, {
   3.789021170161874*^9, 3.7890212153743477`*^9}, {3.8216143478699703`*^9, 
   3.821614443850371*^9}},
 CellLabel->
  "In[147]:=",ExpressionUUID->"cb77260d-a584-4809-9e55-d6937c166472"]
}, Closed]],

Cell[CellGroupData[{

Cell["BENDING ELEMENT (disp) defs ", "Subsection",
 CellChangeTimes->{{3.7530187996679964`*^9, 3.753018803413909*^9}, {
   3.7633629633672647`*^9, 3.763362967100765*^9}, {3.787894773214689*^9, 
   3.7878947881941814`*^9}, {3.78789485671918*^9, 3.78789488217928*^9}, 
   3.7885197052606735`*^9, {3.788530025907043*^9, 3.7885300287809105`*^9}, 
   3.7885306781716957`*^9, {3.8200271989371843`*^9, 3.8200272016625395`*^9}, {
   3.8200274346181693`*^9, 3.8200274405428553`*^9}, {3.851994139239622*^9, 
   3.8519941462255764`*^9}},ExpressionUUID->"1b87ba5b-2682-46aa-b681-\
baeada9e648e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"MEC", "-", "E1050"}], "|", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BENDING", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE_", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Iyy_", ",", "Izz_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BEAM", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "Iyy", ",", "Izz", ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BENDING", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE_", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BEAM", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "Iyy", ",", "Izz", ",", "iy0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BENDING", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE_", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Iyy_", ",", "Izz_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BEAM", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "Iyy", ",", "Izz", ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BENDING", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "EE_", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Iyy_", ",", "Izz_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", 
             "mZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BEAM", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "Iyy", ",", "Izz", ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "fX", ",", "fY", ",", "fZ", ",", "mX", ",", "mY", ",", "mZ"}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], 
    ";"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, {
   3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 
   3.4430691708072*^9}, {3.4430692071717997`*^9, 3.443069246359*^9}, {
   3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 
   3.4430774104676*^9}, {3.4430775053780003`*^9, 3.4430776180598*^9}, {
   3.4434109099524*^9, 3.4434109159584*^9}, {3.4438800815346003`*^9, 
   3.4438802689304*^9}, {3.443880362624*^9, 3.4438803824516*^9}, {
   3.443929565615374*^9, 3.443929570232974*^9}, {3.443935321321974*^9, 
   3.443935335705174*^9}, {3.443935419945174*^9, 3.443935421489574*^9}, {
   3.443935494013974*^9, 3.443935494715974*^9}, {3.443935617565974*^9, 
   3.4439357217895737`*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, {
   3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 
   3.4439423142123737`*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, {
   3.4439447830065737`*^9, 3.4439447917425737`*^9}, {3.443944908541774*^9, 
   3.443944916060974*^9}, {3.4442731097938004`*^9, 3.4442731115254*^9}, {
   3.444273189229*^9, 3.4442732700526*^9}, {3.4442748430004*^9, 
   3.4442748605036*^9}, {3.4442748977438*^9, 3.4442748989762*^9}, {
   3.4442749340762*^9, 3.4442749351057997`*^9}, 3.4442752313382*^9, {
   3.4442919702026*^9, 3.4442919911846*^9}, {3.4442921151577997`*^9, 
   3.4442921271074*^9}, {3.4443811023684*^9, 3.4443811036632*^9}, {
   3.4443814073171997`*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 
   3.4443815147855997`*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, {
   3.4443816138143997`*^9, 3.444381633174*^9}, {3.4443816850439997`*^9, 
   3.4443817801728*^9}, 3.4443853618688*^9, {3.4443855607376003`*^9, 
   3.4443856337924*^9}, {3.4443861200444*^9, 3.4443861523676*^9}, {
   3.4443862280495996`*^9, 3.444386291448*^9}, {3.4443864047352*^9, 
   3.4443864135336*^9}, {3.4443870026832*^9, 3.4443870095316*^9}, {
   3.4444082055056*^9, 3.4444082437412*^9}, {3.4444082797148*^9, 
   3.4444084583816*^9}, {3.4444084889108*^9, 3.4444085087539997`*^9}, {
   3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 
   3.4444091647167997`*^9}, {3.4444092206428003`*^9, 
   3.4444092944463997`*^9}, {3.4444093856284*^9, 3.4444094281071997`*^9}, {
   3.4444094976988*^9, 3.4444095275104*^9}, {3.444409611064*^9, 
   3.4444096125772*^9}, 3.4444098504616003`*^9, {3.444409913392*^9, 
   3.4444099166056004`*^9}, 3.4444100178496*^9, {3.4444103063248*^9, 
   3.4444103358712*^9}, {3.4444103868208*^9, 3.4444104432460003`*^9}, {
   3.4444921219564*^9, 3.4444921256224003`*^9}, {3.444492194824*^9, 
   3.4444921973668003`*^9}, {3.4444922814351997`*^9, 3.4444922853508*^9}, {
   3.4444923330868*^9, 3.4444923345844*^9}, {3.444492366424*^9, 
   3.4444923855808*^9}, {3.4453153475226*^9, 3.445315360689*^9}, {
   3.4465518166373653`*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 
   3.446552159384965*^9}, {3.446552232377365*^9, 3.4465522555589647`*^9}, {
   3.446553347388365*^9, 3.4465533616155653`*^9}, {3.4466058525769997`*^9, 
   3.4466058529046*^9}, {3.4466064371219997`*^9, 3.4466065097244*^9}, {
   3.4466127725788*^9, 3.4466127766036*^9}, {3.4466128124835997`*^9, 
   3.4466130037864*^9}, {3.4466131532696*^9, 3.4466131761703997`*^9}, {
   3.4466133992192*^9, 3.4466134478756*^9}, {3.446613483584*^9, 
   3.4466134932092*^9}, {3.4466135740952*^9, 3.4466135794927998`*^9}, {
   3.4466137283948*^9, 3.4466137341356*^9}, {3.4466138994342003`*^9, 
   3.4466139023826*^9}, {3.4466139549858*^9, 3.4466139579653997`*^9}, {
   3.4466142109818*^9, 3.4466142245226*^9}, {3.4466142793878*^9, 
   3.4466143652033997`*^9}, {3.4466144712834*^9, 3.4466145978929996`*^9}, {
   3.4466146992618*^9, 3.4466147509914*^9}, {3.4466151283086*^9, 
   3.4466152768986*^9}, {3.4466153107506*^9, 3.4466153406558*^9}, {
   3.4466194331976*^9, 3.4466194377528*^9}, {3.4466194847712*^9, 
   3.446619488718*^9}, {3.4466389495861998`*^9, 3.4466389768238*^9}, {
   3.4466391218414*^9, 3.446639306561*^9}, {3.4466393990222*^9, 
   3.4466394004886*^9}, {3.4466394475694*^9, 3.4466394487706003`*^9}, {
   3.4466395034174*^9, 3.4466395049462*^9}, 3.4466395515755997`*^9, {
   3.4466396000176*^9, 3.4466396190808*^9}, {3.4466397459088*^9, 
   3.446639748826*^9}, {3.4466397974356003`*^9, 3.446639798668*^9}, 
   3.4466398447816*^9, {3.446639894218*^9, 3.4466399201556*^9}, {
   3.4466399570964003`*^9, 3.4466399583288*^9}, {3.446639994006*^9, 
   3.4466400056904*^9}, {3.4466400383568*^9, 3.4466400395892*^9}, {
   3.4466400745643997`*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 
   3.4466401806070004`*^9}, {3.4466402251294003`*^9, 3.446640227407*^9}, {
   3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 
   3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 
   3.4467273777813997`*^9}, {3.4467274366558*^9, 3.4467275620954*^9}, {
   3.446727593311*^9, 3.4467277412614*^9}, {3.4467283334639997`*^9, 
   3.4467283356012*^9}, {3.4467283707636003`*^9, 3.4467283727604*^9}, {
   3.4467289882664003`*^9, 3.4467291276836*^9}, {3.446778464322*^9, 
   3.4467786797424*^9}, {3.4467801953803997`*^9, 3.4467802409792*^9}, {
   3.4467802998691998`*^9, 3.4467804023456*^9}, 3.4467804345596*^9, {
   3.4467808656344*^9, 3.4467808670852003`*^9}, 3.4467818107525997`*^9, {
   3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 
   3.4467827381726*^9}, {3.4467828623018*^9, 3.4467831045386*^9}, {
   3.4470344113984003`*^9, 3.4470344123344*^9}, {3.4470344628316*^9, 
   3.4470345343108*^9}, {3.447043591118539*^9, 3.447043642192939*^9}, {
   3.447045649625739*^9, 3.447045718437339*^9}, {3.447054774023939*^9, 
   3.447054834198939*^9}, {3.4470549103449388`*^9, 3.4470549116169386`*^9}, {
   3.447054943902939*^9, 3.4470553027109385`*^9}, {3.447055334559939*^9, 
   3.447055353684939*^9}, {3.447057311918539*^9, 3.447057369747739*^9}, {
   3.4470575058577385`*^9, 3.4470575951365385`*^9}, {3.4470581848789387`*^9, 
   3.4470582040825386`*^9}, {3.451276121243*^9, 3.4512761425838003`*^9}, {
   3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 
   3.4512762827654*^9}, {3.451276489091*^9, 3.451276541975*^9}, {
   3.4512765853118*^9, 3.4512766132046003`*^9}, {3.4512773470306*^9, 
   3.4512773766082*^9}, {3.4512776069110003`*^9, 3.4512777499318*^9}, 
   3.4512777831286*^9, {3.4512778785538*^9, 3.451277881627*^9}, {
   3.4512780242734003`*^9, 3.4512780302794*^9}, 3.4512780737878*^9, {
   3.4512781866226*^9, 3.4512781930810003`*^9}, {3.4512863325078*^9, 
   3.4512863539266*^9}, {3.4568019250434*^9, 3.4568022712698*^9}, {
   3.4568023177422*^9, 3.4568024125278*^9}, {3.4568024694365997`*^9, 
   3.4568024750369997`*^9}, {3.4568026914402*^9, 3.4568028101094*^9}, {
   3.4568028406698*^9, 3.4568028564726*^9}, 3.4568028886085997`*^9, {
   3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, {
   3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596003`*^9, 
   3.4568040844852*^9}, {3.4568043016684*^9, 3.4568043154744*^9}, {
   3.4568045482264*^9, 3.4568045486632*^9}, {3.4568048944996*^9, 
   3.4568049806116*^9}, {3.4660560628582*^9, 3.4660560753538*^9}, {
   3.4660676729379997`*^9, 3.4660676735931997`*^9}, {3.4660677244024*^9, 
   3.4660677277251997`*^9}, {3.4742646771287394`*^9, 3.47426469439174*^9}, {
   3.47426489921974*^9, 3.4742649800437393`*^9}, {3.4801246373348*^9, 
   3.4801246860536003`*^9}, {3.4801247748176003`*^9, 3.4801247821028*^9}, {
   3.4801248161264*^9, 3.4801248295736*^9}, {3.4801248810692*^9, 
   3.4801248964508*^9}, {3.4801249330484*^9, 3.480124947884*^9}, 
   3.4801249886468*^9, {3.4801251139147997`*^9, 3.48012512588*^9}, {
   3.4838339444988003`*^9, 3.4838339567448*^9}, 3.4838341692012*^9, {
   3.4838344350408*^9, 3.4838344353684*^9}, {3.4938987575920324`*^9, 
   3.4938987586840324`*^9}, {3.4941630624049997`*^9, 3.4941631381274*^9}, {
   3.4941632311345997`*^9, 3.4941632492306004`*^9}, 3.4941633249217997`*^9, {
   3.4941633940922003`*^9, 3.4941634063538*^9}, {3.4941634538402*^9, 
   3.4941635051642*^9}, {3.494163565115*^9, 3.4941636341762*^9}, {
   3.4941636853442*^9, 3.4941639323234*^9}, {3.4941640277798*^9, 
   3.4941641455754004`*^9}, {3.4941641790374002`*^9, 
   3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 
   3.4941644677018003`*^9, {3.4941646208938*^9, 3.4941646322349997`*^9}, {
   3.4941652592693996`*^9, 3.4941652807194*^9}, {3.4941653119038*^9, 
   3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, {
   3.4950990979779997`*^9, 3.495099142701*^9}, {3.495099172958*^9, 
   3.4950991806289997`*^9}, {3.495099227097*^9, 3.495099238113*^9}, 
   3.495099290797*^9, {3.495099346084*^9, 3.495099359507*^9}, {
   3.495099456308*^9, 3.495099464091*^9}, 3.495099683108*^9, {
   3.495100428112*^9, 3.495100434958*^9}, {3.4951006496219997`*^9, 
   3.495100649992*^9}, {3.4987235265018*^9, 3.4987235939094*^9}, {
   3.4987236420666*^9, 3.4987236530646*^9}, {3.4987237305341997`*^9, 
   3.4987237396914*^9}, {3.498733136159*^9, 3.4987332972446003`*^9}, {
   3.4987364783094*^9, 3.4987364860626*^9}, {3.4987366201134*^9, 
   3.4987366236078*^9}, {3.4987367272386*^9, 3.4987367464890003`*^9}, {
   3.4987369428462*^9, 3.4987369670886*^9}, {3.4987370134518003`*^9, 
   3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, {
   3.4987371921029997`*^9, 3.498737193663*^9}, {3.4987372660938*^9, 
   3.4987372935498*^9}, {3.4987373290554*^9, 3.4987377176202*^9}, {
   3.4987377520182*^9, 3.4987379139462*^9}, {3.4987382030216*^9, 
   3.4987382667078*^9}, {3.4987888391818*^9, 3.4987888608346*^9}, {
   3.4988785131146*^9, 3.4988785160162*^9}, {3.5007170967096*^9, 
   3.5007170999076*^9}, 3.5007182237316*^9, {3.5007182772864*^9, 
   3.5007182987832003`*^9}, {3.5009573226744003`*^9, 3.5009573940444*^9}, 
   3.5009574358710003`*^9, 3.5009604278482*^9, {3.5009897246173353`*^9, 
   3.5009898480289354`*^9}, {3.5009901464413357`*^9, 
   3.5009901475333357`*^9}, {3.5009901801997356`*^9, 3.500990274096135*^9}, {
   3.5010475253292*^9, 3.5010475852332*^9}, {3.5010605722018003`*^9, 
   3.5010606739762*^9}, {3.5010607202146*^9, 3.5010607323358*^9}, {
   3.5010607920526*^9, 3.501061118467*^9}, {3.5010612022078*^9, 
   3.5010612277138*^9}, {3.5010616467766*^9, 3.5010617938534*^9}, {
   3.5010618406222*^9, 3.5010619950778*^9}, {3.5010621500638*^9, 
   3.5010622514014*^9}, {3.5010625292218*^9, 3.5010625409374*^9}, {
   3.5010626043046*^9, 3.5010626313862*^9}, {3.5010626787166*^9, 
   3.5010626790754004`*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 
   3.5010763029458*^9, {3.5032210899309998`*^9, 3.5032212413900003`*^9}, {
   3.557658203404973*^9, 3.557658219644601*^9}, {3.5576584433801947`*^9, 
   3.557658496030287*^9}, {3.5576585501779823`*^9, 3.5576586046064777`*^9}, {
   3.557658648910555*^9, 3.557658754600741*^9}, {3.557658963945511*^9, 
   3.5576589782507353`*^9}, {3.557659009949991*^9, 3.5576591437514267`*^9}, {
   3.557659182221094*^9, 3.5576592187719584`*^9}, 3.557659413865901*^9, {
   3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 
   3.5576607248454037`*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, {
   3.5577526651911488`*^9, 3.5577526932087984`*^9}, {3.5577527272480583`*^9, 
   3.557752747122493*^9}, {3.5577528374934516`*^9, 3.557752838523053*^9}, {
   3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 
   3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, {
   3.5577536609544907`*^9, 3.5577536637936954`*^9}, {3.5577537824631042`*^9, 
   3.557753810184353*^9}, {3.557753841025607*^9, 3.5577540648392*^9}, 
   3.5577541920574236`*^9, {3.5577547033327217`*^9, 3.557754716967146*^9}, {
   3.5577547716296415`*^9, 3.557754802112095*^9}, {3.5577549509363565`*^9, 
   3.5577549771444025`*^9}, 3.5577551382302856`*^9, {3.55775527184452*^9, 
   3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, {
   3.557756158316077*^9, 3.557756231885806*^9}, {3.5577572408487787`*^9, 
   3.557757248835993*^9}, {3.5577572834368534`*^9, 3.5577575888229895`*^9}, {
   3.5577578129641833`*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 
   3.557758079272251*^9}, 3.557810586960072*^9, {3.5578240262005973`*^9, 
   3.5578240345360737`*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, {
   3.557831525255726*^9, 3.5578315319793377`*^9}, 3.5578315716190076`*^9, {
   3.557831606079468*^9, 3.557831629432709*^9}, {3.5578316663267736`*^9, 
   3.5578317569473333`*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, {
   3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 
   3.5578365974018345`*^9}, {3.5578366426731143`*^9, 3.557836658865943*^9}, {
   3.557836691017599*^9, 3.5578367924957776`*^9}, {3.5578368305442443`*^9, 
   3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, {
   3.5578383536061196`*^9, 3.5578383735117545`*^9}, {3.5578385892445335`*^9, 
   3.5578385978869486`*^9}, {3.5578386713006773`*^9, 3.557838700113928*^9}, {
   3.5578387451200075`*^9, 3.5578387467892103`*^9}, {3.5578388951454706`*^9, 
   3.5578389248635225`*^9}, {3.5578389679351983`*^9, 3.557838983535226*^9}, {
   3.5578390227692947`*^9, 3.557839023143696*^9}, {3.557839097696226*^9, 
   3.5578391125162525`*^9}, {3.5578391553539276`*^9, 3.557839199892006*^9}, {
   3.55783924184048*^9, 3.557839294490572*^9}, {3.5578393285922318`*^9, 
   3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, {
   3.5578395370865984`*^9, 3.5578395446994114`*^9}, {3.5578396068499207`*^9, 
   3.5578396118575296`*^9}, 3.5578943518105097`*^9, {3.557894388361374*^9, 
   3.5578944029629993`*^9}, {3.5578944607611012`*^9, 
   3.5578944989499683`*^9}, {3.5578945393696394`*^9, 3.557894561537278*^9}, {
   3.5578946028617506`*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 
   3.5578947812636642`*^9}, {3.55789481884413*^9, 3.5578948191249304`*^9}, {
   3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.5578967386805477`*^9, 
   3.55789678549623*^9}, {3.5578968804691963`*^9, 3.557896888643611*^9}, {
   3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 
   3.55789765120415*^9}, {3.5579218072271147`*^9, 3.5579218263059483`*^9}, {
   3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 
   3.557922188616585*^9}, {3.5579223258812256`*^9, 3.557922327066828*^9}, {
   3.5579224596046605`*^9, 3.557922461804264*^9}, 3.5579805928465395`*^9, {
   3.5579815200581703`*^9, 3.557981541711009*^9}, 3.557985544779242*^9, {
   3.5579863164793987`*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 
   3.557986568841042*^9}, 3.5579866122559185`*^9, 3.557986993536188*^9, {
   3.5579871244716187`*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 
   3.5579872166989803`*^9, {3.5599618621582537`*^9, 3.5599618642486577`*^9}, {
   3.559961969720443*^9, 3.5599619894700775`*^9}, 3.559963611089726*^9, {
   3.5601298891258235`*^9, 3.560129889422224*^9}, {3.560132445157113*^9, 
   3.5601324458591146`*^9}, {3.561978472080926*^9, 3.561978472392926*^9}, {
   3.6297802564412937`*^9, 3.6297802957377625`*^9}, {3.62978033369263*^9, 
   3.629780429741998*^9}, {3.6297805790030603`*^9, 3.6297809429048996`*^9}, {
   3.629780987957779*^9, 3.629781197575347*^9}, {3.629781240397422*^9, 
   3.629781337663593*^9}, {3.6297813946972933`*^9, 3.6297814529165955`*^9}, {
   3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 
   3.629781647633338*^9}, {3.629781678833393*^9, 3.629781763120341*^9}, 
   3.6297818028224106`*^9, {3.6297818432108817`*^9, 3.629781872570133*^9}, {
   3.629782355765382*^9, 3.629782427603508*^9}, {3.6297824692243814`*^9, 
   3.629782674863942*^9}, {3.629782707218399*^9, 3.6297829295343895`*^9}, {
   3.629783005631323*^9, 3.6297830574702144`*^9}, {3.6297831098551064`*^9, 
   3.629783142786764*^9}, {3.629783433711675*^9, 3.629783442619291*^9}, {
   3.6297834942397814`*^9, 3.6297835175930223`*^9}, 3.6297835794939313`*^9, {
   3.6297836160291953`*^9, 3.6297837668970604`*^9}, {3.6297842042438283`*^9, 
   3.6297842697483435`*^9}, {3.6297843514456873`*^9, 3.629784370742921*^9}, {
   3.629784443829049*^9, 3.6297844678842916`*^9}, {3.6297845252611923`*^9, 
   3.629784525588793*^9}, {3.6297846136821475`*^9, 3.629784629235375*^9}, {
   3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 
   3.6297852602096834`*^9}, {3.6297858780175686`*^9, 3.629785917282837*^9}, {
   3.629786048057867*^9, 3.629786048681868*^9}, 3.6297863278755584`*^9, {
   3.6297867047133856`*^9, 3.629786748533863*^9}, {3.6297867791567163`*^9, 
   3.6297868491540394`*^9}, {3.6297875320748396`*^9, 3.629787569795706*^9}, {
   3.6297876247234025`*^9, 3.6297877281983843`*^9}, {3.6297877681812544`*^9, 
   3.629787774015665*^9}, {3.629787831408166*^9, 3.6297878355265727`*^9}, {
   3.6297878775686464`*^9, 3.6297878861174617`*^9}, {3.6297879185343184`*^9, 
   3.629787919064719*^9}, {3.6297880043032694`*^9, 3.62978800470887*^9}, 
   3.6297880488257475`*^9, {3.6297882100052304`*^9, 3.6297882174776435`*^9}, {
   3.6297882697533355`*^9, 3.6297882948381796`*^9}, {3.6297883467550707`*^9, 
   3.6297883991087627`*^9}, {3.6297887361785545`*^9, 3.629788783961438*^9}, 
   3.629788825395111*^9, {3.629789006152629*^9, 3.6297890321266747`*^9}, {
   3.6297891133248167`*^9, 3.629789145336073*^9}, {3.6297891926821566`*^9, 
   3.629789194257759*^9}, {3.629789255316266*^9, 3.6297892556282673`*^9}, {
   3.629869102295367*^9, 3.629869160124668*^9}, {3.6298691942887287`*^9, 
   3.6298696149902673`*^9}, {3.6298696993864155`*^9, 3.62986975897852*^9}, {
   3.6298698387726603`*^9, 3.629869912030389*^9}, {3.6298700722270703`*^9, 
   3.629870234560955*^9}, {3.629870580429163*^9, 3.629870630458451*^9}, {
   3.630556081081209*^9, 3.630556104902451*^9}, {3.6305562643503313`*^9, 
   3.6305562763935523`*^9}, {3.6305563415080667`*^9, 3.630556480956712*^9}, {
   3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 
   3.630556914528273*^9}, {3.6305653725974936`*^9, 3.6305656807121167`*^9}, {
   3.630565758760581*^9, 3.6305657739024467`*^9}, {3.630565858170267*^9, 
   3.63056596644846*^9}, {3.6305661502619734`*^9, 3.6305661523230915`*^9}, {
   3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019125`*^9, 
   3.630566790535595*^9}, {3.6305668214773645`*^9, 3.630567044691132*^9}, {
   3.6305670772499943`*^9, 3.6305670783710585`*^9}, 3.630567272031135*^9, {
   3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 
   3.6305687195002403`*^9}, {3.6305687542132254`*^9, 3.630568758623478*^9}, {
   3.630568855671028*^9, 3.630568859250233*^9}, {3.630569706514694*^9, 
   3.630569775526641*^9}, 3.630569982346471*^9, {3.6305701679130845`*^9, 
   3.630570205199217*^9}, {3.6305703751399374`*^9, 3.630570526177576*^9}, {
   3.630587657039589*^9, 3.630587688367381*^9}, {3.6305880733027773`*^9, 
   3.6305883365376396`*^9}, {3.6305886689118233`*^9, 3.6305886717978287`*^9}, 
   3.6305889776831656`*^9, {3.6305890389444733`*^9, 3.6305890437180815`*^9}, {
   3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, {
   3.6305892509956455`*^9, 3.6305892594820604`*^9}, {3.630589318949365*^9, 
   3.6305893334729905`*^9}, {3.630589630294712*^9, 3.6305896376267247`*^9}, {
   3.630589683288005*^9, 3.630589684988408*^9}, {3.630597310538067*^9, 
   3.630597340080757*^9}, {3.630597391446695*^9, 3.630597400596218*^9}, {
   3.6305974350611897`*^9, 3.6305974605306463`*^9}, {3.630633997622449*^9, 
   3.630634003125764*^9}, {3.630659322217756*^9, 3.63065932438616*^9}, {
   3.6306611578252783`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 
   3.630661257587454*^9}, {3.6306613001287284`*^9, 3.6306613026715326`*^9}, {
   3.6306613920752897`*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 
   3.630670654957817*^9}, {3.6306749981919994`*^9, 3.630675005793434*^9}, {
   3.6306751229631357`*^9, 3.630675150017683*^9}, {3.6306752035287437`*^9, 
   3.6306752096180925`*^9}, {3.630675315921172*^9, 3.6306753201514144`*^9}, {
   3.6306757793287754`*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 
   3.6306758147026625`*^9}, {3.6306760107574763`*^9, 
   3.6306760154417443`*^9}, {3.6306789722320743`*^9, 
   3.6306789870309205`*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, {
   3.6306800259177256`*^9, 3.6306800406129513`*^9}, {3.6306801239326982`*^9, 
   3.6306801300167084`*^9}, {3.630680769261832*^9, 3.6306807806186523`*^9}, {
   3.630681157468514*^9, 3.6306811577649145`*^9}, {3.6306812744219193`*^9, 
   3.63068127471832*^9}, {3.6306817187418995`*^9, 3.6306817919060287`*^9}, {
   3.630681879188182*^9, 3.6306819111526375`*^9}, {3.6306821191790032`*^9, 
   3.6306821283050194`*^9}, {3.630720543651497*^9, 3.6307205534300566`*^9}, {
   3.630721035525631*^9, 3.630721092774905*^9}, {3.6307212510439577`*^9, 
   3.6307213064777765`*^9}, {3.6307477437169704`*^9, 
   3.6307478284095197`*^9}, {3.6307478614971776`*^9, 
   3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, {
   3.630748045624301*^9, 3.630748063876333*^9}, {3.630748111596817*^9, 
   3.6307481498324842`*^9}, {3.6307489182430334`*^9, 
   3.6307489447786803`*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, {
   3.6307491041485605`*^9, 3.6307491384218206`*^9}, {3.6307491914151134`*^9, 
   3.630749196890723*^9}, {3.6307492445800066`*^9, 3.6307493439989815`*^9}, {
   3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 
   3.6307495547241516`*^9}, {3.6307496525831237`*^9, 3.630749669571553*^9}, {
   3.630750220602922*^9, 3.6307502881822405`*^9}, {3.6307510631916018`*^9, 
   3.630751068292811*^9}, {3.6307511226589065`*^9, 3.630751137962533*^9}, {
   3.6307512555243397`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 
   3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, {
   3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.6307591666721067`*^9, 
   3.63075923229886*^9}, 3.630760288282259*^9, {3.6307603547370596`*^9, 
   3.630760557414652*^9}, {3.630760654134184*^9, 3.63076065510824*^9}, {
   3.6307606911683025`*^9, 3.6307606919283457`*^9}, {3.6307607642334814`*^9, 
   3.6307607648645177`*^9}, {3.630761455000991*^9, 3.6307614616743727`*^9}, {
   3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 
   3.630761695865768*^9}, {3.630761771278081*^9, 3.6307617792215357`*^9}, 
   3.6307629478424797`*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, {
   3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.6322053746993074`*^9, {
   3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396935015`*^9, 
   3.63220636484194*^9}, {3.6322064410612993`*^9, 3.6322064491667633`*^9}, {
   3.632206580308264*^9, 3.6322066373275256`*^9}, {3.6322066736436024`*^9, 
   3.6322067467737856`*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 
   3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, {
   3.6322073997741346`*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 
   3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, {
   3.6322079043859973`*^9, 3.6322079279443445`*^9}, {3.6322080916397076`*^9, 
   3.6322081666649985`*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 
   3.6349054089004903`*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, {
   3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 
   3.634905628121029*^9}, {3.6349057012822137`*^9, 3.6349057207913294`*^9}, {
   3.6349061371061416`*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 
   3.6349064369332905`*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 
   3.634906706128688*^9, {3.6349069249442034`*^9, 3.6349069328326545`*^9}, {
   3.6349070151973653`*^9, 3.6349070242298822`*^9}, {3.6349070817921743`*^9, 
   3.6349070822111983`*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, {
   3.6349079580732946`*^9, 3.6349079868219395`*^9}, {3.634908200284148*^9, 
   3.634908315195721*^9}, {3.6349083774582825`*^9, 3.6349084027997313`*^9}, {
   3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 
   3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, {
   3.6349539785771523`*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 
   3.6349541681829967`*^9}, {3.634954211263461*^9, 3.6349542495746527`*^9}, {
   3.6349543251259737`*^9, 3.634954355882733*^9}, {3.6349543892536416`*^9, 
   3.6349544742835045`*^9}, {3.634954547519694*^9, 3.6349545640246377`*^9}, {
   3.6349547051657104`*^9, 3.6349547107930326`*^9}, {3.634954745355009*^9, 
   3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, {
   3.634954904907135*^9, 3.6349549451084347`*^9}, {3.634955219605135*^9, 
   3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, {
   3.634955386393675*^9, 3.6349555039273973`*^9}, {3.6349557669644423`*^9, 
   3.6349557672004557`*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, {
   3.6349559513739896`*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 
   3.634956128996149*^9}, {3.6349561700724983`*^9, 3.6349561978900895`*^9}, {
   3.6349562480719595`*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 
   3.6349563460575643`*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 
   3.6349564696636343`*^9, {3.6351524116477795`*^9, 3.6351524153379908`*^9}, {
   3.6352134400282927`*^9, 3.635213442148414*^9}, {3.6352134745862694`*^9, 
   3.635213495869487*^9}, {3.6352135383409157`*^9, 3.6352137157160616`*^9}, {
   3.6352137493569856`*^9, 3.635213764522853*^9}, {3.635214215036621*^9, 
   3.635214227593339*^9}, {3.635214407257615*^9, 3.63521441713218*^9}, {
   3.635215297101512*^9, 3.635215303964904*^9}, {3.6352154111120324`*^9, 
   3.635215431504199*^9}, {3.635216346055508*^9, 3.635216494371991*^9}, {
   3.635216631050809*^9, 3.6352166603244834`*^9}, {3.635216763034358*^9, 
   3.635216764164423*^9}, {3.6352168771938877`*^9, 3.635216888828553*^9}, 
   3.6352169832479534`*^9, 3.635217037668066*^9, {3.6352172024924936`*^9, 
   3.6352172054526625`*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 
   3.6352173863770113`*^9, {3.635217519639633*^9, 3.6352175507014103`*^9}, 
   3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, {
   3.6352185912849283`*^9, 3.635218598444338*^9}, {3.6352186995721216`*^9, 
   3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, {
   3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 
   3.6352195994635925`*^9, {3.6352197336482677`*^9, 3.635219737452485*^9}, {
   3.6352197706093817`*^9, 3.6352197723214793`*^9}, {3.635219941784172*^9, 
   3.6352199485115566`*^9}, {3.6352200714185867`*^9, 
   3.6352200854323883`*^9}, {3.6352202085694313`*^9, 3.635220235849992*^9}, {
   3.6352202816336107`*^9, 3.6352203110962954`*^9}, {3.6352204980449886`*^9, 
   3.6352205276526823`*^9}, {3.6352253191447396`*^9, 
   3.6352253299913597`*^9}, {3.6352253611111403`*^9, 
   3.6352253637572913`*^9}, {3.635225409322898*^9, 3.6352255965196047`*^9}, {
   3.6352260914249115`*^9, 3.6352261698393965`*^9}, {3.63522638233055*^9, 
   3.6352264188036366`*^9}, {3.635227493469104*^9, 3.635227556935734*^9}, {
   3.6352276745764627`*^9, 3.635227730116639*^9}, {3.6352287979917183`*^9, 
   3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, {
   3.635229365252164*^9, 3.6352293902275925`*^9}, {3.63522947690555*^9, 
   3.6352294807837715`*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 
   3.6356569054520617`*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, {
   3.6363778414932528`*^9, 3.6363778525308843`*^9}, {3.636384436335312*^9, 
   3.6363846409950175`*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, {
   3.6363850170465264`*^9, 3.636385030729309*^9}, {3.6363851286779118`*^9, 
   3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, {
   3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 
   3.656076619019133*^9}, 3.6560772545486493`*^9, {3.6630719749029694`*^9, 
   3.6630719878027077`*^9}, {3.6630720702554235`*^9, 
   3.6630720807290225`*^9}, {3.6630721155740156`*^9, 
   3.6630721713712068`*^9}, {3.663072270834896*^9, 3.6630722882218904`*^9}, 
   3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, {
   3.685252204033695*^9, 3.6852522340537376`*^9}, {3.6852522757137957`*^9, 
   3.6852523115138454`*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, {
   3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.6852540682470407`*^9, 
   3.6852541660656357`*^9, {3.6852604801645336`*^9, 3.6852605060345697`*^9}, {
   3.6852605373446136`*^9, 3.6852605977846985`*^9}, 3.685260655254779*^9, {
   3.6853280002218475`*^9, 3.685328019561875*^9}, 3.685328064721938*^9, {
   3.6853280953119807`*^9, 3.6853282636022167`*^9}, {3.685328356242346*^9, 
   3.685328598671985*^9}, {3.6853286682069626`*^9, 3.6853287982524004`*^9}, {
   3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 
   3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, {
   3.685329173522865*^9, 3.6853294420842257`*^9}, {3.6853296024223967`*^9, 
   3.6853296124319687`*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, {
   3.6853298076291337`*^9, 3.6853298739599276`*^9}, {3.685330038474337*^9, 
   3.685330051652091*^9}, {3.6853311309428225`*^9, 3.685331168378964*^9}, {
   3.685340142134763*^9, 3.685340180544817*^9}, {3.6853583292043543`*^9, 
   3.685358334834362*^9}, {3.685358366084406*^9, 3.685358366954407*^9}, {
   3.685358408404465*^9, 3.685358518294619*^9}, 3.685358620174762*^9, 
   3.6853586578748145`*^9, {3.6853588750151186`*^9, 3.6853588857151337`*^9}, {
   3.6853589302051954`*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 
   3.6853590296653347`*^9}, 3.685359148315501*^9, 3.6853598281764526`*^9, {
   3.6853683109000263`*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 
   3.6853684704302497`*^9}, {3.6853685194503183`*^9, 3.685368742860631*^9}, {
   3.685369008901004*^9, 3.68536902061102*^9}, {3.6853690791611023`*^9, 
   3.685369132301176*^9}, {3.6853693219914417`*^9, 3.6853693304114532`*^9}, 
   3.6853696089118433`*^9, {3.6858758911429157`*^9, 3.685875951793*^9}, {
   3.6859484099082212`*^9, 3.6859484970032024`*^9}, {3.686052829875022*^9, 
   3.686052906242383*^9}, {3.6860535326822133`*^9, 3.686053598029951*^9}, {
   3.68605365168902*^9, 3.6860541446091995`*^9}, {3.6860541846064873`*^9, 
   3.68605440393201*^9}, {3.686054713802734*^9, 3.6860547858298535`*^9}, {
   3.6860548280202665`*^9, 3.686054837219793*^9}, {3.686054874127904*^9, 
   3.686054892139934*^9}, {3.686055136014883*^9, 3.6860551460584574`*^9}, {
   3.686055211281188*^9, 3.6860552301962633`*^9}, {3.6860553465409174`*^9, 
   3.6860553998749685`*^9}, {3.6860556017188663`*^9, 
   3.6860556050188704`*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, {
   3.686292409650853*^9, 3.6862924109708548`*^9}, {3.6862924536109147`*^9, 
   3.6862924596309233`*^9}, {3.686292542221039*^9, 3.6862925430110397`*^9}, {
   3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 
   3.686650526682659*^9}, {3.686650671852862*^9, 3.6866507242929354`*^9}, {
   3.6866507657529936`*^9, 3.6866507887630253`*^9}, {3.6866508208230705`*^9, 
   3.6866509100531955`*^9}, {3.6866509593932643`*^9, 3.686650971113281*^9}, {
   3.686651007793332*^9, 3.6866511595335445`*^9}, {3.686651223513634*^9, 
   3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, {
   3.6866514102038956`*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 
   3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, {
   3.6868046315619783`*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 
   3.686804707092084*^9}, {3.6868047382021275`*^9, 3.686804767812169*^9}, {
   3.686804824012248*^9, 3.6868048404922705`*^9}, {3.686804942142413*^9, 
   3.6868049633424425`*^9}, {3.6868050765526013`*^9, 3.686805101092636*^9}, {
   3.6868051463526993`*^9, 3.6868052234228067`*^9}, {3.686805307602925*^9, 
   3.686805311682931*^9}, {3.68680577547358*^9, 3.686805788923599*^9}, {
   3.686821702197342*^9, 3.6868217282873783`*^9}, {3.6868225192884855`*^9, 
   3.686822538368512*^9}, {3.6868226306886415`*^9, 3.6868226683086944`*^9}, {
   3.6868227318887835`*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 
   3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, {
   3.6868232450595016`*^9, 3.6868233753996844`*^9}, {3.6868234153897405`*^9, 
   3.686823451379791*^9}, {3.6868236736101017`*^9, 3.6868236786601086`*^9}, {
   3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 
   3.68682390087042*^9}, {3.686823940790476*^9, 3.6868239416904774`*^9}, {
   3.6868239808805323`*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 
   3.6868240519006314`*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, {
   3.6868245440213203`*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 
   3.6868246979115357`*^9}, 3.6868248012716804`*^9, 3.6868253582724605`*^9, {
   3.6868255183026843`*^9, 3.686825518932685*^9}, {3.6868264466639843`*^9, 
   3.6868264497139883`*^9}, {3.6868267792744493`*^9, 
   3.6868268152945004`*^9}, {3.686827100164899*^9, 3.6868271210549283`*^9}, 
   3.686827162004986*^9, {3.6868272414950967`*^9, 3.686827327475217*^9}, {
   3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 
   3.686829138957753*^9}, 3.6868292410978966`*^9, {3.6868292768379464`*^9, 
   3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, {
   3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 
   3.686831307180789*^9}, {3.6868331276633377`*^9, 3.68683328653356*^9}, {
   3.6868394697195063`*^9, 3.6868394933895392`*^9}, 3.686839530999592*^9, {
   3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 
   3.68683979365996*^9}, {3.6868398344600167`*^9, 3.686839866200061*^9}, {
   3.687092084401948*^9, 3.687092117031994*^9}, {3.6870922598621936`*^9, 
   3.6870922645422*^9}, {3.6870962086478376`*^9, 3.6870962658779182`*^9}, 
   3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, {
   3.6870965809883595`*^9, 3.687096592708376*^9}, 3.687096837948719*^9, {
   3.68709688890879*^9, 3.687096985798926*^9}, {3.6870971015990877`*^9, 
   3.6870972179192505`*^9}, {3.6870972618993125`*^9, 3.687097305639374*^9}, {
   3.6870973356794157`*^9, 3.6870975186496716`*^9}, {3.6870975796097574`*^9, 
   3.6870975953197794`*^9}, {3.6870976531898603`*^9, 3.6870976848899045`*^9}, 
   3.6870977782500353`*^9, {3.687413757687042*^9, 3.6874137834070783`*^9}, {
   3.6874140542074575`*^9, 3.687414094417514*^9}, {3.6874143478878684`*^9, 
   3.687414485538061*^9}, {3.6874146116082373`*^9, 3.68741464894829*^9}, {
   3.6874147451084247`*^9, 3.687414766118454*^9}, 3.6874149094486547`*^9, {
   3.6874150416688395`*^9, 3.6874150634888706`*^9}, {3.6874152437091227`*^9, 
   3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 
   3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 
   3.687415645529685*^9, {3.6874168016913037`*^9, 3.687416803441306*^9}, {
   3.687421022677213*^9, 3.6874212686075573`*^9}, {3.68742948209425*^9, 
   3.6874294906842623`*^9}, {3.687844340668378*^9, 3.6878443698084188`*^9}, {
   3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 
   3.6889064680223217`*^9}, {3.688906514222396*^9, 3.6889065193925257`*^9}, {
   3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 
   3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, {
   3.688908466073407*^9, 3.6889084993734536`*^9}, 3.688908533623502*^9, {
   3.688908616683618*^9, 3.6889086271336327`*^9}, {3.6889086885637183`*^9, 
   3.6889087063437433`*^9}, {3.6889091647443852`*^9, 
   3.6889092012544365`*^9}, {3.6889093019045773`*^9, 3.6889093406746316`*^9}, 
   3.6889101071957045`*^9, {3.689905940063133*^9, 3.689905972983179*^9}, {
   3.692530981927737*^9, 3.6925310416778207`*^9}, {3.692531099797902*^9, 
   3.6925311384779563`*^9}, {3.692531192258032*^9, 3.692531244668105*^9}, {
   3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 
   3.692531643928664*^9}, {3.692535489534048*^9, 3.6925356485142703`*^9}, {
   3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 
   3.692535899604622*^9}, {3.692536042584822*^9, 3.692536159384986*^9}, {
   3.6925366121156197`*^9, 3.6925366207256317`*^9}, {3.6925367265057793`*^9, 
   3.69253672683578*^9}, {3.6925368590559654`*^9, 3.6925368636559715`*^9}, {
   3.6925370880062857`*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 
   3.6925373869767046`*^9}, {3.6925390913352747`*^9, 
   3.6925390925252767`*^9}, {3.692539644430175*^9, 3.6925396711502123`*^9}, {
   3.692539727510291*^9, 3.692539730440295*^9}, {3.69253993367058*^9, 
   3.692539963780622*^9}, {3.6925400018406754`*^9, 3.692540003630678*^9}, {
   3.6925401743409166`*^9, 3.6925401747509174`*^9}, {3.692540399111232*^9, 
   3.692540407981244*^9}, {3.69254047647134*^9, 3.6925404886113567`*^9}, {
   3.6925406039715185`*^9, 3.69254060531152*^9}, {3.6925414948727655`*^9, 
   3.6925414953427663`*^9}, {3.6925415478528395`*^9, 3.692541613062931*^9}, 
   3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, {
   3.692541924473367*^9, 3.692542041693531*^9}, {3.6925421488836813`*^9, 
   3.6925422549438295`*^9}, {3.6925422976938896`*^9, 3.692542521444203*^9}, {
   3.6925426221843443`*^9, 3.6925426357343626`*^9}, 3.692542739374508*^9, 
   3.692599799510878*^9, {3.692599834884901*^9, 3.6925998954663663`*^9}, {
   3.692599925635092*^9, 3.6926000095928946`*^9}, {3.692600108929576*^9, 
   3.6926001456386757`*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, {
   3.692600503149027*^9, 3.6926006000391626`*^9}, {3.692600680251275*^9, 
   3.6926006814012766`*^9}, {3.6926009000215826`*^9, 3.6926009410816402`*^9}, 
   3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 
   3.6926045660127153`*^9, 3.6926046690228596`*^9, {3.69296647863291*^9, 
   3.6929664798829117`*^9}, {3.6929665643330297`*^9, 
   3.6929666141830997`*^9}, {3.6929670390036945`*^9, 
   3.6929670405536966`*^9}, {3.6929670861037607`*^9, 
   3.6929670952937737`*^9}, {3.6929671302538223`*^9, 
   3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, {
   3.6929672596240034`*^9, 3.6929673352541094`*^9}, 3.6929678909232683`*^9, {
   3.6930146982034283`*^9, 3.693014722713463*^9}, {3.6930148540136466`*^9, 
   3.693014857023651*^9}, {3.6930148913836985`*^9, 3.693014894823704*^9}, {
   3.693014930903754*^9, 3.6930151942541227`*^9}, {3.693015247824198*^9, 
   3.693015430554454*^9}, {3.693015673794794*^9, 3.69301579223496*^9}, {
   3.6930163123576884`*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 
   3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, {
   3.693016737038283*^9, 3.693016755068308*^9}, {3.6930168429225607`*^9, 
   3.6930168719926014`*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, {
   3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 
   3.6930180975563173`*^9}, {3.6930181870764427`*^9, 3.693018199956461*^9}, {
   3.6930182954065943`*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 
   3.6931399045016823`*^9}, {3.6931402916003532`*^9, 3.693140295770359*^9}, {
   3.693140426020541*^9, 3.693140426530542*^9}, {3.6931410492237864`*^9, 
   3.6931410888738413`*^9}, {3.6931411194438844`*^9, 3.693141126553894*^9}, {
   3.693141412004294*^9, 3.693141454164353*^9}, {3.6931415979955544`*^9, 
   3.6931417931758275`*^9}, {3.6932199559445915`*^9, 
   3.6932199772046213`*^9}, {3.6932201435748544`*^9, 3.693220170284892*^9}, {
   3.693220713855653*^9, 3.693220721825664*^9}, {3.693625124589745*^9, 
   3.693625153729786*^9}, {3.6940907995669713`*^9, 3.6940909688872085`*^9}, {
   3.6940913675677667`*^9, 3.6940914223978434`*^9}, {3.694091508037963*^9, 
   3.694091572118053*^9}, 3.694092009628666*^9, {3.6940920553287296`*^9, 
   3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, {
   3.6940924537392874`*^9, 3.694092457789293*^9}, 3.694092642849552*^9, {
   3.6940928573598523`*^9, 3.694092862379859*^9}, {3.6940945886222763`*^9, 
   3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 
   3.6940957644739223`*^9}, {3.6940960602743363`*^9, 
   3.6940960732243547`*^9}, {3.6940961211044216`*^9, 3.694096124194426*^9}, {
   3.694665030960044*^9, 3.6946650634500895`*^9}, {3.6946652071402903`*^9, 
   3.6946653490404887`*^9}, {3.6946658702212186`*^9, 
   3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, {
   3.694665995981395*^9, 3.6946660149414215`*^9}, {3.694666050571471*^9, 
   3.6946660547214766`*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, {
   3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.6946667526224537`*^9, 
   3.69466680700253*^9, 3.694687076625702*^9, {3.6946874316161985`*^9, 
   3.6946874621962414`*^9}, 3.694687499496294*^9, {3.694687567516389*^9, 
   3.694687642816495*^9}, {3.694687679006545*^9, 3.6946877198966026`*^9}, {
   3.6946877714966745`*^9, 3.694687931746899*^9}, {3.723798739728607*^9, 
   3.723798744014243*^9}, {3.7237990126446104`*^9, 3.723799023974499*^9}, {
   3.7244116671877546`*^9, 3.7244116733393917`*^9}, {3.724411761793063*^9, 
   3.7244117718753977`*^9}, {3.724411928386671*^9, 3.7244119682966137`*^9}, {
   3.724412131847311*^9, 3.724412188341254*^9}, {3.729414981357122*^9, 
   3.7294149861075096`*^9}, {3.749817651293678*^9, 3.749817653108206*^9}, {
   3.7498176831919456`*^9, 3.7498176846222315`*^9}, 3.7498177601545563`*^9, {
   3.749817859674735*^9, 3.749817861044999*^9}, {3.7498179561547127`*^9, 
   3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 
   3.749818617867873*^9, {3.7505621848002787`*^9, 3.7505622174085107`*^9}, {
   3.75056238761455*^9, 3.750562431347901*^9}, {3.7505626332829456`*^9, 
   3.7505627331565337`*^9}, {3.7505627632642183`*^9, 
   3.7505627635859113`*^9}, {3.7515359581577415`*^9, 
   3.7515359614850826`*^9}, {3.751536071974715*^9, 3.7515360961721487`*^9}, 
   3.7515362040373974`*^9, {3.751536256080162*^9, 3.7515365099108534`*^9}, {
   3.751549231137398*^9, 3.7515493334258356`*^9}, {3.7515496891619573`*^9, 
   3.751549689458767*^9}, 3.753020403650548*^9, {3.7530205114189386`*^9, 
   3.753020525224822*^9}, {3.753021995594639*^9, 3.753022011512741*^9}, {
   3.760634689749445*^9, 3.7606348247488756`*^9}, {3.7606349119783344`*^9, 
   3.7606349350197754`*^9}, {3.76063496856853*^9, 3.7606349922504683`*^9}, {
   3.760667269592998*^9, 3.760667271545692*^9}, 3.7606679283912125`*^9, 
   3.760668039709257*^9, {3.763302716900259*^9, 3.763302749083943*^9}, {
   3.763304867499642*^9, 3.7633048681948185`*^9}, {3.763337978730939*^9, 
   3.763338014197137*^9}, {3.763338054806819*^9, 3.7633381289118147`*^9}, {
   3.763338224472745*^9, 3.7633382447254143`*^9}, 3.763338501519575*^9, {
   3.7633387342733064`*^9, 3.763338775483101*^9}, {3.7633388525735607`*^9, 
   3.7633390131554184`*^9}, {3.763360596353942*^9, 3.7633606328922167`*^9}, {
   3.7633606638773637`*^9, 3.763360724941125*^9}, {3.763360812068123*^9, 
   3.763360863571327*^9}, {3.763361217769263*^9, 3.763361243271195*^9}, {
   3.763361578316657*^9, 3.7633615820345063`*^9}, {3.763362291476118*^9, 
   3.763362301380039*^9}, {3.763362505004878*^9, 3.763362606421646*^9}, {
   3.763362742167684*^9, 3.7633627524126663`*^9}, {3.7633628090243473`*^9, 
   3.763362931819517*^9}, 3.7633630680313087`*^9, {3.76336360941794*^9, 
   3.7633636782369685`*^9}, {3.763363813698273*^9, 3.763363822992702*^9}, {
   3.7633837714269123`*^9, 3.763383775708086*^9}, {3.7633839861442327`*^9, 
   3.7633839966350546`*^9}, {3.7633846907375526`*^9, 3.76338471098131*^9}, 
   3.763426089635152*^9, {3.7634262143520336`*^9, 3.7634262475470448`*^9}, {
   3.7634276458524485`*^9, 3.7634276705117846`*^9}, {3.7634292721860075`*^9, 
   3.7634292840439587`*^9}, {3.76352820463631*^9, 3.7635282147939873`*^9}, {
   3.763528430960533*^9, 3.7635284413250494`*^9}, {3.7635285114344244`*^9, 
   3.763528537124817*^9}, {3.763528653934307*^9, 3.7635286747218256`*^9}, {
   3.7635486952594075`*^9, 3.763548696007099*^9}, {3.7639579130072594`*^9, 
   3.7639579464687676`*^9}, {3.763957980699315*^9, 3.7639580928074217`*^9}, {
   3.763959813173403*^9, 3.7639598134702053`*^9}, {3.7639608015345135`*^9, 
   3.7639608287155933`*^9}, {3.7645603385872726`*^9, 3.764560365934222*^9}, {
   3.76456061596602*^9, 3.76456062636983*^9}, {3.7647257988231063`*^9, 
   3.7647258025896564`*^9}, {3.765077713031946*^9, 3.7650777913378534`*^9}, {
   3.7740698865922914`*^9, 3.774069989744633*^9}, {3.7740700982535834`*^9, 
   3.774070098487667*^9}, {3.7740701415628414`*^9, 3.7740702370647106`*^9}, {
   3.77407029325229*^9, 3.7740703348543596`*^9}, {3.774070397587008*^9, 
   3.774070454974152*^9}, {3.7740709929610343`*^9, 3.7740710067172923`*^9}, {
   3.775190474681038*^9, 3.7751904884151363`*^9}, {3.7751905901325903`*^9, 
   3.775190642609686*^9}, 3.775190717712206*^9, {3.7751956728394384`*^9, 
   3.7751957010601625`*^9}, 3.7751957418100777`*^9, {3.7751958741450567`*^9, 
   3.775195882844048*^9}, {3.7751959530858574`*^9, 3.775196055684782*^9}, {
   3.7836566506037264`*^9, 3.783656699859296*^9}, {3.783834162184903*^9, 
   3.7838342075157394`*^9}, {3.7838342453955064`*^9, 
   3.7838342564437876`*^9}, {3.783834288539219*^9, 3.783834289188504*^9}, {
   3.783834319888338*^9, 3.783834404011998*^9}, {3.783835274452033*^9, 
   3.783835643262226*^9}, 3.783835673435833*^9, {3.783837186915415*^9, 
   3.783837252940491*^9}, 3.783838076793089*^9, {3.7838387026691084`*^9, 
   3.7838387106794033`*^9}, {3.7838387751330376`*^9, 3.78383877586726*^9}, 
   3.7885184612710266`*^9, {3.7885197610115976`*^9, 3.788519761667694*^9}, {
   3.788519815581788*^9, 3.788519877459923*^9}, {3.788519910619506*^9, 
   3.7885199214314795`*^9}, {3.78852990807364*^9, 3.78852991935472*^9}, {
   3.788529949778452*^9, 3.7885299511123505`*^9}, 3.7885729856546545`*^9, {
   3.795769635061987*^9, 3.7957696738473544`*^9}, {3.7957698528454103`*^9, 
   3.795769867081932*^9}, {3.7963499268904905`*^9, 3.796349974573367*^9}, {
   3.8116565658363085`*^9, 3.811656579625844*^9}, {3.8116566792733173`*^9, 
   3.811656696847624*^9}, {3.819778974172573*^9, 3.819778996370713*^9}, {
   3.819779237456471*^9, 3.819779375493654*^9}, {3.819779556474127*^9, 
   3.8197797185600586`*^9}, 3.8200272939729*^9, 3.8200273875005593`*^9, 
   3.820027421880412*^9, {3.8200275035350485`*^9, 3.8200275049354267`*^9}, {
   3.8459709950905457`*^9, 3.8459710017500772`*^9}, {3.8459711689546986`*^9, 
   3.8459711702691975`*^9}, {3.845971286165346*^9, 3.845971289846427*^9}, {
   3.8459713248880577`*^9, 3.8459714501425343`*^9}, {3.845971579506527*^9, 
   3.8459716159320116`*^9}, {3.851994156946926*^9, 3.851994267451933*^9}, {
   3.851994384355441*^9, 3.851994388857566*^9}, {3.8519946139658265`*^9, 
   3.8519947933175044`*^9}, {3.8519948506536093`*^9, 
   3.8519948668032107`*^9}, {3.8520795751469183`*^9, 3.852079576172632*^9}, {
   3.852092396739352*^9, 3.8520925534144993`*^9}},
 CellLabel->
  "In[148]:=",ExpressionUUID->"d0ff8f44-4dde-4200-8c06-953139417524"]
}, Closed]],

Cell[CellGroupData[{

Cell["BENDING ELEMENT (vibr) defs ", "Subsection",
 CellChangeTimes->{{3.7530187996679964`*^9, 3.753018803413909*^9}, {
   3.7633629633672647`*^9, 3.763362967100765*^9}, {3.787894773214689*^9, 
   3.7878947881941814`*^9}, {3.78789485671918*^9, 3.78789488217928*^9}, 
   3.7885197052606735`*^9, {3.788530025907043*^9, 3.7885300287809105`*^9}, 
   3.7885306781716957`*^9, {3.8200271989371843`*^9, 3.8200272016625395`*^9}, {
   3.8200274346181693`*^9, 3.8200274405428553`*^9}, {3.851994139239622*^9, 
   3.8519941462255764`*^9}, {3.8520799546994066`*^9, 
   3.852079955796615*^9}},ExpressionUUID->"27b5c6bd-01d0-4496-aee2-\
63c2b831dd7e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MEC", "-", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"BENDING", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"BEAM", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE", ",", "0", ",", "\[Rho]\[Rho]"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"BENDING", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"BEAM", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE", ",", "0", ",", "\[Rho]\[Rho]"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"BENDING", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE_", ",", "\[Rho]\[Rho]_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", 
             "mZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"VIBR", ",", 
       RowBox[{"{", 
        RowBox[{"BEAM", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE", ",", "0", ",", "\[Rho]\[Rho]"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "fX", ",", "fY", ",", "fZ", ",", "mX", ",", "mY", ",", "mZ"}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", "fun"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, {
   3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 
   3.4430691708072*^9}, {3.4430692071717997`*^9, 3.443069246359*^9}, {
   3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 
   3.4430774104676*^9}, {3.4430775053780003`*^9, 3.4430776180598*^9}, {
   3.4434109099524*^9, 3.4434109159584*^9}, {3.4438800815346003`*^9, 
   3.4438802689304*^9}, {3.443880362624*^9, 3.4438803824516*^9}, {
   3.443929565615374*^9, 3.443929570232974*^9}, {3.443935321321974*^9, 
   3.443935335705174*^9}, {3.443935419945174*^9, 3.443935421489574*^9}, {
   3.443935494013974*^9, 3.443935494715974*^9}, {3.443935617565974*^9, 
   3.4439357217895737`*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, {
   3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 
   3.4439423142123737`*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, {
   3.4439447830065737`*^9, 3.4439447917425737`*^9}, {3.443944908541774*^9, 
   3.443944916060974*^9}, {3.4442731097938004`*^9, 3.4442731115254*^9}, {
   3.444273189229*^9, 3.4442732700526*^9}, {3.4442748430004*^9, 
   3.4442748605036*^9}, {3.4442748977438*^9, 3.4442748989762*^9}, {
   3.4442749340762*^9, 3.4442749351057997`*^9}, 3.4442752313382*^9, {
   3.4442919702026*^9, 3.4442919911846*^9}, {3.4442921151577997`*^9, 
   3.4442921271074*^9}, {3.4443811023684*^9, 3.4443811036632*^9}, {
   3.4443814073171997`*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 
   3.4443815147855997`*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, {
   3.4443816138143997`*^9, 3.444381633174*^9}, {3.4443816850439997`*^9, 
   3.4443817801728*^9}, 3.4443853618688*^9, {3.4443855607376003`*^9, 
   3.4443856337924*^9}, {3.4443861200444*^9, 3.4443861523676*^9}, {
   3.4443862280495996`*^9, 3.444386291448*^9}, {3.4443864047352*^9, 
   3.4443864135336*^9}, {3.4443870026832*^9, 3.4443870095316*^9}, {
   3.4444082055056*^9, 3.4444082437412*^9}, {3.4444082797148*^9, 
   3.4444084583816*^9}, {3.4444084889108*^9, 3.4444085087539997`*^9}, {
   3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 
   3.4444091647167997`*^9}, {3.4444092206428003`*^9, 
   3.4444092944463997`*^9}, {3.4444093856284*^9, 3.4444094281071997`*^9}, {
   3.4444094976988*^9, 3.4444095275104*^9}, {3.444409611064*^9, 
   3.4444096125772*^9}, 3.4444098504616003`*^9, {3.444409913392*^9, 
   3.4444099166056004`*^9}, 3.4444100178496*^9, {3.4444103063248*^9, 
   3.4444103358712*^9}, {3.4444103868208*^9, 3.4444104432460003`*^9}, {
   3.4444921219564*^9, 3.4444921256224003`*^9}, {3.444492194824*^9, 
   3.4444921973668003`*^9}, {3.4444922814351997`*^9, 3.4444922853508*^9}, {
   3.4444923330868*^9, 3.4444923345844*^9}, {3.444492366424*^9, 
   3.4444923855808*^9}, {3.4453153475226*^9, 3.445315360689*^9}, {
   3.4465518166373653`*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 
   3.446552159384965*^9}, {3.446552232377365*^9, 3.4465522555589647`*^9}, {
   3.446553347388365*^9, 3.4465533616155653`*^9}, {3.4466058525769997`*^9, 
   3.4466058529046*^9}, {3.4466064371219997`*^9, 3.4466065097244*^9}, {
   3.4466127725788*^9, 3.4466127766036*^9}, {3.4466128124835997`*^9, 
   3.4466130037864*^9}, {3.4466131532696*^9, 3.4466131761703997`*^9}, {
   3.4466133992192*^9, 3.4466134478756*^9}, {3.446613483584*^9, 
   3.4466134932092*^9}, {3.4466135740952*^9, 3.4466135794927998`*^9}, {
   3.4466137283948*^9, 3.4466137341356*^9}, {3.4466138994342003`*^9, 
   3.4466139023826*^9}, {3.4466139549858*^9, 3.4466139579653997`*^9}, {
   3.4466142109818*^9, 3.4466142245226*^9}, {3.4466142793878*^9, 
   3.4466143652033997`*^9}, {3.4466144712834*^9, 3.4466145978929996`*^9}, {
   3.4466146992618*^9, 3.4466147509914*^9}, {3.4466151283086*^9, 
   3.4466152768986*^9}, {3.4466153107506*^9, 3.4466153406558*^9}, {
   3.4466194331976*^9, 3.4466194377528*^9}, {3.4466194847712*^9, 
   3.446619488718*^9}, {3.4466389495861998`*^9, 3.4466389768238*^9}, {
   3.4466391218414*^9, 3.446639306561*^9}, {3.4466393990222*^9, 
   3.4466394004886*^9}, {3.4466394475694*^9, 3.4466394487706003`*^9}, {
   3.4466395034174*^9, 3.4466395049462*^9}, 3.4466395515755997`*^9, {
   3.4466396000176*^9, 3.4466396190808*^9}, {3.4466397459088*^9, 
   3.446639748826*^9}, {3.4466397974356003`*^9, 3.446639798668*^9}, 
   3.4466398447816*^9, {3.446639894218*^9, 3.4466399201556*^9}, {
   3.4466399570964003`*^9, 3.4466399583288*^9}, {3.446639994006*^9, 
   3.4466400056904*^9}, {3.4466400383568*^9, 3.4466400395892*^9}, {
   3.4466400745643997`*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 
   3.4466401806070004`*^9}, {3.4466402251294003`*^9, 3.446640227407*^9}, {
   3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 
   3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 
   3.4467273777813997`*^9}, {3.4467274366558*^9, 3.4467275620954*^9}, {
   3.446727593311*^9, 3.4467277412614*^9}, {3.4467283334639997`*^9, 
   3.4467283356012*^9}, {3.4467283707636003`*^9, 3.4467283727604*^9}, {
   3.4467289882664003`*^9, 3.4467291276836*^9}, {3.446778464322*^9, 
   3.4467786797424*^9}, {3.4467801953803997`*^9, 3.4467802409792*^9}, {
   3.4467802998691998`*^9, 3.4467804023456*^9}, 3.4467804345596*^9, {
   3.4467808656344*^9, 3.4467808670852003`*^9}, 3.4467818107525997`*^9, {
   3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 
   3.4467827381726*^9}, {3.4467828623018*^9, 3.4467831045386*^9}, {
   3.4470344113984003`*^9, 3.4470344123344*^9}, {3.4470344628316*^9, 
   3.4470345343108*^9}, {3.447043591118539*^9, 3.447043642192939*^9}, {
   3.447045649625739*^9, 3.447045718437339*^9}, {3.447054774023939*^9, 
   3.447054834198939*^9}, {3.4470549103449388`*^9, 3.4470549116169386`*^9}, {
   3.447054943902939*^9, 3.4470553027109385`*^9}, {3.447055334559939*^9, 
   3.447055353684939*^9}, {3.447057311918539*^9, 3.447057369747739*^9}, {
   3.4470575058577385`*^9, 3.4470575951365385`*^9}, {3.4470581848789387`*^9, 
   3.4470582040825386`*^9}, {3.451276121243*^9, 3.4512761425838003`*^9}, {
   3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 
   3.4512762827654*^9}, {3.451276489091*^9, 3.451276541975*^9}, {
   3.4512765853118*^9, 3.4512766132046003`*^9}, {3.4512773470306*^9, 
   3.4512773766082*^9}, {3.4512776069110003`*^9, 3.4512777499318*^9}, 
   3.4512777831286*^9, {3.4512778785538*^9, 3.451277881627*^9}, {
   3.4512780242734003`*^9, 3.4512780302794*^9}, 3.4512780737878*^9, {
   3.4512781866226*^9, 3.4512781930810003`*^9}, {3.4512863325078*^9, 
   3.4512863539266*^9}, {3.4568019250434*^9, 3.4568022712698*^9}, {
   3.4568023177422*^9, 3.4568024125278*^9}, {3.4568024694365997`*^9, 
   3.4568024750369997`*^9}, {3.4568026914402*^9, 3.4568028101094*^9}, {
   3.4568028406698*^9, 3.4568028564726*^9}, 3.4568028886085997`*^9, {
   3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, {
   3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596003`*^9, 
   3.4568040844852*^9}, {3.4568043016684*^9, 3.4568043154744*^9}, {
   3.4568045482264*^9, 3.4568045486632*^9}, {3.4568048944996*^9, 
   3.4568049806116*^9}, {3.4660560628582*^9, 3.4660560753538*^9}, {
   3.4660676729379997`*^9, 3.4660676735931997`*^9}, {3.4660677244024*^9, 
   3.4660677277251997`*^9}, {3.4742646771287394`*^9, 3.47426469439174*^9}, {
   3.47426489921974*^9, 3.4742649800437393`*^9}, {3.4801246373348*^9, 
   3.4801246860536003`*^9}, {3.4801247748176003`*^9, 3.4801247821028*^9}, {
   3.4801248161264*^9, 3.4801248295736*^9}, {3.4801248810692*^9, 
   3.4801248964508*^9}, {3.4801249330484*^9, 3.480124947884*^9}, 
   3.4801249886468*^9, {3.4801251139147997`*^9, 3.48012512588*^9}, {
   3.4838339444988003`*^9, 3.4838339567448*^9}, 3.4838341692012*^9, {
   3.4838344350408*^9, 3.4838344353684*^9}, {3.4938987575920324`*^9, 
   3.4938987586840324`*^9}, {3.4941630624049997`*^9, 3.4941631381274*^9}, {
   3.4941632311345997`*^9, 3.4941632492306004`*^9}, 3.4941633249217997`*^9, {
   3.4941633940922003`*^9, 3.4941634063538*^9}, {3.4941634538402*^9, 
   3.4941635051642*^9}, {3.494163565115*^9, 3.4941636341762*^9}, {
   3.4941636853442*^9, 3.4941639323234*^9}, {3.4941640277798*^9, 
   3.4941641455754004`*^9}, {3.4941641790374002`*^9, 
   3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 
   3.4941644677018003`*^9, {3.4941646208938*^9, 3.4941646322349997`*^9}, {
   3.4941652592693996`*^9, 3.4941652807194*^9}, {3.4941653119038*^9, 
   3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, {
   3.4950990979779997`*^9, 3.495099142701*^9}, {3.495099172958*^9, 
   3.4950991806289997`*^9}, {3.495099227097*^9, 3.495099238113*^9}, 
   3.495099290797*^9, {3.495099346084*^9, 3.495099359507*^9}, {
   3.495099456308*^9, 3.495099464091*^9}, 3.495099683108*^9, {
   3.495100428112*^9, 3.495100434958*^9}, {3.4951006496219997`*^9, 
   3.495100649992*^9}, {3.4987235265018*^9, 3.4987235939094*^9}, {
   3.4987236420666*^9, 3.4987236530646*^9}, {3.4987237305341997`*^9, 
   3.4987237396914*^9}, {3.498733136159*^9, 3.4987332972446003`*^9}, {
   3.4987364783094*^9, 3.4987364860626*^9}, {3.4987366201134*^9, 
   3.4987366236078*^9}, {3.4987367272386*^9, 3.4987367464890003`*^9}, {
   3.4987369428462*^9, 3.4987369670886*^9}, {3.4987370134518003`*^9, 
   3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, {
   3.4987371921029997`*^9, 3.498737193663*^9}, {3.4987372660938*^9, 
   3.4987372935498*^9}, {3.4987373290554*^9, 3.4987377176202*^9}, {
   3.4987377520182*^9, 3.4987379139462*^9}, {3.4987382030216*^9, 
   3.4987382667078*^9}, {3.4987888391818*^9, 3.4987888608346*^9}, {
   3.4988785131146*^9, 3.4988785160162*^9}, {3.5007170967096*^9, 
   3.5007170999076*^9}, 3.5007182237316*^9, {3.5007182772864*^9, 
   3.5007182987832003`*^9}, {3.5009573226744003`*^9, 3.5009573940444*^9}, 
   3.5009574358710003`*^9, 3.5009604278482*^9, {3.5009897246173353`*^9, 
   3.5009898480289354`*^9}, {3.5009901464413357`*^9, 
   3.5009901475333357`*^9}, {3.5009901801997356`*^9, 3.500990274096135*^9}, {
   3.5010475253292*^9, 3.5010475852332*^9}, {3.5010605722018003`*^9, 
   3.5010606739762*^9}, {3.5010607202146*^9, 3.5010607323358*^9}, {
   3.5010607920526*^9, 3.501061118467*^9}, {3.5010612022078*^9, 
   3.5010612277138*^9}, {3.5010616467766*^9, 3.5010617938534*^9}, {
   3.5010618406222*^9, 3.5010619950778*^9}, {3.5010621500638*^9, 
   3.5010622514014*^9}, {3.5010625292218*^9, 3.5010625409374*^9}, {
   3.5010626043046*^9, 3.5010626313862*^9}, {3.5010626787166*^9, 
   3.5010626790754004`*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 
   3.5010763029458*^9, {3.5032210899309998`*^9, 3.5032212413900003`*^9}, {
   3.557658203404973*^9, 3.557658219644601*^9}, {3.5576584433801947`*^9, 
   3.557658496030287*^9}, {3.5576585501779823`*^9, 3.5576586046064777`*^9}, {
   3.557658648910555*^9, 3.557658754600741*^9}, {3.557658963945511*^9, 
   3.5576589782507353`*^9}, {3.557659009949991*^9, 3.5576591437514267`*^9}, {
   3.557659182221094*^9, 3.5576592187719584`*^9}, 3.557659413865901*^9, {
   3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 
   3.5576607248454037`*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, {
   3.5577526651911488`*^9, 3.5577526932087984`*^9}, {3.5577527272480583`*^9, 
   3.557752747122493*^9}, {3.5577528374934516`*^9, 3.557752838523053*^9}, {
   3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 
   3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, {
   3.5577536609544907`*^9, 3.5577536637936954`*^9}, {3.5577537824631042`*^9, 
   3.557753810184353*^9}, {3.557753841025607*^9, 3.5577540648392*^9}, 
   3.5577541920574236`*^9, {3.5577547033327217`*^9, 3.557754716967146*^9}, {
   3.5577547716296415`*^9, 3.557754802112095*^9}, {3.5577549509363565`*^9, 
   3.5577549771444025`*^9}, 3.5577551382302856`*^9, {3.55775527184452*^9, 
   3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, {
   3.557756158316077*^9, 3.557756231885806*^9}, {3.5577572408487787`*^9, 
   3.557757248835993*^9}, {3.5577572834368534`*^9, 3.5577575888229895`*^9}, {
   3.5577578129641833`*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 
   3.557758079272251*^9}, 3.557810586960072*^9, {3.5578240262005973`*^9, 
   3.5578240345360737`*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, {
   3.557831525255726*^9, 3.5578315319793377`*^9}, 3.5578315716190076`*^9, {
   3.557831606079468*^9, 3.557831629432709*^9}, {3.5578316663267736`*^9, 
   3.5578317569473333`*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, {
   3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 
   3.5578365974018345`*^9}, {3.5578366426731143`*^9, 3.557836658865943*^9}, {
   3.557836691017599*^9, 3.5578367924957776`*^9}, {3.5578368305442443`*^9, 
   3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, {
   3.5578383536061196`*^9, 3.5578383735117545`*^9}, {3.5578385892445335`*^9, 
   3.5578385978869486`*^9}, {3.5578386713006773`*^9, 3.557838700113928*^9}, {
   3.5578387451200075`*^9, 3.5578387467892103`*^9}, {3.5578388951454706`*^9, 
   3.5578389248635225`*^9}, {3.5578389679351983`*^9, 3.557838983535226*^9}, {
   3.5578390227692947`*^9, 3.557839023143696*^9}, {3.557839097696226*^9, 
   3.5578391125162525`*^9}, {3.5578391553539276`*^9, 3.557839199892006*^9}, {
   3.55783924184048*^9, 3.557839294490572*^9}, {3.5578393285922318`*^9, 
   3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, {
   3.5578395370865984`*^9, 3.5578395446994114`*^9}, {3.5578396068499207`*^9, 
   3.5578396118575296`*^9}, 3.5578943518105097`*^9, {3.557894388361374*^9, 
   3.5578944029629993`*^9}, {3.5578944607611012`*^9, 
   3.5578944989499683`*^9}, {3.5578945393696394`*^9, 3.557894561537278*^9}, {
   3.5578946028617506`*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 
   3.5578947812636642`*^9}, {3.55789481884413*^9, 3.5578948191249304`*^9}, {
   3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.5578967386805477`*^9, 
   3.55789678549623*^9}, {3.5578968804691963`*^9, 3.557896888643611*^9}, {
   3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 
   3.55789765120415*^9}, {3.5579218072271147`*^9, 3.5579218263059483`*^9}, {
   3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 
   3.557922188616585*^9}, {3.5579223258812256`*^9, 3.557922327066828*^9}, {
   3.5579224596046605`*^9, 3.557922461804264*^9}, 3.5579805928465395`*^9, {
   3.5579815200581703`*^9, 3.557981541711009*^9}, 3.557985544779242*^9, {
   3.5579863164793987`*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 
   3.557986568841042*^9}, 3.5579866122559185`*^9, 3.557986993536188*^9, {
   3.5579871244716187`*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 
   3.5579872166989803`*^9, {3.5599618621582537`*^9, 3.5599618642486577`*^9}, {
   3.559961969720443*^9, 3.5599619894700775`*^9}, 3.559963611089726*^9, {
   3.5601298891258235`*^9, 3.560129889422224*^9}, {3.560132445157113*^9, 
   3.5601324458591146`*^9}, {3.561978472080926*^9, 3.561978472392926*^9}, {
   3.6297802564412937`*^9, 3.6297802957377625`*^9}, {3.62978033369263*^9, 
   3.629780429741998*^9}, {3.6297805790030603`*^9, 3.6297809429048996`*^9}, {
   3.629780987957779*^9, 3.629781197575347*^9}, {3.629781240397422*^9, 
   3.629781337663593*^9}, {3.6297813946972933`*^9, 3.6297814529165955`*^9}, {
   3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 
   3.629781647633338*^9}, {3.629781678833393*^9, 3.629781763120341*^9}, 
   3.6297818028224106`*^9, {3.6297818432108817`*^9, 3.629781872570133*^9}, {
   3.629782355765382*^9, 3.629782427603508*^9}, {3.6297824692243814`*^9, 
   3.629782674863942*^9}, {3.629782707218399*^9, 3.6297829295343895`*^9}, {
   3.629783005631323*^9, 3.6297830574702144`*^9}, {3.6297831098551064`*^9, 
   3.629783142786764*^9}, {3.629783433711675*^9, 3.629783442619291*^9}, {
   3.6297834942397814`*^9, 3.6297835175930223`*^9}, 3.6297835794939313`*^9, {
   3.6297836160291953`*^9, 3.6297837668970604`*^9}, {3.6297842042438283`*^9, 
   3.6297842697483435`*^9}, {3.6297843514456873`*^9, 3.629784370742921*^9}, {
   3.629784443829049*^9, 3.6297844678842916`*^9}, {3.6297845252611923`*^9, 
   3.629784525588793*^9}, {3.6297846136821475`*^9, 3.629784629235375*^9}, {
   3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 
   3.6297852602096834`*^9}, {3.6297858780175686`*^9, 3.629785917282837*^9}, {
   3.629786048057867*^9, 3.629786048681868*^9}, 3.6297863278755584`*^9, {
   3.6297867047133856`*^9, 3.629786748533863*^9}, {3.6297867791567163`*^9, 
   3.6297868491540394`*^9}, {3.6297875320748396`*^9, 3.629787569795706*^9}, {
   3.6297876247234025`*^9, 3.6297877281983843`*^9}, {3.6297877681812544`*^9, 
   3.629787774015665*^9}, {3.629787831408166*^9, 3.6297878355265727`*^9}, {
   3.6297878775686464`*^9, 3.6297878861174617`*^9}, {3.6297879185343184`*^9, 
   3.629787919064719*^9}, {3.6297880043032694`*^9, 3.62978800470887*^9}, 
   3.6297880488257475`*^9, {3.6297882100052304`*^9, 3.6297882174776435`*^9}, {
   3.6297882697533355`*^9, 3.6297882948381796`*^9}, {3.6297883467550707`*^9, 
   3.6297883991087627`*^9}, {3.6297887361785545`*^9, 3.629788783961438*^9}, 
   3.629788825395111*^9, {3.629789006152629*^9, 3.6297890321266747`*^9}, {
   3.6297891133248167`*^9, 3.629789145336073*^9}, {3.6297891926821566`*^9, 
   3.629789194257759*^9}, {3.629789255316266*^9, 3.6297892556282673`*^9}, {
   3.629869102295367*^9, 3.629869160124668*^9}, {3.6298691942887287`*^9, 
   3.6298696149902673`*^9}, {3.6298696993864155`*^9, 3.62986975897852*^9}, {
   3.6298698387726603`*^9, 3.629869912030389*^9}, {3.6298700722270703`*^9, 
   3.629870234560955*^9}, {3.629870580429163*^9, 3.629870630458451*^9}, {
   3.630556081081209*^9, 3.630556104902451*^9}, {3.6305562643503313`*^9, 
   3.6305562763935523`*^9}, {3.6305563415080667`*^9, 3.630556480956712*^9}, {
   3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 
   3.630556914528273*^9}, {3.6305653725974936`*^9, 3.6305656807121167`*^9}, {
   3.630565758760581*^9, 3.6305657739024467`*^9}, {3.630565858170267*^9, 
   3.63056596644846*^9}, {3.6305661502619734`*^9, 3.6305661523230915`*^9}, {
   3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019125`*^9, 
   3.630566790535595*^9}, {3.6305668214773645`*^9, 3.630567044691132*^9}, {
   3.6305670772499943`*^9, 3.6305670783710585`*^9}, 3.630567272031135*^9, {
   3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 
   3.6305687195002403`*^9}, {3.6305687542132254`*^9, 3.630568758623478*^9}, {
   3.630568855671028*^9, 3.630568859250233*^9}, {3.630569706514694*^9, 
   3.630569775526641*^9}, 3.630569982346471*^9, {3.6305701679130845`*^9, 
   3.630570205199217*^9}, {3.6305703751399374`*^9, 3.630570526177576*^9}, {
   3.630587657039589*^9, 3.630587688367381*^9}, {3.6305880733027773`*^9, 
   3.6305883365376396`*^9}, {3.6305886689118233`*^9, 3.6305886717978287`*^9}, 
   3.6305889776831656`*^9, {3.6305890389444733`*^9, 3.6305890437180815`*^9}, {
   3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, {
   3.6305892509956455`*^9, 3.6305892594820604`*^9}, {3.630589318949365*^9, 
   3.6305893334729905`*^9}, {3.630589630294712*^9, 3.6305896376267247`*^9}, {
   3.630589683288005*^9, 3.630589684988408*^9}, {3.630597310538067*^9, 
   3.630597340080757*^9}, {3.630597391446695*^9, 3.630597400596218*^9}, {
   3.6305974350611897`*^9, 3.6305974605306463`*^9}, {3.630633997622449*^9, 
   3.630634003125764*^9}, {3.630659322217756*^9, 3.63065932438616*^9}, {
   3.6306611578252783`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 
   3.630661257587454*^9}, {3.6306613001287284`*^9, 3.6306613026715326`*^9}, {
   3.6306613920752897`*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 
   3.630670654957817*^9}, {3.6306749981919994`*^9, 3.630675005793434*^9}, {
   3.6306751229631357`*^9, 3.630675150017683*^9}, {3.6306752035287437`*^9, 
   3.6306752096180925`*^9}, {3.630675315921172*^9, 3.6306753201514144`*^9}, {
   3.6306757793287754`*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 
   3.6306758147026625`*^9}, {3.6306760107574763`*^9, 
   3.6306760154417443`*^9}, {3.6306789722320743`*^9, 
   3.6306789870309205`*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, {
   3.6306800259177256`*^9, 3.6306800406129513`*^9}, {3.6306801239326982`*^9, 
   3.6306801300167084`*^9}, {3.630680769261832*^9, 3.6306807806186523`*^9}, {
   3.630681157468514*^9, 3.6306811577649145`*^9}, {3.6306812744219193`*^9, 
   3.63068127471832*^9}, {3.6306817187418995`*^9, 3.6306817919060287`*^9}, {
   3.630681879188182*^9, 3.6306819111526375`*^9}, {3.6306821191790032`*^9, 
   3.6306821283050194`*^9}, {3.630720543651497*^9, 3.6307205534300566`*^9}, {
   3.630721035525631*^9, 3.630721092774905*^9}, {3.6307212510439577`*^9, 
   3.6307213064777765`*^9}, {3.6307477437169704`*^9, 
   3.6307478284095197`*^9}, {3.6307478614971776`*^9, 
   3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, {
   3.630748045624301*^9, 3.630748063876333*^9}, {3.630748111596817*^9, 
   3.6307481498324842`*^9}, {3.6307489182430334`*^9, 
   3.6307489447786803`*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, {
   3.6307491041485605`*^9, 3.6307491384218206`*^9}, {3.6307491914151134`*^9, 
   3.630749196890723*^9}, {3.6307492445800066`*^9, 3.6307493439989815`*^9}, {
   3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 
   3.6307495547241516`*^9}, {3.6307496525831237`*^9, 3.630749669571553*^9}, {
   3.630750220602922*^9, 3.6307502881822405`*^9}, {3.6307510631916018`*^9, 
   3.630751068292811*^9}, {3.6307511226589065`*^9, 3.630751137962533*^9}, {
   3.6307512555243397`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 
   3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, {
   3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.6307591666721067`*^9, 
   3.63075923229886*^9}, 3.630760288282259*^9, {3.6307603547370596`*^9, 
   3.630760557414652*^9}, {3.630760654134184*^9, 3.63076065510824*^9}, {
   3.6307606911683025`*^9, 3.6307606919283457`*^9}, {3.6307607642334814`*^9, 
   3.6307607648645177`*^9}, {3.630761455000991*^9, 3.6307614616743727`*^9}, {
   3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 
   3.630761695865768*^9}, {3.630761771278081*^9, 3.6307617792215357`*^9}, 
   3.6307629478424797`*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, {
   3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.6322053746993074`*^9, {
   3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396935015`*^9, 
   3.63220636484194*^9}, {3.6322064410612993`*^9, 3.6322064491667633`*^9}, {
   3.632206580308264*^9, 3.6322066373275256`*^9}, {3.6322066736436024`*^9, 
   3.6322067467737856`*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 
   3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, {
   3.6322073997741346`*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 
   3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, {
   3.6322079043859973`*^9, 3.6322079279443445`*^9}, {3.6322080916397076`*^9, 
   3.6322081666649985`*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 
   3.6349054089004903`*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, {
   3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 
   3.634905628121029*^9}, {3.6349057012822137`*^9, 3.6349057207913294`*^9}, {
   3.6349061371061416`*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 
   3.6349064369332905`*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 
   3.634906706128688*^9, {3.6349069249442034`*^9, 3.6349069328326545`*^9}, {
   3.6349070151973653`*^9, 3.6349070242298822`*^9}, {3.6349070817921743`*^9, 
   3.6349070822111983`*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, {
   3.6349079580732946`*^9, 3.6349079868219395`*^9}, {3.634908200284148*^9, 
   3.634908315195721*^9}, {3.6349083774582825`*^9, 3.6349084027997313`*^9}, {
   3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 
   3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, {
   3.6349539785771523`*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 
   3.6349541681829967`*^9}, {3.634954211263461*^9, 3.6349542495746527`*^9}, {
   3.6349543251259737`*^9, 3.634954355882733*^9}, {3.6349543892536416`*^9, 
   3.6349544742835045`*^9}, {3.634954547519694*^9, 3.6349545640246377`*^9}, {
   3.6349547051657104`*^9, 3.6349547107930326`*^9}, {3.634954745355009*^9, 
   3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, {
   3.634954904907135*^9, 3.6349549451084347`*^9}, {3.634955219605135*^9, 
   3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, {
   3.634955386393675*^9, 3.6349555039273973`*^9}, {3.6349557669644423`*^9, 
   3.6349557672004557`*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, {
   3.6349559513739896`*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 
   3.634956128996149*^9}, {3.6349561700724983`*^9, 3.6349561978900895`*^9}, {
   3.6349562480719595`*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 
   3.6349563460575643`*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 
   3.6349564696636343`*^9, {3.6351524116477795`*^9, 3.6351524153379908`*^9}, {
   3.6352134400282927`*^9, 3.635213442148414*^9}, {3.6352134745862694`*^9, 
   3.635213495869487*^9}, {3.6352135383409157`*^9, 3.6352137157160616`*^9}, {
   3.6352137493569856`*^9, 3.635213764522853*^9}, {3.635214215036621*^9, 
   3.635214227593339*^9}, {3.635214407257615*^9, 3.63521441713218*^9}, {
   3.635215297101512*^9, 3.635215303964904*^9}, {3.6352154111120324`*^9, 
   3.635215431504199*^9}, {3.635216346055508*^9, 3.635216494371991*^9}, {
   3.635216631050809*^9, 3.6352166603244834`*^9}, {3.635216763034358*^9, 
   3.635216764164423*^9}, {3.6352168771938877`*^9, 3.635216888828553*^9}, 
   3.6352169832479534`*^9, 3.635217037668066*^9, {3.6352172024924936`*^9, 
   3.6352172054526625`*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 
   3.6352173863770113`*^9, {3.635217519639633*^9, 3.6352175507014103`*^9}, 
   3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, {
   3.6352185912849283`*^9, 3.635218598444338*^9}, {3.6352186995721216`*^9, 
   3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, {
   3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 
   3.6352195994635925`*^9, {3.6352197336482677`*^9, 3.635219737452485*^9}, {
   3.6352197706093817`*^9, 3.6352197723214793`*^9}, {3.635219941784172*^9, 
   3.6352199485115566`*^9}, {3.6352200714185867`*^9, 
   3.6352200854323883`*^9}, {3.6352202085694313`*^9, 3.635220235849992*^9}, {
   3.6352202816336107`*^9, 3.6352203110962954`*^9}, {3.6352204980449886`*^9, 
   3.6352205276526823`*^9}, {3.6352253191447396`*^9, 
   3.6352253299913597`*^9}, {3.6352253611111403`*^9, 
   3.6352253637572913`*^9}, {3.635225409322898*^9, 3.6352255965196047`*^9}, {
   3.6352260914249115`*^9, 3.6352261698393965`*^9}, {3.63522638233055*^9, 
   3.6352264188036366`*^9}, {3.635227493469104*^9, 3.635227556935734*^9}, {
   3.6352276745764627`*^9, 3.635227730116639*^9}, {3.6352287979917183`*^9, 
   3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, {
   3.635229365252164*^9, 3.6352293902275925`*^9}, {3.63522947690555*^9, 
   3.6352294807837715`*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 
   3.6356569054520617`*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, {
   3.6363778414932528`*^9, 3.6363778525308843`*^9}, {3.636384436335312*^9, 
   3.6363846409950175`*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, {
   3.6363850170465264`*^9, 3.636385030729309*^9}, {3.6363851286779118`*^9, 
   3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, {
   3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 
   3.656076619019133*^9}, 3.6560772545486493`*^9, {3.6630719749029694`*^9, 
   3.6630719878027077`*^9}, {3.6630720702554235`*^9, 
   3.6630720807290225`*^9}, {3.6630721155740156`*^9, 
   3.6630721713712068`*^9}, {3.663072270834896*^9, 3.6630722882218904`*^9}, 
   3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, {
   3.685252204033695*^9, 3.6852522340537376`*^9}, {3.6852522757137957`*^9, 
   3.6852523115138454`*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, {
   3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.6852540682470407`*^9, 
   3.6852541660656357`*^9, {3.6852604801645336`*^9, 3.6852605060345697`*^9}, {
   3.6852605373446136`*^9, 3.6852605977846985`*^9}, 3.685260655254779*^9, {
   3.6853280002218475`*^9, 3.685328019561875*^9}, 3.685328064721938*^9, {
   3.6853280953119807`*^9, 3.6853282636022167`*^9}, {3.685328356242346*^9, 
   3.685328598671985*^9}, {3.6853286682069626`*^9, 3.6853287982524004`*^9}, {
   3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 
   3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, {
   3.685329173522865*^9, 3.6853294420842257`*^9}, {3.6853296024223967`*^9, 
   3.6853296124319687`*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, {
   3.6853298076291337`*^9, 3.6853298739599276`*^9}, {3.685330038474337*^9, 
   3.685330051652091*^9}, {3.6853311309428225`*^9, 3.685331168378964*^9}, {
   3.685340142134763*^9, 3.685340180544817*^9}, {3.6853583292043543`*^9, 
   3.685358334834362*^9}, {3.685358366084406*^9, 3.685358366954407*^9}, {
   3.685358408404465*^9, 3.685358518294619*^9}, 3.685358620174762*^9, 
   3.6853586578748145`*^9, {3.6853588750151186`*^9, 3.6853588857151337`*^9}, {
   3.6853589302051954`*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 
   3.6853590296653347`*^9}, 3.685359148315501*^9, 3.6853598281764526`*^9, {
   3.6853683109000263`*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 
   3.6853684704302497`*^9}, {3.6853685194503183`*^9, 3.685368742860631*^9}, {
   3.685369008901004*^9, 3.68536902061102*^9}, {3.6853690791611023`*^9, 
   3.685369132301176*^9}, {3.6853693219914417`*^9, 3.6853693304114532`*^9}, 
   3.6853696089118433`*^9, {3.6858758911429157`*^9, 3.685875951793*^9}, {
   3.6859484099082212`*^9, 3.6859484970032024`*^9}, {3.686052829875022*^9, 
   3.686052906242383*^9}, {3.6860535326822133`*^9, 3.686053598029951*^9}, {
   3.68605365168902*^9, 3.6860541446091995`*^9}, {3.6860541846064873`*^9, 
   3.68605440393201*^9}, {3.686054713802734*^9, 3.6860547858298535`*^9}, {
   3.6860548280202665`*^9, 3.686054837219793*^9}, {3.686054874127904*^9, 
   3.686054892139934*^9}, {3.686055136014883*^9, 3.6860551460584574`*^9}, {
   3.686055211281188*^9, 3.6860552301962633`*^9}, {3.6860553465409174`*^9, 
   3.6860553998749685`*^9}, {3.6860556017188663`*^9, 
   3.6860556050188704`*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, {
   3.686292409650853*^9, 3.6862924109708548`*^9}, {3.6862924536109147`*^9, 
   3.6862924596309233`*^9}, {3.686292542221039*^9, 3.6862925430110397`*^9}, {
   3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 
   3.686650526682659*^9}, {3.686650671852862*^9, 3.6866507242929354`*^9}, {
   3.6866507657529936`*^9, 3.6866507887630253`*^9}, {3.6866508208230705`*^9, 
   3.6866509100531955`*^9}, {3.6866509593932643`*^9, 3.686650971113281*^9}, {
   3.686651007793332*^9, 3.6866511595335445`*^9}, {3.686651223513634*^9, 
   3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, {
   3.6866514102038956`*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 
   3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, {
   3.6868046315619783`*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 
   3.686804707092084*^9}, {3.6868047382021275`*^9, 3.686804767812169*^9}, {
   3.686804824012248*^9, 3.6868048404922705`*^9}, {3.686804942142413*^9, 
   3.6868049633424425`*^9}, {3.6868050765526013`*^9, 3.686805101092636*^9}, {
   3.6868051463526993`*^9, 3.6868052234228067`*^9}, {3.686805307602925*^9, 
   3.686805311682931*^9}, {3.68680577547358*^9, 3.686805788923599*^9}, {
   3.686821702197342*^9, 3.6868217282873783`*^9}, {3.6868225192884855`*^9, 
   3.686822538368512*^9}, {3.6868226306886415`*^9, 3.6868226683086944`*^9}, {
   3.6868227318887835`*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 
   3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, {
   3.6868232450595016`*^9, 3.6868233753996844`*^9}, {3.6868234153897405`*^9, 
   3.686823451379791*^9}, {3.6868236736101017`*^9, 3.6868236786601086`*^9}, {
   3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 
   3.68682390087042*^9}, {3.686823940790476*^9, 3.6868239416904774`*^9}, {
   3.6868239808805323`*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 
   3.6868240519006314`*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, {
   3.6868245440213203`*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 
   3.6868246979115357`*^9}, 3.6868248012716804`*^9, 3.6868253582724605`*^9, {
   3.6868255183026843`*^9, 3.686825518932685*^9}, {3.6868264466639843`*^9, 
   3.6868264497139883`*^9}, {3.6868267792744493`*^9, 
   3.6868268152945004`*^9}, {3.686827100164899*^9, 3.6868271210549283`*^9}, 
   3.686827162004986*^9, {3.6868272414950967`*^9, 3.686827327475217*^9}, {
   3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 
   3.686829138957753*^9}, 3.6868292410978966`*^9, {3.6868292768379464`*^9, 
   3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, {
   3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 
   3.686831307180789*^9}, {3.6868331276633377`*^9, 3.68683328653356*^9}, {
   3.6868394697195063`*^9, 3.6868394933895392`*^9}, 3.686839530999592*^9, {
   3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 
   3.68683979365996*^9}, {3.6868398344600167`*^9, 3.686839866200061*^9}, {
   3.687092084401948*^9, 3.687092117031994*^9}, {3.6870922598621936`*^9, 
   3.6870922645422*^9}, {3.6870962086478376`*^9, 3.6870962658779182`*^9}, 
   3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, {
   3.6870965809883595`*^9, 3.687096592708376*^9}, 3.687096837948719*^9, {
   3.68709688890879*^9, 3.687096985798926*^9}, {3.6870971015990877`*^9, 
   3.6870972179192505`*^9}, {3.6870972618993125`*^9, 3.687097305639374*^9}, {
   3.6870973356794157`*^9, 3.6870975186496716`*^9}, {3.6870975796097574`*^9, 
   3.6870975953197794`*^9}, {3.6870976531898603`*^9, 3.6870976848899045`*^9}, 
   3.6870977782500353`*^9, {3.687413757687042*^9, 3.6874137834070783`*^9}, {
   3.6874140542074575`*^9, 3.687414094417514*^9}, {3.6874143478878684`*^9, 
   3.687414485538061*^9}, {3.6874146116082373`*^9, 3.68741464894829*^9}, {
   3.6874147451084247`*^9, 3.687414766118454*^9}, 3.6874149094486547`*^9, {
   3.6874150416688395`*^9, 3.6874150634888706`*^9}, {3.6874152437091227`*^9, 
   3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 
   3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 
   3.687415645529685*^9, {3.6874168016913037`*^9, 3.687416803441306*^9}, {
   3.687421022677213*^9, 3.6874212686075573`*^9}, {3.68742948209425*^9, 
   3.6874294906842623`*^9}, {3.687844340668378*^9, 3.6878443698084188`*^9}, {
   3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 
   3.6889064680223217`*^9}, {3.688906514222396*^9, 3.6889065193925257`*^9}, {
   3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 
   3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, {
   3.688908466073407*^9, 3.6889084993734536`*^9}, 3.688908533623502*^9, {
   3.688908616683618*^9, 3.6889086271336327`*^9}, {3.6889086885637183`*^9, 
   3.6889087063437433`*^9}, {3.6889091647443852`*^9, 
   3.6889092012544365`*^9}, {3.6889093019045773`*^9, 3.6889093406746316`*^9}, 
   3.6889101071957045`*^9, {3.689905940063133*^9, 3.689905972983179*^9}, {
   3.692530981927737*^9, 3.6925310416778207`*^9}, {3.692531099797902*^9, 
   3.6925311384779563`*^9}, {3.692531192258032*^9, 3.692531244668105*^9}, {
   3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 
   3.692531643928664*^9}, {3.692535489534048*^9, 3.6925356485142703`*^9}, {
   3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 
   3.692535899604622*^9}, {3.692536042584822*^9, 3.692536159384986*^9}, {
   3.6925366121156197`*^9, 3.6925366207256317`*^9}, {3.6925367265057793`*^9, 
   3.69253672683578*^9}, {3.6925368590559654`*^9, 3.6925368636559715`*^9}, {
   3.6925370880062857`*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 
   3.6925373869767046`*^9}, {3.6925390913352747`*^9, 
   3.6925390925252767`*^9}, {3.692539644430175*^9, 3.6925396711502123`*^9}, {
   3.692539727510291*^9, 3.692539730440295*^9}, {3.69253993367058*^9, 
   3.692539963780622*^9}, {3.6925400018406754`*^9, 3.692540003630678*^9}, {
   3.6925401743409166`*^9, 3.6925401747509174`*^9}, {3.692540399111232*^9, 
   3.692540407981244*^9}, {3.69254047647134*^9, 3.6925404886113567`*^9}, {
   3.6925406039715185`*^9, 3.69254060531152*^9}, {3.6925414948727655`*^9, 
   3.6925414953427663`*^9}, {3.6925415478528395`*^9, 3.692541613062931*^9}, 
   3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, {
   3.692541924473367*^9, 3.692542041693531*^9}, {3.6925421488836813`*^9, 
   3.6925422549438295`*^9}, {3.6925422976938896`*^9, 3.692542521444203*^9}, {
   3.6925426221843443`*^9, 3.6925426357343626`*^9}, 3.692542739374508*^9, 
   3.692599799510878*^9, {3.692599834884901*^9, 3.6925998954663663`*^9}, {
   3.692599925635092*^9, 3.6926000095928946`*^9}, {3.692600108929576*^9, 
   3.6926001456386757`*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, {
   3.692600503149027*^9, 3.6926006000391626`*^9}, {3.692600680251275*^9, 
   3.6926006814012766`*^9}, {3.6926009000215826`*^9, 3.6926009410816402`*^9}, 
   3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 
   3.6926045660127153`*^9, 3.6926046690228596`*^9, {3.69296647863291*^9, 
   3.6929664798829117`*^9}, {3.6929665643330297`*^9, 
   3.6929666141830997`*^9}, {3.6929670390036945`*^9, 
   3.6929670405536966`*^9}, {3.6929670861037607`*^9, 
   3.6929670952937737`*^9}, {3.6929671302538223`*^9, 
   3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, {
   3.6929672596240034`*^9, 3.6929673352541094`*^9}, 3.6929678909232683`*^9, {
   3.6930146982034283`*^9, 3.693014722713463*^9}, {3.6930148540136466`*^9, 
   3.693014857023651*^9}, {3.6930148913836985`*^9, 3.693014894823704*^9}, {
   3.693014930903754*^9, 3.6930151942541227`*^9}, {3.693015247824198*^9, 
   3.693015430554454*^9}, {3.693015673794794*^9, 3.69301579223496*^9}, {
   3.6930163123576884`*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 
   3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, {
   3.693016737038283*^9, 3.693016755068308*^9}, {3.6930168429225607`*^9, 
   3.6930168719926014`*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, {
   3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 
   3.6930180975563173`*^9}, {3.6930181870764427`*^9, 3.693018199956461*^9}, {
   3.6930182954065943`*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 
   3.6931399045016823`*^9}, {3.6931402916003532`*^9, 3.693140295770359*^9}, {
   3.693140426020541*^9, 3.693140426530542*^9}, {3.6931410492237864`*^9, 
   3.6931410888738413`*^9}, {3.6931411194438844`*^9, 3.693141126553894*^9}, {
   3.693141412004294*^9, 3.693141454164353*^9}, {3.6931415979955544`*^9, 
   3.6931417931758275`*^9}, {3.6932199559445915`*^9, 
   3.6932199772046213`*^9}, {3.6932201435748544`*^9, 3.693220170284892*^9}, {
   3.693220713855653*^9, 3.693220721825664*^9}, {3.693625124589745*^9, 
   3.693625153729786*^9}, {3.6940907995669713`*^9, 3.6940909688872085`*^9}, {
   3.6940913675677667`*^9, 3.6940914223978434`*^9}, {3.694091508037963*^9, 
   3.694091572118053*^9}, 3.694092009628666*^9, {3.6940920553287296`*^9, 
   3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, {
   3.6940924537392874`*^9, 3.694092457789293*^9}, 3.694092642849552*^9, {
   3.6940928573598523`*^9, 3.694092862379859*^9}, {3.6940945886222763`*^9, 
   3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 
   3.6940957644739223`*^9}, {3.6940960602743363`*^9, 
   3.6940960732243547`*^9}, {3.6940961211044216`*^9, 3.694096124194426*^9}, {
   3.694665030960044*^9, 3.6946650634500895`*^9}, {3.6946652071402903`*^9, 
   3.6946653490404887`*^9}, {3.6946658702212186`*^9, 
   3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, {
   3.694665995981395*^9, 3.6946660149414215`*^9}, {3.694666050571471*^9, 
   3.6946660547214766`*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, {
   3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.6946667526224537`*^9, 
   3.69466680700253*^9, 3.694687076625702*^9, {3.6946874316161985`*^9, 
   3.6946874621962414`*^9}, 3.694687499496294*^9, {3.694687567516389*^9, 
   3.694687642816495*^9}, {3.694687679006545*^9, 3.6946877198966026`*^9}, {
   3.6946877714966745`*^9, 3.694687931746899*^9}, {3.723798739728607*^9, 
   3.723798744014243*^9}, {3.7237990126446104`*^9, 3.723799023974499*^9}, {
   3.7244116671877546`*^9, 3.7244116733393917`*^9}, {3.724411761793063*^9, 
   3.7244117718753977`*^9}, {3.724411928386671*^9, 3.7244119682966137`*^9}, {
   3.724412131847311*^9, 3.724412188341254*^9}, {3.729414981357122*^9, 
   3.7294149861075096`*^9}, {3.749817651293678*^9, 3.749817653108206*^9}, {
   3.7498176831919456`*^9, 3.7498176846222315`*^9}, 3.7498177601545563`*^9, {
   3.749817859674735*^9, 3.749817861044999*^9}, {3.7498179561547127`*^9, 
   3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 
   3.749818617867873*^9, {3.7505621848002787`*^9, 3.7505622174085107`*^9}, {
   3.75056238761455*^9, 3.750562431347901*^9}, {3.7505626332829456`*^9, 
   3.7505627331565337`*^9}, {3.7505627632642183`*^9, 
   3.7505627635859113`*^9}, {3.7515359581577415`*^9, 
   3.7515359614850826`*^9}, {3.751536071974715*^9, 3.7515360961721487`*^9}, 
   3.7515362040373974`*^9, {3.751536256080162*^9, 3.7515365099108534`*^9}, {
   3.751549231137398*^9, 3.7515493334258356`*^9}, {3.7515496891619573`*^9, 
   3.751549689458767*^9}, {3.763384318028655*^9, 3.763384321230183*^9}, 
   3.7633844800900145`*^9, {3.7650666220235834`*^9, 3.765066676848461*^9}, {
   3.7650667705927696`*^9, 3.765066781277461*^9}, {3.7650668220493402`*^9, 
   3.7650670769609847`*^9}, {3.765075343296377*^9, 3.765075345014902*^9}, {
   3.765075479631569*^9, 3.7650755114191623`*^9}, {3.765075617307859*^9, 
   3.7650756180851874`*^9}, {3.76507585422694*^9, 3.765075872425325*^9}, {
   3.7650760811750383`*^9, 3.7650762635610576`*^9}, {3.7650763100785646`*^9, 
   3.765076323109063*^9}, {3.7650763765120716`*^9, 3.765076385469493*^9}, {
   3.7650764317497897`*^9, 3.7650764864127855`*^9}, 3.765076672990033*^9, {
   3.7650767604139767`*^9, 3.7650767965644426`*^9}, {3.765076849411788*^9, 
   3.76507688334435*^9}, {3.765076928656023*^9, 3.7650769388747053`*^9}, 
   3.76507697239373*^9, {3.7650770147173185`*^9, 3.7650770820420313`*^9}, {
   3.765077138264634*^9, 3.765077175747029*^9}, {3.765077340035742*^9, 
   3.765077493212038*^9}, {3.7650775254837503`*^9, 3.765077573524544*^9}, {
   3.765077619369755*^9, 3.7650776808294816`*^9}, {3.765088266857733*^9, 
   3.765088281236836*^9}, {3.76508836959641*^9, 3.765088394392946*^9}, {
   3.7650900504082956`*^9, 3.765090052695187*^9}, {3.7650900911122713`*^9, 
   3.765090094160341*^9}, {3.765090519594511*^9, 3.7650905411898503`*^9}, {
   3.7885193337832556`*^9, 3.788519339935099*^9}, {3.788519391172593*^9, 
   3.7885194472501445`*^9}, {3.7885195529105897`*^9, 3.788519558251149*^9}, {
   3.7885305232444134`*^9, 3.788530576893549*^9}, 3.788530695024667*^9, {
   3.7885307280202837`*^9, 3.788530769626217*^9}, {3.7963483332994423`*^9, 
   3.796348466639106*^9}, {3.820027614612806*^9, 3.8200276304022093`*^9}, 
   3.8200276853924747`*^9, {3.829884589354769*^9, 3.8298846124571314`*^9}, 
   3.8520842379402337`*^9, {3.8520842684576464`*^9, 3.8520843062238846`*^9}, {
   3.852084804512635*^9, 3.8520849353565645`*^9}, {3.8520851998691287`*^9, 
   3.852085265248603*^9}},
 CellLabel->
  "In[152]:=",ExpressionUUID->"e32e0c96-2f89-4ca3-a8dd-40e20286a790"]
}, Closed]],

Cell[CellGroupData[{

Cell["BENDING ELEMENT (nonl) defs ", "Subsection",
 CellChangeTimes->{{3.7530187996679964`*^9, 3.753018803413909*^9}, {
   3.7633629633672647`*^9, 3.763362967100765*^9}, {3.787894773214689*^9, 
   3.7878947881941814`*^9}, {3.78789485671918*^9, 3.78789488217928*^9}, 
   3.7885197052606735`*^9, {3.788530025907043*^9, 3.7885300287809105`*^9}, 
   3.7885306781716957`*^9, {3.8200271989371843`*^9, 3.8200272016625395`*^9}, {
   3.8200274346181693`*^9, 3.8200274405428553`*^9}, {3.851994139239622*^9, 
   3.8519941462255764`*^9}, {3.852427723407469*^9, 
   3.852427728727656*^9}},ExpressionUUID->"49ca3638-0d99-4fdf-9596-\
85d8ab35af7d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MEC", "-", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Delta]W", "[", 
     RowBox[{"NONL", ",", 
      RowBox[{"{", 
       RowBox[{"BENDING", ",", "anya_", ",", "anyb_"}], "}"}], ",", "fun_"}], 
     "]"}], ":=", 
    RowBox[{"\[Delta]W", "[", 
     RowBox[{"DISP", ",", 
      RowBox[{"{", 
       RowBox[{"BENDING", ",", "anya", ",", "anyb"}], "}"}], ",", "fun"}], 
     "]"}]}], ";"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, {
   3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 
   3.4430691708072*^9}, {3.4430692071717997`*^9, 3.443069246359*^9}, {
   3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 
   3.4430774104676*^9}, {3.4430775053780003`*^9, 3.4430776180598*^9}, {
   3.4434109099524*^9, 3.4434109159584*^9}, {3.4438800815346003`*^9, 
   3.4438802689304*^9}, {3.443880362624*^9, 3.4438803824516*^9}, {
   3.443929565615374*^9, 3.443929570232974*^9}, {3.443935321321974*^9, 
   3.443935335705174*^9}, {3.443935419945174*^9, 3.443935421489574*^9}, {
   3.443935494013974*^9, 3.443935494715974*^9}, {3.443935617565974*^9, 
   3.4439357217895737`*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, {
   3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 
   3.4439423142123737`*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, {
   3.4439447830065737`*^9, 3.4439447917425737`*^9}, {3.443944908541774*^9, 
   3.443944916060974*^9}, {3.4442731097938004`*^9, 3.4442731115254*^9}, {
   3.444273189229*^9, 3.4442732700526*^9}, {3.4442748430004*^9, 
   3.4442748605036*^9}, {3.4442748977438*^9, 3.4442748989762*^9}, {
   3.4442749340762*^9, 3.4442749351057997`*^9}, 3.4442752313382*^9, {
   3.4442919702026*^9, 3.4442919911846*^9}, {3.4442921151577997`*^9, 
   3.4442921271074*^9}, {3.4443811023684*^9, 3.4443811036632*^9}, {
   3.4443814073171997`*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 
   3.4443815147855997`*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, {
   3.4443816138143997`*^9, 3.444381633174*^9}, {3.4443816850439997`*^9, 
   3.4443817801728*^9}, 3.4443853618688*^9, {3.4443855607376003`*^9, 
   3.4443856337924*^9}, {3.4443861200444*^9, 3.4443861523676*^9}, {
   3.4443862280495996`*^9, 3.444386291448*^9}, {3.4443864047352*^9, 
   3.4443864135336*^9}, {3.4443870026832*^9, 3.4443870095316*^9}, {
   3.4444082055056*^9, 3.4444082437412*^9}, {3.4444082797148*^9, 
   3.4444084583816*^9}, {3.4444084889108*^9, 3.4444085087539997`*^9}, {
   3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 
   3.4444091647167997`*^9}, {3.4444092206428003`*^9, 
   3.4444092944463997`*^9}, {3.4444093856284*^9, 3.4444094281071997`*^9}, {
   3.4444094976988*^9, 3.4444095275104*^9}, {3.444409611064*^9, 
   3.4444096125772*^9}, 3.4444098504616003`*^9, {3.444409913392*^9, 
   3.4444099166056004`*^9}, 3.4444100178496*^9, {3.4444103063248*^9, 
   3.4444103358712*^9}, {3.4444103868208*^9, 3.4444104432460003`*^9}, {
   3.4444921219564*^9, 3.4444921256224003`*^9}, {3.444492194824*^9, 
   3.4444921973668003`*^9}, {3.4444922814351997`*^9, 3.4444922853508*^9}, {
   3.4444923330868*^9, 3.4444923345844*^9}, {3.444492366424*^9, 
   3.4444923855808*^9}, {3.4453153475226*^9, 3.445315360689*^9}, {
   3.4465518166373653`*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 
   3.446552159384965*^9}, {3.446552232377365*^9, 3.4465522555589647`*^9}, {
   3.446553347388365*^9, 3.4465533616155653`*^9}, {3.4466058525769997`*^9, 
   3.4466058529046*^9}, {3.4466064371219997`*^9, 3.4466065097244*^9}, {
   3.4466127725788*^9, 3.4466127766036*^9}, {3.4466128124835997`*^9, 
   3.4466130037864*^9}, {3.4466131532696*^9, 3.4466131761703997`*^9}, {
   3.4466133992192*^9, 3.4466134478756*^9}, {3.446613483584*^9, 
   3.4466134932092*^9}, {3.4466135740952*^9, 3.4466135794927998`*^9}, {
   3.4466137283948*^9, 3.4466137341356*^9}, {3.4466138994342003`*^9, 
   3.4466139023826*^9}, {3.4466139549858*^9, 3.4466139579653997`*^9}, {
   3.4466142109818*^9, 3.4466142245226*^9}, {3.4466142793878*^9, 
   3.4466143652033997`*^9}, {3.4466144712834*^9, 3.4466145978929996`*^9}, {
   3.4466146992618*^9, 3.4466147509914*^9}, {3.4466151283086*^9, 
   3.4466152768986*^9}, {3.4466153107506*^9, 3.4466153406558*^9}, {
   3.4466194331976*^9, 3.4466194377528*^9}, {3.4466194847712*^9, 
   3.446619488718*^9}, {3.4466389495861998`*^9, 3.4466389768238*^9}, {
   3.4466391218414*^9, 3.446639306561*^9}, {3.4466393990222*^9, 
   3.4466394004886*^9}, {3.4466394475694*^9, 3.4466394487706003`*^9}, {
   3.4466395034174*^9, 3.4466395049462*^9}, 3.4466395515755997`*^9, {
   3.4466396000176*^9, 3.4466396190808*^9}, {3.4466397459088*^9, 
   3.446639748826*^9}, {3.4466397974356003`*^9, 3.446639798668*^9}, 
   3.4466398447816*^9, {3.446639894218*^9, 3.4466399201556*^9}, {
   3.4466399570964003`*^9, 3.4466399583288*^9}, {3.446639994006*^9, 
   3.4466400056904*^9}, {3.4466400383568*^9, 3.4466400395892*^9}, {
   3.4466400745643997`*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 
   3.4466401806070004`*^9}, {3.4466402251294003`*^9, 3.446640227407*^9}, {
   3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 
   3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 
   3.4467273777813997`*^9}, {3.4467274366558*^9, 3.4467275620954*^9}, {
   3.446727593311*^9, 3.4467277412614*^9}, {3.4467283334639997`*^9, 
   3.4467283356012*^9}, {3.4467283707636003`*^9, 3.4467283727604*^9}, {
   3.4467289882664003`*^9, 3.4467291276836*^9}, {3.446778464322*^9, 
   3.4467786797424*^9}, {3.4467801953803997`*^9, 3.4467802409792*^9}, {
   3.4467802998691998`*^9, 3.4467804023456*^9}, 3.4467804345596*^9, {
   3.4467808656344*^9, 3.4467808670852003`*^9}, 3.4467818107525997`*^9, {
   3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 
   3.4467827381726*^9}, {3.4467828623018*^9, 3.4467831045386*^9}, {
   3.4470344113984003`*^9, 3.4470344123344*^9}, {3.4470344628316*^9, 
   3.4470345343108*^9}, {3.447043591118539*^9, 3.447043642192939*^9}, {
   3.447045649625739*^9, 3.447045718437339*^9}, {3.447054774023939*^9, 
   3.447054834198939*^9}, {3.4470549103449388`*^9, 3.4470549116169386`*^9}, {
   3.447054943902939*^9, 3.4470553027109385`*^9}, {3.447055334559939*^9, 
   3.447055353684939*^9}, {3.447057311918539*^9, 3.447057369747739*^9}, {
   3.4470575058577385`*^9, 3.4470575951365385`*^9}, {3.4470581848789387`*^9, 
   3.4470582040825386`*^9}, {3.451276121243*^9, 3.4512761425838003`*^9}, {
   3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 
   3.4512762827654*^9}, {3.451276489091*^9, 3.451276541975*^9}, {
   3.4512765853118*^9, 3.4512766132046003`*^9}, {3.4512773470306*^9, 
   3.4512773766082*^9}, {3.4512776069110003`*^9, 3.4512777499318*^9}, 
   3.4512777831286*^9, {3.4512778785538*^9, 3.451277881627*^9}, {
   3.4512780242734003`*^9, 3.4512780302794*^9}, 3.4512780737878*^9, {
   3.4512781866226*^9, 3.4512781930810003`*^9}, {3.4512863325078*^9, 
   3.4512863539266*^9}, {3.4568019250434*^9, 3.4568022712698*^9}, {
   3.4568023177422*^9, 3.4568024125278*^9}, {3.4568024694365997`*^9, 
   3.4568024750369997`*^9}, {3.4568026914402*^9, 3.4568028101094*^9}, {
   3.4568028406698*^9, 3.4568028564726*^9}, 3.4568028886085997`*^9, {
   3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, {
   3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596003`*^9, 
   3.4568040844852*^9}, {3.4568043016684*^9, 3.4568043154744*^9}, {
   3.4568045482264*^9, 3.4568045486632*^9}, {3.4568048944996*^9, 
   3.4568049806116*^9}, {3.4660560628582*^9, 3.4660560753538*^9}, {
   3.4660676729379997`*^9, 3.4660676735931997`*^9}, {3.4660677244024*^9, 
   3.4660677277251997`*^9}, {3.4742646771287394`*^9, 3.47426469439174*^9}, {
   3.47426489921974*^9, 3.4742649800437393`*^9}, {3.4801246373348*^9, 
   3.4801246860536003`*^9}, {3.4801247748176003`*^9, 3.4801247821028*^9}, {
   3.4801248161264*^9, 3.4801248295736*^9}, {3.4801248810692*^9, 
   3.4801248964508*^9}, {3.4801249330484*^9, 3.480124947884*^9}, 
   3.4801249886468*^9, {3.4801251139147997`*^9, 3.48012512588*^9}, {
   3.4838339444988003`*^9, 3.4838339567448*^9}, 3.4838341692012*^9, {
   3.4838344350408*^9, 3.4838344353684*^9}, {3.4938987575920324`*^9, 
   3.4938987586840324`*^9}, {3.4941630624049997`*^9, 3.4941631381274*^9}, {
   3.4941632311345997`*^9, 3.4941632492306004`*^9}, 3.4941633249217997`*^9, {
   3.4941633940922003`*^9, 3.4941634063538*^9}, {3.4941634538402*^9, 
   3.4941635051642*^9}, {3.494163565115*^9, 3.4941636341762*^9}, {
   3.4941636853442*^9, 3.4941639323234*^9}, {3.4941640277798*^9, 
   3.4941641455754004`*^9}, {3.4941641790374002`*^9, 
   3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 
   3.4941644677018003`*^9, {3.4941646208938*^9, 3.4941646322349997`*^9}, {
   3.4941652592693996`*^9, 3.4941652807194*^9}, {3.4941653119038*^9, 
   3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, {
   3.4950990979779997`*^9, 3.495099142701*^9}, {3.495099172958*^9, 
   3.4950991806289997`*^9}, {3.495099227097*^9, 3.495099238113*^9}, 
   3.495099290797*^9, {3.495099346084*^9, 3.495099359507*^9}, {
   3.495099456308*^9, 3.495099464091*^9}, 3.495099683108*^9, {
   3.495100428112*^9, 3.495100434958*^9}, {3.4951006496219997`*^9, 
   3.495100649992*^9}, {3.4987235265018*^9, 3.4987235939094*^9}, {
   3.4987236420666*^9, 3.4987236530646*^9}, {3.4987237305341997`*^9, 
   3.4987237396914*^9}, {3.498733136159*^9, 3.4987332972446003`*^9}, {
   3.4987364783094*^9, 3.4987364860626*^9}, {3.4987366201134*^9, 
   3.4987366236078*^9}, {3.4987367272386*^9, 3.4987367464890003`*^9}, {
   3.4987369428462*^9, 3.4987369670886*^9}, {3.4987370134518003`*^9, 
   3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, {
   3.4987371921029997`*^9, 3.498737193663*^9}, {3.4987372660938*^9, 
   3.4987372935498*^9}, {3.4987373290554*^9, 3.4987377176202*^9}, {
   3.4987377520182*^9, 3.4987379139462*^9}, {3.4987382030216*^9, 
   3.4987382667078*^9}, {3.4987888391818*^9, 3.4987888608346*^9}, {
   3.4988785131146*^9, 3.4988785160162*^9}, {3.5007170967096*^9, 
   3.5007170999076*^9}, 3.5007182237316*^9, {3.5007182772864*^9, 
   3.5007182987832003`*^9}, {3.5009573226744003`*^9, 3.5009573940444*^9}, 
   3.5009574358710003`*^9, 3.5009604278482*^9, {3.5009897246173353`*^9, 
   3.5009898480289354`*^9}, {3.5009901464413357`*^9, 
   3.5009901475333357`*^9}, {3.5009901801997356`*^9, 3.500990274096135*^9}, {
   3.5010475253292*^9, 3.5010475852332*^9}, {3.5010605722018003`*^9, 
   3.5010606739762*^9}, {3.5010607202146*^9, 3.5010607323358*^9}, {
   3.5010607920526*^9, 3.501061118467*^9}, {3.5010612022078*^9, 
   3.5010612277138*^9}, {3.5010616467766*^9, 3.5010617938534*^9}, {
   3.5010618406222*^9, 3.5010619950778*^9}, {3.5010621500638*^9, 
   3.5010622514014*^9}, {3.5010625292218*^9, 3.5010625409374*^9}, {
   3.5010626043046*^9, 3.5010626313862*^9}, {3.5010626787166*^9, 
   3.5010626790754004`*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 
   3.5010763029458*^9, {3.5032210899309998`*^9, 3.5032212413900003`*^9}, {
   3.557658203404973*^9, 3.557658219644601*^9}, {3.5576584433801947`*^9, 
   3.557658496030287*^9}, {3.5576585501779823`*^9, 3.5576586046064777`*^9}, {
   3.557658648910555*^9, 3.557658754600741*^9}, {3.557658963945511*^9, 
   3.5576589782507353`*^9}, {3.557659009949991*^9, 3.5576591437514267`*^9}, {
   3.557659182221094*^9, 3.5576592187719584`*^9}, 3.557659413865901*^9, {
   3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 
   3.5576607248454037`*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, {
   3.5577526651911488`*^9, 3.5577526932087984`*^9}, {3.5577527272480583`*^9, 
   3.557752747122493*^9}, {3.5577528374934516`*^9, 3.557752838523053*^9}, {
   3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 
   3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, {
   3.5577536609544907`*^9, 3.5577536637936954`*^9}, {3.5577537824631042`*^9, 
   3.557753810184353*^9}, {3.557753841025607*^9, 3.5577540648392*^9}, 
   3.5577541920574236`*^9, {3.5577547033327217`*^9, 3.557754716967146*^9}, {
   3.5577547716296415`*^9, 3.557754802112095*^9}, {3.5577549509363565`*^9, 
   3.5577549771444025`*^9}, 3.5577551382302856`*^9, {3.55775527184452*^9, 
   3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, {
   3.557756158316077*^9, 3.557756231885806*^9}, {3.5577572408487787`*^9, 
   3.557757248835993*^9}, {3.5577572834368534`*^9, 3.5577575888229895`*^9}, {
   3.5577578129641833`*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 
   3.557758079272251*^9}, 3.557810586960072*^9, {3.5578240262005973`*^9, 
   3.5578240345360737`*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, {
   3.557831525255726*^9, 3.5578315319793377`*^9}, 3.5578315716190076`*^9, {
   3.557831606079468*^9, 3.557831629432709*^9}, {3.5578316663267736`*^9, 
   3.5578317569473333`*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, {
   3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 
   3.5578365974018345`*^9}, {3.5578366426731143`*^9, 3.557836658865943*^9}, {
   3.557836691017599*^9, 3.5578367924957776`*^9}, {3.5578368305442443`*^9, 
   3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, {
   3.5578383536061196`*^9, 3.5578383735117545`*^9}, {3.5578385892445335`*^9, 
   3.5578385978869486`*^9}, {3.5578386713006773`*^9, 3.557838700113928*^9}, {
   3.5578387451200075`*^9, 3.5578387467892103`*^9}, {3.5578388951454706`*^9, 
   3.5578389248635225`*^9}, {3.5578389679351983`*^9, 3.557838983535226*^9}, {
   3.5578390227692947`*^9, 3.557839023143696*^9}, {3.557839097696226*^9, 
   3.5578391125162525`*^9}, {3.5578391553539276`*^9, 3.557839199892006*^9}, {
   3.55783924184048*^9, 3.557839294490572*^9}, {3.5578393285922318`*^9, 
   3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, {
   3.5578395370865984`*^9, 3.5578395446994114`*^9}, {3.5578396068499207`*^9, 
   3.5578396118575296`*^9}, 3.5578943518105097`*^9, {3.557894388361374*^9, 
   3.5578944029629993`*^9}, {3.5578944607611012`*^9, 
   3.5578944989499683`*^9}, {3.5578945393696394`*^9, 3.557894561537278*^9}, {
   3.5578946028617506`*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 
   3.5578947812636642`*^9}, {3.55789481884413*^9, 3.5578948191249304`*^9}, {
   3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.5578967386805477`*^9, 
   3.55789678549623*^9}, {3.5578968804691963`*^9, 3.557896888643611*^9}, {
   3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 
   3.55789765120415*^9}, {3.5579218072271147`*^9, 3.5579218263059483`*^9}, {
   3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 
   3.557922188616585*^9}, {3.5579223258812256`*^9, 3.557922327066828*^9}, {
   3.5579224596046605`*^9, 3.557922461804264*^9}, 3.5579805928465395`*^9, {
   3.5579815200581703`*^9, 3.557981541711009*^9}, 3.557985544779242*^9, {
   3.5579863164793987`*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 
   3.557986568841042*^9}, 3.5579866122559185`*^9, 3.557986993536188*^9, {
   3.5579871244716187`*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 
   3.5579872166989803`*^9, {3.5599618621582537`*^9, 3.5599618642486577`*^9}, {
   3.559961969720443*^9, 3.5599619894700775`*^9}, 3.559963611089726*^9, {
   3.5601298891258235`*^9, 3.560129889422224*^9}, {3.560132445157113*^9, 
   3.5601324458591146`*^9}, {3.561978472080926*^9, 3.561978472392926*^9}, {
   3.6297802564412937`*^9, 3.6297802957377625`*^9}, {3.62978033369263*^9, 
   3.629780429741998*^9}, {3.6297805790030603`*^9, 3.6297809429048996`*^9}, {
   3.629780987957779*^9, 3.629781197575347*^9}, {3.629781240397422*^9, 
   3.629781337663593*^9}, {3.6297813946972933`*^9, 3.6297814529165955`*^9}, {
   3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 
   3.629781647633338*^9}, {3.629781678833393*^9, 3.629781763120341*^9}, 
   3.6297818028224106`*^9, {3.6297818432108817`*^9, 3.629781872570133*^9}, {
   3.629782355765382*^9, 3.629782427603508*^9}, {3.6297824692243814`*^9, 
   3.629782674863942*^9}, {3.629782707218399*^9, 3.6297829295343895`*^9}, {
   3.629783005631323*^9, 3.6297830574702144`*^9}, {3.6297831098551064`*^9, 
   3.629783142786764*^9}, {3.629783433711675*^9, 3.629783442619291*^9}, {
   3.6297834942397814`*^9, 3.6297835175930223`*^9}, 3.6297835794939313`*^9, {
   3.6297836160291953`*^9, 3.6297837668970604`*^9}, {3.6297842042438283`*^9, 
   3.6297842697483435`*^9}, {3.6297843514456873`*^9, 3.629784370742921*^9}, {
   3.629784443829049*^9, 3.6297844678842916`*^9}, {3.6297845252611923`*^9, 
   3.629784525588793*^9}, {3.6297846136821475`*^9, 3.629784629235375*^9}, {
   3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 
   3.6297852602096834`*^9}, {3.6297858780175686`*^9, 3.629785917282837*^9}, {
   3.629786048057867*^9, 3.629786048681868*^9}, 3.6297863278755584`*^9, {
   3.6297867047133856`*^9, 3.629786748533863*^9}, {3.6297867791567163`*^9, 
   3.6297868491540394`*^9}, {3.6297875320748396`*^9, 3.629787569795706*^9}, {
   3.6297876247234025`*^9, 3.6297877281983843`*^9}, {3.6297877681812544`*^9, 
   3.629787774015665*^9}, {3.629787831408166*^9, 3.6297878355265727`*^9}, {
   3.6297878775686464`*^9, 3.6297878861174617`*^9}, {3.6297879185343184`*^9, 
   3.629787919064719*^9}, {3.6297880043032694`*^9, 3.62978800470887*^9}, 
   3.6297880488257475`*^9, {3.6297882100052304`*^9, 3.6297882174776435`*^9}, {
   3.6297882697533355`*^9, 3.6297882948381796`*^9}, {3.6297883467550707`*^9, 
   3.6297883991087627`*^9}, {3.6297887361785545`*^9, 3.629788783961438*^9}, 
   3.629788825395111*^9, {3.629789006152629*^9, 3.6297890321266747`*^9}, {
   3.6297891133248167`*^9, 3.629789145336073*^9}, {3.6297891926821566`*^9, 
   3.629789194257759*^9}, {3.629789255316266*^9, 3.6297892556282673`*^9}, {
   3.629869102295367*^9, 3.629869160124668*^9}, {3.6298691942887287`*^9, 
   3.6298696149902673`*^9}, {3.6298696993864155`*^9, 3.62986975897852*^9}, {
   3.6298698387726603`*^9, 3.629869912030389*^9}, {3.6298700722270703`*^9, 
   3.629870234560955*^9}, {3.629870580429163*^9, 3.629870630458451*^9}, {
   3.630556081081209*^9, 3.630556104902451*^9}, {3.6305562643503313`*^9, 
   3.6305562763935523`*^9}, {3.6305563415080667`*^9, 3.630556480956712*^9}, {
   3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 
   3.630556914528273*^9}, {3.6305653725974936`*^9, 3.6305656807121167`*^9}, {
   3.630565758760581*^9, 3.6305657739024467`*^9}, {3.630565858170267*^9, 
   3.63056596644846*^9}, {3.6305661502619734`*^9, 3.6305661523230915`*^9}, {
   3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019125`*^9, 
   3.630566790535595*^9}, {3.6305668214773645`*^9, 3.630567044691132*^9}, {
   3.6305670772499943`*^9, 3.6305670783710585`*^9}, 3.630567272031135*^9, {
   3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 
   3.6305687195002403`*^9}, {3.6305687542132254`*^9, 3.630568758623478*^9}, {
   3.630568855671028*^9, 3.630568859250233*^9}, {3.630569706514694*^9, 
   3.630569775526641*^9}, 3.630569982346471*^9, {3.6305701679130845`*^9, 
   3.630570205199217*^9}, {3.6305703751399374`*^9, 3.630570526177576*^9}, {
   3.630587657039589*^9, 3.630587688367381*^9}, {3.6305880733027773`*^9, 
   3.6305883365376396`*^9}, {3.6305886689118233`*^9, 3.6305886717978287`*^9}, 
   3.6305889776831656`*^9, {3.6305890389444733`*^9, 3.6305890437180815`*^9}, {
   3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, {
   3.6305892509956455`*^9, 3.6305892594820604`*^9}, {3.630589318949365*^9, 
   3.6305893334729905`*^9}, {3.630589630294712*^9, 3.6305896376267247`*^9}, {
   3.630589683288005*^9, 3.630589684988408*^9}, {3.630597310538067*^9, 
   3.630597340080757*^9}, {3.630597391446695*^9, 3.630597400596218*^9}, {
   3.6305974350611897`*^9, 3.6305974605306463`*^9}, {3.630633997622449*^9, 
   3.630634003125764*^9}, {3.630659322217756*^9, 3.63065932438616*^9}, {
   3.6306611578252783`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 
   3.630661257587454*^9}, {3.6306613001287284`*^9, 3.6306613026715326`*^9}, {
   3.6306613920752897`*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 
   3.630670654957817*^9}, {3.6306749981919994`*^9, 3.630675005793434*^9}, {
   3.6306751229631357`*^9, 3.630675150017683*^9}, {3.6306752035287437`*^9, 
   3.6306752096180925`*^9}, {3.630675315921172*^9, 3.6306753201514144`*^9}, {
   3.6306757793287754`*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 
   3.6306758147026625`*^9}, {3.6306760107574763`*^9, 
   3.6306760154417443`*^9}, {3.6306789722320743`*^9, 
   3.6306789870309205`*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, {
   3.6306800259177256`*^9, 3.6306800406129513`*^9}, {3.6306801239326982`*^9, 
   3.6306801300167084`*^9}, {3.630680769261832*^9, 3.6306807806186523`*^9}, {
   3.630681157468514*^9, 3.6306811577649145`*^9}, {3.6306812744219193`*^9, 
   3.63068127471832*^9}, {3.6306817187418995`*^9, 3.6306817919060287`*^9}, {
   3.630681879188182*^9, 3.6306819111526375`*^9}, {3.6306821191790032`*^9, 
   3.6306821283050194`*^9}, {3.630720543651497*^9, 3.6307205534300566`*^9}, {
   3.630721035525631*^9, 3.630721092774905*^9}, {3.6307212510439577`*^9, 
   3.6307213064777765`*^9}, {3.6307477437169704`*^9, 
   3.6307478284095197`*^9}, {3.6307478614971776`*^9, 
   3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, {
   3.630748045624301*^9, 3.630748063876333*^9}, {3.630748111596817*^9, 
   3.6307481498324842`*^9}, {3.6307489182430334`*^9, 
   3.6307489447786803`*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, {
   3.6307491041485605`*^9, 3.6307491384218206`*^9}, {3.6307491914151134`*^9, 
   3.630749196890723*^9}, {3.6307492445800066`*^9, 3.6307493439989815`*^9}, {
   3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 
   3.6307495547241516`*^9}, {3.6307496525831237`*^9, 3.630749669571553*^9}, {
   3.630750220602922*^9, 3.6307502881822405`*^9}, {3.6307510631916018`*^9, 
   3.630751068292811*^9}, {3.6307511226589065`*^9, 3.630751137962533*^9}, {
   3.6307512555243397`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 
   3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, {
   3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.6307591666721067`*^9, 
   3.63075923229886*^9}, 3.630760288282259*^9, {3.6307603547370596`*^9, 
   3.630760557414652*^9}, {3.630760654134184*^9, 3.63076065510824*^9}, {
   3.6307606911683025`*^9, 3.6307606919283457`*^9}, {3.6307607642334814`*^9, 
   3.6307607648645177`*^9}, {3.630761455000991*^9, 3.6307614616743727`*^9}, {
   3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 
   3.630761695865768*^9}, {3.630761771278081*^9, 3.6307617792215357`*^9}, 
   3.6307629478424797`*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, {
   3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.6322053746993074`*^9, {
   3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396935015`*^9, 
   3.63220636484194*^9}, {3.6322064410612993`*^9, 3.6322064491667633`*^9}, {
   3.632206580308264*^9, 3.6322066373275256`*^9}, {3.6322066736436024`*^9, 
   3.6322067467737856`*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 
   3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, {
   3.6322073997741346`*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 
   3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, {
   3.6322079043859973`*^9, 3.6322079279443445`*^9}, {3.6322080916397076`*^9, 
   3.6322081666649985`*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 
   3.6349054089004903`*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, {
   3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 
   3.634905628121029*^9}, {3.6349057012822137`*^9, 3.6349057207913294`*^9}, {
   3.6349061371061416`*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 
   3.6349064369332905`*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 
   3.634906706128688*^9, {3.6349069249442034`*^9, 3.6349069328326545`*^9}, {
   3.6349070151973653`*^9, 3.6349070242298822`*^9}, {3.6349070817921743`*^9, 
   3.6349070822111983`*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, {
   3.6349079580732946`*^9, 3.6349079868219395`*^9}, {3.634908200284148*^9, 
   3.634908315195721*^9}, {3.6349083774582825`*^9, 3.6349084027997313`*^9}, {
   3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 
   3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, {
   3.6349539785771523`*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 
   3.6349541681829967`*^9}, {3.634954211263461*^9, 3.6349542495746527`*^9}, {
   3.6349543251259737`*^9, 3.634954355882733*^9}, {3.6349543892536416`*^9, 
   3.6349544742835045`*^9}, {3.634954547519694*^9, 3.6349545640246377`*^9}, {
   3.6349547051657104`*^9, 3.6349547107930326`*^9}, {3.634954745355009*^9, 
   3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, {
   3.634954904907135*^9, 3.6349549451084347`*^9}, {3.634955219605135*^9, 
   3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, {
   3.634955386393675*^9, 3.6349555039273973`*^9}, {3.6349557669644423`*^9, 
   3.6349557672004557`*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, {
   3.6349559513739896`*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 
   3.634956128996149*^9}, {3.6349561700724983`*^9, 3.6349561978900895`*^9}, {
   3.6349562480719595`*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 
   3.6349563460575643`*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 
   3.6349564696636343`*^9, {3.6351524116477795`*^9, 3.6351524153379908`*^9}, {
   3.6352134400282927`*^9, 3.635213442148414*^9}, {3.6352134745862694`*^9, 
   3.635213495869487*^9}, {3.6352135383409157`*^9, 3.6352137157160616`*^9}, {
   3.6352137493569856`*^9, 3.635213764522853*^9}, {3.635214215036621*^9, 
   3.635214227593339*^9}, {3.635214407257615*^9, 3.63521441713218*^9}, {
   3.635215297101512*^9, 3.635215303964904*^9}, {3.6352154111120324`*^9, 
   3.635215431504199*^9}, {3.635216346055508*^9, 3.635216494371991*^9}, {
   3.635216631050809*^9, 3.6352166603244834`*^9}, {3.635216763034358*^9, 
   3.635216764164423*^9}, {3.6352168771938877`*^9, 3.635216888828553*^9}, 
   3.6352169832479534`*^9, 3.635217037668066*^9, {3.6352172024924936`*^9, 
   3.6352172054526625`*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 
   3.6352173863770113`*^9, {3.635217519639633*^9, 3.6352175507014103`*^9}, 
   3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, {
   3.6352185912849283`*^9, 3.635218598444338*^9}, {3.6352186995721216`*^9, 
   3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, {
   3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 
   3.6352195994635925`*^9, {3.6352197336482677`*^9, 3.635219737452485*^9}, {
   3.6352197706093817`*^9, 3.6352197723214793`*^9}, {3.635219941784172*^9, 
   3.6352199485115566`*^9}, {3.6352200714185867`*^9, 
   3.6352200854323883`*^9}, {3.6352202085694313`*^9, 3.635220235849992*^9}, {
   3.6352202816336107`*^9, 3.6352203110962954`*^9}, {3.6352204980449886`*^9, 
   3.6352205276526823`*^9}, {3.6352253191447396`*^9, 
   3.6352253299913597`*^9}, {3.6352253611111403`*^9, 
   3.6352253637572913`*^9}, {3.635225409322898*^9, 3.6352255965196047`*^9}, {
   3.6352260914249115`*^9, 3.6352261698393965`*^9}, {3.63522638233055*^9, 
   3.6352264188036366`*^9}, {3.635227493469104*^9, 3.635227556935734*^9}, {
   3.6352276745764627`*^9, 3.635227730116639*^9}, {3.6352287979917183`*^9, 
   3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, {
   3.635229365252164*^9, 3.6352293902275925`*^9}, {3.63522947690555*^9, 
   3.6352294807837715`*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 
   3.6356569054520617`*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, {
   3.6363778414932528`*^9, 3.6363778525308843`*^9}, {3.636384436335312*^9, 
   3.6363846409950175`*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, {
   3.6363850170465264`*^9, 3.636385030729309*^9}, {3.6363851286779118`*^9, 
   3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, {
   3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 
   3.656076619019133*^9}, 3.6560772545486493`*^9, {3.6630719749029694`*^9, 
   3.6630719878027077`*^9}, {3.6630720702554235`*^9, 
   3.6630720807290225`*^9}, {3.6630721155740156`*^9, 
   3.6630721713712068`*^9}, {3.663072270834896*^9, 3.6630722882218904`*^9}, 
   3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, {
   3.685252204033695*^9, 3.6852522340537376`*^9}, {3.6852522757137957`*^9, 
   3.6852523115138454`*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, {
   3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.6852540682470407`*^9, 
   3.6852541660656357`*^9, {3.6852604801645336`*^9, 3.6852605060345697`*^9}, {
   3.6852605373446136`*^9, 3.6852605977846985`*^9}, 3.685260655254779*^9, {
   3.6853280002218475`*^9, 3.685328019561875*^9}, 3.685328064721938*^9, {
   3.6853280953119807`*^9, 3.6853282636022167`*^9}, {3.685328356242346*^9, 
   3.685328598671985*^9}, {3.6853286682069626`*^9, 3.6853287982524004`*^9}, {
   3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 
   3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, {
   3.685329173522865*^9, 3.6853294420842257`*^9}, {3.6853296024223967`*^9, 
   3.6853296124319687`*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, {
   3.6853298076291337`*^9, 3.6853298739599276`*^9}, {3.685330038474337*^9, 
   3.685330051652091*^9}, {3.6853311309428225`*^9, 3.685331168378964*^9}, {
   3.685340142134763*^9, 3.685340180544817*^9}, {3.6853583292043543`*^9, 
   3.685358334834362*^9}, {3.685358366084406*^9, 3.685358366954407*^9}, {
   3.685358408404465*^9, 3.685358518294619*^9}, 3.685358620174762*^9, 
   3.6853586578748145`*^9, {3.6853588750151186`*^9, 3.6853588857151337`*^9}, {
   3.6853589302051954`*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 
   3.6853590296653347`*^9}, 3.685359148315501*^9, 3.6853598281764526`*^9, {
   3.6853683109000263`*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 
   3.6853684704302497`*^9}, {3.6853685194503183`*^9, 3.685368742860631*^9}, {
   3.685369008901004*^9, 3.68536902061102*^9}, {3.6853690791611023`*^9, 
   3.685369132301176*^9}, {3.6853693219914417`*^9, 3.6853693304114532`*^9}, 
   3.6853696089118433`*^9, {3.6858758911429157`*^9, 3.685875951793*^9}, {
   3.6859484099082212`*^9, 3.6859484970032024`*^9}, {3.686052829875022*^9, 
   3.686052906242383*^9}, {3.6860535326822133`*^9, 3.686053598029951*^9}, {
   3.68605365168902*^9, 3.6860541446091995`*^9}, {3.6860541846064873`*^9, 
   3.68605440393201*^9}, {3.686054713802734*^9, 3.6860547858298535`*^9}, {
   3.6860548280202665`*^9, 3.686054837219793*^9}, {3.686054874127904*^9, 
   3.686054892139934*^9}, {3.686055136014883*^9, 3.6860551460584574`*^9}, {
   3.686055211281188*^9, 3.6860552301962633`*^9}, {3.6860553465409174`*^9, 
   3.6860553998749685`*^9}, {3.6860556017188663`*^9, 
   3.6860556050188704`*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, {
   3.686292409650853*^9, 3.6862924109708548`*^9}, {3.6862924536109147`*^9, 
   3.6862924596309233`*^9}, {3.686292542221039*^9, 3.6862925430110397`*^9}, {
   3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 
   3.686650526682659*^9}, {3.686650671852862*^9, 3.6866507242929354`*^9}, {
   3.6866507657529936`*^9, 3.6866507887630253`*^9}, {3.6866508208230705`*^9, 
   3.6866509100531955`*^9}, {3.6866509593932643`*^9, 3.686650971113281*^9}, {
   3.686651007793332*^9, 3.6866511595335445`*^9}, {3.686651223513634*^9, 
   3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, {
   3.6866514102038956`*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 
   3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, {
   3.6868046315619783`*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 
   3.686804707092084*^9}, {3.6868047382021275`*^9, 3.686804767812169*^9}, {
   3.686804824012248*^9, 3.6868048404922705`*^9}, {3.686804942142413*^9, 
   3.6868049633424425`*^9}, {3.6868050765526013`*^9, 3.686805101092636*^9}, {
   3.6868051463526993`*^9, 3.6868052234228067`*^9}, {3.686805307602925*^9, 
   3.686805311682931*^9}, {3.68680577547358*^9, 3.686805788923599*^9}, {
   3.686821702197342*^9, 3.6868217282873783`*^9}, {3.6868225192884855`*^9, 
   3.686822538368512*^9}, {3.6868226306886415`*^9, 3.6868226683086944`*^9}, {
   3.6868227318887835`*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 
   3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, {
   3.6868232450595016`*^9, 3.6868233753996844`*^9}, {3.6868234153897405`*^9, 
   3.686823451379791*^9}, {3.6868236736101017`*^9, 3.6868236786601086`*^9}, {
   3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 
   3.68682390087042*^9}, {3.686823940790476*^9, 3.6868239416904774`*^9}, {
   3.6868239808805323`*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 
   3.6868240519006314`*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, {
   3.6868245440213203`*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 
   3.6868246979115357`*^9}, 3.6868248012716804`*^9, 3.6868253582724605`*^9, {
   3.6868255183026843`*^9, 3.686825518932685*^9}, {3.6868264466639843`*^9, 
   3.6868264497139883`*^9}, {3.6868267792744493`*^9, 
   3.6868268152945004`*^9}, {3.686827100164899*^9, 3.6868271210549283`*^9}, 
   3.686827162004986*^9, {3.6868272414950967`*^9, 3.686827327475217*^9}, {
   3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 
   3.686829138957753*^9}, 3.6868292410978966`*^9, {3.6868292768379464`*^9, 
   3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, {
   3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 
   3.686831307180789*^9}, {3.6868331276633377`*^9, 3.68683328653356*^9}, {
   3.6868394697195063`*^9, 3.6868394933895392`*^9}, 3.686839530999592*^9, {
   3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 
   3.68683979365996*^9}, {3.6868398344600167`*^9, 3.686839866200061*^9}, {
   3.687092084401948*^9, 3.687092117031994*^9}, {3.6870922598621936`*^9, 
   3.6870922645422*^9}, {3.6870962086478376`*^9, 3.6870962658779182`*^9}, 
   3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, {
   3.6870965809883595`*^9, 3.687096592708376*^9}, 3.687096837948719*^9, {
   3.68709688890879*^9, 3.687096985798926*^9}, {3.6870971015990877`*^9, 
   3.6870972179192505`*^9}, {3.6870972618993125`*^9, 3.687097305639374*^9}, {
   3.6870973356794157`*^9, 3.6870975186496716`*^9}, {3.6870975796097574`*^9, 
   3.6870975953197794`*^9}, {3.6870976531898603`*^9, 3.6870976848899045`*^9}, 
   3.6870977782500353`*^9, {3.687413757687042*^9, 3.6874137834070783`*^9}, {
   3.6874140542074575`*^9, 3.687414094417514*^9}, {3.6874143478878684`*^9, 
   3.687414485538061*^9}, {3.6874146116082373`*^9, 3.68741464894829*^9}, {
   3.6874147451084247`*^9, 3.687414766118454*^9}, 3.6874149094486547`*^9, {
   3.6874150416688395`*^9, 3.6874150634888706`*^9}, {3.6874152437091227`*^9, 
   3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 
   3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 
   3.687415645529685*^9, {3.6874168016913037`*^9, 3.687416803441306*^9}, {
   3.687421022677213*^9, 3.6874212686075573`*^9}, {3.68742948209425*^9, 
   3.6874294906842623`*^9}, {3.687844340668378*^9, 3.6878443698084188`*^9}, {
   3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 
   3.6889064680223217`*^9}, {3.688906514222396*^9, 3.6889065193925257`*^9}, {
   3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 
   3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, {
   3.688908466073407*^9, 3.6889084993734536`*^9}, 3.688908533623502*^9, {
   3.688908616683618*^9, 3.6889086271336327`*^9}, {3.6889086885637183`*^9, 
   3.6889087063437433`*^9}, {3.6889091647443852`*^9, 
   3.6889092012544365`*^9}, {3.6889093019045773`*^9, 3.6889093406746316`*^9}, 
   3.6889101071957045`*^9, {3.689905940063133*^9, 3.689905972983179*^9}, {
   3.692530981927737*^9, 3.6925310416778207`*^9}, {3.692531099797902*^9, 
   3.6925311384779563`*^9}, {3.692531192258032*^9, 3.692531244668105*^9}, {
   3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 
   3.692531643928664*^9}, {3.692535489534048*^9, 3.6925356485142703`*^9}, {
   3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 
   3.692535899604622*^9}, {3.692536042584822*^9, 3.692536159384986*^9}, {
   3.6925366121156197`*^9, 3.6925366207256317`*^9}, {3.6925367265057793`*^9, 
   3.69253672683578*^9}, {3.6925368590559654`*^9, 3.6925368636559715`*^9}, {
   3.6925370880062857`*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 
   3.6925373869767046`*^9}, {3.6925390913352747`*^9, 
   3.6925390925252767`*^9}, {3.692539644430175*^9, 3.6925396711502123`*^9}, {
   3.692539727510291*^9, 3.692539730440295*^9}, {3.69253993367058*^9, 
   3.692539963780622*^9}, {3.6925400018406754`*^9, 3.692540003630678*^9}, {
   3.6925401743409166`*^9, 3.6925401747509174`*^9}, {3.692540399111232*^9, 
   3.692540407981244*^9}, {3.69254047647134*^9, 3.6925404886113567`*^9}, {
   3.6925406039715185`*^9, 3.69254060531152*^9}, {3.6925414948727655`*^9, 
   3.6925414953427663`*^9}, {3.6925415478528395`*^9, 3.692541613062931*^9}, 
   3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, {
   3.692541924473367*^9, 3.692542041693531*^9}, {3.6925421488836813`*^9, 
   3.6925422549438295`*^9}, {3.6925422976938896`*^9, 3.692542521444203*^9}, {
   3.6925426221843443`*^9, 3.6925426357343626`*^9}, 3.692542739374508*^9, 
   3.692599799510878*^9, {3.692599834884901*^9, 3.6925998954663663`*^9}, {
   3.692599925635092*^9, 3.6926000095928946`*^9}, {3.692600108929576*^9, 
   3.6926001456386757`*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, {
   3.692600503149027*^9, 3.6926006000391626`*^9}, {3.692600680251275*^9, 
   3.6926006814012766`*^9}, {3.6926009000215826`*^9, 3.6926009410816402`*^9}, 
   3.692601280532116*^9, {3.6926044914726114`*^9, 3.69260449774262*^9}, 
   3.6926045660127153`*^9, 3.6926046690228596`*^9, {3.69296647863291*^9, 
   3.6929664798829117`*^9}, {3.6929665643330297`*^9, 
   3.6929666141830997`*^9}, {3.6929670390036945`*^9, 
   3.6929670405536966`*^9}, {3.6929670861037607`*^9, 
   3.6929670952937737`*^9}, {3.6929671302538223`*^9, 
   3.6929671549438567`*^9}, {3.6929671904739065`*^9, 3.69296722137395*^9}, {
   3.6929672596240034`*^9, 3.6929673352541094`*^9}, 3.6929678909232683`*^9, {
   3.6930146982034283`*^9, 3.693014722713463*^9}, {3.6930148540136466`*^9, 
   3.693014857023651*^9}, {3.6930148913836985`*^9, 3.693014894823704*^9}, {
   3.693014930903754*^9, 3.6930151942541227`*^9}, {3.693015247824198*^9, 
   3.693015430554454*^9}, {3.693015673794794*^9, 3.69301579223496*^9}, {
   3.6930163123576884`*^9, 3.693016326897709*^9}, {3.6930164225678425`*^9, 
   3.693016429727853*^9}, {3.693016686718212*^9, 3.693016698128228*^9}, {
   3.693016737038283*^9, 3.693016755068308*^9}, {3.6930168429225607`*^9, 
   3.6930168719926014`*^9}, {3.6930172049430676`*^9, 3.693017284063178*^9}, {
   3.693017336433252*^9, 3.6930173662532935`*^9}, {3.6930180949163136`*^9, 
   3.6930180975563173`*^9}, {3.6930181870764427`*^9, 3.693018199956461*^9}, {
   3.6930182954065943`*^9, 3.693018305996609*^9}, {3.693139886141657*^9, 
   3.6931399045016823`*^9}, {3.6931402916003532`*^9, 3.693140295770359*^9}, {
   3.693140426020541*^9, 3.693140426530542*^9}, {3.6931410492237864`*^9, 
   3.6931410888738413`*^9}, {3.6931411194438844`*^9, 3.693141126553894*^9}, {
   3.693141412004294*^9, 3.693141454164353*^9}, {3.6931415979955544`*^9, 
   3.6931417931758275`*^9}, {3.6932199559445915`*^9, 
   3.6932199772046213`*^9}, {3.6932201435748544`*^9, 3.693220170284892*^9}, {
   3.693220713855653*^9, 3.693220721825664*^9}, {3.693625124589745*^9, 
   3.693625153729786*^9}, {3.6940907995669713`*^9, 3.6940909688872085`*^9}, {
   3.6940913675677667`*^9, 3.6940914223978434`*^9}, {3.694091508037963*^9, 
   3.694091572118053*^9}, 3.694092009628666*^9, {3.6940920553287296`*^9, 
   3.694092229168973*^9}, {3.6940923053990793`*^9, 3.694092374419176*^9}, {
   3.6940924537392874`*^9, 3.694092457789293*^9}, 3.694092642849552*^9, {
   3.6940928573598523`*^9, 3.694092862379859*^9}, {3.6940945886222763`*^9, 
   3.694094601932295*^9}, 3.694094849542641*^9, {3.694095764293922*^9, 
   3.6940957644739223`*^9}, {3.6940960602743363`*^9, 
   3.6940960732243547`*^9}, {3.6940961211044216`*^9, 3.694096124194426*^9}, {
   3.694665030960044*^9, 3.6946650634500895`*^9}, {3.6946652071402903`*^9, 
   3.6946653490404887`*^9}, {3.6946658702212186`*^9, 
   3.6946658881212435`*^9}, {3.694665923041292*^9, 3.694665953561335*^9}, {
   3.694665995981395*^9, 3.6946660149414215`*^9}, {3.694666050571471*^9, 
   3.6946660547214766`*^9}, {3.694666169991638*^9, 3.694666292151809*^9}, {
   3.6946663456618843`*^9, 3.6946663943919525`*^9}, 3.6946667526224537`*^9, 
   3.69466680700253*^9, 3.694687076625702*^9, {3.6946874316161985`*^9, 
   3.6946874621962414`*^9}, 3.694687499496294*^9, {3.694687567516389*^9, 
   3.694687642816495*^9}, {3.694687679006545*^9, 3.6946877198966026`*^9}, {
   3.6946877714966745`*^9, 3.694687931746899*^9}, {3.723798739728607*^9, 
   3.723798744014243*^9}, {3.7237990126446104`*^9, 3.723799023974499*^9}, {
   3.7244116671877546`*^9, 3.7244116733393917`*^9}, {3.724411761793063*^9, 
   3.7244117718753977`*^9}, {3.724411928386671*^9, 3.7244119682966137`*^9}, {
   3.724412131847311*^9, 3.724412188341254*^9}, {3.729414981357122*^9, 
   3.7294149861075096`*^9}, {3.749817651293678*^9, 3.749817653108206*^9}, {
   3.7498176831919456`*^9, 3.7498176846222315`*^9}, 3.7498177601545563`*^9, {
   3.749817859674735*^9, 3.749817861044999*^9}, {3.7498179561547127`*^9, 
   3.749817964489929*^9}, {3.749818149334386*^9, 3.749818237397959*^9}, 
   3.749818617867873*^9, {3.7505621848002787`*^9, 3.7505622174085107`*^9}, {
   3.75056238761455*^9, 3.750562431347901*^9}, {3.7505626332829456`*^9, 
   3.7505627331565337`*^9}, {3.7505627632642183`*^9, 
   3.7505627635859113`*^9}, {3.7515359581577415`*^9, 
   3.7515359614850826`*^9}, {3.751536071974715*^9, 3.7515360961721487`*^9}, 
   3.7515362040373974`*^9, {3.751536256080162*^9, 3.7515365099108534`*^9}, {
   3.751549231137398*^9, 3.7515493334258356`*^9}, {3.7515496891619573`*^9, 
   3.751549689458767*^9}, 3.753020403650548*^9, {3.7530205114189386`*^9, 
   3.753020525224822*^9}, {3.753021995594639*^9, 3.753022011512741*^9}, {
   3.760634689749445*^9, 3.7606348247488756`*^9}, {3.7606349119783344`*^9, 
   3.7606349350197754`*^9}, {3.76063496856853*^9, 3.7606349922504683`*^9}, {
   3.760667269592998*^9, 3.760667271545692*^9}, 3.7606679283912125`*^9, 
   3.760668039709257*^9, {3.763302716900259*^9, 3.763302749083943*^9}, {
   3.763304867499642*^9, 3.7633048681948185`*^9}, {3.763337978730939*^9, 
   3.763338014197137*^9}, {3.763338054806819*^9, 3.7633381289118147`*^9}, {
   3.763338224472745*^9, 3.7633382447254143`*^9}, 3.763338501519575*^9, {
   3.7633387342733064`*^9, 3.763338775483101*^9}, {3.7633388525735607`*^9, 
   3.7633390131554184`*^9}, {3.763360596353942*^9, 3.7633606328922167`*^9}, {
   3.7633606638773637`*^9, 3.763360724941125*^9}, {3.763360812068123*^9, 
   3.763360863571327*^9}, {3.763361217769263*^9, 3.763361243271195*^9}, {
   3.763361578316657*^9, 3.7633615820345063`*^9}, {3.763362291476118*^9, 
   3.763362301380039*^9}, {3.763362505004878*^9, 3.763362606421646*^9}, {
   3.763362742167684*^9, 3.7633627524126663`*^9}, {3.7633628090243473`*^9, 
   3.763362931819517*^9}, 3.7633630680313087`*^9, {3.76336360941794*^9, 
   3.7633636782369685`*^9}, {3.763363813698273*^9, 3.763363822992702*^9}, {
   3.7633837714269123`*^9, 3.763383775708086*^9}, {3.7633839861442327`*^9, 
   3.7633839966350546`*^9}, {3.7633846907375526`*^9, 3.76338471098131*^9}, 
   3.763426089635152*^9, {3.7634262143520336`*^9, 3.7634262475470448`*^9}, {
   3.7634276458524485`*^9, 3.7634276705117846`*^9}, {3.7634292721860075`*^9, 
   3.7634292840439587`*^9}, {3.76352820463631*^9, 3.7635282147939873`*^9}, {
   3.763528430960533*^9, 3.7635284413250494`*^9}, {3.7635285114344244`*^9, 
   3.763528537124817*^9}, {3.763528653934307*^9, 3.7635286747218256`*^9}, {
   3.7635486952594075`*^9, 3.763548696007099*^9}, {3.7639579130072594`*^9, 
   3.7639579464687676`*^9}, {3.763957980699315*^9, 3.7639580928074217`*^9}, {
   3.763959813173403*^9, 3.7639598134702053`*^9}, {3.7639608015345135`*^9, 
   3.7639608287155933`*^9}, {3.7645603385872726`*^9, 3.764560365934222*^9}, {
   3.76456061596602*^9, 3.76456062636983*^9}, {3.7647257988231063`*^9, 
   3.7647258025896564`*^9}, {3.765077713031946*^9, 3.7650777913378534`*^9}, {
   3.7740698865922914`*^9, 3.774069989744633*^9}, {3.7740700982535834`*^9, 
   3.774070098487667*^9}, {3.7740701415628414`*^9, 3.7740702370647106`*^9}, {
   3.77407029325229*^9, 3.7740703348543596`*^9}, {3.774070397587008*^9, 
   3.774070454974152*^9}, {3.7740709929610343`*^9, 3.7740710067172923`*^9}, {
   3.775190474681038*^9, 3.7751904884151363`*^9}, {3.7751905901325903`*^9, 
   3.775190642609686*^9}, 3.775190717712206*^9, {3.7751956728394384`*^9, 
   3.7751957010601625`*^9}, 3.7751957418100777`*^9, {3.7751958741450567`*^9, 
   3.775195882844048*^9}, {3.7751959530858574`*^9, 3.775196055684782*^9}, {
   3.7836566506037264`*^9, 3.783656699859296*^9}, {3.783834162184903*^9, 
   3.7838342075157394`*^9}, {3.7838342453955064`*^9, 
   3.7838342564437876`*^9}, {3.783834288539219*^9, 3.783834289188504*^9}, {
   3.783834319888338*^9, 3.783834404011998*^9}, {3.783835274452033*^9, 
   3.783835643262226*^9}, 3.783835673435833*^9, {3.783837186915415*^9, 
   3.783837252940491*^9}, 3.783838076793089*^9, {3.7838387026691084`*^9, 
   3.7838387106794033`*^9}, {3.7838387751330376`*^9, 3.78383877586726*^9}, 
   3.7885184612710266`*^9, {3.7885197610115976`*^9, 3.788519761667694*^9}, {
   3.788519815581788*^9, 3.788519877459923*^9}, {3.788519910619506*^9, 
   3.7885199214314795`*^9}, {3.78852990807364*^9, 3.78852991935472*^9}, {
   3.788529949778452*^9, 3.7885299511123505`*^9}, 3.7885729856546545`*^9, {
   3.795769635061987*^9, 3.7957696738473544`*^9}, {3.7957698528454103`*^9, 
   3.795769867081932*^9}, {3.7963499268904905`*^9, 3.796349974573367*^9}, {
   3.8116565658363085`*^9, 3.811656579625844*^9}, {3.8116566792733173`*^9, 
   3.811656696847624*^9}, {3.819778974172573*^9, 3.819778996370713*^9}, {
   3.819779237456471*^9, 3.819779375493654*^9}, {3.819779556474127*^9, 
   3.8197797185600586`*^9}, 3.8200272939729*^9, 3.8200273875005593`*^9, 
   3.820027421880412*^9, {3.8200275035350485`*^9, 3.8200275049354267`*^9}, {
   3.8459709950905457`*^9, 3.8459710017500772`*^9}, {3.8459711689546986`*^9, 
   3.8459711702691975`*^9}, {3.845971286165346*^9, 3.845971289846427*^9}, {
   3.8459713248880577`*^9, 3.8459714501425343`*^9}, {3.845971579506527*^9, 
   3.8459716159320116`*^9}, {3.851994156946926*^9, 3.851994267451933*^9}, {
   3.851994384355441*^9, 3.851994388857566*^9}, {3.8519946139658265`*^9, 
   3.8519947933175044`*^9}, {3.8519948506536093`*^9, 
   3.8519948668032107`*^9}, {3.8520795751469183`*^9, 3.852079576172632*^9}, {
   3.852092396739352*^9, 3.8520925534144993`*^9}, {3.85242776319461*^9, 
   3.852427782014557*^9}},
 CellLabel->
  "In[155]:=",ExpressionUUID->"84fca9c3-6f6d-4c3a-a659-fe24d8d08b9d"]
}, Closed]],

Cell[CellGroupData[{

Cell["BEAM ELEMENT (disp) defs ", "Subsection",
 CellChangeTimes->{{3.7530187996679964`*^9, 3.753018803413909*^9}, {
   3.7633629633672647`*^9, 3.763362967100765*^9}, {3.787894773214689*^9, 
   3.7878947881941814`*^9}, {3.78789485671918*^9, 3.78789488217928*^9}, 
   3.7885197052606735`*^9, {3.788530025907043*^9, 3.7885300287809105`*^9}, 
   3.7885306781716957`*^9, {3.8200271989371843`*^9, 3.8200272016625395`*^9}, {
   3.8200274346181693`*^9, 3.8200274405428553`*^9}, {3.851995002562483*^9, 
   3.851995003043193*^9}},ExpressionUUID->"29c69188-71a3-4856-b6d8-\
0e798efe073e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"MEC", "-", "E1050"}], "|", 
    RowBox[{"E8001", " ", "defs"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BEAM", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE_", ",", "GG_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BEAM", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE", ",", "GG"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BEAM", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE_", ",", "GG_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BEAM", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE", ",", "GG"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", "iy0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BEAM", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE_", ",", "GG_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}]}], 
          "}"}], ",", 
         RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BEAM", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE", ",", "GG"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", "iy0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BEAM", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE_", ",", "GG_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"fX_", ",", "fY_", ",", "fZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BEAM", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE", ",", "GG"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "fX", ",", "fY", ",", "fZ", ",", "0", ",", "0", ",", "0"}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BEAM", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE_", ",", "GG_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA_", ",", "Iyy_", ",", "Izz_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", 
             "mZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", "node_", "]"}]}], "}"}], ",", "fun_"}], "]"}], ":=", 
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BEAM", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE", ",", "GG"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA", ",", "Iyy", ",", "Izz", ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "fX", ",", "fY", ",", "fZ", ",", "mX", ",", "mY", ",", "mZ"}], 
            "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", "node", "]"}]}], "}"}], ",", "fun"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Delta]W", "[", 
      RowBox[{"DISP", ",", 
       RowBox[{"{", 
        RowBox[{"BEAM", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"EE_", ",", "GG_"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"AA_", ",", "Iyy_", ",", "Izz_", ",", "iy0_"}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
            "fX_", ",", "fY_", ",", "fZ_", ",", "mX_", ",", "mY_", ",", 
             "mZ_"}], "}"}]}], "}"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{"n1_", ",", "n2_"}], "}"}], "]"}]}], "}"}], ",", "fun_"}], 
      "]"}], ":=", "\[IndentingNewLine]", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "r0", ",", "h0", ",", "h\[Alpha]0", ",", "i\[Alpha]0", ",", "ix0", 
         ",", "iz0", ",", "ux", ",", "uy", " ", ",", "uz", " ", ",", 
         "\[Theta]x", " ", ",", "\[Theta]y", " ", ",", "\[Theta]z", " ", ",", 
         "\[Delta]ux", " ", ",", "\[Delta]uy", ",", "\[Delta]uz", ",", 
         "\[Delta]\[Theta]x", ",", "\[Delta]\[Theta]y", ",", 
         "\[Delta]\[Theta]z", ",", "fx1", ",", "fx2", ",", "fy1", ",", "fy2", 
         ",", "fz1", ",", "fz2", ",", "mx1", ",", "mx2", ",", "my1", ",", 
         "my2", ",", "mz1", ",", "mz2", ",", "EEm", ",", "GGm", ",", "AAm", 
         ",", "Iyym", ",", "Izzm"}], "}"}], ",", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", "mapping", "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"r0", "=", 
         RowBox[{
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n2", ",", "1"}], "]"}], "]"}], "-", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n1", ",", "1"}], "]"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"h0", "=", 
         RowBox[{"Simplify", "[", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{"r0", ".", "r0"}], "]"}], ",", 
           RowBox[{
            RowBox[{"L", ">", "0"}], "&&", 
            RowBox[{"h", ">", "0"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"ix0", "=", 
         RowBox[{"r0", "/", "h0"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"iz0", "=", 
         RowBox[{"ix0", "\[Cross]", "iy0"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"ux", "[", "1", "]"}], ",", 
           RowBox[{"uy", "[", "1", "]"}], ",", 
           RowBox[{"uz", "[", "1", "]"}]}], "}"}], "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n1", ",", "2"}], "]"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"ux", "[", "2", "]"}], ",", 
           RowBox[{"uy", "[", "2", "]"}], ",", 
           RowBox[{"uz", "[", "2", "]"}]}], "}"}], "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n2", ",", "2"}], "]"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"\[Theta]x", "[", "1", "]"}], ",", 
           RowBox[{"\[Theta]y", "[", "1", "]"}], ",", 
           RowBox[{"\[Theta]z", "[", "1", "]"}]}], "}"}], "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n1", ",", "3"}], "]"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"\[Theta]x", "[", "2", "]"}], ",", 
           RowBox[{"\[Theta]y", "[", "2", "]"}], ",", 
           RowBox[{"\[Theta]z", "[", "2", "]"}]}], "}"}], "=", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"ix0", ",", "iy0", ",", "iz0"}], "}"}], ".", 
          RowBox[{"fun", "[", 
           RowBox[{"[", 
            RowBox[{"n2", ",", "3"}], "]"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"\[Delta]ux", "[", "1", "]"}], ",", 
           RowBox[{"\[Delta]uy", "[", "1", "]"}], ",", 
           RowBox[{"\[Delta]uz", "[", "1", "]"}]}], "}"}], "=", 
         RowBox[{"\[Delta]", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"ux", "[", "1", "]"}], ",", 
            RowBox[{"uy", "[", "1", "]"}], ",", 
            RowBox[{"uz", "[", "1", "]"}]}], "}"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"\[Delta]ux", "[", "2", "]"}], ",", 
           RowBox[{"\[Delta]uy", "[", "2", "]"}], ",", 
           RowBox[{"\[Delta]uz", "[", "2", "]"}]}], "}"}], "=", 
         RowBox[{"\[Delta]", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"ux", "[", "2", "]"}], ",", 
            RowBox[{"uy", "[", "2", "]"}], ",", 
            RowBox[{"uz", "[", "2", "]"}]}], "}"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}], ",", 
           RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], ",", 
           RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}]}], "}"}], "=", 
         RowBox[{"\[Delta]", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[Theta]x", "[", "1", "]"}], ",", 
            RowBox[{"\[Theta]y", "[", "1", "]"}], ",", 
            RowBox[{"\[Theta]z", "[", "1", "]"}]}], "}"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}], ",", 
           RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}], ",", 
           RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], "}"}], "=", 
         RowBox[{"\[Delta]", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[Theta]x", "[", "2", "]"}], ",", 
            RowBox[{"\[Theta]y", "[", "2", "]"}], ",", 
            RowBox[{"\[Theta]z", "[", "2", "]"}]}], "}"}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"EEm", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "1"}], "}"}], ".", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], "*", "EE"}], ")"}]}], "/", 
          "2"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"GGm", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "1"}], "}"}], ".", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], "*", "GG"}], ")"}]}], "/", 
          "2"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"AAm", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "1"}], "}"}], ".", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], "*", "AA"}], ")"}]}], "/", 
          "2"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Iyym", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "1"}], "}"}], ".", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], "*", "Iyy"}], ")"}]}], "/", 
          "2"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Izzm", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "1"}], "}"}], ".", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], "*", "Izz"}], ")"}]}], "/", 
          "2"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"fx1", ",", "fx2"}], "}"}], "=", 
         RowBox[{"ix0", ".", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], "*", "fX"}], ",", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], "*", "fY"}], ",", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], "*", "fZ"}]}], "}"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"fy1", ",", "fy2"}], "}"}], "=", 
         RowBox[{"iy0", ".", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], "*", "fX"}], ",", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], "*", "fY"}], ",", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], "*", "fZ"}]}], "}"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"fz1", ",", "fz2"}], "}"}], "=", 
         RowBox[{"iz0", ".", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], "*", "fX"}], ",", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], "*", "fY"}], ",", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], "*", "fZ"}]}], "}"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"mx1", ",", "mx2"}], "}"}], "=", 
         RowBox[{"ix0", ".", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], "*", "mX"}], ",", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], "*", "mY"}], ",", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], "*", "mZ"}]}], "}"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"my1", ",", "my2"}], "}"}], "=", 
         RowBox[{"iy0", ".", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], "*", "mX"}], ",", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], "*", "mY"}], ",", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], "*", "mZ"}]}], "}"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"mz1", ",", "mz2"}], "}"}], "=", 
         RowBox[{"iz0", ".", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], "*", "mX"}], ",", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], "*", "mY"}], ",", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}], "*", "mZ"}]}], "}"}]}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         FractionBox["1", 
          RowBox[{"60", " ", 
           SuperscriptBox["h0", "3"]}]], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "60"}], " ", "AAm", " ", "EEm", " ", 
            SuperscriptBox["h0", "2"], " ", 
            RowBox[{"ux", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
           RowBox[{"60", " ", "AAm", " ", "EEm", " ", 
            SuperscriptBox["h0", "2"], " ", 
            RowBox[{"ux", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
           RowBox[{"60", " ", "AAm", " ", "EEm", " ", 
            SuperscriptBox["h0", "2"], " ", 
            RowBox[{"ux", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "-", 
           RowBox[{"60", " ", "AAm", " ", "EEm", " ", 
            SuperscriptBox["h0", "2"], " ", 
            RowBox[{"ux", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]ux", "[", "2", "]"}]}], "+", 
           RowBox[{"10", " ", "fx1", " ", 
            SuperscriptBox["h0", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               RowBox[{"\[Delta]ux", "[", "1", "]"}]}], "+", 
              RowBox[{"\[Delta]ux", "[", "2", "]"}]}], ")"}]}], "+", 
           RowBox[{"10", " ", "fx2", " ", 
            SuperscriptBox["h0", "4"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Delta]ux", "[", "1", "]"}], "+", 
              RowBox[{"2", " ", 
               RowBox[{"\[Delta]ux", "[", "2", "]"}]}]}], ")"}]}], "+", 
           RowBox[{"21", " ", "fy1", " ", 
            SuperscriptBox["h0", "4"], " ", 
            RowBox[{"\[Delta]uy", "[", "1", "]"}]}], "+", 
           RowBox[{"9", " ", "fy2", " ", 
            SuperscriptBox["h0", "4"], " ", 
            RowBox[{"\[Delta]uy", "[", "1", "]"}]}], "-", 
           RowBox[{"30", " ", 
            SuperscriptBox["h0", "3"], " ", "mz1", " ", 
            RowBox[{"\[Delta]uy", "[", "1", "]"}]}], "-", 
           RowBox[{"30", " ", 
            SuperscriptBox["h0", "3"], " ", "mz2", " ", 
            RowBox[{"\[Delta]uy", "[", "1", "]"}]}], "-", 
           RowBox[{"720", " ", "EEm", " ", "Izzm", " ", 
            RowBox[{"uy", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]uy", "[", "1", "]"}]}], "+", 
           RowBox[{"720", " ", "EEm", " ", "Izzm", " ", 
            RowBox[{"uy", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]uy", "[", "1", "]"}]}], "+", 
           RowBox[{"9", " ", "fy1", " ", 
            SuperscriptBox["h0", "4"], " ", 
            RowBox[{"\[Delta]uy", "[", "2", "]"}]}], "+", 
           RowBox[{"21", " ", "fy2", " ", 
            SuperscriptBox["h0", "4"], " ", 
            RowBox[{"\[Delta]uy", "[", "2", "]"}]}], "+", 
           RowBox[{"30", " ", 
            SuperscriptBox["h0", "3"], " ", "mz1", " ", 
            RowBox[{"\[Delta]uy", "[", "2", "]"}]}], "+", 
           RowBox[{"30", " ", 
            SuperscriptBox["h0", "3"], " ", "mz2", " ", 
            RowBox[{"\[Delta]uy", "[", "2", "]"}]}], "+", 
           RowBox[{"720", " ", "EEm", " ", "Izzm", " ", 
            RowBox[{"uy", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]uy", "[", "2", "]"}]}], "-", 
           RowBox[{"720", " ", "EEm", " ", "Izzm", " ", 
            RowBox[{"uy", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]uy", "[", "2", "]"}]}], "+", 
           RowBox[{"21", " ", "fz1", " ", 
            SuperscriptBox["h0", "4"], " ", 
            RowBox[{"\[Delta]uz", "[", "1", "]"}]}], "+", 
           RowBox[{"9", " ", "fz2", " ", 
            SuperscriptBox["h0", "4"], " ", 
            RowBox[{"\[Delta]uz", "[", "1", "]"}]}], "+", 
           RowBox[{"30", " ", 
            SuperscriptBox["h0", "3"], " ", "my1", " ", 
            RowBox[{"\[Delta]uz", "[", "1", "]"}]}], "+", 
           RowBox[{"30", " ", 
            SuperscriptBox["h0", "3"], " ", "my2", " ", 
            RowBox[{"\[Delta]uz", "[", "1", "]"}]}], "-", 
           RowBox[{"720", " ", "EEm", " ", "Iyym", " ", 
            RowBox[{"uz", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]uz", "[", "1", "]"}]}], "+", 
           RowBox[{"720", " ", "EEm", " ", "Iyym", " ", 
            RowBox[{"uz", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]uz", "[", "1", "]"}]}], "+", 
           RowBox[{"9", " ", "fz1", " ", 
            SuperscriptBox["h0", "4"], " ", 
            RowBox[{"\[Delta]uz", "[", "2", "]"}]}], "+", 
           RowBox[{"21", " ", "fz2", " ", 
            SuperscriptBox["h0", "4"], " ", 
            RowBox[{"\[Delta]uz", "[", "2", "]"}]}], "-", 
           RowBox[{"30", " ", 
            SuperscriptBox["h0", "3"], " ", "my1", " ", 
            RowBox[{"\[Delta]uz", "[", "2", "]"}]}], "-", 
           RowBox[{"30", " ", 
            SuperscriptBox["h0", "3"], " ", "my2", " ", 
            RowBox[{"\[Delta]uz", "[", "2", "]"}]}], "+", 
           RowBox[{"720", " ", "EEm", " ", "Iyym", " ", 
            RowBox[{"uz", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]uz", "[", "2", "]"}]}], "-", 
           RowBox[{"720", " ", "EEm", " ", "Iyym", " ", 
            RowBox[{"uz", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]uz", "[", "2", "]"}]}], "+", 
           RowBox[{"20", " ", 
            SuperscriptBox["h0", "4"], " ", "mx1", " ", 
            RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}]}], "+", 
           RowBox[{"10", " ", 
            SuperscriptBox["h0", "4"], " ", "mx2", " ", 
            RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}]}], "+", 
           RowBox[{"10", " ", 
            SuperscriptBox["h0", "4"], " ", "mx1", " ", 
            RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}]}], "+", 
           RowBox[{"20", " ", 
            SuperscriptBox["h0", "4"], " ", "mx2", " ", 
            RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}]}], "-", 
           RowBox[{"3", " ", "fz1", " ", 
            SuperscriptBox["h0", "5"], " ", 
            RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}]}], "-", 
           RowBox[{"2", " ", "fz2", " ", 
            SuperscriptBox["h0", "5"], " ", 
            RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}]}], "+", 
           RowBox[{"5", " ", 
            SuperscriptBox["h0", "4"], " ", "my1", " ", 
            RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}]}], "-", 
           RowBox[{"5", " ", 
            SuperscriptBox["h0", "4"], " ", "my2", " ", 
            RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}]}], "+", 
           RowBox[{"360", " ", "EEm", " ", "h0", " ", "Iyym", " ", 
            RowBox[{"uz", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}]}], "-", 
           RowBox[{"360", " ", "EEm", " ", "h0", " ", "Iyym", " ", 
            RowBox[{"uz", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}]}], "+", 
           RowBox[{"2", " ", "fz1", " ", 
            SuperscriptBox["h0", "5"], " ", 
            RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], "+", 
           RowBox[{"3", " ", "fz2", " ", 
            SuperscriptBox["h0", "5"], " ", 
            RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], "-", 
           RowBox[{"5", " ", 
            SuperscriptBox["h0", "4"], " ", "my1", " ", 
            RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], "+", 
           RowBox[{"5", " ", 
            SuperscriptBox["h0", "4"], " ", "my2", " ", 
            RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], "+", 
           RowBox[{"360", " ", "EEm", " ", "h0", " ", "Iyym", " ", 
            RowBox[{"uz", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], "-", 
           RowBox[{"360", " ", "EEm", " ", "h0", " ", "Iyym", " ", 
            RowBox[{"uz", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}]}], "+", 
           RowBox[{"3", " ", "fy1", " ", 
            SuperscriptBox["h0", "5"], " ", 
            RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}]}], "+", 
           RowBox[{"2", " ", "fy2", " ", 
            SuperscriptBox["h0", "5"], " ", 
            RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}]}], "+", 
           RowBox[{"5", " ", 
            SuperscriptBox["h0", "4"], " ", "mz1", " ", 
            RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}]}], "-", 
           RowBox[{"5", " ", 
            SuperscriptBox["h0", "4"], " ", "mz2", " ", 
            RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}]}], "-", 
           RowBox[{"360", " ", "EEm", " ", "h0", " ", "Izzm", " ", 
            RowBox[{"uy", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}]}], "+", 
           RowBox[{"360", " ", "EEm", " ", "h0", " ", "Izzm", " ", 
            RowBox[{"uy", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}]}], "-", 
           RowBox[{"2", " ", "fy1", " ", 
            SuperscriptBox["h0", "5"], " ", 
            RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], "-", 
           RowBox[{"3", " ", "fy2", " ", 
            SuperscriptBox["h0", "5"], " ", 
            RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], "-", 
           RowBox[{"5", " ", 
            SuperscriptBox["h0", "4"], " ", "mz1", " ", 
            RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], "+", 
           RowBox[{"5", " ", 
            SuperscriptBox["h0", "4"], " ", "mz2", " ", 
            RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], "-", 
           RowBox[{"360", " ", "EEm", " ", "h0", " ", "Izzm", " ", 
            RowBox[{"uy", "[", "1", "]"}], " ", 
            RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], "+", 
           RowBox[{"360", " ", "EEm", " ", "h0", " ", "Izzm", " ", 
            RowBox[{"uy", "[", "2", "]"}], " ", 
            RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}]}], "-", 
           RowBox[{"60", " ", "GGm", " ", 
            SuperscriptBox["h0", "2"], " ", "Iyym", " ", 
            RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}], " ", 
            RowBox[{"\[Theta]x", "[", "1", "]"}]}], "-", 
           RowBox[{"60", " ", "GGm", " ", 
            SuperscriptBox["h0", "2"], " ", "Izzm", " ", 
            RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}], " ", 
            RowBox[{"\[Theta]x", "[", "1", "]"}]}], "+", 
           RowBox[{"60", " ", "GGm", " ", 
            SuperscriptBox["h0", "2"], " ", "Iyym", " ", 
            RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}], " ", 
            RowBox[{"\[Theta]x", "[", "1", "]"}]}], "+", 
           RowBox[{"60", " ", "GGm", " ", 
            SuperscriptBox["h0", "2"], " ", "Izzm", " ", 
            RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}], " ", 
            RowBox[{"\[Theta]x", "[", "1", "]"}]}], "+", 
           RowBox[{"60", " ", "GGm", " ", 
            SuperscriptBox["h0", "2"], " ", "Iyym", " ", 
            RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}], " ", 
            RowBox[{"\[Theta]x", "[", "2", "]"}]}], "+", 
           RowBox[{"60", " ", "GGm", " ", 
            SuperscriptBox["h0", "2"], " ", "Izzm", " ", 
            RowBox[{"\[Delta]\[Theta]x", "[", "1", "]"}], " ", 
            RowBox[{"\[Theta]x", "[", "2", "]"}]}], "-", 
           RowBox[{"60", " ", "GGm", " ", 
            SuperscriptBox["h0", "2"], " ", "Iyym", " ", 
            RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}], " ", 
            RowBox[{"\[Theta]x", "[", "2", "]"}]}], "-", 
           RowBox[{"60", " ", "GGm", " ", 
            SuperscriptBox["h0", "2"], " ", "Izzm", " ", 
            RowBox[{"\[Delta]\[Theta]x", "[", "2", "]"}], " ", 
            RowBox[{"\[Theta]x", "[", "2", "]"}]}], "+", 
           RowBox[{"360", " ", "EEm", " ", "h0", " ", "Iyym", " ", 
            RowBox[{"\[Delta]uz", "[", "1", "]"}], " ", 
            RowBox[{"\[Theta]y", "[", "1", "]"}]}], "-", 
           RowBox[{"360", " ", "EEm", " ", "h0", " ", "Iyym", " ", 
            RowBox[{"\[Delta]uz", "[", "2", "]"}], " ", 
            RowBox[{"\[Theta]y", "[", "1", "]"}]}], "-", 
           RowBox[{"240", " ", "EEm", " ", 
            SuperscriptBox["h0", "2"], " ", "Iyym", " ", 
            RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], " ", 
            RowBox[{"\[Theta]y", "[", "1", "]"}]}], "-", 
           RowBox[{"120", " ", "EEm", " ", 
            SuperscriptBox["h0", "2"], " ", "Iyym", " ", 
            RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}], " ", 
            RowBox[{"\[Theta]y", "[", "1", "]"}]}], "+", 
           RowBox[{"360", " ", "EEm", " ", "h0", " ", "Iyym", " ", 
            RowBox[{"\[Delta]uz", "[", "1", "]"}], " ", 
            RowBox[{"\[Theta]y", "[", "2", "]"}]}], "-", 
           RowBox[{"360", " ", "EEm", " ", "h0", " ", "Iyym", " ", 
            RowBox[{"\[Delta]uz", "[", "2", "]"}], " ", 
            RowBox[{"\[Theta]y", "[", "2", "]"}]}], "-", 
           RowBox[{"120", " ", "EEm", " ", 
            SuperscriptBox["h0", "2"], " ", "Iyym", " ", 
            RowBox[{"\[Delta]\[Theta]y", "[", "1", "]"}], " ", 
            RowBox[{"\[Theta]y", "[", "2", "]"}]}], "-", 
           RowBox[{"240", " ", "EEm", " ", 
            SuperscriptBox["h0", "2"], " ", "Iyym", " ", 
            RowBox[{"\[Delta]\[Theta]y", "[", "2", "]"}], " ", 
            RowBox[{"\[Theta]y", "[", "2", "]"}]}], "-", 
           RowBox[{"360", " ", "EEm", " ", "h0", " ", "Izzm", " ", 
            RowBox[{"\[Delta]uy", "[", "1", "]"}], " ", 
            RowBox[{"\[Theta]z", "[", "1", "]"}]}], "+", 
           RowBox[{"360", " ", "EEm", " ", "h0", " ", "Izzm", " ", 
            RowBox[{"\[Delta]uy", "[", "2", "]"}], " ", 
            RowBox[{"\[Theta]z", "[", "1", "]"}]}], "-", 
           RowBox[{"240", " ", "EEm", " ", 
            SuperscriptBox["h0", "2"], " ", "Izzm", " ", 
            RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}], " ", 
            RowBox[{"\[Theta]z", "[", "1", "]"}]}], "-", 
           RowBox[{"120", " ", "EEm", " ", 
            SuperscriptBox["h0", "2"], " ", "Izzm", " ", 
            RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}], " ", 
            RowBox[{"\[Theta]z", "[", "1", "]"}]}], "-", 
           RowBox[{"360", " ", "EEm", " ", "h0", " ", "Izzm", " ", 
            RowBox[{"\[Delta]uy", "[", "1", "]"}], " ", 
            RowBox[{"\[Theta]z", "[", "2", "]"}]}], "+", 
           RowBox[{"360", " ", "EEm", " ", "h0", " ", "Izzm", " ", 
            RowBox[{"\[Delta]uy", "[", "2", "]"}], " ", 
            RowBox[{"\[Theta]z", "[", "2", "]"}]}], "-", 
           RowBox[{"120", " ", "EEm", " ", 
            SuperscriptBox["h0", "2"], " ", "Izzm", " ", 
            RowBox[{"\[Delta]\[Theta]z", "[", "1", "]"}], " ", 
            RowBox[{"\[Theta]z", "[", "2", "]"}]}], "-", 
           RowBox[{"240", " ", "EEm", " ", 
            SuperscriptBox["h0", "2"], " ", "Izzm", " ", 
            RowBox[{"\[Delta]\[Theta]z", "[", "2", "]"}], " ", 
            RowBox[{"\[Theta]z", "[", "2", "]"}]}]}], ")"}]}]}]}], "]"}]}], 
    ";"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.4430689313272*^9, 3.4430690080792*^9}, {
   3.4430690869528*^9, 3.4430691077320004`*^9}, {3.4430691700116*^9, 
   3.4430691708072*^9}, {3.4430692071717997`*^9, 3.443069246359*^9}, {
   3.4430772782732*^9, 3.4430773623416*^9}, {3.4430773978316*^9, 
   3.4430774104676*^9}, {3.4430775053780003`*^9, 3.4430776180598*^9}, {
   3.4434109099524*^9, 3.4434109159584*^9}, {3.4438800815346003`*^9, 
   3.4438802689304*^9}, {3.443880362624*^9, 3.4438803824516*^9}, {
   3.443929565615374*^9, 3.443929570232974*^9}, {3.443935321321974*^9, 
   3.443935335705174*^9}, {3.443935419945174*^9, 3.443935421489574*^9}, {
   3.443935494013974*^9, 3.443935494715974*^9}, {3.443935617565974*^9, 
   3.4439357217895737`*^9}, {3.443935755360774*^9, 3.443935816107174*^9}, {
   3.443942155230774*^9, 3.443942209939974*^9}, {3.443942305710374*^9, 
   3.4439423142123737`*^9}, {3.4439442908131742`*^9, 3.443944441181574*^9}, {
   3.4439447830065737`*^9, 3.4439447917425737`*^9}, {3.443944908541774*^9, 
   3.443944916060974*^9}, {3.4442731097938004`*^9, 3.4442731115254*^9}, {
   3.444273189229*^9, 3.4442732700526*^9}, {3.4442748430004*^9, 
   3.4442748605036*^9}, {3.4442748977438*^9, 3.4442748989762*^9}, {
   3.4442749340762*^9, 3.4442749351057997`*^9}, 3.4442752313382*^9, {
   3.4442919702026*^9, 3.4442919911846*^9}, {3.4442921151577997`*^9, 
   3.4442921271074*^9}, {3.4443811023684*^9, 3.4443811036632*^9}, {
   3.4443814073171997`*^9, 3.4443814402956*^9}, {3.4443815036316*^9, 
   3.4443815147855997`*^9}, {3.4443815537232*^9, 3.4443815747676*^9}, {
   3.4443816138143997`*^9, 3.444381633174*^9}, {3.4443816850439997`*^9, 
   3.4443817801728*^9}, 3.4443853618688*^9, {3.4443855607376003`*^9, 
   3.4443856337924*^9}, {3.4443861200444*^9, 3.4443861523676*^9}, {
   3.4443862280495996`*^9, 3.444386291448*^9}, {3.4443864047352*^9, 
   3.4443864135336*^9}, {3.4443870026832*^9, 3.4443870095316*^9}, {
   3.4444082055056*^9, 3.4444082437412*^9}, {3.4444082797148*^9, 
   3.4444084583816*^9}, {3.4444084889108*^9, 3.4444085087539997`*^9}, {
   3.444408942517*^9, 3.4444089563386*^9}, {3.4444091419564*^9, 
   3.4444091647167997`*^9}, {3.4444092206428003`*^9, 
   3.4444092944463997`*^9}, {3.4444093856284*^9, 3.4444094281071997`*^9}, {
   3.4444094976988*^9, 3.4444095275104*^9}, {3.444409611064*^9, 
   3.4444096125772*^9}, 3.4444098504616003`*^9, {3.444409913392*^9, 
   3.4444099166056004`*^9}, 3.4444100178496*^9, {3.4444103063248*^9, 
   3.4444103358712*^9}, {3.4444103868208*^9, 3.4444104432460003`*^9}, {
   3.4444921219564*^9, 3.4444921256224003`*^9}, {3.444492194824*^9, 
   3.4444921973668003`*^9}, {3.4444922814351997`*^9, 3.4444922853508*^9}, {
   3.4444923330868*^9, 3.4444923345844*^9}, {3.444492366424*^9, 
   3.4444923855808*^9}, {3.4453153475226*^9, 3.445315360689*^9}, {
   3.4465518166373653`*^9, 3.446551863016165*^9}, {3.446551894231765*^9, 
   3.446552159384965*^9}, {3.446552232377365*^9, 3.4465522555589647`*^9}, {
   3.446553347388365*^9, 3.4465533616155653`*^9}, {3.4466058525769997`*^9, 
   3.4466058529046*^9}, {3.4466064371219997`*^9, 3.4466065097244*^9}, {
   3.4466127725788*^9, 3.4466127766036*^9}, {3.4466128124835997`*^9, 
   3.4466130037864*^9}, {3.4466131532696*^9, 3.4466131761703997`*^9}, {
   3.4466133992192*^9, 3.4466134478756*^9}, {3.446613483584*^9, 
   3.4466134932092*^9}, {3.4466135740952*^9, 3.4466135794927998`*^9}, {
   3.4466137283948*^9, 3.4466137341356*^9}, {3.4466138994342003`*^9, 
   3.4466139023826*^9}, {3.4466139549858*^9, 3.4466139579653997`*^9}, {
   3.4466142109818*^9, 3.4466142245226*^9}, {3.4466142793878*^9, 
   3.4466143652033997`*^9}, {3.4466144712834*^9, 3.4466145978929996`*^9}, {
   3.4466146992618*^9, 3.4466147509914*^9}, {3.4466151283086*^9, 
   3.4466152768986*^9}, {3.4466153107506*^9, 3.4466153406558*^9}, {
   3.4466194331976*^9, 3.4466194377528*^9}, {3.4466194847712*^9, 
   3.446619488718*^9}, {3.4466389495861998`*^9, 3.4466389768238*^9}, {
   3.4466391218414*^9, 3.446639306561*^9}, {3.4466393990222*^9, 
   3.4466394004886*^9}, {3.4466394475694*^9, 3.4466394487706003`*^9}, {
   3.4466395034174*^9, 3.4466395049462*^9}, 3.4466395515755997`*^9, {
   3.4466396000176*^9, 3.4466396190808*^9}, {3.4466397459088*^9, 
   3.446639748826*^9}, {3.4466397974356003`*^9, 3.446639798668*^9}, 
   3.4466398447816*^9, {3.446639894218*^9, 3.4466399201556*^9}, {
   3.4466399570964003`*^9, 3.4466399583288*^9}, {3.446639994006*^9, 
   3.4466400056904*^9}, {3.4466400383568*^9, 3.4466400395892*^9}, {
   3.4466400745643997`*^9, 3.4466401025976*^9}, {3.4466401660834*^9, 
   3.4466401806070004`*^9}, {3.4466402251294003`*^9, 3.446640227407*^9}, {
   3.446640260479*^9, 3.4466402657674*^9}, {3.4466404133122*^9, 
   3.4466405185654*^9}, 3.4466405830462*^9, {3.4467273294214*^9, 
   3.4467273777813997`*^9}, {3.4467274366558*^9, 3.4467275620954*^9}, {
   3.446727593311*^9, 3.4467277412614*^9}, {3.4467283334639997`*^9, 
   3.4467283356012*^9}, {3.4467283707636003`*^9, 3.4467283727604*^9}, {
   3.4467289882664003`*^9, 3.4467291276836*^9}, {3.446778464322*^9, 
   3.4467786797424*^9}, {3.4467801953803997`*^9, 3.4467802409792*^9}, {
   3.4467802998691998`*^9, 3.4467804023456*^9}, 3.4467804345596*^9, {
   3.4467808656344*^9, 3.4467808670852003`*^9}, 3.4467818107525997`*^9, {
   3.446781855509*^9, 3.446781874385*^9}, {3.4467826737914*^9, 
   3.4467827381726*^9}, {3.4467828623018*^9, 3.4467831045386*^9}, {
   3.4470344113984003`*^9, 3.4470344123344*^9}, {3.4470344628316*^9, 
   3.4470345343108*^9}, {3.447043591118539*^9, 3.447043642192939*^9}, {
   3.447045649625739*^9, 3.447045718437339*^9}, {3.447054774023939*^9, 
   3.447054834198939*^9}, {3.4470549103449388`*^9, 3.4470549116169386`*^9}, {
   3.447054943902939*^9, 3.4470553027109385`*^9}, {3.447055334559939*^9, 
   3.447055353684939*^9}, {3.447057311918539*^9, 3.447057369747739*^9}, {
   3.4470575058577385`*^9, 3.4470575951365385`*^9}, {3.4470581848789387`*^9, 
   3.4470582040825386`*^9}, {3.451276121243*^9, 3.4512761425838003`*^9}, {
   3.4512762022382*^9, 3.4512762064346*^9}, {3.4512762476966*^9, 
   3.4512762827654*^9}, {3.451276489091*^9, 3.451276541975*^9}, {
   3.4512765853118*^9, 3.4512766132046003`*^9}, {3.4512773470306*^9, 
   3.4512773766082*^9}, {3.4512776069110003`*^9, 3.4512777499318*^9}, 
   3.4512777831286*^9, {3.4512778785538*^9, 3.451277881627*^9}, {
   3.4512780242734003`*^9, 3.4512780302794*^9}, 3.4512780737878*^9, {
   3.4512781866226*^9, 3.4512781930810003`*^9}, {3.4512863325078*^9, 
   3.4512863539266*^9}, {3.4568019250434*^9, 3.4568022712698*^9}, {
   3.4568023177422*^9, 3.4568024125278*^9}, {3.4568024694365997`*^9, 
   3.4568024750369997`*^9}, {3.4568026914402*^9, 3.4568028101094*^9}, {
   3.4568028406698*^9, 3.4568028564726*^9}, 3.4568028886085997`*^9, {
   3.4568030489454*^9, 3.4568030800986*^9}, 3.4568032004128*^9, {
   3.4568035073698*^9, 3.4568035176034*^9}, {3.4568040146596003`*^9, 
   3.4568040844852*^9}, {3.4568043016684*^9, 3.4568043154744*^9}, {
   3.4568045482264*^9, 3.4568045486632*^9}, {3.4568048944996*^9, 
   3.4568049806116*^9}, {3.4660560628582*^9, 3.4660560753538*^9}, {
   3.4660676729379997`*^9, 3.4660676735931997`*^9}, {3.4660677244024*^9, 
   3.4660677277251997`*^9}, {3.4742646771287394`*^9, 3.47426469439174*^9}, {
   3.47426489921974*^9, 3.4742649800437393`*^9}, {3.4801246373348*^9, 
   3.4801246860536003`*^9}, {3.4801247748176003`*^9, 3.4801247821028*^9}, {
   3.4801248161264*^9, 3.4801248295736*^9}, {3.4801248810692*^9, 
   3.4801248964508*^9}, {3.4801249330484*^9, 3.480124947884*^9}, 
   3.4801249886468*^9, {3.4801251139147997`*^9, 3.48012512588*^9}, {
   3.4838339444988003`*^9, 3.4838339567448*^9}, 3.4838341692012*^9, {
   3.4838344350408*^9, 3.4838344353684*^9}, {3.4938987575920324`*^9, 
   3.4938987586840324`*^9}, {3.4941630624049997`*^9, 3.4941631381274*^9}, {
   3.4941632311345997`*^9, 3.4941632492306004`*^9}, 3.4941633249217997`*^9, {
   3.4941633940922003`*^9, 3.4941634063538*^9}, {3.4941634538402*^9, 
   3.4941635051642*^9}, {3.494163565115*^9, 3.4941636341762*^9}, {
   3.4941636853442*^9, 3.4941639323234*^9}, {3.4941640277798*^9, 
   3.4941641455754004`*^9}, {3.4941641790374002`*^9, 
   3.4941641803789997`*^9}, {3.4941642676142*^9, 3.4941643277678003`*^9}, 
   3.4941644677018003`*^9, {3.4941646208938*^9, 3.4941646322349997`*^9}, {
   3.4941652592693996`*^9, 3.4941652807194*^9}, {3.4941653119038*^9, 
   3.494165416299*^9}, {3.494165453895*^9, 3.4941654544722*^9}, {
   3.4950990979779997`*^9, 3.495099142701*^9}, {3.495099172958*^9, 
   3.4950991806289997`*^9}, {3.495099227097*^9, 3.495099238113*^9}, 
   3.495099290797*^9, {3.495099346084*^9, 3.495099359507*^9}, {
   3.495099456308*^9, 3.495099464091*^9}, 3.495099683108*^9, {
   3.495100428112*^9, 3.495100434958*^9}, {3.4951006496219997`*^9, 
   3.495100649992*^9}, {3.4987235265018*^9, 3.4987235939094*^9}, {
   3.4987236420666*^9, 3.4987236530646*^9}, {3.4987237305341997`*^9, 
   3.4987237396914*^9}, {3.498733136159*^9, 3.4987332972446003`*^9}, {
   3.4987364783094*^9, 3.4987364860626*^9}, {3.4987366201134*^9, 
   3.4987366236078*^9}, {3.4987367272386*^9, 3.4987367464890003`*^9}, {
   3.4987369428462*^9, 3.4987369670886*^9}, {3.4987370134518003`*^9, 
   3.4987370259941998`*^9}, {3.4987370944002*^9, 3.4987371027618*^9}, {
   3.4987371921029997`*^9, 3.498737193663*^9}, {3.4987372660938*^9, 
   3.4987372935498*^9}, {3.4987373290554*^9, 3.4987377176202*^9}, {
   3.4987377520182*^9, 3.4987379139462*^9}, {3.4987382030216*^9, 
   3.4987382667078*^9}, {3.4987888391818*^9, 3.4987888608346*^9}, {
   3.4988785131146*^9, 3.4988785160162*^9}, {3.5007170967096*^9, 
   3.5007170999076*^9}, 3.5007182237316*^9, {3.5007182772864*^9, 
   3.5007182987832003`*^9}, {3.5009573226744003`*^9, 3.5009573940444*^9}, 
   3.5009574358710003`*^9, 3.5009604278482*^9, {3.5009897246173353`*^9, 
   3.5009898480289354`*^9}, {3.5009901464413357`*^9, 
   3.5009901475333357`*^9}, {3.5009901801997356`*^9, 3.500990274096135*^9}, {
   3.5010475253292*^9, 3.5010475852332*^9}, {3.5010605722018003`*^9, 
   3.5010606739762*^9}, {3.5010607202146*^9, 3.5010607323358*^9}, {
   3.5010607920526*^9, 3.501061118467*^9}, {3.5010612022078*^9, 
   3.5010612277138*^9}, {3.5010616467766*^9, 3.5010617938534*^9}, {
   3.5010618406222*^9, 3.5010619950778*^9}, {3.5010621500638*^9, 
   3.5010622514014*^9}, {3.5010625292218*^9, 3.5010625409374*^9}, {
   3.5010626043046*^9, 3.5010626313862*^9}, {3.5010626787166*^9, 
   3.5010626790754004`*^9}, {3.501074457561*^9, 3.5010744671082*^9}, 
   3.5010763029458*^9, {3.5032210899309998`*^9, 3.5032212413900003`*^9}, {
   3.557658203404973*^9, 3.557658219644601*^9}, {3.5576584433801947`*^9, 
   3.557658496030287*^9}, {3.5576585501779823`*^9, 3.5576586046064777`*^9}, {
   3.557658648910555*^9, 3.557658754600741*^9}, {3.557658963945511*^9, 
   3.5576589782507353`*^9}, {3.557659009949991*^9, 3.5576591437514267`*^9}, {
   3.557659182221094*^9, 3.5576592187719584`*^9}, 3.557659413865901*^9, {
   3.557659921100792*^9, 3.5576599556392527`*^9}, {3.557660706920972*^9, 
   3.5576607248454037`*^9}, {3.557661209085854*^9, 3.557661209413454*^9}, {
   3.5577526651911488`*^9, 3.5577526932087984`*^9}, {3.5577527272480583`*^9, 
   3.557752747122493*^9}, {3.5577528374934516`*^9, 3.557752838523053*^9}, {
   3.557752881204728*^9, 3.557752891313546*^9}, {3.557752938612829*^9, 
   3.5577529469120436`*^9}, {3.557753060714244*^9, 3.557753062633047*^9}, {
   3.5577536609544907`*^9, 3.5577536637936954`*^9}, {3.5577537824631042`*^9, 
   3.557753810184353*^9}, {3.557753841025607*^9, 3.5577540648392*^9}, 
   3.5577541920574236`*^9, {3.5577547033327217`*^9, 3.557754716967146*^9}, {
   3.5577547716296415`*^9, 3.557754802112095*^9}, {3.5577549509363565`*^9, 
   3.5577549771444025`*^9}, 3.5577551382302856`*^9, {3.55775527184452*^9, 
   3.557755272858522*^9}, {3.557755881555991*^9, 3.557755886548*^9}, {
   3.557756158316077*^9, 3.557756231885806*^9}, {3.5577572408487787`*^9, 
   3.557757248835993*^9}, {3.5577572834368534`*^9, 3.5577575888229895`*^9}, {
   3.5577578129641833`*^9, 3.557757862837471*^9}, {3.557758025514557*^9, 
   3.557758079272251*^9}, 3.557810586960072*^9, {3.5578240262005973`*^9, 
   3.5578240345360737`*^9}, {3.557824091429328*^9, 3.5578241008156557`*^9}, {
   3.557831525255726*^9, 3.5578315319793377`*^9}, 3.5578315716190076`*^9, {
   3.557831606079468*^9, 3.557831629432709*^9}, {3.5578316663267736`*^9, 
   3.5578317569473333`*^9}, {3.5578322144181366`*^9, 3.557832218084143*^9}, {
   3.557836356693412*^9, 3.557836473771618*^9}, {3.5578365201660995`*^9, 
   3.5578365974018345`*^9}, {3.5578366426731143`*^9, 3.557836658865943*^9}, {
   3.557836691017599*^9, 3.5578367924957776`*^9}, {3.5578368305442443`*^9, 
   3.557836888279946*^9}, {3.5578369382156334`*^9, 3.5578370776642785`*^9}, {
   3.5578383536061196`*^9, 3.5578383735117545`*^9}, {3.5578385892445335`*^9, 
   3.5578385978869486`*^9}, {3.5578386713006773`*^9, 3.557838700113928*^9}, {
   3.5578387451200075`*^9, 3.5578387467892103`*^9}, {3.5578388951454706`*^9, 
   3.5578389248635225`*^9}, {3.5578389679351983`*^9, 3.557838983535226*^9}, {
   3.5578390227692947`*^9, 3.557839023143696*^9}, {3.557839097696226*^9, 
   3.5578391125162525`*^9}, {3.5578391553539276`*^9, 3.557839199892006*^9}, {
   3.55783924184048*^9, 3.557839294490572*^9}, {3.5578393285922318`*^9, 
   3.557839398683155*^9}, {3.557839430522811*^9, 3.557839470162481*^9}, {
   3.5578395370865984`*^9, 3.5578395446994114`*^9}, {3.5578396068499207`*^9, 
   3.5578396118575296`*^9}, 3.5578943518105097`*^9, {3.557894388361374*^9, 
   3.5578944029629993`*^9}, {3.5578944607611012`*^9, 
   3.5578944989499683`*^9}, {3.5578945393696394`*^9, 3.557894561537278*^9}, {
   3.5578946028617506`*^9, 3.5578946188985786`*^9}, {3.557894650894235*^9, 
   3.5578947812636642`*^9}, {3.55789481884413*^9, 3.5578948191249304`*^9}, {
   3.5578949768100076`*^9, 3.5578949836272197`*^9}, {3.5578967386805477`*^9, 
   3.55789678549623*^9}, {3.5578968804691963`*^9, 3.557896888643611*^9}, {
   3.557897022491846*^9, 3.5578970341450663`*^9}, {3.557897620940097*^9, 
   3.55789765120415*^9}, {3.5579218072271147`*^9, 3.5579218263059483`*^9}, {
   3.557922095312821*^9, 3.557922116965659*^9}, {3.557922178086566*^9, 
   3.557922188616585*^9}, {3.5579223258812256`*^9, 3.557922327066828*^9}, {
   3.5579224596046605`*^9, 3.557922461804264*^9}, 3.5579805928465395`*^9, {
   3.5579815200581703`*^9, 3.557981541711009*^9}, 3.557985544779242*^9, {
   3.5579863164793987`*^9, 3.5579863339514294`*^9}, {3.557986523210962*^9, 
   3.557986568841042*^9}, 3.5579866122559185`*^9, 3.557986993536188*^9, {
   3.5579871244716187`*^9, 3.5579871290580263`*^9}, 3.557987173486905*^9, 
   3.5579872166989803`*^9, {3.5599618621582537`*^9, 3.5599618642486577`*^9}, {
   3.559961969720443*^9, 3.5599619894700775`*^9}, 3.559963611089726*^9, {
   3.5601298891258235`*^9, 3.560129889422224*^9}, {3.560132445157113*^9, 
   3.5601324458591146`*^9}, {3.561978472080926*^9, 3.561978472392926*^9}, {
   3.6297802564412937`*^9, 3.6297802957377625`*^9}, {3.62978033369263*^9, 
   3.629780429741998*^9}, {3.6297805790030603`*^9, 3.6297809429048996`*^9}, {
   3.629780987957779*^9, 3.629781197575347*^9}, {3.629781240397422*^9, 
   3.629781337663593*^9}, {3.6297813946972933`*^9, 3.6297814529165955`*^9}, {
   3.6297814952550697`*^9, 3.629781527578326*^9}, {3.62978162025529*^9, 
   3.629781647633338*^9}, {3.629781678833393*^9, 3.629781763120341*^9}, 
   3.6297818028224106`*^9, {3.6297818432108817`*^9, 3.629781872570133*^9}, {
   3.629782355765382*^9, 3.629782427603508*^9}, {3.6297824692243814`*^9, 
   3.629782674863942*^9}, {3.629782707218399*^9, 3.6297829295343895`*^9}, {
   3.629783005631323*^9, 3.6297830574702144`*^9}, {3.6297831098551064`*^9, 
   3.629783142786764*^9}, {3.629783433711675*^9, 3.629783442619291*^9}, {
   3.6297834942397814`*^9, 3.6297835175930223`*^9}, 3.6297835794939313`*^9, {
   3.6297836160291953`*^9, 3.6297837668970604`*^9}, {3.6297842042438283`*^9, 
   3.6297842697483435`*^9}, {3.6297843514456873`*^9, 3.629784370742921*^9}, {
   3.629784443829049*^9, 3.6297844678842916`*^9}, {3.6297845252611923`*^9, 
   3.629784525588793*^9}, {3.6297846136821475`*^9, 3.629784629235375*^9}, {
   3.629784814797701*^9, 3.629784927648299*^9}, {3.629785259960083*^9, 
   3.6297852602096834`*^9}, {3.6297858780175686`*^9, 3.629785917282837*^9}, {
   3.629786048057867*^9, 3.629786048681868*^9}, 3.6297863278755584`*^9, {
   3.6297867047133856`*^9, 3.629786748533863*^9}, {3.6297867791567163`*^9, 
   3.6297868491540394`*^9}, {3.6297875320748396`*^9, 3.629787569795706*^9}, {
   3.6297876247234025`*^9, 3.6297877281983843`*^9}, {3.6297877681812544`*^9, 
   3.629787774015665*^9}, {3.629787831408166*^9, 3.6297878355265727`*^9}, {
   3.6297878775686464`*^9, 3.6297878861174617`*^9}, {3.6297879185343184`*^9, 
   3.629787919064719*^9}, {3.6297880043032694`*^9, 3.62978800470887*^9}, 
   3.6297880488257475`*^9, {3.6297882100052304`*^9, 3.6297882174776435`*^9}, {
   3.6297882697533355`*^9, 3.6297882948381796`*^9}, {3.6297883467550707`*^9, 
   3.6297883991087627`*^9}, {3.6297887361785545`*^9, 3.629788783961438*^9}, 
   3.629788825395111*^9, {3.629789006152629*^9, 3.6297890321266747`*^9}, {
   3.6297891133248167`*^9, 3.629789145336073*^9}, {3.6297891926821566`*^9, 
   3.629789194257759*^9}, {3.629789255316266*^9, 3.6297892556282673`*^9}, {
   3.629869102295367*^9, 3.629869160124668*^9}, {3.6298691942887287`*^9, 
   3.6298696149902673`*^9}, {3.6298696993864155`*^9, 3.62986975897852*^9}, {
   3.6298698387726603`*^9, 3.629869912030389*^9}, {3.6298700722270703`*^9, 
   3.629870234560955*^9}, {3.629870580429163*^9, 3.629870630458451*^9}, {
   3.630556081081209*^9, 3.630556104902451*^9}, {3.6305562643503313`*^9, 
   3.6305562763935523`*^9}, {3.6305563415080667`*^9, 3.630556480956712*^9}, {
   3.630556692851884*^9, 3.630556695347888*^9}, {3.630556730042349*^9, 
   3.630556914528273*^9}, {3.6305653725974936`*^9, 3.6305656807121167`*^9}, {
   3.630565758760581*^9, 3.6305657739024467`*^9}, {3.630565858170267*^9, 
   3.63056596644846*^9}, {3.6305661502619734`*^9, 3.6305661523230915`*^9}, {
   3.6305662653385553`*^9, 3.630566370352562*^9}, {3.6305667786019125`*^9, 
   3.630566790535595*^9}, {3.6305668214773645`*^9, 3.630567044691132*^9}, {
   3.6305670772499943`*^9, 3.6305670783710585`*^9}, 3.630567272031135*^9, {
   3.630567303902958*^9, 3.630567409875019*^9}, {3.630568671196477*^9, 
   3.6305687195002403`*^9}, {3.6305687542132254`*^9, 3.630568758623478*^9}, {
   3.630568855671028*^9, 3.630568859250233*^9}, {3.630569706514694*^9, 
   3.630569775526641*^9}, 3.630569982346471*^9, {3.6305701679130845`*^9, 
   3.630570205199217*^9}, {3.6305703751399374`*^9, 3.630570526177576*^9}, {
   3.630587657039589*^9, 3.630587688367381*^9}, {3.6305880733027773`*^9, 
   3.6305883365376396`*^9}, {3.6305886689118233`*^9, 3.6305886717978287`*^9}, 
   3.6305889776831656`*^9, {3.6305890389444733`*^9, 3.6305890437180815`*^9}, {
   3.630589093248169*^9, 3.6305891296430326`*^9}, 3.630589181700324*^9, {
   3.6305892509956455`*^9, 3.6305892594820604`*^9}, {3.630589318949365*^9, 
   3.6305893334729905`*^9}, {3.630589630294712*^9, 3.6305896376267247`*^9}, {
   3.630589683288005*^9, 3.630589684988408*^9}, {3.630597310538067*^9, 
   3.630597340080757*^9}, {3.630597391446695*^9, 3.630597400596218*^9}, {
   3.6305974350611897`*^9, 3.6305974605306463`*^9}, {3.630633997622449*^9, 
   3.630634003125764*^9}, {3.630659322217756*^9, 3.63065932438616*^9}, {
   3.6306611578252783`*^9, 3.6306611625988865`*^9}, {3.6306612541554475`*^9, 
   3.630661257587454*^9}, {3.6306613001287284`*^9, 3.6306613026715326`*^9}, {
   3.6306613920752897`*^9, 3.6306613949768953`*^9}, {3.6306706377509866`*^9, 
   3.630670654957817*^9}, {3.6306749981919994`*^9, 3.630675005793434*^9}, {
   3.6306751229631357`*^9, 3.630675150017683*^9}, {3.6306752035287437`*^9, 
   3.6306752096180925`*^9}, {3.630675315921172*^9, 3.6306753201514144`*^9}, {
   3.6306757793287754`*^9, 3.6306757796257925`*^9}, {3.630675814406262*^9, 
   3.6306758147026625`*^9}, {3.6306760107574763`*^9, 
   3.6306760154417443`*^9}, {3.6306789722320743`*^9, 
   3.6306789870309205`*^9}, {3.6306790257051325`*^9, 3.630679028076268*^9}, {
   3.6306800259177256`*^9, 3.6306800406129513`*^9}, {3.6306801239326982`*^9, 
   3.6306801300167084`*^9}, {3.630680769261832*^9, 3.6306807806186523`*^9}, {
   3.630681157468514*^9, 3.6306811577649145`*^9}, {3.6306812744219193`*^9, 
   3.63068127471832*^9}, {3.6306817187418995`*^9, 3.6306817919060287`*^9}, {
   3.630681879188182*^9, 3.6306819111526375`*^9}, {3.6306821191790032`*^9, 
   3.6306821283050194`*^9}, {3.630720543651497*^9, 3.6307205534300566`*^9}, {
   3.630721035525631*^9, 3.630721092774905*^9}, {3.6307212510439577`*^9, 
   3.6307213064777765`*^9}, {3.6307477437169704`*^9, 
   3.6307478284095197`*^9}, {3.6307478614971776`*^9, 
   3.6307478785948076`*^9}, {3.6307479884814005`*^9, 3.630748002880226*^9}, {
   3.630748045624301*^9, 3.630748063876333*^9}, {3.630748111596817*^9, 
   3.6307481498324842`*^9}, {3.6307489182430334`*^9, 
   3.6307489447786803`*^9}, {3.630749037427243*^9, 3.6307490443848553`*^9}, {
   3.6307491041485605`*^9, 3.6307491384218206`*^9}, {3.6307491914151134`*^9, 
   3.630749196890723*^9}, {3.6307492445800066`*^9, 3.6307493439989815`*^9}, {
   3.630749396212273*^9, 3.6307494766304145`*^9}, {3.6307495333989143`*^9, 
   3.6307495547241516`*^9}, {3.6307496525831237`*^9, 3.630749669571553*^9}, {
   3.630750220602922*^9, 3.6307502881822405`*^9}, {3.6307510631916018`*^9, 
   3.630751068292811*^9}, {3.6307511226589065`*^9, 3.630751137962533*^9}, {
   3.6307512555243397`*^9, 3.630751282777588*^9}, {3.630752266971757*^9, 
   3.630752414599744*^9}, {3.630752446407563*^9, 3.630752457388191*^9}, {
   3.6307589380050273`*^9, 3.6307590266300964`*^9}, {3.6307591666721067`*^9, 
   3.63075923229886*^9}, 3.630760288282259*^9, {3.6307603547370596`*^9, 
   3.630760557414652*^9}, {3.630760654134184*^9, 3.63076065510824*^9}, {
   3.6307606911683025`*^9, 3.6307606919283457`*^9}, {3.6307607642334814`*^9, 
   3.6307607648645177`*^9}, {3.630761455000991*^9, 3.6307614616743727`*^9}, {
   3.630761507825012*^9, 3.630761605776615*^9}, {3.630761652999316*^9, 
   3.630761695865768*^9}, {3.630761771278081*^9, 3.6307617792215357`*^9}, 
   3.6307629478424797`*^9, {3.632205207880766*^9, 3.6322052561155243`*^9}, {
   3.6322052892474194`*^9, 3.6322052915745525`*^9}, 3.6322053746993074`*^9, {
   3.6322062705415463`*^9, 3.6322062726016645`*^9}, {3.6322063396935015`*^9, 
   3.63220636484194*^9}, {3.6322064410612993`*^9, 3.6322064491667633`*^9}, {
   3.632206580308264*^9, 3.6322066373275256`*^9}, {3.6322066736436024`*^9, 
   3.6322067467737856`*^9}, {3.632206782260815*^9, 3.6322071351279984`*^9}, 
   3.6322071989226465`*^9, {3.632207270393735*^9, 3.6322073359894867`*^9}, {
   3.6322073997741346`*^9, 3.6322074126708727`*^9}, {3.632207491777397*^9, 
   3.632207682289294*^9}, {3.632207809621577*^9, 3.632207827973626*^9}, {
   3.6322079043859973`*^9, 3.6322079279443445`*^9}, {3.6322080916397076`*^9, 
   3.6322081666649985`*^9}, 3.634905258940913*^9, {3.634905370524296*^9, 
   3.6349054089004903`*^9}, {3.6349054472556844`*^9, 3.63490544787272*^9}, {
   3.634905483492757*^9, 3.6349055164646425`*^9}, {3.634905574352954*^9, 
   3.634905628121029*^9}, {3.6349057012822137`*^9, 3.6349057207913294`*^9}, {
   3.6349061371061416`*^9, 3.634906354438572*^9}, {3.6349063890455513`*^9, 
   3.6349064369332905`*^9}, {3.634906537696054*^9, 3.634906601859724*^9}, 
   3.634906706128688*^9, {3.6349069249442034`*^9, 3.6349069328326545`*^9}, {
   3.6349070151973653`*^9, 3.6349070242298822`*^9}, {3.6349070817921743`*^9, 
   3.6349070822111983`*^9}, {3.634907723288866*^9, 3.634907739005765*^9}, {
   3.6349079580732946`*^9, 3.6349079868219395`*^9}, {3.634908200284148*^9, 
   3.634908315195721*^9}, {3.6349083774582825`*^9, 3.6349084027997313`*^9}, {
   3.63490844507615*^9, 3.634908448843365*^9}, {3.634914956333157*^9, 
   3.634915020054802*^9}, {3.634915050572547*^9, 3.6349150956171236`*^9}, {
   3.6349539785771523`*^9, 3.634953978975175*^9}, {3.6349540728785458`*^9, 
   3.6349541681829967`*^9}, {3.634954211263461*^9, 3.6349542495746527`*^9}, {
   3.6349543251259737`*^9, 3.634954355882733*^9}, {3.6349543892536416`*^9, 
   3.6349544742835045`*^9}, {3.634954547519694*^9, 3.6349545640246377`*^9}, {
   3.6349547051657104`*^9, 3.6349547107930326`*^9}, {3.634954745355009*^9, 
   3.634954752101395*^9}, {3.6349547948858423`*^9, 3.6349548053894434`*^9}, {
   3.634954904907135*^9, 3.6349549451084347`*^9}, {3.634955219605135*^9, 
   3.6349552640926795`*^9}, {3.634955320189888*^9, 3.634955348763522*^9}, {
   3.634955386393675*^9, 3.6349555039273973`*^9}, {3.6349557669644423`*^9, 
   3.6349557672004557`*^9}, {3.634955894841756*^9, 3.634955902578199*^9}, {
   3.6349559513739896`*^9, 3.6349560216320086`*^9}, {3.634956120144643*^9, 
   3.634956128996149*^9}, {3.6349561700724983`*^9, 3.6349561978900895`*^9}, {
   3.6349562480719595`*^9, 3.634956254326318*^9}, {3.634956331684742*^9, 
   3.6349563460575643`*^9}, {3.634956379242462*^9, 3.63495642676418*^9}, 
   3.6349564696636343`*^9, {3.6351524116477795`*^9, 3.6351524153379908`*^9}, {
   3.6352134400282927`*^9, 3.635213442148414*^9}, {3.6352134745862694`*^9, 
   3.635213495869487*^9}, {3.6352135383409157`*^9, 3.6352137157160616`*^9}, {
   3.6352137493569856`*^9, 3.635213764522853*^9}, {3.635214215036621*^9, 
   3.635214227593339*^9}, {3.635214407257615*^9, 3.63521441713218*^9}, {
   3.635215297101512*^9, 3.635215303964904*^9}, {3.6352154111120324`*^9, 
   3.635215431504199*^9}, {3.635216346055508*^9, 3.635216494371991*^9}, {
   3.635216631050809*^9, 3.6352166603244834`*^9}, {3.635216763034358*^9, 
   3.635216764164423*^9}, {3.6352168771938877`*^9, 3.635216888828553*^9}, 
   3.6352169832479534`*^9, 3.635217037668066*^9, {3.6352172024924936`*^9, 
   3.6352172054526625`*^9}, {3.635217344025589*^9, 3.635217346898753*^9}, 
   3.6352173863770113`*^9, {3.635217519639633*^9, 3.6352175507014103`*^9}, 
   3.635217615445113*^9, {3.6352178715087595`*^9, 3.635217880460271*^9}, {
   3.6352185912849283`*^9, 3.635218598444338*^9}, {3.6352186995721216`*^9, 
   3.635218714955002*^9}, {3.6352189761749425`*^9, 3.6352189789341*^9}, {
   3.6352195060322485`*^9, 3.635219509972474*^9}, 3.6352195673477554`*^9, 
   3.6352195994635925`*^9, {3.6352197336482677`*^9, 3.635219737452485*^9}, {
   3.6352197706093817`*^9, 3.6352197723214793`*^9}, {3.635219941784172*^9, 
   3.6352199485115566`*^9}, {3.6352200714185867`*^9, 
   3.6352200854323883`*^9}, {3.6352202085694313`*^9, 3.635220235849992*^9}, {
   3.6352202816336107`*^9, 3.6352203110962954`*^9}, {3.6352204980449886`*^9, 
   3.6352205276526823`*^9}, {3.6352253191447396`*^9, 
   3.6352253299913597`*^9}, {3.6352253611111403`*^9, 
   3.6352253637572913`*^9}, {3.635225409322898*^9, 3.6352255965196047`*^9}, {
   3.6352260914249115`*^9, 3.6352261698393965`*^9}, {3.63522638233055*^9, 
   3.6352264188036366`*^9}, {3.635227493469104*^9, 3.635227556935734*^9}, {
   3.6352276745764627`*^9, 3.635227730116639*^9}, {3.6352287979917183`*^9, 
   3.6352288587651944`*^9}, {3.635228894237223*^9, 3.635228948324317*^9}, {
   3.635229365252164*^9, 3.6352293902275925`*^9}, {3.63522947690555*^9, 
   3.6352294807837715`*^9}, {3.6352492831123204`*^9, 3.6352492983621926`*^9}, 
   3.6356569054520617`*^9, {3.6363778004499054`*^9, 3.636377802787039*^9}, {
   3.6363778414932528`*^9, 3.6363778525308843`*^9}, {3.636384436335312*^9, 
   3.6363846409950175`*^9}, {3.636384971250907*^9, 3.6363849738080535`*^9}, {
   3.6363850170465264`*^9, 3.636385030729309*^9}, {3.6363851286779118`*^9, 
   3.636385138359465*^9}, {3.6363851699712734`*^9, 3.636385223111313*^9}, {
   3.656076172452749*^9, 3.656076182171566*^9}, {3.6560765578514256`*^9, 
   3.656076619019133*^9}, 3.6560772545486493`*^9, {3.6630719749029694`*^9, 
   3.6630719878027077`*^9}, {3.6630720702554235`*^9, 
   3.6630720807290225`*^9}, {3.6630721155740156`*^9, 
   3.6630721713712068`*^9}, {3.663072270834896*^9, 3.6630722882218904`*^9}, 
   3.6630724099968557`*^9, {3.685234767958906*^9, 3.685234768480936*^9}, {
   3.685252204033695*^9, 3.6852522340537376`*^9}, {3.6852522757137957`*^9, 
   3.6852523115138454`*^9}, {3.68525376314359*^9, 3.6852537725041256`*^9}, {
   3.6852539763277836`*^9, 3.6852539861693463`*^9}, 3.6852540682470407`*^9, 
   3.6852541660656357`*^9, {3.6852604801645336`*^9, 3.6852605060345697`*^9}, {
   3.6852605373446136`*^9, 3.6852605977846985`*^9}, 3.685260655254779*^9, {
   3.6853280002218475`*^9, 3.685328019561875*^9}, 3.685328064721938*^9, {
   3.6853280953119807`*^9, 3.6853282636022167`*^9}, {3.685328356242346*^9, 
   3.685328598671985*^9}, {3.6853286682069626`*^9, 3.6853287982524004`*^9}, {
   3.6853288753368096`*^9, 3.6853289367033195`*^9}, {3.685328968274125*^9, 
   3.685328978713722*^9}, {3.685329033941881*^9, 3.685329044950511*^9}, {
   3.685329173522865*^9, 3.6853294420842257`*^9}, {3.6853296024223967`*^9, 
   3.6853296124319687`*^9}, {3.6853297221712456`*^9, 3.685329733349885*^9}, {
   3.6853298076291337`*^9, 3.6853298739599276`*^9}, {3.685330038474337*^9, 
   3.685330051652091*^9}, {3.6853311309428225`*^9, 3.685331168378964*^9}, {
   3.685340142134763*^9, 3.685340180544817*^9}, {3.6853583292043543`*^9, 
   3.685358334834362*^9}, {3.685358366084406*^9, 3.685358366954407*^9}, {
   3.685358408404465*^9, 3.685358518294619*^9}, 3.685358620174762*^9, 
   3.6853586578748145`*^9, {3.6853588750151186`*^9, 3.6853588857151337`*^9}, {
   3.6853589302051954`*^9, 3.685358938995208*^9}, {3.685359014715314*^9, 
   3.6853590296653347`*^9}, 3.685359148315501*^9, 3.6853598281764526`*^9, {
   3.6853683109000263`*^9, 3.685368382250126*^9}, {3.685368420160179*^9, 
   3.6853684704302497`*^9}, {3.6853685194503183`*^9, 3.685368742860631*^9}, {
   3.685369008901004*^9, 3.68536902061102*^9}, {3.6853690791611023`*^9, 
   3.685369132301176*^9}, {3.6853693219914417`*^9, 3.6853693304114532`*^9}, 
   3.6853696089118433`*^9, {3.6858758911429157`*^9, 3.685875951793*^9}, {
   3.6859484099082212`*^9, 3.6859484970032024`*^9}, {3.686052829875022*^9, 
   3.686052906242383*^9}, {3.6860535326822133`*^9, 3.686053598029951*^9}, {
   3.68605365168902*^9, 3.6860541446091995`*^9}, {3.6860541846064873`*^9, 
   3.68605440393201*^9}, {3.686054713802734*^9, 3.6860547858298535`*^9}, {
   3.6860548280202665`*^9, 3.686054837219793*^9}, {3.686054874127904*^9, 
   3.686054892139934*^9}, {3.686055136014883*^9, 3.6860551460584574`*^9}, {
   3.686055211281188*^9, 3.6860552301962633`*^9}, {3.6860553465409174`*^9, 
   3.6860553998749685`*^9}, {3.6860556017188663`*^9, 
   3.6860556050188704`*^9}, {3.6862923512707715`*^9, 3.686292363600789*^9}, {
   3.686292409650853*^9, 3.6862924109708548`*^9}, {3.6862924536109147`*^9, 
   3.6862924596309233`*^9}, {3.686292542221039*^9, 3.6862925430110397`*^9}, {
   3.686292988803664*^9, 3.686293001033681*^9}, {3.6866504529025555`*^9, 
   3.686650526682659*^9}, {3.686650671852862*^9, 3.6866507242929354`*^9}, {
   3.6866507657529936`*^9, 3.6866507887630253`*^9}, {3.6866508208230705`*^9, 
   3.6866509100531955`*^9}, {3.6866509593932643`*^9, 3.686650971113281*^9}, {
   3.686651007793332*^9, 3.6866511595335445`*^9}, {3.686651223513634*^9, 
   3.686651234033649*^9}, {3.686651304763748*^9, 3.6866513363837924`*^9}, {
   3.6866514102038956`*^9, 3.686651429943923*^9}, {3.686652993837468*^9, 
   3.6866530046274834`*^9}, {3.686804398511652*^9, 3.6868044081516657`*^9}, {
   3.6868046315619783`*^9, 3.686804631801979*^9}, {3.686804685872054*^9, 
   3.686804707092084*^9}, {3.6868047382021275`*^9, 3.686804767812169*^9}, {
   3.686804824012248*^9, 3.6868048404922705`*^9}, {3.686804942142413*^9, 
   3.6868049633424425`*^9}, {3.6868050765526013`*^9, 3.686805101092636*^9}, {
   3.6868051463526993`*^9, 3.6868052234228067`*^9}, {3.686805307602925*^9, 
   3.686805311682931*^9}, {3.68680577547358*^9, 3.686805788923599*^9}, {
   3.686821702197342*^9, 3.6868217282873783`*^9}, {3.6868225192884855`*^9, 
   3.686822538368512*^9}, {3.6868226306886415`*^9, 3.6868226683086944`*^9}, {
   3.6868227318887835`*^9, 3.6868227627088265`*^9}, {3.686822801638881*^9, 
   3.6868230490692277`*^9}, {3.686823122979331*^9, 3.6868231833294153`*^9}, {
   3.6868232450595016`*^9, 3.6868233753996844`*^9}, {3.6868234153897405`*^9, 
   3.686823451379791*^9}, {3.6868236736101017`*^9, 3.6868236786601086`*^9}, {
   3.6868237164601617`*^9, 3.68682375072021*^9}, {3.68682389396041*^9, 
   3.68682390087042*^9}, {3.686823940790476*^9, 3.6868239416904774`*^9}, {
   3.6868239808805323`*^9, 3.6868239872905407`*^9}, {3.686824051540631*^9, 
   3.6868240519006314`*^9}, {3.686824360861064*^9, 3.6868243761510854`*^9}, {
   3.6868245440213203`*^9, 3.686824577221367*^9}, {3.686824685841519*^9, 
   3.6868246979115357`*^9}, 3.6868248012716804`*^9, 3.6868253582724605`*^9, {
   3.6868255183026843`*^9, 3.686825518932685*^9}, {3.6868264466639843`*^9, 
   3.6868264497139883`*^9}, {3.6868267792744493`*^9, 
   3.6868268152945004`*^9}, {3.686827100164899*^9, 3.6868271210549283`*^9}, 
   3.686827162004986*^9, {3.6868272414950967`*^9, 3.686827327475217*^9}, {
   3.686827953126093*^9, 3.686827976506126*^9}, {3.686829128577739*^9, 
   3.686829138957753*^9}, 3.6868292410978966`*^9, {3.6868292768379464`*^9, 
   3.686829282727955*^9}, {3.6868293820380936`*^9, 3.686829418138144*^9}, {
   3.686829846748744*^9, 3.686829848298746*^9}, {3.6868313063207874`*^9, 
   3.686831307180789*^9}, {3.6868331276633377`*^9, 3.68683328653356*^9}, {
   3.6868394697195063`*^9, 3.6868394933895392`*^9}, 3.686839530999592*^9, {
   3.686839582829664*^9, 3.68683963686974*^9}, {3.6868397551199055`*^9, 
   3.68683979365996*^9}, {3.6868398344600167`*^9, 3.686839866200061*^9}, {
   3.687092084401948*^9, 3.687092117031994*^9}, {3.6870922598621936`*^9, 
   3.6870922645422*^9}, {3.6870962086478376`*^9, 3.6870962658779182`*^9}, 
   3.687096444838168*^9, {3.687096500978247*^9, 3.687096501638248*^9}, {
   3.6870965809883595`*^9, 3.687096592708376*^9}, 3.687096837948719*^9, {
   3.68709688890879*^9, 3.687096985798926*^9}, {3.6870971015990877`*^9, 
   3.6870972179192505`*^9}, {3.6870972618993125`*^9, 3.687097305639374*^9}, {
   3.6870973356794157`*^9, 3.6870975186496716`*^9}, {3.6870975796097574`*^9, 
   3.6870975953197794`*^9}, {3.6870976531898603`*^9, 3.6870976848899045`*^9}, 
   3.6870977782500353`*^9, {3.687413757687042*^9, 3.6874137834070783`*^9}, {
   3.6874140542074575`*^9, 3.687414094417514*^9}, {3.6874143478878684`*^9, 
   3.687414485538061*^9}, {3.6874146116082373`*^9, 3.68741464894829*^9}, {
   3.6874147451084247`*^9, 3.687414766118454*^9}, 3.6874149094486547`*^9, {
   3.6874150416688395`*^9, 3.6874150634888706`*^9}, {3.6874152437091227`*^9, 
   3.687415268869158*^9}, 3.6874153442892637`*^9, {3.687415449879411*^9, 
   3.687415469659439*^9}, 3.687415529739523*^9, 3.687415564789572*^9, 
   3.687415645529685*^9, {3.6874168016913037`*^9, 3.687416803441306*^9}, {
   3.687421022677213*^9, 3.6874212686075573`*^9}, {3.68742948209425*^9, 
   3.6874294906842623`*^9}, {3.687844340668378*^9, 3.6878443698084188`*^9}, {
   3.6886534778571014`*^9, 3.6886534911571198`*^9}, {3.688906380162199*^9, 
   3.6889064680223217`*^9}, {3.688906514222396*^9, 3.6889065193925257`*^9}, {
   3.688908192623024*^9, 3.6889082006430354`*^9}, {3.688908261823121*^9, 
   3.688908271653135*^9}, {3.6889083776232834`*^9, 3.6889083922733035`*^9}, {
   3.688908466073407*^9, 3.6889084993734536`*^9}, 3.688908533623502*^9, {
   3.688908616683618*^9, 3.6889086271336327`*^9}, {3.6889086885637183`*^9, 
   3.6889087063437433`*^9}, {3.6889091647443852`*^9, 
   3.6889092012544365`*^9}, {3.6889093019045773`*^9, 3.6889093406746316`*^9}, 
   3.6889101071957045`*^9, {3.689905940063133*^9, 3.689905972983179*^9}, {
   3.692530981927737*^9, 3.6925310416778207`*^9}, {3.692531099797902*^9, 
   3.6925311384779563`*^9}, {3.692531192258032*^9, 3.692531244668105*^9}, {
   3.6925312919881716`*^9, 3.692531425418358*^9}, {3.6925315270885005`*^9, 
   3.692531643928664*^9}, {3.692535489534048*^9, 3.6925356485142703`*^9}, {
   3.692535753564418*^9, 3.6925357992544813`*^9}, {3.6925358831745987`*^9, 
   3.692535899604622*^9}, {3.692536042584822*^9, 3.692536159384986*^9}, {
   3.6925366121156197`*^9, 3.6925366207256317`*^9}, {3.6925367265057793`*^9, 
   3.69253672683578*^9}, {3.6925368590559654`*^9, 3.6925368636559715`*^9}, {
   3.6925370880062857`*^9, 3.692537177856412*^9}, {3.692537322456614*^9, 
   3.6925373869767046`*^9}, {3.6925390913352747`*^9, 
   3.6925390925252767`*^9}, {3.692539644430175*^9, 3.6925396711502123`*^9}, {
   3.692539727510291*^9, 3.692539730440295*^9}, {3.69253993367058*^9, 
   3.692539963780622*^9}, {3.6925400018406754`*^9, 3.692540003630678*^9}, {
   3.6925401743409166`*^9, 3.6925401747509174`*^9}, {3.692540399111232*^9, 
   3.692540407981244*^9}, {3.69254047647134*^9, 3.6925404886113567`*^9}, {
   3.6925406039715185`*^9, 3.69254060531152*^9}, {3.6925414948727655`*^9, 
   3.6925414953427663`*^9}, {3.6925415478528395`*^9, 3.692541613062931*^9}, 
   3.692541649332982*^9, {3.692541727633092*^9, 3.6925418840133104`*^9}, {
   3.692541924473367*^9, 3.692542041693531*^9}, {3.6925421488836813`*^9, 
   3.6925422549438295`*^9}, {3.6925422976938896`*^9, 3.692542521444203*^9}, {
   3.6925426221843443`*^9, 3.6925426357343626`*^9}, 3.692542739374508*^9, 
   3.692599799510878*^9, {3.692599834884901*^9, 3.6925998954663663`*^9}, {
   3.692599925635092*^9, 3.6926000095928946`*^9}, {3.692600108929576*^9, 
   3.6926001456386757`*^9}, {3.6926001874800687`*^9, 3.692600454421337*^9}, {
   3.692600503149027*^9, 3.6926006000391626`*^9}, {3.692600680251275*^9, 
   3.6926006814012766`*^9}, {3.6926009000215826`*^9, 3.6926009410816402`*^9}, 
   3.692601280532116*^9, {3