(* 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[     22850,        513]
NotebookOptionsPosition[     21706,        471]
NotebookOutlinePosition[     22146,        490]
CellTagsIndexPosition[     22103,        487]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "Reading Data from ",
 StyleBox["LoggerPro",
  FontSlant->"Italic"]
}], "Title",
 CellChangeTimes->{{3.460458975375*^9, 3.460458978046875*^9}}],

Cell[CellGroupData[{

Cell["\<\

Starting Up\
\>", "Subtitle"],

Cell[TextData[{
 StyleBox["The following two commands prevent annoying warnings about the use \
of symbols similar to those used by ",
  Background->GrayLevel[0.900008]],
 StyleBox["Mathematica",
  FontSlant->"Italic",
  Background->GrayLevel[0.900008]],
 StyleBox[" because ",
  Background->GrayLevel[0.900008]],
 StyleBox["Mathematica",
  FontSlant->"Italic",
  Background->GrayLevel[0.900008]],
 StyleBox[" will not let us change their definitions.",
  Background->GrayLevel[0.900008]]
}], "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "spell"}], "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "spell1"}], "]"}], ";"}]], "Input",
 CellLabel->"In[1]:="],

Cell[TextData[{
 "Use ",
 StyleBox["SetDirectory ", "Input"],
 "to choose the directory where your data file is located."
}], "Text"],

Cell[BoxData[
 RowBox[{"\n", 
  RowBox[{
   RowBox[{
   "SetDirectory", "[", "\"\<C:\\Documents and Settings\\sma\\Desktop\>\"", 
    "]"}], ";"}]}]], "Input",
 CellChangeTimes->{3.46045827975*^9},
 CellLabel->"In[2]:="]
}, Open  ]],

Cell[CellGroupData[{

Cell[" Read LoggerPro Output Data Files", "Section",
 CellChangeTimes->{{3.460458996875*^9, 3.4604589985*^9}}],

Cell[TextData[{
 StyleBox["To read a sequential data file into ",
  Background->GrayLevel[0.900008]],
 StyleBox["Mathematica",
  FontSlant->"Italic",
  Background->GrayLevel[0.900008]],
 StyleBox[" use ",
  Background->GrayLevel[0.900008]],
 StyleBox["ReadList", "Input",
  FontWeight->"Bold",
  Background->GrayLevel[0.900008]],
 StyleBox[". The output files generated by ",
  Background->GrayLevel[0.900008]],
 StyleBox["LoggerPro",
  FontSlant->"Italic",
  Background->GrayLevel[0.900008]],
 StyleBox[" consist of 7 header lines followed by data in two- or \
three-column format. The first column is the time in seconds; the second \
column is the voltage data (in volts) for channel 1; and the third column is \
the voltage data for channel 2. The commands  below clear the variables to be \
used, open the file, skip the header lines, and then read the data. The \
option ",
  Background->GrayLevel[0.900008]],
 StyleBox["RecordLists\[Rule]True", "Input",
  FontWeight->"Bold",
  Background->GrayLevel[0.900008]],
 StyleBox[" puts objects on separate lines into separate sublists. ",
  Background->GrayLevel[0.900008]]
}], "Text",
 CellChangeTimes->{{3.460459009875*^9, 3.460459096203125*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"in", ",", "datafile"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"in", "=", 
    RowBox[{"OpenRead", "[", "\"\<trial1.txt\>\"", "]"}]}], ";"}], " ", 
  StyleBox[
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"open", " ", "the", " ", "file"}], " ", "-", " ", 
     RowBox[{
     "insert", " ", "the", " ", "name", " ", "you", " ", "used", " ", "when", 
      " ", "you", " ", "saved", " ", "it", " ", "in", " ", "LoggerPro"}]}], 
    " ", "*)"}],
   FontSize->12,
   FontWeight->"Plain"]}], "\n", 
 RowBox[{
  RowBox[{"Skip", "[", 
   RowBox[{"in", ",", "String", ",", "7"}], "]"}], ";", " ", 
  StyleBox[
   RowBox[{"(*", " ", 
    RowBox[{"skip", " ", "the", " ", "header"}], " ", "*)"}],
   FontSize->12,
   FontWeight->"Plain"], "\n", 
  RowBox[{"datafile", "=", 
   RowBox[{"ReadList", "[", 
    RowBox[{"in", ",", "Number", ",", 
     RowBox[{"RecordLists", "\[Rule]", "True"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.46045831375*^9, 3.460458316359375*^9}, {
  3.46045856709375*^9, 3.460458569375*^9}, {3.4604586083125*^9, 
  3.4604586085625*^9}, {3.4674702848683*^9, 3.4674702866713*^9}},
 CellLabel->"In[3]:="]
}, Open  ]],

Cell[TextData[StyleBox["Note that the .txt file should be saved in ANSI \
format, not UTF-8 for example!",
 FontColor->RGBColor[1, 0, 0]]], "Subtitle",
 CellChangeTimes->{{3.4674703047423*^9, 3.4674703273493*^9}}],

Cell["Rearranging the data", "Section"],

Cell[TextData[{
 " ",
 StyleBox["The first command unpacks the data file into three vectors, ",
  Background->GrayLevel[0.900008]],
 StyleBox["time, channel 0, ",
  FontSlant->"Italic",
  Background->GrayLevel[0.900008]],
 StyleBox["and",
  Background->GrayLevel[0.900008]],
 StyleBox[" channel 1",
  FontSlant->"Italic",
  Background->GrayLevel[0.900008]],
 StyleBox[". Then the next commands generate the data pairs.",
  Background->GrayLevel[0.900008]]
}], "Text"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"time", ",", "channel0"}], "}"}], "=", 
   RowBox[{"Transpose", "[", "datafile", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"adata0", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"time", ",", "channel0"}], "}"}], "]"}]}], ";"}], "\n"}], "Input",\

 CellChangeTimes->{{3.46045868115625*^9, 3.460458697671875*^9}},
 CellLabel->"In[7]:="],

