(************** Content-type: application/mathematica **************
                     CreatedBy='Mathematica 5.1'

                    Mathematica-Compatible Notebook

This notebook can be used with any Mathematica-compatible
application, such as Mathematica, MathReader or Publicon. The data
for the notebook starts with the line containing stars above.

To get the notebook into a Mathematica-compatible application, do
one of the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the
  application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing
the word CacheID, otherwise Mathematica-compatible applications may
try to use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: info@wolfram.com
  phone: +1-217-398-0700 (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
*******************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[     33560,       1041]*)
(*NotebookOutlinePosition[     34242,       1064]*)
(*  CellTagsIndexPosition[     34198,       1060]*)
(*WindowFrame->Normal*)



Notebook[{
Cell["Plot Discretization Results", "Title"],

Cell["\<\
John McGee
Virginia Tech
23-May-2005\
\>", "Subsubtitle"],

Cell[TextData[{
  "This is a ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " notebook to plot the results of discretization for several time series."
}], "Text",
  FontSize->14],

Cell[CellGroupData[{

Cell["Import Data", "Subsection"],

Cell["\<\
Import a table of original (continuous) time series.
Each column contains the time series for one variable.\
\>", "Text",
  FontColor->RGBColor[0, 0, 1]],

Cell[BoxData[
    \(\(d0 = 
        Import["\<C:\\JJM\\Docs\\VBI\\Discretization\\sample_data.txt\>", \
"\<Table\>"];\)\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
    \(TableForm[d0]\)], "Input"],

Cell[BoxData[
    TagBox[GridBox[{
          {"3.2185710377470755`", 
            "3.2185710377470755`", \(-0.001647374853474741`\)},
          {"2.578856652174989`", 
            "2.578856652174989`", \(-0.0005838353213798433`\)},
          {"2.252993554768716`", 
            "2.252993554768716`", \(-0.0001958074187537289`\)},
          {"2.1032649423594543`", 
            "2.1032649423594543`", \(-0.000056197791256863725`\)},
          {"2.0378573990797895`", 
            "2.0378573990797895`", \(-5.06141704481992`*^-6\)},
          {"2.009781163915104`", "2.009781163915104`", 
            "0.000013962720917306831`"},
          {"1.9979436406936046`", "1.9979436406936046`", 
            "0.000020967783852639085`"},
          {"1.992941828704291`", "1.992941828704291`", 
            "0.00002364704946903226`"},
          {"1.9913615846144574`", "1.9913615846144574`", 
            "0.000024286012479213278`"},
          {"1.9905653816762108`", "1.9905653816762108`", 
            "0.000024626899577237192`"}
          },
        RowSpacings->1,
        ColumnSpacings->3,
        RowAlignments->Baseline,
        ColumnAlignments->{Left}],
      Function[ BoxForm`e$, 
        TableForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell["Import the corresponding table of discretized values", "Text",
  FontColor->RGBColor[0, 0, 1]],

Cell[BoxData[
    \(\(d1 = 
        Import["\<C:\\JJM\\Docs\\VBI\\Discretization\\sample_data.txt.out\>", \
"\<Table\>"];\)\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
    \(TableForm[d1]\)], "Input"],

Cell[BoxData[
    TagBox[GridBox[{
          {"2", "2", "0"},
          {"1", "1", "1"},
          {"1", "1", "1"},
          {"0", "0", "2"},
          {"0", "0", "2"},
          {"0", "0", "2"},
          {"0", "0", "2"},
          {"0", "0", "2"},
          {"0", "0", "2"},
          {"0", "0", "2"}
          },
        RowSpacings->1,
        ColumnSpacings->3,
        RowAlignments->Baseline,
        ColumnAlignments->{Left}],
      Function[ BoxForm`e$, 
        TableForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[BoxData[
    \(\(PlotDiscretizationResults[d0_, d1_] := 
        Module[{d0min, d0max, d1min, d1max, d2, plt0, 
            plt1}, \[IndentingNewLine]d0min = 
            Min[d0]; \[IndentingNewLine]d0max = 
            Max[d0]; \[IndentingNewLine]d1min = 
            Min[d1]; \[IndentingNewLine]d1max = 
            Max[d1]; \[IndentingNewLine]d2 = \((d1max - 
                  d1min)\)*\((d0 - d0min)\)/\((d0max - 
                    d0min)\); \[IndentingNewLine]plt0 = 
            ListPlot[d2, PlotJoined \[Rule] True, 
              PlotStyle \[Rule] RGBColor[1, 0, 0], AxesOrigin \[Rule] {1, 0}, 
              PlotRange \[Rule] All, 
              DisplayFunction \[Rule] Identity]; \[IndentingNewLine]plt1 = 
            ListPlot[d1, 
              PlotStyle \[Rule] {PointSize[0.025], RGBColor[0, 0, 1]}, 
              AxesOrigin \[Rule] {0, 0}, PlotRange \[Rule] All, 
              DisplayFunction \[Rule] Identity]; \[IndentingNewLine]Show[
            plt0, plt1, DisplayFunction \[Rule] $DisplayFunction, 
            AxesLabel \[Rule] {"\<Time Step\>", "\<Value\>"}];\
\[IndentingNewLine]];\)\)], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Time Series #1", "Subsection"],

Cell["Scale the time series to the range of discrete states", "Text",
  FontColor->RGBColor[0, 0, 1]],

Cell[CellGroupData[{

Cell[BoxData[{
    \(\(d10 = \(Transpose[d0]\)[\([1]\)];\)\), "\[IndentingNewLine]", 
    \(\(d11\  = \(Transpose[d1]\)[\([1]\)];\)\), "\[IndentingNewLine]", 
    \(\(PlotDiscretizationResults[d10, d11];\)\)}], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
-0.0820106 0.10582 0.0147151 0.294302 [
[.12963 .00222 -3 -9 ]
[.12963 .00222 3 0 ]
[.34127 .00222 -3 -9 ]
[.34127 .00222 3 0 ]
[.55291 .00222 -3 -9 ]
[.55291 .00222 3 0 ]
[.76455 .00222 -3 -9 ]
[.76455 .00222 3 0 ]
[.97619 .00222 -6 -9 ]
[.97619 .00222 6 0 ]
[1.025 .01472 0 -6.28125 ]
[1.025 .01472 58 6.28125 ]
[.01131 .16187 -18 -4.5 ]
[.01131 .16187 0 4.5 ]
[.01131 .30902 -6 -4.5 ]
[.01131 .30902 0 4.5 ]
[.01131 .45617 -18 -4.5 ]
[.01131 .45617 0 4.5 ]
[.01131 .60332 -6 -4.5 ]
[.01131 .60332 0 4.5 ]
[.02381 .64303 -17 0 ]
[.02381 .64303 17 12.5625 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.12963 .01472 m
.12963 .02097 L
s
[(2)] .12963 .00222 0 1 Mshowa
.34127 .01472 m
.34127 .02097 L
s
[(4)] .34127 .00222 0 1 Mshowa
.55291 .01472 m
.55291 .02097 L
s
[(6)] .55291 .00222 0 1 Mshowa
.76455 .01472 m
.76455 .02097 L
s
[(8)] .76455 .00222 0 1 Mshowa
.97619 .01472 m
.97619 .02097 L
s
[(10)] .97619 .00222 0 1 Mshowa
.125 Mabswid
.18254 .01472 m
.18254 .01847 L
s
.23545 .01472 m
.23545 .01847 L
s
.28836 .01472 m
.28836 .01847 L
s
.39418 .01472 m
.39418 .01847 L
s
.44709 .01472 m
.44709 .01847 L
s
.5 .01472 m
.5 .01847 L
s
.60582 .01472 m
.60582 .01847 L
s
.65873 .01472 m
.65873 .01847 L
s
.71164 .01472 m
.71164 .01847 L
s
.81746 .01472 m
.81746 .01847 L
s
.87037 .01472 m
.87037 .01847 L
s
.92328 .01472 m
.92328 .01847 L
s
.07672 .01472 m
.07672 .01847 L
s
.25 Mabswid
0 .01472 m
1 .01472 L
s
gsave
1.025 .01472 -61 -10.2813 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 20.5625 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 12.813 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
63.000 12.813 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(Time) show
93.000 12.813 moveto
(Step) show
117.000 12.813 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
1.000 setlinewidth
grestore
.02381 .16187 m
.03006 .16187 L
s
[(0.5)] .01131 .16187 1 0 Mshowa
.02381 .30902 m
.03006 .30902 L
s
[(1)] .01131 .30902 1 0 Mshowa
.02381 .45617 m
.03006 .45617 L
s
[(1.5)] .01131 .45617 1 0 Mshowa
.02381 .60332 m
.03006 .60332 L
s
[(2)] .01131 .60332 1 0 Mshowa
.125 Mabswid
.02381 .04415 m
.02756 .04415 L
s
.02381 .07358 m
.02756 .07358 L
s
.02381 .10301 m
.02756 .10301 L
s
.02381 .13244 m
.02756 .13244 L
s
.02381 .1913 m
.02756 .1913 L
s
.02381 .22073 m
.02756 .22073 L
s
.02381 .25016 m
.02756 .25016 L
s
.02381 .27959 m
.02756 .27959 L
s
.02381 .33845 m
.02756 .33845 L
s
.02381 .36788 m
.02756 .36788 L
s
.02381 .39731 m
.02756 .39731 L
s
.02381 .42674 m
.02756 .42674 L
s
.02381 .4856 m
.02756 .4856 L
s
.02381 .51503 m
.02756 .51503 L
s
.02381 .54446 m
.02756 .54446 L
s
.02381 .57389 m
.02756 .57389 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
gsave
.02381 .64303 -78 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 20.5625 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 12.813 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
63.000 12.813 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(Value) show
93.000 12.813 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
1.000 setlinewidth
grestore
1 0 0 r
.5 Mabswid
.02381 .60332 m
.12963 .29669 L
.23545 .1405 L
.34127 .06873 L
.44709 .03738 L
.55291 .02393 L
.65873 .01825 L
.76455 .01585 L
.87037 .0151 L
.97619 .01472 L
s
0 0 1 r
.025 w
.02381 .60332 Mdot
.12963 .30902 Mdot
.23545 .30902 Mdot
.34127 .01472 Mdot
.44709 .01472 Mdot
.55291 .01472 Mdot
.65873 .01472 Mdot
.76455 .01472 Mdot
.87037 .01472 Mdot
.97619 .01472 Mdot
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{288, 177.938},
  ImageMargins->{{0, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg<PAVmbKF5d0`40004P0000/A000`40O003h00Oogoo8Goo003oOolQ
Ool00?moob5oo`00ogoo8Goo003oOolQOol00?moob5oo`00ogoo8Goo003oOolQOol00?moob5oo`00
ogoo8Goo003oOolQOol00?moob5oo`00:7oo1000:Woo0`009goo0`00:Woo0P009Woo1@000Woo0P00
@Woo000XOol00`00Oomoo`0/Ool00`00Oomoo`0VOol01000Oomoo`00:7oo00@007ooOol002Moo`05
001oogooOol00002Ool00`00Oomoo`0oOol002Uoo`03001oogoo02Qoo`D002Moo`04001oogoo000X
Ool01000Oomoo`009goo00D007ooOomoo`00009oo`03001oogoo03moo`00:Woo00<007ooOol09goo
00@007ooOol002Qoo`<002Yoo`8002Qoo`05001oogooOol00002Ool00`00Oomoo`0oOol002Qoo`04
001oogoo000YOol00`00Ool0000YOol00`00Oomoo`0XOol01000Oomoo`009goo00D007ooOomoo`00
009oo`03001oogoo03moo`00:Goo0P00:goo0P00:Goo0`00:Goo0P009goo0P0017oo0P00@Woo003o
OolQOol001Aoo`03001oogoo0?moo`5oo`<000Ioo`0057oo00<007ooOol0?Woo0`0O4goo0`0O4goo
0`0O4goo0`0O4goo0`0O4goo0`0O4goo0`0O?7oo00<007ooOol01Goo000DOol00`00Oomoo`0mOol5
01lAOol501lAOol501lAOol501lAOol501lAOol501lAOol501l;Ool30004Ool300001goo000007oo
001oo`00009oo`<000Qoo`<000Aoo`8000Aoo`<0009oo`<000Eoo`003gooA@001@0O4@001@0O4@00
1@0O4@001@0O2@0027`01@0O4G`01@0O4G`01@0O0`002Goo00<007ooOol017oo00/007ooOomoo`00
Ool007oo001oo`0000]oo`04001oogoo0002Ool01000Oomoo`000Woo00<007ooOol00goo00@007oo
Ool000Aoo`0057oo00<007ooOol027oo00<007ooOol027oo00<007ooOol027oo00<007ooOol027oo
00<007ooOol027oo00<007ooOol01Woo1@0O27oo00<007ooOol01Woo1@0O27oo00<007ooOol01Woo
1@0O27oo00<007`0O0001W`01@0O2G`027oo1@0O27oo00<007ooOol01Woo1@0O27oo00<007ooOol0
1Woo1@0O37oo00<007ooOol017oo00X007ooOomoo`00Ool007oo001oo`@000]oo`04001oogoo0005
Ool40002Ool01000Oomoo`0017oo000DOol00`00Oomoo`0nOol301lCOol301lAOol2O00301l:O009
Ool301lCOol301lCOol301lCOol301l=Ool00`00Oomoo`03Ool20002Ool300000goo001oo`02Ool2
000:Ool20002Ool50003Ool20002Ool40005Ool001Aoo`03001oogoo065oo`Ml06Qoo`05001oo`00
Ool0000JOol01000Oomoo`000Woo00<007ooOol04Goo000DOol00`00Oomoo`1IOol8O01_Ool50004
Ool00`00Oomoo`0COol4000FOol001Aoo`03001oogoo05Aoo`El0;1oo`0057oo0P00DGoo17`0]Goo
000DOol00`00Oomoo`1<Ool4O02iOol001Aoo`03001oogoo04Uoo`=l0;eoo`0057oo00<007ooOol0
AGoo17`0`7oo000DOol00`00Oomoo`11Ool4O034Ool001Aoo`03001oogoo03moo`9l0<Qoo`0057oo
0P00?Woo0W`0bWoo000DOol00`00Oomoo`0lOol00g`0Oomoo`3:Ool001Aoo`03001oogoo03Yoo`9l
0<eoo`0057oo00<007ooOol0>Goo00=l07ooOol0cGoo000DOol00`00Oomoo`0gOol2O03@Ool001Ao
o`03001oogoo03Ioo`03O01oogoo0=1oo`0057oo00<007ooOol0=Goo00=l07ooOol0dGoo000DOol2
000dOol2O03DOol001Aoo`03001oogoo039oo`03O01oogoo0=Aoo`0057oo00<007ooOol0<7oo0W`0
egoo000DOol00`00Oomoo`0_Ool00g`0Oomoo`3GOol001Aoo`03001oogoo02eoo`9l0=Yoo`0057oo
00<007ooOol0;7oo00=l07ooOol0fWoo000DOol2000[Ool2O03MOol001Aoo`03001oogoo02Uoo`03
O01oogoo0=eoo`0057oo00<007ooOol0:7oo00=l07ooOol0gWoo000DOol00`00Oomoo`0XOol00g`0
Oomoo`3NOol0009oo`8000Aoo`8000Aoo`8000Aoo`03001oogoo02Moo`03O01oogoo0=moo`0000Eo
o`00Oomoo`0000Qoo`04001oogoo0003Ool00`00Oomoo`0VOol00g`0Oomoo`3POol00005Ool007oo
Ool0000;Ool01000Oomoogoo0P009goo00=l07ooOol0h7oo00001Goo001oogoo00002Goo0P0017oo
00<007ooOol09Goo00=l07ooOol0hGoo00001Goo001oogoo00002Goo00<007ooOol00goo00<007oo
Ool097oo00=l07ooOol0hWoo0002Ool2000:Ool30003Ool00`00Oomoo`0TOol00g`0Oomoo`3ROol0
01Aoo`03001oogoo02=oo`03O01oogoo0>=oo`0057oo00<007ooOol08Woo00=l07ooOol0i7oo000D
Ool2000SOol00g`0Oomoo`3TOol001Aoo`03001oogoo025oo`03O01oogoo0>Eoo`0057oo00<007oo
Ool087oo00=l07ooOol0iWoo000DOol00`00Oomoo`0POol00g`0Oomoo`3VOol001Aoo`03001oogoo
01moo`03O01oogoo0>Moo`0057oo00<007ooOol07Woo00=l07ooOol0j7oo000DOol2000OOol00g`0
Oomoo`3XOol001Aoo`03001oogoo01eoo`03O01oogoo0>Uoo`0057oo00<007ooOol077oo00=l07oo
Ool0jWoo000DOol00`00Oomoo`0LOol00g`0Oomoo`3ZOol001Aoo`03001oogoo01]oo`03O01oogoo
0>]oo`0057oo00<007ooOol06Woo00=l07ooOol0k7oo000DOol2000KOol00g`0Oomoo`3/Ool001Ao
o`03001oogoo01Uoo`03O01oogoo0>eoo`0057oo00<007ooOol067oo00=l07ooOol0kWoo000DOol0
0`00Oomoo`0HOol00g`0Oomoo`3^Ool001Aoo`03001oogoo01Moo`03O01oogoo0>moo`0057oo00<0
07ooOol05Woo00=l07ooOol0l7oo000DOol2000GOol00g`0Oomoo`3`Ool001Aoo`03001oogoo01Eo
o`03O01oogoo0?5oo`0057oo00<007ooOol057oo00=l07ooOol0lWoo000DOol00`00Oomoo`0DOol0
0g`0Oomoo`3bOol000eoo`D0009oo`03001oogoo019oo`<07a=oo`<07mioo`003goo00<007ooOol0
0Woo00<007ooOol04Goo1@0O4Goo1@0OgGoo000?Ool00`00Oomoo`02Ool2000BOol501lAOol501oM
Ool000moo`03001oogoo009oo`03001oogoo015oo`D07a5oo`D07meoo`003goo00<007ooOol00Woo
00<007ooOol04Woo0`0O4goo0`0OgWoo000>Ool20004Ool00`00Oomoo`0AOol00g`0Oomoo`3eOol0
01Aoo`03001oogoo015oo`03O01oogoo0?Eoo`0057oo00<007ooOol04Goo00=l07ooOol0mGoo000D
Ool00`00Oomoo`0@Ool00g`0Oomoo`3fOol001Aoo`80015oo`03O01oogoo0?Ioo`0057oo00<007oo
Ool047oo00=l07ooOol0mWoo000DOol00`00Oomoo`0?Ool00g`0Oomoo`3gOol001Aoo`03001oogoo
00moo`03O01oogoo0?Moo`0057oo00<007ooOol03goo00=l07ooOol0mgoo000DOol00`00Oomoo`0>
Ool00g`0Oomoo`3hOol001Aoo`8000moo`03O01oogoo0?Qoo`0057oo00<007ooOol03Goo00=l07oo
Ool0nGoo000DOol00`00Oomoo`0=Ool00g`0Oomoo`3iOol001Aoo`03001oogoo00eoo`03O01oogoo
0?Uoo`0057oo00<007ooOol037oo00=l07ooOol0nWoo000DOol00`00Oomoo`0<Ool00g`0Oomoo`3j
Ool001Aoo`8000eoo`03O01oogoo0?Yoo`0057oo00<007ooOol02goo00=l07ooOol0ngoo000DOol0
0`00Oomoo`0;Ool00g`0Oomoo`3kOol001Aoo`03001oogoo00]oo`03O01oogoo0?]oo`0057oo00<0
07ooOol02Woo00=l07ooOol0o7oo000DOol00`00Oomoo`0:Ool00g`0Oomoo`3lOol001Aoo`8000]o
o`03O01oogoo0?aoo`0057oo00<007ooOol02Goo00=l07ooOol0oGoo000DOol00`00Oomoo`09Ool0
0g`0Oomoo`3mOol001Aoo`03001oogoo00Uoo`03O01oogoo0?eoo`0000=oo`0000000`000Woo0P00
17oo0P0017oo00<007ooOol027oo00=l07ooOol0oWoo0003Ool00`00Oomoo`07Ool01000Oomoo`00
0goo00<007ooOol027oo00=l07ooOol0oWoo0003Ool00`00Oomoo`0:Ool01000Oomoogoo0P002Goo
00=l07ooOol0oWoo0003Ool00`00Oomoo`08Ool20004Ool00`00Oomoo`07Ool00g`0Oomoo`3oOol0
00=oo`03001oogoo00Qoo`03001oogoo00=oo`03001oogoo00Moo`03O01oogoo0?moo`000Woo0P00
2Woo0`000goo00<007ooOol01goo00=l07ooOol0ogoo000DOol00`00Oomoo`06Ool00g`0Oomoo`3o
Ool1Ool001Aoo`03001oogoo00Ioo`03O01oogoo0?moo`5oo`0057oo0P001goo00=l07ooOol0ogoo
0Goo000DOol00`00Oomoo`05Ool00g`0Oomoo`3oOol2Ool001Aoo`03001oogoo00Eoo`03O01oogoo
0?moo`9oo`0057oo00<007ooOol01Goo00=l07ooOol0ogoo0Woo000DOol00`00Oomoo`04Ool00g`0
Oomoo`3oOol3Ool001Aoo`03001oogoo00Aoo`03O01oogoo0?moo`=oo`0057oo0P001Goo00=l07oo
Ool0ogoo0goo000DOol00`00Oomoo`03Ool00g`0Oomoo`3oOol4Ool001Aoo`03001oogoo00=oo`03
O01oogoo0?moo`Aoo`0057oo00<007ooOol00Woo00=l07ooOol0ogoo1Goo000DOol00`00Oomoo`02
Ool00g`0Oomoo`3oOol5Ool001Aoo`03001oogoo009oo`03O01oogoo0?moo`Eoo`0057oo0P000Woo
00=l07ooOol0ogoo1Woo000DOol01@00OomoogooO000ogoo27oo000DOol01@00OomoogooO000ogoo
27oo000DOol01000Oomoog`0ogoo2Goo000DOol01000Oomoog`0ogoo2Goo000DOol01000Oomoog`0
ogoo2Goo000DOol00`00Ooml003oOol:Ool001Aoo`800003O01oogoo0?moo`Qoo`0057oo00<007oo
O000ogoo2Woo000DOol00`00O01oo`3oOol:Ool001Aoo`03001l07oo0?moo`Yoo`003Goo10000Woo
0`0Oogoo2goo000=Ool00`00Oomoo`02Ool501ooOol:Ool000ioo`04001oogooOol501ooOol:Ool0
00moo`03001oogoo00D07omoo`Yoo`003Goo00@007ooOol0009oo`<07omoo`]oo`003Woo0P0017oo
00<007ooOol0ogoo2Woo003oOolQOol00?moob5oo`00ogoo8Goo003oOolQOol00?moob5oo`00ogoo
8Goo003oOolQOol00?moob5oo`00ogoo8Goo0007Ool20003Ool5000017oo0000000017oo10000Woo
0`00oWoo0006Ool01000Oomoo`000Woo10000goo00<007ooOol00Woo00@007ooOol0009oo`03001o
ogoo0?moo`001Woo00@007ooOol000Eoo`05001oogooOol00004Ool01000Oomoo`000Woo1000oWoo
0006Ool01000Oomoo`000goo0`000goo00@007ooOomoo`800003Ool0000000=oo`800?moo`001Goo
00<007ooOol00Woo00<007ooOol01Woo00<007ooOol0ogoo2goo0005Ool20002Ool20007Ool2003o
Ool=Ool00?moob5oo`00ogoo8Goo003oOolQOol00?moob5oo`00ogoo8Goo003oOolQOol00?moob5o
o`00ogoo8Goo003oOolQOol00?moob5oo`00ogoo8Goo003oOolQOol00?moob5oo`00\
\>"],
  ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {0.0646262, -0.368872, \
0.0454004, 0.0163243}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Time Series #3", "Subsection"],

Cell[CellGroupData[{

Cell[BoxData[{
    \(\(d30 = \(Transpose[d0]\)[\([3]\)];\)\), "\[IndentingNewLine]", 
    \(\(d31\  = \(Transpose[d1]\)[\([3]\)];\)\), "\[IndentingNewLine]", 
    \(\(PlotDiscretizationResults[d30, d31];\)\)}], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
-0.0820106 0.10582 0.0147151 0.294302 [
[.12963 .00222 -3 -9 ]
[.12963 .00222 3 0 ]
[.34127 .00222 -3 -9 ]
[.34127 .00222 3 0 ]
[.55291 .00222 -3 -9 ]
[.55291 .00222 3 0 ]
[.76455 .00222 -3 -9 ]
[.76455 .00222 3 0 ]
[.97619 .00222 -6 -9 ]
[.97619 .00222 6 0 ]
[1.025 .01472 0 -6.28125 ]
[1.025 .01472 58 6.28125 ]
[.01131 .16187 -18 -4.5 ]
[.01131 .16187 0 4.5 ]
[.01131 .30902 -6 -4.5 ]
[.01131 .30902 0 4.5 ]
[.01131 .45617 -18 -4.5 ]
[.01131 .45617 0 4.5 ]
[.01131 .60332 -6 -4.5 ]
[.01131 .60332 0 4.5 ]
[.02381 .64303 -17 0 ]
[.02381 .64303 17 12.5625 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.12963 .01472 m
.12963 .02097 L
s
[(2)] .12963 .00222 0 1 Mshowa
.34127 .01472 m
.34127 .02097 L
s
[(4)] .34127 .00222 0 1 Mshowa
.55291 .01472 m
.55291 .02097 L
s
[(6)] .55291 .00222 0 1 Mshowa
.76455 .01472 m
.76455 .02097 L
s
[(8)] .76455 .00222 0 1 Mshowa
.97619 .01472 m
.97619 .02097 L
s
[(10)] .97619 .00222 0 1 Mshowa
.125 Mabswid
.18254 .01472 m
.18254 .01847 L
s
.23545 .01472 m
.23545 .01847 L
s
.28836 .01472 m
.28836 .01847 L
s
.39418 .01472 m
.39418 .01847 L
s
.44709 .01472 m
.44709 .01847 L
s
.5 .01472 m
.5 .01847 L
s
.60582 .01472 m
.60582 .01847 L
s
.65873 .01472 m
.65873 .01847 L
s
.71164 .01472 m
.71164 .01847 L
s
.81746 .01472 m
.81746 .01847 L
s
.87037 .01472 m
.87037 .01847 L
s
.92328 .01472 m
.92328 .01847 L
s
.07672 .01472 m
.07672 .01847 L
s
.25 Mabswid
0 .01472 m
1 .01472 L
s
gsave
1.025 .01472 -61 -10.2813 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 20.5625 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 12.813 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
63.000 12.813 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(Time) show
93.000 12.813 moveto
(Step) show
117.000 12.813 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
1.000 setlinewidth
grestore
.02381 .16187 m
.03006 .16187 L
s
[(0.5)] .01131 .16187 1 0 Mshowa
.02381 .30902 m
.03006 .30902 L
s
[(1)] .01131 .30902 1 0 Mshowa
.02381 .45617 m
.03006 .45617 L
s
[(1.5)] .01131 .45617 1 0 Mshowa
.02381 .60332 m
.03006 .60332 L
s
[(2)] .01131 .60332 1 0 Mshowa
.125 Mabswid
.02381 .04415 m
.02756 .04415 L
s
.02381 .07358 m
.02756 .07358 L
s
.02381 .10301 m
.02756 .10301 L
s
.02381 .13244 m
.02756 .13244 L
s
.02381 .1913 m
.02756 .1913 L
s
.02381 .22073 m
.02756 .22073 L
s
.02381 .25016 m
.02756 .25016 L
s
.02381 .27959 m
.02756 .27959 L
s
.02381 .33845 m
.02756 .33845 L
s
.02381 .36788 m
.02756 .36788 L
s
.02381 .39731 m
.02756 .39731 L
s
.02381 .42674 m
.02756 .42674 L
s
.02381 .4856 m
.02756 .4856 L
s
.02381 .51503 m
.02756 .51503 L
s
.02381 .54446 m
.02756 .54446 L
s
.02381 .57389 m
.02756 .57389 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
gsave
.02381 .64303 -78 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 20.5625 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 12.813 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
63.000 12.813 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(Value) show
93.000 12.813 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
1.000 setlinewidth
grestore
1 0 0 r
.5 Mabswid
.02381 .01472 m
.12963 .38912 L
.23545 .52572 L
.34127 .57487 L
.44709 .59287 L
.55291 .59956 L
.65873 .60203 L
.76455 .60297 L
.87037 .6032 L
.97619 .60332 L
s
0 0 1 r
.025 w
.02381 .01472 Mdot
.12963 .30902 Mdot
.23545 .30902 Mdot
.34127 .60332 Mdot
.44709 .60332 Mdot
.55291 .60332 Mdot
.65873 .60332 Mdot
.76455 .60332 Mdot
.87037 .60332 Mdot
.97619 .60332 Mdot
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{288, 177.938},
  ImageMargins->{{0, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg<PAVmbKF5d0`40004P0000/A000`40O003h00Oogoo8Goo003oOolQ
Ool00?moob5oo`00ogoo8Goo003oOolQOol00?moob5oo`00ogoo8Goo003oOolQOol00?moob5oo`00
ogoo8Goo003oOolQOol00?moob5oo`00:7oo1000:Woo0`009goo0`00:Woo0P009Woo1@000Woo0P00
@Woo000XOol00`00Oomoo`0/Ool00`00Oomoo`0VOol01000Oomoo`00:7oo00@007ooOol002Moo`05
001oogooOol00002Ool00`00Oomoo`0oOol002Uoo`03001oogoo02Qoo`D002Moo`04001oogoo000X
Ool01000Oomoo`009goo00D007ooOomoo`00009oo`03001oogoo03moo`00:Woo00<007ooOol09goo
00@007ooOol002Qoo`<002Yoo`8002Qoo`05001oogooOol00002Ool00`00Oomoo`0oOol002Qoo`04
001oogoo000YOol00`00Ool0000YOol00`00Oomoo`0XOol01000Oomoo`009goo00D007ooOomoo`00
009oo`03001oogoo03moo`00:Goo0P00:goo0P00:Goo0`00:Goo0P009goo0P0017oo0P00@Woo003o
OolQOol001Aoo`03001oogoo0?moo`5oo`<000Ioo`004goo0`0Oogoo0goo00<007ooOol01Goo000B
Ool501oAOol30004Ool300001goo000007oo001oo`00009oo`<000Qoo`<000Aoo`8000Aoo`<0009o
o`<000Eoo`003goo0`001@0Ob@002Goo00<007ooOol017oo00/007ooOomoo`00Ool007oo001oo`00
00]oo`04001oogoo0002Ool01000Oomoo`000Woo00<007ooOol00goo00@007ooOol000Aoo`004Woo
1@0O27oo00<007ooOol027oo00<007ooOol027oo00<007ooOol027oo00<007ooOol027oo00<007oo
Ool027oo00<007ooOol027oo00<007ooOol027oo00<007ooOol027oo00<007ooOol027oo00<007oo
Ool027oo00<007ooOol027oo00<007ooOol027oo00<007ooOol027oo00<007ooOol027oo00<007oo
Ool027oo00<007ooOol027oo00<007ooOol027oo00<007ooOol037oo00<007ooOol017oo00X007oo
Oomoo`00Ool007oo001oo`@000]oo`04001oogoo0005Ool40002Ool01000Oomoo`0017oo000COol3
01oCOol00`00Oomoo`03Ool20002Ool300000goo001oo`02Ool2000:Ool20002Ool50003Ool20002
Ool40005Ool001Aoo`03001l07oo0=1oo`05001oo`00Ool0000JOol01000Oomoo`000Woo00<007oo
Ool04Goo000DOol00`00O01oo`3@Ool50004Ool00`00Oomoo`0COol4000FOol001Aoo`03001l07oo
0?moo`Yoo`0057oo0P0000=l07ooOol0ogoo27oo000DOol00`00Ooml003oOol:Ool001Aoo`03001o
og`00?moo`Yoo`0057oo00@007ooOoml0?moo`Uoo`0057oo00@007ooOoml0?moo`Uoo`0057oo00@0
07ooOoml0?moo`Uoo`0057oo0P0000=oog`0Ool0ogoo27oo000DOol01@00OomoogooO000ogoo27oo
000DOol01@00OomoogooO000ogoo27oo000DOol01@00OomoogooO000ogoo27oo000DOol00`00Oomo
o`02Ool00g`0Oomoo`3oOol5Ool001Aoo`03001oogoo009oo`03O01oogoo0?moo`Eoo`0057oo00<0
07ooOol00Woo00=l07ooOol0ogoo1Goo000DOol20003Ool00g`0Oomoo`3oOol5Ool001Aoo`03001o
ogoo00=oo`03O01oogoo0?moo`Aoo`0057oo00<007ooOol00goo00=l07ooOol0ogoo17oo000DOol0
0`00Oomoo`03Ool00g`0Oomoo`3oOol4Ool001Aoo`03001oogoo00=oo`03O01oogoo0?moo`Aoo`00
57oo00<007ooOol017oo00=l07ooOol0ogoo0goo000DOol20005Ool00g`0Oomoo`3oOol3Ool001Ao
o`03001oogoo00Aoo`03O01oogoo0?moo`=oo`0057oo00<007ooOol01Goo00=l07ooOol0ogoo0Woo
000DOol00`00Oomoo`05Ool00g`0Oomoo`3oOol2Ool0009oo`8000Aoo`8000Aoo`8000Aoo`03001o
ogoo00Eoo`03O01oogoo0?moo`9oo`0000Eoo`00Oomoo`0000Qoo`04001oogoo0003Ool00`00Oomo
o`05Ool00g`0Oomoo`3oOol2Ool00005Ool007ooOol0000;Ool01000Oomoogoo0P001goo00=l07oo
Ool0ogoo0Goo00001Goo001oogoo00002Goo0P0017oo00<007ooOol01Woo00=l07ooOol0ogoo0Goo
00001Goo001oogoo00002Goo00<007ooOol00goo00<007ooOol01Woo00=l07ooOol0ogoo0Goo0002
Ool2000:Ool30003Ool00`00Oomoo`07Ool00g`0Oomoo`3oOol001Aoo`03001oogoo00Moo`03O01o
ogoo0?moo`0057oo00<007ooOol01goo00=l07ooOol0ogoo000DOol20008Ool00g`0Oomoo`3oOol0
01Aoo`03001oogoo00Qoo`03O01oogoo0?ioo`0057oo00<007ooOol027oo00=l07ooOol0oWoo000D
Ool00`00Oomoo`08Ool00g`0Oomoo`3nOol001Aoo`03001oogoo00Uoo`03O01oogoo0?eoo`0057oo
00<007ooOol02Goo00=l07ooOol0oGoo000DOol2000:Ool00g`0Oomoo`3mOol001Aoo`03001oogoo
00Uoo`03O01oogoo0?eoo`0057oo00<007ooOol02Woo00=l07ooOol0o7oo000DOol00`00Oomoo`0:
Ool00g`0Oomoo`3lOol001Aoo`03001oogoo00Yoo`03O01oogoo0?aoo`0057oo00<007ooOol02goo
00=l07ooOol0ngoo000DOol2000<Ool00g`0Oomoo`3kOol001Aoo`03001oogoo00]oo`03O01oogoo
0?]oo`0057oo00<007ooOol02goo00=l07ooOol0ngoo000DOol00`00Oomoo`0<Ool00g`0Oomoo`3j
Ool001Aoo`03001oogoo00aoo`03O01oogoo0?Yoo`0057oo00<007ooOol037oo00=l07ooOol0nWoo
000DOol2000>Ool00g`0Oomoo`3iOol001Aoo`03001oogoo00eoo`03O01oogoo0?Uoo`0057oo00<0
07ooOol03Goo00=l07ooOol0nGoo000DOol00`00Oomoo`0=Ool00g`0Oomoo`3iOol000eoo`D0009o
o`03001oogoo00ioo`04O01oogooOol301lCOol301oNOol000moo`03001oogoo009oo`03001oogoo
00ioo`03O01oogoo00D07a5oo`D07meoo`003goo00<007ooOol00Woo0P003goo00=l07ooOol01@0O
4Goo1@0OgGoo000?Ool00`00Oomoo`02Ool00`00Oomoo`0>Ool00g`0Oomoo`0501lAOol501oMOol0
00moo`03001oogoo009oo`03001oogoo00moo`03O01oogoo00<07a=oo`<07mioo`003Woo0P0017oo
00<007ooOol03goo00=l07ooOol0mgoo000DOol00`00Oomoo`0?Ool00g`0Oomoo`3gOol001Aoo`03
001oogoo011oo`03O01oogoo0?Ioo`0057oo00<007ooOol047oo00=l07ooOol0mWoo000DOol2000A
Ool00g`0Oomoo`3fOol001Aoo`03001oogoo011oo`03O01oogoo0?Ioo`0057oo00<007ooOol04Goo
00=l07ooOol0mGoo000DOol00`00Oomoo`0AOol00g`0Oomoo`3eOol001Aoo`03001oogoo015oo`03
O01oogoo0?Eoo`0057oo00<007ooOol04Woo00=l07ooOol0m7oo000DOol2000COol00g`0Oomoo`3d
Ool001Aoo`03001oogoo019oo`03O01oogoo0?Aoo`0057oo00<007ooOol04Woo00=l07ooOol0m7oo
000DOol00`00Oomoo`0COol00g`0Oomoo`3cOol001Aoo`03001oogoo01=oo`03O01oogoo0?=oo`00
57oo00<007ooOol057oo00=l07ooOol0lWoo000DOol2000FOol00g`0Oomoo`3aOol001Aoo`03001o
ogoo01Eoo`03O01oogoo0?5oo`0057oo00<007ooOol05Woo00=l07ooOol0l7oo000DOol00`00Oomo
o`0GOol00g`0Oomoo`3_Ool001Aoo`03001oogoo01Qoo`03O01oogoo0>ioo`0057oo00<007ooOol0
67oo00=l07ooOol0kWoo000DOol2000JOol00g`0Oomoo`3]Ool001Aoo`03001oogoo01Yoo`03O01o
ogoo0>aoo`0057oo00<007ooOol06goo00=l07ooOol0jgoo000DOol00`00Oomoo`0KOol00g`0Oomo
o`3[Ool00003Ool0000000<0009oo`8000Aoo`8000Aoo`03001oogoo01aoo`03O01oogoo0>Yoo`00
0goo00<007ooOol01goo00@007ooOol000=oo`03001oogoo01eoo`03O01oogoo0>Uoo`000goo00<0
07ooOol02Woo00@007ooOomoo`8001moo`03O01oogoo0>Qoo`000goo00<007ooOol027oo0P0017oo
00<007ooOol07Woo00=l07ooOol0j7oo0003Ool00`00Oomoo`08Ool00`00Oomoo`03Ool00`00Oomo
o`0OOol00g`0Oomoo`3WOol0009oo`8000Yoo`<000=oo`03001oogoo021oo`03O01oogoo0>Ioo`00
57oo00<007ooOol08Goo00=l07ooOol0iGoo000DOol00`00Oomoo`0QOol00g`0Oomoo`3UOol001Ao
o`8002=oo`03O01oogoo0>Aoo`0057oo00<007ooOol08goo00=l07ooOol0hgoo000DOol00`00Oomo
o`0TOol00g`0Oomoo`3ROol001Aoo`03001oogoo02Aoo`03O01oogoo0>9oo`0057oo00<007ooOol0
9Goo00=l07ooOol0hGoo000DOol00`00Oomoo`0VOol00g`0Oomoo`3POol001Aoo`8002Qoo`03O01o
ogoo0=moo`0057oo00<007ooOol09goo00=l07ooOol0ggoo000DOol00`00Oomoo`0XOol00g`0Oomo
o`3NOol001Aoo`03001oogoo02Uoo`9l0=ioo`0057oo00<007ooOol0:goo0W`0g7oo000DOol00`00
Oomoo`0]Ool2O03JOol001Aoo`80031oo`9l0=Qoo`0057oo00<007ooOol0<Goo0W`0eWoo000DOol0
0`00Oomoo`0cOol3O03COol001Aoo`03001oogoo03Ioo`9l0=5oo`0057oo00<007ooOol0>7oo0W`0
cgoo000DOol00`00Oomoo`0jOol2O03=Ool001Aoo`03001oogoo03aoo`9l0<]oo`0057oo0P00?goo
1G`0aWoo000DOol00`00Oomoo`13Ool7O02oOol001Aoo`03001oogoo04Yoo`Ql0;Moo`0057oo00<0
07ooOol0DWoo2G`0[Woo000=Ool40003Ool00`00Oomoo`0nOol301lCOol301l4Ool;O004Ool301lC
Ool301lCOol301lCOol301lCOol301m4Ool000eoo`03001oogoo00Aoo`03001oogoo03eoo`D07a5o
o`D07`ioo`=l00D07a5l00D07`Ql00Uoo`D07a5oo`D07a5oo`D07d=oo`003Woo00<007ooOol00goo
0P00?Woo1@0O4Goo1@0O4Goo1@0O4Goo1@0O27oo2G`01@0O4G`01@0O4G`01@0O@goo000?Ool00`00
Oomoo`02Ool00`00Oomoo`0mOol501lAOol501lAOol501lAOol501lAOol501lAOol501lAOol501m3
Ool000eoo`04001oogoo0003Ool00`00Oomoo`0nOol301lCOol301lCOol301lCOol301lCOol301lC
Ool301lCOol301m4Ool000ioo`8000Aoo`03001oogoo0?moo`Yoo`00ogoo8Goo003oOolQOol00?mo
ob5oo`00ogoo8Goo003oOolQOol00?moob5oo`00ogoo8Goo003oOolQOol00?moob5oo`001goo0P00
0goo1@0000Aoo`00000000Aoo`@0009oo`<00?ioo`001Woo00@007ooOol0009oo`@000=oo`03001o
ogoo009oo`04001oogoo0002Ool00`00Oomoo`3oOol000Ioo`04001oogoo0005Ool01@00Oomoogoo
000017oo00@007ooOol0009oo`@00?ioo`001Woo00@007ooOol000=oo`<000=oo`04001oogooOol2
00000goo00000003Ool2003oOol000Eoo`03001oogoo009oo`03001oogoo00Ioo`03001oogoo0?mo
o`]oo`001Goo0P000Woo0P001goo0P00ogoo3Goo003oOolQOol00?moob5oo`00ogoo8Goo003oOolQ
Ool00?moob5oo`00ogoo8Goo003oOolQOol00?moob5oo`00ogoo8Goo003oOolQOol00?moob5oo`00
ogoo8Goo003oOolQOol00001\
\>"],
  ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {0.0646262, -0.368872, \
0.0454004, 0.0163243}}]
}, Open  ]]
}, Open  ]]
},
FrontEndVersion->"5.1 for Microsoft Windows",
ScreenRectangle->{{0, 1024}, {0, 685}},
WindowSize->{495, 522},
WindowMargins->{{224, Automatic}, {Automatic, 25}},
StyleDefinitions -> "Classroom.nb"
]

(*******************************************************************
Cached data follows.  If you edit this Notebook file directly, not
using Mathematica, you must remove the line containing CacheID at
the top of  the file.  The cache data will then be recreated when
you save this file from within Mathematica.
*******************************************************************)

(*CellTagsOutline
CellTagsIndex->{}
*)

(*CellTagsIndex
CellTagsIndex->{}
*)

(*NotebookFileOutline
Notebook[{
Cell[1754, 51, 44, 0, 67, "Title"],
Cell[1801, 53, 67, 4, 94, "Subsubtitle"],
Cell[1871, 59, 188, 6, 50, "Text"],

Cell[CellGroupData[{
Cell[2084, 69, 33, 0, 52, "Subsection"],
Cell[2120, 71, 163, 4, 60, "Text"],
Cell[2286, 77, 132, 3, 110, "Input"],

Cell[CellGroupData[{
Cell[2443, 84, 46, 1, 50, "Input"],
Cell[2492, 87, 1225, 28, 207, "Output"]
}, Open  ]],
Cell[3732, 118, 100, 1, 29, "Text"],
Cell[3835, 121, 136, 3, 110, "Input"],

Cell[CellGroupData[{
Cell[3996, 128, 46, 1, 50, "Input"],
Cell[4045, 131, 509, 18, 205, "Output"]
}, Open  ]],
Cell[4569, 152, 1129, 20, 370, "Input"]
}, Open  ]],

Cell[CellGroupData[{
Cell[5735, 177, 36, 0, 52, "Subsection"],
Cell[5774, 179, 101, 1, 29, "Text"],

Cell[CellGroupData[{
Cell[5900, 184, 219, 3, 90, "Input"],
Cell[6122, 189, 13439, 415, 186, 5838, 317, "GraphicsData", "PostScript", \
"Graphics"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{
Cell[19610, 610, 36, 0, 52, "Subsection"],

Cell[CellGroupData[{
Cell[19671, 614, 219, 3, 90, "Input"],
Cell[19893, 619, 13639, 418, 186, 5839, 317, "GraphicsData", "PostScript", \
"Graphics"]
}, Open  ]]
}, Open  ]]
}
]
*)



(*******************************************************************
End of Mathematica Notebook file.
*******************************************************************)