(* 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[     12783,        290]
NotebookOptionsPosition[     12312,        269]
NotebookOutlinePosition[     12645,        284]
CellTagsIndexPosition[     12602,        281]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cot", "[", "x", "]"}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"x", "/", "2"}], "-", "1"}], ")"}], "/", "x"}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "Pi"}], "}"}], ",", 
   RowBox[{"AxesLabel", "->", 
    RowBox[{"{", 
     RowBox[{"x", ",", "\"\<cot(x) and 1/eta-1/x for eta = 2\>\""}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.550461163118614*^9, 3.55046121686654*^9}, {
  3.550461725582223*^9, 3.550461762011133*^9}, {3.55046190704948*^9, 
  3.550462009088371*^9}},
 FormatType->"InputForm"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVVmk81Osfne03M9aGoiT3aqNQZElEzzdLtrIk3a6yV5ZEKipbpUgq11Ld
UiHhiiwplNLv0aYkyWiIEUZplS3TGMP8/V+cz3lz3pzz4pyz0D988y4ahULJ
n8H/uTw22Hl21VvUNK3d/c1QHnJb2l+1WbWia78Neri2cuDv98SL696KeoMX
TarrysHi0bKhtztbEV/nh/p5jhwUzk6a/SapFeXXLdyuzJeF0q3G2182tqLf
lX6P10TKQi0/7VvdZi665HYy/XG5DLR9cZD5z78NJZSs3/fCig1Dl5fZntjf
hvgP6AdzV7JB1ol13CehDSlW8DIvzmcDlD4Vzc1rQ5PppUr8URaURKAvyX1t
qN58fdbTfBYkiI0bQnzfob1fc+dwFVigL6+ZuNKbh+yErfNsxwhwrJvGsmE8
9EH8j16QgICdYd2SgTgeSk3oVsh7S0BWS9bBnGs8JK2bOvx3BQHMCyo7Od08
pFFq9fptGAF8DTnr0e3t6O5ehWE8xIAUfSGl+u8ORM9rcIykMCD6kIPuQEgH
Cv6VEvl9mA7B5FUP1dgOtK58tW9UHx3sXayLo7I7kKWMasPLx3Rghae5m/Z3
oAKZL6v8k+hwskyn8F7oe7TM06XURIkO8St8nB4c7UTGGsdPexvTICyyMvJ7
WifKFUdHa2rTwKuOyFXP60TvuyITR9VoYLHp1q+Yp53oDZO697mUCpOhE9cs
ZLrQ0ooaPZ0mKhy+lTlcl9GFXhmb1TYEUiFC98UFXMBH19ea8q/cpMDHXR+P
5VbzUUKOJN4nmwJbcymhxxr4yDJ0KFg/kwLmKmZW8JWP/tkhrR+LpQBNevMn
qdeNTKMXLpd3o0BG6xk78k434rWbveAKpajyiMtEXf0HlKr1I72gYhqJA/aU
dYf1ostk3snN3hLkqzR2+GFUL9J1efiXnLMEPXsUbX0lvhfZkx+dWy0lKE0t
pWNbai86VrRkW4qGBGm/KaK1lfairIBZhbndk2iL+cDWxh+9qKmiT8vDdxKV
cfyk1SF9CFdO3twRLkb+dVtd03YL0DOh2M+mQoQMq+cpq4UL0G9PdVb3dRGi
lXdyrx8SIMLTKeZ4pgjl5Xr/dSdZgA6v6UgdjBIhwYnd3rxiAZr00L3iuk6E
/B2jQhcMCVBBe32o8ZvfyL/9QnLRoX603sABy0wIUcBIG8bJH9HUHO0VY8Hj
6KxBTXhh0gDK0zPvtekYRTRcY3oy+gvi/TIiJMXDSEnHqbnn0jc0IT2icNZw
ENnnWN0YzviBzNwyMy4/+YrmDjVtOFrzE0XNW2AQGzSAshpqqfTgYZRRejBX
K6gfWWisl2ruHEHLOK5AvJ3JsZfzMe7gKEplpWuQvnxUWqQcVLV/DBnJqPNm
ke0o9oMXVzfpF9qzKZtnIWxFERZrnLLPjyNzkSiE97EJiXNs/L+nCVGDmpGn
YvVT1LIvy/dQ3m+0b5m90FL2HjKzWzT9/9wca59pUYlc9NLWrAiuTqDklQbr
ijKzyYLbl80EJWJ0LLEv5efte6TKYr0Q75uT6O75t3uLdj8lW6nsBLWHEtSS
9mlyqetrsop9oLDl5RQyHW46dkmHS+qpcEL8n00j0c/+T2qn28mhVOEcI54U
CS+u6BEd45OLT53SDw+hgHhsYLlyVS8p8OzqtPpMATerF3NWb+gn7T9xJ6rC
qFC28HWoj/0AeXj/riDVQSroc0UdD/7+SjpXX3FUjaJBTRqnSk5mkPwpCYml
C2nQvFjtXO2BYfJ6+/G7YQfo4K/imb/qyigpDrL0PTJJB9d0leLPbuOk4wMd
iJyiQwV5Of3njnHyisI8zQgpHaJufXkhCRwnLSpHe4LoDNizPcVBP36cjJ/8
z2eb3ExP3LZNHiweJ+mpyj6m6gxwFk1zeYSQlL/z2WvcnAGCN7wd2fVCUmMq
fXtENAM+x+zXt3YXkfaCTff/jZ3plfMBE4l+IvJgg8zcR/EMmCpRj2oLF5GN
6cdbZU8w4NyCiZfnz4rIKK0Ih/wzDMh/2lqR/1xEtri4mrZfZcCkYVoqx3KC
TMhTnG1JMsDd9I3CJSMxWXqqcV9APQNO1OXkHLAWkx2hSc2nnzBAwVPDxMtd
TK40nT7Na2DAmsO/H3keEJNdrwYp+1oYYGiinUe9KyaNx5t+5vUxwLRpM1dp
zSQ5YHemkc0gYH3qxvwPThLS38lXcymTgEfDcRHuXhKy29kkaj2bgHv5xVkd
YRKyzaNnYbQ8AQ4KiwLnZEjIxwFGR77PIWBjy3Zyy3sJee1ol3bzUgK8dW60
z9ozRW6p0U3MtCNg7r9jktVXp8mWWkpXuQMBxFk/0Y/yadLp0TuDJicC/hyr
HK5+Mk1aPTvKZ7gS4CIw8zr1fZo04HKNorYRUKme36lhISXlh2IE24IJuG6k
JQN9UvKJVhP64wwBQfzmdP1sCnZM7XFUPTezA44v+kqKKLhlfNRD8R8CRltu
Cw3vUPCHp2qh0xkEGI9o1Pi9oGCRf+ClD1kEWPVfSrceo2C9HNpIdjEB/fKE
/nInKr441yzvz0YCvinWm8gwaHjB0Y2lc5sIuF3zUIXBoeEbAz73ZjUT8PFW
6ib5BTRcUZXULJ3ZJVWL5UtsjWn4lXubuOc9AYcTP6ts30XDlLRw99yvBJg9
/D57ZSMNh7ALGQtlmKDTqcdfkUPHr2jJ56zlmNAR6KNmWEbHelPBqrsVmDAa
Tld3rKPjoZEVy0qUZvRSG6XqLjo+2FXlZDKfCSOFd0MS1Bg4ruxZhoMuEx44
7QyefZmB07Z80ty/iQm2qcrZu28SeMS54eZ5FyYk9O9WsXxA4M0ONw1r3Jig
Z7ggdsVrAqus22sj8WBCwR8ZhNcIgbO0xwOTvJkwPHd15ZQ5E+eLGeVZ4UzI
gx2mcVwmrsldYvkknQlzaL653upsvERqE1OfyYS4NiWDRH02TvPadZ+8wISp
qpxVjdZsHDS/0OThZSb8+1iruCKUjeef115ZdZ0Jhr2Dx3+TbBx7SufP/24z
oeePwj0VoTLYKsyAeuYtE7JI7XuL+mRxWZMrOs1lgot5SW3VhCxW142IO/WO
Cfd1KDr7leXwr8+3J068Z0Kgpjc12EYOF/gZjcb2zfgbrHnuWSyH2R6r+8NG
mNBuKYyvipfHzWstnm1WYsEsq/s2XRsVccq9yMkNs1kQG9AoOxaiiO1Mylet
VWGB842Yr1anFTFeuSh7sRoLem3jD517rojvLGQf+qXJAs48g1m91rPwJVbb
sosGLDiT//q57FIO9jip4JNiyIJakSeFspqDlal2F+KNWRD3oGBQ1Y6Dz4jv
UwPXsEDlx8tjJcEcHD+Y02kKLDgtSDaOqeDgAO6es+9dWLDr+AbZebZKWNO1
4PFrt5mftHbRxR3blDC/6YOo3p0FwxcKNRr3KOGtz912Ff/FgupXKWsWZSph
+/um62J8WOAQ6tb8rl8JJ7qO15jtZsHAQ0798hXK+H//3uPq
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwV0nk81PkfB/CZccyMapEkG9LqWlQbNoTe31QinVq0oaywdtK05GoWUY5K
WWeJ3EeJUQjJ8fkUUo6SGUdCjjGUazZyH7/v74/34/V4Pl6P13/vjQ6XLJxo
FAollrz/p5d5ar2f/VsQlsu8/Hn7amykWBlnd+EtXGf6RNtvWo2lnm9vojvX
wYR6QKGKkywW5KxXsAuuAyWsmqtzTBZXJjPPFmTUwY9HBDcDdGWxW+jAsG1/
HczZa4qVSMnidqtEeoF9PfhdaFsVViiDM7+vBFubBsjTWN225wcZ7P9lLjif
0wDi/77seDEpjU93DTVIxjfAiHyGnHWjNF5ZU30mv70BJJTiDSKuSmP3GF8v
SatGuBbO/HNw8AdMaI9wn554B+3Z/m8P1a7CF587hdPUmsDSTKMx6sUKvMPs
pCpVpwlOCSiR5vdXYNFHw4LlA2Sf6tFh5rMCe8zLtS44N0GgXkuinO4KzNn7
Snn6cRNkRyWI15RI4ZBqFe6w1gcgbPw6v1UzcUpTWz3fuBm21Itd5TIZ2OGP
KjveqWboTjrdyx2nY7VveeMfHJvhftaOY90tdJwlFyL3PqQZLCPv7G5Mo2Ou
lY7N27pmqDFZ0mnZS8cvOiO+VljwwITDP6x2VRLzh8yYDx34EC1hAMXKEnj8
/raD1935wPKVFu2RksBS5vTAc9f40N/h96prShwT3OoZhTQ+wLBesW+TOM5x
g6EbvXyoSK+7uC5YHF+b06ll2bfAmnaqdfiEGN65UjV4x9lW2Kga/4DXT8OH
K5awFLsVmlU9FTJ4NOzI7loQ+rXCU7dFp7AqGo5vivdITmwF9omFisR0GpaM
lXeU6WqFQ3Gbdzc40nCn8or932zaoOIgu3HbMBXf2jlFKf69HYayvgjKJamY
422mIWS1w4T55Y/j0xT8F3pguda3HWLyq2N1v1Cw6fH9j72S2kE6N7NEvIGC
6ZciTun2t4O7+tJ0RBQFB+WpZz13/QiBtbzUo2oU7L/9nHnZ1Q7YtjtyS1LG
EmJ7FngOR3SAn2NMTmLYErKrkEhZn9YBxtM9nhXuS8jwaO7kP9UdcKIyt9d2
3xKad51NNGR+gvgOiuuankXkkxstqoj6BBaFeaNaaovITeNNLM7shKSdrvFP
KueRwEkQkFLcCeUhPzZys+eRVQrFNaC2E5R0j6dVx8yjPfL6xsSXTkjejkMN
Lswj2nL2GNLsgjJKzQMzxXkU1Rx2CBV2gXW95fqqK3Oo4Mrx2YqX3ZDO2KS3
wXwWbXp2QZDY3A3q+goSA3qz6O5Y6Hu//m645+BUXrllFnHO40wjic9Q7Snr
wqXNIuOjuywqTD/DSva0jkfZDOKpyuWUv/8MY11Dd27/MoPmzl/I62L3wE9U
SrjStmlkLzvhU+7VA1TzznxdxWlUU8nZn+DfA9H+Ziv/kJpGEYq32k+H94Bc
1Cu57pEptPX9Ixqf2wPXLlD3Xi2YQr/tEVrVjfTAmdZNlKPEFMqT+WO5mNUL
pgOy7rFO35FDhdWJCOc+2LJZZZUBbwJpFa9brXipD3buCjT5/fUEoj3p4KV6
90GuZeef10snUFrKWevCG33wXStfdT55AvVddz7b+rgP+NEDGV4XJ5DDYS9X
pfE+MFARbI2QIt0We+ORdz/4K2aYCo58Q+f/42N8QwDffw7brDQuQvacCOvn
EQKQc9IyuzwgQrZiR8aexAnAffPUwIdPImQlX7U++ZEA9KKNXDLfiJCpfr6X
3xsB+KsmpGSkidCOwDuaexgDYPgxMHLBWoRmZEziCkMH4Kk1MIv+HUe3fym5
lBUiBEM3/3gXz1FUp9Um9AwXglLiP4wcp1HE+HXa7uBdIZR/Nf59xnIUBenr
HhFkCoE4oOZVuHsU/WNcsu2nGiGUFWs7PZ4ZQazfSnoTxQbhh3ucW5H+I+iQ
T8mp2IBBeOUj4sxHDiMaLtEN4gyB1e19u1RaviBZdfN3n+O+Aj+IcmttgBCZ
Jhuni6JGINdYf6teaz9SGG8wuVoyBnSf4GF9q14UX/uCKvaXCNyPmoxedu5G
hsr7llUd/4Mf+3EBu7cDafTICPw8voGm/KCZl28b4j5a7VLkPgHWRUllGg/5
yLfbjqcRMgl8s1Ma/oIPyM1Qzzwp5jusG8pu5AjfobnkAw7DEVMwESdt4/ay
DjX9HW/vnTYNQ4rMfubD10j/0E9LXakzkKhtaxizqQq9Paj/iHgwC00mOx5c
HEcoM/++fl/OHKz6k376XlQpklfTZJ3NngcblnKiqdwz1ExlXFMsX4BbJvFr
1ilwURHjclbT20VgCdqOv6amI015GZZDzRK8D7joP+Aeg8bDp9Zoty6DfQeb
I6Q6IbXQ0J2XWBRil5GMl8n4Teg786nDeJBClKbyTnfaJpB/y5stYlOJvFJ1
hhEzE3zcnVzWjlIJtctnogsDc+BYccLhtV40ouUD98xjmXwYW2D5ik3RCJHS
8usNi4WQ2hb4jH1ZjGBaPHsRXVQMcy5G9lfmxYhui4NaLtdKQXkx0saNI04w
xDw8uxbLQHgorI4hLkHMtT0wT7ldCVVbGkAlTIIoq3Ebb/HGwGJkiW9kShIt
5w6GZIa+hJKUTUZVkZJEX2HAydmUV/DOwLDGQpZOSCmYpnYnVMEMK+GUfTid
4E0mRYWGVsObE8mWq9YyCLVi9XtOvjXgoG/48GEMg5j4NequnfVrSGv3c+1V
ZhJfA1LFZvbUgmbIHO8/0ux67YzVBrVQrO1tQFNhEsxj6Qe2k64P/1tKjfT9
BcVgB9KTB84/ciR9Q9JZvJG0Sb6pYJD0fuaVhVTDWvh6U852bAOTWMi63Wy+
txY8dCOqlki7+rxmO5NeEqzUkFZlEt63uqQCScsRknM7SV9ySzcuJm04NXPP
jfRJi/CnqlAL4Q7dvEnSHgk9wd9Jr5OxMZDYSO7vjm2QIWohraItTZ60VevH
UnXSJes+uO0m/Xyz6eg50j3vqqR9SHtIBVnUkWb5Et43SFdp+w4LSE/+XNEd
R1o642TQMmlGcDG3lPTDMzFFOvtqIUpLW76OtF8q9dhx0ko9T3w7SJ/95Yjw
L9JZdzQFX0n/S/fwDyK9yyDbfJ70b1uvrE0m/T9+UKNz
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["x", TraditionalForm], 
    FormBox["\"cot(x) and 1/eta-1/x for eta = 2\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  ImageSize->{506., Automatic},
  PlotRange->
   NCache[{{0, Pi}, {-4.544104591986274, 3.5248620298224065`}}, {{
     0, 3.141592653589793}, {-4.544104591986274, 3.5248620298224065`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.550461762664503*^9, {3.550461940396355*^9, 3.55046197467935*^9}, 
   3.550462009621829*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"sol", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"FindRoot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"x", " ", 
          RowBox[{"Cot", "[", "x", "]"}]}], "-", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", "/", "eta"}], "-", "1"}], ")"}]}], "\[Equal]", "0"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "2"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"eta", ",", "0.000001", ",", "10", ",", "0.1"}], "}"}]}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.550461235873981*^9, 3.550461319522231*^9}, {
  3.550461352776923*^9, 3.550461376363112*^9}, {3.550461436363897*^9, 
  3.55046153613417*^9}, {3.550461601097774*^9, 3.550461607783759*^9}, {
  3.550461717532478*^9, 3.550461717637993*^9}, {3.55046238183908*^9, 
  3.550462384537911*^9}, {3.550462419388218*^9, 3.550462433464973*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"x", "/.", "sol"}], ",", 
   RowBox[{"PlotJoined", "->", "True"}], ",", 
   RowBox[{"Frame", "->", "True"}], ",", 
   RowBox[{"GridLines", "->", "Automatic"}], ",", 
   RowBox[{"FrameLabel", "->", 
    RowBox[{"{", 
     RowBox[{"x", ",", "eta"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.550461515929546*^9, 3.550461557298008*^9}, {
  3.550461589658953*^9, 3.550461630178356*^9}, {3.550461877734949*^9, 
  3.550461892653395*^9}, {3.550462399298063*^9, 3.550462407348961*^9}},
 FormatType->"InputForm"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw1iw1MFHQYh0+mKCHC8WEnTr5CFOVcFwKn4PE77oODu/O+78BVgKCYCDpH
CCoBisKMrUFakG3MODkVFxy5nMUK0gQhrCU4oJsyLCCoCALOUiBr//fd3r17
9rxP8N7D+n0uHA7nzRf73x179JJo4GEApgZmhwJXTcdz/p8gdCZyul3PEIdg
6YBqtG9uhnEoNl3PX/tAMMs4DKIo2WSceI7xZvTzexN1W+cZb8FTTRhfOE8c
Ab8/PAK8bU7G25Ca2VbLS3jK+FX45covfNNNLIBHmOcvo5K/Gb+GTJV97VAz
cSTSJqR7K7z+YbwdI1dCnOXZxFEYODKmDf2cOBo2yUFZyQJxDI49Hsk9JXrG
WIjMq878uSLiHZgJC/+irIV4J1w6j1tvjhDHQnpXPenNfc44Dlv1PI/FWOJd
8HpyJrA/k1iEIlfu+vFK4nh8oLrTdrKJGDh/2Nfnhx7GpYDnvP7uyxPkxRA5
boefdl1gXoyM5S2BccGMOQnoNN0YyN5JPgEPVo/nb9KTl8BbH15Ve4C8BO+V
Dl7qLyYvxQ330xXz1eSlWHlvl93rMnkZrKaQd2JukpchQv1Zwcku8nLUvd97
amqAvBzDXTm8+nHyifi2S5tV6ySfiGXxJbljKxaZVyC7R7T9Qx/GpQpUGbW9
9iDySSi0DxaBTz4JT7460abcQT4ZkUdnc36Skk+G+Of62/Ma8koE+Acete4h
r0SDX0bjRBZ5Fe77J6z/Po+8Cid+/D3YUkhejf3fbWmqKCOvhuBai2bfOfK7
4ei5bJmtIb8bLlVvdAgvktdgneNQYnQDeQ3ESZv3/3mNvBYZaz5OP9jKGFqs
u7daZrtF/1oM1ntMX21n3K6FZkOM39ud1Otgb64Uut+nXoeI6uIv8/qo18HX
4Ri6NES9DnVNytbGYer1UGbZRCWj1OvRXMNP5/9GvR4Z0QWO1mnqX/huaTrX
Sb0B/uORZcnPqTdAMSP6Om3ZEusNOD4RcVbvyrjdAAH/8bZQd8YcI1Z8dJbz
0JMxjKjM6hC85Uu9ESXnG359xKPeiIVV1yHcQL0Jg1abuCCYehM6Qson6jZS
b8LKSR++NZx6E3gb70xd4FNvRk2wfM0RAfVmuAXx90RGUW8G9/Wyi8NC6s1Q
CJOqC+Oot8BL6TbzLJ56Cz5Zij2UI6Heglt5HY2dcuot8F6uEHOTqU/BsaJP
+xRq6lPwrjXtrzwt9SmIOHclvNxAfQrGgtwWK83Up0L/Sul0cepS/L8jrMoz

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 1.2000000000000002`},
  Frame->True,
  FrameLabel->{
    FormBox["x", TraditionalForm], 
    FormBox["eta", TraditionalForm]},
  GridLines->Automatic,
  ImageSize->{516., Automatic},
  PlotRange->{{0., 100.}, {1.0644835045800922`, 1.9593486245741656`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.550461557922149*^9, {3.550461595543162*^9, 3.550461630701978*^9}, 
   3.550461719931078*^9, 3.550461894159749*^9, {3.550462386448981*^9, 
   3.550462436006575*^9}}]
}, Open  ]]
},
WindowSize->{640, 623},
WindowMargins->{{107, Automatic}, {56, Automatic}},
FrontEndVersion->"6.0 for Linux x86 (32-bit) (June 2, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 663, 20, 32, "Input"],
Cell[1256, 45, 7480, 132, 298, "Output"]
}, Open  ]],
Cell[8751, 180, 926, 24, 55, "Input"],
Cell[CellGroupData[{
Cell[9702, 208, 574, 13, 32, "Input"],
Cell[10279, 223, 2017, 43, 348, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
