(***********************************************************************

                    Mathematica-Compatible Notebook

This notebook can be used on any computer system with Mathematica 4.0,
MathReader 4.0, or any compatible application. 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[     19720,        549]*)
(*NotebookOutlinePosition[     20564,        576]*)
(*  CellTagsIndexPosition[     20520,        572]*)
(*WindowFrame->Normal*)



Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
    \(\(\( (*\ inverse\ B - spline\ *) \)\(\[IndentingNewLine]\)\( (*\ 
      Q\  = \ UMP\ with\ unknown\ P\ *) \)\(\[IndentingNewLine]\)\( (*\ 
      cubic\ B - 
        spline\ *) \)\(\[IndentingNewLine]\)\(M\  = \ {{\(-1\)/6, \ 
          1/2, \ \(-1\)/2, \ 1/6}, {1/2, \ \(-1\), \ 1/2, 0}, {\(-1\)/2, \ 
          0, \ 1/2, \ 0}, {1/6, \ 2/3, \ 1/6, \ 0}}\)\)\)], "Input"],

Cell[BoxData[
    \({{\(-\(1\/6\)\), 1\/2, \(-\(1\/2\)\), 1\/6}, {1\/2, \(-1\), 1\/2, 
        0}, {\(-\(1\/2\)\), 0, 1\/2, 0}, {1\/6, 2\/3, 1\/6, 0}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(U\  = \ {u^3, u^2, u, 1}\)], "Input"],

Cell[BoxData[
    \({u\^3, u\^2, u, 1}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\( (*\ 
      four\ points\ of\ {{x, y}, 
          t}\ *) \)\(\[IndentingNewLine]\)\(Q = {{{0, 0}, 0.0}, {{1, 1}, 
          0.2}, {{2, 1}, 0.5}, {{3, 0}, 1.0}}\)\)\)], "Input"],

Cell[BoxData[
    \({{{0, 0}, 0.`}, {{1, 1}, 0.2`}, {{2, 1}, 0.5`}, {{3, 0}, 
        1.`}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(b = {\(Q[\([1]\)]\)[\([1]\)], \(Q[\([2]\)]\)[\([1]\)], \
\(Q[\([3]\)]\)[\([1]\)], \(Q[\([4]\)]\)[\([1]\)]}\)], "Input"],

Cell[BoxData[
    \({{0, 0}, {1, 1}, {2, 1}, {3, 0}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(A\  = \ {\((U /. u \[Rule] \(Q[\([1]\)]\)[\([2]\)])\) . 
          M, \((U /. u \[Rule] \(Q[\([2]\)]\)[\([2]\)])\) . 
          M, \((U /. u \[Rule] \(Q[\([3]\)]\)[\([2]\)])\) . 
          M, \((U /. u \[Rule] \(Q[\([4]\)]\)[\([2]\)])\) . M}\)], "Input"],

Cell[BoxData[
    \({{0.16666666666666666`, 0.6666666666666666`, 0.16666666666666666`, 
        0.`}, {0.08533333333333332`, 0.6306666666666666`, 
        0.2826666666666667`, 0.0013333333333333335`}, {0.020833333333333343`, 
        0.47916666666666663`, 0.47916666666666663`, 
        0.020833333333333332`}, {2.7755575615628914`*^-17, 
        0.16666666666666663`, 0.6666666666666666`, 
        0.16666666666666666`}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(MatrixForm[A]\)], "Input"],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {"0.16666666666666666`", "0.6666666666666666`", 
              "0.16666666666666666`", "0.`"},
            {"0.08533333333333332`", "0.6306666666666666`", 
              "0.2826666666666667`", "0.0013333333333333335`"},
            {"0.020833333333333343`", "0.47916666666666663`", 
              "0.47916666666666663`", "0.020833333333333332`"},
            {"2.7755575615628914`*^-17", "0.16666666666666663`", 
              "0.6666666666666666`", "0.16666666666666666`"}
            }], "\[NoBreak]", ")"}],
      (MatrixForm[ #]&)]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(P = LinearSolve[A, b]\)], "Input"],

Cell[BoxData[
    \({{\(-8.83333333333333`\), \(-17.91666666666667`\)}, \
{1.499999999999999`, 
        5.083333333333335`}, {2.833333333333335`, \(-2.4166666666666674`\)}, \
{5.166666666666665`, 4.583333333333339`}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(g1\  = \ {Point[\(Q[\([1]\)]\)[\([1]\)]], 
        Point[\(Q[\([2]\)]\)[\([1]\)]], Point[\(Q[\([3]\)]\)[\([1]\)]], 
        Point[\(Q[\([4]\)]\)[\([1]\)]]}\)], "Input"],

Cell[BoxData[
    \({Point[{0, 0}], Point[{1, 1}], Point[{2, 1}], 
      Point[{3, 0}]}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(g2\  = \ {Point[P[\([1]\)]], Point[P[\([2]\)]], Point[P[\([3]\)]], 
        Point[P[\([4]\)]]}\)], "Input"],

Cell[BoxData[
    \({Point[{\(-8.83333333333333`\), \(-17.91666666666667`\)}], 
      Point[{1.499999999999999`, 5.083333333333335`}], 
      Point[{2.833333333333335`, \(-2.4166666666666674`\)}], 
      Point[{5.166666666666665`, 4.583333333333339`}]}\)], "Output"]
}, Open  ]],

Cell[BoxData[
    \(For[u = 0; plist = {}, u \[LessEqual] 1.0, u\  = \ u + 0.1, 
      plist = Append[plist, 
          U . M . {P[\([1]\)], P[\([2]\)], P[\([3]\)], 
              P[\([4]\)]}]]\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
    \(g3\  = \ Line[plist]\)], "Input"],

Cell[BoxData[
    \(Line[{{1.0793834961633453`*^-17, 1.8889211182858566`*^-16}, {0.54`, 
          0.6300000000000006`}, {1.`, 
          1.0000000000000002`}, {1.3900000000000001`, 
          1.1550000000000005`}, {1.72`, 1.1400000000000003`}, {2.`, 
          1.0000000000000002`}, {2.24`, 
          0.7800000000000005`}, {2.4499999999999997`, 
          0.5250000000000001`}, {2.6400000000000006`, 
          0.2800000000000008`}, {2.8200000000000003`, 
          0.09000000000000025`}, {3.0000000000000004`, 
          1.1834669047219546`*^-15}}]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Graphics[{PointSize[0.025], g1, PointSize[0.035], g2, g3}]\)], "Input"],

Cell[BoxData[
    TagBox[\(\[SkeletonIndicator]  Graphics  \[SkeletonIndicator]\),
      False,
      Editable->False]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Show[%, Axes \[Rule] Automatic]\)], "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.366194 0.118064 0.235442 0.12908 [
[.13007 .22294 -6 -9 ]
[.13007 .22294 6 0 ]
[.60232 .22294 -3 -9 ]
[.60232 .22294 3 0 ]
[.83845 .22294 -3 -9 ]
[.83845 .22294 3 0 ]
[.35369 .10636 -12 -4.5 ]
[.35369 .10636 0 4.5 ]
[.35369 .36452 -6 -4.5 ]
[.35369 .36452 0 4.5 ]
[.35369 .4936 -6 -4.5 ]
[.35369 .4936 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.13007 .23544 m
.13007 .24169 L
s
[(-2)] .13007 .22294 0 1 Mshowa
.60232 .23544 m
.60232 .24169 L
s
[(2)] .60232 .22294 0 1 Mshowa
.83845 .23544 m
.83845 .24169 L
s
[(4)] .83845 .22294 0 1 Mshowa
.125 Mabswid
.1891 .23544 m
.1891 .23919 L
s
.24813 .23544 m
.24813 .23919 L
s
.30716 .23544 m
.30716 .23919 L
s
.42523 .23544 m
.42523 .23919 L
s
.48426 .23544 m
.48426 .23919 L
s
.54329 .23544 m
.54329 .23919 L
s
.66135 .23544 m
.66135 .23919 L
s
.72039 .23544 m
.72039 .23919 L
s
.77942 .23544 m
.77942 .23919 L
s
.07104 .23544 m
.07104 .23919 L
s
.012 .23544 m
.012 .23919 L
s
.89748 .23544 m
.89748 .23919 L
s
.95651 .23544 m
.95651 .23919 L
s
.25 Mabswid
0 .23544 m
1 .23544 L
s
.36619 .10636 m
.37244 .10636 L
s
[(-1)] .35369 .10636 1 0 Mshowa
.36619 .36452 m
.37244 .36452 L
s
[(1)] .35369 .36452 1 0 Mshowa
.36619 .4936 m
.37244 .4936 L
s
[(2)] .35369 .4936 1 0 Mshowa
.125 Mabswid
.36619 .13218 m
.36994 .13218 L
s
.36619 .15799 m
.36994 .15799 L
s
.36619 .18381 m
.36994 .18381 L
s
.36619 .20963 m
.36994 .20963 L
s
.36619 .26126 m
.36994 .26126 L
s
.36619 .28707 m
.36994 .28707 L
s
.36619 .31289 m
.36994 .31289 L
s
.36619 .33871 m
.36994 .33871 L
s
.36619 .39034 m
.36994 .39034 L
s
.36619 .41615 m
.36994 .41615 L
s
.36619 .44197 m
.36994 .44197 L
s
.36619 .46779 m
.36994 .46779 L
s
.36619 .51942 m
.36994 .51942 L
s
.36619 .54523 m
.36994 .54523 L
s
.36619 .57105 m
.36994 .57105 L
s
.36619 .59686 m
.36994 .59686 L
s
.36619 .08055 m
.36994 .08055 L
s
.36619 .05473 m
.36994 .05473 L
s
.36619 .02891 m
.36994 .02891 L
s
.36619 .0031 m
.36994 .0031 L
s
.25 Mabswid
.36619 0 m
.36619 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.025 w
.36619 .23544 Mdot
.48426 .36452 Mdot
.60232 .36452 Mdot
.72039 .23544 Mdot
.5 Mabswid
.36619 .23544 m
.42995 .31676 L
.48426 .36452 L
.5303 .38453 L
.56926 .38259 L
.60232 .36452 L
.63066 .33612 L
.65545 .30321 L
.67788 .27158 L
.69913 .24706 L
.72039 .23544 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{288, 177.938},
  ImageMargins->{{43, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg<PAVmbKF5d0`40004P0000/B000`400?l00000o`00003oJ@3oool2
00000;D0oooo001Y0?ooo`030000003oool0oooo0;@0oooo001Y0?ooo`030000003oool0oooo0;@0
oooo001Y0?ooo`030000003oool0oooo0;@0oooo001Y0?ooo`030000003oool0oooo0;@0oooo001Y
0?ooo`030000003oool0oooo0;@0oooo001Y0?ooo`030000003oool0oooo0;@0oooo001Y0?ooo`03
0000003oool0oooo0;@0oooo001Y0?ooo`800000]@3oool006T0oooo00<000000?ooo`3oool0]03o
ool006T0oooo00<000000?ooo`3oool0]03oool006T0oooo00<000000?ooo`3oool0]03oool006T0
oooo00<000000?ooo`3oool0]03oool006T0oooo00<000000?ooo`3oool0]03oool006T0oooo00<0
00000?ooo`3oool0]03oool006T0oooo0P00002e0?ooo`00J@3oool00`000000oooo0?ooo`2d0?oo
o`00J@3oool00`000000oooo0?ooo`2d0?ooo`00J@3oool00`000000oooo0?ooo`2d0?ooo`00J@3o
ool00`000000oooo0?ooo`2d0?ooo`00J@3oool00`000000oooo0?ooo`2d0?ooo`00J@3oool00`00
0000oooo0?ooo`2d0?ooo`00J@3oool00`000000oooo0?ooo`2d0?ooo`00J@3oool200000;D0oooo
001Y0?ooo`030000003oool0oooo0;@0oooo001Y0?ooo`030000003oool0oooo0;@0oooo001Y0?oo
o`030000003oool0oooo0;@0oooo001Y0?ooo`030000003oool0oooo0;@0oooo001P0?ooo`<00000
1P3oool00`000000oooo0?ooo`2d0?ooo`00H@3oool00`000000oooo0?ooo`050?ooo`030000003o
ool0oooo0;@0oooo001I0?ooo`D000000`3oool00`000000oooo0?ooo`050?ooo`800000]@3oool0
0640oooo00<000000?ooo`3oool01@3oool00`000000oooo0?ooo`2d0?ooo`00H@3oool00`000000
oooo0?ooo`050?ooo`030000003oool0oooo0;@0oooo001P0?ooo`8000001`3oool00`000000oooo
0?ooo`2d0?ooo`00H@3oool00`000000oooo0?ooo`050?ooo`030000003oool0oooo0;@0oooo001Y
0?ooo`030000003oool0oooo0;@0oooo001Y0?ooo`030000003oool0oooo0;@0oooo001Y0?ooo`80
0000]@3oool006T0oooo00<000000?ooo`3oool0]03oool006T0oooo00<000000?ooo`3oool0]03o
ool006T0oooo00<000000?ooo`3oool0]03oool006T0oooo00<000000?ooo`3oool0]03oool006T0
oooo00<000000?ooo`3oool0]03oool006T0oooo00<000000?ooo`3oool0]03oool006T0oooo00<0
00000?ooo`3oool0]03oool006T0oooo0P00002e0?ooo`00J@3oool00`000000oooo0?ooo`2d0?oo
o`00J@3oool00`000000oooo0?ooo`2d0?ooo`00J@3oool00`000000oooo0?ooo`2d0?ooo`00J@3o
ool00`000000oooo0?ooo`2d0?ooo`00J@3oool00`000000oooo0?ooo`2d0?ooo`00J@3oool00`00
0000oooo0?ooo`2d0?ooo`00J@3oool200000;D0oooo001Y0?ooo`030000003oool0oooo0;@0oooo
001Y0?ooo`030000003oool0oooo0;@0oooo000U0?ooo`D00000?`3oool00`000000oooo0?ooo`0m
0?ooo`D00000@@3oool3000002h0oooo000V0?ooo`040000003oool0oooo000003l0oooo00<00000
0?ooo`3oool0?P3oool010000000oooo0?ooo`0000120?ooo`030000003oool0oooo02d0oooo000O
0?ooo`D000000`3oool00`000000oooo0?ooo`0o0?ooo`030000003oool0oooo03l0oooo00<00000
0?ooo`3oool0?`3oool5000002h0oooo000X0?ooo`030000003oool0oooo03h0oooo00<000000?oo
o`3oool0@03oool00`000000oooo0?ooo`0n0?ooo`040000003oool0oooo000002l0oooo000U0?oo
o`050000003oool0oooo0?ooo`000000?`3oool00`000000oooo0?ooo`0m0?ooo`050000003oool0
oooo0?ooo`000000@03oool00`000000oooo0000000_0?ooo`009@3oool01@000000oooo0?ooo`3o
ool0000003l0oooo0P00000n0?ooo`050000003oool0oooo0?ooo`000000@@3oool2000002l0oooo
000V0?ooo`<00000@03oool00`000000oooo0?ooo`0n0?ooo`<00000@`3oool00`000000oooo0?oo
o`0]0?ooo`00J@3oool00`000000oooo0?ooo`2d0?ooo`00J@3oool00`000000oooo0?ooo`2d0?oo
o`00J03oool300000680oooo0`00001@0?ooo`00I`3oool500000600oooo1@00001?0?ooo`00IP3o
ool7000005h0oooo1`00001>0?ooo`00o`00000P00000040oooo00030?ooo`030000003oool0oooo
00h0oooo00<000000?ooo`3oool03P3oool00`000000oooo0?ooo`0>0?ooo`030000003oool0oooo
00h0oooo00<000000?ooo`3oool03P3oool00`000000oooo0?ooo`0;0?ooo`L000003@3oool00`00
0000oooo0?ooo`0=0?ooo`030000003oool0oooo00h0oooo00<000000?ooo`3oool03P3oool00`00
0000oooo0?ooo`0>0?ooo`030000003oool0oooo00/0oooo1`00000=0?ooo`030000003oool0oooo
00h0oooo00<000000?ooo`3oool03P3oool00`000000oooo0?ooo`0>0?ooo`030000003oool0oooo
00/0oooo000U0?ooo`030000003oool0oooo03l0oooo1@0000100?ooo`030000003oool0oooo01X0
oooo0P0000000`3oool0000000000003000001l0oooo00<000000?ooo`3oool0;@3oool006P0oooo
1000001L0?ooo`030000003oool0oooo0080oooo0`00001@0?ooo`00J@3oool010000000oooo0?oo
o`00001K0?ooo`030000003oool0oooo05D0oooo001Y0?ooo`050000003oool0oooo0?ooo`000000
F@3oool00`000000oooo0?ooo`1F0?ooo`00J@3oool01@000000oooo0?ooo`3oool0000005P0oooo
00<000000?ooo`3oool0E`3oool006T0oooo0P0000030?ooo`030000003oool0oooo05@0oooo00<0
00000?ooo`3oool0F03oool006T0oooo00<000000?ooo`3oool00`3oool00`000000oooo0?ooo`1B
0?ooo`030000003oool0oooo05T0oooo001Y0?ooo`030000003oool0oooo00@0oooo00<000000?oo
o`3oool0D03oool00`000000oooo0?ooo`1J0?ooo`00J@3oool00`000000oooo0?ooo`040?ooo`03
0000003oool0oooo04l0oooo00<000000?ooo`3oool0F`3oool006T0oooo00<000000?ooo`3oool0
1@3oool00`000000oooo0?ooo`1>0?ooo`030000003oool0oooo05/0oooo001Y0?ooo`030000003o
ool0oooo00H0oooo00<000000?ooo`3oool0C03oool00`000000oooo0?ooo`1L0?ooo`00J@3oool0
0`000000oooo0?ooo`070?ooo`030000003oool0oooo04X0oooo00<000000?ooo`3oool0G@3oool0
06T0oooo00<000000?ooo`3oool0203oool00`000000oooo0?ooo`190?ooo`030000003oool0oooo
05d0oooo001Y0?ooo`8000002@3oool00`000000oooo0?ooo`180?ooo`030000003oool0oooo05h0
oooo001Y0?ooo`030000003oool0oooo00T0oooo00<000000?ooo`3oool0AP3oool00`000000oooo
0?ooo`1O0?ooo`00J@3oool00`000000oooo0?ooo`0:0?ooo`030000003oool0oooo04D0oooo00<0
00000?ooo`3oool0G`3oool006T0oooo00<000000?ooo`3oool02`3oool00`000000oooo0?ooo`13
0?ooo`030000003oool0oooo0600oooo001Y0?ooo`030000003oool0oooo00/0oooo00<000000?oo
o`3oool0@P3oool00`000000oooo0?ooo`1Q0?ooo`00J@3oool00`000000oooo0?ooo`0<0?ooo`03
0000003oool0oooo0440oooo00<000000?ooo`3oool0H@3oool006T0oooo00<000000?ooo`3oool0
3@3oool00`000000oooo0?ooo`0o0?ooo`030000003oool0oooo0680oooo001Y0?ooo`8000003`3o
ool00`000000oooo0?ooo`0m0?ooo`030000003oool0oooo06<0oooo001Y0?ooo`030000003oool0
oooo00l0oooo0P00000l0?ooo`030000003oool0oooo06@0oooo001Y0?ooo`030000003oool0oooo
0140oooo00<000000?ooo`3oool0>03oool00`000000oooo0?ooo`1U0?ooo`00J@3oool00`000000
oooo0?ooo`0B0?ooo`030000003oool0oooo03L0oooo00<000000?ooo`3oool0I@3oool006T0oooo
00<000000?ooo`3oool04`3oool00`000000oooo0?ooo`0e0?ooo`030000003oool0oooo06H0oooo
001Y0?ooo`030000003oool0oooo01@0oooo00<000000?ooo`3oool0<`3oool00`000000oooo0?oo
o`1W0?ooo`00J@3oool00`000000oooo0?ooo`0E0?ooo`030000003oool0oooo0340oooo00<00000
0?ooo`3oool0J03oool006T0oooo00<000000?ooo`3oool05P3oool00`000000oooo0?ooo`0_0?oo
o`030000003oool0oooo06T0oooo001Y0?ooo`800000603oool00`000000oooo0?ooo`0]0?ooo`03
0000003oool0oooo06X0oooo001Y0?ooo`030000003oool0oooo01P0oooo00<000000?ooo`3oool0
:`3oool00`000000oooo0?ooo`1[0?ooo`00J@3oool00`000000oooo0?ooo`0I0?ooo`030000003o
ool0oooo02T0oooo00<000000?ooo`3oool0K03oool006T0oooo00<000000?ooo`3oool06P3oool0
0`000000oooo0?ooo`0W0?ooo`030000003oool0oooo06d0oooo001P0?ooo`<000001P3oool00`00
0000oooo0?ooo`0K0?ooo`030000003oool00000008000007`3oool3000000030?ooo`000000oooo
06l0oooo001Q0?ooo`030000003oool0oooo00D0oooo00<000000?ooo`3oool0703oool5000001d0
oooo1@00001a0?ooo`00H@3oool00`000000oooo0?ooo`050?ooo`030000003oool0oooo01/0oooo
1`00000K0?ooo`L00000L03oool00640oooo00<000000?ooo`3oool01@3oool2000001`0oooo1`00
000K0?ooo`L00000L03oool00640oooo00<000000?ooo`3oool01@3oool00`000000oooo0?ooo`0K
0?ooo`P000006P3oool700000700oooo001P0?ooo`8000001`3oool00`000000oooo0?ooo`0L0?oo
o`D000000P3oool2000001H0oooo0P0000000`3oool000000000000300000740oooo001Q0?ooo`03
0000003oool0oooo00D0oooo00<000000?ooo`3oool07@3oool3000000D0oooo0P00000C0?ooo`03
0000003oool0oooo0080oooo0`00001b0?ooo`00J@3oool00`000000oooo0?ooo`0W0?ooo`<00000
3P3oool2000007X0oooo001Y0?ooo`030000003oool0oooo02X0oooo0P0000060?ooo`H00000O03o
ool006T0oooo00<000000?ooo`3oool0;03oool600000880oooo001Y0?ooo`800000]@3oool006T0
oooo00<000000?ooo`3oool0]03oool006T0oooo00<000000?ooo`3oool0]03oool006T0oooo00<0
00000?ooo`3oool0]03oool006T0oooo00<000000?ooo`3oool0]03oool006T0oooo00<000000?oo
o`3oool0]03oool006T0oooo00<000000?ooo`3oool0]03oool006T0oooo00<000000?ooo`3oool0
]03oool006T0oooo0P00002e0?ooo`00J@3oool00`000000oooo0?ooo`2d0?ooo`00J@3oool00`00
0000oooo0?ooo`2d0?ooo`00J@3oool00`000000oooo0?ooo`2d0?ooo`00J@3oool00`000000oooo
0?ooo`2d0?ooo`00J@3oool00`000000oooo0?ooo`2d0?ooo`00J@3oool00`000000oooo0?ooo`2d
0?ooo`00J@3oool200000;D0oooo001Y0?ooo`030000003oool0oooo0;@0oooo001Y0?ooo`030000
003oool0oooo0;@0oooo001Y0?ooo`030000003oool0oooo0;@0oooo001Y0?ooo`030000003oool0
oooo0;@0oooo001Y0?ooo`030000003oool0oooo0;@0oooo001Y0?ooo`030000003oool0oooo0;@0
oooo001Y0?ooo`800000]@3oool006T0oooo00<000000?ooo`3oool0]03oool006T0oooo00<00000
0?ooo`3oool0]03oool006T0oooo00<000000?ooo`3oool0]03oool006T0oooo00<000000?ooo`3o
ool0]03oool005l0oooo1@0000050?ooo`030000003oool0oooo0;@0oooo001P0?ooo`040000003o
ool0oooo000000D0oooo00<000000?ooo`3oool0]03oool00640oooo00<000000?ooo`3oool01@3o
ool00`000000oooo0?ooo`2d0?ooo`00HP3oool00`000000oooo0?ooo`040?ooo`800000]@3oool0
05l0oooo00D000000?ooo`3oool0oooo000000050?ooo`030000003oool0oooo0;@0oooo001O0?oo
o`050000003oool0oooo0?ooo`0000001@3oool00`000000oooo0?ooo`2d0?ooo`00H03oool30000
00H0oooo00<000000?ooo`3oool0]03oool006T0oooo00<000000?ooo`3oool0]03oool006T0oooo
00<000000?ooo`3oool0]03oool006T0oooo00<000000?ooo`3oool0]03oool006T0oooo0P00002e
0?ooo`00J@3oool00`000000oooo0?ooo`2d0?ooo`00J@3oool00`000000oooo0?ooo`2d0?ooo`00
J@3oool00`000000oooo0?ooo`2d0?ooo`00J@3oool00`000000oooo0?ooo`2d0?ooo`00J@3oool0
0`000000oooo0?ooo`2d0?ooo`00J@3oool00`000000oooo0?ooo`2d0?ooo`00J@3oool00`000000
oooo0?ooo`2d0?ooo`00J@3oool200000;D0oooo001Y0?ooo`030000003oool0oooo0;@0oooo001Y
0?ooo`030000003oool0oooo0;@0oooo001Y0?ooo`030000003oool0oooo0;@0oooo001Y0?ooo`03
0000003oool0oooo0;@0oooo001Y0?ooo`030000003oool0oooo0;@0oooo001Y0?ooo`030000003o
ool0oooo0;@0oooo001Y0?ooo`800000]@3oool006T0oooo00<000000?ooo`3oool0]03oool006T0
oooo00<000000?ooo`3oool0]03oool006T0oooo00<000000?ooo`3oool0]03oool006T0oooo00<0
00000?ooo`3oool0]03oool006T0oooo00<000000?ooo`3oool0]03oool006T0oooo00<000000?oo
o`3oool0]03oool006T0oooo0P00002e0?ooo`00J@3oool00`000000oooo0?ooo`2d0?ooo`00J@3o
ool00`000000oooo0?ooo`2d0?ooo`00J@3oool00`000000oooo0?ooo`2d0?ooo`00J@3oool00`00
0000oooo0?ooo`2d0?ooo`00J@3oool00`000000oooo0?ooo`2d0?ooo`00J@3oool00`000000oooo
0?ooo`2d0?ooo`00\
\>"],
  ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-3.11216, -1.82402, \
0.0295853, 0.0270605}}],

Cell[BoxData[
    TagBox[\(\[SkeletonIndicator]  Graphics  \[SkeletonIndicator]\),
      False,
      Editable->False]], "Output"]
}, Open  ]]
},
FrontEndVersion->"4.0 for Macintosh",
ScreenRectangle->{{0, 1024}, {0, 748}},
WindowSize->{520, 626},
WindowMargins->{{Automatic, 49}, {5, Automatic}},
MacintoshSystemPageSetup->"\<\
02P0001804P000000^L2D_ogooL33`9K8085:0?l0000005X0FP000003X<;VP5d
038;VTRX04/00@4100000BL?00400@000000000000000000000000000040I0<0
00000000000@XP404@000000000eDflP\>"
]


