(* 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[ 6342, 172] NotebookOptionsPosition[ 5658, 143] NotebookOutlinePosition[ 5996, 158] CellTagsIndexPosition[ 5953, 155] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"1", "/", "x"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.445735364906969*^9, 3.4457353711179695`*^9}}], Cell[BoxData[ RowBox[{"Log", "[", "x", "]"}]], "Output", CellChangeTimes->{3.4457353717829695`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"x", "^", "2"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.445735375088052*^9, 3.445735382089752*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1Gk81HsbBnBGqZBsWbKNpQaJnKQ4uH+IbMdpseWIrBMylZNdWshyIpIy KJNCpEKhZiprZM0wQpbMNMhubNnz/J8X9+f6fN9d15tbwf3iKS8cFxdXFnb/ z0eR7rxanrcN246G+lsHEAw+MfDWDngf0HoTKl5AYxtu1ldE4fGhIJmF23Wa xgOCKeXFfD034baGqcZVLXF4VJUovxUfDwG+ifwqNCVQn/G8s0lMAn4FboX2 Dg0YEMz6vd6dArEDFRPOWjqgnLdDZ3XtPsDDGxKz2oZwwSDQf0k+HRy9h+JF aCbwppOZs2DyEHyPWF6KWDKHVT/r/lkiBRyM5gzLO2zgMXd//JJpNuwynl4d zD0Fx1rv7v3V/QRY16KbrLXsYZR8vHrBJwcUev+8k83vBAmeG87za7nQdkLM 7Lu2CzDWzqdy5AuAaiHWuI3mAUGf5Q7OlDyH15p/iOJMvWHPvc7mKZMXMPz0 nMOlpfPgroZ4JohFMKUz05rfQQLcWljbQkQxMJ8TrlM3LkEn0052wbQEiNzn HvTkBkDIC37qXPdrqI8aox7TCgLLlBHeucdvgFKk9/muWAjIhFTbzvqUQqpi ajuZPwyqTII5M2tl0DbgOtCpHQnb+n4QpuSpUGf78jyOFgU9VR8DJ0epILct mJ28Gg3P88i1EyU04B345Lx+LAZsAmxcx00+QOT8pKXvUhw82EF78JNYCWLN pN1POu5AabBlwL+SVTDdom4soJUMD8ePSM1HVIGE2dBy2UYykOgixDnTaqj2 lxrqzE0BkYcNuNnuGiCmPCxBWg9gTbC84JJ+LXDHKbIv4tNg6MbTE5zHteCR NH4vUYwM5cTIrBmfTxDOQP+m8meA0yFtvem1Olg/yKtK186C7CbK5Qn5RniK D3u3SX0KC+QytcGERrjSdutbnHcOmBGb2R0rjbD82pa9tDsXJnmW7GiMJlCU 1C+JvZoHRw1s9OJjW2DGSUuHdLEA6EXrOMJMG/jXlA3Zfy8CEdjhslODDmYu q+YU52L4c1+qXqwnHV4FronGNBfDnYWC+bB2OiT/qxj74mUJaN/96uVe2A5J hTw/nKPewLUmdUstVwZECIj6Wl15C/klb/cV3mfAQc2WmOnlt9BBNubZ28IA NDmStuXaO1AmOn6Q1O0Ev8NGafFJVGjiidbgEv0KuC3xfEvV70HcoE+krb4L RBpfszR1quBVUXzfBY1ekNBVhVK/OhgXGU+wdOuFXw6PZ1FlHRCCLA1VUnth uaXwzEXRenisz5/NXumFs9RrliUf6yGlMcHbqa4PqJnSRY1SDRDETpo97jwA xTFK0dacJqDwN0cJmzKhbZWq8ddtOhgahDtfd2GC/aQeS6OSDv2k/Ydngpkw sT2G5DZPB8mO2yMtz5lgXhsmRXVuh7tka4s4IRY0638v/uNQB0Tt/SK42ceC OePEYZsZBhChPX0ygA1Vmbe99+d0A9eTX7S+22x41vnUjcPsBvIWmf6mHDYM NpFEeeR6oKHRW66giw1mMzKZwuk9oGK7/sRLbwgWJHr1GCnfYPQ84cV37mGg j3a/H03tA9+UqxX05BFIiGPVOjMGAbf4ZLCyYATYZfmWkwJMyHBo4CqqGQFV XprgyYNMaJIRNUlcGIHXNaMqSdiu/c/yP1s4/oTSwqDcgW0smHzPoNfIj0KI gW1lreYPIA2rsktfjcGmq3hQ6cMhYLp8217dOAblRq5PDzcMwemeOI3WoTGI TyiOH5ofgqPNP0OH94xD+NkLN5qthoGnJFdIPHYc0ibNZSs2hoEcoWAY7DoB eZX3eXV8f0K1qFS6rtAUEHQjKZe8xoFPIZoweJQDTH3TwLgADjTo39WMNOXA yoTrIbUEDsQ4Zh2RPcWBYMXJ3sFcDuCS3x3/x48DlL1nRmK+cWD19ySx+xEH cqJvTdcazcJEv11+G24WonIJn1Z2z0ELmaBa1TIL/wXcjbZtnYc7Qs1q2efm oVp37Ux98BK499lW8rT8gsm0/q50Ay50uS7a/SJhFRTSpdNNz21FJZcETkta bID/3L2dSq18KDvcb/ygAxcS6XRb0S8WQjcp6ycXJrnRvcOGnvq7xRAXg4k+ hPEg578z0tXfSqB9V7xDbNW2oqjfxtTETWk0tJhmz/+RF93/xuNlrYJHlsO+ V1Mub0cGZbbt04WKyGYoeb+cHB96kBrquvPkXjRe63694SU/cpANl53jEJCG cJesietOpDOhYFC3qIb4YNGtf14QLdsXkK9xDqDjU05LinZCqNc3Zo7vxUHU U+PJ7aQujEYllg/RSH+gsrhPLvhFYURxXzmaTNBG3lsDmV++iKCo2cSUGmkd 5BEQXiaQIYos6KUeBTxHkSZx/xdrNzGkw63wLmlRF7WJqPMH6u5GHZGZKdkE ffT+1c1MdR5xRBP8bv3e3BCFc6udaBkQR3K3vIxW7RHi6w8zJ5VKIL/dzj8c kozQcJ5CKiVCErEs+Mo7PxijVBWpLVQ7KRTQEkbtEjyGkjO8P7vh9yBJm6r8 SltT5JR69ovAzz1IioyEVh6ZoeVjuSuUCmnkpykdLStojtjDxiE1sTKoOGPs eOdFC/TEQEu61U0WUSuYBaRVS/TyVqAw8YAcyvAfK3QLtEaxdh5WPItyCHsg BNrcX+hwf3ZBbKs8MiWIT7lk/o3IqpkvW63wqPdb3VVc+gl0rSqRbEXFI1ZY vvhK2En0l7RdbpOyAjpBMtGNcjmFjEif/xGOV0CP7V1k+o6cRhQZd+WWRQWU dsaBIaxqi5Rrnz2w+UcRNR/w/xG6yw4lH6hR66hQRHt2Bj7X/2WHvOe3tDeq KSEH2shH4V/2yL1kDh+fpIQmMrfYT405oIam7VEf1pWQ4E3uue4lR3TBhJXc iFllq33SMmahD9SsLsxnvlaqSy07IseXvjQOZtxZBtEJ88+kllnlDSXku2P1 ez9mXrvkc4mY87pM21krjshkUMLQ5bcSohp3102sOaIRB46VH+aq81+9BNYd 0X/0hjMhmFl9o1sPYO6oDg1MwexT8LcZCbN7Tt+LesypLJkGDubrPhRpzU0l ZFVf1ra44YiUfwSr6mNu+bj9svhvR9TgdOKIBWYv3GWRI5iFrLlPe2AeCLhh F4KZouHxXxrmYU52/ypm42d/knMwy5+kREpvYv3kxfJKMF/5XYLXx6whXFfd jNkTSXhdxdwR/6itB/Nmp8+2LMxBuKCBYcyvy9sLKjDvCbeZmMMcMWxjPYi5 Yn7fyiZmFzfW9Cbm/wEbbNNZ "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 10}, {0., 99.99999591836738}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.445735382544798*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"x", "^", "2"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4457353897785206`*^9, 3.4457354080793505`*^9}}], Cell[BoxData[ FractionBox[ SuperscriptBox["\[Pi]", "2"], "6"]], "Output", CellChangeTimes->{{3.4457353996475077`*^9, 3.4457354084943924`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Hi! This is a header", "Title", CellChangeTimes->{{3.445735448565399*^9, 3.445735453136856*^9}}], Cell["This is alt1", "Title", CellChangeTimes->{{3.445735461494692*^9, 3.4457354671212544`*^9}}], Cell["This is alt2", "Subtitle", CellChangeTimes->{{3.44573547507905*^9, 3.4457354768822303`*^9}}] }, Open ]] }, WindowSize->{607, 750}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (May 21, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 177, 4, 31, "Input"], Cell[770, 29, 101, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[908, 36, 230, 6, 31, "Input"], Cell[1141, 44, 3706, 67, 243, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4884, 116, 267, 7, 31, "Input"], Cell[5154, 125, 146, 3, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5337, 133, 103, 1, 83, "Title"], Cell[5443, 136, 97, 1, 83, "Title"], Cell[5543, 139, 99, 1, 49, "Subtitle"] }, Open ]] } ] *) (* End of internal cache information *)