(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 135977, 2918] NotebookOptionsPosition[ 134549, 2865] NotebookOutlinePosition[ 134907, 2881] CellTagsIndexPosition[ 134864, 2878] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Ex 1 : Helix", "Section", CellChangeTimes->{{3.462702987826441*^9, 3.462702992392707*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{ "L", ",", "x", ",", "y", ",", "z", ",", "s", ",", "xt", ",", "yt", ",", "zt", ",", "a1", ",", "a2", ",", "b1", ",", "b2", ",", "c1", ",", "c2"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{ "sn", ",", "xn", ",", "yn", ",", "zn", ",", "xb", ",", "yb", ",", "zb"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x", "[", "t_", "]"}], " ", ":=", " ", RowBox[{"Cos", "[", "t", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y", "[", "t_", "]"}], " ", ":=", " ", RowBox[{"Sin", "[", "t", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"z", "[", "t_", "]"}], " ", ":=", " ", RowBox[{"t", "/", "5"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a1", " ", "=", " ", RowBox[{"-", "2"}]}], ";", " ", RowBox[{"a2", " ", "=", " ", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b1", " ", "=", " ", RowBox[{"-", "2"}]}], ";", " ", RowBox[{"b2", " ", "=", " ", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c1", " ", "=", " ", RowBox[{"-", "1"}]}], ";", " ", RowBox[{"c2", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L", " ", "=", " ", RowBox[{"6", "Pi"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"y", "[", "t", "]"}], ",", RowBox[{"z", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"6", "Pi"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", RowBox[{"{", RowBox[{"b1", ",", "b2"}], "}"}], ",", RowBox[{"{", RowBox[{"c1", ",", "c2"}], "}"}]}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.462661339867869*^9, 3.462661410250737*^9}, { 3.462661568112699*^9, 3.462661582841302*^9}, {3.462661634309874*^9, 3.4626616938607903`*^9}, {3.4626623083028173`*^9, 3.462662314003613*^9}, { 3.4626624403844*^9, 3.462662449670765*^9}, {3.46266281353992*^9, 3.46266282070792*^9}, {3.462706718216614*^9, 3.462706721006778*^9}}], Cell[BoxData[ Graphics3DBox[{{}, {}, {Hue[0.67, 0.6, 0.6], Line3DBox[CompressedData[" 1:eJwUm3c4lm8Ux+0tsxQlRUIUoWR0nkgpKiUZJSohlVFGyUpEMrKjSHaJkL1u Kyt7771534eQze/5ufz1ud7rec45932+3/vcL4fuW954SEVBQSFKTUFB/FKY bO0QPzi0HGDPam8KP9vsnGDAkWhzljf03mIfwXXN7emvptrDHhQ/P7BwA55Z n2p6TvBDyhl2FKmeUEP9JiZr4T5YdBqHVWzj4PSJjU6rLADoRX7VvTJ/Ai8C nlxu3MLhhyjVrHNKGAgmWG9ELzwDnkmT2aBNHJr73y7afYwE5dx37DTEe3TC 6Zw4N3BITsvgDiv9Cka1X4+YmjtC7Q0KV6UVHA4/+CjYmpwI11amEkMX3GB5 p3htegmHt7J/YxKiv4Mhhe3J6msecE1lzkbzLw7aXH2NEJICloyURWspnrDj 8fet+hwOc5cEEtuK08GXb1/LHXMf6BdtHljvw2HwgPrw9fgcmPgi5BywEAhl FP+EXnQR3OxatT1/HjyNM1f5LhAMU8Ud33+24pCxXfTdJCwflpPSGMqvhYCW nUb0lRoc/v1efxXoVQS0GYpBS0Te8g9JjhfScXhmd4Rz7FcpCFXcTNIx/wx0 iZkX5WxwsIg12mfxvgqkbJSn/RZiIOsgRYnhYxxyWRVYvVSrwdZuXJ3vXSzU l62bKN/H4TFXYueTnWrIfeGVmigQB4szFgFnruFA2qYL/vCsFjCnhucl1+Kh ofn6j4UjOPSIfce4b9WD5lv97YWURNg8YeERWUmGxFJ7M22vZrD8+IxL2/wH sIgbBSS0k+BXmv5OkFAn6NxtjvJdyICbh9308DISGB4Of3vSvRP69s29+qXy C64Y+rnP/iSBwKKme/BoJ9xvp9PrDvkF+4P/VW17kUDPPIb1y9cueKqhyHVE PhMKyVN+oadJ8CH1RNwv3h5wl0/0LHTLAnXD9r95b+dA9qPSU3qKfsjY42Q1 y5ULx+vzyU/JM9DhqJNvrTYMrI0iypdOFUEcn39ky98JeMHrfUrhygQMHyx5 5lZUDnFPuMuuNU8Alt9n8MZyAlKkqgP7Rsvh0UGntPCfE9DaFyAWHjABDipN GaeYKoDfiY035PEETBuGuIm3TwCn6dDfmVsVQFGa7nZyeBw6+gVmp/UmQTmV 4rnWfAXUdhkd0ygfA8vyu6wuelMQp3juuZBgJQQw2/bLPBwB1K+ChE/MgKle 2fNKr2ooeGTPN6E0AsGIWfPj5RmQflwbJPCzGorWbMws9ozA/JfWgYaHM7Dj 2PLLob0aGoZ3BdJWDQPTWjiV96cZ+Bg9snj8cA2c/KU4oyM8DHbav9qlaGah epLKJqygBu7IH6fNLRiEeCbRDe7aWRCzU7ExI9cCmXt4qOdhD7znOi2UJkwC UmCFDdPNenjGFc1wgL0HlB70WC6eIcGR67u3Yl/WwxtF/RXh/G7wDHf5uaJB AgM2Ew+lL/XgPLLEFsLaDcH850yVn5Gg8T19qNVMPRxsYg0ip3fCib5og748 EqS5X87pcG0AAztlZ4WFNlidrrtOqUQGG7umtZiURqgZ5d4mRTWAr4KmviAn DlviFiiSuhlsdo1vKk/VA74kJYodwGGfT+gb8z3NQP013V5Hqh5Y6t507xPB QXa2+OJp0WZQ0D3K8rvsDzjUmb2mViL65htbU9PVZmh/3L7WP1INPdUf3FIe EP16JH2IOqIZLoY6lt3fVw43vxj8uRyHQwn/EqW5ZAuMH0l/98iwDELD//47 loxDn9P+ylMqLRDRU5SqFl8KjlzNzdVEv672nfemvtUCF56U6IZKlkDAb/Id 2WIcpD6FcEa+aoGhFv+bp97nQ0hYsEEXoQcxPKcFmypboFFMP+fQ7jyw4LgV HELoR7Gd4eTn7hZQpvDe7ojKgVYj8727+om+bPdMfjTXAtLLMl3J6ZngT+sz IjmOA1dwlzQ1ZyvIfKU+n/o9BRxjxEIUCT1zZ3c4f8qgFXr3rDyTcPwOq3fW 1RiWcZArDl6MsG6F7eOGpo+uJIKJ9t0BN0IvyY9/xux4tMKjreaF03g0lJd5 hLgT+qpbNUZRk9oK8o3lD7JcPsGX4AMpzIROs9ru/JQob4XZJP89WQIhsPfF 34BzhK6XHeY1DOxsBU8fac1tN18orF/AhAkfsG+S2bUy2woWu9beXaxwBUXe zpw8gos7Xyu6TdEGjlvezR93G4EIi/jyBsFHjpk/KeFug/Ehox9Mz61Roova 6hzBw7rd+Y6ItgH/t4sF+i88kJDrjVIfgmt4fql9p9QGOULXmxz5AtD0xbPX e4l4KGTzX5Kvt4EhtWpHtEMYylZq+NZFxJ810iaiZdIGeR6cKu+6I5H6fGC9 O+Ezjz/gnTkObVDOf+O6tHo8inlI7TG9ikP7rNCp17FtkBHBFX3AIQkx1HQc ivmHg3c4jI/ntIFCpmh9TVIyUuE6/pmR8Bnson7w5bo2OD0UlxdLlY4ULAPO j5Nw+B7j/5druQ163v5eXb+Tg/j+XbvWRKyvi956asKFdsjqTaytoCpDOicO qbmk4iBS1Xi0brodvgy/pg+pK0OczuEhYok49NvMdEhut8NCgpqPbGg54tjS 8Pb4gkPgYdq3IZwdcJF23GJQ5De6xdKUc9kfh00n+bG7Ch0gf4mlOEq9GtWM ZttwE77RJBMfveDTAaZTziG7PBrQ3lsCn/K5cHCIcdjHI9kJwXTboqt32tEF sQE6ITEy1DkdYb5v1wXPT4X5Bme3I7a/J/8I8JLBw2Prhvm7LogfGcYp2DtQ t6UqVS8jGcC3PeLZ5y5QZT0acaGsAzlZ8et5TRG+8dlD7E1ZFzz8mEBhJdSF mE4zFtXGkCCiYPxS3K5u+HjyvtmHgR7E1321g52ZBGZr8V4TCd3AwjT77yHn EFJ5vP28NXkWaG2F6R539kDWs/ni0KkxxC8mePD1mSmAJ0cpbeT6QYPWL8Cd bRzJi/pEp/FMwYeyBWnuK/1wK6A4U+HUOGp/Jxz0dXkSxvYWmmTe64fuRfXb NG/GkafmteM1aZPg/Vuzbsm7H+zbS64s7ZtAG07S7GeEJqGN3yHMtr8fZKwe N60pTqK25fIjczvjYN5cJ2HvNgA6xlc2OLWn0USudpuK7yiEnXqm71A3CDTq ofbPbabR+OYRb13jUZjxUfTlHR4Ei9FXvQFB0+glljMurzAKSqN0JfnLg8D/ KZiHvnkabTomnTGfGoGFqvpAJ7YhUJcXzqpVm0HuuTmHXLARCLO5v1okNwRS DrOmz4/NIp69pkvDk0MwXP++/Oz7ITgeaFhyq2AOVZWuNV+U6AN71wE9THIY 6NSjXjg2zyFqT6+Hii29UNChfcVIfhji2Lk59CfnkJS6gO6sXS/siNdjrueH QR+3YVDkJKF3RUB6hXrAq7vgaIku4TezNudCjEnILFqG4vWVbog4Gb4Mr4eh y7cl12qDhDRmWYUnDDqgaEwrAFqG4Yjvxz8f5snoqMLFqpBbTUB9qab6rM0I ZHHKON7aIqMbFi8izkw3gtoXrPCu8wjsvB6JbGDE0eGz+2pWhBrBZznnp7PX CICDSW77IRwp668o+Hyqh90xCaHFn0cgbUCYXfEqjmCD2UjdoxaObrwxPvt7 BEqtZLeuf8RR9lMT/jaNCriccpbi7J5RYOp/VCMVjaPyidt8de7l4E+dvWgg MAq/PPksyxJxlHOh4GxQYRm06klMOomNgqgW5eZyFo4GbILqQ4+Vwh26/Q1F Z0dBfc97+bgGHLnTes9psRXCU8O1T0qmoxBxcGmWoQ1HsdXafHGO+ZCRZeVv YD0KpXb7lw904+iOyG6KjOlc+Mc85eb0ahRy6QL7dEdwdExzJGVPeRa45HY8 KvIfheBxpnr2BeL5dzJ4xiZSIYAj87RS7ihscLyKrVrEUaoG5fGPS8nQxe29 klo6CjxMzuNy/3DUy7f9gI3qGxzca5Qj8GcUumN9wy6v44jtV1Ov0f5Y+MHP cppmYBQCeou2ZzZwRJEosnxRNBr+Hhr5Zzs5Cub81Uh1i6hbpkQ+z5MIOHMk N3tyfhSstPI69bdxNDppSWHiEQyuIn52euujcJPr1HmxHRwJU0ZKsCn5QtUx 41N/qMcgIMWBOpPg7PVlqZyWr4H1hPw/RdYxUBW/zb1K8MPxx8dK3pjAzZPs 2al7xiD/lordP4K37SOtrWWaoc+yE7YCAmOQmnFK9CfBHSS+lxluvEYjcoWy gaJjcNG9SeIwwe+/sRvQq/FFIoqBy9TSY1BSp+JxjYjTwy3E792fYGQFZlm2 imPQdvG21Gkir6cd18blMiJQjvJZ20nVMWgwfSnTTdTB5nEfi45GNNpS5ZbV uzYGdzQ/BsgSdTvTe1XUAmLR+UszS7W6Y7C76ZKGxiqR14Fft2+fTEDvNUoy Fe+PwcLy19kkYl0KV//diOL5gfZqPZERsB2D2PqNxwcnccQgT/v0Hf4LyRhV SE9GjIG23V31a6M4qrh+4SWXWRZyeBCxqBs3BtUuUvlnBnEU1E07ZTGUjUpN rH7VpozBvJyW+dkOHN19K3HQtykPXXu6Xzq1ZAyOTeedZCjFEdObyCesqQiZ O9ictJ0Yg3eU6YmsBTiKFDd4bRxYgtKcLv+dwMcg/FQZdUMmjt5rHzgVdaUU rboKZOiujcFd8qkkF2L/+1Sf3I4qL0MennVSiizjIC94/3zSO2LdLSY8vqX8 RtHBQlLUJ8dhLZb594FzOHIVWQt3efEHdaS2nQhwGofQU6oXJJ3I6LOl7qe9 lq1IeVRGIoV7ArTqrlY7PiUjo1LmvMCmVtTO6j4ywz8B1kjp3isDMtqk0OXt kWpDZnKtYSKiE0Cd4uror0hGSTnT5XWLbcjf15oqTmkC/h2iot27QkLawbkh wrYdqO90ameECXFe17FUazEgIaOtcv72J93I1ueom1fuBCRp91XcWJxFx0eS XTxEB9E3Wd7OB3cmIXJTvkJQYwotNIovzraMIXavHVfeuCl4uXdHhCQ+hb5W W/gKrIyhBMMUqu8pU1Aq1h/hyjqF+vxS7grzjSPF07fdz+RMQbzaQDFdwyQK a982jrs/jkwnsj11a6eAlq6qKUxjEqVePax5Dx9HRect/ELnp8Dok/QoCzaB 2DzvOEbsTCBzyv5PnErTcH8j6bgu1RhyjNRhplibQhUO+dlMHdNwnSwsPccy gG4a3jFpwuaQ7VPbuXX6WWhEkoPM+f2o7Poehl+35tBRK1k1fY5ZGHscWTtr 0o9+S6qN6j6ZQ53PlmPzeGehvFFRFEd9aKF32IcUOodOv7C9/UJiFlx5BBN4 LHvRc7mzebLTc2jdzbZ2+cYslM1vXvIr60K9Fy+853MjIdePtknzkbOwsazB KaDSiuT/9l0RdScj73Jb4wnpOfAInbD/Pt2CXgpGKAsGkpF8pWyJqtIc+P7e vsLyoQXlWaon9n4ho7nqZb74C3Ow5lOtodfXjO5eMlb3zCejKw22rQ/05qAk ZixV4nkTmi0/N105R0Zs3bbKw85zoF2uk9Yq8wft6o2ObTqPo2CyrUBfzRzQ erXs9XGqRa84zaniCR84vyDrqNA6B82/XdKZK2uQsuCw4ildHC0vLndG9M1B 4QWOCJNb1cjx3q1FP3Mc6azZ+uvhc8CwHWOZbfMbTZTeVefxwdFeGrvtDm4S 1PDNukrdQOjxnaPJNmVEP+2z62s2JIHIGW7lm8VFKKTXgN+jGkcRKj8lth6R oGq3zOwxsUJEHSqipUr4Q9jTKWcRGxKEtgRPMlLmoafdUtVtXTgKLNU/5ELM wyJyIVfmkzOQ14btq+MzOPJ8BCbi6SQQvJHHKrYnHaUrHA0oIBE+EPQiR6eA BHeFv9+0pviJBg68ZFqdJ/qvKJ3hzW8S4N4Na9WJSag6n4/BhfABBw6h5O5u EgT983rM9SoeeVG+cK4hdMtewWCTZowElVfjvx69GoP8jvgolhM6Z/Mw9Iok mQS+Zw/0REyGoXDLTMcKQi8t8xjm31KRoXdpaO+ATwBysT658ofQ16ej585l sJDBXbiDfebBWxTIp/jdjdBjc9ZXgf17yLA/fqyp+PZzdFiMJniK4KanM0cZ DpFh7feW8wFlXWi/9u7XFsGN75FkZI6RgXIwDSt2dAEZuVCGMoIbvRd+ayhL hrFwleYbNj4g6VUaJEtwgyzDTm8gA5aSpL0THAzf+p7e0iXi0R/8KJJ9iQwd 4YvqX/EImKmsuSFGxK/D2PJyWIsM5cp3onfiokGsqvF9MqH3N6WZ/7DcJUO8 91wwTUss0KpeoO1bw5Gmwfn9cmZkiAty1bc69h3qvobXXV7GkUZ6drGfIxl2 Hto52j/9BdYsO3eNpnCE6X2iVownwzcrUvo/qizgs+JVuzOGI6U3bTdNf5JB 6wJdL/YxG5rXXX7QD+FIPoU1ITCPDFMKWczCZXmQ+iCN6ymh67KUrmrT9WSI avrLfp+xhDgnlqLnCEdi34x9Q/+R4RwdOWX6eiXknzBQc3bDEeeaBM/CRRyk 77i2cfBWwTH68NIXLwlfEjQ1238Dh0/+2Yk7w1Ugc3qzXNAKR6xXovMu3sGh l/6jtZB1DSQfhvL3d3BE/5XzTpQVMQ9N33S/7VMH+2hSrBKkcLSuthKtHo4D P5PhL2P9ZnhxsEvxYD0ZjX0sEUuYIebynrS0hKxmoEQhZwRKCG6pqyZIzEP2 7x6VlLK3gMlZ9aj+DDIauTD/MJqYw3gs9f65EHMwvKjh9gsjI6t1f80rDPMg OZc2QyfZBv+OJTHVED5gmYTeX+Sbh1N7j34JWO8Ap4y4r+X9JPSU5iCV4rl5 uDDlwqJq1ge7Knnf1/+YQ2aF/WQh33lg2SO4+z1xLhM3jCjlCphGhuK3q/8J LcA+TrlyL+JcZnL05y3aZ9PII3n0Op/YAhgJa2nd/DAKFMlB0lk3plGy2JNe OLEAb3aSbLSGR8GObonhOtc0WhFxInudWQDZiFXtCdcxsDCcF3QLmEL+R75w 811dgHreJX7a7HHQzfBS43abRIh/1AjsF0Du7M0DL4h5w9WJ9Z05MX/wczxe 86xZgE8Cz10ys2ZBrjspWIdyCPUtO4jts/gLnR0ipi0Ns8Dlfq2WJ3kQffBm +Xrk+V8I6R7dkzw5CykGumFSWoNI5WAUz8kXf+GC6q/O93vnoDHb8ZBjzAD6 rlZKo+72F2h+pKjS2M/BpYNJXB5K/ejFJ/pBx9C/4PqY63KUMAnYPd4UiJr0 IK5zwUFDxX9hIW/fDfprZMgeKI3d8GxD6j4pm4lsi1B/3bOWy5AMH8cvSIJI G9oRgOeZ3IvQkmb9rc2CDMpJLB80q1vRr6ym6ZJ9i1B+4cv2M18y6EfvuA/R tyLewcWObsFF4Ps0OnOgitjvGdquje7NaEpKPp1ZbhHSbKfu7hLH4f1gIq8D qQ65d1Y+tDRahHcRglm+BTj4PZy4xPSmBBUcHmo4lb4Ib04cPudcisO6bCWb +QeEcNavx+ayFuGRC4lFrAqHp+H1sq94i5HQ2j2vr/mLUNB0X/pXMw4GxQ3C /RIFyLdx9BxLxSLkKaR6eY/isGLx/NLq9Sxk5DiZOdyxCBUXJnu1JnGQbHtZ /KbnFwoxTeII6yXyGqc+0EXsd/PcxdNj9zNQ7Y1HFhpDi4DfYlTnWMChdXyu 595EKpIWnT2aM70IdUfm4lXXcXDbt9MUJxSLaDvIET6bi6DzpOXX+AYOB1Xv MBRLRyP50p8r5yiXgKWV6w1G9Mf3q8M6Zh4RyPKH1c0V2iXofFPKfmsbB1+z fTJ8scEoLkwq/QfTEnR8dNP//57lhMBmhfJrX9Tl9pf1PtsSWB4KvptO8JtP eM+xFb5GLBa/zHm4l0BIuIZvheCb764ZtfeYEnplU1W3dwl4kr0D/ue56atT v+VNwfa8rJDbgSXQS+9EGQT/4TSRxxz8Gr6f+Od6+vASjJ9STRQheC0d8yzo +cIgb07/nPASPJTdVtMj4uxj57zE6x8M3HQv5GOOLUHcl/KE80Re9H37eM2s I0BtQS5MR3IJKgzmyoi5AzT5kHYxMXc49a0tssgugZTaw2h1om7VUlej43lj IaMqX7PszBKoHkpXNl3FgTMk0+8BcwJMZrxKsT+7BGnM+RMNizic1SweujSX DJrvtkxGLi5B3tSjv7zEushfvOL9sC8V3G2Ky8M0luD8qZaOQ2QcMo+1Sh2c SINcQxeBK9eXgB8XOG9ErHvI3Qw+z/ZfcPgUZU+OPlFPyrJ30R04+O8GZfmM PFgeobni+5TIN8rr+ekkHOw6LYel08ogQpFFWi5oCUrv0d2S/YpDZxGFvLV5 OTQerfcnhS1B/vlTxWRCR4cDEt+5C1UADZffXMznJYh9pmwY7I1DqPSJcuGP v+HJNFsCa8ISyHp4lP4wwyFSRTtRwqkaIJRr32juEnyIsu84vBeHnL0sPROK DTCG8+74DizBLq2q4RlmHCw2DEKUqBsBWXy89W10Cb6sKfQ+2CHDY2byTdWa Rogg7U6tmFoCw4WNvY/GycB8lZdC8nsTaM6yG2z8XQItqVCLihQydFuXeKlK t0DhBF2BGf0yYDXSngMnCD+c+P3jtWI7BPb/tVORXAYxE3mGmvU54LTTC/MQ 6gXsTy159fUyLC5/PSeZMw2h/642uTCPwucEh4EHR/5B72yWbVbENBy59Plr rtQorL46ul9E7B8MNL/ooXSeBgsB375KnVHQvt6mN3f8HyScUJFdUJkG/uU1 pfuxo8C6KdFuI/cPHixXqErVTwHfh3ve7+XGwOn68B8P9X9gXaO527p9EpR2 dZkY6Y+DwebFvETrf5B0RY62p3gcKA4HCU2/nAT+G7uDZ4v+AU3p/tPcdMPw SoiWK3DvLERv/bz0/NYKMEiyn1HuGYKXWhqdU9KzEGOyzy3y9grIPhzVOp86 BFm3mopWr85CXKNbfpXRCmRep/lSqT0EdwzUupTdZyHpq/ax/Y9XYPu7kWG0 6iC0HS3KfzE7CxmqGyy/XVYg71blmwLzPrjA7m8g9WMOKnwvNO35tgLLQ8/2 67h0gKkQdfXxZRJMHei/lb+xAtWUfMoe/B1wsDoy+gQ9GWbfXvAfo1gF5KBS /bKoHSrmlGBkLxlI+M+qXXSrQHdwejpvvQ1oJvA9dxTI8LfUTe4B+yqYRNFd yXjWCkL93jqRxDlm46EIL8uRVcjWXkh4oNcEahdttqTmycCa+rzf4OoqGA1n bJZzVEDKydbolAgcTp5lMqb8ugoLO5uuOpfKYb+xjdbLGBzKCh3fcSWsguUM W1i+axm4DU6HLH/D4YYCnnokeRUEfdl1V8glUBA+7bKTg4O1XNvapaxV+Mg2 XEETVACmYrzMOk04pJ2M8g+sWYWR8U2NoJ08MNGr1otvxwFLZ8+Ka1iFD3Yy PkOPc2GX9J+c2B4cmk686cluXYV3sU70VSpZoKdqaZVG6Pq8uNmR3v5VWNu8 OftwJAV+brxLYPhL6OXRkwWCf1chWlzsiUbudyAv5il2EOcVFB83JLuyCkfa z7bhvokgmTAbpLWCwzUhHjq1zVW4bWUg7Cv3FRx27X9qQOiWxaFNzSd0a1Ch W4FL8H2GvKR/Y9ObOGx9sbBzZl4DWvqp7fWKEOgb8GYU/l+/+Yc/fWBfA53b OlWH+/1ArKW4k4PQ0QORWqUxu9fgZ4IiO5WkG9w1Ur6SQvAUvsqJTN41ePPU LauByQReifqbrRJcKUKOpergGuA/40/EfH+CPgVNiSwSvH5vslS30BoYaB+r /Nv5BjXU3faLJLhB2AGdWdE1QLy7Qj2UP6DFWhS+QsQzt/uD49bxNWg9/GJp 6mMoirmUpUFJcMdgqhg2mTXgMr0ZzIV/RpyVCd/yibxYuGyrDp1Zgyb15JdQ H4caru61VFzDQZxdn/OCyhrYMCzON64kIpF+gyEaom6FfnWnddXWIOGeh5zQ 4WSkpyPG6kTUWYMVDMyvrMGn3YunNvPTUG+4zy9HQo8fMwkl+emsAfUJG69c lhxUM7a8J3+A8EMaslLn4zWIKojrF28pRUUdmlOn0nAQWXv9yCx4DcqkmtT+ RpQhN5Xsih1Cj3Ptl/wcwtfgWFD6hteDcvTimq/AS0KPL/4zyfSJWgMZJhX9 w0sVSL4Cj3EKwMF0UX0nLWkNVOWPUzVwVqM/67ncTU9xSCTtDlkrXAPrzohd WucbUJWTx6WfPDgcGflW4j2+Brd7M2pYNxtQYppCmgELDqdz1OtUZ9YgOSq/ 3v1XI7pkpaBYTUG814fUSYGvAU9tWnbThyZ0d5ss2jJFBvNTUrjd6hqsGp1M ltlqRu/m7qkWZpEhxTv3wAPmdZCwGxR60tCGHp6h+kalQgYZ6SoHBal1aFKr Nz17pQcJuecbgDgJzruPycw5rkO9uvPi20sjqKiQk/ON8gwYCx/8doV7A6rt qLTePh9Bp8yYKjmOzACvv9NPi30b8GuqUv1W5AgiSTtfM6CfgZaV3ix//g14 pDN822R+BN11+80t/mea0P2PZc0iG1DMJKGtEDyK6P58n027Ng0HnnD2aStt wEzww/MGLWOoZd89piiNKehMp2W7a7IBJkMFKqVHJtH6+Fcvvb0TcFlpzsYi dwPI99qTp7lnkbwOq8o48zBI3szD/O9sAn2ZWPuV47PIVveQjProEJhxXZTQ u7cJOc7+B20vziLJPVe13ucPQXRL2z5Bk03INiw6xfJyFhXqXXn3yWwIOK/P /8223ITKrydMb3XPoubyw1XMbwdh6crR+AG3TbjNvfuOuN8cCsuNSEkc6YOc iyGMx79tguNYwJZnFQlVGKblDD3pBCUF65a65U3AvpuWkLpISJBGwjeeqxNs 17eLQ9c3Ydw6OJl9hoSsbeIyT+V3QEqeT7LRziZMOdPf92UmI24dHr5SOkKn 5ZLclxi2YKK08txddTKi4Iu95BPZBhSyg6f279+C370LmlBMRhV4ZmJKWTNU HL/y6bEy8Xll+TNixJwmcUQzxp6Y29QOixoz+W/BUfvu+NoXODqrM3RhSKQK WFeQUmHQFqQ2iWsffY2jL+IKnDxWldD25xaPxcctUIh8I7M7AEe5qnE3l7cq wMjWvbb56xb4fZs/VJqCo/QHfoeiecrAvnpQMjxzC3Zpy9Sdy8QRlXpOYLxB KShF2jGp521BJt/xM875ODreKxTrEVsCNM9YxzaLtsDTWVhYrBJHb7N5a3IM isGfTyHMqGoL5oPerWr04IhuaCB8n1cuJFqEbh3t2QId926j7wM48i38fFKY Mweeqkh0dg9sQSDLR8nyERz9WWETpPycBTJ7K9Lej27Bm47UUeEZHHm8TYs+ /jMDUOnCA3yOiNPyYI41CUfRulEvPeXSwT3US+nrwhZoWZ5osZ8n6vb30Ru7 Nz/h8uODPFr/tmCBnPs7i5jb1W8t27gmfoNO7iu12Ttb0Mk4E0hawdHrqaZn J/ISIHJ6NNaMZhu6e0UDhoj537ml3zOlNhbuFzs48TJuQ93dC4V+G8Q8L+BE TdkXDUeDOHTqWLch4edX9tVNHBXs7zQ36vkEJNMkSWfObVDec/L9/m0czc+Z 9rpthkCmIjBJ8mwDzuwmuklw78cqa7b8H8CBo2N0mG8bcrG06dAdHE3eqav1 cXUHbOJJUZDANjz/Ylk7R/CuaQMaai9roC2gDlM9sg3emvR//r83CRU4KDhe oYNq/SOsVkS3wafgxmwNwUvFfvwxM3dCH4ylLn87vg0vPUuPXSc4lfJBlx/W 3kjnTLXgbeltaA/X8Q0i4uGPKOpY3hOEDuwy3GKR2wY77hSOgC0cnd+vqTO3 9BGNjSx3FCtuw54b5PxLRL6lBQ4CKS1RKCnHJ83q3DaYuNZ6zq3iSHNz2CPl QjySuZf/oO3yNiRzxmZ0/MPR1AVHex7ZJLQue13p7bVt8Pw0wu64RHy+Iujq FcFkVMI0tUfu5jaEbFg4rpJxNPDkXt5rlzSkkbm79pPBNnip05flDuFoJlfM x0YvGxnTW0s+sNoG/vabp5z6iDg/SPS5NuYgsT56pt222+B3smTPVieOSOXa c3qqeWg+LWq08uU2RIirqJxoIPItHc1/KFmIHPXrQsXebENRu5Pz3RwcFcdp 76mkLEXBKUe3FkK2YTkranPREUfiNSN+yfWVqExroMa1YBuYqVu18p4T6/hw Up42tApJFEpFfSzZhm957dvH/79PrCk4Kni3GkUIeTxL+70NX/gK0o/dwtHN rMKuWFINslk+xjfUuA3n9c7deyqGIxn3miuvGeuRUNjLJzC2Dd8bpsSOVZDR rZwEBYfwZuTew822zbIDTnNvz74pIqGCmed0QV860cV76jdf3d2B1JnFhpzm GRT7o/74gM0wMjl9B8+noMC+s9xq+pEzgyiT1y5Efx5G/aGRGnzUFFicxd1h k8gZJBO0z0OhYhhp/Rv49oqWAlM8lcd7zGwG0Zbs2rPJOYKwrHvGikwU2Gu7 k/fW16cR54d2js+pI4hP2rS7iIsC8zLeCJrePY0+UOw0sAyMoqbjz8pLhCkw qx/Z2Q2HJ1F+oMFnS74JpCDsFVapQYGtHOJ4eTNpBBVvVJxx2plGbLszoeUj BfaAFJZ233kE2YZqShkfmEH6xVoRDz9RYEk/lzawm8T79nI50SsQ+ZkuLq1G UmC/c+++sdwZRrGP8wZe286g0/knvx+MpcBcZacfRGsNI47FeH+lyRlkYJjO /TSFApvoqGg0mRxEmQHHDgQUzaLkb6nT9GUU2PNX1Xrex3qQXgHj2RZpElI7 +y1IaZYCW3W8c9y4vhsV2P74XqhGQoGTauQmEgXWyWgrvGHRjWxieGRvG5BQ 74cpNeN5Cuyw8bObxuldaDlUq+GXBwlZjh7d9l6mwGxmhILOSneiHN0V8/oW EgrzSjDr2qHAWKNCaOeOtSH2pF9f7O+S0XhLrNJzbkpst+fW06Pzf9CV+1n0 jvKEPplGTSYpUWIP96jzfBb7gx58OFBxVxVHgZ/K5CQxSqz+x7HJOuNa9MCy ymTxGo5iGife5ShTYhuWVr/Mu6oRUw++LGWMo/LTJ8QrL1JiR/g8j9cX/kbD otWelO9wRMtQYjV6nRLb1dewt2ylGAnS6Rt2lhP7Oml47YAJJfZ0/vBfSpMi VGiVXVNfg6OIPlr1eDNKrIF58e5qawFa0A1stGnEUTK72Gfxx5QYhZtA3N6f uUiEjceurZvQ9RfPzipYUWIXWWW6gu9nIMahydYuQtd3XaJ+o+tAiQm6x6qs NKQhgW9m+TeIvj/odLRt0JES6zzrYGZol4puBkoPOy7g6ES6+hFTF0rsZcS5 BmPhJBT7srlpmNAVzX3BVbbulFi/SOMexu041OdxzGc/od9GV3L3br2lxEqe OC68aP+K9s33P6En9Nv6dd8j93eUmKFGQkcWfRhqMp19TyJ0LnBaiCXIj3gO G198XtYHVLbOUD5F6GLsgUsGvAGU2OVzXpZHq9xRLgMNRzCho7+uP039GkSJ XXrEY3RN1QoF5kva4AQv9wjYEQmlxOK3296k09+H0ebvs+v/f5+Zl6WZ9pGo s/fWCVvh1yCdrG2fTfBxUvfX058osdZTP0Rba31B+Wwfz//fZy4f2v5bHEmJ 3fzhYfD8dAjo709vUCLiobt1+PyFaEpsnwkuovbuE+Q92RXFSMTP430hpD6G ErOsUuR5QoqGrYllLw8i36PF5hM344nP8/G1Mu6Jg6g/kkHpRH1O//U73ZdI iTnIPZ5KMPkO/heT9/ISPqmr39k984MS89V7Y6zq9gs+WEd8lJjC0ScxM36G HEqsrWNpKmB3FrR4+YseGyPW/a6PpX8eJVZVV1zxLSkbjlw4xt09SPhhYFrJ nkIi/oKFqmMNebDpcPHwhQ4c9a+v3j9SSonRxjm50TKXQGr3wdcmiFj3P+8S lf9QYtGk3hdjlyuhf/xmXb0bUf/HyZJOg5RY3N3rgmE0VSCZUeNp40DU5/Lk UtcwJTbObVXLU1wFC/kL/R3WOLogJpgnM0aJcX8bKHOUrAGLjOb4BkPCf6Yi zs1NUWI4nfyDb5x1wGHv2OYjR+i6ifeN238pMeljSp/CxptA9KE3j04/GWUZ PbI5Q0uFXcWfU7G+7oBfzrv9+pZIqEr7aO6yGBX2mlOq63x3BzBeTqITHiOh vbIPHK9LUGG3rucyqEt1Av9H5HO8lYTMub9gKSeosK5cbyc01Amr1521ndJI iLl1T42xDBWW8urmhLRSN5w3YaTZY0ZCmpp0Pa1KVBgfx9eM+NleGCk6u3zr zxzquTy+ka5JhSUxrr1u9BmC6a80GhoPZtEsxIKFHRVWzqPM4JY7BAfSHDIy 1WYR2yMlyq0XVFhsS1Ib49gQDNRy3+uUmEXSgZ1l719RYcxfrr0Jkx8Grqeb 3zRWZpDjGPOFb65U2P3kEZEv48PAa3T64/bbGcT6zkZjzJsKOyR4IIRCehSs lnv9Ufg0OtGiqqf/hQrTWxrtF08ah0LPddYOv0n03Hjq2YVqKqxCZCFnZmIa HuyziLhfO4I2vCQS+HmpMUqP1slOqhkIT67hTIwdQUYGgz2v91NjbbcKxN/z z8DBJxpMZY4j6LdUANs4PzV29dXDHWXtGTBv82t2PD6C/HuWXiQLUmO7b+wX XUAzUKtloMn2YRgdFi9Ul5OgxoymVlS5vWeBMp39x7L6EFJrvLxwHaPGjr5Y pl/B50BK63PL+xu9KGS3maKHCTUWk7Ty+AwNCQT3CYhzbPag9el91lNm1Ng8 bbe0wl4STEbmWerH9yDD4j/x6o+pMb6UMCVHIMHVQ3T5CivdSMT0BBunFTW2 0a3ohHuT4I+HXfjVj12oMPffcNRLaoy69naK3W4ytP025bjX1I5Gbnt45vpQ Y+tipqJ0q2RQ+/q18seBJiQZE9Mym0GN8e/R8k+lxqFyjdmM6m0jukPZvaWc RY0tLJWEcbMR8yeVXYNpUwPyNGITjcihxjJcBU7sO4LDXoVD1y2M61E/v6OL WiE1xmJNP095FYfr3742Bb+rRT6ftMXjf1Njf0NeaEIQDvbK2VZRNRVoKpjh 7d0uakwpgjEpJ4KY8602L1exVyDupbPpWT3UWMCpubtzxPz8WNZB9rdOOcK0 bPtY+qmx59HvUrx/4hDovG1+YbwUhXGMnCwYpsbuLnEqh1fhUEe9+Zxrqwip +hUM8swSnONrxeIMDloNeR2DtzJQjKfFmeYtaiz05mducWL+F7XKZ1IbTkP1 E3HGIhQ02CcRbQ6BBWKeP0iGvZ2paE2119+FigYrYVNflf+HA9vfLz1mO0lI k0ZtQoKeBvsV/qnz3ioO53p1/ihxJSDHB84cHow0mHNe05Xz6zhI/HjsMioc i5LKMhX7mGkwjy96uMIWDjP22RY2nyLQjuuhIG92GsxuTov7+jbxnO4iJ7w0 GIkN6RQPc9JgCjMu5Yd2iHw9GlQcm3zRLfCblttNg3WzHNz4/75GMWUDde93 Q25RFdwfeGiwg5dp85cJfrHSc+pc3COUsrUOk/toMOn94Tv/3+NQrUqz8h57 CF13pB6f3U+DNbq1/skh+ARPmUTgtivQFJqGhvDTYHrU2MGTBG/1qHQ4k+ED knxRpXMCNFh64ua6KREn1de9ac0ng+GOQ9uciiAN1r6RZ6T3f156x81vs0SA ZzfT3k9HiPiZCm7QbeIQeeC4acr4F/gld07l71EarKvbajKQqFvPH4y18E88 MK2khEeL02BRFrsu2hProjHK4xVYlAa5zz0vbMnSYFWs6s6qszj8U7k0IyGd AWMtRdY35WgwT8KvGydxqBf/oR+T9AvYTy59TpanwVx/jDzfM4SDy43Bacag bDCdN1rUAxqMQ11C/1k9DmOZu545PiyE3U/lo7PVaDAhueT5RGL/PLys8vTE WhFw72msxtSJ9XJWsvUtxeHsoZLRUB8EXOjBQu0VGqzj5exbs0wcxPZMp53R KwV2Dl/lwRs0WFFg0A+jUBx0R9+1rzlWAHPW4Bi9AQ2G+DVDzNVxsLVXe3Q1 vxYottxF9axpsBOnaU0jHMhgzo//vOzSCnM+jRkb4TSYDGVh2ro5GZRVwwWW BlthRta41+MzDSalS6ez6zYZGh5yOz/G2mB6YJWa/QsN5s/7QV9TngwUEXXS JRTtMCl5WFsojgazljvUpLJMAs0Mzt2Tzh0w3GazopFKg1nqMjmxGZBgpvXf H12rbujcz6sYVUaDSfqNpn5cnoVdvft17hwahLIfxr+xWWK/aQy3PxmYBRM1 RV8mm0GgpOS494VEg3HTM/ZTV81Ciy2p8nnlIGDaRZtbOA3WrFKk9ypsFlxt rp6Rlx0CtLVbpmCJBsuNEPsTIjsLX6N3vfXtHILCq1UxstvEfmjpkkoymQGR qV5xqd0jkDMv6irGQYu9kwwN6omcglP2b85xPhuDHzK4PPdpWux+QsFimcUY PKjbPR8ePQXBhS/TJt1osdBHNMP8F8egmqp6/mLpFCTqu1966UGLjemLeV84 OAaCCXyC2cNTkLfqN8LkRYs9ELyXvN4wCs+z5xuaD03DgEwc93FfWqw66bcH pfgoCHD+uLgVNQ0iKQ0vbMJoMfrSeaGJvmHodiczDvrMQEGk4DnKH8RzjL8x cMgPwH6ZH43lMnMw7FzfzNtOi63EcI7oDvZDw9AA1ajGHCzt7zL/0UmLZVY+ KtRy7wcFY53zecZzQFcwQn22hxab4eA4aFLfB+oy3Fvvgubg2MqK7L1BWozK BbfhudMLb6+tF2SR5sDG8nBE4jQt5uXa7e30pAsKDnoH0wSTgMHI/r7MNi2m KZeWTm3UAgWeO8V7E8lw/NyhxStH6bBsm0ATepoWOHPP5nxhJhlcvVV2fonS YeJjWlEjic0ANBFVvGWEb7Q+ZOYVp8PY7gq1HsabQK3twTWGPjI4mHwXnJCk w44rN/KVrTSA8u6FczEsOPx+L33TWZ4O21n0esjDXwPtKTyf841wMOhQzUq9 QoftXs8qaLlXDfUdiYqU5jikHTQr5dakw14FzavqxFfBapaHCuVzHGgeedc7 3KDDPns9Cik7VglULMPSEu44fNtoGL+gQ4e5XskJ0DxVDuKCff4nY3FYFtDd M2hEh3Wmnity8syHog+ulWOtOPg+Nrdns6HDko7xDn1jzINDtuopeV04DGX6 vLG1o8OkDf8URb7PgSYLP8qL/TjIbKf6974g4ndO5J7xywSXFKla73Ecuj8s JiY60WHzq/fMJ4RTIH5n33jWX8IPsx27wJMOO1vNb2Qn8h2iYp8oXlnG4cVO 1Fj8OzrMVFbY549oIlBd3i75vEL4klrpPLMPHWZm9en50LGvQPLOVzLewMG6 l5ax6wMdVpxbrnFb7zN01ptI9BF6WSEksvtsEB0WX8C8maUfCoz22mdYCN3l sbh8KC6EDotjYbIYuP0BBGR77y4R3DzniQTTRzps0VxbriLPHZyvkD8R8wIU UfifsYqgw6Zd0ynk7a1hPFoY///v29kvp6t2fKbDlngHEZlbH31OLdLZIrhx UOt1xS90WEu5eF7Ma2d0PNSv/TfBc/qWDWK+0mF72W3DR86+R8U8ex5dIDij 8F5zhjg6rPy79ZXbUUGIFPiMy4WI546lvJ1FAh3mzNd7al9kONKhMe6wJPzh Z+4dt7YkOkzmWrElqS4GncqUSHtJ+KS2+teI6BQ6LP3QWsfwn3h0tSWl/n9/ SAouT6BLo8Nm/06di69NQkuhnBzGhA9v9o9nPMmgw1yk7U45V6WihDu1B04Q vv3VSuyPXA4dRqM/LzBwNws9c6SiMBvFgRTya6OphA7jQP6rOe3ZiNNxn53u IA705vrbYuVEHdReOBpp5KJJ6m+cNL04CJylpPT4TYdxTV8eYz9TgJLfnhj3 acbh5sRVujO1dNhJQ2GTP54lyLHiMq9JAQ6Fp2bYv7bSYe9HT9fI61Qi+da0 7XNuOLzrFBC2nqDDKtMUdUwmmxDpw1HE00+GI/v8NDlY6DHpUHlgVW5GIsez tLybyAAkGa3Hu+gxWVvXQb/PzcjrRI5OfjkZdEt7tX+z02MSjhIKB6+3oEhh gwNa38jg80j09svd9JiNozGHYW4rOrz7SY25NRmW8ioeDvPTYzFjl+bTnTsQ O2lX7RXCB0r1NxzSpeixdoUkd4vxXmS03+RlV90cGHw2i7+uQ48Fv3/EfvBc H1pY6b9lnz0Hl/Ofxg/o0WOMJr51np/7ELrjIF//ZQ5Odz2Lf3yHHpO3fCTr fKMfMa6obERZzwE7t1O8xz16jFlZ3288fwC5tNzvH+KYg4r3AfF5j+mxsN5D rx8XD6GtqTANbtVZOPYqP/6QKz0mel3+UYThKIp0TMlmezENq3osCQtJ9Niu 3LmV4wxT6JrueoDMoXEI5klLCFinx0quS5a6H51CoTMp125vjUHZUN2+xU16 TCxygD3+whQa+WgSotU9Bvi3aZ+bO/QYOeGq5Hn3KZRlf3c178MYXFYUfM5D w4CRjz2hXt6cQlP0A2STrVGguBcKkawMWIOpr8jk6DR6893S/l3DCDz57tiV JMCAxV5nfqX7dhZVCNtLqdwYAhWlS0wlFxiw1YNhg25Rs+iV8GSrougQWNGZ OB26xIApcPXyW2XPosHAjVROiiGIbHSbd1NnwLxJkvqB47Nog9S8kqQ/CKv3 CjtUNRmwvmRz3nlsDtWeMFuxYRmAn29PxP7RY8BOLgedHp+dQ5dmkkvKHvQC b9Nuxc4nDJi4Ud8dOw4yeingymw60Q4L90eekgMZMONnrw6tHCYjJ4rIRS2P dvhrazDgFsKAPY728BGVISNqxidTDEIE9+q6yvORAfup2xwbo01GlgH2cw1G bbCU2nACi2TAdqJLjwwHk5HMQZ1jk50tsLyevxCQyIA9iU7we0KDoweSuxSv OzTCemCQrWwhA/bqhOPbJXYcReU2cezPaICN+F0TNcUM2NHrlPnHDuAovK1z X9h0PWzmvrt1t5QBs+kb1U6UIebkV6UT8Tp1sDngctqzkgFj1/zC10TMz5R2 z78ZEvP0jtiTta4mBqzGs/BRUwKOmr7/+8PWUQY05eedHMcZsNff4ukhFUcs vEQXMBK8A5HYpxiw0w801W5n4ei3yRlkplQKtNPyd+NnGLBdAY1mn8twtG3G 0r5fDQEdmxQ04AxY2OlYbejGEZeVyiTNYC4w3D5AKbDOgKm+Jp3cN4CjO45O XZznc4DB4qN15iYDdmdXwKnoERyV2ixqjCVlAeNrrhG1HQYs802CW9YMjv6+ P2ozYp0BTImM5dY0jFhDiue+zX84ohqpCXxNnQQsi8vu5bsYsYRwWbazazjq WZcuQLVxwEpnvazDwYjFL3wfE9/A0dDm/faqgK/Aum/u4RwXIyYnPxxcvYkj qQV59/Ppn2GXuGmH6x5GrOLQdz6ObaJuHud+p54NBTYYubB7HyP29v1PW7od HJ36JH6/OMwf2G4Y5HzjY8Swj8+jkwieb7WXpz7dDdgfdh09y8+IZf7QjFgh eN0cfdWP46bA/kLrY4sAIzZn+/L+4v/3RKPPuXjMnyD29w0MpoKMmMbs6uon gp90iVWJo3BHHFGXXm4cYcScr2bcXSDiEb/eZHTx+QfEmV4x7S/CiO0TvRey uPX//x3I9nJMhCLOCtAXOsaIHVUL/xJD5EXJqVAfrRuJuDrza3MlGDGrrErX 7XUcyd3qzbMe/4q4Z2QVrkgyYkGpEkr0RN3wqkNvjfnjEfdWWvLwSUZMZ23h zsElHE3wPqOP9E9GuwUTfZjkGLFTPuHKSgs4Kpf5sqc+NxX1lSQsBsozYmdl cvYzk3FUoxnB3TWfhuLuJujzKTFiqYLCjdkTOOIdT+84vS8TnYyIFxFXZsRa /B+cvdaGozMbh26/Ms1HmhxxFVc0GDF4ZfLAP5rgAieOX3tVjrx3ojc/GDFi dHS69BkfcZR1YlzDQaUCXY+MfrDvASM2QxHj5PEBR6oZx+OeMf9GexWia78+ ZMRu2ixJgwuO1mv9RcojKlGS3ZePGeaMWFdGpyyFHo7+KLL1/siuQb9JkTJt NoxY2gl6r4YtMorIFbXChxsRRV/EE553jJjiX8dPjAtkFMZuqECl1YSqXka0 fnlPxPnc4sjKKBkpKdzvGM1sQv48EfIifozYmWA/gZlqMmLz73EWedGMDmiF M5wJYsR6SXEvpP3JKOvQ9uDnzRYkXxsWpx/JiN0jrV21YSWj4nw/f4PNdmSb G9wXmU7sw1aWdz3Nc+h5X3REdlMvmgn20xDqYcT+GnJHSBXNoeoPAiVZR/rQ 3/544dd9jNgdv7WdS0lziPlZs7u9Qx9aFy6iGBhgxHSpFF8jpzkkykPLiAn2 I6a82cywUUZs4YmNfdmROeThYjjZZD2AxPrVDjCTGLHalKGeG+azyHbUK0D0 9RAyO0JNXthhxEYEeutYq6aR+K0+nOLfCJrMsvdHR5gw6wT8KUvfONpg5R8s uDuJxjqMWvStmTCFa4VsHtnjqC9m14Go15MIPer4NvOcCfu61UVX+WEcNT5T 5zkfN4kiNtVfO9gxYU2NCS9izo8jQe3F/u6pSaR5+LRkxCsmzO7gwOGmb2No 4fFxQUHLKVT4lNWv24MJEzP05bllPoq63lWwj1hOo2Ca/Eu6EUxY8V2/yNHK IRTedP3cIMyi8ye5SrXLmTBU8SFE/NMQWojiPBquP4sO/vb6OP6bCWuWjVi/ bDmE7mcNzrLYzqJ1nW1L22om7P6hEw2MPENo03cXzaFvsyjNaZo/pJ4J+xHp QC9XM4DYQp9KLrHOof01yLGtkwnLS9rtSJ7vRUzkwcFdtXNoyfCJnNYcE3Zh KPWTG0sHCnqfIubCREbxvr9/au5mxoQlOOvDM9qRfKaGRRcvGZX8ubGeycOM TdlfcnPVbUefCx8+IYuRUT/j0Pl9vMxY44HFSBTbhk7KtjFoXiYj7rfr3cP8 zJi9vn4er1writx9bW3cg4zcnE/QPBdhxth5udA/3SbkPu1ihM2TkaFluG6I AjOm8eJ+W+1qIyo0XSjS3iQjhxTh2DUlZqzHc0+eETSiQMWt/iMMOAqb/UUy wJixyrt1iYV/6tGa1tTmMj+O6k0b3IRVmbGZbo6A+8O1qH98/9qNSzhSNKJO ybnKjGkq0expo/yNtFMmqOaIvtx7/Sllzz3ivXSk31vnK1CdULNzDNHHMv7r 6meNmbHbQvFi657lyPM5pxEn0fea9Z6hMSbM2HrX7R/WrGVonrWYnZ/wJc9L McceP2bGOA59z+SSKEa7TdVdRysJHT3Xqb1pw4w94PpIJqcVoojjJ148qMMR u6txtJE9Eb9QLrO3TAFaXCu/97kZRxLFCzMVL5mxEE4xOVaFXHSrYqFXrhdH xvIsrr7OzBiuJ/4sTjUDHR0q1OCbxVHLyXPf+b2YMbrI0e7eqjR01UMy9R6h cySrhiU3b2Zsx9rQvTcoFe23MswyInSR6edtmPRhxhaolNvvfEpC6d8qI7wI v8KO2bX9DGDG+pJ2p1RFxaObH14+TV8l/PAR9UHuYGbsYBO9LFVMDOKm628I JHTaPvHDoxehRN2u1HFSaYYjoeC3Ei6E3v8UTN7GPjFj3wPs7sVrB6GY++eF vAl/qL33Xw13Hk7V1scBvFylOnsfV0kp9BY6pWSW4WatTJXiSkgU1SUiXU4y VCIKyRu9ynjMkYpMF3UN6xhK5nkmlM4RztndTKXkrvPH++/nWX/sZz97P7/f Wr9nfbWOZCbRYHL7vQWdknCkpJvOMhXMpVNeR69NpUHxiwcX3t3yR70WUw8F c2ahdxbv3NPxe5D/pLf5tDUKeLyO+IldWmp0V8djGszJCLUaOcEEpjPhK6ew a9m6X9F8QoMa+7Q/mG67AwoaY65GYbeMW6xIeEqDTUMnvPTCo8DK4K8ufPw8 Hj2ha5af02Bji9nKgtsxoEJjy7Aw9gjxjSf+eEGDfTkpgUNnWUBJ5nbwAK5X 7sM7H5bl0+DpNWtDnWTw/q6wxMcN123zLK3uDUU0mPh7eMDItyxw393WGi1Q SFzr9MnaUhqUd1p1Z9fJAqDvJOOsxKNQkl2GnXwVDR6aFfE511wI9nUbfxn5 RKFAuWKWfw3+bolpEabBXyB2y+LMUVyXzvPeDHe/pkGj22f9SKVSwPxifs0a 9ymMgEmHkAYaDKzb0tP9SwVgn5G8r9lIofx0FUduJw0e5kl+veJbCf4Smaqt eU2hh24GmaCHBuNrVzxrm0agbEcXItgUuqpuxYnto8HelIKU065VgJiMUeso opDOG1+Xw8M0KEmwKB/zWtCeFnZ/L/4vaj+hS085NDhVr2IpLd4AotiHW/Za UqhX2eyq2zcaVJtMUc5qbABFJj3G/ia47/jmUFLznQZtD168NRfUCCSeaEeE Qwqxqj0Xtv6kwYyhwVNjn5tAjHJo5+AeCp21fOTXJERAN479QnV9K7hpPNps t8xHkz5D/ooEAZVMyqX3lnYA5WiuODeej5YqXUMoGQK2mTibbfutD2zcHiU7 l8RDcqahsVcMCSi+1fXCvoQ+4P7GinUvnIcGHBa6fxoTsIMUMV1e6AO3bK45 93rzUCTTWTz8CAEvK63reF/YD1yMBsojzXhoMfbQg1QzArYfvP4lRn4QeLiO CN9dnEZt70XuNdsQsCymjsldGgYFvxBezYbT6IZv2E2GOwFj1/tvW3g1BnZo Lj/SezyJujLuOg0+IuC6ZEaEZgYH9Hhmz65K5qCgxXtqBlwCKr9xaX9eywHk OFfx5A0O8nm54WP6JwIW+PG/8j9ygFpa2oS3LQe5eyfGCE0TUF3NtmGYwQW5 Y2qkrAQH2X559q3qMwHH/aSjrJ5ygZa/kpXmvY9IfbIewUUCOumrcv9MnwCb /GtMIy6No/F+kWN6JAm9Qyaa/NwmATrvILGT/h4Zvgp21FYjoUjfnzo7QyZB 2lxO0whnDOn40CTiNUioKffeKC51EkxturSVicaQskZ03df9eL29illTF16f Wja83WMMSRWkK7z8jYTInclx15kCjiq5YaWto2g2u+qzpjEJFS8bzVxYnALe 9DVw/a8jKDNu+Yb6KRIuJpa9rz/KA7YTFxXvoH4k4nv9kVIACRNyZHknz/JA cIvy6j3n+lFbwDnD6lsk1JqqX4734oHU+7sPRAr1o4TQQzOWt0m45+0ad20W DyTofY+LMexDe2M3HL92l4SJ3HXDI1weUFqvMVP2ugeZlzwnXkeTsNDI2CzN gw/MhRn/1anoRAmzg8G22SSMNglccSqQD5JirCx17DqR448qVd4zEs5lKHVU RWKfUiXXfOtAisLZYwG5JFRQttLIyuUDtFH7mJh6B0IbvEBmIQmXB63biz/y wbm9DuPzT9rQuCrxnSonYVDayMt2Ywocfuqi/060ESl6/sa8005CRvth7/Dj FCiu2CQTYdyAFnx3bN/cRcLzqxU1v9hRQKymYfX8jXrEDlzT9qyHhBJKMRYt f1Jg7n//kV/9qQ5ZRHUptg2ScAWbAUuiKfDh74lq88pa5JN36dMWDgnze6dN xxMpkJexXWnzTA2CpRZxuRMkNPuVm8TOoIC+i5lwDqMGrUNah+AUCYPnfxYF F1LAJll3x8GoKsRqEc50+kxCXSqnSKWJAkzug+ziynLE5rHO5i+ScEej4dvW dgp0mV+xuSlfhsLngkQNlkhYVZIWvbWXAqWPmrtWRLxClksuld3LJBzRLt1c PkqBipOOyMCmBH0kNKS+C9NhYJTBg22fKZA/2prjOpSH1u1t7jUSpcOWBHma wgwF3JY0KwOzclCXWlFInxgd/oiN+Dg2R4GhJ8yXxzyeIpZuvIabOB3GqqSl nlqkwB3ZlWmMXzKQ4lGn6ChJOpTdXHVV8gcFisQu2t2PS0ELFkf1ZaXosDDD 5GHIEgVczDPRdYV4xLZV+adYhg7T3+SluCxT4A/7mr5DiWHIwnXJbFCWDtUm 9h13x/6hXLR0SCsMKXQ5/ORjn4+ppjyxb0laG+rZE4qE9apzheToUPEBY/Ya 9mQ2/0eCWCgqFQslFLDnvuBKCnIorJYHjXmhd5D0q18bfLF3O+r1P8M+P6IY EukVhLgickYS8nSoqrDq9AvsduIJCbLrgxDbM2R2N/aj1qONgvsaxTzrx6V5 t1DC4ETGAeyJA53Ml9hXOzyPG5kMRMfycoWcsEeeyRuuxR6/SVvCvvomyrfe zy7CbsrWZAxg1/6+6WFcoi+6lmmie3wnHYpIGFwX5DVNT0UnoR4fZCmaO+mI Xav0j/J32B9fXIjjiPkgRT/RBF/sRT1jqz5g131h7KwedhWNHOv6moI9yLm9 eBL7eaLqcqsXExnOninhYxebD2AKzjHtndTF5/M8kbQ920mIQYdZb/Sl+NhP eKjmSU15oIW6HRslsC/vXrX/H8G87CaM7Ky+jLITuVcOYE8bvXF3HnvW9KK0 CMsFkQaeKhHYj1xofiG4n8KrFxo8sd4ZcXM6R1Own2CoVgnmaHI2F8JTw5wQ W0Izqgg7eUordxF7eMuHGu2r5xFzcpE/gD3hbX+IIGfEyaT195Cps8jE8kwy H7uBZ6TpD+w/fzAzMmvskVwlMhXaRYdbL+1PF5zDSu2z8+5l2aDeB7dzdmMP qtitjPsbUCKz/ojHXSuU/51jdwC7p7Hyc4GriZKia70tULjTEdpx7Kmrj24Q 5Ggt79R9aPDaDDm2Pv/bEXv7kp+LwLcHKHz1Sj6MDmjTXX2xd+ypeCZwttk9 0ywffbQpw0MyAvuNKPEBgedcX6mcl6aFPhOdb1OwF+0JnBc4q730kmz2LtTg reFbhP3/+V2mdZ1/dbfFV6aPxjLqsP8LXZOJXg== "]]}}, Axes->True, ImageSize->{279.80060668038266`, 432.}, PlotRange->{{-2, 2}, {-2, 2}, {-1, 5}}, PlotRangePadding->{Automatic, Automatic, Automatic}, ViewPoint->{0.6467020945607904, -3.033739514193151, 1.3521098183630607`}, ViewVertical->{0.1399904865814104, -0.37822393766419743`, 0.9631774537423261}]], "Output", CellChangeTimes->{{3.462661385384289*^9, 3.4626614105929337`*^9}, 3.462661482091002*^9, {3.462661576201923*^9, 3.462661584378854*^9}, 3.462661694419812*^9, 3.462662384212983*^9, 3.462662450242305*^9, 3.462662821349127*^9, 3.4627030112859707`*^9, 3.462706602197052*^9, 3.462706722767956*^9, 3.462706890904114*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"s", "[", "t_", "]"}], ":=", " ", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "'"}], "[", "t", "]"}], ")"}], "^", "2"}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"y", "'"}], "[", "t", "]"}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"z", "'"}], "[", "t", "]"}], ")"}], "^", "2"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xt", "[", "t_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{ RowBox[{"x", "'"}], "[", "t", "]"}], "/", RowBox[{"s", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"yt", "[", "t_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{ RowBox[{"y", "'"}], "[", "t", "]"}], "/", RowBox[{"s", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"zt", "[", "t_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{ RowBox[{"z", "'"}], "[", "t", "]"}], "/", RowBox[{"s", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sn", "[", "t_", "]"}], " ", ":=", " ", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"xt", "'"}], "[", "t", "]"}], ")"}], "^", "2"}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"yt", "'"}], "[", "t", "]"}], ")"}], "^", "2"}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"zt", "'"}], "[", "t", "]"}], ")"}], "^", "2"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xn", "[", "t_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{ RowBox[{"xt", "'"}], "[", "t", "]"}], "/", RowBox[{"sn", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"yn", "[", "t_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{ RowBox[{"yt", "'"}], "[", "t", "]"}], "/", RowBox[{"sn", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"zn", "[", "t_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{ RowBox[{"zt", "'"}], "[", "t", "]"}], "/", RowBox[{"sn", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xb", "[", "t_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{ RowBox[{"yt", "[", "t", "]"}], " ", RowBox[{"zn", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"zt", "[", "t", "]"}], " ", RowBox[{"yn", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"yb", "[", "t_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"xt", "[", "t", "]"}]}], RowBox[{"zn", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"zt", "[", "t", "]"}], RowBox[{"xn", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"zb", "[", "t_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{"xt", "[", "t", "]"}], " ", RowBox[{"yn", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"yt", "[", "t", "]"}], RowBox[{"xn", "[", "t", "]"}]}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.462661492766466*^9, 3.462661589676857*^9}, { 3.4626626489671583`*^9, 3.462662653838107*^9}, {3.4626626982595787`*^9, 3.4626628071838207`*^9}, {3.462706725653215*^9, 3.462706788526415*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", " ", RowBox[{ RowBox[{"Show", "[", " ", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"y", "[", "t", "]"}], ",", RowBox[{"z", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thickness", "[", ".005", "]"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", RowBox[{"{", RowBox[{"b1", ",", "b2"}], "}"}], ",", RowBox[{"{", RowBox[{"c1", ",", "c2"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".01", "]"}], ",", RowBox[{"Hue", "[", "0", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], ",", RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], ",", RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"xt", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"yt", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"zt", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".01", "]"}], ",", RowBox[{"Hue", "[", "0.35", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], ",", RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], ",", RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"xn", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"yn", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"zn", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "]"}], " ", ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "100"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4626616191921186`*^9, 3.4626616243581257`*^9}, { 3.462661708341215*^9, 3.462661818314694*^9}, {3.462661849175173*^9, 3.462661899346345*^9}, {3.462662009768916*^9, 3.4626620102141123`*^9}, { 3.462662046549934*^9, 3.462662245651493*^9}, {3.462662320398172*^9, 3.4626624003444147`*^9}, {3.4626624782206383`*^9, 3.4626625290794897`*^9}, { 3.462662849065608*^9, 3.462662957036001*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 79.72503271102904, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`k$$], 1, 100}}, Typeset`size$$ = {293., {214., 218.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`k$33798$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$33798$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Show[ ParametricPlot3D[{ $CellContext`x[$CellContext`t], $CellContext`y[$CellContext`t], $CellContext`z[$CellContext`t]}, {$CellContext`t, 0, $CellContext`L}, AspectRatio -> Automatic, PlotStyle -> { Thickness[0.005]}, PlotRange -> {{$CellContext`a1, $CellContext`a2}, {$CellContext`b1, \ $CellContext`b2}, {$CellContext`c1, $CellContext`c2}}], Graphics3D[{ Thickness[0.01], Hue[0], Line[{{ $CellContext`x[($CellContext`k$$/100) $CellContext`L], $CellContext`y[($CellContext`k$$/100) $CellContext`L], $CellContext`z[($CellContext`k$$/ 100) $CellContext`L]}, {$CellContext`x[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`xt[($CellContext`k$$/ 100) $CellContext`L], $CellContext`y[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`yt[($CellContext`k$$/ 100) $CellContext`L], $CellContext`z[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`zt[($CellContext`k$$/ 100) $CellContext`L]}}]}], Graphics3D[{ Thickness[0.01], Hue[0.35], Line[{{ $CellContext`x[($CellContext`k$$/100) $CellContext`L], $CellContext`y[($CellContext`k$$/100) $CellContext`L], $CellContext`z[($CellContext`k$$/ 100) $CellContext`L]}, {$CellContext`x[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`xn[($CellContext`k$$/ 100) $CellContext`L], $CellContext`y[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`yn[($CellContext`k$$/ 100) $CellContext`L], $CellContext`z[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`zn[($CellContext`k$$/ 100) $CellContext`L]}}]}]], "Specifications" :> {{$CellContext`k$$, 1, 100, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{335., {250.375, 255.625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.4626618879692993`*^9, 3.4626618997321367`*^9}, 3.4626620105651007`*^9, 3.4626620522498903`*^9, {3.462662108681601*^9, 3.462662246564974*^9}, {3.4626623776302633`*^9, 3.462662401086829*^9}, { 3.462662471400887*^9, 3.462662478964299*^9}, 3.462662534224524*^9, 3.462662918063096*^9, {3.462662948917899*^9, 3.462662961971676*^9}, 3.462663131255506*^9, 3.4626634192768097`*^9, 3.462703018668844*^9, 3.462706606342201*^9, 3.462706896206718*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", " ", RowBox[{ RowBox[{"Show", "[", " ", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"y", "[", "t", "]"}], ",", RowBox[{"z", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thickness", "[", ".005", "]"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", RowBox[{"{", RowBox[{"b1", ",", "b2"}], "}"}], ",", RowBox[{"{", RowBox[{"c1", ",", "c2"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], " ", "+", " ", RowBox[{"u", " ", RowBox[{"xt", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], " ", "+", " ", RowBox[{"v", " ", RowBox[{"xn", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}]}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], " ", "+", " ", RowBox[{"u", " ", RowBox[{"yt", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], " ", "+", " ", RowBox[{"v", " ", RowBox[{"yn", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}]}], ",", RowBox[{ RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], " ", "+", " ", RowBox[{"u", " ", RowBox[{"zt", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], " ", "+", " ", RowBox[{"v", " ", RowBox[{"zn", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".01", "]"}], ",", RowBox[{"Hue", "[", "0", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], ",", RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], ",", RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"xt", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"yt", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"zt", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".01", "]"}], ",", RowBox[{"Hue", "[", "0.35", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], ",", RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], ",", RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"xn", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"yn", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"zn", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "]"}], " ", ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "100"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4626616191921186`*^9, 3.4626616243581257`*^9}, { 3.462661708341215*^9, 3.462661818314694*^9}, {3.462661849175173*^9, 3.462661899346345*^9}, {3.462662009768916*^9, 3.4626620102141123`*^9}, { 3.462662046549934*^9, 3.462662245651493*^9}, {3.462662320398172*^9, 3.4626624003444147`*^9}, {3.4626624782206383`*^9, 3.4626625290794897`*^9}, { 3.462662849065608*^9, 3.462662957036001*^9}, {3.462663283986516*^9, 3.462663313614346*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 97.46310234069824, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`k$$], 1, 100}}, Typeset`size$$ = {293., {214., 218.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`k$34782$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$34782$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Show[ ParametricPlot3D[{ $CellContext`x[$CellContext`t], $CellContext`y[$CellContext`t], $CellContext`z[$CellContext`t]}, {$CellContext`t, 0, $CellContext`L}, AspectRatio -> Automatic, PlotStyle -> { Thickness[0.005]}, PlotRange -> {{$CellContext`a1, $CellContext`a2}, {$CellContext`b1, \ $CellContext`b2}, {$CellContext`c1, $CellContext`c2}}], ParametricPlot3D[{$CellContext`x[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`u \ $CellContext`xt[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`v \ $CellContext`xn[($CellContext`k$$/ 100) $CellContext`L], $CellContext`y[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`u \ $CellContext`yt[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`v \ $CellContext`yn[($CellContext`k$$/ 100) $CellContext`L], $CellContext`z[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`u \ $CellContext`zt[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`v \ $CellContext`zn[($CellContext`k$$/100) $CellContext`L]}, {$CellContext`u, -5, 5}, {$CellContext`v, -5, 5}], Graphics3D[{ Thickness[0.01], Hue[0], Line[{{ $CellContext`x[($CellContext`k$$/100) $CellContext`L], $CellContext`y[($CellContext`k$$/100) $CellContext`L], $CellContext`z[($CellContext`k$$/ 100) $CellContext`L]}, {$CellContext`x[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`xt[($CellContext`k$$/ 100) $CellContext`L], $CellContext`y[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`yt[($CellContext`k$$/ 100) $CellContext`L], $CellContext`z[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`zt[($CellContext`k$$/ 100) $CellContext`L]}}]}], Graphics3D[{ Thickness[0.01], Hue[0.35], Line[{{ $CellContext`x[($CellContext`k$$/100) $CellContext`L], $CellContext`y[($CellContext`k$$/100) $CellContext`L], $CellContext`z[($CellContext`k$$/ 100) $CellContext`L]}, {$CellContext`x[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`xn[($CellContext`k$$/ 100) $CellContext`L], $CellContext`y[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`yn[($CellContext`k$$/ 100) $CellContext`L], $CellContext`z[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`zn[($CellContext`k$$/ 100) $CellContext`L]}}]}]], "Specifications" :> {{$CellContext`k$$, 1, 100, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{335., {250.375, 255.625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.4626618879692993`*^9, 3.4626618997321367`*^9}, 3.4626620105651007`*^9, 3.4626620522498903`*^9, {3.462662108681601*^9, 3.462662246564974*^9}, {3.4626623776302633`*^9, 3.462662401086829*^9}, { 3.462662471400887*^9, 3.462662478964299*^9}, 3.462662534224524*^9, 3.462662918063096*^9, {3.462662948917899*^9, 3.462662961971676*^9}, 3.462663131255506*^9, 3.4626633178104277`*^9, 3.462664051767123*^9, 3.462703021952758*^9, 3.46270660991016*^9, 3.462706903334873*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", " ", RowBox[{ RowBox[{"Show", "[", " ", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"y", "[", "t", "]"}], ",", RowBox[{"z", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thickness", "[", ".005", "]"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", RowBox[{"{", RowBox[{"b1", ",", "b2"}], "}"}], ",", RowBox[{"{", RowBox[{"c1", ",", "c2"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".01", "]"}], ",", RowBox[{"Hue", "[", "0", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], ",", RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], ",", RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"xt", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"yt", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"zt", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".01", "]"}], ",", RowBox[{"Hue", "[", "0.35", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], ",", RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], ",", RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"xn", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"yn", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"zn", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".01", "]"}], ",", RowBox[{"Hue", "[", "0.7", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], ",", RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], ",", RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"xb", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"yb", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"zb", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "]"}], " ", ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "100"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4626616191921186`*^9, 3.4626616243581257`*^9}, { 3.462661708341215*^9, 3.462661818314694*^9}, {3.462661849175173*^9, 3.462661899346345*^9}, {3.462662009768916*^9, 3.4626620102141123`*^9}, { 3.462662046549934*^9, 3.462662245651493*^9}, {3.462662320398172*^9, 3.4626624003444147`*^9}, {3.4626624782206383`*^9, 3.4626625290794897`*^9}, { 3.462662849065608*^9, 3.462662957036001*^9}, {3.462706807907445*^9, 3.4627068716011553`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 10.571817779541016`, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`k$$], 1, 100}}, Typeset`size$$ = {293., {214., 218.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`k$31425$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$31425$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Show[ ParametricPlot3D[{ $CellContext`x[$CellContext`t], $CellContext`y[$CellContext`t], $CellContext`z[$CellContext`t]}, {$CellContext`t, 0, $CellContext`L}, AspectRatio -> Automatic, PlotStyle -> { Thickness[0.005]}, PlotRange -> {{$CellContext`a1, $CellContext`a2}, {$CellContext`b1, \ $CellContext`b2}, {$CellContext`c1, $CellContext`c2}}], Graphics3D[{ Thickness[0.01], Hue[0], Line[{{ $CellContext`x[($CellContext`k$$/100) $CellContext`L], $CellContext`y[($CellContext`k$$/100) $CellContext`L], $CellContext`z[($CellContext`k$$/ 100) $CellContext`L]}, {$CellContext`x[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`xt[($CellContext`k$$/ 100) $CellContext`L], $CellContext`y[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`yt[($CellContext`k$$/ 100) $CellContext`L], $CellContext`z[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`zt[($CellContext`k$$/ 100) $CellContext`L]}}]}], Graphics3D[{ Thickness[0.01], Hue[0.35], Line[{{ $CellContext`x[($CellContext`k$$/100) $CellContext`L], $CellContext`y[($CellContext`k$$/100) $CellContext`L], $CellContext`z[($CellContext`k$$/ 100) $CellContext`L]}, {$CellContext`x[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`xn[($CellContext`k$$/ 100) $CellContext`L], $CellContext`y[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`yn[($CellContext`k$$/ 100) $CellContext`L], $CellContext`z[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`zn[($CellContext`k$$/ 100) $CellContext`L]}}]}], Graphics3D[{ Thickness[0.01], Hue[0.7], Line[{{ $CellContext`x[($CellContext`k$$/100) $CellContext`L], $CellContext`y[($CellContext`k$$/100) $CellContext`L], $CellContext`z[($CellContext`k$$/ 100) $CellContext`L]}, {$CellContext`x[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`xb[($CellContext`k$$/ 100) $CellContext`L], $CellContext`y[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`yb[($CellContext`k$$/ 100) $CellContext`L], $CellContext`z[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`zb[($CellContext`k$$/ 100) $CellContext`L]}}]}]], "Specifications" :> {{$CellContext`k$$, 1, 100, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{335., {250.375, 255.625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.462706874527849*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Ex 2 : Goofy", "Section", CellChangeTimes->{{3.462702987826441*^9, 3.462702992392707*^9}, { 3.46270694745086*^9, 3.462706953659136*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{ "L", ",", "x", ",", "y", ",", "z", ",", "s", ",", "xt", ",", "yt", ",", "zt", ",", "a1", ",", "a2", ",", "b1", ",", "b2", ",", "c1", ",", "c2"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{ "sn", ",", "xn", ",", "yn", ",", "zn", ",", "xb", ",", "yb", ",", "zb"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x", "[", "t_", "]"}], ":=", RowBox[{"Sin", "[", RowBox[{"2", "t"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y", "[", "t_", "]"}], ":=", " ", RowBox[{"Cos", "[", RowBox[{"5", "t"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"z", "[", "t_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{"2", "t"}], " ", "-", " ", RowBox[{".2", RowBox[{"t", "^", "2"}]}]}]}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a1", " ", "=", " ", RowBox[{"-", "2"}]}], ";", " ", RowBox[{"a2", " ", "=", " ", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b1", " ", "=", " ", RowBox[{"-", "2"}]}], ";", " ", RowBox[{"b2", " ", "=", " ", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c1", " ", "=", " ", RowBox[{"-", "1"}]}], ";", " ", RowBox[{"c2", " ", "=", " ", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L", " ", "=", " ", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"y", "[", "t", "]"}], ",", RowBox[{"z", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", RowBox[{"{", RowBox[{"b1", ",", "b2"}], "}"}], ",", RowBox[{"{", RowBox[{"c1", ",", "c2"}], "}"}]}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.462661339867869*^9, 3.462661410250737*^9}, { 3.462661568112699*^9, 3.462661582841302*^9}, {3.462661634309874*^9, 3.4626616938607903`*^9}, {3.4626623083028173`*^9, 3.462662314003613*^9}, { 3.4626624403844*^9, 3.462662449670765*^9}, {3.46266281353992*^9, 3.46266282070792*^9}, {3.462703031249702*^9, 3.462703060726856*^9}, { 3.462703155615946*^9, 3.4627032528522*^9}, {3.462703285993507*^9, 3.4627033275338097`*^9}, 3.4627069440863523`*^9}], Cell[BoxData[ Graphics3DBox[{{}, {}, {Hue[0.67, 0.6, 0.6], Line3DBox[CompressedData[" 1:eJwUmnc8VW8cx5Hsde+lMlIJRUpEw/o+DRVKJJIySiRpolAKhZQGQgiFCKWS PXpIZpKZvTf33mNn+51f//Tq/bqv5zznOz+f12nThesnbdhYWFg2sLOwrCL/ LnW/wKF0MULrM2OF/EOAVhDr0k7y3zYZOrPHNrpCv9yCNTfJV7bvVbeQdIX3 FQ9U/23wg0zHwM8yiwR0Kkg57pDwg11q15d+NgaC/+Xjgsb/CKhZ73YxvC4Q 0sNjhi03hMHQWqvfoWMExG/yE9y0LgzqSvR782yjocMz3pA5SAB903e15LPR cCzaY8/A3xi4bxW16Uw7AYYv+Bwl/sSAAnEk8cL6RDjKfKF/7QcBaT5vLRSF EuGxHKP1CPoIIhfO6YqlEpCz4uO0oPgRVJflbAYvfIapFts/7dEEzN320NU5 8RmyrFqORNSlgtGe9JnPzgRQdpqIq5akgr2Kh0eUSDYMHL2cHM9DwEuBKV8r lmzouUEzeP4+BzBXIU1llAkzB3cFHX+eA/r9bFc0VPPg6KXg5b5yJrjN3r2/ IJ4H7CoP1v80wnBWJsA925MJjR1y02G7MeSKbRp9UvIDNHU2HHZoZcCt6rtf b6T9gHJ0Y1vaTBlkvPQcP76PDtvct2/83VUGD6QMT2TlloP97tuh+5dGoVBI NL7ifTkct5JduedRAZxVFv3eeBQGrbnffLCvAPzL7xrirgRx3yM3BGEU2o7O Nq6e+gV56F6s29o/YBGcFPZKfgQc+QVfaq/+A2oWwVlPA2uh/WCr8LbMQYhD L1kYL2uhWjecmL/bBN+HPGssy7uh2u+yY/K7JrDjbdnl2dUEsSrfDvmd7oYA RJ3Q52kGnt8ZlvhQM9zdYPrGpa8Lfvd49XXeagZWEOq34GsBvlZdraDpTsga zpWuONgCRqf7hXlft8LDwW5lDZU2MGV9Ri3oa4WobzetJd92wIo0Z7uSST0U nE6OVdrcCVfX0eYrVHtg1fzFdaFnP0GIAf23SHkP6JtvFNA7OwhbNo3HP4J2 rFY3f1NTYhiq9cvCJtwH4fNzg811GzvwiBNXGkN3GDirV8ot3g7CyZpfzdos nVifqtoV7DoMWad+5z3sGwRb5jWXL+e68FY0OvP77zAYhnQ+m7k8BEcs2HNc uXuwot2v9e0vR4B917Gh3ZeHYUdg5F+qQj/2HTYzvLOKDt0vPzxY2D0KL03q BAuvjOBzXzNORPQw4XdMx0y44Sjc2xNKTUkdwag8tuGoEAFfj52+NH1lFP4u lbpN/xvB9W2ftZmaBKgE2sq3RI9C48EIdy/3USz4T7pvYxgBTv9Kxc+x00Eo 4LWctBMdM+7ufxa4ZQzYTm/i5i2gw+sag2cmfExsLuKbUd82Bk8b/M9r/KWD pgM6KL2HiVvvO1fYT46BIv+Rdmk6HaxvdtUKWzGxkq1j3SL3OIy5T50XW8sA PpZir1MfmdguJfKn8J5xUHL7gwMuM0A1RxsL7CDwsvTHzcIB4+D44cjx2+4M SH0RLfhNh8AH3dd0+SWMg2WBz2mhAAaMW0zpXLYmsKXRy4CF/HHglJyXuJjJ gJlAtoOrAwi8yTW1rnZkHG5Puyt6szDh6tNZu7/1BK5J+lJvcGgCBoLQqmwK E7bG3Y372EXgn5p3JXabTYAYd0F1rBQTLvGscEaPEDj+k5/n2hsTMF82cE17 FxOk9vstfpwgsMt866pp7wkQWGWYHnmQCevCmzn/zhJ4r/St2KqICQhgP37v oxETTJ2vV4ouEXhQ/phV3NcJaHvd+uamNRPcK19wu6wQ2FvAXu126QSI230Z o99igjS3TsQYyal/fikdap8AnVPKJyW9mPBA1tnt4TKBXzjcPCwwOQGP6+++ WR3AhIb1OXk7Fwg8P2DmUs81CWn6Z5NjopkwEvn41ew0gY21HpeGSE7C8etG Z6c/kXHgFzVsZRI4+tbcLmOVSUh4EOG3lMuEJ022Fs39BG58mJIvqDsJ1jkb hHPJuTPOLa892ULglZsJF0ssJ0ExyrN5eyMT0hX/JMlVEXiNZt9WV+dJ8Ho1 Fqg8zgTb4Ny1RAqBKfZy3HVvJ+Fq+e8jP5eYwPadde7BGwJP/1KSccuYhFhv uWwecg7OBvDyKz0mcBnPfYv1lZMQdLHBLH0TARbJP3JmzxBYfUPPVtN/kyCo d+nR/eMElC0mthweZGLT2CaJ6ONTkOQVy/btNAG7JoX2spYwcTp9RWqL9RSs fTxzIeI8AaYxnQ+GYpiYlXblcLLLFHzaf9be14mAZRZhzcOnmdhmhq8/IXYK Dq9j2VgRQoAcbezWgyQGtl73wPPW3BScyC9RjYgioNH+i023GwPv1Sm+2Sow DdpFNzw3xBOQUfWt76EOAy+anHiApKcBJ0jf2p9GQFvPjElINx2f5FacWNaf Brv27sGhSgKmmrVv6SyN4l3lEnuOx03D6nWefw1rCVCNLr/JWTCKPbs9KaHZ 05AidtX9aiMBInbqsNFzFH//K8/dXjUNQh5Hi/K6CJD++/HIzeURzG561MB8 bhrcXk2w5hAEOAed8VnpH8Yl6V81FfVnIOldnkfmBAFurUfyWN8M42fpqmxm 1jOwmilz+dI0AdMbJLQeGAzjA4FLvR4uMyCt52LeMUfAZq9Y6eW0IezWY7ry I2YG0uP8LN4vELDdJqKQy2YILxrT93ZkzsD54SffJJcI+NtxW+wdbQhfjS96 MV05A9y5g6a6ywTo3y5nqywYxFV1Hau4e2Yg0KZMbyu571tsaqyfOwxiyQ7N 4HX/ZuBPP+VJFsmVhbZrMNYMYoviroPSfP8gmmlDXSC5k9KLaAYewP5+pYIK m/6BBl2qjyA5f/XNjFeXBnCi/MSs4u5/UL764koIyS0mSvMH+Qdw+gerFUW9 f8CzntVmjLxP2PoUDnpqP/6yirZZweofnKt8vmaRvH9QjOhMvEk/Dlfnvijt /A8qOtwvyZPv+8j/fb5JeB9WP1CoyR39D/b7GnJsIuOzMQc/l1Huw2laGcm5 6f/gy7fKw3kzBOidzvv4tKwXd1rL+16u/AfmuWLlXaQuad2+w0p9vAdrb33p kzn3D36F1dT2kHlkfC3qXlTuxmZhhgkSp2bB77vLnZVWAjbY5sScKejCZ1rB M8l+Frxec1AK/5L1dv2h6tNjXZjr8KeyXZ6zcGOswnLXLwLs5Hc4iBV1YNfg 1W/3psyCQsbdE38/E0BdSrw9uNSC30l8vMHLNQdyyviOxAdSD33XF83lbMHS cUEZTpJzoJWrKMf1loAYe5OGfMFmfObU/OVmlTloMJh6VP2cgCM+yoxgsUZc t0NbNPj8HNyQZR3YYkdATzbH7Xvr67BAZXVYQ84crNdULf+/r0fiBa+n/CnG cQlY6q7DPNinpfhlLDJBodlQcyi7CCvlhKEIr3mwDtmUz00wYceridzCmEJ8 fXriV8breaiKRWIJtUxI0hO/Xtudg5f6pbZ1/ZyHibUflH4Ek3O7yvJRAF8c tvrswrsosQCCFrHb3/EyYTiQ7bY7zoSDvQtGppULcD6q7+/1TDq0nV5XKmfx Fzz/WLHHblmCjOclQavf0UFDbbB3XqcRAtwP5BaoL4HRcrfAqSd0+HVyVfZ5 lSZ4LpRwu+XEEsyo2UhJnKOD70B+YiZ7C+j2z86zuiyBpfKTtZaLo+C2Lfv9 QkA71OngfZvKlqBtL6tWv+IoJKW327jK9YDUyt8Xby8tQ1R8VWj+xWG4miB7 q4hnCL6IKUfFxK6Ai4hAeL/2MKj+aow5aT4EWrY3+lHmCpxv60irkh2GuLm4 atuUIcgKUVJqrVgB1lMm9v2DQ3DDfdCb59gwXI/X+LtqYgWKhJxvbr80BEWv NirnOo3AnQK1ZOpGFuQf2PjrmtkgaGS+aBq7QwcRSnZo/VUWVEXVpP/eMwjv Tngnp38h42FxvfPhHRbU8C3mwKTwIKy7o6mUN0iHpvWX5JQ8WZBkyDI9oGoA 3jrbCXkaMMBxSuyn9ysWJH2NrWkrDID11/QDQXxM2LkSJLw2lwWdEG6v5l3T D14iPhX3Fcj5/eTXphZOVrTj8o/MYnof1P80mDigS4BvTrb5bior+uj12/FA UR+EWa659cuGgHDxxQMvJVjRop2Doc/1Pkhku1ayiZzT32+6c2sqsSJ7wZJL +tp9EH9hYAs9iYAq27yRF+qsaMOFKo1WsT4wtbZZcMwn58qzE85d2qzo4vg4 Tbu4F24VJjVmkH02dfWWj5sZK6r4qiG0ObwXJIyCM6+TfsF4Kxv/z4usqFM3 EJde6wXXCzOZ3WQfcwkPaPBeZ0W8G7683XWwF5LWainwzRIgpCS5xsCVFRlH zSlfWtsLgz88A5ikf3F4kPQ68CErotbenrkw2gOHVLyfPybnk/jKk5+1z1jR 04HaK1twD7CKFU42k3zDFxwm9JoVjaSaCacH9kDTRdvcHnI+3Qk8uu5YDCs6 Cgs3+Wx7YFOqBXcsOYek4mWQ90dWVHsUce7Y1wPpuTrbxCdJPmpCyctgRbt+ njwtxtcDP3/fea03QsDt821PxwpYkf+8/x7jr90wzSnO1lRDgGhP772TDeQ5 O3lr4h52g4/M0XxV0gddpttMPuhkRfOlLHsLjbtBzJhr/4kvBPBt1aAlD7Oi 8tk7vhfmuuD2SupgjjcBBrv69eeXyLzoLrkPVXRBgYyPsNBVAsbYsuwludiQ /+llc803XTC/02f9lpME9K7qVERUNuRt+mXRWKsL/tU4RMSIEFAaJpdxT5YN XeO09oll6YQgu09CgqQOchf5mtqsz4bWH5jekEfq+csXPMq+nmZC/nUZ0VFT NmRgGaJ0F3VA0fuBLfLbmGCwwNg6f4ENWfB7bB6/3w656aM5H34xwCn+7iHK HTZkvk76SOu/Vpi5cvk3TNIh6Zjflc3RbOjCzqyW2JYmEOYfnr3UNQJNTVdd G5lsaHSRI1LAoRbiNUpz35n0w66xs6/u+69CfZ/1T9NW18KWQenh+nGy7h50 +qwNWYX671GO9UfWgL/v3UOhT/uA3cxsb0r0KnQ58tqN6apq4JZ7iPtzemFk XLWpPnUVur/qqvRv8yqwzWPJcOLugX/Jj3g5m1eh7y85/cWqSkGzC97PNbeB kI4HWpFmR1cOPjgjz5YOrM7V/ALiFXBgy1ivVi47ckwpOz2gV4C9v1ESvwvX 4yjHVKGFrtVInO9aUTi1EK92aXzGwtaAP/sbXrQbXo3WJZw7JdNciN8F+ASw MBswO72tsG58NWIaBOml2xThL3Pdfmw/GrGre1Z4HBsHCjY8ee3pvRJcF3mr 29e0Fb8c9SraIc2Burffk7gcXYmzbGVON4t24+tTF8f7bDnQWbNls0sm9bjv YyMtQnoQj2WZf28a4UAbw+XTDNPr8Tdj2VB7t0HsEu59gnOSA+U2jx3lFm7A sh6vLWurBvHBH2EjuxY4kPrJ+Udt1Q14/Hj+WxPHIRzX56Ply8uJqrQXWeaP NOLrjmzdiUnDONDJyXyNAicSN/sScnRbC96716jBp2oUbyp8c+evAyd6nzM5 He7Tgj128Wum8NJxL4dfQr8TJ5rxKj7+sbsFG0+EMrccoeORwPPdE/c4Ue71 z/Zcoa3Y6/o0L3s2HRe6N97ifMaJlA8nrnm+3IYDH+wfZ33MwBFRf/lEP3Gi u9rD+oIFnfjvn6+7vKqZmI1fan0HnRMVTl0XWC/YhWkbUrj4p5i41jlA3XWa E9X1pcmza3Vh7jTf3fYiBN7RFMdLXeZEleF1ttoRXVjQd8Ay0JDAT/0yCzQE udApvTbXqPIu/Pt57IYzDiRvynhftZYLSdx+sbX0XxdeTJsrGH5E4LWbzDQs NnIh86nD2t5G3XgpQm7g/GcC10f537+txIVOS/5NEvXsxlUBvQ6HCwnMXi8u v7KPC/Ve3hpxN6UbOw0ptDKrCVzAdsLX+wAX2k6/EpTU2o3vr2auMesgMOc2 2RBuPS70M/48JZ6rB9st2ezwHSZw27F3Jk+NuBDnikXQVdUezBqqbupM+iYN u4IynnNcaGLXidcsF3rw8O2nk5vnCLzV/SHd9yIX2lubFm3xvAdvujXpG0j6 puinI4VsV7lQtGyynG9OD27kiCguIP1RTND00bvOXCglZTDDdYA8Z36vdwrJ lYPjPMfduVC4b26ZKrUXJ2xYU3aWPEf/5b8rNj5cyKlVuDtHsxenqfFnlZF+ bfoRk7PxORcKOObhxXW5F0/THidMjxNYztHP+HAoF5KzlN8p+aoXN3xwpfQO EXjYrOzUt2gutKW76+rC916819s4LKCdwCoayaslP3ChQc3mZB7hPrxdscFM tYDA10bP3aNncSG21OEMda0+PCt29b0C6Y/Ms7cdMCjkQquexl9StuvDYoap isNhBG7yiMr+Ws6F8o5N/r2W24eN5MI6M+0J7Lh4Pf9qCxd6VNHeusayH28t MbjRPs7Ee+J/rKtY4ELafcXLl3z7cf+aO+cVq5jYB329Is7OjYKOuVHvfu7H xxuTjE0+MLFV/cEb9nzcaLpySKt/uR/fH38mssOEiXOGTj1nXc+NSkamVPPD B3DHUBPfmdekrymSlRTW4ka8Ixf0xUoGcdtkoUxO9ijGh/z8Kx5wo1+tW07G Dw3j848mZldeDmD16zpx91h5kFGy7W1djhGc43E6wG73AK41Vkxc4OJBPFz7 933aPIIlZZxtnFr68ZhsYLKLEA8qpG90+mQ+gvMS1tr4S/Zj/Ljqg8MGHtSU v6f+ZdUI9qu6UGIV2ovjdaW8NTR50A9ZSWp87Ci+QHE5MmnQhWNKVYvvuvAg /Zm9Nw+JMrDvIaENXNK1WDeez9qFwYPmOtZqqO1gYJV7D1OP7qzBSe0v1mZO 8aC80LrMgQMMrFUaaH1XvRq/XHlRPrnAg47VNU9cuMLA5iU0t4HISsxk45S9 xMOL0pauzvRkMXCs3lxaYuNP/I+zukB1Cy8a/1EZ2KjNxL2tdUMqJnFYlbfK /ZYVL+L5qTHtIEvgVu8/lAsOFXBhxlXEvoYXhUlFeCYqEXin+9WNYicrYWjz hLZ2Ey96SvPID9cg8J+58w2yu6vgx9MJX8lOXmSUOdASTvZ/W4/OGtvFanDl 8Ue/6LzoYMjRaQEXAusF7jMKTa2HoaJNj/i5+FDmJy7dbxkEzrotdYi1uxVq ZZtOqWrxocp7zouK+QTm4qZ0TOM2+DJXFzl+iA/FJzzhtyoisL/Ym7i9ke3Q x2E6m6zHh7ZxvBdqIX2+0q7WeKeTnXCserZb7Awf8krskVHpIfDDkKuLikbd ILkh0rfbkQ9NfK000h0gcMj4qfOKud2Q+LPl3HM3PpS1RsqdNkJgh5ErezZL 9YBf3NuD+zzJ8w/vi/o+RmDvMVXWanoP6NKKtf2e8yGlsn9H7swT+LaDl8Jr pz6o+nhDgprIh64PrnaTXiTwYctN1a/qyH0qM+b++TMfqp/Iu/WI7PPmbWOK p5X64WXjvzHdDD5UIvlrR+gygSvapYqbn/XDrZ++zn15fOihWFjyOXJecPKX iq8d7oek0Wjee0V8yHKN7mA9ySmya+q4Dw7A3uPoG6WCD+mV5XatkFwpoCTy Y8QAiA3bObyv5kN+13xC20n+7NvZA/MTA2CERffsaeRDydWLvNdIfrLYKYJx dBC6/5yklbaT8ddSgK/kfS67iL32jByEn2LCrMZ9fGjVizblBPL+Zld4Nb6O DcJytDlL9wgfcv3y0DaZjAOvnujEn0BS75/x2zX5jw+Zv0n5lE3OL+vRTuf0 7iFIenblkusyH9J6/qPIbYbAqjYNjzYrDoPaYsPHJXZ+dGytkKMIOdc8/m4S 9S0eBrPHBx1YqPyoPt1AlGAQeKBUttBRYARG3h8euL+OH73RefzhLpmvUR0N tUbjEfizVHNzQZIfDauNxH4i8+7DFO0Z7xyB8HOe+cxt/Iiq+1jm9h8Co2JD To7uUVD9e2DLd21+lNt9R2aonMCKXPXBe9fT4VaJ7/btx/iRtIqZDf9PAkd2 vhv6cZoO7OOntMNP8qOTzmodNzMJ7CcyKltTSoet076J1yz50St6ztW4cDL+ VZYJrkGkfss2OMTiyo+iU/m/sAYS2PeosOVYMQNUYqxvjjzgRw//tO5e7Ufg T/47lU1mGLDocNa01ocfbbWhua44E7hy4nVXtwET3n+YM4p4xY9sT+U2F+mR eyXlmkscnQmns8ZYqV/4UYlF1gETROAn26ZltAQIMP0qvzycwY+esJ1seqFC 4DPUbtkv2wmw8tdJw/n86HX2bqE5cfI+VVPPhW0JeDKkqn/xFz96JtUYljDA xG+tlM4l5xGgua98b+AAP4pt7Txyp4mJx0M/L9VWEnD/gDy7KYMftdUW6BDl TNymQssubiGgZPsNP/EpfpR8vrRMMJeJ1R4Gh3gNELBuIbysbZ4f7YncRzQl M/HhgW/FXKRPuZGUVBjBKoBUOoyHdN8wcbSBVuTp/7+bqEc7mXIJoHntk102 /kycy2odcY30KWqfXbqpggKoD51jl7/HxKseZ9ocJ/3IR/Y9XL9EBFDX6tde oVeYeJEDyidJLqPRMuQhIYCO0DY+STFjYt7CqznnlwmIN77wUGWzAFr8wK53 XYeJffvkjEPnCdhp+KexX04ANYPeTPMeJpZ9U972aoqAHzs2DbzaKYBOLjPy mTJM/PuCQJ4ZnQAz5umU/XsEkKV8a/0nGhPLRKz3Hu4mYPGF4066pgCqej11 bS0rE7tcuT2+v4F8Ls3J4dUhAXSzZ5xltIWBFXRvWRilE0At3EztMBRAD6eM bYxLGXjd0skQgRgC6kdq7z4wJZ/r1S9z5RsDh6nUdIb6ExA5YxstaSmAnNf0 RIU9YeDDr5OLxM4SoJumKWziIIDeUbe0cakycKublIBIBxPYyt6nJfoIoFav n3RbNzr+ctf9wqQ7A6YMrKp7cwRQ/JXguNjzdLydw/5hyFEG7I4wb7IqFEBS nVpfXxylY82ge7eUKAzwKIXw1lIBpPl1/eBtETpW8+MHizd02FGSqldRL4BE fIfL/JJHcTnH9SnOiFEYOWtEpk8AdfSusWUvH8Gvai5bfNEchr6h+46xmwSR UOrmU6afRvC9rC9dgcQQOD3Z7fxiiyDqebKoaR8wglmt27Mmo4cgXnzDPdft gqi8UEGs3HQEX9PPwgcXB2GK72HYkX2CqHf/12S3vmGcqjxxIzF2AHZvC6FW GgiihazFWToxhKs3EmMqqb1wzGR4yfmBIFovqK6t0DyAJ110TwPRDMW2B7OP twqiDqPs0l7OHmxU5M22b/U37LzX+rzPYSFUfOSiZXpLN35xt5jl96FMzGw7 bHBHRwi9/8LBb/SpG591UJLJ8crFL5uviFw6JoSOPIzOmTLsxrdYhf+qLhZi w1ZXqYMnhZC9nvtE5+suTL9k+sb6fAX+yRJ/hGEuhPyj7jx5rd6BA12KJrUu NmCHOq3v3M5C6N05jY8hgk34/XvVdvMDPfh36K1z1jFC6MTF/e+MkhrxXOVY Zv7XHuy435Om+F4IcWYUlfw61Iix+0Bz+YZefOBgzdu5BCFUKdKDJlz+YseD jZWl/3qxxQlVraefhNDvQa0rezvq8T8s2+cd0o+9/fgfvc0SQtO2O/I/R9bg rfbJv74/HsKh3svqQVVCSH2eZ8O+8WIsIW/PMkBj4F9ves6FzQmhBpa3gyyS xfjkwZKVP7oM/OJdxO1di0LIQ4vr4TPdn1jGRGEu6wEDZ4pb3axcFkIjARud l2N+4DNDxV6uvaTeucHLs7CKgpzqOe6wxH7Hj2l2JqaBTNwZNlqqK0BBv5ck 1ljO5eEFrcmQtiwm/qnDMtIqREFv1r9+6HAiF8/LvCg53M7EAtc3Mq7QKEhh 25qb8fOZWPd1z8aiDQT+Lfow5PE6Cgo588lYVP8r/lTAvXnDUwIvETXOaVIU tE38/f6eQ5/xAQdtjeC3pL/QO/BWQ4aCVEIm96gxkvGecVX77m+kThb/nly0 hYJu7ozP49J8j81tdHpm6gh8Q6LJpkqBgtZxiHIH9r3Def2e8/ld5N4+flv4 pCIFHUkev1C7NhKr1xUUmYwSmG1yQ1y9EgXtCy5UULQNwdj32qOCSQKfF2gQ NlGhoLYdrtbhdi+wyAHlxHnSd8hEB9v+3U1BkeVml++ze+GXaos/2cn9fOz9 +TDjfRTksLa6BHtcwDKi/AEd5D5v2rjvU506BV3YWjRr8vgmuFfO031JXkaR iDHQoqD1ch/OXNvqA/GFqR0s5D6XcOFxqUQUpG0W9GJfSQAcuecaqEPu7Xoj dsUjBynopKjOZh6X16D/YtDsArmfx+K4Swu0yfjsm71sw4iBc9URuzhIf2Gc sDv8iy4FzYZRMiu04+Hx3TsfAsl9G2Vq0SB7nIKyGeLh45GJsEuYf2EcE1j3 QcB4xAkKunOcy+iz7Bd43A/x28n9WaMg9tvrFAVZ5VbUNNZlQO7xrecKyD32 kitd6KAFBSm7bUx/dj8LopRd5rnXEHj+4t5TX6woSPJHwNTy1hxQOz2+Zdc0 E5ftLnWRsKagrHnvNhb3fLj6hufk9k9MMn6cNuOXKChQvn3ogdAPYLQY93Cx M3H9D6GKZzcp6MyO1dy+fT8gr3rXZHA9A1tWECITjhRkfuzvnjNZRUDMyAas i2Vg/SMtB4xvU5Dzqey7xpbFIGrWJsWnxsBm72pg3V0K0rdIa3RIKgPZCj0x YQM6lvqrU/LyEQVxX7MXpO36A+2BN7ed2jiCXQ5YrT4WSkGmuzsmcqb+QPbz m53XG4exhMn4udthFKTpGO/Kc7YajnQlMVmfDeODToyc6AgKklCw/zcqXgPn 1tEY4ZNDeE217BMimvx9NZ/6t4ha4KG4CUp9HsT1q6OcH36goN0avn99Ahug YJWLWktvH/58OcrjXjYFfQhni5s3aYUjg3LnnBra8BB10PZbCwUJPOR2Obe6 F0LN2BOyWIPBajTUSUWMigR0BmbrdvbClvs5YPwvBqYaneZ1JKjow85qR+Fz vbAYk6fv5pAMIXJZZhaSVJThbmnH/NoLLPpUS9WtGcC5eDPpoRQVHTAL6Z01 6wO1QT2O0LtFEGWe6lMgT0X3NIpml9/1A5biiRxcqYFwmq3yKnUqquWOqk5k GYJXXJYuDzO7oF43zOSjGRWpL30RMZcegoa+Md9r8t1wtPmAXOQ5KrqqHSD1 68gQeK44LMm86YaKypN//S2oiJm4bbnh2RCMlWieabnbA4s977HdBSoKMfxd E7FmGCY4oj0fbOsDauW6P1R7KnJ02qEUJDYCS1+jepD2IAgFKHUrulKRhdEH yBgehZSyjfz2KnQ4NrCj9lkIFfkff/xGn40OJ2u7uY9cp4O689JJ9ddUVPCe ZdU7MToc3XJsg90HOjjPraofDKOiGJlL87d06ZA5SGA7EQZUdGf91YykoujH SLQ4ng5/8m0EuFsYMK30o6M9loqktxkf2pJPB60acd1kDiZoXDE4//A9FR1l 14vfX0cHCQ//EhclJlSGrenbkkBFsR0ZylHLdHBJ9t3+1JMJVX91R64mUVHS BO/LMUMG8BTrZ+vxEnCq+uQc4wsV5ZgWvRCwZYAo2/Le1XIEjH176/40lYo8 zW9v7HVlQJbZu0NNhwho8pdl25pGRSKcNoqf3zJgMInz1M/bBDyWbOG1yKQi narMY/HfSF374caxFlK3GDRyBvzLoiLWK6r7jEoYcMNEJ2fVOwIueF9d8zKH ikwSaot/jzBgx7cLcv5FBNgVdm36nk9FocN1PBGLDPiq81hwuIaAcyeYCUaY zLv8T7v1AkzYrMWlatxBQHjtrh1DBVS0sm7w26kNTLixc6rxzxABm/W+pt39 QUW3RtUL0U4m0J6nnTIdJ+Bflq26wE8qOlvmbtuNmCDgT5VlkvpzjcSpH9HF VGSsJO2225AJ3odR/0tSfz5wctXZWUpFr+yt6+A8E9JXd+ogUmeq/PhbjcvI /HYp6C7dYMKXhFXyi/9/J1ztYKpfQUVczxQzr3mQcd+xz+0nqT/dNfd1tf6i IqPTTZNBL5jg4+R5PGyB1IFXtOzsflPR+9snWxyiyPNZTjWQPgkmnt0dm6yi orA/vtpzH5lwdnXE+csEARLxYy73q6loyWATZV8uE/gfpFjZkHo78FskK1ct Fb3R9xVVKGfCKbfjltdbCTiZ4fXkZR0VmYmJmmzrYwKH5KzMF0xAasTUm6i/ VNQc3XB4zzgTDqTsiB5KIevhvqesdBMVFWV5MKaXmHBFRsFN+Q0BYHL4y4dm Ksq9zd/xZA0BTms52FduEDDTf+dnShsVLR7WZREi6+NneXp+zCoChh65ESk9 VOTL+uBEij4BIsoZpf69TOiilLop9FFRydK2K8umBOQ3KoW/KmSC1Cs9jsR+ KtJoT3j3zYGMV53kymoXMk4ui+ujh6io8Q6//fWXBPCX3Jr5UsWA2oKlEw+Y VHSRntQnWk6es7ld6IUMHZxO3P8uOE9FbGutc9AfAj4/37LTqncUWnqyqiIW qCj1/H1tHlKXp0ZXbVSOHoWQk+9SZZeoiOc37z7vTgL2LBtuoguNArX07vRe FhoKOF3otbuP9CHpbOc7Skag9tfVUwWsNCS48/yhJ2SdpSksV/e7jcDwR37f w6toKLEvZWkd6XMWwj7L6rYPgyj76UsnOGjoQpByp9EkmT9dfePUp8Owy41F pJaTho7dPsanROb7k4ma9uG9wxBbeTrEiJuGeFPzttaS/qRg+d41bv8h8OUQ EjbioyEwecATQtYl6YgWD+0agnnGDaEafhraw/gi8f/3Yrf1TdM/m0j//vVB 13FBGnI4secsO1mXVh8U61/cG4QBQ41H5UI05OLFW5RCcgcmv/JHyUE4VxW/ cJBKQzOF+07+/117dNqubCMeAPkt+HA+jYb2eXdzjvz/Xdv7+bUp8wHQP+dt oypCQz2eqn1uJOfNjxfdsdAPZVfnTn9cQ0O6yXeHPpF1Lx+o0lYf0g/hZ8Ul pdbR0M8d/GsfkvfcI/eqn9jZD4Uyo5khojSEHUwc58l+UJC54+lT3gdalXYy POI0tMpsU9kfsj+Nx4XlD830glbK1buM9TT00LK1cvs02YerN512e9ILeHjK 2nwDDYl/yF+7Y4KA1z80TXTX90IIq/zGyo00dGhSPU5klIDT01pyjVo9oFsS SYvfTEM72RZqPJsI4Ll3VsT7VhfkxSYP6MnR0B/942qTtQSUB52TqJ/thInC dw6p8jS0vV7+OOdvAiL++LKf4umEe3naJWsVaIhaJJS9toAAcZ08xRzZdgg9 HDrVsYOGTM2pda3kvHsREd3EeaQZmlKsNC1VyN9fu9+y+hQB75QucJxTrYHA P/4PtgANrWdfz4sdybm0Y7aD4HSELkPdkr9GNHSx/a0AnzUTtj072eMm8Riv TDyhU4xpSFOsT37VSSYkXbFsftf+BquEnBjXM6GhmO/q18d2MEH24nJ3rNpn 3NdzMSTPlIacMtcmVPYxQGIoX3JSoQCfCsb6L81pSKeBNpCDGMDb+fiMrXE1 vmWh6sJ6iYY6Fi2j1+aOws7Mw5cWGzvxZ0+pFB5XGqqPUuNd+3YUODB30nqr Lhxn0xu3yY2Gug2tLcoejcKyX3GleF0X/qy31W3PXRqyWjo0tv/4KHhpNzq8 Su/G3JJaBZbuZPx34MthLSPwfnM6d9SVXlzVGpYT40lD3i3paZsGh+HElsKB V8EDODSXYjfhR0PnLDNb2CoG4Z6QCJmQUSzPtyo+K4yGdtP+X82DcII34vmN sVFsma6iEBFOQ1+11ny67DMI6Vp27SUKdLz3gXPGvQgauu4+Nz+0fxCSceK+ c2/puNZJulEjkoZUnXPC1TMGwGP2fn/FLQb+MLhH5+tbGuq/055ZFDgAMR9e SbGROnAmuId4+o7s96FdesLXB+C9dHj8zRoG7r/4JtwmhsyXqYqK0JYB0Fps vM3cysQfL2ouisTR0I8ror/uveqH1xILzLU/mLhjVGXMPoGGHuxLNjx5vR9O s6WdLe9l4gPRppmaH2govd9dfFKnH3adKa6IXkXgo45PvQQTaSjqldJw6HIf cJ4xkk3TJLCWu6TMlyQast/aG+5i0wfPL9SeORZB4F/r5sP7P5HzZ8O8TapW H+TcqX0984nAh2tCvL6kkPcZ+n0+Z20fbLXXT8/+TuALSQeuuX2modT4hCu7 y3thtyJvpE8LgX2+lxryfqUhgfAWteR3vWCf+ifveT+B/efe6tSSfLOXVD7h 2gsum5SsPzIJrGLsp/06lYbe1KFT7Cd7QVJoFXvnNIE9ajy0zb/R0OchhwvD cr0wdS90p+wC6bOu+epsSqOhIEEj3WjWXjC7UxzqSfodFoVIwz6Svw2lXZdt 7gHnFcbqcdLXqPD8MI9PpyGj9v0qD770wNKGlYtOJOfhnrl6KYOG7Ix7lxJ9 e+Dlfuc8XtLvPNq6z2tLJlmfIdd2Jlj0QFSmmVIm6Xdi7J6GD5A837pi5x3V Hvjro81xZ4L0ZeX0jLgsGnqZnL0zoKcbDk9tvqZK+rsyetvC+hwyboUHFluz umFBpUZUtZ70g5+vSDeTfCnWe/vC825Q2DNgoldC4LxAbsOgXBpyni4xz1Lr BqkfF+e/xxFYLfdWBns+Dc1rbj6172UXpCxHeHXrkj4uaP5rKybrX+xGorJN F6hlsvp+UyTw67NsC88LaIjjjeyHVWpdcD/08vJ7KumDDooe3V9IQ6+QZci5 kk5YsWaYT9YycfxtJ2bMD/L8NxL51pc64EfHkZJLmkz81rrrilkxDekZjerG RLQCT/yertpcOpY891wuvIKGDrrcoOnsa4X86DUbmPfp2CjP5areLxrycfy0 4d3fFjDXvqjDgej4SpSa3wLJt5t4uF4WaoHlByFHIW8UHx46dNT0Nw3JDepE uXk0Qcw6EYkzkSM4MdCxb1U1DY1eVP7+xqgB5N/7L5ZwDGHRA/uCNzeQ83nd mVYi4jfo6SlOzL3rxkm8tk2POmgoV5i+usksGJ7dUjs8lZKEQ3S0+6sYNHT1 8F/t02zPQbjXKvJFQQx2SUQnFJnkvJ0/3Jiq7wm1V/ZMcsQE44E4ocznJDdk taoaV7qBY2ypEue0HsHVazs8dAkaepzu9Ga7YyQ2tdGxCbqYChuOnZ9NH6Oh ioMnaIm8abgo6/j8JnoZrFOO8zg3SUPBg+O3fkaW4JTF0qj4+61w9kPU2OA/ sg43mfxNtSnFvrte2atat8G063aRrbM0VMD6TsN2exlOnNMcYj/cDuKDL/dc IvmQX6iKcF45jnPk19rB0QnUVw3OPSQfTncaNP5bied14o4H7+mG93tNmirn aEhbxvit+f0aLK4k4S3m0AdWH1VUby7QkGjp/P1Sz0Y80h7CkdM0DDJatvqz SzS0eLBb51RHI+5ZnfLm/CZSt4j9erF2mcxv2XutBLUmTJgHu7jbjcCbOoFm VZK3Ztzb8maiCeu7DWmzTozA42blh9dJTuR2v0u0bMEpv54dLx8fhZzdDNVG kt8IuWl9IqcF+27L9InZTgf9qaMZTJI/bFQ8nybcih079rLVXKIDy/OHWqtX yPnc/fl9VlkrbjXRENnYSIcc42BbRZL/sDjkHbi9HV8p5A1XeMeAp7u3ibiQ fNAxwETMpx3/FNktY/yHAZwN7vW+JD+yKTTSrKMdXzKe1chZYMDbE58jQkjO Zy2+m/V5Bx51r0pWPMEE+eaU/V9JvmVhrt2mvwOzak9T1W8zQWzo3sZ8koeq GX94oNGJpV2lt7hGMGFLnRxnGclTt6yY/hnuxITIwrtHXUx4rbmR3kLyAr+P v1k3dmG7fSsTx1kIWMy7PNJD8nUCMm1Tul2YR3xVyX5JUreuCxwbJrnHE4FN F992YZ9ut3/vyD3fYP1AeJrk25+6Pe6s6ML6lbckea8SkGJ0SHmO5Js3yYPy dBfetjfW9PVDAmI2DJ1eJPm+cy86zm7oxvX3HxkcfU3qzVJ772WS57Q/YDmn 043Vv1dUiiYT0KNXmbNC8mPVqqDs2I3fnXf5wptHwPaPfLP/c4sOA9WON934 wBJzXuIXASFD2zT/5x+3NLpblnRjfG+59Bipg8RZ5Z8skVx19+60dKIbj8RM nAjvJeD7NEfn/P/5Gj/o1LWuB4u1RA2yM8j3Lfmh/o/kMYFg1rm/B/udsmPx nyLgjKP52wmSnw+qZUu178Ejd/W3KpJ69uTiXz4Gyb3fUXhNg3rw5Odxbiap B+3OK3oOkHzvM3ehmtwefNTotUMZqSsjYmyXOkj+bw/7V4m+Huwrq6zyneR0 fM/zL8n3e7E+VePrxXrjZ87/Ic8xzb7J/5vky3uQprxKL2Z3NaYszpHxea79 7gfJTRfnbUfP9uKkYtr9Q+Q9/dCsRibJhVTaE9wf9mKDNLnlD3QCjlf5dSWR POLPMkGr7cUCiZWbyhoJ2HZfB16QXHuqeu/auV5czvaE9VEFAYff3pl/8P99 WsfFRzb0YYdxuoNFLhmfqEf510nuvE1n35JDH36aGvX6VigBBxXVzx4j+fRa 19gq9n7s08trsncfqZdjxKbnyD5yLl1tWSU/gHl/K6EQaSbY/o6JkSW5tj1u SDAcwE1Sm+MVZxhQ/7ts12qS/1plGL/fZQB7ib7m/FbMgAbvobc95BxgM7aM TPs5gO/xlF/wtmDACwkRwXCS87lIcPibDWL5UQPugjt0GOiTUl9YpKGjSb37 41yHsG/srvVwbATWdgvV+pBz5lxWsdl3rxF8Mf5AWN+7Pgjx3b3wg5x7Afq6 mm1vR7AsR1r08L4+MHcL4nUn+bOEJ4op30fwINcZWZ/qXsiSHvmnSnKlG0zC YW4Ep/w7LRs71wMybx9djJuhobqM5rJjV0axu3SsEdLohm6la88cp2moVNRw 5gS5b24beMU30lqhs4Am2TpB7vfMv8HWnxj4ynCw32auEpjx/6D2h05D6qbP rogXMHC7//fL2Wt+Ar4TS1whuSrjo4VfLQNTip+5rZX+ASI/9OM5SW5XVTHg M8PAKJ/jrO6dPLB3zlinMUpDgcqGSavUmVhD1zz+oncipJlUUMKGach1/ML3 znQmFrY6+NMkLxUXr2I33jxAzs8dH572FzHxlocx4W8SM/DFQXaZL/00VPRI djyqhomPUZJSvIJz8Av5jBl1kj/22L20jc7EEUUS6yRVCvHzP3LRBn00JOIi 9Tx5PYELN4nGnJ8rw9teGbNf66GhW2+Fk2VvEXjc8ffwgGg97ufEG1zJ/Zhi XhN7+i6BpVeUPJK5GrBpXzHPTDsNtQzvvKr2iMCt9i0RcjMk3+j+7ybJo8WM xUSCSf1h+LJj3e9GzJq52GDbRuqBwG1xEt8IbF4Q80H1ciuetEAJh1poqOZ2 Uk9zNoEPpjxb2HOsDVfvqYjObqYh4cjnJkcLSH2Z4y/8kJzfGjfYw7eT3CTJ NnpvJYHTMoOE8kc6cM6KXxC1iYbGrU7J2pD6qbDtlpH0lm58Kqw5vJrc++8m Yu4m9RF4XXaDM19AN35zbeCtJsnDZdjevB0isOPzX8zeuW58Kzb2Q2I9DSmM nFsbTRBYuE/88ZGyHly8TTH/fh25B+vmrBJI3WY5MStdur0XH3iwVD5YS/qp PSMnrUjdKWO4k7o+sBcfV77XdILkj8QeiPTNEXiVa2T4rtN9mCfzybxEDQ01 aTNaUkg9ulL27cBQZh/Oeywm4EXqlkXLA8rypI50Go8yPru2Hy9lm20e+EM+ 17B6rQmpU3UMGrl9nftxha6emg7Jd+qnPFYm9WhlQEqiTW0/llann0yuoqET XVle+P/v8gYfgsa3D2C+p5pX+Ug+NBzAvkTynLs1ajKPyT5WAz8HUkftTHrL P0py5/trtix0DeBHOuPxvyrJPH6nRPmRXG7z6+mrewexcJZRiRzJLV3kjpSQ 91H+uG08MngQI5Pdqq6kTmO7mR32fun//6+zg75hfBAzcy1cS0m9d+M3b9iW RQLfYt13gaE7hCWGKwOFSa496aZzbJ58L7d/jJWYIVzV7uFpVU5DG+7d/EIj dfOxV7E6hnNDmCXcTTu5jPTLMvb17mScHx51OtF6fBhnrM/pmCol65YWeUuN zNfHlxMXPceHcdxdnoBHJTTkUCWx4j9KYI39Q5UBaAR3GIsnVZC6dP6C3FWv QQKHaF96WfRsBIf/u/lakOQmbJskTToIzEzN0HeWGsWhAWNTwUXk/Oy9ahVT SuCKtHAdDxU6Ttiw69MrUidP7iq/z19I4Gahlwe4neh4TPXWjRpSV3e8Sp4X zyFwW+0n56df6TiH9o+Ln+S5lqLmm5MJfCCgQc5eloHrZWqzPUh9LnBL9nDH YwIr8Ymab/jHwJJxv8XMSJ2/tqn7h+0DAp/9/TV7RYaJnWbUHj/LpiHb/MRz Qc4EDrusZZdzkon1hZgVmPQRimPUs81WBP6D7kqnvmfiR+Ey1RtJ3+E18m1Q fBeBsY9O7FklAnNytzTXk/7IktKfWCZL4Mvq5lzf9QnsEOo8vkz6qRuZCU/F xAhckskV2X+ZwKcYJh1bSO4l1X0gZYWJQxReFt4LI3ACMbLn9hfSp7NetRkb Z2KfoFzGEOn7hN9ExkWQ/m592rf9TaTPtL5y1otG9jGbUMgAJv2gbS1RGVZC +oeFU91R7QS+qG86wk76R14x1RrHTCZeGFgVsET2ZdM6qY8yH2mIMlm3byqB iY9zzDquIfvvd5LSQe1kUg/XsKmIv2biF9yn+obIejnE7vvZmvSnN/mXGEO+ TPyMlmHjRNajlozUuAfpZ2fN2ULN7zDx92D0Pous6yz+VVyRpP/1Pm5i6WrL xBJ73rqmkzw9X24qk/TLC5/ARcOYiUOLBXrtyXN2qYak18TT0E8uLuGEg0w8 p2TE20w+V8Xp6LGR9zQkzrdgk63ExLtDvmuzkPdMd0NZrCR3mLaJcdzAxKaH ZQW7yffKOXp/bi3p06Xet33pmmNgqy9vKLV/CHxE/dcCIn39tcPeY0EDpM+/ 4k/rwwSutmzJM3pH1s/BjmmC3C/OdNHd38g4t+opGtm8JXVFRNWe2CQG1pNr VnnuReDbbkkrj6JoCN2ZGZ4PZuClKx83R5J55MyvFgmKpKHyc8xjix4MbOe2 1fQ6mXexUg3Wt2/Iff1NW3zJmIH9Xw252FAI/ENp4HRGOA3duSdesbRAx9ce sBY33WNihfP32RtCSB346dK3tf103F6mPslnxMSKBunmHcFkfi01LLp+0/Hu oy+0FLYw8as8ltCBVzTEnXx/+X4UHWf8EjffW87Az/kbEicDSd1ezV08q07H E9dcZ3qn6HjnS0cDlhc01Cu5Z6uE3SiOvLPu1QBjBO9d9/hdrw8Nyc7Egqbv MGZbHE648rgfn94laFTrTO7TT0K2DlN92OiBktQf5V/4T3Dw5AkDGjp+X/TD g6o+HHTgbvbM0XL8h1lXIXuC9BGuc+xWH/pwmlXtjwjzUnx/ISRh8TipY6u/ P/I724cvjW56W+dVhEcVk2++16Oh2k/pDD/ci4Vz9ecue2TiaXa+o6OHaYjl spTrq/s9uHKL8STbfBT8tfy8dESThs5U/WYIZXbi5bSVMypna6C66Z6/thxZ Jwfbds9ZduKEd1F7nujVQkqCofDSFhri/Nlb8IqrE4vxVlmXqdWBmnzyu2+y NBTV95EYMu3AfIJmQT9FGuCiLr1yvTT53JmFw+tn2vBGH9GSnXlNMDATbzMg SfZpDsdrp80t+NazdPPC752Qw7IcfVSYhuxF/qHpE/U49fd+wdQNAxDcqLzX cJmKJHCP+tBQHa4w6y6Z8BiAfRsL2H4tUlF5z4Oxd551ePV7loGorgHIXM6O P7hARcU9lduupdbiCjH1UMmIQVB3n3RTmqUiMU61l08oNTih36mJY3EI7D3c T62MU1FXMytKe/YLr86jnttrNwrW0Yxf1v1UZGuu/uhJdgV+ciLutd6nUXih fWj7r14q+vD8zCCtvxz32exQuzo2CsGenHZKPVTUHdUdqqNehkcj30yW3aCD fG7d5fkOKhptq0p52PcTZ3UeWrI9wwB3lYdR95vI811NJ8NN8/D0mWT11hIm ZINW5YlfVDQb9zRq9EMOTqUp6DNHmHD9oMXPuHIqeh3s+JqYzcJJvgGeDXwE rLSNBM+WUtHn99O90q/TcWy4IH2NLgHxNTrFb35S0ZylAcNy8BvuZfxtcLAh IF9BYjPjBxWNbCpOO787FT/M2374+X0Cvqw/a6ZRSEVeloPDYQmfcL46a51C EgFihZLGjflUpOexxdjjUBLmzN7fGU/6qWDH2HWb86goM2tRUbw7Hi9bVBsO VBIwlPsq/WoOFSlXxu1zco/FXQrPOUZaCBAOn9iWmUVF+jViysGib/GFhw9Z vw4QsEYg/+5KBhXRTs98E7wShsv+jl9TGyNgcu1U3OF0KoqaqupLjgnEzc8u xHr/I+BDZmiC/zcqyhFNmpRO88VpfN/EAxcJ2M1IeFjzlYpu5na3nNV2wnYj 690tSX/0Jkt6n8gXKuLbb8CpfOcsLBrsD2aQvE1UoOx0ChUJTjOf32DxhAO+ UmYaywRMCF3cGfaRigKTD0yVBzyH/XE7RvRIv9YbKXurOYmKDpk8TbOhhMAW h73+EqRvSiowfrYukYqMvx2bjG9+Aysmjp9TRgk45jruaZJARb/fNYdVVL+D M4VXRtm6CSgpnTsR9J6KsmN+nhF5/QG+HkMNUz8JOCBr4MIdQ0V39V64Gi8k w/jHh3dffSNAe3dU7YG3VCTi90RM2+IzXItS3DYfTcCmNlOOu1FUVFv8bcqb 8g2KztwyWH+LgAvDtPnBcCoyUrkbGVSXDcFvzPgmF5jAw/OOmhZERZeolLxU 21z4rd/vebqVCbW/C8VXBVKRC3oi/2wuDyiJI4+bspjQYqokbfiSipzO71un LFgArk6xLXuvMeHjz0XlEX8qYviGHl+jXARrmGrdaT8YcHHy0FEhH7K/bkjX nL1WDoH/DL7witBh3adwQwUXKvrrfzYysrkWwqRcl+xcBuFJwNnO2LNUpNNz /NK4ZwccKWzN8Uuoh0DJXYMvN1DR8bYSlg3NHcChGnK9L7cOrBp6XyauJ99r WV6XbWcnhOgZcq75UwuS0gMHC8WpCJnKfxho6wTGr6r3qhPVcNuvs5ixlqzD gbd037Au2CtMW+k6UwFeju/3qQtRUeGNPZbrhrqBIVHhqb4qA8SK3bsSWEh+ r+Xt+ot9MJ6YLonHivAhC6ttZV0U9FrenPPYE9LvzT++hluKsS3t0EphBwXZ Hfw6cfRLH8h+lku7XVSK3axc23LaKGikde/Ix4U+uNL8TDP05S/s8qMpNbGJ glamZV1oL/tB/ouON3pag5ve2/+5W01BAt+3evB/HgD9tFctCm1NWHikpXQc U5C496y8ddEQ9C3JKxbK9GJ/O0a6dBQFSX26fvVC/xBQj29W4AnoxW6rhcaq IyioUGQTVZxzGIJsn+jNzvfirJDvnPfCKEi32Zo9U2cYSuY/pcZX9OGtIfhP 1SsKMtnHdfTFr2HYkTDb88iU9NNchj9sn1KQa+G3XzcLR2BljyTLxa3D+F7+ VyUrFwqaOF0s3tYxAhF038VSt2F8Pzro0LwzBX2iGKjML4zAvcRXR+1+DeNa Z1bVIEcK6rQ/7mygOgpr11DCj1wawddWPFIKr1GQtMKK9bm4URB9vTaF/ngU 3/YRZKfYUNCOvU+UUhzpYBrDVx12nYHLrO33uRqSvw/x2rXTnw6F63pfO8Qy cM8TXhnWExT00VtR43wcHYL+6+jMw6n6ujhuzJDLJSFUimSoSCppWDtUKhni V5SiaEJSMkUiEpKQOWRqIkUopDYZk2Sex2u6XPceyViG93j//T77WWftdfZe 6/N9nnuQ+z2zvYmJj73UYD3UE0Zr0kUNfzWMQUyoSKOfGguLFOxaE3ZEGA0Z xe9p3MaEzX1WT9kbWfjWf9/qovcLo5GX/hsrdJiwvtvrOXWGhcXWl7wR3yuM Tl8OX3HlDBMifbsK/4oTmL/LwCJCQxjp7U/88daXCfdbAnecNibw0E6K1eMd 5HsRPldztIkJPmvT0v++J/3EWfGfNxSFUaZLtmACnQmJbPoNaSSPJ1a4hA7K C6MHFjfd4v8xIdU8lEuhjsAyCtY7zsgJo4DJ7NYjgiwQsO7ZcpPk/XGPzg8/ Nwgj47iAmTgZFqiofbB8MEJgkfJeIbReGJ0JmkiKU2OBn2RKhxXJdX6cN49l SQujG+f6Ug/rsEBTy5VNgPR5x3Y+vrhBUhi5xu2tif2PBV4+KmZ3SW60PLvT NERcGKWYto9FX2aBS8yKqE8kZ1Y5XVNeFBVG9e8Ca5ELCxzDvcIKSP2+r2Kn jQhZh5OCx8IesmA84upxPzJO0EMnm2YhYZQjIq38OIoFRxrr6JLkc+meJ5oR RRiZWVge3v6KBfODovmuZJ6RNlnr0/iFUVPF3RueH1lQZ1K1PZHcV/ixpMMi vMKo2Y3ifruMBVJu34hQsg4D69Yed+MWRqZXCkPO0FjwzP7JrRaynq6peWPa bMLI6caRlecJFth89Mm6nkVg6eJLpo0LVBRNc5VdPc8Cg73cbZLPl/2oZoXV PyqqODL9Pl6UALZH222+3iawvsHZd/emqaiFq25WVIsA0+yiz4Z85HpNt+T0 MSp6THRLftAjYD4rKLJkhIXLZ6w2q4+ScRw3TLKfJkBQc5OVWSULV191fv95 mIroJ5Su5NsQEPuTa2HqHgvPXhb5XkGjoj1F9rm+wQRwzhQlqLWR57xBfmNj KxXZPxKcyIkk4Ely6et/JC9LbDcoMmmmIpMSWZWoBAJOvRbo/HuHiR20nl9o bKAi+fTQczczyHlQuGT3ajUTa3l/zKitoaKjh4dj7lQQMFbIM0ndNYav3ii2 /VJKRf+hs/0aPwnQcRU9SJtjYN7rm2V3faOirfTXL1/XE3C+l6+Bs5CB89bl dmVgKkrZ3XcprpOAvRBcdXgvA6slHDGPLaCiLL0Mz4YxAtT+Nhdryo/i15Sj 965kUlFMYMBRaXJ+z7xl15jvHMEJ6WMGrRlUxLlHUkPsDzmP+fWCt4WN4OSF T7K66VS0Xv+j1drZ5d9nB8zPzNBx+ZeyRrmXVKTmeDpciZy7p4mTltGv6Ziu zPshNIXUU1t/0f8RkMxltrfwNB2L6t8KW0ikosW2Faddyfl98fpaZlLWMA5+ 98W8/hkVlaELcUfJeZ9gtLXiuvkwbh9LOLw3hor4Hk73/CD1CZ/76+q4h7Fq z6sdKZFUFMHzQGb57+CcP5ynXJcxhMMetMryh1PRhZ3B5/qXuaGgcZ+jyRCe 71EVdwilol9xp6JcSX2aayancG4Q32ZlUpqCyXxogzVfyXyuKnAJZMcP4slM U549QVSkVbJixccFAnJST9acRYPYa7MCV1wAFX3kPwLnSY6RaDaJK+wbwGIn 13Mt+lERK3Tm7ieyDoMbtJQ6vAdwnuoBHgtfKipV31JeTNZtE/EVvsgMYMsS Xwr2piKaIHo4Qta53IL9Xv+ZftzMFSDr4UFFJY/8fPxI3lKNOfnNsrgPa81e dxq9Sdbnj3PRVRoBl112uGqb9uFdLlWh2jeoyD9gXGu+i4BvlRY+kqxevCtN P+uZHRV5N0zo7G4k34u3oxYW68WnttTM6V6hIsfU5oRFkguPiQl8Vs/vxCJJ bzKjzKnoxqlY245cAvZ0+SSmlHbg8Kip9e/NqOglb6C6+TvyHt0OJCRr2vGi 0rrLZaeoaO7svMgx8px3sAoqr3a0Yn8FbheWIRU9repNbXMjYOiR2fNbfY3Y w1MpXe0QFd1UTo/pXU+et8IuE8NT3zEtot7cZysVVZr9/PBQgQWW7PuZW9dm wZZB1R+P/goh+uTk1o1iLJAcOvz5mHkuKAiMWzpMCqHpjpizlzhJ/ZTx5oGY fJi0u5p6kiWEaJGNJFcwYa+NR8ZbnmJg6/RVp9KE0LiT996OR0yQVUwOdr7+ Hapv2Lnd+C6EFjY+nStqG4OuOZ6FZ2ONYG0/HfE1SggJje2bOLWbAf8Oc4+d EqDB1YqpNc/VhJAOz/spe2kGBPj9Tey4TQPThArWiy1CaFSY74IWOwOcrRbc 93XSoFLO/kuavBDKeL7JR7pqFH5LFyi7veoHabRH952kEHJyupf6wnQUeJSO 6qiqDEJOZsWqeA4hZN12kPv4tRGwjz8de2lxGPzdyu6vqRdEiat+7dp7bARG uVOvtBnRwVSXNrn0QxAF4V+2DKURCB3tT6lOocPr8gbLgTJB9I0/c+1jBh0k OmoPrtUegco6dflX+YLoVFjCre5rdDirrGjSYz8K9A3EZdEkQbTi4Jnb7GeH oTghp/uf8xjUvtEpenxDEA24eZ6R0BgGatOegf2ZY+Dl8PaX8TVBRP3P2ntS dBjUnOO0C4bHIGeI3ipuJYjU69OmFn6SPtA7ydnEiAnhfT2tMacEkfaPwv8s 9g8BIRWdk0vOSSRcHvxgvyCy23BTKk1iCCY62H467GHBgHGD3d7dgsg5ZeNc 4Z9B8EpMnTpxkQW8h3N1CFVBpFqMb+17MwiKwU89rN+xoFJjps9QThBNVe7P fys8CEZmvXwlKgRomDrW/+MXRB8pJyO0GANg4bL6nv5xAmrF5O8lcQmiXZNz PimlAxBvO7CGYU3AgG/GpkOLFLRJ54pMpfMADHbNBxqFEeB/Q9PS7zcF1V5Q fBpkMABfDp57KvGS9EdjMCnLoCCzKOfktQoD8Op51ibGJwJkJCTv4wEKyWO6 8q9a+0E/nPb8XRMBeZ56j8ZbKEgmoN0qMbMftmOJrHjSX6D81BV+dRTEIyJU e8W/HzrXrXoeTvoR3ZQ69zU/KOgA7U3tgkU/fJuD6jCyT1TvaxhNKyXzCWD8 uLi7H07u2VsQNUfu68EbY82vFCSeGKIQJdgPwRrNfClk3zL0NPlY8YmCynHt iWeDNNjyYq17Dtn/DOUbRYyzKKjS+1zKjUIa1N86x1zur9V3Fa51ppHxnS+E ij6lwZ7ejRYjZJxSX6N8q1QK4nzkc/WsDQ2qbNKVNpF9Tu6sRhBfAgVVTDU5 Ox2kgfxDvfE7pM+yeyp8PSOKgqzv1ay3kqDBUVOZFQxy/qRu7TprEEpBesP6 FXJEH1gvifU49RNQqfjMlAikIPPfKXUFZSTnVxL80q3kvh4et3rsS0Fit3xT ln8X25qiuqu7ilx/hOWu6ElBtMJfau66fTB3PLU6n/S/Xkz+lrM3KYjZm/X5 8ro+cLazkGmKIs9Dg++aCRsyTySQojDZC9+0nXWoPuR8kPx9zc+agtw7XRW2 P++FyEONvAxjAsZ/Jaq/OU1Bfps3lxcN9YAng8Zp3sMC6Trzmy37KSiX9cxK NKQH3nt/eJrwhQWq5ddkz++mIMb1rSC1pwfMzb3plFgWqK+91k9TJdcvXl06 FNgNOZ8n7d1PsIDt94HHQ7IUpMT+8I+8YhfJpTP1DQkkb6oc8W/mo6BA3RuX G8zaYdP+zVl9TAbw8lVJmTUJoMsZRiF4sQ2ML78yVMxkQKf0wtuiGgF0LSL0 vl1KG9wWjJGsdmBAdNhGPflKATQ9u26PwFgrZMvRTqoxR6ExRSeHUSCAtg62 nHO/0wIKv3Z+HK8fAfNzg8oWiQLog4pGU1dQI0hGJR1Y/G8YwrfE5NFtBJBL mPfcuNRP8I3rV1U61wd5e6uO+C2uRD/+NGQRutVAHa3dMjjaC6aUwxpSMyvR 8NtM93inH8A6dDnxpksvUHlKujOIlehb14NPQjXfIcmVEXhAsgdSbxWdqO5d iW5fK9gc6l4OBZcEnlw93QHRSt+zmd9Woush/uc1IzHYzx8yv36nAaLXiiR+ 81uJZHWkkqWvhcGGrdTt+eyvgI16fy5HYCViOJx7MvysElNzzsV2f+vC5vLt 7z8L8yMeM5tt4he/Y8M5jy3hSd040ejm88P8/Gj/paYAHoUqzFPIHWvn2YPR 7uiQXxz8KLpUqHhj9g/cfPqMmkJML07cHuHS8YcPjf7NsqaU1+DMKu+7+YiG e2nHTTua+JAKcaLAx74ef/2yOozbbJCM89baPYYPvb28MLTlQiuONrwkXvRg FOe80nizbz0fer9fgPvO11ZMEKUDsT9G8fi6iqqH4nxo220tlwCpNrz0svpE oxADexkOMmuF+FBj1UIeo7ENk5R+8+RTBi6l1WqcY+NDEfl77qTqdCx/YyQj 6DeGq0us+8718aK1eVmn1ot3Y9WzSw9txVm4yOXe3aVkXqSw185K3qEbH/tq 8sblIAvTw/nylJ7xom174GlfZTe2kNh57+01Fnawk500fsqLElyN6Q5uPVg2 QDPOL4eF3x5bcTPRhxeptRZnX7ftxRaMVk28g8AhJf53N1jzosLpmJLcyF48 mcTXWq9P4MLskNJ95ryoe07UvbG4F29IWypbvEKQPl2BcsqEF2XFuO0IF+/D /xpiQ2PCCexAW5FyX4cX9e14uVGY5J5X7mXmn5oJrPfKq69Ejhedr7i2zofV h9/Nbl93op/AqjL1n+SkeZHc1YsJRVI0HPF1d8gzJoHj1D7t8lnFi9xT5dd9 16Vh/1n96aQpAvt3q5zv4edFhBJ9TZwTDdd7p3+x+Ef6Ndl92/Zw8KLO406C e5JpmMvqyN3GRQJ3cnS+DJnjQdhN0+15DQ3rG49OLX+3ityFKgfHeZBuhXZr zV8a/rVvmwiNXK/+uDlUg86DYq0OpJXL92OJUq+hO2T81xrbuQJ6eJDU6jv2 fif7sX39hqwqMp/Eu+vXtzTzoJGs0VSKZz+Wll3fXkfmTzVPom2s4UGPJF1s HRr78bG/mnm8LaRvGrSwyi7kQd5chYvHlvpJn6MgqFlJ1i0kTmY2mwd1zAXy MxQH8P5rvznlP5H7arTz00znQbee2sa4eQ7gindK7WrB5HqlyuN5MTxI8Svb piuvB7CMwbtXp5xJfa9x+p8QHhTdpKgpUT+Ac68tsTTNCTw5eDN7iz8Pak74 taZEbhAnG1gG6m0gsBePzZcoZx6UQ6F5b6sYxKoo4EB9CAu/9jiUZ2TMgyp1 uZmTS0O4/e5jqW4eJjZUeXP0PwEeNGOWaN+/aRiPz5s0H/w5hu1ar6vZcvIg wRt/VYKPD2OJZ3G5kSFjmCpVXuL5dwWS2vIpXyxyGC9ly5zfJDyGa+229ybQ V6Bt+bUr6Zvp+NpCXbPp31F8VevP0rfSFciEQ/O8yoERXAxx25Nv0vF4rmxH rMcKNG98sylGjYG7la0/Dq+jYdOvu9kCRrmRN537ZJk+A28OfCcd8L4Pq1K2 T3v2caOvP56Xptgw8AvXg+8mDvThkDDrtFut3MjoFjrpmsTAR4o/2O0/04vl Dt45YVzOjZrXpqe7rBzDrT/jFtfxdGG9rZaec0ncSN7UVORJ7RheOZGHXxs2 4fCDYo/aTLnRiyOdi3prWXhdgI6I4adsrH5G2ZBeyoUcwhc7DFRYONzpREM9 5T3OcbelRH7mQoFOWqELiIWv+ivP9qW9xNUNg/4HP3Ah9RVJX0ytWNjmQ85Q uM9DnLc5oCD0ORdyrk4a4E1l4ahDh3wMstPB93wgr/gdLqSrrFikuJrApi2M w42RFaDO62KQu40LSWV55dnkEtgwaHgbLZfsw8fn/FEkJ7ozt9TCWUjgjX/P p3BFdcLbx9Vw/DEnavxcK2TwjcDr33c4ODh3AcrtWDL25USX/E0f/ftJ4Nuy h5NZKj0wnpPxzOIWJ7qi7Kua3kdgcUtKKv/hPoh2ltGy0OdEHsqtjxoGCRwt kdrF+74Pagfqtc4c4kRcom3RGSMEPqt7oWxGjAZBGsV6xvs40T+9X8nO4wQu 67EuC+6nQXSIkQcocaKBctn4s38J3FemfWzGfgDoHAePsa3gRHs2qb+izhPY 0cBCt7ZmAHTj68MZ8xxIy8psi8sCgeNXZ3PbbB0E1bWJ9MY/HGilhaziE/I+ S2RWN38NHITw+28OFY5yoIEiWqwpef/5Zj7Ifh8ahKCfrPSkPg60xP7mXgOp z7buvepzcAi4Fm9IPWjlQEo3dZuX+4XEP0t1euwQsIluDb/8iwN92GmS8P/v 3Dc/3TIxMQReQvJih8s50E1DmVY7Uvf0FuCPOzoMXuNnkmS/kPFji30zyHzS 3DY8600YBq5PP3YuZXMgvjLKy+dk/lfuhZQUTAyDhJVrQ2saB+p4WGwUTdbh 4pNzzVKRdCiyfaDkF82BXnlE9yfMEtgmkns6epAOlpWD/WZPONDH6dnZU9ME bundLhG9YwS8+O+/VPbjQNrjHmUdZJ1tsz0q+X6MgCnYH/nuyIGMFFcHvib7 VEImp7aj6ChQ1b5uirAh4+yRYcqPkv1unW2Mnvko6PIfo1hc4EB69l+yNGgE 3j73LG//8Cgg29WzY/ociD/yyn9ZNQSWLd++49UIAzyIO/t+K3KgLqWXCgLf CbzUvsZMWn4MTATTrDNkOFBP/+5JiRICG4ycieuzJH2HyOrIK+IcSNXF+73u RwIfv6DgqV83BrzVCaLNXBxokFXoyRFD9tkiM7//4pkwxubt9ayHHbnrXG5h hRCYg+dOAesHqR9/MnGkmR3xa8p9eOxP4M/Vf0u+zjLB1aPt+kQ1O/IIHUD9 ZH9sZjrmzOqRHBi8wetgATsK1FJWGzcgMGXc7fUTkg8THb1WVYazI7+IWS7H QwS+Zku7FLvEgtrR67+sH7GjDW8VVr3RJPDiWmn/72tJXj0SFb7kzY7MIs/r qcgReJPr1o7HJgTczorXVLnBjnyk5w+9+sPCCmHlcj7pBCQecZtyPsqO9m97 8iZjkIWZSwX2XV9Ijv0iNbsb2FH+yV89Z1pY2KLquhx5/2ALMzl9Wp0dba5d JfK+koU9rRVkOzoICGoSpGYrkftqzbFJy2fhslNJDh7DBLC5WGy6LsOOjIRW rj6RxsLv+ih7u8cJ8K0LZ8iJsaNegRv7o2JZWKNctW1phgCJwXcX21eyo8Yu DeGAQBYuV7tc1TtPQFFWRuBjdnZ03wt/3XiHhcMa3n70Iv2F6+5QqwMzbGif hamTNckZKive2veQOnI2Y46NsaHEilOX9E1ZOFnlE2P5uxBp+xUKMTQ2JGix sqj3MAuXqNcYtJF+h7o+epV2Kxs6F17ySWonCw+LPhu8Tfoj3gDBzNGfbKhK 8Pu9pY0sTH1lJ1M7Sub59trCkxI21Ljmgl4QlYXn3LbFMXpIX+D/5p9aPhsq ztP5njTKxK6MfyGXSwjItG3hv5XKhmYLl4aUWphYXeSuQGUWGd+xTEowlg3F TisNnCth4k9Hc38y4wlw2BHd9eoJG5rAVhe/xTKxcjvR9+gG+R57GI6Nd9iQ o8EtxqNDTLwyZe0Z7VkWGA4cZwgbsaG5W437TB+N4eGj+k1vkkj+1+ri2/d3 CWTT1+2MuzWGy+hB7vrXyXPoaKirNLhEcv+0cLDZGC6ID9Dv3UXqYo/pq2qX 4HXD3Wce8mP4YdqxmfaSMaB/uKjf9mIJ3M2zqY8LGThdQfdHYhkDLA/de7/F aAlinLZE4LZRfKWxdeih3QiM196tmHq5CBv7r68raKdj/URPD6cb/WB5P0Rf 2GABKkKYHckFdDxJjd9N5e8HhxCfwQ7NBcC2GVYnYumYf0VSzL0UGlDPrnRO ll+AyPQh8RFTOj7gkRs5Vd8HmZvafGQX56HAaHydTsMwPm58a+sfuV7IDLl+ curtPEQZ+M3WFw7hp6bSu2V2tUHmF7fPLXzzMHM8/GHppQG8eaXXTwZ3KTg4 rv8SVfQXHt5qf+mo242H9W4f6TjYhL3IhLk2zkJnMN90yngXdn9yJrpPuRk7 eF46qkGZhckATdqj6C4s6Z3SHy3aghG1a+fV2Rl4snhw6MFwJ04Ilwjq72vF Xmb9joU1MxDd/lZE834Hrv/kWnbdphM73Nfz3eU+A7FFP8ot01vxhy04c+Bp H67dGjrt0DANIja7uHPr6/FqvP1mkCfJNaP9MkteU7A4vRTh7ViP6fzvHPXr h3HIqakNn2ynQGXqReAG0XpcF3HH+7UcHcvI5evYnpqCH8L6mj0mdVjJlNdK uIyOawdOExXKUzAyr83f/PoXjtwVfW/H5AgOmf/derJ5EsITVm6RifmOA/aE PWHyjOHEB9EL75QmYfSX6sulpkqcUTuzuEZ7DKsK1a5RXD0JCUk3RVNEKvEf NgnLZx5jOORv/unnS3+g1XaTyv5H5XggW/Xuk9ExzDaTquHV+AfCdQ8oTLiV YHFHhtVAFhOr+rUEr/L8Az0x3BsW4wtw0QHO6loGec8W3wV51U7ANrXT6Ubj eThT5+GwB4XAlnrKuv15E6DAb77vvNYnbGjb/55tK+kXgqacDiZNwJ2JtNDc wWzco+yZ7neJ5Hmao8L4zQl4ImUyzLf7A/780OK3ryeBM2c2Z6AzEyDsanxZ yT8TB15M5TOOIDl5STE1SGsCduiFrSo3TsP38ru9TUlOYesXHxFbNQGH7jv5 8029xAX3S5UfV5NxMOfu//79Bv/3n1+tjEzBxxLW7QtqJ7BM8P6Z4P7fIBJ8 ha95VyI2VfqbbzJE5q9fplj64zfY0tWDBt7FYPe8YhJTSO5le1Yzmf0b9otN MBuIMHyl63jPgRmSm1K/DsrE/YYOIdQsecEfe3MOm1mQ3DG+R/WGru9vQL/K ukJKnXDEvYv0w+ScdygmbGztfoOaqXbIkUETKBgSPT1F6omaC60BJr9hrmKx P0zKC+BFT4wNOf8TX5jmp+z7DeX6YYv6sY9Bs1ml+iU55x04OATy5X7D/SqG 3dmgCMg+O6+aNknWx2iu9rvAb0i+fo3n5PE4iNldrOY0RuYfeoC3eXIc6i7M UeZ9k+DLJlcrXnI+Z5bUZXV1jkNUo/6+tQOpoO8S7GHdRD53+MPP3tJxiPfW SE1JSgcPWy8Rd5IT2bgtzNvCx+Hd8dXvp5beQeTcdPnuZLIOi4q/ajzG4YzO paKZbVngcLKjvjiIfO6IVg62HgcTxQyRM0E54MSoENQ5S773iPNNT9XH4bGM 2CdNnc+gndF/Vb2bhZHvnSH+1wQkGV6q9/hdCEKJb8SDyXmV+JQYf+tCwLGJ tmC7hK9gu1VZtyyM1P3Yeg8dISDdPHUs8V8RRIQGSbUcYGFL8Wlb8yEWpL3h 1Fh/shRYFGfUdZeJe/tV9krLsaAj5Gfu2z9VoF90XjosloFlFLs/DsWPQbeC gtSJ+QaIoH8Sq7QfwmzWm2RfBY7AV6mygpGzjaBWtNZAT5TU66MDncxHoODQ xmHjz40wdX99+J28QdyrtJJr37YReElvU3/s1gQvpd1DGPMDuChubEtWHR0q GHjY7U8zJJQmV2HnftzrnXxqnwQdjAlP/xudbVA9nTZ9a0cvTjRq52tOGYLC SIZ/gEcPbPCa3cicr8NFK+4QYrn9kGRQrtRCGwDB2e0C4QZVUPTkj338vQ5w GX70UExgELhPRjhOW1dDUf6R9i3iHRCS3B8vsXMQ/jW77TRxrQFUnJny5l07 hB9wkLTyGwROx8M3durVAbpSbGjb1QY7PdIcuOSHILN76/dp8ybwEu5aJaTZ CtrlKj2rzIbB9jDLWHJ7FxR1L+xvJRrh9CblpiuPRuDCT4eg7RGD4JVXpU2L rYbSjWD6fCUTtIc7fnhGs4BN14PvhXggTJx89FxfgAmecbl+mTGkrlAhZvo+ AKJuezcskLqkOvrWF0vq6Osz/iMB0JB/jd1ckAnz6iafteJJXSJLwN7ZHzIf r3USF2bCkiQzZzGJ1E3fBG5r8oPXYW8/B4oxYUg1svh8OqnzDkxHhPnAsZv7 vl3cwIQwsdp1+Aupe3FtWFhzB0IbBuOFNjIhqNFoqPcrqY+/kj941A303ypd LiT1wMKRrRxFpF6UIuXr6gpLk76Fq+WY8OXA0f3a30g9MbVhRYszcJy84VUh zwTxMW1zXL4c/4f70lNH4O/4aL15CxM4SlZHPf+1vP6smbuUDVxt7uNrIPVo /6pz+bWkzpZp0Od2FTjWJT3z3MqEF3uOp9bXLdchV+5Q62XY8L3dt2kbEyzF SRJvXNbrbVZEWIGF6Db7+9vJ9Yf5yy1al+Nk1HRLn4Gn0yyXrWpMiOpOCHRq W87f6qV/2ymoD0f2raTexd9RE9i+rLvv3RZpDOsPhMtsU2dCgpRGc3bncpzk vW3rjkHepYjOVlI/ymkYU9G1vC/pZv5obbhyf9MDn51MiH2w0NHevbw+p/nK Rk0I26gjuY3kFWnFfQnMnmXdjmmkqARpjePPWkl9zpmnd6l3WWebX/5/Fv8D gkdJwg== "]]}}, Axes->True, ImageSize->{279.80060668038266`, 432.}, PlotRange->{{-2, 2}, {-2, 2}, {-1, 6}}, PlotRangePadding->{Automatic, Automatic, Automatic}, ViewPoint->{0.3017585243326708, -3.34515166742332, 0.41097702481713677`}, ViewVertical->{-0.17987385733698796`, -0.7942999340586896, 0.8851118707480577}]], "Output", CellChangeTimes->{{3.462661385384289*^9, 3.4626614105929337`*^9}, 3.462661482091002*^9, {3.462661576201923*^9, 3.462661584378854*^9}, 3.462661694419812*^9, 3.462662384212983*^9, 3.462662450242305*^9, 3.462662821349127*^9, 3.4627030611871243`*^9, {3.4627031561838837`*^9, 3.46270325321386*^9}, {3.462703287216688*^9, 3.46270333102817*^9}, 3.462706914376066*^9, {3.462706955457151*^9, 3.462706968239779*^9}}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"s", "[", "t_", "]"}], ":=", " ", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "'"}], "[", "t", "]"}], ")"}], "^", "2"}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"y", "'"}], "[", "t", "]"}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"z", "'"}], "[", "t", "]"}], ")"}], "^", "2"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xt", "[", "t_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{ RowBox[{"x", "'"}], "[", "t", "]"}], "/", RowBox[{"s", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"yt", "[", "t_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{ RowBox[{"y", "'"}], "[", "t", "]"}], "/", RowBox[{"s", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"zt", "[", "t_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{ RowBox[{"z", "'"}], "[", "t", "]"}], "/", RowBox[{"s", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sn", "[", "t_", "]"}], " ", ":=", " ", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"xt", "'"}], "[", "t", "]"}], ")"}], "^", "2"}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"yt", "'"}], "[", "t", "]"}], ")"}], "^", "2"}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"zt", "'"}], "[", "t", "]"}], ")"}], "^", "2"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xn", "[", "t_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{ RowBox[{"xt", "'"}], "[", "t", "]"}], "/", RowBox[{"sn", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"yn", "[", "t_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{ RowBox[{"yt", "'"}], "[", "t", "]"}], "/", RowBox[{"sn", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"zn", "[", "t_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{ RowBox[{"zt", "'"}], "[", "t", "]"}], "/", RowBox[{"sn", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xb", "[", "t_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{ RowBox[{"yt", "[", "t", "]"}], " ", RowBox[{"zn", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"zt", "[", "t", "]"}], " ", RowBox[{"yn", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"yb", "[", "t_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"xt", "[", "t", "]"}]}], RowBox[{"zn", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"zt", "[", "t", "]"}], RowBox[{"xn", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"zb", "[", "t_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{"xt", "[", "t", "]"}], " ", RowBox[{"yn", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"yt", "[", "t", "]"}], RowBox[{"xn", "[", "t", "]"}]}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.462661492766466*^9, 3.462661589676857*^9}, { 3.4626626489671583`*^9, 3.462662653838107*^9}, {3.4626626982595787`*^9, 3.4626628071838207`*^9}, {3.462706929886355*^9, 3.4627069307178783`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", " ", RowBox[{ RowBox[{"Show", "[", " ", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"y", "[", "t", "]"}], ",", RowBox[{"z", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thickness", "[", ".005", "]"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", RowBox[{"{", RowBox[{"b1", ",", "b2"}], "}"}], ",", RowBox[{"{", RowBox[{"c1", ",", "c2"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".01", "]"}], ",", RowBox[{"Hue", "[", "0", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}], ",", RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}], ",", RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}], "+", RowBox[{"xt", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}], "+", RowBox[{"yt", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}], "+", RowBox[{"zt", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".01", "]"}], ",", RowBox[{"Hue", "[", "0.35", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}], ",", RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}], ",", RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}], "+", RowBox[{"xn", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}], "+", RowBox[{"yn", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}], "+", RowBox[{"zn", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "]"}], " ", ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "200"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4626616191921186`*^9, 3.4626616243581257`*^9}, { 3.462661708341215*^9, 3.462661818314694*^9}, {3.462661849175173*^9, 3.462661899346345*^9}, {3.462662009768916*^9, 3.4626620102141123`*^9}, { 3.462662046549934*^9, 3.462662245651493*^9}, {3.462662320398172*^9, 3.4626624003444147`*^9}, {3.4626624782206383`*^9, 3.4626625290794897`*^9}, { 3.462662849065608*^9, 3.462662957036001*^9}, {3.462703375874902*^9, 3.462703414806625*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 184.30890981903076`, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`k$$], 1, 200}}, Typeset`size$$ = {293., {214., 218.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`k$39848$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$39848$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Show[ ParametricPlot3D[{ $CellContext`x[$CellContext`t], $CellContext`y[$CellContext`t], $CellContext`z[$CellContext`t]}, {$CellContext`t, 0, $CellContext`L}, AspectRatio -> Automatic, PlotStyle -> { Thickness[0.005]}, PlotRange -> {{$CellContext`a1, $CellContext`a2}, {$CellContext`b1, \ $CellContext`b2}, {$CellContext`c1, $CellContext`c2}}], Graphics3D[{ Thickness[0.01], Hue[0], Line[{{ $CellContext`x[($CellContext`k$$/200) $CellContext`L], $CellContext`y[($CellContext`k$$/200) $CellContext`L], $CellContext`z[($CellContext`k$$/ 200) $CellContext`L]}, {$CellContext`x[($CellContext`k$$/ 200) $CellContext`L] + $CellContext`xt[($CellContext`k$$/ 200) $CellContext`L], $CellContext`y[($CellContext`k$$/ 200) $CellContext`L] + $CellContext`yt[($CellContext`k$$/ 200) $CellContext`L], $CellContext`z[($CellContext`k$$/ 200) $CellContext`L] + $CellContext`zt[($CellContext`k$$/ 200) $CellContext`L]}}]}], Graphics3D[{ Thickness[0.01], Hue[0.35], Line[{{ $CellContext`x[($CellContext`k$$/200) $CellContext`L], $CellContext`y[($CellContext`k$$/200) $CellContext`L], $CellContext`z[($CellContext`k$$/ 200) $CellContext`L]}, {$CellContext`x[($CellContext`k$$/ 200) $CellContext`L] + $CellContext`xn[($CellContext`k$$/ 200) $CellContext`L], $CellContext`y[($CellContext`k$$/ 200) $CellContext`L] + $CellContext`yn[($CellContext`k$$/ 200) $CellContext`L], $CellContext`z[($CellContext`k$$/ 200) $CellContext`L] + $CellContext`zn[($CellContext`k$$/ 200) $CellContext`L]}}]}]], "Specifications" :> {{$CellContext`k$$, 1, 200, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{335., {250.375, 255.625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.4626618879692993`*^9, 3.4626618997321367`*^9}, 3.4626620105651007`*^9, 3.4626620522498903`*^9, {3.462662108681601*^9, 3.462662246564974*^9}, {3.4626623776302633`*^9, 3.462662401086829*^9}, { 3.462662471400887*^9, 3.462662478964299*^9}, 3.462662534224524*^9, 3.462662918063096*^9, {3.462662948917899*^9, 3.462662961971676*^9}, 3.462663131255506*^9, 3.4626634192768097`*^9, {3.462703350116065*^9, 3.462703351974329*^9}, {3.462703415242755*^9, 3.462703418970023*^9}, { 3.462706971084435*^9, 3.462706979789495*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"L", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{"Animate", "[", " ", RowBox[{ RowBox[{"Show", "[", " ", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"y", "[", "t", "]"}], ",", RowBox[{"z", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thickness", "[", ".005", "]"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", RowBox[{"{", RowBox[{"b1", ",", "b2"}], "}"}], ",", RowBox[{"{", RowBox[{"c1", ",", "c2"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}], " ", "+", " ", RowBox[{"u", " ", RowBox[{"xt", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}]}], " ", "+", " ", RowBox[{"v", " ", RowBox[{"xn", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}]}]}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}], " ", "+", " ", RowBox[{"u", " ", RowBox[{"yt", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}]}], " ", "+", " ", RowBox[{"v", " ", RowBox[{"yn", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}]}]}], ",", RowBox[{ RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}], " ", "+", " ", RowBox[{"u", " ", RowBox[{"zt", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}]}], " ", "+", " ", RowBox[{"v", " ", RowBox[{"zn", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".01", "]"}], ",", RowBox[{"Hue", "[", "0", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}], ",", RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}], ",", RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}], "+", RowBox[{"xt", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}], "+", RowBox[{"yt", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}], "+", RowBox[{"zt", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".01", "]"}], ",", RowBox[{"Hue", "[", "0.35", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}], ",", RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}], ",", RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}], "+", RowBox[{"xn", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}], "+", RowBox[{"yn", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}], "+", RowBox[{"zn", "[", RowBox[{ RowBox[{"k", "/", "200"}], "*", "L"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "]"}], " ", ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "200"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4626616191921186`*^9, 3.4626616243581257`*^9}, { 3.462661708341215*^9, 3.462661818314694*^9}, {3.462661849175173*^9, 3.462661899346345*^9}, {3.462662009768916*^9, 3.4626620102141123`*^9}, { 3.462662046549934*^9, 3.462662245651493*^9}, {3.462662320398172*^9, 3.4626624003444147`*^9}, {3.4626624782206383`*^9, 3.4626625290794897`*^9}, { 3.462662849065608*^9, 3.462662957036001*^9}, {3.462663283986516*^9, 3.462663313614346*^9}, {3.462703436250568*^9, 3.4627035350329857`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 194.83723049163817`, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`k$$], 1, 200}}, Typeset`size$$ = {293., {214., 218.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`k$41774$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$41774$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Show[ ParametricPlot3D[{ $CellContext`x[$CellContext`t], $CellContext`y[$CellContext`t], $CellContext`z[$CellContext`t]}, {$CellContext`t, 0, $CellContext`L}, AspectRatio -> Automatic, PlotStyle -> { Thickness[0.005]}, PlotRange -> {{$CellContext`a1, $CellContext`a2}, {$CellContext`b1, \ $CellContext`b2}, {$CellContext`c1, $CellContext`c2}}], ParametricPlot3D[{$CellContext`x[($CellContext`k$$/ 200) $CellContext`L] + $CellContext`u \ $CellContext`xt[($CellContext`k$$/ 200) $CellContext`L] + $CellContext`v \ $CellContext`xn[($CellContext`k$$/ 200) $CellContext`L], $CellContext`y[($CellContext`k$$/ 200) $CellContext`L] + $CellContext`u \ $CellContext`yt[($CellContext`k$$/ 200) $CellContext`L] + $CellContext`v \ $CellContext`yn[($CellContext`k$$/ 200) $CellContext`L], $CellContext`z[($CellContext`k$$/ 200) $CellContext`L] + $CellContext`u \ $CellContext`zt[($CellContext`k$$/ 200) $CellContext`L] + $CellContext`v \ $CellContext`zn[($CellContext`k$$/200) $CellContext`L]}, {$CellContext`u, -5, 5}, {$CellContext`v, -5, 5}], Graphics3D[{ Thickness[0.01], Hue[0], Line[{{ $CellContext`x[($CellContext`k$$/200) $CellContext`L], $CellContext`y[($CellContext`k$$/200) $CellContext`L], $CellContext`z[($CellContext`k$$/ 200) $CellContext`L]}, {$CellContext`x[($CellContext`k$$/ 200) $CellContext`L] + $CellContext`xt[($CellContext`k$$/ 200) $CellContext`L], $CellContext`y[($CellContext`k$$/ 200) $CellContext`L] + $CellContext`yt[($CellContext`k$$/ 200) $CellContext`L], $CellContext`z[($CellContext`k$$/ 200) $CellContext`L] + $CellContext`zt[($CellContext`k$$/ 200) $CellContext`L]}}]}], Graphics3D[{ Thickness[0.01], Hue[0.35], Line[{{ $CellContext`x[($CellContext`k$$/200) $CellContext`L], $CellContext`y[($CellContext`k$$/200) $CellContext`L], $CellContext`z[($CellContext`k$$/ 200) $CellContext`L]}, {$CellContext`x[($CellContext`k$$/ 200) $CellContext`L] + $CellContext`xn[($CellContext`k$$/ 200) $CellContext`L], $CellContext`y[($CellContext`k$$/ 200) $CellContext`L] + $CellContext`yn[($CellContext`k$$/ 200) $CellContext`L], $CellContext`z[($CellContext`k$$/ 200) $CellContext`L] + $CellContext`zn[($CellContext`k$$/ 200) $CellContext`L]}}]}]], "Specifications" :> {{$CellContext`k$$, 1, 200, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{335., {250.375, 255.625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.4626618879692993`*^9, 3.4626618997321367`*^9}, 3.4626620105651007`*^9, 3.4626620522498903`*^9, {3.462662108681601*^9, 3.462662246564974*^9}, {3.4626623776302633`*^9, 3.462662401086829*^9}, { 3.462662471400887*^9, 3.462662478964299*^9}, 3.462662534224524*^9, 3.462662918063096*^9, {3.462662948917899*^9, 3.462662961971676*^9}, 3.462663131255506*^9, 3.4626633178104277`*^9, 3.462664051767123*^9, { 3.462703433992343*^9, 3.4627034342759*^9}, {3.462703508397788*^9, 3.46270353592096*^9}, 3.462706994282687*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"L", " ", "=", " ", "8"}], ";", RowBox[{"Animate", "[", " ", RowBox[{ RowBox[{"Show", "[", " ", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"y", "[", "t", "]"}], ",", RowBox[{"z", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "L"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thickness", "[", ".005", "]"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "a2"}], "}"}], ",", RowBox[{"{", RowBox[{"b1", ",", "b2"}], "}"}], ",", RowBox[{"{", RowBox[{"c1", ",", "c2"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".01", "]"}], ",", RowBox[{"Hue", "[", "0", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], ",", RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], ",", RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"xt", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"yt", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"zt", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".01", "]"}], ",", RowBox[{"Hue", "[", "0.35", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], ",", RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], ",", RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"xn", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"yn", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"zn", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".01", "]"}], ",", RowBox[{"Hue", "[", "0.7", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], ",", RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], ",", RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"xb", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"yb", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}], ",", RowBox[{ RowBox[{"z", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}], "+", RowBox[{"zb", "[", RowBox[{ RowBox[{"k", "/", "100"}], "*", "L"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "]"}], " ", ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "100"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4626616191921186`*^9, 3.4626616243581257`*^9}, { 3.462661708341215*^9, 3.462661818314694*^9}, {3.462661849175173*^9, 3.462661899346345*^9}, {3.462662009768916*^9, 3.4626620102141123`*^9}, { 3.462662046549934*^9, 3.462662245651493*^9}, {3.462662320398172*^9, 3.4626624003444147`*^9}, {3.4626624782206383`*^9, 3.4626625290794897`*^9}, { 3.462662849065608*^9, 3.462662957036001*^9}, {3.462706807907445*^9, 3.4627068716011553`*^9}, {3.4627070246562567`*^9, 3.462707026379044*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 9.88440899246216, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`k$$], 1, 100}}, Typeset`size$$ = {293., {214., 218.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`k$45840$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$45840$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Show[ ParametricPlot3D[{ $CellContext`x[$CellContext`t], $CellContext`y[$CellContext`t], $CellContext`z[$CellContext`t]}, {$CellContext`t, 0, $CellContext`L}, AspectRatio -> Automatic, PlotStyle -> { Thickness[0.005]}, PlotRange -> {{$CellContext`a1, $CellContext`a2}, {$CellContext`b1, \ $CellContext`b2}, {$CellContext`c1, $CellContext`c2}}], Graphics3D[{ Thickness[0.01], Hue[0], Line[{{ $CellContext`x[($CellContext`k$$/100) $CellContext`L], $CellContext`y[($CellContext`k$$/100) $CellContext`L], $CellContext`z[($CellContext`k$$/ 100) $CellContext`L]}, {$CellContext`x[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`xt[($CellContext`k$$/ 100) $CellContext`L], $CellContext`y[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`yt[($CellContext`k$$/ 100) $CellContext`L], $CellContext`z[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`zt[($CellContext`k$$/ 100) $CellContext`L]}}]}], Graphics3D[{ Thickness[0.01], Hue[0.35], Line[{{ $CellContext`x[($CellContext`k$$/100) $CellContext`L], $CellContext`y[($CellContext`k$$/100) $CellContext`L], $CellContext`z[($CellContext`k$$/ 100) $CellContext`L]}, {$CellContext`x[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`xn[($CellContext`k$$/ 100) $CellContext`L], $CellContext`y[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`yn[($CellContext`k$$/ 100) $CellContext`L], $CellContext`z[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`zn[($CellContext`k$$/ 100) $CellContext`L]}}]}], Graphics3D[{ Thickness[0.01], Hue[0.7], Line[{{ $CellContext`x[($CellContext`k$$/100) $CellContext`L], $CellContext`y[($CellContext`k$$/100) $CellContext`L], $CellContext`z[($CellContext`k$$/ 100) $CellContext`L]}, {$CellContext`x[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`xb[($CellContext`k$$/ 100) $CellContext`L], $CellContext`y[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`yb[($CellContext`k$$/ 100) $CellContext`L], $CellContext`z[($CellContext`k$$/ 100) $CellContext`L] + $CellContext`zb[($CellContext`k$$/ 100) $CellContext`L]}}]}]], "Specifications" :> {{$CellContext`k$$, 1, 100, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{335., {250.375, 255.625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.462706874527849*^9, {3.462707010043981*^9, 3.462707038022533*^9}}] }, Open ]] }, Open ]] }, WindowSize->{640, 750}, WindowMargins->{{Automatic, 537}, {Automatic, 34}}, ShowSelection->True, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 97, 1, 67, "Section"], Cell[CellGroupData[{ Cell[712, 28, 2279, 60, 178, "Input"], Cell[2994, 90, 25933, 428, 447, "Output"] }, Open ]], Cell[28942, 521, 3529, 116, 208, "Input"], Cell[CellGroupData[{ Cell[32496, 641, 4611, 120, 193, "Input"], Cell[37110, 763, 4117, 79, 524, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41264, 847, 6321, 167, 253, "Input"], Cell[47588, 1016, 4954, 95, 524, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52579, 1116, 6249, 164, 253, "Input"], Cell[58831, 1282, 4433, 87, 524, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[63313, 1375, 145, 2, 67, "Section"], Cell[CellGroupData[{ Cell[63483, 1381, 2468, 65, 178, "Input"], Cell[65954, 1448, 33625, 554, 447, "Output"] }, Open ]], Cell[99594, 2005, 3531, 116, 208, "Input"], Cell[CellGroupData[{ Cell[103150, 2125, 4660, 121, 193, "Input"], Cell[107813, 2248, 4195, 80, 524, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[112045, 2333, 6439, 169, 268, "Input"], Cell[118487, 2504, 5006, 96, 524, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[123530, 2605, 6509, 166, 268, "Input"], Cell[130042, 2773, 4479, 88, 524, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)