(* 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[     36040,        701]
NotebookOptionsPosition[     35301,        673]
NotebookOutlinePosition[     35746,        690]
CellTagsIndexPosition[     35703,        687]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  RowBox[{
   SuperscriptBox["x", "3"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"x", "-", "\[Pi]"}], ")"}], "3"]}]}]], "Input",
 CellChangeTimes->{{3.62167228239275*^9, 3.62167228664275*^9}, {
  3.621672337095875*^9, 3.621672373064625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "\[Pi]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.621672376470875*^9, 3.621672389752125*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwd2Xk8Vc/7AHCR61jLTiJb1nuVLSqZQ0UkO1GSZEmSiBZpsZaS7JJCkZ2s
yTqTyPJBiLKWpRSirPdeLr7n9/vrvN6vM/fMnHmeeebM60o5e1u6MjMxMW1s
YWL6vysL5Oic0PTRtf/ULnHz+IcaSSFJOYk4MyCZXbLNsOFM/fJItOlA7Fmg
6yiiGFz9uN6rH2viLXIHRzW/a+huy60f1WsdfxvrDVaQ5OSugrr63L4jTEU1
V4G72F7LPYvt9c4cu58wFV0HTaOfgy3X++t3AlYJq/Rb4LmYTWxWz0R939Wf
Ba9j74L93W5vVp/M1hv2josHNgSBeE7nF42k5frMOUvX1zUhoEP8vd18F6Oe
if1DQWd5GJh+JCXTrcACz8ioL1EL74OLBSftJgcwWH0o46BUdgSotviIS8Rs
g0J2/CHG6Y9ALu4s8LOEH171DWm7mvwYxDVpOcapi8CuyEXeF7FPQJ/qHJuK
nThM/FxCnmiKBuF/uj12JUjBxlGPrusNMSBBtjtNelAWLsxK+XHBWFATfODo
6XsKUGptQPhlTRwo7bg7tBFJhuZYbI3mu3hg3yj7IzV4L7wjaHy2rTwBrOSj
fCmqGiyQZmY5W5II/mJF355lacLBPdVZi4VJoK9elSslThtih3yNH+Q9Bbrf
4f5idBBqGSvN7cxOBj80mX647gXQ7eR4TEnGM5BhM3X3la8ejHd5pmmQngJm
63PXp64chg0+lgODz5+Dlhzvs8fjj8J/dzhueye/ANsecZ5k+2YITyQHND6N
TQOaKzrhj6ZMoK6VaHmiYTqoj1cZ7Cw0g332y6xjTelgvK//TompBWRxL8z1
b3gJbC9pCZYFWcNnXhFrEH8Fvq4WKMjo2kI1P9cTHPAVEMwUbyjgs4NOQeLz
qTUZYEH+Z+c1kgOk3qfrT+3PBOt+vQPTco4wKqovXv1dJthw1u74u9cJ1qY8
1m4pfw1iTqV29cU7Q6tXHg/51LOAyu3p5v6h83A65+iwQ0kW8JN622Cs6gpF
367fnS/MBvZ+FzmzsQuwuHag+yA5B/iILe+Xe+QBj32okAnPywGeLiEUXXFP
eK3Lq3lHdi74YZTb5uhzGXJ/NRJ13Z0HNGtyFxiiV2DmyG7PNxl5QEOzzCqX
xQf2TI/wHEnPB0W5cSff/POFHvNVTlESBQBzJa+bL12FTLSE0v7nBWDL0s7A
MSZ/uIfV1NYruRAMx/w8f0bzOozcVf8iMfYNWNxXgr3YFggN/ktRRdzFYEq8
XkTj1m34MdxOQNOyGJjGirs8XbgDm9e7BySGikGy769/NcxBsGWm0WXhTwlY
VLhbr+AUCo9lBxm6q5YC0Y5KrwjDMNjirKs07F8KZj+GGd3WDIetA5V/mzZK
wVCE+pjv7gewrTkvIHl7OdgzZO/27WQkNA5xP8NjUw4aXLaxSl97DNt0ZfGQ
5HJA9Yv4nZoSBf+reMHqJV0BEjq+dxvfiYbtGdHRuMZbMN10tsyaKw6anD1x
teLGW+BS+ZfsXxUH23dw2CrVvQUFV513B1+Mh+0xIWICBpXgd9izmAf9CbDj
7rWsXyffgavf5GJsfj6FpgfVIxyevwOj3OVxv0uTYefKX8/u0XfAnqWxozz0
Gez08lCt8agCMzXP7SQ0n8PO0w61UbeqwZDBsPz+tjRoKiyaxoKqgeZrRofJ
mXTY2dMXdGNrDTAW3rxa/zUdfjIyM3R+XANaBF9Rr39+Cbu09Hs002rBjlBP
dTSZAc0XN8rzJmqB95upEzd8MmFXUU3SLoU6IGxxUCJhIxN279Y8w15SB2aY
cvh4JLNgD7/C7+GGeiCMx532u5cDp6mkTb2rCJx9++hyZXUh3JQ50agVh4Dw
jVi59+eKoIB5XASlDIGRn2n+OzjfQJCzS0B0EQGWYi8rF7ViGG+nrfjP9z3I
vObJtO9ZCdSt8rBK9W0A6OwGasgoh1Y/34jExzaAZ9Pxg3c5KuAF3pWRiNIG
4MJ+6sxt3woY5xF8wX+hATyO774JDN7C36Ipt018P4CbfCsJ2HoljAloz171
aQRbbjMnzeTUwKwsPq9/MY1AKjAr8pRsLaztsVObLGkEAbwd5yRf1sJJpZ+1
3fONQNbz1EZFah08MLTenePTBDhC2vsoeRD+OLiHYevzEVz7ozdXuaUBaq/H
mJddaQENC02nf098hAcCLyZh0S0gdzFWKWVfMzy4pv/tzJsWEBPJacf6sBnq
0hc9sbkWoMJ5+usW9RZ4eNnm/hnPVhBdvcc793ErNJ0VrWdzawOcJtkmkm7t
0HXkpbLD6XZQ1uUp7WfVDd0cAnxLAtqBoq0Aa9WDbnhhyLKK9KwdaE0Jf3eq
74YXB1gMS/rbwY/M+SODSj3wSp+rM8m2A2h42lvexD7DwA7F5GLzTqCS7DoR
+6UXtn6zC2GW6QIVJ247+cB+aNuuLbhFowuEJFPyuNgG4I8qkezNI13A/oQt
XdpsADIl9Lcx3LpALKBceD86ALWP2/FR87rAPrfK3Db2IZhVefLljFo3WBwr
YWheHYGh0bawV78HKDjlVxpYjkG+O/ssPlv1gBgBnH/u9hhM9xSa6HbpAQz5
LK++3DFYa/CF9Cm8B+y4kO/gwjwOFxk2pq1tPYC3OKYp9O04dPawGamz/Awe
P+1dG1L6AXF967Us514QyHfrgfaRX5AmpKAV4tsLooXby4L9fsGSmTXfs8G9
QMJB6Dvr619QOiFjWvhVL5jvZjKtJP2GLL8XBh6M9YK6638pze2/4cfHMe8u
OvWBQ7Z7XNPOT8MTA53+Ko5fQKJF18Dx2ll46orRvwr7fmBtmFcyHbkAJRej
d0xe7AcBKcZcg0UL8Kd//xGhwH4QM/6YPt21AK/cck++ltoPiphW7/oILsLw
8DB9rYl+YBRlPr49fRGWPX8f/+7SAMgome9JqFmCXK3799fcHQRvB9KSkjmp
sF5KKRi9Hga3d66GHuJhwNWOA17pb4fBRqiLbKYWA2oGHLe71zwM1J5xZSie
Y8CCnksq+NQwOPN6YkdMOQOmhLwZhOQRYJ6fT+9yWIc3fmqow7IRsHu41par
bAOqE6W/7v03EKztoSVUw4SsnypljFweBWIamtzWeSxIjLXucLTbOPBaS/XU
qWRH99WbStGDH6Dz6olJcsh2dNTQ2CkrfBIMr0dET2oKoKaIJbnQgN9geIrT
dTe7CJp+LFD7/ek0qEm8YZlmtROdu17y5F/sH3AryEW6ea8kui3dqHq3cg70
k7Qe3nGURiobt1eYPf4BilJFja6PLGo+Y7co6TIPdHceCGU1lEOqqV5fb/st
gGP2d1QjJBTQEYv3pyp8F4F/wXA4Z54iin/kqcFyfRH88Hu9YFmsiCaaBHks
bi2CnGsh6YlvFVHwgYvv/4Qsgivcj6r4Piii9zL8CrIJiwCMeLwaGVJEuisu
y7GVi4BmxnGulksJaadg0VcYi+CV2DWPKE8lpPzTrEk5fAloGx+X3y6ujPo9
yE9cHy6B4qi8Dl1pZRQ+h9mnRS2BG6Jh9h7yymiU+v4PX9ISqMxM2lGqqozi
OTQEVrOXwNLk0nY+A2XE2CNyvqWVaH/D1YjjsjLqDBhlcuVeBibiz7m6qpXR
rc3atlTeZZB6iWf7DaiMFEKT4/sFlwHrmPQHsUZlFPzYUsFEYhk8ujmoatuh
jLTSG83U9ywD/we+rEnflVF6U07qFotlwG9eqGjIQka+2310UuOXQXzX7QFb
QzKajmq78uTpMsgJSA9QPk5Gztyyr+89J+zJq8owJSMLjq/c5zOXwbqn7UCM
LRnt3Xrou3z5Mni+g0597EpGc1QsuOTzMlApnfRvCSaji9/Tmxv5VsDDRbll
3WoyGj+zulYhtAJEjrTLxteR0alhq73ZO1bAu+5mw5+IjIwGSMkR0kR73c/n
bzWTkcLnSxdN1VaA5+vV/mu9ZDT5UZu732IFaBiHjeXOktH5oi7LmegVoFPz
bI2+k4IcRZqDVRNWQGZ+jQMmSUGngutKrycTz8te6OeVoSBz2zy+ra9WAH7X
Q0JIkYJ0NkJ6dpatgEQxYzShQUECplqWpn0rIMmMfiv2OAVte0cJjh8g2ifZ
8FuaUhCHtGzp4MgKuPchr4LLgoKYVrbzuU+ugNckf+GrthT058V0913qChCS
O6u59RwFNc6+sCgRpYI7gn95tPwpCJ6MD6KKU8Gj8uJfWdcpqPr9w5JD0lSw
KM5RxxtAQcUJ13nblKjgvYLiqf47FPT8kEX3+EEqcNzPMFB8QEH+j7daCDhS
AZf2oNZAMgXJUTzNr7+igvFP2w9cqiL6j/427ZdFBe7G03liNRRUumQR5ptH
Bes2D3M+1lLQoVrtaq9SKvgmv+PYNkRB1sdJsi4NVHDqVQ6H50cKCvJ4STUf
pwIfCx91kx4KMugQiDWdpAK1BXat8s8UxKX6gGwyTQW46QoU7qOgp7TL5wwX
qEB1badT91cKKrqv898hZhr480y1k2eEgoZff01VkqaBMfuLHKWTFPSK/fh+
BTkaGLrcoN7zi4IueNV/3q1EA4IyJ4dnf1PQosZrTEqNBtStR3OFZ4j5bvT1
FdangaTK8xTNvxTUJT/JJWhAA/4iEYaq/ygo8ZF9Np8xDUxedv6mME9BUlb4
MLclDWi9IAVxLFKQ9ji3wVZnGvCia8cmrVDQxtGg0S1uNBDiLfLQm0rEJ3cp
YNODBsYLAhj6NAoy8xl6s+pDA58nW8yG6RTkxpQrOh9EA+Uz47n9DAoiu+ws
nwujAb6U3d6R6xQ03/zE9E8EDewP5i08uEFBgU+uhfyKoQHmA3yxkZsUFCdx
ZHbkJQ0UT+Fr1C0q6G371PXm1zSgoUOvCmVWQYMBT5hLcmkg/MPGTm4WFST5
dVA4tIQG7HisP23fqoIOh9175VVBA8DETiKSsJu6HOVkFQ00l/HxsrCqoIIn
PvpK72mg5Zfk2AThT4eEO/ibaGCHtXr9CZIKWpipPbneQgP/Kd7ULSO8/xjm
1dVFAwVHlRR82FSQw0ohtaqXBmQsHWNaCd/LtArO6KeBVOuTL8QxFfSRKS3p
2ijxPvVaL94Rnio6Iu30gwbu8i1EbxLmOjNdYPSbBlS0heX12VXQXs5oLfU/
NHC8J+7sPcJWVZoNO/8R8W21OVBN+Jr7kAlpiQYGjUwq/xJ+Jhj09S+VBqY+
un+R5FBBdR/knAfWaCCfmpx0gvCoT/ufhk0aSOnvW/UnzCLpe72AhQ6O5G9j
ekZYrlOYOZGNDixXdLKrCBsH1kXe5aSDh2HW/3oJeymdF/bYRgcdHqZDM4Sj
+7FXlvx0IE2XubBBuDy8iKwjTAdvOj8lcnGqoK8a1pW7xejgXdsJdyHCq+N0
vW276KCYL2VAjLB4TFo7TZoOZHnfzu4kjIOjJ8fl6KDTPzVDlLDL7PTYf0p0
8EjTZo2X8P2U6EsVKnRg93B4iZVwntE+aqoaHZxb1IpeJvrvpA4FPdhHB9Ma
lzpGCc+/DuLyPUAHznZ3C5oJC1jLJ53WpYOTBTcoeYS1mDukjurTgW+jk/kD
wqeKfQtUDOgg+KaeoDPh244iWiLGdHBhanegFuF0rvr3W0zpQOr6jjCM8Ifq
8yYzFnSA2sh7+4j5n7zA/rXXhmjf7Xn7BWFKk/Wf7DN0kM1auiFJ2Pzq6rWY
c3RQ7TaiNkzE208qfcstVzpoH7vNHke4+vaMkKkXHYyG+KUuEvkzohzzUsuH
iA+J7vCCMNPgPrKUPx042pvV6xM22BestxRIxEdi2OMekY8eP+TbR+7RgRL/
8XIRwpGxHbbNoXSQPMJ4WUDk8+c5kUvPIulgYjbbvZnIf6fsN4n4czoIGBpK
ayHWD0lvYefddDp4ya/Fp0a4cFAjoy6TDsTfPj+fSKy3Ve7qNwcKifmUcMw0
Y1JB8X6NLRr1dOBGYmSEEuv3AA+b2dUGIt5dowJNxPoeyzbqK/lIB/e8892Y
CKsMdY6pfKKDOI0tRe6rFNSiN7CqMEonzkMBn2lEPbk8JBbk/oMONmdMrLYT
FvR3ZMv6TQcHmC3eSi9TkHPOBL/MPB041GnIaxP1iMEzRxZnXgUyuvV1u4l6
tneY+Syv7CrQP6rJw0XUxy/+R3+aKayCPjWBme4fFHR72wPPKPIqmPjLWRI7
QUFt+tw3ODVXgW4Xg751jIJccoVjWA1WwWq8QWTBEFGPr5E/0N1XwcOeI2JY
FwXpbvc20r60Cma161BgJwX9zC35dO3KKsBtl2z/tFOQ2si+4cUbq2CBo+lk
bSsFtR/WW56NWAX8/Weqd30g9jdeW/nx/FWwy+dB6FI5BflkCor0v1kF/RrA
W7uMgsa1+rDOslVwGomvXi8h6qmj9XRVzSow/XhxYaqQgiIKLAtj/lsFe2b3
ByZnURDfMTN1vRmi/7T0K/JJFCR79xhIV1oDS+PRTCzE/pjAh+1NVFkDYu/a
uWp9KYiU1SwZqbYGYiqutF+5QkG/2w2YbxxYAzhP8YUOTwoq3HG0ycx4DeSk
RSpYOVPQvrd6xzc91kAXE901htivjWYPnHTMXQOTWi07vxH7v+6lpMO5hcTz
vvtF9hDfB2ozi3uWStZA2yYvV4M4Be2YKsAeVq+BzwVeIFaY2E9/SFRX/LcG
wHWdBCoHBUUPM4tzz62BdJ1b1C//yOjLf23jNWoMUPwp+MO/d2TUZiz/iaTF
AH85Wy8YVZARbA2psTjIAMfW2w+/KCGjnGad+F+HGaC79ED6vjwyCvhQdJTf
hgF+Bh4V3ptCRuI1sTkXrzNAxuMLCiCQjFzyTl0WrWWArv4vQV8PkNHbq1PG
5ogBJiU8HQv3kRF26Ib8/UYGeKnD13JHjYwKPiWMLrUzQOh+o2MCSmS0tNRl
2TXCAGa3gmQ5RMkoBBhq3d9kgBe5NrHSK8roVa8607L+Ooi2G27cXqiMxja4
Yrta10FRq57/QR5ltPFeZKC+Yx0U86jPnmJXRjvCZCULu9dBA3/k92tblZE1
p05RxMA6MP96ZH/mqhL6KOzZpj+1Dr45VU31TiqhvL2tzBXYBvhgfyniSb0S
8nMOu5psuAHk+vZb+BHfz6SP69bOTRsg7Jx6t1WNItr0UtxU+7IJnv4X6OXL
r4DMG41kvS8y4QwDn7gvp+SQhfixT/q/mPC9wuav5SJkUe3kxGzF5S14pWT3
dWU/aXRrijjZzW7BX4oK2DB8JVGGA/WQ0DVm/D9+Hw7B4J1Ikt3bm2WFGR/7
m/Rx6qoIMt2yN/vyVRbcLDVdeOCpAPrpEWV5c40FR1uaRdRfbUddnJEnfAK2
4myV9HIpLw60W0K+FtvKiiPqz3CZRhaU+maVdzeJFW9cbwh9l8+ChPQ63fUw
Vlxtoj3hdBwLIrn48wdwseIrDDuudmcWNJn74eKMACv+m4uFdJKZBWVpOol2
7mbFabfYf+w4wowUTiRfizNkxe+HJaqF9zAhpUBOVYlHrHhk82q5rTYDPngo
riP0mBVfUHpBKeZlwJ9P9xjyPGHFfdQPxcnOrMH0CqszG7GseBjy0XNMXYOC
f1Mivj1jxaNa16YESWuQyZk8nprHik9f2ar9fJAOvxqeiNvVxopHF7LU7nlK
hRq2Z1OF21nxGwdtFRb9qDDWxSd3WycrTr+QrNdjQYUmQQlws5sVf2PkFTVB
nEcbqkdmvg+w4lzNzYJWQSuwiHL5SPoUK+7RfqTRw2cZhvI/WZZkJ+HNOS5K
MW6LMCPJ+85hThLuWudzW+7IImwQM2dz4ybhGSkrv4elFiGTLK9oPi8JHy1z
ESocWYCBGnE6mjtI+ImrP3YN2S5Af5ukECNlEv6r79GhK2bz0C0pjdf3BAl/
dNeAQ7hsDoaJ3XsWb0bCt/43ejb62hzMTHOSqbQg4W6M5hMmB+bgeLaUJsOG
GM9Czr9HDbPQ8V2GXbgjCXeh7dmv9OUPtB3ITnvmTcLPFLUdG2OfgYZixZQP
MSRcSc+lWTLjFzTZ+cnzfRwJl69xSj7j+wuai8/lwgQSnjB3j61X7xe020WW
q00m4T5W2qleY5PwokyORMVLEj5Jdlq2lJmEkcrp27JLiPGm+uV/L/kBew5G
zz/sJsYbWLe/gT4Gv+i82RPxmYQf8fL2kO4ag0OHOr3u95Hwxq+JWE3WGPwB
uKZDBoj5up/inGA9BpcPPxgPHCPhM4efCs+WjkIRk3ufL8+T8Ak9+wHtpW/Q
0eFKhSUvG6497H1PwmUQxgTnzBjws+EO7Y5MEpKDsDFnVOqgIBv+MHTX3vDh
Aai0bB4lI8qGn3rdwB1tOwCpj1XdlyTZcI0cwdIws34YDRdEEvey4ZKWEr1f
rL/ABmn/wAEzNvymWd/in/weuHyssLTDgg3/Jy7nV+7XAxW8f/5+b8WG++mX
WH8/1AOjamxs8k6y4R+eT1xx7O6Gp633qdw6y4bz3uRJYjC64FIY9ftObzbc
jjn0nlBHJ5SbunnYKYoN/0wL1htjboViYfeod6LZ8LdzolpKr1vgdqn7+S9i
iffZx//C5FgLpNvF8w8lsuFRgh1qYjHNsL2laMImjQ13XuaJ7CB/hL45EyHH
i9lwow87ti0++gDdj0xrXSxlw4+db0gMPfgBOoz+m3lQzoYHD3/6/mOmAR4V
2bD6+I5w0PoIj1kDFHkgIqv3ng2XO9xjvyTxHta7n2jc18OGcwfkC8CWOljG
Yn3DppcNn/K5Y86hVwdz0k6R/b6w4T18JVJD1bUw5qt7fMkgG86+Q4fCVlYD
XQyDXcgTbHj6tQeLpyuqIId85VbpJTacFBz56T7TW7jZUPcOX2HDI3Lc8i9E
V8Alx8ZLZ2lsuO3am4flUhVwJLG79zmDDRdwiDIPP1YOi0l/MoVZMXz4rerx
0axSeHJS8ii3EIZH6LgwvzF6A9U2XYvYRDC8b3/1nl0viyCXSL4w8w4M38ET
Xte7WgiRkeb0ijiGm6cFXmepKIAKhUZPRndjeB2P26jQkTzI/DGKNiiP4cql
xXn2hblw+Nvnc32KGB7VjDm1iOTC6O2OGm0UDFdsdbm7cyUb0q76DpRpYji5
56nB4bbXsCeyUr9IC8OvJJkcijjyGha8ZuTn7MfwKSSZMIoyodPX8DsvDmH4
4MLRrgqYAVsPpMjcP4rhrf5CJ5/1vYTPtjR6nbLBcOMWL78b9c+h3w72r9Yn
MXzi0mDm3HwKNFU3xc3sMfyhfV2fkGIKZHbt5ztyBsNhRt+ns6+SoWfLn0qK
K4Y7hPQd34oSocGYqpSCO4Yf8Lnw88D2RCi5eu2htAeGczVOvf91PgH2Km85
I+yF4TM3ZN+FCcZDnSeCzFv8MZxF52HzanoMFMo55bl2DcPl/7s4yckVA/+h
tN7lGxguGnlT3yYgGmYuKGZPB2I4f6cm0ziKgly2uia9oRhuf6rLdiDjIZy8
HFLRGY7hbZVVO1F+BET3WyRaH2B4zXH9ksSqB9CvynK+LhLDTbjNH3dPhsOR
ne6J2fEYfiz35c/CsBBou1vn53AihnMrHFfjzwyGXRReDb5kDHd2/let2RoE
G3RrugNfYLh7zN9yK/l7UMcwWrI0DcNZe11mddEdWGHm6v3rJYZ3b55QitW9
DXOctnFbZmE47pQXmucUAKU8fpy+n4PhfpGG7jxbb8JnPlV5tXkYvuLm8tiz
7Dp8HHz+mPwbDBeqO//cRNMf+mZWhjAqMfz9fm2P/egKnCmI7FGtxvD5eFGH
+Vve0KXinJR7LYYv3Izm1Y/0gic/csJuhOEjznJf0JQH7Ooc5Wb7QOTDStsu
qX0XoPHXCgedJgxnYu1nf5fgBnV+n13NasVwWuX+xd+R5+HbfxpGw/9hOO9m
i32JjDPcQ2d/ytuJ4ZNmTSrc7U5QmqNcM7AHw4N3vzArTHOAKXwRoSW9GP7H
4W7JiPUpKCDm+HnyC4YzNKelvyvaQTYy5mMxhOFbHeXh0h5reE9jBIaPYHhs
7SJue9YSruqU8tR+J+ZD6tRdmXxzePXo/TPzY8R99YGLW3abwj8nHArkfmB4
1j87Q2nF49DNVnXt9CSGn/NQ3TXndAx+dyQZx/zG8NKLN8Kz247CHu/iX2t/
MLyrrO3WBFkPHr8Rtk/1L4b3nP5b1HBYFzbeOxXmNo/hVsri78JDDkDdiD29
KYsYHlYVfitUUAtWxmyV6V7GcLcqfg/FFXW499mAD4mG4Z8eOq98k1KFea+K
0MFVDDfMXd8vqESBMvkh23wYGO6YuKdE7KkCfF5m55i1QeTXvkvGkeGyULCW
UjjExI7HiE+sis5JwqhGZsZ2FnZc4XKy8/coMYh1fDU2YGXHvW/lZDoJCcGg
voLkW2zs+FVV5ouz53nh6kjQ72J24vcydwJtuzmg36St1iQnO664+op0Vnkr
nJ1TDhfjYcelTSxz173X692oTH3m29lxni3uJaB0qX50s08mnI8dd36dI6rS
MFNvj+X71giw47oB+nz5d8fqe7bfe/9PiB1/Mt66pGLQW28iarNdTpQd/844
f96wpbG+SUrp7Gkxdlx+C9uLoscl9bpKm4XR4uy41J3Fxjuf4+vfqfUymnax
45czr7hdH3CpVz2Ye3xNih3vysv5///z/wdOwNMc
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->
   NCache[{{0, Pi}, {-15.021705082392664`, 0.}}, {{
     0, 3.141592653589793}, {-15.021705082392664`, 0.}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.621672390752125*^9, 3.621675611439625*^9, 
  3.621675674689625*^9, 3.621675720877125*^9, 3.62167579620525*^9, 
  3.62167589414275*^9, 3.62167592933025*^9, 3.721334461985098*^9, 
  3.7213360118269253`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"g", "[", 
    RowBox[{"x_", "?", "Positive"}], "]"}], ":=", 
   RowBox[{"f", "[", "x", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"g", "[", 
    RowBox[{"x_", "?", "Negative"}], "]"}], ":=", 
   RowBox[{"-", 
    RowBox[{"f", "[", 
     RowBox[{"-", "x"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"g", "[", "0", "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"h", "[", "x_", "]"}], ":=", 
  RowBox[{"g", "[", 
   RowBox[{"x", "-", 
    RowBox[{"2", "\[Pi]", " ", 
     RowBox[{"Floor", "[", 
      FractionBox[
       RowBox[{"x", "+", "\[Pi]"}], 
       RowBox[{"2", "\[Pi]"}]], "]"}]}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.62167239664275*^9, 3.621672518424*^9}, {
  3.621673476658375*^9, 3.621673481064625*^9}, {3.621673827970875*^9, 
  3.62167382833025*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"g", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6216738706115*^9, 3.621673874595875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwtm3k01N//x60zo+xJEoVknZFSKcm9smQpawtFRWiTKCSUSCjLh5Io2bcs
IUK2e0OW7EuFkH2rZDczBr/5nvP7630e5577Oq/X87Xc9/u8z5W0vW1mz8bC
wiLPzsLyv6eBPq/WqiQXHln8vum+4cLRrdd9Zkk7ubD2f8BXuyxUYzBo9q2w
KBe+Mfi781F2hUZ2ho2htDAX1jwlOB601q1xr76Duk+QC4fWC08phP/VOD6p
lQZ4uTDZetOMcDtDg5f00fzUJi582OTlWdZeEuiRlWG9QODCeYORV1fyt4CU
E6/eX2PjwjaSQpM6FuLg9lWSlfs6Cf9REv2wr1caqAXe5/Knk7BUGOmmQCgZ
ENKniyKWSfjiG5Nf5JX9oL32gl38PAmX7LxskfHiMIgdbxLImSHhCxYn3NyU
AbhG0ECl0yQ8+nF6fd5ZC6jI5DrWj5Mw70xLmsDACbCuIyH6fZiEp/4eVXs1
dRI02EfUjQyQMOos31piZAoin7C5zfUy93fn3S31PQ0up96V2vhOwmn5dfOF
ghZA8ctoK3cn019bnT4fghVYHj3zQLSVhPsjvOoWlS+DKo46BblGEn7Zkaj1
M9IWhEof7j5YR8LctrEFJvvsgYX2uyda1SQca2jok0O6BnbbiaqYIhJ2o96U
1xG/CWYeBw9eLCPhYMlYcwcXJ1CazAh1LCbhJ6UUmxx2F/Ck+tZRzwISlqU/
ySuYvQNMRgYmA3NJ+PRDqtQ4ixsQYzeJeplFwnNPhC/YHrwHPhzfP5eXTMKz
OeXpSXze4IFtclxlPAlbLfiSooofAj0/oZNNb0i4e1fBmEjNI/Dr83LaxAsS
bshO8ujsfAwyh66eXvqPhI8kVJwx8n4C3Fl7WNlDSHh6v3jFkaOBgFuzzGqn
PwnXntgU57L+DPy4TN5EfkTCV56dnqxiDwVJj94WH/Em4QnL05fDJP8DR7CP
4BlXZv4K99rodUUAB6BdH2xHwo8/3K5YpkaBfZc+usVcJuHfK3/VbeyiAeOh
zO50KxL2I1aPLPfHgBeVpIdVp5n5yDr77z9GLLg4cF+xzYSEByNUBElJcUBh
fbq7/yQz/t5mRwPFBICPNavQtElYeteenxPLiSDEWmOIoEnCkqXneO5NJoFz
D3LDhI6RcDzXjSGW4WQwUx4xtfcgCROfjpe6/E0FO9TPxjvsIeH89lcCRdcy
wRVnBdNdkiSckL7x61JxFshKWWfrFiNh7W9aIfb8OeAoT7qDvhAJF0cFvuIY
zgUXBlYoZHYSZn2aNviQvQAkCzb9Gl0n4qae9Bz6twLwWzch4i2diKMn7Bt3
vS8EXrl6S7zzRDxysgwm3C4Cbx7FlM8NErGMrM1u0pFSMFJ4yymzj4j5NWXr
rNXKgOKUpsSVbiLOfnewpEmzHJSZTj/uaiXiedS5T/FKJfgpddSwuJKItY/O
9WV4fAY7vvT1eMcSsdn6PwdqUi24QssLPhhNxM0/ahlnz9WBLMqTYzMviFgv
1apNkq8eHI2iJF4KJuIoPlYVgacN4MLVh9eOexKxktiOe2NpTSD5jZnoqhsR
u+53FT94rxn8bpVpKnAh4lxpg3kRwxbgdbh1757rRHx0OiA+d60VvOGSWCFa
EPH3heVVg7p2MHJsMQObE/G1VasTbBodQPFO/fn7xkSs8ZQq8bKoA5T1OldO
6xKxgOjjR2dyOsHPrM9Pmg8SsePsz2H3/G9gh9EVoRdbiHguozunaWsviA4q
vRDJR8RF0hysexJ7gXC1QPLLzUQc6bPCfUDpJ+A/jPdFsxPx8zLpOc9TfYAg
JW78doGAX3cl935NGACzS9+fpncSsI3uObPM5iHgpKzUntFKwHxNGjUGksPg
940nIpmNBBzKEWPa4jYMxn+ppGdXE7DmYsXRR5Ij4GdDeE1+AQH3Ec8TYx6P
gtq3BhtlLwi4k1VmfejOBNDuTtSt+I+Afw9ZneztmgCfBWmhlcEE3CucBEpV
J0F5YLrY58cE/LStv2kfyxTId+FQq71LwDrmbEPssdMgVqfStc2cgHOh/JlT
G3/Bnb/7pke3EDCNz3r6TOk8eN5/VpPOR8AzmU+C31LnwYdmr2g+bgK2esOS
cVp1AczlfNFV4yDgPfQ5NoGiBeDsZJn83yIn1k7WbkUli+D2v0dWat848aKL
wq2BjmXgONfa8l8UJw4xj72jYLkKQoYW96Q+58TeMupme1JXQXb79gelYZz4
0ZHLm4PnVsHv/CuKYwGceAttx96oYAa4cWclUO0eJy5/akBMrVkD1xd2ao6d
48S2+Y38h/ewQIelWwVq2zkx36fBNZd2NshGX+JdFeLEhNl/Mqms7DB+/cGN
Mn5OLMVtLSS4nx12E8Mk1UmcONbst330C3ZoIPr+v2MrHHjdyXXCxJIDKoGZ
m/AbB7Z0eZAP/nHClSAnad0IDmx1b0rophYXDBK7/dKUiwMHlly6xQP4IWv7
vu7Qzey4fM1KNbduG8xI+aQSTGXFUvNZrLzaEvDv4Hu/kGkWrO2cuObnLQ2F
ym+Jvx1nwecUVbclB0tDtVfkkpxhFrxH+c1Q+WtpGHAq829LLwvOlHAC/SXS
UKI01UKgkQUXRPrual2UhqdfxCpFZTHXXcPDr97cA8t0nvXGO7LgGMOX4jNm
MnBYQt8t7xoL1rI9e1fSRgaSGET+z3Ys2IWzDp68LQNPf3iiM2zFgmf9j68H
BsvAmZ2+edKnWLCazaRMVLUMlKLeC3hHYcEh7HVO6/tk4ZYzjXYO/RuI+/wV
g2CiHDx/gC+5v2sD7a0o/pS6VQ4mbDEfOt20gURERj4W7JaD5I5ea62yDbTU
eoEzE8hBXePpsxIxG4jyRa1nzV0Oeuhz6fee3kA+BdfO7huRg/3HTlCMmtaR
AKm8XCtfHkqLB9/8Ur2OwosInzMr5OENRss79bJ1RDR9yGD7Kg+XS8/KKGau
o1qx1M6AYXnIf9hhFyloHe255yDVK6gAj+9/IlCltY5WpB8GJDgrwHSZ6qWD
ZWsoznan4lEJRWghyHNJo2ANBfhSj1PlFeGm9bP1ullr6BNBrixNRRE6fpt+
fe7NGpIMv/b2h64iVPYXhPe91tDYzTcjgY6KsGTI5ln50TV0rb/VX+SjIrze
nLVQo7KGnv+MOT5eoQhFPy1ZNSuuoWdqSdkptYrQO/zp3oEda2grF+38wg9F
CEF+18YqA33cW7z6naYI62NZdmmVM1CogZrdezUyvB9kEGRYyEAHLIe3+B0n
QwXXyDnzbAZy+5fZomNAhiGGcjV2sQyU2rsO3lqSoQnd+HqANwOF1bzjDb5H
ht3n4gsa1Bmo7vSg//k8MnyqNSXWcYCBzEoX0hSKyVBtr0pAL5mBHB2ydKcr
yDCWUGfxW4yB/HgdBlQbyfDyx5k17rVVpObO89/mMTKcEtTQM6lYRQ7H5A6H
baXAX9d3tz/6uIpmd2ZkHtxBgd8w6Xx+zioKNedsbJKgwM9OnTcF41bRseXr
qw2KFBjz9dp/XQ9X0eKO0OsbkAL1/V58t4DM/QfH9ppeo0DQ43Hp6eFVFJcj
HzfrSIEHlS9OflJeRTtZjC74uFCg5IAcXVRyFWUuieXc8KRA2pFK8X7WVdTj
fG2XRzAFvpubtLOppqMDaq/Yb2RSYLxey9+IMjoa0bfnY+RQ4Mv4AveqAjry
/hC280E+Bfqeehi0O4WO6NerD50soUDLd1uyx/zpiFuwZEj8CwUas9AOCD+g
Izbt3tey9RSoc26gQteNjm7n0A9LNFLgPs53ren2dJRT80h4oI0CuWw0Fq7r
0pHrHuJq8E8K3Cje7f1ag462iy35cA9Q4BIvF2fjITqK8fRu8xqkwKHyTmGy
LNP+bokGmTEK/LHlU7zVLjriq+q4aTtBgc034uRCt9HRUw/D1pApCvwkcl1t
hkhHq9RXLTl/KTD3tlH1ThY6mj+WZJ/yjwJTa1VOGlNpiBb5q+DpHAVGuK5b
503SkBpd/ZbEEgUGNo6MDw7S0J0Fla72ZQp8INVwW6CHhnD35mkXKgVeb3vh
e6eBhrR2T4k+XKVACxOwhYZp6ClvuwVpjQL12qZTfEqY61zXFR+uU6CqSdQh
Qh4N/Vz5EP5rgwJl2jTrQ9JpiCWxKYDMqgSFTf5abomnoY7cf5vt2ZQgZ1v0
75goGpr46LLzKbsSHG39x5v+hIbK77uOveBUgl3GbxIoD2jI9rfiK0+CEqxu
1d1f6EpDx1Fu20miEvxgPF+t5khD8pJD4ZtISjCp9e2Zz1eY9sgV3wuY/NxY
f+LEBRo6/88qUY9LCfq2Lnq0mNFQ6NWlf/VMdjZO2HTGgIbeBP74fGCTErzc
ahj7U5OG7A86C4cw2cR4hWJ7hIaMDPX+tjAZtCahSWUaKonm0F1jspKxkelt
ORq6OWwvsW2zEtzZShte2kVDQ8N63mJM5jFOdfXeRkO3DdIseZjMaDEhsPPR
kA56XjLF3P/HiPHqKYGG7Po1YvKZ/LMlXZ5/nYrOHlpZtWPyVyPzsqglKho3
kR5iZ3Jpy/pJ8b9UlJphoB/G9P+dUeZA8igVGeVsOsjB5OiWM84KfVTEWyWR
as+MP8iIlS2/k4qwuv3rD0y97rVkv1BtpKJ+u6atv5l6OhhZ7KmsoiKvOw4i
fEw+28JerF1KRZtDLyXvZOqva5Sr15hPRZu+bhRv51CCB1vO95q+o6IQxaxz
LMx8SRsRHLsTqCglbuhxBzO/Qi35axejqSiHpqERzqIEOYys/xv7j4o86J5B
R5j1sNBMknQMpKIr2tftWpj109F8Sfu+O9Of3EM9pXQKrDq1+fvGLSoyfaTn
LkijwPzmoqsB9lQ0Nu+Sc2aFAsObeYJfnKaioGfJC3ELFHiquaw9Zz8VeQZV
yh37TYHqp65eOaBARU9tiL/mJimQ3Cy4VCpJRckZN3Sej1PgpubrIvX8VBSB
I/ZGDVFgfdO2S8MzK8jW8ndv5ncKLDlZPXttfAUpPWq5U9FJgelNTn7/+ldQ
3HTljzJmPwc0fUllNK0gFX+j7d5fKVC76e4f4awVdNpreHFTBQXGWex5p5S8
groddzI+faJA6uh3e903KwhvOhRyrogCs9eO/HILXkHkGplzF3MpcOtelo6u
myvowqtfPMxKh85l+WF/rqyg0PuH2ytjKfDriSuGHFYrKHFpDLRHU+DDy7U1
KidXUM0Mx/6qcAocjwgpfk5eQdveHp/r8qFAuFPDNVN6Be0Vjo9y8qLA15n/
lKvEVtDBnkXeFXcKNKo2y5zjXkHzXmOhXbcosHhR5K3J32V0wKDuYtV5Cgw6
l+rH+34Zpaj8vei0jwKHR84CmbRlNCuZNLDCnNfqziTGsbhl1CC8+J+zDAXO
Bt10uxW2jGQr+hP3Mue9Zem+a01Oy6gx8QAcY6dABfHKU8/2LiNdX2LkgQ4y
bB7+LkLIX0IVufmCMbZkKBFtNHA3YwnB0ZY51/Nk6HqqNnkofgkZPvVV1TAj
Q7GSj0oVYUuo5fa4dIwmGd4IjdR2dVxC9ARKu8suMiQcNnMell1Ck8shAp+Y
5ycIba6rjFtEZ9/6BtPUFOHz4zqh5KhF9O59bdhrZUU4vlJu9jp0Ea2Otb9R
kFGEYbbZ/W7ei4jQcpBXREAR9qkGL5DPLyILgyvL8uMK0GNYb9ebrYvot8P4
AdVQBZivWuN+L2QBbRGuPHG1VR4aWPy4wOO/gCj3i8Y0q+XhsMc0TPZaQH0s
OWK8xfJQqJR/c+uNBXSOaBntFScP3dWt42X0F9BI0v24bEd5qKa5XPeNcwGd
Zf865kaQh1UGctsP+MyjBxpHrCWV5WCHdUjZrMsccovT2ES9JAOPH8t9fH1l
Br1wcf4WFScFo46eX1j6OI10O9SqpP8Tgydubx7fVjGOwhv6W2/GCUFSgK3P
YNY4OkysUDV6IAS/xn4Sefd6HLU8togBVkLQ6OtVQzWPcTRZbk80ERWCp/fU
5FmpjCPTBo9i8qst8PJPb6/Ed2PIdW5Jc/2FIPQ8McOvGDWK3pc0xmi+4Yfq
F3UyF/xHkZtGwnMrb3645hqrVX53FEnpqu0NseaHj5IM3E+ZjqI+w8B1eQl+
GLiW9vM29ygKDSQoNZzkg5EFl9IK/UYQ9flxzcVbPPD9rvajGreHkSaDP8un
kwvSuS8Jnbs4jD7bsDr6xnJBHfqfP7dPDaOSJ+2BhfZcsK+LFJeoOIymb9gP
5VJJcNMzyMI5OYTuzpR5s0mSoMNibk3j5SHU53v9h4kXAe5sCDtlaTaIrIaF
uHQs2OGNIjGZO5qDaPzYVO5fWXb4MTlz/ZnyIPpGjDBrXWGDJx/W5pbzDqKJ
hE9WGtFscNGBsRtG/UIfLO13tv9khTlHf2Y3Bw4gK33S8cVbLHDnWHTl5I0+
RGvpim1/uAouzzXtuGTYhzpevrIJ278KktZY7n9T7EOFbCnFxeN0ICN8XaXq
z0+07/K7aRMTOlA6cSTjjdNP1LCkvJIkRwPH3vVEGN3pRfZjt3xn/i4Dq1ui
9oX3u5GvVqCactM8iLtvVKVwvhtZRdWMt4XOg8EnfrsS1brRp8tJycPG88Au
brondPUH+nKDEmH5bQ7cbC01uvrgB6rMKauOGpsFnvsuHBb1/Y54HCpNcw7N
gJilN5sfBXWhhxGRvJ3FEwCnTgYbOXQhhorymrnxBJg8c5BbXLsLcQh/rO6f
GAeHi1q4Szc6UcrUaNMmsXHw3Z2Vd9G9E93O40+oCh8FglQH/mv2HYjjUcOz
81lDQC2jIPyQVgfKgvUnNM2HgI0FiwCnZAcayr/TrcAYBHklMQJJfe0oNcTE
lsN0EBjfbxLsM29HwsdsTj3mGQAh9H1bTY63oc67DepFWj2gMPPhy50Sbcj3
w+th44JuUPQxSrF3tRWp2V5O75XuBmfcG8hCd1tRudnH/RU8P8DzFaW9QTYt
iC70vSVwuQsMnavfu0e8BXHy6yp4u3UB5RIb5aruZsRbl75mvtwJWj0i9zGM
m1FaXEZA2loH4KbTVJw1mlBSkaBdglQ7uHD+xQEeeiNquHSX3TOvDWSWkg9m
fmxEyeRjwrKwDeh7XTo0Sm5EBrf+FI01tIAARs1hix1fkZoPm9buoEawsf7f
MUitQ63nE6yTsr+AlCrLKIeSOtT0aCBhYPMXoB+w+1+IRx1KZd1qz+lUA17w
FCf0UGtRztZpCZaj1UBWbID9Lu0L8q0YLJFZwaDpV7pVzKcvyDTb9ovKLQxc
kl0+ovtf0DLHud2bmhAoU+C8yk2vQaFu4XIYVQDjI+SvqfRqFG5wIbFx4hNY
ZCxJNZVWo4PGRz8RNkpADEZe857V6FRw71u3HSVg5IQ5BaxWIc3HrNTPV4rA
vbOe4d2rnxGb77usTuUCICaqPbVe9hk1PvRtc3T+AD738xzf4/0ZRV04mNBX
mA822ycuuDAwUvUJl+A7mQc0JsJzhOkIlSubHcd2WYD5OX3piidCKp9PCico
ZYKOpWL+PHolcsOW8Tas74ADx6+7+qsVaNdb/oqdn9NAXvCdPVFeFejLnptC
ozmpgC5I+DG8Wo48TEtSdyangDBJipo3owwFKx0ffJyWBLoz8O967zJ0770v
yb0wEUgpn367da0UfXqtes3xawIo0vBiyV37hJbeHTEc2REHBi401A6tF6PS
07mxmoOvgNyIlYeSTzEqO1TUPu8WBe7cmJX32ihCO66HVTRtfwkI97eFCrEU
IRX1+fKNZ8+BCUuWhs2jj6j5Y8n3nnMR4HWgxmwOy0fEZVP5YWBfOFCKsjc/
wVqI9N+SLtSLhAAPcRpHpG8BIlte31Il8gxUpYQUDbIWoDKfZS22fUHgbEHB
dk+2D2hpuafwSIY/SFA70Vjrl48sIk9X7CI8BtOfe723sOejUdLeJnlPX/Cg
jXUwmz0PRTbwSi1qPwBkkWjhFe5cZFSbVUwr9gSX/iPfihR8j85uuf7F3NQD
PCd8rt4nkoOsf0q2z/G5g5oHZ0RbxbORZiKP4Of5u2B5ccrZcXcW0ijrdsqm
ugB5x4d1XPKZKFa53CtWwhmEnU931T6QgS7qLL09nnId4PajjUNH0hE5IVNi
5YMDWNBrk/QBaWjnqfGJr4wrQAbbeYjppKJZObXMez42wEKV1vLJIAUlU7Nq
7FwuguD3oXvOmSQj+/3WUWdPngeVe6S8F88kodb7J0p2BJ8Fs7FFHREXEpGO
k/4zVnlzsFvIUH6vTQJKyUr/ZihpArKE0UZ0cxySP5f07PqAAeDnnMzu7I5F
JjbHy3t26AK3Bf7zvKOvkZ77sZmDc5qgd+gIUf9fNJoQH691fqcOQJtt4WN6
FBqyFKznu38IpFQG21RyvkQljJILt4/tA5tyCnlp/C+Q+On3L8S/yIPbb/rL
VMQiEFvNIm9IhhTI2MLT0WcUhroXuS8K07aDO7MXyWb2z9BRjfs5lsoCQL05
L6DOKwCxhMWIt+hxAmIm25D6cz90dMcb/ggSVSOJ5527nekDdOpQakjp+wkN
1bqTisYP3dCpaJ+lSx86NF6xMs+6szdRb5AW6zmdAo1HUyZmzy+fQwvNnpM0
aQ+NEvzIcXMuAEKPh/U3b1WqnEnR4+COvQKOu14PKLwfWzkc/ejUjkQXoHD/
8EWp9JpKo1990cqu94GOolLmFcKvyr7nYvNJyY9ACVtgltKpuUrBoq+vKKH+
4FS+xPc9OixIr8fjWIl7ENDmBQLP7DajhwyZkeOXQ0B0QJ9Q45mtqPe/GzXj
0uGATniVNHNpF3JN1NyWvf050JxtlbwlIIP4CkRuuPBGgl/K/Ow8VArKrPlX
fog9CsiH3WHI1Kogne+1fIyVVwCvqUqSvY6gwYm3tp//xADDWikH320QedFc
PwYMvQFN6VwXSuhaSHjzSdLJ72/BDWdp/U0ueihfbPcFgcZ4MMzjuE3F/xSS
2bZ29vevBCD6qDrlb5wpWoi/xmLUmwhO304jNnWeRliu611eVxLg9ZDKdLO3
QGH5wHxLazKw+/3fRKKFFbqglsVwa0gBP7cYam9YXEZy1cJp3dWpgIZdxraV
2aJlQz/jo5VpwMTK5cDkaXtU0/WX+rYkHahSi9pK5K6hCGvLJJaCDHDmLYpv
PnwTXRyvMbyS8w68N/vXZh/ohMi3lZe+pGcCHbeCWevNLoi+8iZOLikLCBn8
afVbvIPqHhH1gmOzgVIMRUSNxQ3ZPh94bRLxHnwYmgwpenwfsTL8FecTcsGn
dE+nfQe9UduHrQP6FnngL/faT38hH+QsVu70+2o+YJ2wMyDm+yFoyqda/i8f
cFZKfXW97o/4A2w3Qu59AE++DevePRqA8v6RwpUCC4AftSG5SOkZeiRtZbHB
WwjazGfNNU1DkIllrkRbVCFwV/iTPPlfGJqtOpPvkvYRyL6a72P/EIHwSsb9
40pFwJT96X2rteconMzQ3FJUBPZLJ/UyzkUi5aikjsIvxaCs/+uKjvorxNK4
9PrJqRJAPvzfmSe10ahtQ+/K2W8lYPPWtPIjNq+R8/V/CyujnwDjr3ayTMNb
BOOOl9c7loIONfbqf1HxiL/zpX/MYilg85yPki1LQHnq6luPcpQDH5PX664f
k9Ajl//6N4eUg6oHxpstcDIySRtO7dtSATR/ay2Ed6WgWb6nhx7urgS3pdc5
greno+i56azLkhhwePFUqG3PRiwhQvz69hgUW+bi63dy0DUZDdd97zCgWGcn
zn97jw5fiFBn2/cZ/Gn7+1p3IA9116g2J8Mq8C+TyyCasxDBSzb7QvyrwKWn
tKVj/YUog/bspWt9FXAbOwwCSz8iD6UBax2TauBqYVWsHlCMRKL9Z8Yv1QCX
nEWhD1fK0KP9781ak2vAjZWmosXr5Wiy6UdR8UQNuNBIz9B1r0AlrIo+Qbe/
gHM+zbKGiQhZ3GznU/CpBeksUbRtklUoWmPnvltx9cDfIcbzm1UdynTbdqyp
vx4Mygg6LhDqUXk2v76ieAPQargYyVFYj4ZE2W2m3jSA5nAeGv+2r0hhZSLc
PuYr2JJV9k2TtRmV5+bPWkc2gbZPRq8zCttRy3gmo7yzCfQLEa8elupAg+Ip
JLEtzSDPssLsUkQH4gyJkuiNaAYsL1enPFw7kdE1L5Oz/7WADXYqIBh9Q87h
UhayOm3gnt2HiUbjHkRT3DXw3a4NrEm3lj/80YP86nbYBfi3gaYZ3q2/Lvei
yHUh57HqNtA3nUzL9viJPjkSg5KPtwOZe5yNseX9iE3/T/Eu2AHO7r7oZGE4
hF6wFm0TOdoF9vts8kBN4+gQLcbztnUX0H3E+dX2wATqnX3QX+vTBUi71fYK
vJ1AEoM6yW41XaAsOEAp3GUSva/8ptR56hvYMfiORVx2Gn31WtIJu/wdeAct
ib+s+Yuc7vZkjPl9ByMdYGFdfQYJ3KzYfCz1OxBePM/hXjSDLM4/af899R3U
V5v8Cs7+h8YOb7XWv/sDvGfnmczsmEUsywdcOQK6wQpVoyZjdB6l/BX5cSGj
G7iszohryy+gE2OMIwVfu8GSb5WxvdMCCuuq2bDh6wGaoTrNh+kLSKzgdDCK
7gE4JbZRQmQJqTq7Jnlm9YLFSPqJLscV5DRd0Dbb1gdEtR+xuHgw0PoBhY/p
833gcH9d8WgjA4X6JMRcFOoH4o0XyZ271lC2UKht07l+0M3pKr+rYQ1Nazgs
pg/0g6EoZ6Wbkhvo6gsRkUt/BsA9hY9BuossWDmuMnf88SAA2ZllxyfYscKJ
3Sun44dBuUvUlw3nTTjW3GwLb+4weOWRMdeZsgnzXfbdW1c5DMKGzD60d2/C
ix6/rh4ZGAbG+39w62tuxhWZb7rFxUfAblHubxJC3NiEV6h0/PUIGFoqlNX8
zIPdv3E88IgaBYH1WcVNb/jx5yvjbLGh4+CCnZ+PmpYQTmJ/mTXQNg3ib76P
PVYrhmWcjrUHN86ATkuSScIdKSyyIzpSyHIO/HhF2r6+Xwa//+FbG2wzBwgX
btlYHJfBOpE3qWw35kAnNW4pw1QG3+EBVnOec2B4b3UW2VkGN2+M7W6JnQMC
n2rpZdky2G9UpSBwcA5Y39MqmNgti//mtLbTr84DzbpUgxEuOex/4xP7Hed5
8OBAw8eBbXJYVDb54JTHPAhMLOxv3iOH9RLcY348nQdPGlyEAzXlcNJzcZvC
rHnQmWorcMVDDlvcuzl76988WO5Njs4bkcNVkMg35L4A1g5UKkvmyeOZ2emt
dQ8XwF7lrffflslj0cQWsZyABbAvdGQ7T508vsMapXA/agFM/Ril1PbLY6kq
ad3//acL8JySjNukgH21jj/QXFoAItXafj02ChjqPvideHcRmFWoftlNUMSO
y5fnA70WQanCWuYcnyKOTtOm3Xq8CCx/uZvkb1fEswRuotqLRVC1ezCLk6KI
E+peS3V8WARJtHYbVnNFvKFXYsk2z7RHTJpRi1XElYYLdbbOSyBknsfm5m4y
nu3gr533WAJ2Gxw7CGQy3n1eqcbPdwnQK6wDwg6QcdC160xNlgDnnLPmNR0y
Nnvyq2S4cAlEFPiwaDiQ8Xhl4ztb2hK4XfOx4FoKGYvoTqXPsy4Di0EzyZ4s
MjZsJqT5bVoGL38fCj1UQMZ5PzWTknYsgwPl+YdKPpOxJ7X49fCxZWDz40bR
t34y5t2fEmzrtwzKWYvmnAUpGH76/HT+2TIwdux7ly1CwXfhr0C/F8ugpI6v
vmsnBXcbifonpSwDmv8poWkFCk66Ge49XLsMkg5xsMkdp+Cu+RzPO63L4JV1
3saXExRM9Gz0YOteBlyPX0uanKJgxyCCm9TUMtD+aVogZ0HBh1K9b9luXgE/
XZ+pTztS8DXy65vzW1bAwoHEp5MuFPymoPi6n9gKyNCTwB3uFMxSNW+fRFkB
rE5sLTceUfDXgWsXh41XAFuGcmHGcwq+JHLG2DZyBXSpLx07W0DBMi8cpWxi
V8D4S4+37UUUPMPjv3QpZQW8LJHdc7SUgh+yF7yxLlwBvDEBsd2YguNm+Cct
ulbAB6175erNFOxwXa7sXN8KGNCc+yvXRsFKoyDs7OgKSDOtl2PvpOCKHqcD
pxdXgIDml2zfbgruq2l6ZCxEBYfm9Z+nDVNwChg1NxKjgj+brnxgG2PGX7oq
c0qaCqTIflUnJyh4NVeh2eAAFciy1Kdn/qbgKoXjCfrqVCBzNeFe5V8KfpZq
eVdPmwpstYfJ+B8Fi74J2q57mgqsBleOhS5Q8PDWhD/aVlRg6kx5abFEwZnh
xUjLjgpixMPrBVYo+EjAuL2mKxV4zj8vO0Vn6se6fhh6U8FBc517basUXO+1
lRv4U0HwCX2i5hoFW7hof1CPpAJdVeu3vzcoWOLPhSdHY6ng7hblhD2sSnjS
4a6FWgoVbNXrdT7FpoTzhp4pHsmmgnuBizxX2JXwPaukddVCKhhKoLg7cChh
jR+f2g+VUwHV1yDjHKcSJpi1pxysoYJ5VZnkQwQl3NI0ee9AExVUz+bbsxOV
cNQJFkOVLipQZizOVDD5YtW2nfv7qKC5iVvDgaSEZY7tnVMepYIeKtmMweSZ
Yt2avX+oQPRovMIjLiVctP/iK6VFKnh2t7p2jskPc9xuUBhUZn3wyZhuUsK6
cqHHyBw0gDj49eKYzJucwq/ITQM9fQ7kHiZ/Ey8fkReigbTMpg7WzUo4Nrqz
SE6MBmh8/EdFmGy35fdTWWkauPJ9q70Yk8lhbNYyZBo49q/bhJfJiyRR5T0H
aKD07o31v0x75Y/3sUur00BbytytMib7r+t9l9KmgS2/s+LdmXzy/uV3kidp
4M73Py92MVlo8Z63xGka+C2+07CI6X+f03/Gu6xoQDgefVFjcspUmtROOxrI
sr7KkcOM39GucknMkQbG/T4TeZis8utb/Q5XGhi0Cm87z9SPbvn3jag3DZRb
Z1+KYupd1cVxe7s/M15RjiLEzIfZV5Wt2yJp4F3Df+U/mfn71pNb//cN0/8Y
g5FOZn4tphS9a5JpoOhs+bNSZv6tSdIjLgU0gH/SL5sz62NwW0KUXhkN8Hx/
+ZxznYJtZcUMdlXTAGGXv0Eag9nPukL5TR00sCn8h3kBjYJ/nwm3S+6lgdn9
7zN2USnYyZ5bxHOYBn4Jlz3zXKZgV38OH9l5GggdUFtfnadgn6rFk34CdOBU
+7afwuwPtg5nFsvtdHCR68p33ikK9h/6U7BXkg6qbZdvDYwz+4VlTLRfmQ4E
M7891mf2X5TGt0lVEzrId9z8ypjZn9uNTGN5LeggYuVER+o3Co61bjYeu0QH
2mnrVdMdFJzo/aXo+W06MDfNb4fM/s8u/ej/N4wO1N/cY9v5mYL3ft13uCaK
DrwNtE5MV1Dwh56c36/j6KCnV8s6lTlPSqipZnrv6aDkH+CeZM6f6kNREsnN
dGB5n288PpWCdXUFu+5/owPR6sHdI4nM/jsTFmjSTwdZke/Mt8ZRcItrwMza
HzrIa9p4rRtFwb0f3MstuFeBWZiSQf8TCraumr+9V2gV/JuPj472Zerf7rSb
ILYKTG80rh9/QMFjsw7PChRXwZXeLBl7VwqeVTpnwWu4Ch7eunrvlw1zHmep
LlY/XQXSFeqLeUcoODzib5z281VgKD514o8Kc754JOt/eb0KYv3ZpISUKJis
wxdfm7UKuNObnspLUbDZr3H9huZVkDfUyefIxZyXW6LiWwQYYLeNcdi5LjKW
oxsaGIsywCH9z/qXmsk4f5B1qVWKAebc2befriXjmpxbBu0qDJAptLCds4SM
p07oLHWeYQCtq9vKn7wm4wPeiwY9MQyQUT4ZvMmKjCttM5cskxjAp6bfcNKc
jE/oX07ozWSAbtrFugJDMj4v3LT0s4wBen557xQ6SsaP8pITBvoZoEiMHr4q
QsaNo2bLI5JrILojnnq7XRHbnspPnHm3Bkx+fn9w4qAi9pW1kRzIXwMaxC0W
qYrM85xVILH50xpoua/5flFSEfd/dE7IblgD8Ibd2lVeRWyxUzn+xtQakFU8
eDdpXAGf+vc+dlxuHfD55Jx3iVTAhyOyXw2kr4PgedZXrWPymPdbemhL6gYw
5xsMCLKVwyoBERzX3m+A9pWwF9Gnme87ql5erMUbwGXte+IbXTmcHGN0/UD9
Bjge6b/FS0EOH764pP16egNkuHb4Js7J4vy7kusftrFAWVKUd9wDWfyT4fTx
oRULtP2yoPknRAbv5dskLTzOAh+sDl57FyqNjzR28GgussLTXaafEs9I4N+0
nijdWTYo/W/XxlyiCHbmEiMGs3JAKfvWXUnu/Pj+5vOPAzk5oA+ZW3THeX7s
xxO98ZiLA1IFdedSj/HjFwJCVG8BDkgo/VIxx8GPi7ZzTzlJckC+83vnv8rx
YYY846uZJgeseYjfF97iwUEGfWGivhyQUTQk9mHrJhxxUnTzticcsGBgojd6
iAu/NrII3PKUAxZZWqpm5XDhLLMuH+4IDpif1vPBXJcLt5xvcl5P4IBuavqL
n+6TsNDNcrNhzAFFjj935Z4i4PjgWOFMFk4Y7ehpq/6bHRO6uR8/52Cy3xO9
yQp27Cj94J8niRN+G/9nVRPOjg9XWNcb8nPCOsQo41Flx20zOz3/7uKElmq8
01NP2DCbWWK/MuCEsVZudr/JrNhBJC2l+AEnvF+k/0zp+BpqshMWSPDlhKtk
mQbZRQbanx/wIOgJJ/QzeOP6LI2BNvSvnrUM5YTSqRLLIdwMFO0lR1qN5YSf
b/i9D+mno68DmTc1yjnhWwsJYsoLKlJKzd3/hc7cb5/aame6iET6y1+zbXDC
h3oiVJfNi4h161c2yE6AF/d9O8tau4C6/Ec7SjcTYKPCdkq6+gLytNt+N0+M
ANnED4kJKs+jut2PC95oEKCN7qEk972zKO9C+I6e4wT4hbBP68rIP/T6xdvH
wicI8PxpuaFf1/4hJ/YS8whjAix8qCDw130GCY38WQi4TICaf9dEz8X/QZeT
zh6440eAyUfwipXkFDLovRKbG0CAjPDjqoeLJpGKoAvH32cE+MZjX4fIyUlE
8AvuuvqCAH2k9upPeU6gbBvsap3C9M85KBePjiGqhMJHvVoCbGnLsSZNDaNh
C1XxgK8EODJwbVgkbBg1hms/qW5hcqhTpfyBYRTHcumMxg8CjIxuzTN4PIS0
B18sqUwS4HCRFZc3ZRBFxK8d3LWJCE0MB57o2v5Euu2BJCFeInSJfBK08K0X
0dkEf5IEiXBNgwiMDXuRrYPMo/ntRGjvwJDnPdqD9lOMv36RJ8K7/MMqQUo/
UFdpwkVHfSK8XMXbp2fXiYL+KOyzOUWEfuuiZXrzHUh950f2s6ZE+IEP1Q35
dqAU34YMYEmENjEvhXtS25Gb3vy84HUivNeYVPSepQ0Jf9cK/BREhLaUE29/
sXxFX4ktlu9DiNDt9cXRm0YN6OERC3JyOBEGLVLt5+Lq0USsY3tINBEG4I7m
H3p1qOTKyx2XM5jMHf49FtUgx5e7Zk5nE6H8xjuWh9I1SKLuHdbPI8LTi0Y6
h0KqUZBCpb1KCREeuqbxe7tdFbKcG88l1BPhyJ/CfoWDGPHudvFbbSRCjqaM
Ff/LCFWdXj0920qEv2/mOgtbVSKFEj56zw8iDDxj/kX1SjmiPzysnTNBhAXK
+tlmeSXofV6VcNJvIlQt+Xfpblsxsh0+ORX1jwifbTlil7RUhBp1bMIerRAh
2wP1jXWjjyiW+1m3OZEEX2lFZrmqf0D/iR9wr9xMgnkCFvvinfKRn9LAFnl+
EnzuryqYlJaHrprsN14XIUEPgWnXXuP36LxN359r4iTY3xtnKjOcjU7eCXjW
KUmC/nnpPjE+WWh/ZO+XDAUSdKuO6bv6MwPtSfW/smUvCf7ZHUPwiklHIkVK
rA9VSHCBXeveHts0tPbDT91cnQRHxyx9swRTUP0OxYK1UySoWXnrTnp3PCoj
fzO5ZkaCdj9/Cq0svUXvj/nMdJwlwaCTe224ZWLRi0ud8hmXSJAnU2WXVkU0
CnB+UCdoR4JaEp8X0e5XyMNX1v7BNRK8VnRE7dObl+hisleCmQsJJlIuKrRU
PkcmhXs0KtxIcHxGS1bjegTS+tL6U9aTGe+njkOdu8OR3MTubWt+JHhTnfWj
cHgw2kFtLrwaSILOqgWyKzZPES+Xh1lHMAkGCiiZnjUNRAsKTaHpkSTItsRl
m//kMRo/6q4oGEOC7ckdbEcafFH3SYkG77ckmJVU0XBW9hFqtP7qMJFIglI5
2bOvNB6gSidXDrM0EuT8XDGde9kT5fnsTCrPJMGDk3uinAvuoeTweiCbS4IM
4S4D04NuKOiDmBejmAR3le9xPIadkVd1rcjVchIUDdvjph9yCzl1ORe1YxKU
6cl/Wzd1HV0eEz2t/oUE7TelHq186YDMl2vm0hpI0OtS0suZkCtIl3j7P4EW
EkxI2a8n2HQZHRbZTvHuIMHHui4PiuKtkKJ89dfx7ySosbnWYkLeAu1Uu3XN
9CcJfrdX3cTYexoJGG4jlP9i+q8y9Uc+ywRxWH1Olhll2kcn/CjyhmjZ8aZm
xCRT7+QT6vlfddDUg62/Vv+QIMmxru43WRP1hSFvhznm+nhAQeRjNdQSf120
fYkEeVMebhxYVkGf87aUHKWToMnbf9xyChRU+LniTNo6CYb9CTnwJkAapXdc
XeBn54LGZFP95bAd6PWIQIQXkQseM9HQX78igEIWy5TGN3NBL0GlAHdFDuTD
6dBkws8F2Te97rX+sFh5R5j/RpkQF5zPTBFp9hmqtJMtJcps54Ij4rc3+9fX
VJ47bJcaLs4FZ3zmb1I7Iyv///4J/P/7J2X/BzhKUdI=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->
   NCache[{{-Pi, Pi}, {-15.02170101062365, 
     15.021701702019927`}}, {{-3.141592653589793, 
    3.141592653589793}, {-15.02170101062365, 15.021701702019927`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.62167387558025*^9, 3.721334481255581*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      FractionBox["1", "2"], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"h", "[", 
         RowBox[{"x", "+", "t"}], "]"}], "+", 
        RowBox[{"h", "[", 
         RowBox[{"x", "-", "t"}], "]"}]}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "\[Pi]"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "16"}], ",", "16"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     RowBox[{"2", "\[Pi]"}], ",", ".1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.621673899674*^9, 3.62167407101775*^9}, {
  3.621674110502125*^9, 3.621674111908375*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 3.4000000000000004`, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 0, 2 Pi, 0.1}}, Typeset`size$$ = {
    360., {105., 109.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`t$30045$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$30045$$, 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" :> 
      Plot[(1/2) ($CellContext`h[$CellContext`x + $CellContext`t$$] + \
$CellContext`h[$CellContext`x - $CellContext`t$$]), {$CellContext`x, 0, Pi}, 
        PlotRange -> {-16, 16}], 
      "Specifications" :> {{$CellContext`t$$, 0, 2 Pi, 0.1, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> 
        "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> 
        True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
     ImageSizeCache->{411., {143., 149.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Animate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.621673953549*^9, 3.621674040627125*^9}, 
   3.621674071674*^9, 3.62167411239275*^9, 3.62167569589275*^9, 
   3.621675726595875*^9, 3.7213360476653996`*^9}]
}, Open  ]]
},
WindowSize->{960, 597},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
ShowSelection->True,
FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (September 9, 2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 315, 9, 31, "Input"],
Cell[CellGroupData[{
Cell[885, 33, 238, 6, 31, "Input"],
Cell[1126, 41, 11876, 206, 229, "Output"]
}, Open  ]],
Cell[13017, 250, 903, 27, 114, "Input"],
Cell[CellGroupData[{
Cell[13945, 281, 261, 7, 31, "Input"],
Cell[14209, 290, 18054, 307, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32300, 602, 773, 23, 53, "Input"],
Cell[33076, 627, 2209, 43, 309, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)