(***********************************************************************
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[CellGroupData[{
Cell[1739, 51, 390, 6, 91, "Input"],
Cell[2132, 59, 164, 2, 76, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[2333, 66, 57, 1, 27, "Input"],
Cell[2393, 69, 52, 1, 28, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[2482, 75, 200, 4, 59, "Input"],
Cell[2685, 81, 105, 2, 26, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[2827, 88, 139, 2, 27, "Input"],
Cell[2969, 92, 66, 1, 26, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[3072, 98, 274, 4, 43, "Input"],
Cell[3349, 104, 435, 7, 73, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[3821, 116, 46, 1, 27, "Input"],
Cell[3870, 119, 628, 12, 87, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[4535, 136, 54, 1, 27, "Input"],
Cell[4592, 139, 230, 4, 41, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[4859, 148, 188, 3, 43, "Input"],
Cell[5050, 153, 101, 2, 26, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[5188, 160, 127, 2, 43, "Input"],
Cell[5318, 164, 266, 4, 41, "Output"]
}, Open  ]],
Cell[5599, 171, 206, 4, 59, "Input"],

Cell[CellGroupData[{
Cell[5830, 179, 53, 1, 27, "Input"],
Cell[5886, 182, 565, 10, 75, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[6488, 197, 91, 1, 43, "Input"],
Cell[6582, 200, 130, 3, 26, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[6749, 208, 64, 1, 27, "Input"],
Cell[6816, 211, 12755, 330, 186, 2777, 202, "GraphicsData", "PostScript", \
"Graphics"],
Cell[19574, 543, 130, 3, 26, "Output"]
}, Open  ]]
}
]
*)




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