(* 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[ 30724, 625] NotebookOptionsPosition[ 30151, 602] NotebookOutlinePosition[ 30595, 619] CellTagsIndexPosition[ 30552, 616] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"hipass", "[", "\[Omega]_", "]"}], ":=", SqrtBox[ FractionBox["1", RowBox[{ FractionBox[ SuperscriptBox["\[Omega]HI", "2"], SuperscriptBox["\[Omega]", "2"]], "+", "1"}]]]}]], "Input", CellChangeTimes->{{3.492951306097*^9, 3.492951373816*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Omega]HI", "=", "1"}]], "Input", CellChangeTimes->{{3.4929513956359997`*^9, 3.492951398866*^9}}], Cell[BoxData["1"], "Output", CellChangeTimes->{3.4929513995629997`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LogLogPlot", "[", RowBox[{ RowBox[{"hipass", "[", "\[Omega]", "]"}], ",", RowBox[{"{", RowBox[{"\[Omega]", ",", ".01", ",", "100"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}]], "Input", CellChangeTimes->{{3.492951378521*^9, 3.492951471527*^9}, { 3.4929515037869997`*^9, 3.492951540178*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData[" 1:eJwl2Gk4FO7XB/AxBsNYxpQQkSWmpJItLe47IUvZY1LWopQlFbIkjVCyLz+K ypY1WhHRGVEhkp0WiZKy72T7e67n1ec61/m+PudcR8rRw8yJSCAQTNgIhP/z qKjI46fnaSzpMdv612u634QdjWdprOEYss3nNWPmnIsGnWisnurGsZk129qL CyXtaSyzqwVCimtax5k/irSgsSQfvXRMWdOZEp3ncoDGom3VJF5ZM3CZI0tK gMbqL5NhKK35+MdUcuwzQdbtuAyXrDVF70pu+f6HyuoYUFj+t+YiZ9pl3x1U Vlp/3N30NZ83xmZeH+FnaQdG/ze9ZpBbcMaQLR8rjaqpnWjHxzrgLUEf+0th 9SAH/v4hCovb7vhkoxUP6+bbFjf14zysJsVfnZwNZJabA6N440cyK8Rpo3a3 NRfrGa9uQasNF8vg6th0aD0H61WMo/7IRw4WYcVt+0cLEuvkE491MidIrCen D1zzGCCyzJ+7xvqNEVkeBY82DDPYWNttH0rvdWZj7S8JdyE1rMIwZSxaenIV ytoXd/zOWYLRHuZv0d4l2F7FrxAYtwCxHUF3kn8uQGDgZRW9Z7MgvKi5blBu DkYXRd/Xxk+BxTN/0+oD06BpSDsTkD8OrIxcj867E2BdnLC5kWMIXnypVBCt GAEpV71e7raf4JD0cS63cBBMIw95HRftgcMWR1UKzH5Ct9aMkW9sMzx44980 tK4Xbq7W+iT6lkLUX5Pgz6gbLLUcdAXflADpapVst1w3yIYsrI/kKYEz2b0b Bvm6AXi2PbuR8gLKrXRm1L52wazQ7eFLlU/BarmuKdm3C2oZd99kEXOhmhjv 7l7aCVS6gvUfKQf4Ln4u0AV1ANdRuT7vMyVo+V40JS+oFXZv1PSM3FGKtrcr ziy6tMLJ38cIWTOlaAF+Uh3NW+HZ9RCJ5uAyZPw1uvWM3Fq/5Ke1QloFivkY p3y8sQW6o5v/eLhWIbb5bOYniRbYsRDtKPvwPTrZvboy0/QJqr+L5T8m1yIR W+Wdua8+AeNdzsRe11pUdOqggFvOJwiOhyBT5To0Xyhet+PaJ+hSHLsfWFWP Cs+Uh8buXOs7Gn3p+taI9Px2E+7LN8GwE2e+LqUFXXq4znWhtQFEts+Jl2m0 oP2R19sYzxpAZ/J3tMLZFjSelWrdGdMA9wPrvKhvWxA0ekUqGTWAaVLEwc+B rei3xw354/UfoKSW1u022YYY48RHLrX1cF1BkpzY3YmafnXt3vmlFoomBPy5 yF2IeLVlK6OyFj6XEkZ91brQDieDa/cf1IKKdl+rbXwXerPRmBx8uhYGTj58 QD/ajd6INPfmjb2HI1EK6hWsz+jbW54+e8p72DCh7tyf8w2ZfXZ2IzLewsFX CRf2fv6GeAzVrUL2vQXXkAm/WN4eZN4Rx6BLvoUq0YJo5NmDeH806X8cqAFX LYmylL3fUVA1yS/JpwZ+6BM58517kY+Poz/lQTWopwwyHBd+oCiCNfMz6Q0c IQj3RNL6kO5SQKrKcBU4OumcKlPoQ1uppKmC1iqI2JnhRrXtQ9Yy/HMTGVXQ V32C+fpNHzp4cdu7Lq0qiBz+WLAxoh9V+TjVLIWxoP9A8UqLxC8Ul23VNHr0 NSQn7Oi7qf4LVXlBwAnZ12A0lPNW0+QXmrfkrv33rxLKk+9G5F//hUQSPjA/ 5VZCzNS1jcyfvxB7jVB8K2claOYZqCnlDyDn7zuuUBtewd31vW7RqoMoIOPe zq1+ZWBy/ripjtEgGrvydSXWsgw437SoLDoPouaqjjp55TLw9Hi76Jw8iJQV qendwy9Brz7/lubiIJqfnvI1dXwJs9e8Ho6w/iCr1eAd54+VgtkQzzfDI0NI 9opl/voTxeBbIEpnnBpCtQoz/p80iyHtPP3Sab8h5F8nWVIkXQwjQzrcV3OH 0NCF/M/Nf1/AzeEg1SLSMOooE5d7HPACXo/MRlIrh9EfE2fu3OznsHW8T7Nd cRQtzXx/kkt7BiZPJm790B5FT9wzdC78ewreFwjtIydG0XJejYhl31OoGd90 njN8FCXihgX/Z0/BdoKRpD4wigwy39EVLZ5CwuTHsTv3x9DvXNkI7ntPIMjP xuRx2DhydEryzQgrgvgvkLIjYRz9VGMcbrAuguz90r8L08bRGUK3pMqOImhY Gbj6qGwcnRjvqKloLwTh4AsFeUPjaLzwZEmefCEU3Q7mzDKeQM9eqsLTjgL4 mppXkSw8ifqFuC4F2+XB2DKFLCI7ibyEmZU/NPKAaOdunrRrEg2l+ch7rc8D upTy30T9SRSXNHRkb30uXHpYIRzvP4lu9UfEqu3JBZ6ipouR3ydR9Gqde+Wm HNCAGTozZwpt4xjt0+Z7CKR26dztz6dQRH3i7t6xLPj011i+8/UUmm8YHsho yQLnDflbtndMIb30kIp7yVmQ4GYr3UGaRg02776dksuCMbH3Ytscp9HhjTuz yfqZ8PBKMn+L+AxqOIeNL+Wlw4Wot5EB9BnE/8R7U3pMOuzPmuSVV5lBedmH 0sZ90qGl6QglwHAG9Smmi07rpgNBno0s5zeDAvLU0c2BNDjR7sLm1zmDLlh5 clYppIHg7n3TUnGzyN4udGPJ3XvwiBWZEXtvFj2T2cP/3PMe6Bn3mrDlzaJl pzi133r3IMg1pLAXZtFkUjXf9FwqjGY3OT8YmUUJuV5ayYxUqBc73S2uP4cs /D2lmmRSgMkR+VqYMI8U6F5/6b3JIJHw3TWMMo8cxKrTwyuToUx6t9jchnnU YXfUXiwlGcZRp0+H4jzaRrUl1Fkmg62flFLiiXkk25a5x+hTEuwbK86klc6j pzEdjQ0f/oPprp6bfO4LaI+Fwy2e/gSIPstr4+23gNQrH713rE6AbfMaSt9D F9AduffcfzMTwF44sfvJgwVk1DAQecMpARqPGW6zaF5AMka7GH1/4yG7pfTD XZV/aJR0aDN5JQ6sGmL46Yv/0AYd93Fd7ViYPPG6L4ZrEZVFThqRtsVC1NBQ ycK6RZTfuW96UCAWangO233YvohwkP0u+a8xsEt/+bG77SKyLrI+4ukdA+R3 LqbFVYsodZ7rt/DpaCgHrQStm0voZ8ZCR3NYBPCT9qV2xC+hVnJYgapdBDjo KWede7CEispGmC1qEUBulnkRV7KEtKs92UsGboNVH6mt7+cSElTX/iGmfxum Se/XBR9cRttuRbJJiYSDooFhfPW/ZWSwy2Z23bcwCIo6lGLFuYLYXavLya/C oK1lX+aQ4ApSckm7rngnbG3obX++busKOsUVw89pGQb1rnytp6xW0JR5z8pQ cyg4RzfRSC9WELfDqLh5SwiktZnHabutov5X4bY9U8EwJSrPavZdRWPCx9pm 2oJB1+7fiG3oKmr58Lp4f0kwDP9J0/d9sIry/X3uW/kGg8bqCKGoeRW5GYmb l7MFw5/1NaUUMQJud58an93IBCaylfO6RsCNmlVagW5BsL3vcOWrEAIWU7f1 IlgEQfsNJQtiBAHXMtFA3t4goNeTmNHJBNy6YpXoSQ6CjxYF3/KeEnCyj5x/ iuE1EDs3n9DTT8Cig4kDfE1X4UVCHLueHhuOnTcJnePxh/JYBxVZIzZ86MvO Ay/7/YAVtcuJYMGGL10pCn9a4Qcfbn5899KODf++2p9zxMMP+gJ4wrf6sGF9 l2/q4p2+IOjEpFKy2fDhhGe+X59cAXfVi5s+shPx1l/rY9vDveHy7oNG+dxE bFxpuE/onDf47aReCxUg4rMv6vbc0PeGkK1FvZpiRHy747zkGNkbUjf9zXy8 m4jDrWOOTNzygg8cjttiHYjYoJjU65ZwGegdpuoWQMQa17OFYuouwn/Rz1dp b4m4Rntb2buii0DSF6ptridis/+8HWQSLkLvqy6GcQcRJyk1/z1qdxGS0u38 DEaIWNz/iqjjnCdwurlVYjF2HN/15e7xHZ7wk/3WIUUfdrw+R9nEzNUDzCr/ UoYD2PE6Zy/rAOQBLO8jbflMdjyj2Sc5QPOA1D8CTvQodizyXcLLp9wdzJv+ C5V5yI73TvjFhfG6w5u7WXWirey4jIYuC1a4QroSy5hzJwnLn9k6xtQ9B1Hn BQoOqpKwnE2mWdumcxDw0Jbz6j4SlnKduHZ6xgUYossVU4dJOO2tRyl66AL8 bHu3/bAn4S+rl1Q7uVwg4NNzUkUcCXd5+YtrdJ0BS4+cMs9ZEm5b/1zNOtMJ tPNm1xcukfDyubTututOoNSvc2GQyIGFLrYdDrZ3Al6rn3J2AhxYR0NEz0/C Cao1pRKO0DmwdPYdXJt6Gnbxp7jLW3Ngol5sd1rGKaAURsl8q+TAXmpjhlrN DmBxsFqkqJoDz0leIvuXOsD99jm+a3Uc+Gi+8VLXPQfYvWI/v7mdA8f2279g P+8A1sbKjaeHOfBY7b37/FwOkD/R6T28kROPztUJNerYg56aVP2iDycuibI9 Kl1mA3H1x6DhKiceHlpx3hRlA19tw1/cC+bEr0jGOZanbOBC2NR9FM2Ju0Tv qTH5bSCp6+2l4GxOHCMpOvD8zEkY8Du3idLOibcGNbWqbjkBIfD8wsbdXJg2 E0f2qGeAUVv7/Jk9XLj5zP6oiEwGiPyZCyrW5MKCaWb/BgIY8Ii2P9bEkAub Wcxxm+5iQItTzdPQ01w4qDupZuyOFWzmbZ+c/I8LzzzYeZ7riiWUM2Yvf1hc yxcECuy1sYAbbiLLIkQyfszk7NQ9YAFGzL0hzmQyTs/2fxyyyQJ+FAQmsgmR sfH5FOvkHnMgr3KWqO8g4x5HOp37lDkceyg8l2lPxmbXiu50XDaD8Yk9vgFv yZgcareeXm4C0tUjyY8+kDGc36TrmGYCFgkZL782k7HzA32ZmlATKFXjnd/f Q8ZDd8KHl81NIND/u/fyLBmPSN00Cu01Bl6O0MuBdG68Pkz7TpWdEdBFWj2C bnNjh8Te+NfxhmD9Jyz6SSw3vmOepo5cDCGifP/j3iRubHtzyYANGcLYyexR nMWN9V/V7dAbMoCSdF83tkpuXH5iVqBD1wC0FTafZ45yY743743vceuDg6ab 8w1THrxfNUHV5JUujLtwbTaw4sG6HuFND+7qQmBiereADQ8eWbA4JeGnC3eH 24+knOXBe7dIns/R0IWWu5rKz67x4KiQyOc/ynVAa06A0FvIg9+x6256/VYb pJ88u7OPh4KFslYe2S9qwZMvR8zZqBQcxbF9cF2vFmhy/eZ9L0TBk7e/2I/W aIG1rViQmRQF5/SVbBWJ1oI43hvOLnso+M6RbHaNLVpAdDmmnORMweeSLRSD GAehT2q+YfINBdNvB+53e45gvPGaqGodBT8u4PRbvY5gxZfL2aeJgv2nt7J6 TBCItmxYXfxCwfnKGmHMMU0wYaoqccxQcJn3GwGzXZrwuu9iorA8L076ztFd APvhbuaIzf7bvDiqcyxbm7YXco298gNjeXFEobvwvT8aULK4NMtK4sWHXmYN qFRpQLM5b4xOFi9Op7ILS3lqAJmk8MaokhcL7AwS/dG6B7xPn5VzGOPFinrK 9o+y1MF8S/9oiDkfDh5IOT51QRVeK5i02xznwxL70ozKTVWBvrvylaodH3ZX cyot2q0KS5pJN3+d48Pn2mlfJWZUIIthKK3D5MPrXvAaCQWowPTt58dIT/lw 78PmQek45bV7N7iCyc+Pk0kuu9Z/U4KV+fEM6/X8WPBpjD+1WgnOrtrc2r2R H2dn3MrenacE+3n3WPZt4ccz5Y3w20sJfm4ZHjt4YC1/RIJXQFAJVI5byLC5 8uMUiYgLazcLtIFs+LU6fqx0ZWjDUrUiZDNlyXub+PGvLXE6AXcU4YqObOh0 Gz9OPzUhoeGhCOIfZJguvfwYGwhdOSOmCE4d0n7mc/z4Yqr7uUjv7TA7vPmc /BYBfLCug79YXQGEN24yaAoSwIbex1UP9tPh71fx2luhAnijY81yKdCh4oG4 rnaEAA7v2n/dIZUO9lvEtcqSBDCuoScbWtIhd5fY3swiAXyMLqNyuUEe9hwW 3ebzVQBvGdf60V0lB4rlPCEC4lT8wVZoYnOTLHScuM6nIEnFdx2s5QaKZCFw eS5RV5qKjcNztL9FycIn/Cv7Kp2KtX+zuOyNZeHye6gdUqHi930s08ctMlDR dpm39igVB4v3Vyn3SYPBWE980DUqfpcvcv2HtBRMxRwTT2VS8Ujm9UZLshSk 7m7IKg2h4oOcuSozI5th1KusePQ2FRceX7V4VLYZ4pbiO08mU3E0iUhYNtsM 3dz6YhpPqfhEjlvST1FJOCv7PGOij4o3HfTdJqshDuiS+HznLyq2daqzs6KK w4Y3IUdfD1KxD19B1NvfYlBjx5gPH6XiCIkXN0yTxGBzyvJR2X9U3F6bfk9i YSN0C+otWAoKYpVdked13ouCwepX4wokiK/b8UWm3hYGKSPdhxlaa7WE1bs4 F2GYT33876aOIHYtDlEuPywM2XuZD48ZCmID19DIFJIwEL3lF0ctBfEpsy1x aUEboHzYM1vKfS1/42apz3UhUPjMuRyaKogtz9yQjMxaB3TJppzqB4JYpHOk 4uuNdSB7OsmMkCm4ti8brtg5rQOJUflc3zxBnC2VTlyWWwdUor65a4kgVphN 9It+RIPprbfzTD8JYs/22eAGliBU+ApYipNoeF7Kui6BQoWXrzsJx7lo+El3 E/10vwAUs6cVJPLQMMN/56HJxwJQFLmLTUCQhveRX/3lNBCAtHTTR2wSNFxh rxnIzuSHkLp44m91Gt5Uv6LWReADJv/JQpl9NCy4NbKSr4UXAs1lGfaaNNzo 9AOiMnnhyrcXhd3aNLzqm2zqeZgXzk20MxpMaXghUfRmQRwFnNXus3Mfo2EL I/xupzMFTvk7F+kwaFjf3Pz9ogYFTnLMsYMtDWudmjrk0scDDAMoWnSg4QYB xc/cpTxwLDrs+B4nGr5qmHd2/DYPmLUZk7zO0vCp0vBAcQceMPr/fyd25cov iFTjgf8B1BtGRA== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{-4.605170185988091, -4.6052199955409225`}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& )}, FrameTicks->{{{{-4.605170185988092, FormBox[ TagBox[ InterpretationBox["\"0.01\"", 0.01, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-3.912023005428146, FormBox[ TagBox[ InterpretationBox["\"0.02\"", 0.02, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.995732273553991, FormBox[ TagBox[ InterpretationBox["\"0.05\"", 0.05, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.302585092994046, FormBox[ TagBox[ InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-1.6094379124341003`, FormBox[ TagBox[ InterpretationBox["\"0.20\"", 0.2, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-0.6931471805599453, FormBox[ TagBox[ InterpretationBox["\"0.50\"", 0.5, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {0., FormBox[ TagBox[ InterpretationBox["\"1.00\"", 1., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {0.6931471805599453, FormBox[ TagBox[ InterpretationBox["\"2.00\"", 2., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {1.6094379124341003`, FormBox[ TagBox[ InterpretationBox["\"5.00\"", 5., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.6592600369327783`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.2039728043259361`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659907, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.35667494393873245`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-4.605170185988092, FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm]}, {-2.995732273553991, FormBox["\"\"", TraditionalForm]}, {-2.302585092994046, FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm]}, {0., FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm]}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.6592600369327783`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.2039728043259361`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659907, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.35667494393873245`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}, {{{-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-4.605170185988091, FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, FormBox["\"\"", TraditionalForm]}, {0, FormBox["\"\"", TraditionalForm]}, {2.302585092994046, FormBox["\"\"", TraditionalForm]}, {4.605170185988092, FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}}, GridLines->{None, None}, Method->{}, PlotRange->NCache[{{-4.605170185988091, Log[100]}, {-4.6052199955409225`, 0.}}, {{-4.605170185988091, 4.605170185988092}, {-4.6052199955409225`, 0.}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], {None, None}}, Ticks->{{{-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, {2.302585092994046, FormBox["10", TraditionalForm]}, {4.605170185988092, FormBox["100", TraditionalForm]}, {-3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.659260036932778, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.203972804325936, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659905, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.3566749439387323, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {0.6931471805599453, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.6094379124341003`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.791759469228055, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.9459101490553132`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.0794415416798357`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.1972245773362196`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {2.995732273553991, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.4011973816621555`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.6888794541139363`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {3.912023005428146, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.0943445622221, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.248495242049359, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.382026634673881, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {4.499809670330265, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}, {{-4.605170185988092, FormBox[ TagBox[ InterpretationBox["\"0.01\"", 0.01, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-3.912023005428146, FormBox[ TagBox[ InterpretationBox["\"0.02\"", 0.02, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.995732273553991, FormBox[ TagBox[ InterpretationBox["\"0.05\"", 0.05, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-2.302585092994046, FormBox[ TagBox[ InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-1.6094379124341003`, FormBox[ TagBox[ InterpretationBox["\"0.20\"", 0.2, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-0.6931471805599453, FormBox[ TagBox[ InterpretationBox["\"0.50\"", 0.5, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {0., FormBox[ TagBox[ InterpretationBox["\"1.00\"", 1., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {0.6931471805599453, FormBox[ TagBox[ InterpretationBox["\"2.00\"", 2., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {1.6094379124341003`, FormBox[ TagBox[ InterpretationBox["\"5.00\"", 5., AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], TraditionalForm]}, {-3.506557897319982, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-3.2188758248682006`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.8134107167600364`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.6592600369327783`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.5257286443082556`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-2.4079456086518722`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-1.2039728043259361`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.916290731874155, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.5108256237659907, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.35667494393873245`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.2231435513142097, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {-0.10536051565782628`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.0986122886681098`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}, {1.3862943611198906`, FormBox["\"\"", TraditionalForm], {0.00375, 0.}, { Thickness[0.001]}}}}]], "Output", CellChangeTimes->{3.492951414736*^9, 3.492951472164*^9, 3.49295151073*^9, 3.492951543479*^9}] }, Open ]] }, WindowSize->{1904, 1079}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, Magnification:>FEPrivate`If[ FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.5, 1.5 Inherited], 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[545, 20, 306, 9, 107, "Input"], Cell[CellGroupData[{ Cell[876, 33, 123, 2, 43, "Input"], Cell[1002, 37, 72, 1, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1111, 43, 461, 11, 43, "Input"], Cell[1575, 56, 28560, 543, 374, "Output"] }, Open ]] } ] *) (* End of internal cache information *)