Cell[CellGroupData[{

Cell["Plotting your data", "Section"],

Cell[TextData[StyleBox["You can check your data with a plot:",
 FontSlant->"Plain",
 Background->GrayLevel[0.900008]]], "Text",
 FontSlant->"Italic"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ListPlot", "[", 
   RowBox[{"adata0", ",", " ", 
    RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], 
  StyleBox[
   RowBox[{"(*", 
    RowBox[{"plots", " ", "the", " ", "data"}], " ", "*)"}],
   FontSize->12,
   FontWeight->"Plain"]}]], "Input",
 CellChangeTimes->{{3.460458712609375*^9, 3.460458729390625*^9}, {
  3.460461087015625*^9, 3.46046109128125*^9}},
 CellLabel->"In[9]:="],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxd222MVOd5xvEF87qA921md2d3Z3ZnX2eHmZUQqsSHIgakym2FFG0UiUZC
qqha1ApF3VZBlWhV4aqoKqpEUGkl8oEW4aq0H6hc0oZEIdQ4CU6DnW7SepOG
tl7XIakhMWCvbcCxy87/8XPpvvwlunI/58w553eucw7Eqf7ab3/yN9Z2dHTc
Wt/Rsfqfv1+49MzysT/eU6yvKbTW/Poe8pmcr1RO3Jm/cs7mz+X8+bOr//zd
x/ka6y/l+d351f/m+Txn+y/k3Ll0YWF35xf3zN5dU3ltzR9eY39fynn24Knr
K7Wv2PF8NW//3JOtly78S8783gs572z/86L9/tdyfnGl9uQXvm7HcyP//ifb
P/hSnnN838zHs3xsdYf/asd7M6//ndXDW3jZjv+VPO9o//Nvdj457/nF9g8s
2vVUXv21g6e+Y+f73Xw87dNZ+q6d/7/nPLp6OJX/sOuR857D7X9eteuzlPPq
3gqXlux6fS/nd1d3t/I98/1+3r59eXb/Z85cz5z3tA/vxA9y5vreyvnlm6v/
KHO9/yvvr326hf+265/ztfbuDv5PnuPxWs6cz2vmoznnpzley3a+yvgpc/6v
54zn63Y9Xjff/7Xrk3PyVuZ6vWH9fcOu3xt2P/zw4+NJ1/OHeT33hzLX93Y+
fu6X23a9lbl/fpTXc/1/ZPeTMh4/zhmPnPfg8WPzUMbj/+x5lXPy0ByPN61f
b5rHm+ZxJ2c8ct6Dxx17Pty1Pt41j7vm8ZO8PR45J4+fmMdPrb85p+fzT83j
rZzxUMbjLfO4Z+dzz3zu2flpPV737Hy1Hj/NOf/75qnM9bhvvspcn/vmfd+u
14M9n//smtLn1vxp6uMDu58fWD+VuZ4P7P54YNf37Zy5X962663M/ZNz6sPb
2Zv7SevxeMeej8p4KOOhjEfO1/B4xzzeyeeLx0rOeKzY/bliz78Ve7/knN5n
muPxrvVRGQ9lPJTxeNc8lPF4zzzeM4/38vHjoTkeOafn7Xvm8b55vJ/98Mjz
1I/3zUPr8dAcD2U8Htr7J+fUD83xeGgeD83joXk8sve1Mh7KeCjj8ShfTzyU
8Xhsz9PH+fzxyPPUj8fm8dg8HpvHB3l/eHxg/cjz5PGBPa/y+tQPZTyU8fiZ
eSjj8TPzyDk9rzTHQ3M8PjSPnFM/PjQPzfH40Dw+NI+PcsbjI3tff2TvO2U8
ck7Pq4/Mo6P1sQfn09GKfVHm/JTxUuZ8lfFT5vxzTp7599P9qfX4as71UcZb
++N6rWlF/5zT80WZ+0GZ66nM/aH9cX2VuV+0nuutOfeP5lz/Nfn4uZ+0Ho61
eY6HMh5rW/F+U8ZD6/FYax5rzUMZD2U81pqHfg8PZTy0Ho+ncsYj53Q/P9WK
76+nzEPr8dB6PJTxUMZDGQ/tDw9lPPT7eKzLGQ9lPJTxWNeK7xfN8VhnHuvM
I+fUj3Xmof3jsc48tB4PzfFYb/1Y34rPF83x0BwPZTy0Hg9lPNabx3rzUMZj
vXko47HBPDaYR86pHxvMY4N5bDCPDeahjMcG81DGQxmPDeaxwTw25vPHY6N5
bDQPZTyU8dhoHhutH3menlfKeGh7PDTHY6N5bDKPTeaxKV9/PDTHY5N5bDKP
nNP7UxmPTfb+0BwPZTw2mYeOD4/N5rHZnlebzWOzeWw2j5zT95IyHpvNY7N5
bDYPZTy0Ho9O8+g0D2U8Os2j094fynh0mkeneWh/eCjjoYxHp3koc3hb7P2h
jMcW89AcD2U8tB4PZTy2mMcW89hiz6st5qE5Hlvtfb7V3udb7Xm11TyU8VDG
I+8vPa80x2OreWw1j63moePDQ8eHxzZ7fyjjsc08lPFQxmObeeSc+qE5HtvM
Q3M8tpnHNvN4Os/xyDn1QxkPrcdDGY+nzUNzPJTxUMbjafPQHA/N8VDGo8v6
0ZXvBzw0x6PLPDTHQxkPrcdDczy6zKPLPPLxJI8u8+jOmfPpNp9uex5rjlfO
6Xy7za/bzr/bvgeUuR5aj2+3XZ9u8+6269Vt/t12/brtflDmenbb+6zbvpeU
uV+67Xp32/3Tbddfc+4nZTx6zKPHPHrMo8c8esyjx97/PeahjIcyHj3mod/D
o8c8NMdDczyU8VDGQxkP7Q+PHvPoMQ9tj0ePeSjjofV49JhHrz1/e80j59T/
XvNQxqPXPJTx6DWPXvPQejyU8dDv4aHt8eg1D63Ho9c88v5TPzTHo9c8tD88
lPHoNQ/tDw/N8eg1jz7zyDl9b/WZhzIefeahOR7KePTZ86rPPPrMQ3M8lPHo
M48+81DGo888lPHQ7+OhjIcyHtoeD83xUMZDGQ9lPAqt9L8XpPdhofWddc/2
DD57OnkUWr/yiWf7f/PZv0wehdaOB63udXv/OnkUWv/883uLn9r7N+l5VWj9
ybW9Q8/t/fvkUWj9Ur3aO179x+RRaL3y2erA71a/mDwKrW//06Hyq4euJo9C
q96xo6dvxwvJo9C6Ojdf+IX5ryWPQqvjU4v9n1n8RvIotP78j+6X/ur+N5NH
oXXi3OLw1cVvJY9C6/e+/Hz5B8+/nDwKrdLL9ytv3X8leRRav/Xq6dGHp7+d
PJTx0Ho8tD88Cq2f+4sdw5d3fCt5FFrnDz+5fD0vJY9C61f3ni5++vTXk0eh
NTLy5PR6XkwehdbCS+crb57/avIotv7sc8tDl5a/nDye5E+cL/zy+S8kj2Jr
W+e+0Xf2/kPyKLYeHnph4A9e+NvkUcw+eBSzHx7F7ItHMfvjUbR+KONRtOdV
0Z5Xyngo41G055UyHsp4FO15pYyHMh5F64cyHkV7XhXteVW051W/Pa+U8VDG
QxmPnJNHf37e4qGMhzIeyngo49Fvz6t+e1712/Oq355X/fa86rfnVb89r/rt
edVvz6t+e17peuDRbx795qHzw6PfPAbs+2rA3h8D9n2ljIcyHgPmkfeXPLR/
PDTHQ3M8NMdjwDwGzGPAPAbMY8A88vEmD83x0O/joTkeyngMmIe2x0MZjwHz
GLR+DNqf1zXHY9A8Bs1D6/EYNA9lPAbNY9De53me+qH1eAyax6B5aD0eg+Yx
aB6D5jFo/Rg0j0Hz0PXAQ3M8lPFQxqNkHjmnfpSsH1qPR8k8StYP7Q+Pkj2v
SuahjIcyHtofHiXzKJmHMh4l81DGo2QeyniUzKNkHsp4lOz7qmQeJfMYyhmP
IfPIOXkMmYfW4zFkHlqPhzIeQ/b+GDKPIfPQejw0x0MZjyHz0ByPIfMYMo8h
68eQvT+GzENzPDTHY8g8hsxj2P6+etje5zmn7ytlPIbNQxmPYfMYtn5ojsew
vc+HzUMZj2HzGDYP7Q8PHR8ew+YxbB7aHx6a4zFsHsp4aHs8lPFQxmPE+jFi
Hsp4jJjHiHloPR4j9udzzfHQ9nhojseIeYyYx4h5jJiH9o/HiHloPR4j5qGM
x4h5jJjHiHko46GMhzIeZfMom0fZPJTxUMajbM8rZTzK5qGMR9k8yuZRNo+y
eZTNQxmPsnmUzaNsHprjUTaPsnmUzaNsHmXzyNcneVTsfZ5zen8o46GMR8U8
lPHQejwq5lGx90fFPDTHo2IemuNRMY+KeSjjoe3xqJhHxTyU8VDGo2IeFfOo
mIcyHqPWj1H7939GzWPUPJTxUMZj1DxGzUMZD63HQ3M8Rs1D6/EYNY9R8xg1
D2U88vmnv98dNY9R89Dv4zFqHtofHtoeD2U8xuL5rB+zPx+OxfPr0nq8xuL5
lsbML++P58OE1uM5Fq/H3Jj5at6+PrvGzHssXq99Y+Y/Fq/ffs25H8bi9Tww
Zn3V9u3dHVLmftH27et9RJn7Zyxe/6Njdj/p99ocx83jhHmcNI9Tmrd3d2bM
vl+0vu1xTvvnfjSPi5pzf2re5risOfer5u3TvWoe183jhnncVG57LJrHkjL/
dw9l7nfzuD1m97/mbY972p4+KLc9HinTj6r1Q5l+KNMPZfqhTD+q0aOiTD+0
nn5Uo8ecMv2oxufHrqp9LyjTD/0e/dCcflSjx7wy/ahaPzSnH9XocViZflSj
x0I1ehytRo9j1fg+P65MP8zjpOb0oxrfL2fM46zm9ENz+mEeF83jknlc1vnR
D83phzL9UKYf2p5+mMeieSwp0w/zWK7GPx/dNo875nFP6+mHMv3QevoxnjP9
UKYfyvRj3P5+S3P6oUw/lOmHMv0Yjx5z2j/9GI8eu8ajx+5x68d49HhmPHrs
H48e8+PR44C2px/K9EPr6cd49DgyHj0WlOmHMv3Q/unHuPVDc/qhTD+U6Yd5
nNWcfijTD/O4qEw/tJ5+KNMP87iq7emHMv3QevqhTD/kST+0Pf1Qph/mcXvc
3h/K9GPc+jFu/RiP7/OOCevHhH1faU4/lOnHRPQoaXv6MRE9JiaiR01z+qE5
/ZiIHrvy/lM/lOmH1tMP7Y9+TESPec3px0T0OKj19GMiehxWph/K9EPb0w/N
6ceEfV+Zxwll+qH90Q9l+qFMP7Q9/TCPC8r0Q8dDPzSnHxPxfX5F+6cfyvRD
6+nHRHyf39R6+qHfox/K9EPr6Yfm9MM87mhOPzSnH+bxSJl+TNr31WT06JyM
Hl2T0aMwme9P+jEZ3+eVyegxof3TD83px2T02KlMP5TphzL9UKYfyvRjMnrM
T0aPA5rTj3w+6ftKc/oxGZ9XRybj82phMj6vjk7G59WxyehxXJl+TMbn1UnN
6Yd5nNGcfmhOP8zjgjL9MI9L2h/9MI8r5nHVPK6bxw3zuGkei+axZB63lOnH
pH1faU4/lOmHMv1Qph/6ffoxFf/+Z/2U9UNz+qE5/ZiKHiVl+qFMP7Q/+jEV
n1dzU9FjpzL90Hr6oTn9UKYfyvQj5/T+mIoeB6aix8Gp6HFImX5MffzvZ6R+
TFk/pqLH0anocUyZfuh46Icy/VCmH+ZxRnP6oUw/8vGlfmhOP5TphzL9MI8r
mtMPZfphHjc0px/msaj19ENz+jEVn1fL5nF7yr6vzOPelH1fmccj8+iYtu+r
afu+mrZ+KNMPbU8/pu37Spl+TEeP2nT0mJuOHjun4/t817T1Yzp67FOmH9PR
Y7+Ol35oTj+mo8dBZfqhTD+0P/qhOf1Qph/K9GM6ehw3jxPK9EPb0w/N6Yfm
9EOZfmg9/TCPi+ZxKV/v1A/N6Ycy/TCP6+ZxwzxuKtMP81gyj1vmsazzoR+a
0w/N6Yd5rEzH9/kj8+iYse+rmejROWP9mIkeBc3ph+b0YyZ6TCjTjxl7f+h4
6MdM9Ng1Ez12z0SPfdo//ZiJHvvz76X3x0z0OKDjoR/aH/3Q9vRjJnocmbH3
x0z0OKr90Q+tpx+a0w/zOGkep7R/+qFMP8zjnHlcMI+L2p5+mMdlracf5nHV
PK7retEP87ipTD+0nn4o0w+tpx/K9MM87mh7+mEeKzPWD83pR82+r2rxfd6p
TD9q0aOQc+pHLXpUtJ5+1KJHTZl+KNOPWvTYpUw/atFjnzL9qEWP/bXoMV+L
Hgc0px+16HFIv08/atHjiDL9qEWPo8r0oxY9jmv/9EOZftSsH7X4Pj9jHmdr
8X1+rhbf5xfM42ItPq8umcdlHS/9UKYfWk8/lOmH9k8/NKcf2h/90Jx+yIt+
aD390Hr6oUw/zGPFPB5pPf2Yte+r2ejRqUw/ck79mI0eJc3phzL9UKYfyvRD
mX7MRo9ds9FjtzL9mLV/n0Vz+qFMP2ajxwFl+qFMP2ajx2Fl+qFMP2ajx1Ed
H/3QnH6YxwnzOGkep5Tph/ZHPzSnH8r0wzwuzlo/lOnHbPzevTIbv3evKtMP
7Z9+mMdN81jU8dEPZfqhTD9m4/v8tnnc0Xr6YR4r5vHIPDrq8e/b19etH/Xo
0VWPHgVl+pFz6kc9ekzUo0dNc/qhTD+0nn5oTj80px/16PGM1tOPevSYV6Yf
yvSjHj0OaU4/6tHjSD16LNSjx1Fl+lGPHse1Pf0wj5Pmcapu7w/zOFu390fd
3h/mcdE8LtWtH3Xrh3lcVaYf5nHDPG4q0w9l+mEet8xjWZl+KNMPbU8/dL/T
D62nH+bRsT1n+qFMP5TpR86pH5rTD2X6ofX0Y3v0qG2PHnOa0w9l+qFMP5Tp
x/bo8Ywy/VCmH8r0Y3v0OKhMP5TphzL92B49FpTphzL92G7/+7l5nDCPk+Zx
Spl+mMdZ8zinTD90/emH5vTDPC5rPf1Qph/K9EOZfijTD/NYzNcj9cM8bml7
+qH19MM87pjHPfNYMY9H2j/9aNj7o2H9aESPrkb0KDSiRynn9OePRvSYUKYf
jfg+n2vE59XORnxe7WrE9/nuRnyf71OmH43osV9z+qE5/dCcfjSixyFl+tGI
Hkca0WNB6+lHI3oca0SP48r0wzxOak4/lOmHMv3Q9vRDc/qhTD+U6Ycy/TCP
K5rTD2X6oUw/dDz0Q5l+NKwf2p5+mMeytqcfmtMP87inTD8a9n2lOf1o2vuj
GT06m9GjS3P6oUw/mtGjokw/mtGj1owec1pPP5TpRzN67G5Gj31aTz+a0WO/
1tMPzelHM3ocbEaPQ83ocbiZry/9aEaPhWb0OKpMP5rR47h5nDCPk8r0Q8dH
P5Tph3mcM48L5nGxaX/+aNr3VdP60bQ/fzTtzx/N+Ly6oUw/mvF5tWgeS834
vLplHstNe39oe/qh9fRDmX4o0w9l+jGX9////MlcAg==
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.46045873065625*^9, 3.460461621328125*^9},
 CellLabel->"Out[9]=",
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzlXetvXMd1v+Y++ZJlL2WqFmORAbbIJtmmW+6tuDY3sdiCBRbofliTBAmk
BAyiYAKjUBGRkWnZ3S/5E0IVpF9N+jdoCxiI/Vd4CeiDnfZLPwUoIEA0wA/b
+Z1z586Zufcud7mUZCN+aO+dOXPe8zhnZq7+8e29X/zzv7y998udt+f/4Vdv
/+svfrlzd371zq9UUeoFzxub87wX3rjqqef3vdQfvZu9dk/991q753nDPC61
e2kq+O/gzUt5Xlu9o+x/3LJb7V7e896gNupPVfw6PS+2e+Oel233Mp73I3pO
E+QP6TlPMAsxyMLntHh+Qzwr+DHPS4mSvxXPY+K5Kp5z4lm2/bF4ziZQlzBT
4nneZV8+304oTyUwKAkuDsm4hPmbQZmtiec3B7DBIMxKDWbE84/Ec148VwZl
9nWb8bxd+zTYHBfPf223zcd47k2guv9V68jvNA/ufe7NDmD+W+TJkgHf9mRV
6w/Ado5of906qnUbm/e/Il503YR4/kkCLslTRPMk2MZnC4WFwvzjjWPveoJg
Y7Zg/Ox5rsCq198aVCRQnX+8MNM6skSaFM9/ldALxs4VqX66UJh7vFCodb2/
cETK8DOxL3tJyn5NGmr6yrQyC6Lzj+snlkzS+ctOZ5HsfD9Wlt1lqGmhsH3m
veqYIUkWOaIO201IkJ0boEg0pSDT4vnHAwii/IGa78w1DxSqmQS2IHI6eL40
OWgk2rnROth+RE4yzDwwLhkKrVLxvPtfbRyX18v7/mHl1+X1xlbzoHZSXi9W
i4uNrXuft3vFxeJMcfFOu3nA9ShrHpT3S2vNLfNbWlso+J27H7d75b1idaHQ
qAFPc+v+1+R2r937on5SrPqdxiZaeN6df6ufLBSKM5XDe194Xmm9OON3dt+A
jxerBiPXA8H1WhdoizOltbuf3vtD/bRYLe9XDpsHdz9pHfud2gkPY+1erVta
042muBGoMi9qxKFf9PEJzwOrnteooV15H6Bjirccy6gREf9ZraXG0v2vX1EF
V1Cg3Em5VGMLPIA3RerBnQ88ajEN2sUq48JI5z8EgdL6Oz/nIYYxeqCYbRIU
l6AgxQXshEbx1DAPMKAurdX+C8KQemBZBqx1/I7nBVRPah3osVRdVXyjYU2p
6e7HG8djSvIUm4xcbKKxBSNApzA/CwpfmlFaO1Y+UNWW0ZzWFJXGVuXXKIee
iDflTl9rXajqpTFl/ywbqLxeWisuQroMO1noHBNwDm4DfTI68nVIpBhFozx7
W3ER3gNlgF5aGWndf0BLNW8cbqFmupliQbsDeX22ecDcr966/zXQ5gCIgkB+
TDmz3DWkk7NHKOdca2yhlo0Y8A08k8YHVBepQvFENK97l2q88Zka6Qo8hLq/
0Ct+YQjvBpe3jjaOkuCVDvfscjXRQIGr9VMb0vP0u9JHUF5ai+Ok1m336l3z
Xt6rn5p6ibd1pOHQptZ18WiOYBeFxvOYjdZRZU+SlWi4axkVtY6oa0mdSQ5A
V60wvGmDy1ZWeZ96yIsSQeu43bPfyT7Z1pHBQq5rW4oL54z6IE/r2LTSYLpZ
/Yk0FPxx0gVmEdlXNz5zfQEjtZeXFoOKUizyNWlPEI33kNAjJlyPAC5Mgzmb
KSKa1pYic2hLKvOQNsepU1kWJA3mpO51mXSe2gkmJhDAEow6kEFhnAKkVT+x
kFHvius6gfX0qmdllhdc3pjSTJbXFFxCBWoIDgqKMyFErbsyG0I4TdSo6BTX
T0kpahAN4VRvVROpl8Ho0Jf8/OPSOoYRUaBmrTUDcUWirXUZUo3Wa2jl4OSC
FDgKlnLjPDxhxMNcEzKSd7GRBFpVC4X6KXpZWhegSU4yggEXg6/qTfgH7peW
SksxGnIOC0sWHVQWpFAQrE+yK9eNpJGmUq7UynVNOMBqmqJgArC6cUmoM1Ws
huvcjGlDWNJadvS+7O1T21RpzXlAM61VR6up26ehIjKMBO0TjQ5B2j1o1IEo
rediONPqDNCzypTugzq4EBZumCTsNqqD0iTJlvGkGkEnXY5RTY6HEzXjSXOw
8wTcQlTL2AajtFhGyxWwoZeTu3NJQ9Pc4+0z/yG/w2xcvn2mFuYJ8I3N20/s
crXipgmveWBDEsPBkKnL/U4cJ6uKz+a7YojttN4z9RLv9pmGW73FbSSexqbm
iCY8w+j2Wf2JJCvR8IRnVLT9CF1xWupMctDYpAZXDG1XW/UnNOFJBNtn7Z79
zhMeGmokNOHZluLCOQPFbe13gOlmzQNpKJrwXGAWkSa8mZ051xdsNrWKAPyK
Dbz9yG0s+aHpzvUH2BkueyWOJa0FGie0bleXeGKW3sBgPLNJvesyCatshZj4
mlSz6wgxOCbj+ktQZ+Lm3WVvbGXWyzW3Vpfqp0DUOlLvY/6hNwlFtnt+B9FK
u7dzgyHIcab0m/mtn6ql/RYqcyuzap2/x8hUA0g/h6V6Y0uDqyn7uLSmGmwC
MTdVq6ljRAkaXXER9SkOVPzDourawcIut6GQ1b9BmEwSqNW8l2Vu1fK/21hC
o0m14n6AFTZzATrETYbHG+YwmMBK66W3al0QHuPgAEiI7/Tu8srsyuz22XVS
6XJFxZhoCLqINxHLMqDiseM/DFCCVnPL7xSr9VMQzAANU6DZTb4jSEhrxWSo
Gy/XOkoPXfCb4cgctd6YknOC5SQCB/XT0prfYZrju8taISo0W6fYIsuood/6
N6o1TJ1iBMR0bnfZ76iQvKDqNWt5xgOSsEZjKcssQdrSGlRBDgCo5gGEUCFY
V7vO9hnQ5sm4KuhTbCwqFJvj2mUMrHlOhyrfZIY3VGsVfB1CXM0txas7N/zO
QqFyGCgtA3/Bv0rSK1KJoVUXAsHGuDVsQj4wwSLBmJgx/IeSVK7dJ9f/fc8L
EghVHVMGIewMiCmHqPIcxHEb6rgMcLqecgGIJKE8xKGYlFXZAmJQgPkdRsGR
MeRYCJ5NdkRHzrqc2xKe1zjPomu5I+nguaSgEVtzcMlBcY0yKJxHAIIfgoSW
yvxWDhHJg4zf2fme1IKyAiV6NKsq0t0s7+v6YgFxL/JhV01gi+ac5OC8D2cY
Uor6S0gthOwT9tXrLUqSsD7vfkrDwLzO3ADy9jet41oHczS1WGf1GCHr3yAy
1+8LM+X95ntIVdzUWkLI/s4/2ekCKXxgVqHz5hbGI8XwNS02J2yYeUNKqskD
zddN1oNrlE0sGxs6par/AMkBVjynqWApA29Tgu9oX+D2yM9AuyD8ChNobN15
X+cp0BD6hgU1Uc7RQMUFVvHCDHyEMz5GA0yREh0YOK5qcwDW1R58EBxMSZbh
+JpFjAI/WK3pSt07MC5IatoW7GDayHAwyootmpQZMovjutse24Hmn+NvsToc
fOsYHfZ/42PluAREv9/ynp0Mupzf0tpo7aOpjOf96ya/5h5XDs9r1zqKJs3i
f2snNG7eHMUSrSPq7KVhPeA8C6ipa1xMvPP9kh9/RgVhDI/A2FQNqBqdJpmM
JFQ0JFIgg+GaMAUI+a3k03MWM1ogs07fJnNmkW67EA7kSiKpu6QmnJMZyUQy
b+YmlkbRhM5epZA6DRb2ZooefUT5Lv+WYzdSkn+3z2iKjg/0k/MT8b+1jp2+
upxfvzNa+2j65Xn/6vScKdcHGZLbbT+Kpvnif4PE3M1RLBEE8qVhPeA8C1T2
eYr+Sbun/vyT572ANxytmFMRmVecwVYgds4bt/QWgf8QuQc0VvXV8h4v2QPk
Cp72qLkA26GqQD38ZbiuU4v4UpUhCYP6RUaldYTBQy36Nyu/Lc6oIXWdd9EA
V97jX/8Qu6yMcKaxWXpLA5TWVpfufqJi3RmNGDE1I0CE8gMFvFacYQ4Mr6Cv
MavwqwoOZL3nQWbWwe5yu3fvD7VuICP2Y7DlwamCOWK9JJWA4VAZ3gs2NL7E
4SlEZHNMQ+H2kUkgntAULGvmkVbfXb73ReWB1CuFf2H93OPVW3fer51Imfx/
Z7twPSIxo/Va997nzXdlPRI/rSPmh+mWqqx9ZbaqKYdo6PJaN6hn+MrhnQ9Y
6ZrPyoM7H8CBsFldquJ/id/Ug29uV3pLe4N/yDaCTQy+d36OValp31jyPBwD
gy2Q4Ci/JfH7HZyoQI7O6E3W80kD9iLWO2ghtDQ2p+nwp1pTaFk5XCXvZ0j4
rMFIFKrassBonEJ7WXOzogJ+1gjOkOh28re0zpzCMmDge41NZd4udxi/g6Sc
AXBF4w4EJlaXeMOG+3C6csge3m/+fhYQWuYBIcp7o+NwISagOl2AgQ97eA6k
d+5SyDNn9wJ/CTfC+q+VPK/yAPmZfhDE14PzIBwc9W4fiAmJY0hDFhdjNyv7
4zgfImKmyoNYCOxZJFMZ0RkGMNizgTAG8x8MYXRrVS/O+1Gv/004xlx4iTBa
e3Og6Pzf4ojto78mLQjtvEqb60MiQB8v6SO0gzUD1XDOSNILjm7dSWofLcec
8PTthcCyX3vUBwcnBrA3yXgQra+dJJkB3no59n469efZXcj96mB2lb+1k3C2
zq7Mnj+gPIuCc4cca1qJzUGNXmDNIphWWseD4wiO5Gyf0al5PkA+TJrD8+qn
zYPzqQ2aaAsLmltDqOEcb7CsgLMyDiS233eX+1HjDfr+/MAZZM7qm1jy22fG
PM6iA+d3L9UZnkefmJgXS4qFwsr1wZvmbD3x6hzZsd+oOMtHFpD35ldmS2sl
FU/jbfU6bbDhMPrSyqzfqRwWg61DPlCGHYRitbJf7/IpQUQXOJdVXmssUaTh
IyjALzbzcAwH0RV22ZvvYof89mm9y/EuokBF1y+q2K/5LkUhVYZDPTaW+WwH
2i1QiIuN53q3SPzhRMP22e0noIctO5oBKXpfvYVxoVRlvLVO5begy3LoevBX
LNTpgF++eRCEi0qs1Vn/cMzveNOVw9JiZd/v1DrlNbRjuei0wDifE7p9qmWp
7DeWmgcqjvcR26JNvcuyzVESoFF/QqdJKAhmZBCOGyxQUF5cpGMs72EPV4Vy
68jsamOA+dIibgew0qFs5IB2bqzOlhYNPii7foq0HycOUMJKr3X8w8p+cbG8
DmUgqaKkxN44EBerHJ0ihGNtgyAIISdCyZ9pIPY7kIwRwbqifr71Xnm/vAbZ
tRdA+7BOcZEOueyzleiEzlx5n9WN950b8LoxPmIDGZWW1mB+Cm6rQQbrZ4qt
wwUyIDnCGjsaG9w/rJ82Nv3D+UD5/iF2rdlg0A3alcnZuP0CkYWlAVfZr31J
4s4wPjie38HJTdQxPg8ukWOlAMJ/uDNH52deZLWEdq1qHCyuN6bihZs44Gjc
B6cTcJ6l9iUEZ8Wxe2tLagty9yEc+jSJ3NSigqttvqJ2HJzpTznvdFxIX6gI
3qf0dRhz+YIuuNEevQRGPjgrrxMAIB1ch6M99hxeVpdausV4DPlJg7Hd0/dr
gl1+C1lGX4PRlcxn7QR9KK1vRmRjSGT1TYnV68zktKTJEoSXUzKSLh0A061Z
JxGdjUcYdcin9X2dl9t0MN0clZiQTYlzvhNE2SJSllBIwUE9LVGD7jVmik8y
kDYtxvV9F4svIyVjsjwly0d/MK4yr/1cyX2fdClInb0c66j6PgBuETjvGX7n
pWlw+2DanLa3DwkEtwck/JQNzxvZ+j3YZs7b1zBaR+MxTEwapO2e3lEO9roz
DsKs2ftWXkqNY27FKOBsDKGsuYTAVxqmDWWXUVKHpE4WlbcYYlSYd9qkHSbo
XatV1b9EOLsW4+MODhJE0611uV5oqeDQmHJokBu7915sOcw9mAD+iqEvL2cw
NJ/gtK94TJzja+77RIxypSLjnVkfzldaSDnvZAkdnah3OpQozr/n5V0BrKvG
nAZTbgMORLgEDVLtyIl6ajgew0neIDbn/fO8q+tg5J0AjlckgLO8rJ9mY+hk
9Ul+LZEg7FzLCHSSMeRJ6fZdgOC4QcrRTd5pmHZYYcTXNafk1lIwvRft4iGR
NANqxiFV6q1/9V5w6Ew5dOjcbuSeiZQoJy+eBJzmDAe47MBnFrSmgxPKcVcn
XEO7Lui+T8SoW2o13sf1gXZ90Fi880HkYLM4OJc9bU6O21vG24+YoICfsuER
MmNJG8LTgG3fItg+G49hYtIgxdqK64J1Y8ZBmDU7oY1NGrDjbnUoxNkYQllz
jn77EQ3YhrLLKHuhoM5TsDiIH6PCvNMm7TAR4gyYpAFb7u0GwYnEQYJoukor
VC+0VHBoTDk0aMB2723YcpgLEgH8FUOfTSqhSRHODYOJc3zNfZ+IUa5UZMSZ
aQzgo+h8Uz14zonn4Hi7OfTNZ7wPwlsHGvBKWMfnv2nkFPcBsvzM0JMJ1KgR
X2Ng5PJCQfMAQVNji256MEvNA5zDD86r5x2kaZxdR7gg2RRXB1imrCDDa4Hw
hoTF2oSAyzoK0uUFdiPEgqDL344I6oi7DRZtUoh5zdGhpJHhGwChaiRvqQQe
Uq6ug/6BywC4WcCzaIzV5fOUoxRdXmj3/WLPcdtZ2IcLdVX7ugt91LYXGNTx
xaoosY0YsDPOdJPYRvSLjNOZ49ocCwXkxLOqeyMW//2v3Ogy/DhLsuyfsRxm
lcpybBwntwn2LMP1lPiwSGKb3WXGGw6u5gMeibLvzpnOGXwtQ8iu7B9IHcY2
Kec9TlPHodS8hEw574ltxJTsLnwS24iRL+W8x7X5MKErqLplF7YX82Wqp1gW
att8dCflvPfRNi92jLbD9z7aDiKZE63t8D2xTdC/ZsJ5ybwnapuzXF5GPH+7
tH1sevDfJWg3DJcSYcRyMxFGzOJxMNI31fvfu/W/H8Abfp9g/TR9My1Pd/0n
9LPSwbjbNsYL5NeW5HOGsI0n1MqP3MivGmVdijE+dDGKSdTl53n+M8YLxxJg
X0woH08o1941Ir6MF5lrEIteJqcftu156angF3PYRfGnIp/ly7pUxKw3AhV+
5g8ISKE+aptJUnfZC6Nv258Z0+6S5MIvDeDaCfjGPAvqpUjJeTgyNDi8Qn+q
xUHWs76wd7Hh9ndte6UYmQEA4KwM42HslWA8jL3yi8Bg5BGrvfqQ4lxK2UeO
QlaMro6jqlhxm38YVUU8jK2KCMxHtioi09KzUEVcGZnRXmBrMyoN/Uc7spSO
dwR76RwPYy+VE5wlHAWei7P0cyAKxGIcSERdyQ5koqy+DhREVc/CgeRaJS++
+Bo3BPVfKcgvICZ98zRuBn86WJMmjoJ4TvqsYPry8WUouv/jt5Cz7ww+DAyR
Ke2ykCdNh0nOKT9zOYhbJk2l0fXDVf5EGBBhlZSPAETQxsy+4ZJCtZ2kZ9mf
R5yPh/i29KBlNPLZ00/86GhPQvEw9iQUD2NPQgmjrL0UlfU0IdrRbESLwaQp
o1kNozT4aTsSx8ZjsOPYCAw8QMSxP71MqzzFshF96KOo/m/Hwtj6j4exrRAP
Y1shAvOxbYWIPz17DV1GWezawMlj9EaaxZNyFUn9a3AqSZ8AzrhUYnroIJPK
dD+cMf36AjiV7j+J+t7IHMaNGKPg6w0xz+f65hiGxMTP0TzChdC0h8sXJM3/
g+UIonN8XwRyNh+PJAj0WCgylUljIef+eHkTDyO+bi5gFHUdm5Bf9xsFg89x
X9IoeCllPJpY+yhJs7XcN4mHsfdJNEwqCJLtHZHvzGw9jA+JbHeSD8mstoZR
IB+1IxnoJB+6zJn0gv5iaSPJX2SPSvIX2aMS1nhWvxI+9Tu7Rz1Xf3FWA3lK
Vl4oUyBbJCVKR8sayOlgYgisSVOGTA/nE2CGiX1fFs+5ZHxPIWvwcTuy2/Fm
P/wzCeV98du7HX3xX0vA0xe/vdvRF/8rA1g/gt/e5+iL/8UEPIPQwupObHjc
7ufXVy+nz0Q3K8JnR8I+WYeetS65Rn9ORLIMFxhzUl7ieCwzP5Fh8NN2JHsT
D2NnYOJh7HRKBAbMiOTJzwYR8RNHgDddgI+jAsTD2ALEw9gCaJgURxOC9cjc
+yxnk6dQluA9kDorb5/EWRWKyzkn/xPh7CPVyXDOwdQ4OA7wzPG/QT3q8lRG
6kGozR82jlcPAZm/ZKF1lAhkviRfP00EMp+v3j5L6ofhJ4yH6WTy1otuF7tu
cbIY1FbcNtBtR1/HJGU4iKI4BD4YRcnzeALFjEtFHMrVVAZZ5yRtscM4+tRl
75zZUa5zriTA9M5ZK/XPkPTOWR/J9cvUBTm4ZpePkMGQq5HQZsNnMJIWHQOc
Vrjw4mLg0w9JCwrZ+v/azvIhT2kNVfMn1PSG+MsuvRf+H9OR3Uo=\
\>"]]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
CellGrouping->Manual,
WindowSize->{1272, 679},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowCellLabel->False,
Magnification->1.5,
FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (November 10, 2008)",
StyleDefinitions->"TutorialBook.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 160, 5, 89, "Title"],
Cell[CellGroupData[{
Cell[730, 29, 40, 3, 90, "Subtitle"],
Cell[773, 34, 500, 14, 63, "Text"],
Cell[1276, 50, 208, 6, 43, "Input"],
Cell[1487, 58, 133, 4, 39, "Text"],
Cell[1623, 64, 220, 7, 78, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1880, 76, 110, 1, 135, "Section"],
Cell[1993, 79, 1198, 29, 128, "Text"],
Cell[3194, 110, 1206, 33, 180, "Input"]
}, Open  ]],
Cell[4415, 146, 213, 3, 47, "Subtitle"],
Cell[4631, 151, 39, 0, 135, "Section"],
Cell[4673, 153, 467, 14, 27, "Text"],
Cell[5143, 169, 422, 13, 112, "Input"],
Cell[CellGroupData[{
Cell[5590, 186, 37, 0, 135, "Section"],
Cell[5630, 188, 149, 3, 35, "Text"],
Cell[CellGroupData[{
Cell[5804, 195, 420, 12, 43, "Input"],
Cell[6227, 209, 15451, 258, 331, 6958, 117, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)