(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     68946,       1631]
NotebookOptionsPosition[     65586,       1522]
NotebookOutlinePosition[     65931,       1537]
CellTagsIndexPosition[     65888,       1534]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Durchhang eines Seils", "Title"],

Cell[CellGroupData[{

Cell["Form", "Subsection",
 CellChangeTimes->{{3.453524694609375*^9, 3.45352469665625*^9}}],

Cell[CellGroupData[{

Cell["Code zum Plotten", "Subsubsection",
 CellChangeTimes->{{3.436248504890625*^9, 3.43624854084375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"PlotWithLabel", "[", 
   RowBox[{"f_", ",", "paramList_", ",", "xLabelVal_"}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"functions", ",", "labels"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"functions", ",", "labels"}], "}"}], "=", 
      "\[IndentingNewLine]", 
      RowBox[{"Transpose", "@", "\[IndentingNewLine]", 
       RowBox[{"Table", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Function", "[", 
            RowBox[{"x", ",", 
             RowBox[{"Evaluate", "[", 
              RowBox[{"f", "[", 
               RowBox[{"x", ",", "p"}], "]"}], "]"}]}], "]"}], ",", 
           RowBox[{"\"\<\[Alpha] = \>\"", "<>", 
            RowBox[{"ToString", "[", "p", "]"}]}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"p", ",", "paramList"}], "}"}]}], "\[IndentingNewLine]", 
        "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Plot", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Evaluate", "@", 
        RowBox[{"Through", "[", 
         RowBox[{"functions", "[", "x", "]"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
       RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"MapThread", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Text", "[", 
            RowBox[{"#2", ",", 
             RowBox[{"{", 
              RowBox[{"xLabelVal", ",", 
               RowBox[{"#1", "[", "xLabelVal", "]"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "]"}], "&"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"functions", ",", "labels"}], "}"}]}], "]"}]}]}], 
      "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.43624579940625*^9, 3.43624584371875*^9}, {
   3.4362460666875*^9, 3.436246096109375*^9}, {3.436246239578125*^9, 
   3.436246243890625*^9}, 3.43624708934375*^9, {3.436247349953125*^9, 
   3.436247387421875*^9}, {3.436247457078125*^9, 3.436247457546875*^9}, 
   3.4362475065625*^9, {3.4362475958125*^9, 3.436247596265625*^9}, {
   3.436247697015625*^9, 3.436247743734375*^9}, 3.43624838828125*^9, 
   3.43624847559375*^9, {3.436248565734375*^9, 3.436248679875*^9}, 
   3.436248712453125*^9, {3.4362487539375*^9, 3.436248815109375*^9}, 
   3.43624893078125*^9, {3.436249771671875*^9, 3.43624977634375*^9}, {
   3.441702549640625*^9, 3.441702579515625*^9}, {3.441702773359375*^9, 
   3.441702774578125*^9}, {3.453525074828125*^9, 3.4535250815625*^9}, {
   3.45352529040625*^9, 3.4535254134375*^9}, {3.453525480234375*^9, 
   3.453525483609375*^9}, {3.453525530453125*^9, 3.45352557146875*^9}, {
   3.453525608671875*^9, 3.453525615203125*^9}, {3.453525919078125*^9, 
   3.45352593625*^9}, 3.45724961009375*^9, {3.45725129634375*^9, 
   3.457251304890625*^9}, 3.457251363375*^9, {3.457251758921875*^9, 
   3.457251759046875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plot", "Subsubsection",
 CellChangeTimes->{{3.436248504890625*^9, 3.43624854084375*^9}, {
  3.4535249651875*^9, 3.453524966453125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "a_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"a", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Cosh", "[", 
       RowBox[{"x", "/", "a"}], "]"}], "-", 
      RowBox[{"Cosh", "[", 
       RowBox[{"w", "/", "a"}], "]"}]}], ")"}]}], "/.", 
   RowBox[{"w", "\[Rule]", "1"}]}]}]], "Input",
 CellChangeTimes->{{3.453525748953125*^9, 3.453525782375*^9}, {
  3.453534404421875*^9, 3.45353441740625*^9}, {3.45353964578125*^9, 
  3.45353964578125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PlotWithLabel", "[", 
  RowBox[{"f", ",", 
   RowBox[{"{", 
    RowBox[{"1.5", ",", "2", ",", "3", ",", "5", ",", "10"}], "}"}], ",", 
   "0.2"}], "]"}]], "Input",
 CellChangeTimes->{
  3.453525227421875*^9, {3.453525627484375*^9, 3.453525639109375*^9}, {
   3.45352580221875*^9, 3.45352583425*^9}, {3.453525902453125*^9, 
   3.4535259025625*^9}, {3.453525945609375*^9, 3.453525980890625*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw12Hk0Vd/7B/CbIWWmVCKZQpKhgRS2UpIQKmlCPqEMkRQ+hJB5CklcU2TK
nDk8xkjXfM9N5jlDLpWEiu/+rPX7/XXva+297nnOPnc/+72OiLm9oQUDiUTi
3UQi/fcpi3bMbmwsAP5K33/PtMZ+VSxgdQ1bvnq7crcKFLxVkPjxE3uXp/c/
HTpwSErXfGoOW+Lc6o7WG6DE49tH+YR9plcvD2xBffxb68v8BfCauxq9mu0O
hv5tbw6bLkCtpjk9/0kIOHf42lnV0EH4fH7PfTkyUKlss3W35oFUIMcSkp4D
e2rttysJfoXF6hOzMx+KocSmkZlrcBa8iiYrz3VVglmIwuJn7xkI0Jw3O+Fd
CyuRbgGApqE3s6MiTK0BUjmH+GNHp+BY/ZCMFOt7IGsrOPYETkLtQlq5WUIL
eNvectl/bgIEvVPJHEOt4MaY7ew4PwZS2+bdRCTa4JZXhzgtcxS4C7Wf8Ih0
wPPqyViy9QhMbDmvcty5EyqHpdhzRIdA64uwRuvNLhDjVj91KbEf5DXIgqGi
3VAkHWA9Nt4Lx1I3f/w53g3DTYXCioo0YGppcx0K7YFJmeeHoLQHjGXLexN3
U4HHI0tRdlMXjIgkz/MmU8GvVKqF+1cnaG84PRxOocIaPePqj6+dkMggN52d
SoUx03T38t5O4B62DFPLoELRydT6UwWdELH+YMg4jwqGzAl6V0w7IUDF+tnV
KipI8ou0kdw6gOZibBH8iQoyigsyr39QwPJMaUchKwGWsp6eFYMU4IzxH7nK
TkCSBFd3WzMFeEvNckmcBPDulHNejqeAuY26mzYPAb9+3as7e5oCyYt60+07
CaivoF+ejf4Is2W32ePFCTBWpXvIKbbCkoZLiroqAZFHPbo0hFuh5kSSaq0a
AR8Pcoobs7ZCvfyjGDV1AtSEZD94DX2Axr9nPZQ0CBDbsNvW7fcBSOnMkrvP
EUCvnc9w+tQCNHu50VeXCPA5Pd9Z4dIMt7uf8ddb4+trfb1w5J9meOQvuGub
LQEk3bn2PN1mcAmMGja3I8D98gwlVbQZ/PSvfFi3J+CR5WRLKOU9+PK92SL1
kIA7AYO1t4Tfw9LfvcfVPQnQobQVbG1phFldI1//SAKCOilyvkWNQPE4n1kY
RUAL9WPeOrkRdtnmPO+LJuDM4IecH/cbQe92LUXqBb4felPmoEAjqJ2PzSmN
J0Ceuya50L4BhvYpKcamEcB3KS/i6s56cBgdDHQsIaBIIrjyDGM9BIWjp7dL
CdBftZpQWKgDo9gSx8tl+PqJIsdYm+ugU31G7EgFAevT0cOVj+og9lfZ8EQV
AVOP3WQFabUQkawA2xoJuHfhWWz1foBrgouyGV0EZC5pf32+CWBzfs19524C
xl4yqd/7XAPshxfTNXsIMJpw/iIUWAO3BZ9Oj1IJQK4mil7T1TBxoKSFrZcA
7tQD1FMZVWCut3tDZgjXu9zE1SJeCQPWNYavZwgIy35Vr7ZaAUET+0LNZwmw
MfF8WNJWAXmm80FCcwSIvz/W/+pRBWSS0jsjvxIQ8/xN+uOWctCLIT21XSDg
3yPPVA/bloH8H/OoiSVcz7TdYpZ6GRQnjTOF/STgMFk7VZivDKQ2zygrLhPw
lZFpK2dNKUxUB9G9fxFg0vOIOs1VCpHmFt4cawSccrxhk/i2GGRdNI2+rBMg
JKEsxBdQDNJ9HJsebxDw+zNfV/CNYhDP/9eeh0SD4pMdiq7MxdB6QeeF4iYa
SPCcYrh05S1MfWLc5shIA9YCyZdbfxcCO/u1qlwWGrzunwyd8c2D032Px5S4
aNDnviMp4XAecLJQahOxOYXOFhiM5ULfIe9gJm4aPDLL7K5AuaC//cAUBVtz
0npn0Nob4JYJK9DnpcE0fSFZ2iELP8+AOHE+GghGCBcNCWWBx6HP6F9sfQWD
hsi2TGhUftXVjl3+oGhyTToTip1eVTrtoEHgipP0x8l00DZ/+OrtThpIM6y9
tbmeBpEH9rf+5aeBSap0017WNMgWva90ajcNIk9fp/WUp4JQAnr2FHvNr2rl
xI5UoO95wLpVgAYf2TxV2btSQChPaxujIA1Iufl6tZ4pwHD084Qa9hG9EVMn
2RRw+v7zlSs2OeKk90BwMizl0ybmsHult4RdDU0E1lFNz4Y9NFC3u1tQN5sA
OYPaJcvYmfmt3fu1EsBrffiTlBANXI+E7lxjIMPINIwFYu9W402Jc3kJ08YW
XGgvDby9HjQw0GKB9HRT9l3suXrqpPXhWDD7e0ghCrvq7AvpE/QYuJNzhXkc
+6aBYHH/P9FQoFXc+FCYBl9//FR+2BgFW3waBV5gu8d0AOe+KChSE7Muwyb3
e388OfUMXOLbvi5hy3jcMOjXfAYSU/wivCI0eCes+MkpIwKMmEt1ZLGLP3Y3
XegKA6afQ4H/YFO5/bq8I0NBx9g23h37x2XlwZKLIZBWop0WjX1oJGlJgBYI
pbd/x9dhG+y7SLrwIgAsD7UH0bAdrDezexv7g9D37w6z2PlLtmLTfb4gLnxY
jEuUBu3KwnICZB9I/6G3sBeb7tFzXO+mN/j5VBfJYXM0+mk+EXoCh3572Klh
G/M6pd0BT9Dyidqrg/2C3Peu/eRjiDj5u8UYmyZxsudI478wa1x69zb29sKM
2ThNF3Ccadxkj33xBCfDpg8PQZ9b8pkLdmSTE7/V+Qcw9mVg5xPszgv98m1t
DlDgP/U8AFuo2CfCMtkWrjGdZgvHjm/Rh0OvraDU/qdzNPauwT309SxzKOpd
64/FPjBOKMfcvA6O5y8pkbEl2B1eyFoZgEzXpqBEbC+qFFWgQRV0HBipSdgy
XIPWzAfFkbnMVb7k/+r/5p3EvaKFBDcz6v03vnhB8ru9oxEy+U3ySMB2i9Js
tTlihsRZLr6Ow173cI1PkrNA0SKrDTH//b51jm2PtDVaRz8+P8NmNBpWZZGw
R52XTn4Jxm4QDvRP4HZEmRfG53yxfWNEHZTCnJDWns9f3LE12auMu9icUUSG
aP8DbBbvyydtAl1RDAFNd7FbftH3M7O4o4DgggwT7CC7AN4kXw9Uk73kZYid
/i3iseATL1TJE2JwBtvKStqydN0bvRct7pXE1hJ1vuaj6ovC3E6H78SWGmzQ
03d/ihJdJVU3Y88a3lSaXfVHaakTHiP4/9LKkX2g7FggirCq4aVgv2lZ3uvr
HITSSLMJpdi2ahFbhH6GoPr6o3EB2LqrA39mD4chuu1lNgds2eL938ocw1EI
vemBEfZK9OhXqZUItHQtVloYu4LVjah/GIWu2a3JZeD9kXyQrydfNBqRU7T8
fLD99PM7yR3R6EYnz2sT7Esx4x8f7Y9BBce3qfBgL4ro1EsPxiKjw40dVnh/
fjo9BTuDXqLKswN3j2PXWHlVMynFoUppGwobdnBucflQRDyK+z07m437gYTy
nvzI04mIdOZWaB/uH+w3ynI8vyWiXZZCNqnYPzwMsm0Tk5D8QV0eG2yzsXpD
MfdkJN7+p3QZ9yNZqV+6f4kUlGcebrWB+9uHt6anCwPTkLRQ2w0a7o8qTTIN
kiNpaPtZzbpg7ALa6slExdcorV2MjrBjVqNQ8PhrlLlnS0raLhrcRi3HLVQz
UOznqzamuN9utMor8H/LQstNR5/FbaeB48Df/PCz2Whi1MVNBXtqvlV2c2I2
IolyyQ5uowGF20Lmh/YbtHZU/utu7Dijl5JtaTkoaFSE4s9Dg6Njm4SeGOcj
zuUkfklOXH/llW/yWfkoTMZSqpoDr0dkbuPIaj7K9MyVNMRmS8k5mqxbgIyg
8pcLOw3+6BsPbNALUA6RO1jBSoPBgvz9oFCEFnmHYAs+v/rI17btvFaEbFtF
aKGb8X4KYP57z7sIyRh0D/Bgt5td7xTqKUKX9J3e7WDGz4ebxdnD6S1KZ3le
vQ2fh0kOJo2qZcWIvJOF2ofPV/KNrXnPh4tR+Ybtoh52rFbxi3mWEmRiLfW3
7i8BEcKsNgnGJUgv+OWXtD8EeHWW8PxdLUHUvGMkE3xe35LnMK1SKUPH0Lpa
Aj7vxRbfrR6vr0ADYhlTF3B+cG/T8F2ar0CiOypsonC+oGV/5Mzjr0ROj20L
CZw/giz6xUTuVyLezlwPo2kCFvvWdFmE3yGvpEvC5yYJqGlSftXzuAoNiC4/
/o7zy7X4Mm1bZUCcwh/CL+N8VOyCiH0WgEgXf4rd7ySA06jZdDgCUJqKrUtw
BwF13J+cDKcBRWrKmle1EbBdw+0C+XwtWmvPO8bVSoBbeZyr91otMp5apLvU
E3Au9XObnnE96hTgt75RhOt5mmfZZFePjjtTZi8V4vW547NxwqceNW5dUdQp
IGD64EGF/Xn1aNfzbAWlPAICyr2iGZkaEOvbvQXrWThvtkleL89vQH6f9Nsv
phBwduXhtAhLE4qOPe68IxznT11exp8lzejf6JGsP5Y4j93a+m31QzMytPAZ
q7EgoPchaXh9sBlduzrL4XWbAOtEeuWWzS0op3VZZeMWnr/Q6iho1ILU2DN/
L97A85/5jGkstyCq2qWVFEM8n7ZUF6nYiuJU3QhlnOfDTT95yZdRkENtmrY6
FwF+X1XQFIWCyF7vvRM5CPBwffU3foyCvoPE499sOI9G2f3LwtmG1LVDywu3
EKDXzOg0dLsNRQdfP8fFgNdbTt4qhLcd0UyU2sOWqBC2HqA7bdeBhmBONamX
Cs16ezj0ebuQN8OMPVMCFeZF+Dy643pQbI452y1hKjx0OnArfAcNrbCUp6k8
74FPA9yGli29iLde2EtirhvMXFW+sOj0o9OsKUF3j3dDwwGloAbmIVQc4i26
YdkFElurptO0RtCyLK9DV1gn7KmyOcMcMIocXh82OGPYAaQ1hizHsTEk1S9v
OaPUBr8Mqk2a9k0gqv/ZN04CH6H/iKnAPt9J1CKRwj2b0QIOV7h5RAem0DT5
W/Ly9vfAHz1hzLRnGg0wvhoI8m+AvOvJGT9cZtCuyPEsjdhauKLqqdVSPYsi
Mq+dMLv9DgpN7ESP/5lD5cEH2XffKYEVVg3GisvzyIs8YNUmlguGXScU98TS
EUnwm1a+UxKwnmCrq0qgIzPF6iymtUSoS+s7fyMVW8PdT90zEeRdXG/F59HR
SAhfrk1gAnDuLQvhb8IuuO8ZTo6HD7aHxvm+01GyYkQ1W80LUN+yP4JTZwHV
npmzeN4fDiv3V3bnGSwg9TWN8N7hMMjvb36tewWPmxloTI+HglC+5bsQc+wv
xap2c8Hw53LaFKsrnr+QsptjxR/KUveqsqQvIC/xPusUFi+4x7HQnP5mAZEG
ONSu8HiAhHONoWYhHv/zRIdpmztEa9+887QKjycWIyk+nEu+xUUx9mBPtlfG
bHcA6evWQqm92Pnie4clbGG0UTnr1BB2yZO0OrE7oB/bW/NkBrvCmJVfwAy2
MGSeE1nArlRIEDhgDGDjTK1dwh57ZGsppA+PCE1TszXsxvsUcWF1+L/3Iej/
34f8D4kSMYQ=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJw12Hk4lO33AHCRSNGoFFkaLROSrV5L6EbeUtnL8kZMiyU7WVsYS0jbJAnJ
khZKDMlScsaWwZh5RJJ1EEnWUpa27911/X5/zfO5zn09c+aZ+z7nXI/8CV9r
F34+Pr7VS/j4/n6qoHVjf/5MAb6k+3TYVvkubI5fWMTOWnls58wuYDxTp3z9
9tcn1fdMGYOGgtmJkc/Y1BPhKZ+PgJZ4TBf7HTb9S6/vh1NgMDTTlFqILenM
Vu8IBOu4lic7nbFppadfV8RACDfG261qEmj+153WRiZBe/uKserjE8Cc4p6y
77sPskzftVoy48CU5rIcrArguWed4KreMSDXHpUwvfkMqFfUp99HfQLe+XMS
F8jlMJ94Lh7QKPC9jovooVRCjlifVMrACND9fy4b2sSE9IPqAW2XhsHvk4J/
+fIaiPI6Hqp44AMwPnfk2JTUwjmBxyEBE4MwLVjqscmlHo7TuFs6cgeA12Xs
49D7Gm69Gk5J9+ABuYdSjHax4EW/wsr8TX1A3k566Hq5ETaTDIyOZHQDOU/y
zB1GExQrxXsMDnUCzauKf2trM/TXF5E1NTvAoL/c4gOHDcPKtzSgtA2ms1TW
HMhuAfHwPE2VJa3A0wnRnXTnQGypAos0R4CBVmFgpicHFicf/fd1nADihqi4
hQ8HBp0fni/vJIAXb34m7wwHig1zaowYOL7uv76D4RywFrxrbudMgOUfY2uD
mxzYJiXfwneOCwYbb3K+veSAsuaU8oOvbKBPeC9cFuaCq0pEREUvG6jy/MuE
VnAhk7LqTUsDG6bFl6rSRLmwer1qyPc7bGCUnezwWs2FuTmf6v3GbKBprDmn
KsOFmopJm7GkZuDboUY+qsoFe/3JcFXNJiA5Jc4bH+FC4j/hrXvJTTC9IeVO
tC0XmneIbbEXaQKecaoD054Le+RUGml9jcDLzdDYdYwLm/94r3kT2whZbkr6
gq5cmGROPAp8xwLS2/4G0xAuRBtPEBWhDcDUe8/1T8HfbzJusetkA9DW2FZ7
pHGBz+wzp8CsAbLmSgeOp3PhvM0nds6mBiBkdxYezOJCsOsw6yr7NVjmhFxY
lssF9/he5nHya6C26Y1Ryrhgym5hLGfVgdoBF5kV7VxIINiqMcV1QG8Vmml8
ywVWe3PB7/Q64L1ZmI19x4V/exvzv/r/jXcm/OjCv2eyPrdXug5ofF2TnAEu
qJGqsop8a4HhkZImN8UFiSMF9P/W1wA941OT2lICiimXX/wrUAMG5rGKI9iW
C24f1KeqYbRUoipNkICEDHltkYZqMNksfmmJEAG/R5P6XwRXA7Ez9WH9cgJG
LpxTkelgQtY5Hp/CKgJ8LG6kvFIEyHqUrmMjRUDu7MHxW0sAci0y7WewB1OX
Gvi8r4L4tudPr2wgwPZDyEe5S1XAQpsWmdIEoDAnTdroKyiXWSNDliOAlLO9
3ehRJTDdtlws34Tz/V6/irXlBRisMPhitZ2Aa4/v1exZqAB6RXdrP7anU0TQ
85YKIFH06ryUCdjyWrv7XjCOH7IYiN5BQPKtJw8vsMrBcrjr50NVAs7uuqG/
06sMJNNOvGDuxPmMek/nGWCXMl+jXQTsTD+YQ5YoAybp6/Ar7HGBpcvFqkpB
ktLpWPYPAU5twe2jq0qBOlGpnKlFgFGAo2fGsxJgapTYGOkSIEfRkZOIL4HO
EbhejP3jvUTrZccS4Mt52iOvR0CJIVczTLAEpk9rFP7Cpogb8R+xewYp5nOa
j/cQIMLYlrr8RxHklkq96TAk4EH38NVPMQXgJ1etG76fgK7z6zLv7izAz1uX
2owtJrefYTX4FObXrCtdb0JAMDX3TQV6Cn6R49+eYu8b9lifsPgE6B3Kr4kD
BIxOTmUp+eUB9T9q3tQhAmTo5OI+uTwwmV/1QdUU7wd1q9rEllwg6BRLX+zy
M8XDi0rY+xIqP2Nfmg9Uah5+CMwHmiNdZgQo8S8+83S4D8wPQRcSLfDzyVGq
3yhyH8r1ajj12InGDh1t5TngbnfOah57MbZyXnddDjCk/vl81JKA5hUR+itb
s2H+NNd3nRUBfE8LzZkR2TAdmmC6F3uXOc85UCUbtItLjvpip9MNo3ouZ0F5
ld2KeuxOJeFr/13NAOJZ/ytXa1zHvE8zqsfuQm6iNOUqdm5h0xtFk7sgzGBB
MXbYrqvrF/nTgXk7JO4H9oY9q7PTQlOB6aniHn2YgCjamVr+jhRgpCw65GB/
rmkf9tiZAqR6ncga7Mr9t5V0J5Ohc0ic+hv7mJVMSffJJMhyVfH1OoL3y9dv
OkF1N0GY4up3Eft8MhfEtt4E3t0NT+5ip3dHNRuO3IDOQ4vsZmzlcEer7n03
IL5xa8kA9kuy5rvAR3Qov8Zp/45d0vym3qL1Grj7p9TI2RDQToptjUq8Cp3s
iuvq2F9tdHqfH74CKZ/tk/dia/AyZ6U7LgFzgGTpgm219TCfxe148JtQFAjC
9vNYtjLKPg5IW6unorELZ702j3bFAO2MR1AmNkeHrCqdHg18z8+L5WNPhrft
Nj8WBUSI6EAZtmhd7L5IuUgw4MhM1GDbrw687w4R4Nf4WKMF+3Z610uO4QWw
Dysr6sDuoBi27ao7C4xxI49+7LVFj8bS9oXCtJqZ40fsw7pi/Esag4Bm3RE3
iZ1YHyjldugM+Dn2jc9iExbdai0tfsCwd7m8iC1XEk13zfKCaQvPk3+w77As
QeOBG5QfmA4UsCVAsld28nfeCaCazsIy7O1Db3WSjznAvGOI8XJsykq/2ypu
VuAeEca/ApvWrtAuXasP7qWLC3+tvKrXQ3DHFuQn8ENpJXbHTFQmad4Edbqe
vfU3Pm2x7YtvgC1i9IfqiGCfu7mvyXMXFfE8v68Txv4dHnYnU9UFSQp/3SH4
9/4e+V5tSh6IKPQJX4ItYNuvL0TxRfbHTgv/wvnXki/F3SUFIObyoeY57Jjk
TX5a1wLRdH43awZ738pK+9YVIShe//CfMWyhKBtDz0thSLjogO8QNmtuUlFQ
6Dxi/qiS7MZO8I5fnRkTjhikZz9asR/O0C/IRNIQc2CrJAvbzU3JtfR3FGKE
xf0qwjbZFHI0Wj8GmcgFv36ArdBba255/iLy2z3ESsEesz6mNbYQh3LjtM+e
x24Sfby9TPsSIq6QFb2xn7C+b4wJSUDlRbHix7C99tCF5b5dQcQ39rXd2GYL
PT/Hdl5Dfv35mxWwVUoUZ8oCriPigsiXtdjzSQPjCvN0FErdozuO93uFyLm3
NUE3kZraxYgb2Fk7JNoKNyUhYq0NMxg71rKQSOcmofnA6PUO2EeSh5qDFZOR
Qc+isDz2tLxpjVJvCrK0N5/PxufznfEIrE9IRVTNleMR2FVutFdLtdKQXwvl
uyP25acl5X30O4i51d9sLTZFR7Yw0TgDxUsfFg7F9WGlY1l+xEwG4p2eKjDH
/hpu9dgrIxORjUc8t2BTB2usN5/PQmqugwotuB6pKMyZ/XqbjTrjVhSuwW58
5mxcdOk+Ii99+zkQ1z+9euXabbz7SM34y5weNqNjwTBD8wGSDD61YSl28sJN
dHnoASoX23fvujkBpxBrt4v+IyRp+eXVHVxv/zSpqUvN5KHc6Mtb4nH9Duj5
VXh9/2MkmVx7yxB7ZKJJZVnGY0TYHJBdPEgAm+Si/PXgE8Rr1fV1x06zTd3W
cj8fdYoVyO3G/eCfwSVykfaFSLLC9EnRPpz/C7sZtbxCxKfB0z6BTUl8Wsdb
KETufR8XxbFXZOf/k2XGQPZvrGR8/yXgp6V9z59JBpoeimzfaExAL6NQEdSL
kX1Aj5QD7l9d6UfXrD9ajHjJgZO/DfB5ihf85RNVjFKcQueysTlUB0KurRhR
45gPhxH+f0hCIeGBz5BavdHZk7gfZvo51emXlSDtpXGz2rifpjsuL7jVX4KY
R26sInYTkGJScntC6DmiB/5ycsWmk0U879o/R/O0+TS6Dj5/xHPxXwvPUais
W1w37tfH1USdK/XKEFF3Rf0Q7u+bp18u7K6pQApuY/U38PxwvmVvzOxEBeKd
fRy0FLvjcbNYgdQLRH5O1gzG80aCS/dmef8XSCFo+ydbJbzfuhbNhMgvESkv
fb2oAs6/Xude24VKRBz+mWS6mYCjd8oOeukAsnzKWi6J56GSUPR2qwsge1VF
jpck7t+2Dc79dEChe6VzmOsJqCa9C7QeBUTdUBjusg7Xy73nLNIPMVH8uP/P
nDW43pSnhUUtMpH2M0PxWVECDuS8bzG3r0HamWnJvCU4n4sFrvXeNcjgy6Sk
NHaKe/Qf3egaxHQ/UnKED/f/HTvUFQtqkJpNmlfCLy7El9OSBJbWIkL2bovm
HJ43W7Y5lBfWItJw5oz2GBf2zweNygvVI6rVQP4gB8+fZqsFvj1vQDzRIdSc
yIVrx5fPLDQ2IEv/FpkpOhc6g/j6f/c2oGkjLTfx61zwyJh8IbyMhXjhF4yt
LuP1U00BMrYsZPklklwVjdffiB7c+52Fss5yHUwD8fqO2epEzSZEuMg37cbz
/HXndzS1MjaiGhS8cVrFhdhxPTTCZiNLyWbliZVcCA+79+vOIBsxzFPzw0S4
4HPT+6yQWAsi6rVkrwpywbxBILDvVAvie/Kr+u4PDoipqrldWc1BzNhcCdeP
HLj2O95s1JuLiGXZdYmvONBgLitquboV0UxlVR1OcWBCXiL8TVobogXG3hvO
a4GgwO3Hr6/rQLR7ldkj79nwrodk7crqRFkjv/N53c1ADdP7KGTajbI+OrSr
tjdB7XathFrBPkQysuuTSW0EyvLK0fsmPESN/3TP1o4FspWe/wrGDyBmqhMx
sqQB+Bb58wIGBxFhWGJoHVAPc1avnOq3fkCEYk0Te6AWunc5S2+NGUZqnXqm
UeI14GdHEt/UM4LoFH2NHiUmSCV9sF8qO4qYFgM+DomVUOCQ9ehr6CdEc0yp
6jcoBzv9CBPWqzHEvNiwQfnPMyhy8t60++dnxFx3YPijdiHMi+wVqLCZQEyH
Lyc4Og/AulVXUzZlEtFOmGTPDSaDiO6K6sq7k4gv6GFe6qVkqL7fdcgxB8fP
3hRRUksGtdCw43cKsHfbtUlcuAViG8uuSNXj9bPbvKXWJUGjl8aQxBfst9co
hPENMBBWpIuZTiG+iNvpE4pxMO8/v6HACnuiV64+IBYKuxsemNlhsxK2hr28
CHKFri+vnMCm+bwINo2Bnzb3R0TCsFufdjV4RUJZzkZ9oYfYiybekWYh4CM6
1fDwCbb52zzoCgJKSJX1viJs9v3qUrdASDp4zP1iJXb+7RAuzR8CZtJuCrRh
p0/Y2zi7gZKDh1xOJ7Zj0rBT0CkYqNPJM+rDpnIW3yccB8uUzqrIT3/z6bY4
4G4Hwvy5B+SnsE0S3UevWwF4hrQzZ//Gr7PavfZD8Nt9ztRF7KyiXj1fLfi/
9yHo/9+H/A8qXT0u
     "]]}, 
   {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[CompressedData["
1:eJw12Hk8VP33AHBZspSt55E2nkllqywlUekzpJKSIUmpUFmylGQZ2SbEkDRJ
RSSi0GIQ2Z3BvY+xj0iyZYlnqDTSghbfT6/X7/fXzPv1Oq97z/3c+znn3Lv6
1HlrZ2EhIaElC4SE/vxqoaUT8/OfAP/1/lJrUX1+dg1zdg7bsVuz2Hw95D/X
VZ3+ii341EY12w6b1C1Ojb3H7l7lX7BrP2yVj+xpfo1tSnsO2+yBOjLVmMzG
Nn+fP63uAdbRLU82O2BvqLrpIRYEAW2RXq7Vk8AQPVF5sToWOjsXTdQ4fQSh
Fxy2684UUOKc/3vrqg/AuVtnYtGaCcUehJhs/wRQIpIogUm54BinK3gTPg5C
yk6ytglsmEkIYgLig+NptfTkc4WQKTOwPGloDPKzLqeoriuGVHNdn46YUfBe
udN+eXYJhHs60TX2vQOaSFWoXU8ZBIk8DvD5OAw6mVcY55dWghOjbW1XzhDQ
vF0e7ZeohltVo0mp7oPAYCYsYrQClL9VX/xUZQCSnp/ormrkwBo5qolNWi8k
bco32n+tBgo1me7DI93Aa/A+8d+BWnhLFlD09buAe47Di/laC6Mbbm2CFx0w
OLyq/OLlOpAPzdXXWtAOM88UT+5fSEDUC3Wu3HceGFQorVgqQcDcZPbR6Q88
4NwwIt5KEjDs8Ci4tJsHg3ltw+elCSg0zqw1yedBuqTTvoi/CbAWu3fwiAMP
1JtoVf4qBKgtX90iFNQG1LdC+1hGBGzQ/7Th4XQz6EhLbIr3JsBFKyysrL8Z
6HcmZbf4EHBfVfZlS30zuD2/9bTnIgFLFLUDvqU0A0dpvYpKAAHfv5+r2Wva
DAbTSb8zQgioLZs8PJHYBEnDeSHOsQTYGU2Gaus3gtnn3/d+PCAgYUto+y5K
I3j3xdleyiKgaaPMWjupRqCYibV+f0jATmWtBsZAA5SmlM9O5hCwZt7rr5dR
DWDHOWramkfAJOdjtu9rLuR8uZRNKycgwvQjr4xeD6Vk8rMzPHx+sw+Weqfr
gTXRuqi4nQAhi/eteRb1wB3M0RPtICD48Hhzpko9qPtbjqW9IsDfZZR7rflf
MAiPbCB7CHBj9nOcKP+CXLcv6807Ag40t+RLcgnIN7ygtnyGgFhes3ZkIQGl
w1v7TGYJ4HY25f1OJYCxvs7eY46A3f0NT6cvELDs8PqK0p/4eibJnP6VBNAH
7H+YLiBBR646veB8HdhZSoavkSJBwSaPdVSxFnI6qvNmVpBQqHq1fLdILbCk
qpwnVpJAm3V9p/upBtxGCmV7V5EQm7baQKq+BlgrmTvKlEn4zU98W+5fA94j
E7NuKiSMhQRprerigKPNatHbGiScs7yRVKUBwNiSfUx1K4nXzfzDrQUAvPL2
C9+wh5NFqefeVAM3XDyYNCDB9l3Af8ox1ZCvdOes4zYSUOBJfQa/CoQ0bXNj
jEiQy1zfaZJdCSxma0XuLpzvN1KWu7YczNYd1aFYkhD/+EHtztky4FsMHezH
9jgZ5lfcUgY5Zja6yTQS1v5r0PvAvwwYSr+Mpa1JuH3ryaMQbinkf3BPGLMh
4ZLeDaPNniXAlTIUnDiG8+F7CXKpJUC/XmQhbk/C5lTzTIpCCdgprD3Pxv4g
IiopU/0CJCyGfv04TsLJDv9OvuwL4BwYMY9yIMHE57hH2vMiKEWBmQ5nSFBW
NVRWYBbBjO9F6lfsH28U2q8eLwJG19mMGGcSiozb9APFikBnoQU7z4UEVXkT
YZsjz0GgMzc37kaCVL5asuSPApDTOmy9zouEh72j18Yj88Bxj6go25eEnuCl
9+9tzgNqwcZ+BT8SZJT35lsNP4Nl8/89CML2d8x5WYaeAddF7ssufxL2jLor
xs49gUEdg2f1ASTwJz+la3rnAifsn6CUSySsYlEKB5RzIel+gNIUNk3Xqi6h
JQfSX515ujuIhNKLhaNzmjmQ4zd//T12zIyvZtPoI6B9335OM4QETeG55x72
WcAREYn2DcPrk6lJ/iOVBTPG9Z9LsRNM7bs6SjNhUGTt/p/Yc1GVM9uXZgKj
I7smjEFC06Iwo8XtGSBR1k8GXiZB6Bn7ICcsA+w2edwuxtY7OOjgq5UBlNSE
QwLsVJZxeN/VdFg2zr55KpyEbk2J+KPX0oD/Un39tggSqF5n82sm7kE+NdbR
CzuH3fhSw+we0Hqiwu9jB+pdU5wTTgU7inWcUCQJK3YuybhLTwZ6sV5JMXY4
42KdcFcSCHZftBrEfl/bOeq+OQloiw92S14hoXLvHc3tk7dBp6D7yVHsE1ar
inpPJ0K+5273D9gfpr8a+hE3IX1GtUY6ioTg220gs+4mOG63l9XCTu0NbzIe
uwHpRpU3PLA3hB636t1zA5LUxkkmdgVF/7VvNgsoSmensrCLml6Slu3xQKGf
0urB7pSLag9PuAZU4T40jT192LC/+FAc2A3lmC2KJmHT4P0vK7tiQG5wB9UA
22rdISHLO0woVRbVtsD2dl+4ONwuGmgCZQUnbPYXzzX8nki8Py3rr2C3GlK0
V6ZGAPe4883b2JOhHdsOnggH75+tto+wpYmoPZeVLwPTM06+GNtuiW+WG4SB
Tsm9ulrsO6k9Fa3GITAzKuzVht2latyhR1wCtwWV0r3YfxdkT9zdQ4cc+YaH
o9iHtssIL2jwAwllzS2fsBNI3+Wu+y+C0Ma3Fd+xeZa9Oi0t3sAy5RvOYysX
RbBc0j1h8OxuthiThBQuDTY9dAVqxreVi7CX9StN/s49BemTP8JksdePvDK8
fcIeeDaHe5dgqy72vqPlagV2XcJaCtiMTvXOlXVGkO4rSl+KvUG2311s41qU
r3Os7I+7psLvy82YoXQp0c9/4gWWap/P+9iimQXCKn9jB93c0+ih54jcFGz2
yWP/Dg1Mua/tjOR2zblK/zm++1PPDk13RGF+CZHAFrF9aySueh7RhkyuCmPX
UWKi78n5IIb56PUf+Poib6t4b433Rfzq3qvT2HsWV9q1LwpAfAPVsAls8fDD
xh4xgYhWSJwdxOZ+n9QQEw9GZmtL9r/CjvViLrkfGYokon+tbcB+NMUKWXWZ
gSgv73ytwHZ11XR58Tsc5f+sD07DNlMJOBZhFIl49Sc2x2Or99cdpAVfQfnW
e4eCsSesT2ydmI1GbgEKa45gN0o/Xl9iEIN0vs++MMF+wv32T2RALBoU3mSy
EdtzJ0tC+WscYlxO3TmPn0+L2b6fE5vjUXdnK3sMW6tIY6rE5zpi+tosa8Ge
SRz6oD7DQlyro223scukgl7V+t1E3m57Xylhp29U6GCrJCI5jX/Xz+H9FUVj
81LbEpGEBGn+Ctvm9kiTv8ZtJJdjMhyNLVh9oFazPwmpfzQMGMD797XpGCjG
JqNla17IF2BXuzKqRLfeRXTPAt9w7KvPikoHWCmIl742cTW2qqESO8E0DbG0
Zw2scL1YfLzkadhUGjJ4dFZxBfZ0qNVjz7T7SDB6pHoI1x/H4VrrNcHpyEzy
mbMXtpb6d4tfrzLw8fRW+ON61fDcwbQgJguVjl1dYYHr3w5yQ53aYBbKOVbD
EMbO75o1TtN/iPi7L7BfhOJ+NXsTXR15iPKvIpeV2GcQd5uzUTaS6Is37Aom
Yb5RR3f5VC5isqr85XG99un7xb6+9zEShASdeR6I+/PHRq2FaY8RNZG9wga7
Wc55w7T5E5QjFjh4g07CXdtktZasp8jMjNn+G/eHLcMLlC/bsRE92HJf2kWc
f/mRKZ1cNuK0NJzQw1ZNeEYMzrLRYNjUqQYfEhZlPN2SbpGP6K/3IsEFEn7S
7PrmJ/MRZ1CcqutNQn8+WwN0C9GgxXUnhifuV6nH/lI8VogEKeUMMewuptiv
c+GFiLM1nhXjgeuNoz1PuaMQ8Wc3hMe74/sjJx4Q6vscUUd3PruK++F975OE
UUkRKm05rXII99PU45J5t94WIZ75+P760yQkmRXd+ShejCR2ybtsw2ZRpDzu
2RWjboW9nkqn8P7jFcv/mi1GQpsRpwv3aycdaYfKHSWIu3th1FLc39cIKma3
1ZYhuoXgSiOeH4JbdkV++ViG1IdoqjLYXY+bZPKWlyMhv4FoGp43Yp1716y+
UI7U1ULj2y3w89YzZyFOqUACo+pcwhznTxo+6AipRLyVhYrnTUk4llJi7mkI
yC68rLlTH9dzOnq1zhlQzg6/G4ItuH/b1ju8ZQGi7zdTXIRdI/fa15oPiOKp
67JjM66Xu4IsU/dzECtrTo6ljetN6d3A8DnsscrkH2ok7Mt803LQrhYJSbv7
jCjifK7gqcKrFkkUnaT2LcXr4xYxvz2iFlF9e3s6FHD/37hRVyOvFnULzvrB
XyQwSxmJIqJ1SC60jsqUxfWkRc2+lF2HuF2PtQcXkrB3xo+/WpxE1Ag1t9wv
eP60WCLytbgeGdQly2Y0ExDvJDk121CPKHG3Rk43EdDtJ/T2d389Sup5+2Rd
IwHuaZPlEgu5iH/j+PJH9Tj+U6PPKlsuUhcbcL1bi+NvRAzv+sZFSee3v6SV
4viuLzUJ+o2IXijd9QXP89cdXjN0SpqRIErRebkffl/5sAONNTcjvvFFLh2/
L4QGPviVMtyMWM3Fgi48F5+76XVJXKYF8b+PX79+joCD9SK+A2daEFN4XOKz
KwEy2jqucUtaEcNH/l3QMZzPb6YF36sN0Tcf2pK5k4D6g0rStCXtyDEh+jMS
IeDjaoXQl3c70LJQie1a0XXg57ve6frSLiQY2cTo/VkLr/vkrF243Yj5k1Yv
YVMLjoE7/hM/0IsES7IqxrNqoG791tg6sQFk1pyxtKuDA6qSlfwss0FEqcg8
vuAXgFKlx24x5hByXPS8Lc+gGoTmhHN9hofRoPaDuEG1SvhuVXWSXPcOcfRj
rc4uLYdePYeV6yJHkVyi0x7HghLwPiInr9I3hrw9I07maBfD8sR3dqJKfOS9
bdTCprgQ8uzTs6fp44gywDd7V8mGI0ZhZtyqCcToSt4trPoYCk56qWz7+R5x
6vM9Z5zx3Ca1S6Ts8EdEdZqfEHuRAtbt2/WVkiaR0KpZ4xc910Bq+6KaynuT
iME6E7/Q5RrUZPXsP56J3UgvoE7FgQ490CklD8frLbjkIx4HMv+UxC0n//iw
ZPOmWGjw3DSi8BnHJ7/71/ZKFFAlNFgyBz4hIWUB7/rmUJi5MLMizwq7MyEi
yzQE2L31Dy2OYB+40xB3OBiU2S4Vcaew94Us7va/BD8PZ41JBWJzKmyPlvhD
SeY/RuKPsOP5zMWO5+Cc9Kf6R0+wH7xJzA72BNWAaus9BdinNJ6NJ7lDovkJ
tyuVf85v/PMUzwV8pu7eFOnAtottOuR/EjTt3ZUzu7Eddx2Yyz0GQ4RhrskA
ttuKpsk+W6AldVdfHv8TH+8RcfkgSAjn7Fv9CZveu4U6sgfAI6CT8wWbZ1mn
G70T/F/tcXCc+3M8sYwtsVrwf99D0P9/D/kfdLMz/A==
     "]]}, 
   {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData["
1:eJw12Hk8VN3/APCxRZImz6PlEQ3JVmm0kIpjafGUZaikTaOSsk4iZJuQhGqy
ZSdblJiEmYt8xvYgZCxpEYYieyM9hafle3q9fr+/7n2/zn3d+3mdcz+fz3kd
5TMeNo6iJBJJToRE+n3VRivGf/36BPhWqinXuNpjfl3E/AI2pXFiVJsC7Kc6
arP//vbnz/6bqLBFw+LMyAQ2r/Rrj5YR6C0Pe9v6CttL98aD9TQwej/zPKkY
27Bwva0CHWxutD3aehr73XLxykUM8GkPc3OqngaSuZbGqspg6O5eMl7jMAW8
y/9scdzAAkWex596ayaBpOF6e9X1e1DmUi+xrG8cmCvUJk0vpAM9Wkf4JmQM
KFPtKvzaLJiL8Y8ANAqUnAnFmbFcyJbtX504OAJGG+OfyKkVQOoBHc+um8PA
U+ijSqkWQoirg6/m3x+APptHvl5fBP5iD308p4bAaIN/yQ8OGxyY7ao9+YMg
AM2gW4NPIP7ZcGKqswB4Hw8e1ZwpgYoBDZlClX4QflTytBcphXVkI5PD6b0g
EMzU7hkvhRKtCOeh96+BFhrY/qy9DAYanlB0dXuAtbaJ3JhUDsMb47dAeRfw
BhUbvY05sDyoQFdbpAP45xZ9KxdwILxco4n8jQ+U+rLv74Y4sDD94NjsJB+o
/REVIsMcGDqdF8B9zQeeV6r9/jEOlBhn15qw+UBmRJjVzXDARiLN8uhpPjDL
J7MDRbmgvlq5jeTfDuzl6QHfVbiwUffTxtzZVqDttehUoXPhvHZwMNGHrRL0
RfEMFzLUlnW2NbaCoHowfuU5Lsit3OzzNQWPx5naLrrAhW/f3Gv272kF0taQ
tg4PLtQS00fG41qAVOWWQAnmgp3BdNBm3efANF+IT0vlQsz2oA5TynMgR2Vm
XEjnQssmWVU7aTyeE6WxJZMLhkrazcz+ZmBEb+Hysrmw7pfbH53hzZCp0Pmi
5SEXpnlTD7xeNYFQ/sWbJC4XQvdM8QnfRmAX0pzlu/D3zSattp1tBOpI1HB+
NxdIFhMviiwaQRD9Y2pnDxcCjoy1Zqs0AmP2et7xN1y4cn646VbrP8Cq1yuP
GODChYg+ngPlH+CtCqVlTHDBvLWNvbipHhhJcLlclIBIfuvmsJJ6YL+5n6Ag
TkBTd0vRz1Rs06Z9wRIE7O1rLpy9VA+Cze8tTaQIMJxuyO9TqAch6+TP8qUE
UMnVmU886iDzZNnb46sIkD9cxDq2shboKD8qeiMBJWpRFXvFakHY8jmiaBMB
tHmnDzqfakCYm2naro2/n668Q7qxBpiO6jMyOgT8HI0bqLiC/Xl0o992AkYC
/bXX9PCAbnxVXd6QAHeru4nPNAGoQ6VaJywJyP9yYDJeBIAx/qn7sBUBQ0ni
Ru5vqoFXkbDbgkaA7Qefj0o3q4FWqLFnpw0ByM9elzn6DJjJ57ZJ2BJAzt7Q
bfKgChjEpST7Uzjerw3LmlQrgLrKz2etCwG3H2bVGs4TwF/U6CDqSoCLfbB3
WRsBpP4J/nts1X929GZdIYBlXWmQ5U5AQvyjvMAmLvADfK2XehJwddtdg62u
HGCL5jik+uJ4Rt2EBUYcYHQGJTn5EbA19UA2RZ4D9JBttjpXCZgUE18sW10O
gks69jx/Auy7rnSPLisHxn8++a1BBJh4nnRJf1oK1KcX1dLDCFBS01eSjygF
VuzSQuvrBPz3Rr4j6mQpGPXeKRcLJ6DUuF3XT6IU+Jepx8/eIEBtuYno4aNP
geH5sZccSYA0Wz1p8X9PgBlg16x6h4Dc3uFbY2FFQLlw24KaSMDbgBUZaVuL
IPPVLs4jbFml/WzrocfAuODesz6JgCv0/E4CPQahy9ntK5IJ2DfsvDJy4RFk
2rG8P6YQMDr9KVOLUQCUjGW/DmYQsIZFKelXKgCejmJNCTZNx7oupi0feGVP
dqzKJIB7uWR4QSsfGN89zAawb855abUM54Hw7z3jp7II0BJdeOpyIgdIfzjo
Kebi+cnWalgrjU0bs/bAjtlzoqeLmw28+XllHvZCeNXcrhXZwPpYOnQqj4CW
JcEGMh33IdM+duTmA7yOj4stecH3gb/D4XEH9jZLwWkv7fvAUuRqrsonIJVl
HPIuKhNYViKm97Ffa0ndPnYrHSi7xeayCwgwcrvIrhlPA94RBZdB7Pzi552a
ZmlAFX0Wq/iQAL9tt1YuiKYC3TpNIgb7L0O5+8m+ScA43+Xi8oiAEOblOtGe
ROCX60elY0/Udg87b00EtowWnY9dtf+e1q7pBKD8yNeiFhJwynpNae/ZOGCZ
KJsIsCdn/9X3ro8Fcr3QVOoxAQEJ7SC7HjtFVWozdmpvSIvxyF0gMYhXvtgb
g05a9+67C3TmX+9TsCspuq+8HrCAskTAfoZd2tLZYNVxG4zYibE/sLvJ4R0h
MbdA8DYqX6GIgNkj+n1lh6KBkfE+eAf2FkHGF4Wem8CUq/F2x7Zef4hkdS8C
eC/2xd3AZjgvkgmxuwFMpOOdgV38xXXd6NswYNluC2rBfqFP2ayQGgp8SYu8
AezpoK6dlqdCgBf6nPUZe2l9+L5rSteA3F5oIF5MgJ2cV84FCAbK9Gzhn9j3
Ut9WvjAOBPaHjP512D1qxl3b6q/i+WR36mD/+eTBePI+XxA6qd00xD60S1ZU
pNkbqP+RRA9gxzR4rXY6eBnol40MDmPzrXqpbW0MoHV92HkKW6k0lHU+0xUE
a6YXzmGnNNFgS64TCK1PBrpgr+pTnP5ZcAboXptrGdgb3r/UTzh1AnjXnZq9
sNVkGPe0nayBHi4e64PN7NboVqgzAKrPorV+2BuX9TlLbFJFlGNubr/dMxOS
QZ4zQ0Yb9IN8sYVW6p89PG0Rdfqi9RVs/9h9z1220RHt/q8RT+yfQX4pGZsd
Ed10wdD99/udC127tJwRpevYsQvYYrYDBpJqHkhopaTrgF1HuXkjjeyJSJz9
L+2wwxJUGHq3vRBZskfXCnufTJVdxxIfRDNoPr4HWzLkiLHLTT8ktFU23oHd
9G1aU0IyADGs+8e0sCPdIuQywoIQWZN0ZA123gwrcM01JiK/DQ+RwXZy0jpf
/jME8Yla1TG8nmYqPsdDDcIQdcAn6SW2Rl+dJS3gOuK13uXzsMdtTumNz99A
1InZ67HYz5c+3MDZcRPxybvF/bEfNX1dG+YTiSijo3scsF0NWVJK/0Yj1l3G
Ui1si/l338e33kZGtgfjZbC1SzVnOJ53EJ8dOTCF/+e5uMFJjTkWYkrrVRZi
E9L+L2u9YxH13N47CtiZm+S7ilXikNHkWJ0Q51c4rZif2h6HWGvqQuqxDye8
b7mimYDoJn9kOGELlc1rtfoSEV1R0yYV5+urPSOwMjIJ8c5feu2IXe3EfCau
l4zIw1Ojm7CjHpdy+1kpiIpC8wlcD9T0FYtj9qQjXphiFuD6IXOSUxg8k45o
8RJXA7Fng6wfuqZnIJq58jt9bPpQrc26gExkZD9rWITrkbbGN4sfL+8jVtuv
oOu4fjU/Pb3nyc0cRLXLG53KIWB3w8Y6dUEOomVUn43DZvfMG6fr5iKS0uKL
+tgJ87Eo6n0uwvkoF5xNwDnUtNPR4AGilAj65+4T8Os5VWf1TAESJvg45KUT
4PnuR/Gd/Q8RT5gbvB17ZOq59qL0h4iVK65Rl0ZAK9lx4+yBR4iRbLPybSoB
ybZJ6m05hYj2aSPjK+4P24dElK7ZFSN6R6X0WAKOv+LoDLWgGBlp3J25iK0W
87heMF+MaP69MWPxBCy5X7g904KNKDEvxIfjCPhOs3v3a5qNaP1aea0xBPSx
izVBpwSxHqX129/G/Sr1+B8rj5cgKq/EteUWzqcIiR/uISWIl7GzTBf7Bf0E
X6mrBPHVs7wXR+P1IUv6BHk9RZmqrU8zbhKQwbCvN+CUIt6ii+vv4P6aenJx
UfxAKSIfTzz+MZSARLPSe1OSZUg4q3fAEJtFkXZJsytDPFqj3eg1nH/8suU/
5ssQ+YPy1k3BBDhQl56u2s1BDErGOz/c79cJK+d31hKI4uIustYN1+s207Av
UwRiVMt93433Ez0PW2SLVlcg8n+mvsfw/iPSsXed8qUKRKeY/3vrIv7f3i5Y
SFIqEY01ITLsiONv0M/qCqxCQl1Nx4P2BBxP4Rxw1QfELkqynrfA9dwXvVzv
CMiozzLwoznu37aNpwdYgKhJN7S6DxJQQ37lZTOK7RGyuOBvXC9N/a1SD/IQ
3S/ujdFeXG+4yX4hCzzE5gzUaOwm4O/sN22WdrWI9iWf/UYDx3O96HyDWy0i
p/0znaaO5+dC6K9dobVIELm1iq6G+/+mTTqaRbWI1DwvPrSOgAguM05MvA4J
yjdZdinhetKmfoJbXIeoxoPVjD8J2D/nPaos2YCE9/gr7v3kwl4LObF/yxoR
Vcko8u4LLtx2WDwz39yIMu83rJBv48Jrb9LAz75GRE/zOnOvhQvO6dMVUoua
EItpoZeI92G3Pz33XGPbhDKdBT2Rtfj5u6FDpl+bED14+9TWcvx8z5eaGN3n
SFA5eDke7+fvnH7FpHJaEf/A2c54Ry6ET+5GI62tiD7wbHPWWS4E+WX9SBlq
RbwV+X88duCCe6zbVUnZNpS5VtOj+hQXLBvFvPrPtSHWsTav9iNckN1MdYqW
e4Go3/+qeLgXx/MzwmLUrR2RsxI19qlyodFScSlNrgNRGxU9yX0cmFKWD+pM
7kIUrYq0Q2Yc8Pba4HBnRQ/iH+o1j84qh1fvyDbnm14joeIBJ7PXZUD32/1R
0rwXkddur4leVAZ1G/Qi6yT6EaUlUtpYphTUFleN5pgJEFtdKmhB5ikoVrns
lYgYRKSzpYb+P58AaUG0wHNoCLFUTIsv1rLhm/Uz+4b1HxDvhoGdiUwx9G47
rbA+bBhRis9cMqcWAuMoebnKuxHECxiaT95SAKvjPtiJK44iSoTIL0PDPCg6
kflg1ncMkcyl36i/y4KjBsFmTc/GEanyz5lScgY8sXdT2fl9AhmlGPt46SfC
nLSpGHFkCvFKLCe9PFlg07FLVzFxGpF2KJxVL78G0ruW1FSlTSNmoHv1B8Y1
qMl5e/BkNh7fe2JH/IZrQPX1c0gpws4uuNGeyQTZtZzo1Q3YS8+vOyQfDM2u
W97Lf8amuzBHOFfBSEqTJWv+CZEmlF5zxy7B3KW5v4qssYuTBxZOXILi3sZc
i6PYoqC07gUDlIrPV0afwRakhJuf84DvR3JGpP2wybrG0zPOwMleayCZh627
fHG42BlwX/qpMe8R9vT4EP8DHdR8qm32PcHmDZvzo05D3IFTF65XYVP3dn6T
PQGeM8mxYl3YQuU8BtkGtE44K2W/xvZ9WpOUYQWD9foFJv3Y/MDOUMWDQEt8
XX1tDHvUnTe5wgSkRPP/Vv70+/3e21+p7gJw8enmfcEmHZPf8dcWuPJy32n6
AjbFdtecggr833kI+v/zkP8BNTkuyA==
     "]]}, 
   {Hue[0.6142719099991583, 0.6, 0.6], LineBox[CompressedData["
1:eJw12HlYTdv7APAtEqEBhRtJqERpUJSydiRjqZCIBi5RSbopkdqSZpVUNKdB
Z5MmUWl4twadJlJJVzKU3KRBAw3I9/U8v99f53yed6191ll7rfddey87esb0
uABFUXOnUNSfT2Ui2fP79wDgV5kdoaqlZ8aX+49P/LGO9q6/xCD7garc8Dc0
t3RX50IZUFMwPPrpy5/4U6ntkiqwXtzndd0rdPachWvEaaA7B2uis9DGBrun
CBmDqV/9PXUrdFiPxPEuK3B77nPatrQfqA0TaWoRZ6C5eVbPE5s+oEQ9VY4v
ZGAJd2b++sW9QC29ct7Xzg8e2lcIirb3AFUx3L9uWwhYB6t+/df7M1Biu1N1
s8JhLPyiP5BuYKKq9QaaIiFF5O2iWx8+ARUj/qxxTjTE7VR1bgroAqpb2v/r
zDjwdrA5v2rHR6AMd0tP8hLg4tS7bs59HUA3pc+NYpPAhnm+ooX3ARi3zlNs
422ILOm6FWf3Hihh7+yOD8nw+J3C7AzZt8CdPG5bPpgCy8XozfsS2oDTlxp1
eJ0KuYr+dh2drcD89PXIgzR4V5kjo6nZAoyayu2YgDvQtSZSDR41AbXzwCY1
1XQQ92Q1lae8AO6CWPjRhnTwfaTAFxttAC5H6YR/YzpM9KcfHO5FU1VDGc3p
0GF1x6OgtQEYV0eNodZ0yNVLKduc3YDzG2F9+kM6mArGGx2wwniphZHcUDrI
L1pWT118DtzLcv/kuTxYozmwJm24Dri8FUzFHh6cUPbyKmyvA6ZN+zKY8CBR
TrSxvqoO6H+fTSncy4O5C9a6fY9F9zldTj/Ag9FRxyfb9LF//O0LzlY8KCvs
398TUQtMwct9nCMPzHX7Pddq1gDX4cduDOZBuIbniy0yNUDJJ8VMD+FBrZLI
CnPhGmCeas9qCOXBJmnlauZtNXBpo3aWN3iw/PfpeY2+1UDH3lhxKoYH/Vxf
ussrPtBtZxlNHg+u6Pc1FJ6vAs7+flt2Gf7+9t49646h3WO36lfw8L5+eZZp
iHYb0Gmp5IHH/s91KbLoR9VN3/g8cD3Rxb9W9xTokzuTlz/nwUn/ds5G5ilQ
PpFlWm082F1Xnz2TXwH03vnixkM8CGyoW+uTWwEM+13+4TAP+M21mZNxaMvN
dQu/8WBre3XG8Flsv0uypG0U/09/Ja9dqgKo0Vxi/IsHKmKlSTlnyoGLeskf
FmJBYl9m2MEFZUBvsPuyYjELuXJBj7dOLQOqx/SDwRIWjMdtP6oOPAHqTH6E
rTQLgQnLNghXocmIepoMC5PdEe8eu6K/bNonvpKFT5cuKi9u4YAelF98X4kF
xz3Xb5WsAmCucNVDuizwRnb2Rk4B4E5tPdO7iYWO6Gm047+lQG3Z3viRsGD2
0e0/6YBS4GbxG17osUDcLTWZ7hLg7uRkxW1lQSxldfPm9GJgjLS/fduN4/1e
Kcpf8RioY36Jjw6xEHI3uWzTeCHur0bfaAsW7C29zj2sLwTGZNrwhcMsrHi6
oS3ZtRA4yUWHtCxZiIq8d+cSvwAojdnHUm1YuLDuuq66Qz7ubzlr9ZM4nu7T
X1k6Hzil1shJtHrczhQZCYxfdDLmn2Khd+q0mSKlj4AZ37/vgD0Llk2uzd2i
j4Bb9j3qmCMLm50P2yc8yAMq5aaQhgsL0nJa0hL+6MmSoG70j38lXgQdzgNm
SV1EzDkW8vSea7oL5gH3LlFjwpUFOfHNAvsOPACqVS433Z0F4Wz56Jk/coC5
XhJV5MlCWlvXtc8+mZh/rEWq/Fh47SGZGK+ONvRy2+zPgoj0tmyTjvtASypE
FaNdrXmNhQRtJzmSEcCCQZfdgsCJe0CPnFDzDGKhu38gSdGJBW7m24KOEBYW
h8nkvsX7TvlGX9gRiutB1aQ8vJ4HzJR3g5nogn9yuyYUeUDPnzHFNYyFgDEX
xdquOzjfTbdHrrOgKDDxwN4iFedrb9+DCJyfFMXKpcKpuJ9zhKZHshCub9HS
VJACXGTMKzP0hG/x2EZJ9KZZt0bQtbO8dGe/uA3M+1OxMjdxHPezjDgvNCd1
9CR6ndF7Kxfl28DJmb/NRMeF6Xm/CUoC5qbT6PpbLLQqzgg5eC0BGB+ZDO1o
FujTp7Kf9MQDJyq/9Dyal1XTuGp7PK6/gm15aPd11xZMCMRhvrtQqBDDwl+b
5t6OOR8NjASzVCCWBW/mn3KBllvA7XizSQP9pay5y04dvbl8ni26eNtNxY39
UcCFqb59ij5isjiv7VgEUP2h31zjcL0Mf9M6V3ED6L8PjSagPaKeg8jKG8Ck
BRRVouPavGv1Pl0HKkQySDSehTWeh03aDK4Ds9ElSg1dJKP5yiU9DJgizb/3
ofNqGyv3vAgBSrfHIALdLOb7wjv8GjBb2ixy0cP7tdof7g0GaoWq+nO02vvE
EamWAKA9Z60STGDBZOVeas9Nf2AmQrdJo53sps/2NvcD2txdQROdNeKwvPu1
D3BwQfUo+pmWzFqpuCtA1YUfdEX3ezZpGx3xxnosqh+AnlPha3BZ+jJwsYNf
Y9Dmc11ST4IXMNYbrO+hb8a9Lnqmdwk4sY/XH6Nb5PSa1lVcACZj5CofPT8n
vSfG4Dxw6nY6L9F7N4oITKk+BxSr//A9OrzSZZHtrn+AmuXztQfdsKdNpb7e
CejDCv3DaOm8K2EnkhyAi1PN/IGO5RuDWpot0LWJKgKJLCxsX9I/yR4F5ovz
OSH06s6XWlFHLID6cddjFlputtNNZVsT9DYDETTTrNAsVa4LXO+ORlH0GtF2
O0GlFYSrz5YRQ7cMeieKjW0nTJKH6p/41z3yQ2eczQh37P60OeiLNwxq7NdZ
E2bBlpiZ6ElP99jEtccJV6Q7NO3P9e0yHJoU7Qi9J372bxzvVLN3ukJyZwjd
ZPN5FF0uE+AXL+ZMGIMg/wG0T5Ss0/oQF0Kxi3q60Aazi81fzHIj9NhskTa0
kPd+PfsAd8JpHh95huaP9q8SFPIgnLVs/BN04Gn/uYk+noR21Z/xAH1nMOzS
4ssMYc7XaqSgbW0VTzya9Mb+M1q90Ntl3Q5d0fUh1EjJbge0Qnu5kbHHVcJE
tV45gO4xPbK+Z9yPUIE6Woromjl3V+dvCCBM69V8cfQ9/velPm6BhBZaNzaK
689hU9gM6W/BhJoKHIc2HH/zs0c9hFC1sdtT0Mp5qwbznUMJ7dge7oMei/jQ
qzAWRijtUMct6ELhiy/Lzt0g9IOMzbm4X5KUJJqyZCMI427m5of2Nc5qiHuO
dtXQtEDvi+qsdV0VRTjBG6aTuB+/Lttdpth+i1DSdYLq6Ff6n2BBYDRh1i8N
/on7vdSWKZm2PoZQ9ulxFeig+3kFb8NiCSNy4LAxWk5rSVa4fgKhn6mZmWG+
mH04P8NrEK2rrDwfPexpctchIZFQyZZhDZh/rDvKTJd7JBFug+WwPlpZYdTw
18vbhBZtVV+M+ar6gZV+TkAqYS7kJPhgftSpXFMu/z6VcMXji1ajs1vG9RI0
0wgT7bq04QbWq/EbJKgzjVBCItUS6L8JX/u4bjphBnOjQjHf/q5RUV00yBI6
7ZmULuZv5ze/skK33SW02hHtumtYn/tqlKcn3CVU59LOg+g6seNrhnfeI1yw
XpNTMAsxZtHy9akZhBP5pnQtkAWNjinSl82zCDc0v97LF8f/+MCgCptF6FG/
PAotF36/4v04xktdzJirLMy6naGRZJhNuPNF1Rd9WPhpbP7md382YTJ+nj7m
zUJ7dtYqUM0lzGWD+98uYb2KOzRvwaFcQnMmOkfRLf6Cvxy9cwml2XK13gPz
jbVFg3QTxpN3bk+6iPdHTMjN0+UBYRzfB2piPUx0sqzQzc8jjGz+dDmsp3GH
Z2ZGvkNvNNH1/IeFW9vzbvYJPSTMl2PKL51ZCJMRto83R3cOEa+zuP8aHor/
Gn9I6CmPZCqwXtuozLEq1skn3MqqVjGs78u/Fo1rlxUSek2Z7CM8P3jUb/EZ
6Ssk3M6DMs14vmi5WyuSuegxYY4GJ37F80fg8bbly84+JpzOU9mVB3G9vZ4w
FJIpIlyer47Hfhx/pVZy06ViQm9eXdJhyMKh2PydDlpAGLPLQ2F4Pso7T16u
PA6ETnBZ7qWD9dusyupdGMb9p7TYb2ThidgrF9NujA//B7QW5sstF/fE7eII
1/7xTus6zDcFMe7eExxhTgY/4VazsCPl33oj8zJCfRpVcF6I47maeaLydBmh
/3Y4o7kA5+fkld8br5QRxtNw67gE1n8lJdVVmWjF/YkX5rHgX8BETJ1WTpg2
t9kOIphP6uUtCrLKCS39vWbmNBa2jZ3rXiZUSbjQNa0q/Xj+NJw79dvDKkIZ
tCsplfIgxGbm4Hg1+i+52uxiHrSeo95NtlcRpq9MXr2IB3YJ/Y9nTOcTSmtM
el0Bth+ocV5sxif0IyNB+Vxsf/1Kx5bvfMJMRuY0pGH7lpEn4Zo1hBJ/56eO
5/lQq1eMSn4dYYpTVq7fzwPfXh3yqa6OUHz9lC34vODpnvwrtuOPS9ON8HnC
8cbpC0Ii9YQT091qbcgDo6qpLm//RudbNp7dygORtSq2wXOfEdpLQsNIA8cz
6W/Yffo5oe31pXrn8aDKaMkc47kvCHWl26a4Lh36lkl4NsY04fovpEU3pMM5
l9U2oZIthJFSu2oZfgdevREzPcFvJZSf5BldfhpYu+v8J7S7jdDUm92Z31Oh
fPX6wHLBt7ie7/cm/0wBuZnF3anb3xNuUj3k7q9kWFJsv1XQ/wOhjvz4ETRw
G6gJAda5o4NwJktO/XqQBKMmJZaVKz8SyjHzWdTXBGhbZyW10qeLMD8mspUk
48DpgJi47JtPaIXPpn9Fw6KIj+bTlnQTJrSE/S0fBZkWSenD5z8T6oRPI8MP
hwO6Xtv5JT2EenZpuehACORYnpbV/vmFUCelbqpK+8OY8Japhfv7CHX9vwQF
KwZMX2zUXHKrn1CudZJBSWdBeOOsJ8XxaGX5jdEWZ+FJ6utdh1PQJ4vvxkie
BZXz7jaxmegkxt4t2AlEluYHL6pEK2R2qQw4QrWDWqfEENqhQ34wyg7oGavC
RHYPEKogZsimyQbGzo79lWmC3s0bMTawgay2qjTDA+je6iC5QmuQzjpRFHwU
HaY1JKxrBT/3p34SdkfTYfErGg5BfspSXaE76Oz6gue9JuA4Z6Dqzr0/1+/d
xzw3Bjm3UlODHPT7aPWfx/ZAxM4jJ68W/+nfp13WuxOcB2NuTG360793XuC4
Hiha2EmntP6J37pz0Y3AhwotdvNbtIx/5YIf2mB8q7X08mc0F9rR91sVZgjw
diwbQFMdsEdgNYC9WzM38sdrx9ZMlQXXlwZW1hNoJvn1p2lz4f/eh5D/fx/y
PwB0BVs=
     "]]}},
  Axes->True,
  AxesOrigin->{0, 0},
  Epilog->{
    InsetBox[
     FormBox["\"\[Alpha] = 1.5\"", TraditionalForm], {
     0.2, -0.33251027193644844`}, {-1, 0}], 
    InsetBox[
     FormBox["\"\[Alpha] = 2\"", TraditionalForm], {
     0.2, -0.2452435943011544}, {-1, 0}], 
    InsetBox[
     FormBox["\"\[Alpha] = 3\"", TraditionalForm], {
     0.2, -0.1615464673215221}, {-1, 0}], 
    InsetBox[
     FormBox["\"\[Alpha] = 5\"", TraditionalForm], {
     0.2, -0.09633324473360072}, {-1, 0}], 
    InsetBox[
     FormBox["\"\[Alpha] = 10\"", TraditionalForm], {
     0.2, -0.04804161389047934}, {-1, 0}]},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.457251344359375*^9, 3.457251762671875*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Durchhang", "Subsection"],

Cell[CellGroupData[{

Cell["\<\
Funktion, Seill\[ADoubleDot]nge und Durchhang\
\>", "Subsubsection",
 CellChangeTimes->{{3.45353074159375*^9, 3.453530753640625*^9}, {
  3.4535325319375*^9, 3.45353253978125*^9}, {3.45353468553125*^9, 
  3.453534692234375*^9}, {3.45360864515625*^9, 3.453608663703125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"y", "[", "x_", "]"}], ":=", 
  RowBox[{"alpha", " ", 
   RowBox[{"Cosh", "[", 
    RowBox[{"x", "/", "alpha"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.453531490109375*^9, 3.453531491890625*^9}}],

Cell[BoxData[
 RowBox[{"seill\[ADoubleDot]nge", "=", 
  RowBox[{"2", "*", "\[IndentingNewLine]", 
   RowBox[{"Integrate", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Sqrt", "[", 
      RowBox[{"1", "+", 
       RowBox[{
        RowBox[{
         RowBox[{"y", "'"}], "[", "x", "]"}], "^", "2"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "w"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Assumptions", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"alpha", ">", "0"}], ",", 
        RowBox[{"w", ">", "0"}]}], "}"}]}]}], "\[IndentingNewLine]", 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.45352793296875*^9, 3.453528003234375*^9}, {
   3.453528076671875*^9, 3.453528083015625*^9}, 3.45352817225*^9, {
   3.453530515578125*^9, 3.45353051625*^9}, {3.453531738328125*^9, 
   3.453531743015625*^9}, {3.453532357921875*^9, 3.453532362515625*^9}, {
   3.45353599209375*^9, 3.453536045296875*^9}, {3.453539645796875*^9, 
   3.453539645796875*^9}}],

Cell[BoxData[
 RowBox[{"durchhang", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"y", "[", "w", "]"}], "-", 
     RowBox[{"y", "[", "0", "]"}]}], ",", 
    RowBox[{"Assumptions", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"alpha", ">", "0"}], ",", 
       RowBox[{"w", ">", "0"}]}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.453529841359375*^9, 3.453529843203125*^9}, 
   3.453531748796875*^9, {3.45353185175*^9, 3.45353185290625*^9}, {
   3.45353230403125*^9, 3.45353230975*^9}, {3.4535396458125*^9, 
   3.4535396458125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
alpha aus der der Seill\[ADoubleDot]nge berechnen\
\>", "Subsubsection",
 CellChangeTimes->{{3.45353074159375*^9, 3.453530753640625*^9}, {
   3.4535325319375*^9, 3.45353253978125*^9}, 3.4535396458125*^9, {
   3.453608586359375*^9, 3.453608627296875*^9}}],

Cell[BoxData[
 RowBox[{"seill\[ADoubleDot]ngeTaylor", " ", "=", " ", 
  RowBox[{"Normal", "@", 
   RowBox[{"Series", "[", 
    RowBox[{"seill\[ADoubleDot]nge", ",", " ", 
     RowBox[{"{", 
      RowBox[{"w", ",", " ", "0", ",", " ", "3"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.453530108875*^9, 3.45353011578125*^9}, {
   3.453530366859375*^9, 3.45353037484375*^9}, 3.453530547234375*^9, {
   3.453530586015625*^9, 3.45353064228125*^9}, 3.453531819265625*^9, {
   3.453532318875*^9, 3.453532319671875*^9}, 3.453539645828125*^9}],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"s", "==", "seill\[ADoubleDot]ngeTaylor"}], ",", "alpha"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.45353725425*^9, 3.4535372663125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
alpha aus der dem Durchhang berechnen\
\>", "Subsubsection",
 CellChangeTimes->{{3.45353074159375*^9, 3.453530753640625*^9}, {
   3.4535325319375*^9, 3.45353253978125*^9}, 3.4535396458125*^9, {
   3.453608382625*^9, 3.4536084125625*^9}, {3.453608612078125*^9, 
   3.45360862*^9}, 3.45360865953125*^9}],

Cell[BoxData[
 RowBox[{"durchhangTaylor", " ", "=", " ", 
  RowBox[{"Normal", "@", 
   RowBox[{"Series", "[", 
    RowBox[{"durchhang", ",", " ", 
     RowBox[{"{", 
      RowBox[{"w", ",", " ", "0", ",", " ", "3"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.453530108875*^9, 3.45353011578125*^9}, {
   3.453530366859375*^9, 3.45353037484375*^9}, 3.453530547234375*^9, {
   3.453530586015625*^9, 3.45353064228125*^9}, 3.453531819265625*^9, {
   3.453532318875*^9, 3.453532319671875*^9}, 3.453539645828125*^9, {
   3.4536086969375*^9, 3.45360869890625*^9}}],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"d", "==", "durchhangTaylor"}], ",", "alpha"}], "]"}]], "Input",
 CellChangeTimes->{{3.45353725425*^9, 3.4535372663125*^9}, {
  3.453608716640625*^9, 3.453608721359375*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Wie genau ist die Taylorreihenentwicklung (seill\[ADoubleDot]ngeTaylor)?\
\>", "Subsubsection",
 CellChangeTimes->{{3.45353074159375*^9, 3.453530768140625*^9}, {
   3.45353265921875*^9, 3.45353267315625*^9}, {3.453534224203125*^9, 
   3.453534226796875*^9}, 3.45353692334375*^9, {3.453613855875*^9, 
   3.453613868265625*^9}, {3.4536252573125*^9, 3.4536252689375*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"alphaExakt", "=", "1."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dExample", "=", 
   RowBox[{
    RowBox[{"N", "@", "durchhang"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"w", "\[Rule]", "1"}], ",", 
      RowBox[{"alpha", "\[Rule]", "alphaExakt"}]}], "}"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"alphaN\[ADoubleDot]herung", "=", 
   RowBox[{
    FractionBox[
     SuperscriptBox["w", "2"], 
     RowBox[{"2", " ", "d"}]], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"w", "\[Rule]", "1"}], ",", 
      RowBox[{"d", "\[Rule]", "dExample"}]}], "}"}]}]}], ";"}], "\n", 
 RowBox[{"seill\[ADoubleDot]ngeExakt", "=", 
  RowBox[{"seill\[ADoubleDot]nge", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"w", "\[Rule]", "1"}], ",", 
     RowBox[{"alpha", "\[Rule]", "alphaExakt"}]}], 
    "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"seill\[ADoubleDot]ngeN\[ADoubleDot]herung", "=", 
  RowBox[{"seill\[ADoubleDot]nge", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"w", "\[Rule]", "1"}], ",", 
     RowBox[{"alpha", "\[Rule]", "alphaN\[ADoubleDot]herung"}]}], 
    "}"}]}]}]}], "Input",
 CellChangeTimes->{{3.45353291546875*^9, 3.4535329403125*^9}, {
   3.453533091828125*^9, 3.453533097625*^9}, {3.453533208703125*^9, 
   3.453533225078125*^9}, 3.45353340825*^9, 3.453539645828125*^9, {
   3.453540057890625*^9, 3.453540080421875*^9}, {3.453625381078125*^9, 
   3.45362538928125*^9}, {3.4536254791875*^9, 3.45362552678125*^9}, 
   3.45362568775*^9, 3.453625723640625*^9}],

Cell[BoxData[
 RowBox[{"relativerFehlerDurchhang", "=", 
  FractionBox[
   RowBox[{
   "seill\[ADoubleDot]ngeN\[ADoubleDot]herung", "-", 
    "seill\[ADoubleDot]ngeExakt"}], "seill\[ADoubleDot]ngeExakt"]}]], "Input",
 CellChangeTimes->{{3.4535335226875*^9, 3.45353356115625*^9}, {
  3.45353684921875*^9, 3.453536867296875*^9}, {3.45362567603125*^9, 
  3.45362569453125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Wie genau ist die Taylorreihenentwicklung  (durchhangTaylor)?\
\>", "Subsubsection",
 CellChangeTimes->{{3.45353074159375*^9, 3.453530768140625*^9}, {
   3.45353265921875*^9, 3.45353267315625*^9}, {3.453534224203125*^9, 
   3.453534226796875*^9}, 3.45353692334375*^9, {3.453613855875*^9, 
   3.453613868265625*^9}, {3.453625274921875*^9, 3.45362529146875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"alphaExakt", "=", "1."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sExample", "=", 
   RowBox[{
    RowBox[{"N", "@", "seill\[ADoubleDot]nge"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"w", "\[Rule]", "1"}], ",", 
      RowBox[{"alpha", "\[Rule]", "alphaExakt"}]}], "}"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"alphaN\[ADoubleDot]herung", "=", 
   RowBox[{
    SqrtBox[
     FractionBox[
      SuperscriptBox["w", "3"], 
      RowBox[{
       RowBox[{"3", " ", "s"}], "-", 
       RowBox[{"6", " ", "w"}]}]]], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"w", "\[Rule]", "1"}], ",", 
      RowBox[{"s", "\[Rule]", "sExample"}]}], "}"}]}]}], ";"}], "\n", 
 RowBox[{"durchhangExakt", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"y", "[", "w", "]"}], "-", 
    RowBox[{"y", "[", "0", "]"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"w", "\[Rule]", "1"}], ",", 
     RowBox[{"alpha", "\[Rule]", "alphaExakt"}]}], 
    "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"durchhangN\[ADoubleDot]herung", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"y", "[", "w", "]"}], "-", 
    RowBox[{"y", "[", "0", "]"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"w", "\[Rule]", "1"}], ",", 
     RowBox[{"alpha", "\[Rule]", "alphaN\[ADoubleDot]herung"}]}], 
    "}"}]}]}]}], "Input",
 CellChangeTimes->{{3.45353291546875*^9, 3.4535329403125*^9}, {
   3.453533091828125*^9, 3.453533097625*^9}, {3.453533208703125*^9, 
   3.453533225078125*^9}, 3.45353340825*^9, 3.453539645828125*^9, {
   3.453540057890625*^9, 3.453540080421875*^9}, 3.45362573090625*^9}],

Cell[BoxData[
 RowBox[{"relativerFehlerDurchhang", "=", 
  FractionBox[
   RowBox[{"durchhangN\[ADoubleDot]herung", "-", "durchhangExakt"}], 
   "durchhangExakt"]}]], "Input",
 CellChangeTimes->{{3.4535335226875*^9, 3.45353356115625*^9}, {
  3.45353684921875*^9, 3.453536867296875*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Zugspannung", "Subsection",
 CellChangeTimes->{{3.453524702796875*^9, 3.453524705828125*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"y", "[", "x", "]"}], "/.", 
    RowBox[{"alpha", "\[Rule]", "1"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.453540890140625*^9, 3.453540939546875*^9}, {
  3.453541014984375*^9, 3.453541019453125*^9}}],

Cell[BoxData[
 RowBox[{"zv", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"z", " ", 
     RowBox[{"Sin", "[", 
      RowBox[{"ArcTan", "[", 
       RowBox[{
        RowBox[{"y", "'"}], "[", "w", "]"}], "]"}], "]"}]}], ",", 
    RowBox[{"Assumptions", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"w", "/", "alpha"}], ">", "0"}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.453542815484375*^9, 3.453542837140625*^9}, {
  3.4535428746875*^9, 3.453542883875*^9}, {3.453542917203125*^9, 
  3.45354292028125*^9}, {3.453543083390625*^9, 3.453543089359375*^9}, {
  3.4535433435625*^9, 3.453543365*^9}}],

Cell[BoxData[
 RowBox[{"z", "/.", 
  RowBox[{"First", "@", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"zv", "==", 
      RowBox[{"m", " ", 
       RowBox[{"g", "/", "2"}]}]}], ",", "z"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.453543068890625*^9, 3.45354311434375*^9}, {
  3.45354438234375*^9, 3.453544406984375*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Coth", "[", "x", "]"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "10"}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Blue", ",", "Dashed"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.453543169796875*^9, 3.45354318115625*^9}, {
  3.4535432199375*^9, 3.45354323578125*^9}, {3.45354347471875*^9, 
  3.453543521875*^9}, {3.453543555640625*^9, 3.453543556765625*^9}, {
  3.453545184671875*^9, 3.453545186875*^9}}],

Cell[BoxData[
 RowBox[{"Coth", "[", ".1", "]"}]], "Input",
 CellChangeTimes->{{3.453545191078125*^9, 3.453545191234375*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[" Beispiel 1", "Subsection",
 CellChangeTimes->{
  3.4535466830625*^9, 3.4536078485*^9, {3.45362108284375*^9, 
   3.45362108871875*^9}}],

Cell[CellGroupData[{

Cell["\<\
Gr\[ODoubleDot]sste L\[ADoubleDot]nge bei 100 Grad C, Durchhang 1.5m \
vorgegeben\
\>", "Subsubsection",
 CellChangeTimes->{{3.453609633734375*^9, 3.4536096519375*^9}, {
   3.45360973078125*^9, 3.4536097355625*^9}, 3.453609902265625*^9, 
   3.453610480109375*^9, 3.453616102921875*^9, {3.453621067140625*^9, 
   3.453621069203125*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"mastabstand", "=", 
   RowBox[{"150", "m"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"durchhangMax", "=", 
   RowBox[{"1.5", "m"}]}], ";", 
  RowBox[{"(*", " ", "vorgegeben", " ", "*)"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"querschnittStahl", "=", 
   RowBox[{"60", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"10", "^", 
        RowBox[{"-", "3"}]}], " ", "m"}], ")"}], "^", "2"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"querschnittAlu", "=", 
   RowBox[{"257", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"10", "^", 
        RowBox[{"-", "3"}]}], " ", "m"}], ")"}], "^", "2"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dichteStahl", "=", 
   RowBox[{"7.85", " ", 
    RowBox[{"kg", "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"10", "^", 
         RowBox[{"-", "1"}]}], " ", "m"}], ")"}], "^", "3"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dichteAlu", "=", 
   RowBox[{"2.7", " ", 
    RowBox[{"kg", "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"10", "^", 
         RowBox[{"-", "1"}]}], " ", "m"}], ")"}], "^", "3"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g", "=", 
   RowBox[{"9.81", "m", " ", 
    RowBox[{"s", "^", 
     RowBox[{"-", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"zugfestigkeitStahl", "=", 
   RowBox[{"510", " ", "kg", " ", 
    RowBox[{"m", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"s", "^", "2"}], "  ", 
       RowBox[{"10", "^", 
        RowBox[{"-", "6"}]}], 
       RowBox[{"m", "^", "2"}]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"w\[ADoubleDot]rmeausdehnungStahl", "=", 
   RowBox[{"10", "*", 
    RowBox[{"10", "^", 
     RowBox[{"-", "6"}]}], " ", 
    RowBox[{"K", "^", 
     RowBox[{"-", "1"}]}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.45360791465625*^9, 3.453607980109375*^9}, {
   3.453608010703125*^9, 3.4536080246875*^9}, {3.453608839625*^9, 
   3.453608906578125*^9}, 3.4536090313125*^9, {3.453609127203125*^9, 
   3.45360913765625*^9}, {3.453609190796875*^9, 3.453609320484375*^9}, {
   3.453609390171875*^9, 3.45360945790625*^9}, {3.45360950215625*^9, 
   3.45360951746875*^9}, {3.45360956840625*^9, 3.453609582296875*^9}, {
   3.4536096939375*^9, 3.453609706421875*^9}, {3.4536100538125*^9, 
   3.453610081*^9}, {3.45361013453125*^9, 3.453610163578125*^9}, 
   3.453610210859375*^9, 3.453610371578125*^9, {3.45361040296875*^9, 
   3.453610434140625*^9}, 3.45361072278125*^9, {3.453611000234375*^9, 
   3.453611027921875*^9}, 3.453611492265625*^9, 3.453612052953125*^9, {
   3.45361630278125*^9, 3.453616303125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"aktuelleWerte", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"w", "->", 
      RowBox[{"mastabstand", "/", "2."}]}], ",", 
     RowBox[{"d", "->", "durchhangMax"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.453620074234375*^9, 3.453620083828125*^9}}],

Cell[BoxData[
 RowBox[{"alphaMin", "=", 
  RowBox[{
   FractionBox[
    SuperscriptBox["w", "2"], 
    RowBox[{"2", " ", "d"}]], "/.", "aktuelleWerte"}]}]], "Input",
 CellChangeTimes->{{3.45360791465625*^9, 3.453607980109375*^9}, {
   3.453608010703125*^9, 3.4536080246875*^9}, {3.453608839625*^9, 
   3.453608906578125*^9}, 3.4536090313125*^9, {3.453609127203125*^9, 
   3.45360913765625*^9}, {3.453609190796875*^9, 3.453609320484375*^9}, {
   3.453609390171875*^9, 3.45360945790625*^9}, {3.45360950215625*^9, 
   3.45360951746875*^9}, {3.4536096645*^9, 3.45360966525*^9}, 
   3.453609713796875*^9, {3.4536097611875*^9, 3.45360977078125*^9}, 
   3.453610722796875*^9, 3.45361081134375*^9, {3.45362009115625*^9, 
   3.4536201120625*^9}, 3.454298537109375*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"aktuelleWerte", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"w", "->", 
      RowBox[{"mastabstand", "/", "2."}]}], ",", 
     RowBox[{"alpha", "->", "alphaMin"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.453620074234375*^9, 3.453620083828125*^9}, 
   3.45362013190625*^9}],

Cell[BoxData[
 RowBox[{"seill\[ADoubleDot]ngeMax", "=", 
  RowBox[{"seill\[ADoubleDot]nge", "/.", "aktuelleWerte"}]}]], "Input",
 CellChangeTimes->{{3.453608925625*^9, 3.45360897825*^9}, 
   3.453609674421875*^9, 3.45360977265625*^9, 3.453610811359375*^9, 
   3.453610958125*^9, 3.453620137984375*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"volumenStahl", "=", 
   RowBox[{"querschnittStahl", "*", "seill\[ADoubleDot]ngeMax"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"volumenAlu", "=", 
   RowBox[{"querschnittAlu", "*", "seill\[ADoubleDot]ngeMax"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"masseStahl", "=", 
   RowBox[{"volumenStahl", "*", "dichteStahl"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"masseAlu", "=", 
   RowBox[{"volumenAlu", "*", "dichteAlu"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"masse", "=", 
  RowBox[{"masseStahl", "+", "masseAlu"}]}]}], "Input",
 CellChangeTimes->{{3.453609116625*^9, 3.45360911934375*^9}, {
   3.453609323890625*^9, 3.453609379359375*^9}, {3.453609464609375*^9, 
   3.453609487625*^9}, 3.453609524953125*^9, {3.453609775234375*^9, 
   3.453609777421875*^9}, {3.45361069*^9, 3.45361069*^9}}],

Cell[BoxData[
 RowBox[{"zugkraftMin", "=", 
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], " ", "g", " ", "masse", " ", 
    RowBox[{"Coth", "[", 
     FractionBox["w", "alpha"], "]"}]}], "/.", "aktuelleWerte"}]}]], "Input",
 CellChangeTimes->{{3.453609603171875*^9, 3.453609609875*^9}, {
   3.45360979534375*^9, 3.4536098025*^9}, {3.453609951421875*^9, 
   3.453609988453125*^9}, 3.453610811359375*^9, 3.453610870921875*^9, 
   3.453620140296875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "belastungsfaktor", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"zugSpannung", "=", 
     RowBox[{"zugkraftMin", "/", "querschnittStahl"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"zugSpannung", "/", "zugfestigkeitStahl"}]}]}]], "Input",
 CellChangeTimes->{{3.4536101011875*^9, 3.45361010746875*^9}, {
  3.453610170171875*^9, 3.45361017528125*^9}, {3.453612168734375*^9, 
  3.4536122016875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
was passiert bei Abk\[UDoubleDot]hlung auf  -20 Grad C?\
\>", "Subsubsection",
 CellChangeTimes->{{3.453609633734375*^9, 3.4536096519375*^9}, {
   3.45360973078125*^9, 3.4536097355625*^9}, 3.453609902265625*^9, 
   3.453610480109375*^9, {3.453610547125*^9, 3.45361055796875*^9}, {
   3.453610591171875*^9, 3.453610596796875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"deltaT", "=", 
   RowBox[{
    RowBox[{"-", "120"}], " ", "K"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"seill\[ADoubleDot]ngeMin", "=", 
  RowBox[{"seill\[ADoubleDot]ngeMax", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"deltaT", " ", "w\[ADoubleDot]rmeausdehnungStahl"}]}], 
    ")"}]}]}]}], "Input",
 CellChangeTimes->{{3.453610604765625*^9, 3.45361062771875*^9}, {
  3.4536110329375*^9, 3.453611107421875*^9}}],

Cell[BoxData[
 RowBox[{"alphaMax", "=", 
  RowBox[{
   FractionBox[
    SuperscriptBox["w", 
     RowBox[{"3", "/", "2"}]], 
    SqrtBox[
     RowBox[{
      RowBox[{"3", " ", "s"}], "-", 
      RowBox[{"6", " ", "w"}]}]]], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"w", "->", 
      RowBox[{"mastabstand", "/", "2."}]}], ",", 
     RowBox[{"s", "->", "seill\[ADoubleDot]ngeMin"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.45360791465625*^9, 3.453607980109375*^9}, {
   3.453608010703125*^9, 3.4536080246875*^9}, {3.453608839625*^9, 
   3.453608906578125*^9}, 3.4536090313125*^9, {3.453609127203125*^9, 
   3.45360913765625*^9}, {3.453609190796875*^9, 3.453609320484375*^9}, {
   3.453609390171875*^9, 3.45360945790625*^9}, {3.45360950215625*^9, 
   3.45360951746875*^9}, {3.4536096645*^9, 3.45360966525*^9}, 
   3.453609713796875*^9, {3.4536097611875*^9, 3.45360977078125*^9}, 
   3.453610722796875*^9, 3.45361081134375*^9, {3.45361116634375*^9, 
   3.453611171921875*^9}, {3.45361122721875*^9, 3.453611240078125*^9}, {
   3.453612101109375*^9, 3.453612101515625*^9}, {3.453612273109375*^9, 
   3.45361227346875*^9}}],

Cell[BoxData[
 RowBox[{"zugkraftMax", "=", 
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], " ", "g", " ", "masse", " ", 
    RowBox[{"Coth", "[", 
     FractionBox["w", "alpha"], "]"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"w", "->", 
      RowBox[{"mastabstand", "/", "2."}]}], ",", 
     RowBox[{"alpha", "->", "alphaMax"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.453609603171875*^9, 3.453609609875*^9}, {
   3.45360979534375*^9, 3.4536098025*^9}, {3.453609951421875*^9, 
   3.453609988453125*^9}, 3.453610811359375*^9, 3.453610870921875*^9, {
   3.4536111519375*^9, 3.45361115228125*^9}, 3.45361227921875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "belastungsfaktor", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"zugSpannung", "=", 
     RowBox[{"zugkraftMax", "/", "querschnittStahl"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"zugSpannung", "/", "zugfestigkeitStahl"}]}]}]], "Input",
 CellChangeTimes->{{3.4536101011875*^9, 3.45361010746875*^9}, {
   3.453610170171875*^9, 3.45361017528125*^9}, {3.453612168734375*^9, 
   3.4536122016875*^9}, 3.45361223571875*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[" Beispiel 2", "Subsection",
 CellChangeTimes->{
  3.4535466830625*^9, 3.4536078485*^9, {3.45362108284375*^9, 
   3.45362108871875*^9}, 3.453621404515625*^9}],

Cell[CellGroupData[{

Cell["\<\
Gr\[ODoubleDot]sste L\[ADoubleDot]nge bei 100 Grad C, Durchhang 1.5m \
vorgegeben\
\>", "Subsubsection",
 CellChangeTimes->{{3.453609633734375*^9, 3.4536096519375*^9}, {
   3.45360973078125*^9, 3.4536097355625*^9}, 3.453609902265625*^9, 
   3.453610480109375*^9, 3.453616102921875*^9, {3.453621067140625*^9, 
   3.453621069203125*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"mastabstand", "=", 
   RowBox[{"150", "m"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"durchhangMax", "=", 
   RowBox[{"5", "m"}]}], ";", 
  RowBox[{"(*", " ", "vorgegeben", " ", "*)"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"querschnittStahl", "=", 
   RowBox[{"60", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"10", "^", 
        RowBox[{"-", "3"}]}], " ", "m"}], ")"}], "^", "2"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"querschnittAlu", "=", 
   RowBox[{"257", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"10", "^", 
        RowBox[{"-", "3"}]}], " ", "m"}], ")"}], "^", "2"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dichteStahl", "=", 
   RowBox[{"7.85", " ", 
    RowBox[{"kg", "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"10", "^", 
         RowBox[{"-", "1"}]}], " ", "m"}], ")"}], "^", "3"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dichteAlu", "=", 
   RowBox[{"2.7", " ", 
    RowBox[{"kg", "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"10", "^", 
         RowBox[{"-", "1"}]}], " ", "m"}], ")"}], "^", "3"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g", "=", 
   RowBox[{"9.81", "m", " ", 
    RowBox[{"s", "^", 
     RowBox[{"-", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"zugfestigkeitStahl", "=", 
   RowBox[{"510", " ", "kg", " ", 
    RowBox[{"m", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"s", "^", "2"}], "  ", 
       RowBox[{"10", "^", 
        RowBox[{"-", "6"}]}], 
       RowBox[{"m", "^", "2"}]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"w\[ADoubleDot]rmeausdehnungStahl", "=", 
   RowBox[{"10", "*", 
    RowBox[{"10", "^", 
     RowBox[{"-", "6"}]}], " ", 
    RowBox[{"K", "^", 
     RowBox[{"-", "1"}]}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.45360791465625*^9, 3.453607980109375*^9}, {
   3.453608010703125*^9, 3.4536080246875*^9}, {3.453608839625*^9, 
   3.453608906578125*^9}, 3.4536090313125*^9, {3.453609127203125*^9, 
   3.45360913765625*^9}, {3.453609190796875*^9, 3.453609320484375*^9}, {
   3.453609390171875*^9, 3.45360945790625*^9}, {3.45360950215625*^9, 
   3.45360951746875*^9}, {3.45360956840625*^9, 3.453609582296875*^9}, {
   3.4536096939375*^9, 3.453609706421875*^9}, {3.4536100538125*^9, 
   3.453610081*^9}, {3.45361013453125*^9, 3.453610163578125*^9}, 
   3.453610210859375*^9, 3.453610371578125*^9, {3.45361040296875*^9, 
   3.453610434140625*^9}, 3.45361072278125*^9, {3.453611000234375*^9, 
   3.453611027921875*^9}, 3.453611492265625*^9, 3.453612052953125*^9, {
   3.45361630278125*^9, 3.453616303125*^9}, 3.453621423421875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"aktuelleWerte", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"w", "->", 
      RowBox[{"mastabstand", "/", "2."}]}], ",", 
     RowBox[{"d", "->", "durchhangMax"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.453620074234375*^9, 3.453620083828125*^9}}],

Cell[BoxData[
 RowBox[{"alphaMin", "=", 
  RowBox[{
   FractionBox[
    SuperscriptBox["w", "2"], 
    RowBox[{"2", " ", "d"}]], "/.", "aktuelleWerte"}]}]], "Input",
 CellChangeTimes->{{3.45360791465625*^9, 3.453607980109375*^9}, {
   3.453608010703125*^9, 3.4536080246875*^9}, {3.453608839625*^9, 
   3.453608906578125*^9}, 3.4536090313125*^9, {3.453609127203125*^9, 
   3.45360913765625*^9}, {3.453609190796875*^9, 3.453609320484375*^9}, {
   3.453609390171875*^9, 3.45360945790625*^9}, {3.45360950215625*^9, 
   3.45360951746875*^9}, {3.4536096645*^9, 3.45360966525*^9}, 
   3.453609713796875*^9, {3.4536097611875*^9, 3.45360977078125*^9}, 
   3.453610722796875*^9, 3.45361081134375*^9, {3.45362009115625*^9, 
   3.4536201120625*^9}, 3.45429855728125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"aktuelleWerte", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"w", "->", 
      RowBox[{"mastabstand", "/", "2."}]}], ",", 
     RowBox[{"alpha", "->", "alphaMin"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.453620074234375*^9, 3.453620083828125*^9}, 
   3.45362013190625*^9}],

Cell[BoxData[
 RowBox[{"seill\[ADoubleDot]ngeMax", "=", 
  RowBox[{"seill\[ADoubleDot]nge", "/.", "aktuelleWerte"}]}]], "Input",
 CellChangeTimes->{{3.453608925625*^9, 3.45360897825*^9}, 
   3.453609674421875*^9, 3.45360977265625*^9, 3.453610811359375*^9, 
   3.453610958125*^9, 3.453620137984375*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"volumenStahl", "=", 
   RowBox[{"querschnittStahl", "*", "seill\[ADoubleDot]ngeMax"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"volumenAlu", "=", 
   RowBox[{"querschnittAlu", "*", "seill\[ADoubleDot]ngeMax"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"masseStahl", "=", 
   RowBox[{"volumenStahl", "*", "dichteStahl"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"masseAlu", "=", 
   RowBox[{"volumenAlu", "*", "dichteAlu"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"masse", "=", 
  RowBox[{"masseStahl", "+", "masseAlu"}]}]}], "Input",
 CellChangeTimes->{{3.453609116625*^9, 3.45360911934375*^9}, {
   3.453609323890625*^9, 3.453609379359375*^9}, {3.453609464609375*^9, 
   3.453609487625*^9}, 3.453609524953125*^9, {3.453609775234375*^9, 
   3.453609777421875*^9}, {3.45361069*^9, 3.45361069*^9}}],

Cell[BoxData[
 RowBox[{"zugkraftMin", "=", 
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], " ", "g", " ", "masse", " ", 
    RowBox[{"Coth", "[", 
     FractionBox["w", "alpha"], "]"}]}], "/.", "aktuelleWerte"}]}]], "Input",
 CellChangeTimes->{{3.453609603171875*^9, 3.453609609875*^9}, {
   3.45360979534375*^9, 3.4536098025*^9}, {3.453609951421875*^9, 
   3.453609988453125*^9}, 3.453610811359375*^9, 3.453610870921875*^9, 
   3.453620140296875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "belastungsfaktor", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"zugSpannung", "=", 
     RowBox[{"zugkraftMin", "/", "querschnittStahl"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"zugSpannung", "/", "zugfestigkeitStahl"}]}]}]], "Input",
 CellChangeTimes->{{3.4536101011875*^9, 3.45361010746875*^9}, {
  3.453610170171875*^9, 3.45361017528125*^9}, {3.453612168734375*^9, 
  3.4536122016875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
was passiert bei Abk\[UDoubleDot]hlung auf  -20 Grad C?\
\>", "Subsubsection",
 CellChangeTimes->{{3.453609633734375*^9, 3.4536096519375*^9}, {
   3.45360973078125*^9, 3.4536097355625*^9}, 3.453609902265625*^9, 
   3.453610480109375*^9, {3.453610547125*^9, 3.45361055796875*^9}, {
   3.453610591171875*^9, 3.453610596796875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"deltaT", "=", 
   RowBox[{
    RowBox[{"-", "120"}], " ", "K"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"seill\[ADoubleDot]ngeMin", "=", 
  RowBox[{"seill\[ADoubleDot]ngeMax", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"deltaT", " ", "w\[ADoubleDot]rmeausdehnungStahl"}]}], 
    ")"}]}]}]}], "Input",
 CellChangeTimes->{{3.453610604765625*^9, 3.45361062771875*^9}, {
  3.4536110329375*^9, 3.453611107421875*^9}}],

Cell[BoxData[
 RowBox[{"alphaMax", "=", 
  RowBox[{
   FractionBox[
    SuperscriptBox["w", 
     RowBox[{"3", "/", "2"}]], 
    SqrtBox[
     RowBox[{
      RowBox[{"3", " ", "s"}], "-", 
      RowBox[{"6", " ", "w"}]}]]], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"w", "->", 
      RowBox[{"mastabstand", "/", "2."}]}], ",", 
     RowBox[{"s", "->", "seill\[ADoubleDot]ngeMin"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.45360791465625*^9, 3.453607980109375*^9}, {
   3.453608010703125*^9, 3.4536080246875*^9}, {3.453608839625*^9, 
   3.453608906578125*^9}, 3.4536090313125*^9, {3.453609127203125*^9, 
   3.45360913765625*^9}, {3.453609190796875*^9, 3.453609320484375*^9}, {
   3.453609390171875*^9, 3.45360945790625*^9}, {3.45360950215625*^9, 
   3.45360951746875*^9}, {3.4536096645*^9, 3.45360966525*^9}, 
   3.453609713796875*^9, {3.4536097611875*^9, 3.45360977078125*^9}, 
   3.453610722796875*^9, 3.45361081134375*^9, {3.45361116634375*^9, 
   3.453611171921875*^9}, {3.45361122721875*^9, 3.453611240078125*^9}, {
   3.453612101109375*^9, 3.453612101515625*^9}, {3.453612273109375*^9, 
   3.45361227346875*^9}}],

Cell[BoxData[
 RowBox[{"zugkraftMax", "=", 
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], " ", "g", " ", "masse", " ", 
    RowBox[{"Coth", "[", 
     FractionBox["w", "alpha"], "]"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"w", "->", 
      RowBox[{"mastabstand", "/", "2."}]}], ",", 
     RowBox[{"alpha", "->", "alphaMax"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.453609603171875*^9, 3.453609609875*^9}, {
   3.45360979534375*^9, 3.4536098025*^9}, {3.453609951421875*^9, 
   3.453609988453125*^9}, 3.453610811359375*^9, 3.453610870921875*^9, {
   3.4536111519375*^9, 3.45361115228125*^9}, 3.45361227921875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "belastungsfaktor", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"zugSpannung", "=", 
     RowBox[{"zugkraftMax", "/", "querschnittStahl"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"zugSpannung", "/", "zugfestigkeitStahl"}]}]}]], "Input",
 CellChangeTimes->{{3.4536101011875*^9, 3.45361010746875*^9}, {
   3.453610170171875*^9, 3.45361017528125*^9}, {3.453612168734375*^9, 
   3.4536122016875*^9}, 3.45361223571875*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]]
},
WindowSize->{1912, 1100},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 38, 0, 83, "Title"],
Cell[CellGroupData[{
Cell[630, 26, 91, 1, 36, "Subsection"],
Cell[CellGroupData[{
Cell[746, 31, 106, 1, 27, "Subsubsection"],
Cell[855, 34, 3389, 75, 332, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4281, 114, 141, 2, 27, "Subsubsection"],
Cell[4425, 118, 517, 15, 31, "Input"],
Cell[CellGroupData[{
Cell[4967, 137, 417, 9, 31, "Input"],
Cell[5387, 148, 28760, 488, 89, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[34208, 643, 31, 0, 36, "Subsection"],
Cell[CellGroupData[{
Cell[34264, 647, 282, 5, 27, "Subsubsection"],
Cell[34549, 654, 233, 6, 31, "Input"],
Cell[34785, 662, 1005, 23, 112, "Input"],
Cell[35793, 687, 581, 15, 31, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36411, 707, 264, 5, 27, "Subsubsection"],
Cell[36678, 714, 548, 11, 31, "Input"],
Cell[37229, 727, 199, 5, 31, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37465, 737, 311, 6, 27, "Subsubsection"],
Cell[37779, 745, 571, 12, 31, "Input"],
Cell[38353, 759, 233, 5, 31, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38623, 769, 378, 6, 27, "Subsubsection"],
Cell[39004, 777, 1541, 40, 134, "Input"],
Cell[40548, 819, 374, 8, 49, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40959, 832, 370, 6, 27, "Subsubsection"],
Cell[41332, 840, 1615, 47, 153, "Input"],
Cell[42950, 889, 286, 6, 49, "Input"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[43285, 901, 99, 1, 28, "Subsection"],
Cell[43387, 904, 470, 12, 31, "Input"],
Cell[43860, 918, 632, 16, 31, "Input"],
Cell[44495, 936, 331, 9, 31, "Input"],
Cell[44829, 947, 677, 17, 31, "Input"],
Cell[45509, 966, 124, 2, 31, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[45670, 973, 141, 3, 28, "Subsection"],
Cell[CellGroupData[{
Cell[45836, 980, 345, 7, 27, "Subsubsection"],
Cell[46184, 989, 2772, 79, 192, "Input"],
Cell[48959, 1070, 297, 8, 31, "Input"],
Cell[49259, 1080, 759, 14, 51, "Input"],
Cell[50021, 1096, 322, 9, 31, "Input"],
Cell[50346, 1107, 301, 5, 31, "Input"],
Cell[50650, 1114, 882, 21, 112, "Input"],
Cell[51535, 1137, 454, 10, 49, "Input"],
Cell[51992, 1149, 466, 11, 72, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52495, 1165, 339, 6, 27, "Subsubsection"],
Cell[52837, 1173, 462, 12, 52, "Input"],
Cell[53302, 1187, 1130, 25, 55, "Input"],
Cell[54435, 1214, 636, 15, 49, "Input"],
Cell[55074, 1231, 489, 11, 72, "Input"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[55612, 1248, 163, 3, 28, "Subsection"],
Cell[CellGroupData[{
Cell[55800, 1255, 345, 7, 27, "Subsubsection"],
Cell[56148, 1264, 2792, 79, 192, "Input"],
Cell[58943, 1345, 297, 8, 31, "Input"],
Cell[59243, 1355, 758, 14, 51, "Input"],
Cell[60004, 1371, 322, 9, 31, "Input"],
Cell[60329, 1382, 301, 5, 31, "Input"],
Cell[60633, 1389, 882, 21, 112, "Input"],
Cell[61518, 1412, 454, 10, 49, "Input"],
Cell[61975, 1424, 466, 11, 72, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62478, 1440, 339, 6, 27, "Subsubsection"],
Cell[62820, 1448, 462, 12, 52, "Input"],
Cell[63285, 1462, 1130, 25, 55, "Input"],
Cell[64418, 1489, 636, 15, 49, "Input"],
Cell[65057, 1506, 489, 11, 72, "Input"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
