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

                    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[     24548,        655]*)
(*NotebookOutlinePosition[     25393,        682]*)
(*  CellTagsIndexPosition[     25349,        678]*)
(*WindowFrame->Normal*)



Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
    \( (*\ accourding\ to\ Farin' s\ book\ Catmull - Rom\ *)  (*\ 
      splines\ defines\ interior\ control\ point\ \((cp)\)\ by\ *)  (*\ 
      the\ knot\ vectors\ \(u : i\)\ *) \  (*\ 
      d : i\ is\ the\ distance\ from\ \(u : 
            i\ to\ \(u : i + 1\)\)\ *) \[IndentingNewLine] (*\ 
      for\ left\ cp, \ 
      d : i - 1/\((3*\((d : 
                    i - 1\  + \ \(d : i\))\))\)\ *) \[IndentingNewLine] (*\ 
      for\ right\ cp, \ 
      d : i/\((3*\((d : 
                  i - 1\  + \ \(d : i\))\))\)\ *) \[IndentingNewLine]\(k = 
        1/2;\)\), "\[IndentingNewLine]", 
    \(\ \(M1\  = \ {{2, \(-2\), 1, 1}, {\(-3\), 3, \(-2\), \(-1\)}, {0, 0, 1, 
            0}, {1, 0, 0, 0}};\)\), "\[IndentingNewLine]", 
    \(\(M2\  = \ {{0, 1, 0, 0}, {0, 0, 1, 0}, {\(-k\), 0, k, 0}, {0, \(-k\), 
            0, k}};\)\), "\[IndentingNewLine]", 
    \(Clear[u]; U = {u^3, u^2, u, 1};\), "\[IndentingNewLine]", 
    \(M = M1 . M2\)}], "Input"],

Cell[BoxData[
    FormBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(-\(1\/2\)\), \(3\/2\), \(-\(3\/2\)\), \(1\/2\)},
            {"1", \(-\(5\/2\)\), "2", \(-\(1\/2\)\)},
            {\(-\(1\/2\)\), "0", \(1\/2\), "0"},
            {"0", "1", "0", "0"}
            },
          ColumnAlignments->{Decimal}], "\[NoBreak]", ")"}], 
      TraditionalForm]], "Output"]
}, Open  ]],

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

Cell[CellGroupData[{

Cell[BoxData[
    \(g1 = 
      Graphics[{PointSize[0.025], Thickness[0.01], Line[plist]}]\)], "Input"],

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

Cell[CellGroupData[{

Cell[BoxData[{
    \(For[i = 1; clist = {PointSize[0.035]}, i \[LessEqual] Length[P], 
      i = i + 1, 
      clist = Append[clist, Point[P[\([i]\)]]]]\), "\[IndentingNewLine]", 
    \(g2\  = \ Graphics[clist]\)}], "Input"],

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

Cell[CellGroupData[{

Cell[BoxData[
    \(Show[{g1, g2}, 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.0238095 0.10582 0.198502 0.359837 [
[.23545 .186 -3 -9 ]
[.23545 .186 3 0 ]
[.44709 .186 -3 -9 ]
[.44709 .186 3 0 ]
[.65873 .186 -3 -9 ]
[.65873 .186 3 0 ]
[.87037 .186 -3 -9 ]
[.87037 .186 3 0 ]
[.01131 .01858 -24 -4.5 ]
[.01131 .01858 0 4.5 ]
[.01131 .10854 -30 -4.5 ]
[.01131 .10854 0 4.5 ]
[.01131 .28846 -24 -4.5 ]
[.01131 .28846 0 4.5 ]
[.01131 .37842 -18 -4.5 ]
[.01131 .37842 0 4.5 ]
[.01131 .46838 -24 -4.5 ]
[.01131 .46838 0 4.5 ]
[.01131 .55834 -6 -4.5 ]
[.01131 .55834 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
.23545 .1985 m
.23545 .20475 L
s
[(2)] .23545 .186 0 1 Mshowa
.44709 .1985 m
.44709 .20475 L
s
[(4)] .44709 .186 0 1 Mshowa
.65873 .1985 m
.65873 .20475 L
s
[(6)] .65873 .186 0 1 Mshowa
.87037 .1985 m
.87037 .20475 L
s
[(8)] .87037 .186 0 1 Mshowa
.125 Mabswid
.07672 .1985 m
.07672 .20225 L
s
.12963 .1985 m
.12963 .20225 L
s
.18254 .1985 m
.18254 .20225 L
s
.28836 .1985 m
.28836 .20225 L
s
.34127 .1985 m
.34127 .20225 L
s
.39418 .1985 m
.39418 .20225 L
s
.5 .1985 m
.5 .20225 L
s
.55291 .1985 m
.55291 .20225 L
s
.60582 .1985 m
.60582 .20225 L
s
.71164 .1985 m
.71164 .20225 L
s
.76455 .1985 m
.76455 .20225 L
s
.81746 .1985 m
.81746 .20225 L
s
.92328 .1985 m
.92328 .20225 L
s
.97619 .1985 m
.97619 .20225 L
s
.25 Mabswid
0 .1985 m
1 .1985 L
s
.02381 .01858 m
.03006 .01858 L
s
[(-0.5)] .01131 .01858 1 0 Mshowa
.02381 .10854 m
.03006 .10854 L
s
[(-0.25)] .01131 .10854 1 0 Mshowa
.02381 .28846 m
.03006 .28846 L
s
[(0.25)] .01131 .28846 1 0 Mshowa
.02381 .37842 m
.03006 .37842 L
s
[(0.5)] .01131 .37842 1 0 Mshowa
.02381 .46838 m
.03006 .46838 L
s
[(0.75)] .01131 .46838 1 0 Mshowa
.02381 .55834 m
.03006 .55834 L
s
[(1)] .01131 .55834 1 0 Mshowa
.125 Mabswid
.02381 .03658 m
.02756 .03658 L
s
.02381 .05457 m
.02756 .05457 L
s
.02381 .07256 m
.02756 .07256 L
s
.02381 .09055 m
.02756 .09055 L
s
.02381 .12653 m
.02756 .12653 L
s
.02381 .14453 m
.02756 .14453 L
s
.02381 .16252 m
.02756 .16252 L
s
.02381 .18051 m
.02756 .18051 L
s
.02381 .21649 m
.02756 .21649 L
s
.02381 .23449 m
.02756 .23449 L
s
.02381 .25248 m
.02756 .25248 L
s
.02381 .27047 m
.02756 .27047 L
s
.02381 .30645 m
.02756 .30645 L
s
.02381 .32445 m
.02756 .32445 L
s
.02381 .34244 m
.02756 .34244 L
s
.02381 .36043 m
.02756 .36043 L
s
.02381 .39641 m
.02756 .39641 L
s
.02381 .4144 m
.02756 .4144 L
s
.02381 .4324 m
.02756 .4324 L
s
.02381 .45039 m
.02756 .45039 L
s
.02381 .48637 m
.02756 .48637 L
s
.02381 .50436 m
.02756 .50436 L
s
.02381 .52236 m
.02756 .52236 L
s
.02381 .54035 m
.02756 .54035 L
s
.02381 .00059 m
.02756 .00059 L
s
.02381 .57633 m
.02756 .57633 L
s
.02381 .59432 m
.02756 .59432 L
s
.02381 .61231 m
.02756 .61231 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.01 w
.12963 .55834 m
.14021 .56221 L
.15079 .5569 L
.16138 .54404 L
.17196 .52523 L
.18254 .50211 L
.19312 .4763 L
.2037 .4494 L
.21429 .42304 L
.22487 .39884 L
.23545 .37842 L
.23545 .37842 L
.24603 .36043 L
.25661 .34244 L
.2672 .32445 L
.27778 .30645 L
.28836 .28846 L
.29894 .27047 L
.30952 .25248 L
.32011 .23449 L
.33069 .21649 L
.34127 .1985 L
.34127 .1985 L
.35185 .17808 L
.36243 .15388 L
.37302 .12752 L
.3836 .10063 L
.39418 .07481 L
.40476 .05169 L
.41534 .03289 L
.42593 .02002 L
.43651 .01472 L
.44709 .01858 L
.44709 .01858 L
.45767 .03514 L
.46825 .06464 L
.47884 .10386 L
.48942 .14956 L
.5 .1985 L
.51058 .24744 L
.52116 .29314 L
.53175 .33236 L
.54233 .36187 L
.55291 .37842 L
.55291 .37842 L
.56349 .37986 L
.57407 .36835 L
.58466 .34711 L
.59524 .31941 L
.60582 .28846 L
Mistroke
.6164 .25752 L
.62698 .22981 L
.63757 .20858 L
.64815 .19706 L
.65873 .1985 L
.65873 .1985 L
.66931 .21424 L
.67989 .24168 L
.69048 .27812 L
.70106 .32085 L
.71164 .36718 L
.72222 .4144 L
.7328 .45983 L
.74339 .50077 L
.75397 .5345 L
.76455 .55834 L
.76455 .55834 L
.77513 .57453 L
.78571 .58713 L
.7963 .59612 L
.80688 .60152 L
.81746 .60332 L
.82804 .60152 L
.83862 .59612 L
.84921 .58713 L
.85979 .57453 L
.87037 .55834 L
Mfstroke
.035 w
.02381 .1985 Mdot
.12963 .55834 Mdot
.23545 .37842 Mdot
.34127 .1985 Mdot
.44709 .01858 Mdot
.55291 .37842 Mdot
.65873 .1985 Mdot
.76455 .55834 Mdot
.87037 .55834 Mdot
.97619 .1985 Mdot
% 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`00003oo`3ooolQ
0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ
0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`008@3oool200000?d0oooo000Q0?ooo`030000003o
ool0oooo06T0oooo1@00002>0?ooo`003P3oool2000000@0oooo00<000000?ooo`3oool00P3oool3
000000D0oooo00<000000?ooo`3oool0J03oool7000008d0oooo000=0?ooo`040000003oool0oooo
000000L0oooo00D000000?ooo`3oool0oooo000000040?ooo`030000003oool0oooo06L0oooo2@00
002<0?ooo`001P3oool500000080oooo00@000000?ooo`3oool000002`3oool00`000000oooo0?oo
o`020?ooo`030000003oool0oooo06H0oooo2P00002<0?ooo`003@3oool010000000oooo0?ooo`00
000;0?ooo`030000003oool0oooo0080oooo0P00001U0?ooo``00000S03oool000d0oooo00@00000
0?ooo`3oool000001`3oool4000000D0oooo00<000000?ooo`3oool0I03oool<000008`0oooo000=
0?ooo`040000003oool0oooo000000L0oooo00<000000?ooo`3oool01P3oool00`000000oooo0?oo
o`1S0?ooo`<0000000<0oooo0000000000001`00002<0?ooo`003P3oool2000000P0oooo1@000004
0?ooo`030000003oool0oooo0680oooo0`0000030?ooo`L00000S@3oool00240oooo0P00001S0?oo
o`8000001@3oool6000008d0oooo000Q0?ooo`030000003oool0oooo0640oooo0`0000090?ooo`80
0000S@3oool00240oooo00<000000?ooo`3oool0H03oool3000000X0oooo0P00002=0?ooo`008@3o
ool00`000000oooo0?ooo`1P0?ooo`8000002`3oool3000008`0oooo000Q0?ooo`030000003oool0
oooo05l0oooo0`00000<0?ooo`800000S03oool00240oooo0P00001P0?ooo`8000003@3oool20000
08`0oooo000Q0?ooo`030000003oool0oooo05h0oooo0`00000=0?ooo`800000S03oool00240oooo
00<000000?ooo`3oool0GP3oool2000000h0oooo0`00002;0?ooo`008@3oool00`000000oooo0?oo
o`1M0?ooo`<000003`3oool2000008/0oooo000Q0?ooo`030000003oool0oooo05d0oooo0P00000@
0?ooo`800000R`3oool00240oooo0P00001M0?ooo`<00000403oool2000008/0oooo000Q0?ooo`03
0000003oool0oooo05`0oooo0P00000A0?ooo`<00000RP3oool00240oooo00<000000?ooo`3oool0
F`3oool300000180oooo0P00002:0?ooo`008@3oool00`000000oooo0?ooo`1K0?ooo`8000004`3o
ool2000008X0oooo000Q0?ooo`800000F`3oool3000001<0oooo0`0000290?ooo`008@3oool00`00
0000oooo0?ooo`1J0?ooo`8000005@3oool2000008T0oooo00080?ooo`800000103oool010000000
oooo0?ooo`3oool500000080oooo0`0000050?ooo`030000003oool0oooo05X0oooo0P00000E0?oo
o`800000R@3oool000L0oooo00@000000?ooo`3oool00000203oool01P000000oooo0?ooo`000000
oooo000000<0oooo00<000000?ooo`3oool00P3oool00`000000oooo0?ooo`1I0?ooo`<000005@3o
ool3000008P0oooo000500000080oooo00@000000?ooo`3oool000002@3oool00`000000oooo0?oo
o`050?ooo`030000003oool0oooo0080oooo00<000000?ooo`3oool0F@3oool2000001L0oooo0P00
00280?ooo`001`3oool010000000oooo0?ooo`00000:0?ooo`030000003oool0oooo00@0oooo00<0
00000?ooo`3oool00P3oool2000005X0oooo0P00000G0?ooo`800000R03oool000L0oooo00@00000
0?ooo`3oool000001`3oool01P000000oooo0?ooo`3oool000000?ooo`@000001@3oool00`000000
oooo0?ooo`1H0?ooo`<000005`3oool2000008P0oooo00070?ooo`040000003oool0oooo000000L0
oooo00L000000?ooo`3oool0oooo0000003oool0000000P0oooo00<000000?ooo`3oool0F03oool2
000001P0oooo0`0000270?ooo`00203oool2000000T0oooo0`0000020?ooo`D00000103oool00`00
0000oooo0?ooo`1H0?ooo`8000006@3oool2000008L0oooo000Q0?ooo`030000003oool0oooo05L0
oooo0`00000I0?ooo`800000Q`3oool00240oooo0P00001H0?ooo`8000006P3oool2000008L0oooo
000Q0?ooo`030000003oool0oooo05L0oooo0P00000J0?ooo`<00000QP3oool00240oooo00<00000
0?ooo`3oool0EP3oool3000001/0oooo0P0000260?ooo`008@3oool00`000000oooo0?ooo`1F0?oo
o`800000703oool2000008H0oooo000Q0?ooo`800000EP3oool3000001`0oooo0P0000260?ooo`00
8@3oool00`000000oooo0?ooo`1E0?ooo`8000007@3oool3000008D0oooo000Q0?ooo`030000003o
ool0oooo05D0oooo0P00000N0?ooo`800000Q@3oool00240oooo00<000000?ooo`3oool0<@3oool5
000001h0oooo0`00000C0?ooo`<00000203oool2000002T0oooo0`00000d0?ooo`<000008P3oool0
0240oooo00<000000?ooo`3oool0<P3oool010000000oooo0?ooo`00000N0?ooo`8000005@3oool0
0`000000oooo0?ooo`070?ooo`800000:03oool01@000000oooo0?ooo`3oool000000380oooo00D0
00000?ooo`3oool0oooo0000000Q0?ooo`008@3oool2000003@0oooo00<000000?ooo`3oool07@3o
ool300000180oooo1@0000080?ooo`<000009`3oool01@000000oooo0?ooo`3oool000000380oooo
00D000000?ooo`3oool0oooo0000000Q0?ooo`008@3oool00`000000oooo0?ooo`0d0?ooo`030000
003oool0oooo01`0oooo0P00000C0?ooo`040000003oool0oooo000000X0oooo0P00000W0?ooo`@0
0000=03oool300000280oooo000Q0?ooo`030000003oool0oooo0340oooo00D000000?ooo`3oool0
oooo0000000L0?ooo`<00000503oool00`000000oooo0000000:0?ooo`8000009`3oool00`000000
oooo0?ooo`0d0?ooo`050000003oool0oooo0?ooo`0000008@3oool00240oooo00<000000?ooo`3o
ool0<@3oool01@000000oooo0?ooo`3oool0000001`0oooo0P00000F0?ooo`8000002P3oool20000
02P0oooo00<000000?ooo`3oool0<`3oool01@000000oooo0?ooo`3oool000000240oooo000Q0?oo
o`030000003oool0oooo0380oooo0`00000L0?ooo`<000005`3oool00`000000oooo0?ooo`080?oo
o`<00000:03oool2000003@0oooo0`00000R0?ooo`007`3oool5000004d0oooo1P00000T0?ooo`80
00009`3oool5000004d0oooo1@0000050?ooo`007P3oool7000004/0oooo1`00000T0?ooo`800000
9P3oool7000004/0oooo1`0000040?ooo`007@3oool9000004T0oooo2@00000S0?ooo`8000009@3o
ool9000004T0oooo2@0000030?ooo`007@3oool9000004T0oooo2@00000S0?ooo`<00000903oool9
000004T0oooo2@0000030?ooo`006`3ooooo000000H00000000M0?ooo`T000002@3oool00`000000
oooo0?ooo`0:0?ooo`030000003oool0oooo00/0oooo00<000000?ooo`3oool02`3oool00`000000
oooo0?ooo`0;0?ooo`030000003oool0oooo00H0oooo2@0000090?ooo`030000003oool0oooo00/0
oooo00<000000?ooo`3oool02P3oool2000000`0oooo00<000000?ooo`3oool02`3oool00`000000
oooo0?ooo`060?ooo`X000002@3oool00`000000oooo0?ooo`0:0?ooo`030000003oool0oooo00/0
oooo00<000000?ooo`3oool02`3oool00`000000oooo0?ooo`0;0?ooo`030000003oool0oooo00H0
oooo2@0000030?ooo`007@3oool900000380oooo00<000000?ooo`3oool0503oool9000001L0oooo
00<000000?ooo`3oool02P3oool200000280oooo2`00000b0?ooo`030000003oool0oooo01@0oooo
2@0000030?ooo`007P3oool7000004/0oooo1`00000U0?ooo`8000008@3oool3000000030?ooo`00
0000000000D00000B`3oool7000000@0oooo000O0?ooo`D00000C@3oool5000002H0oooo0`00000P
0?ooo`8000000`3oool6000004`0oooo1@0000050?ooo`008@3oool2000004d0oooo0`00000Z0?oo
o`8000007`3oool3000000L0oooo0P00001F0?ooo`008@3oool00`000000oooo0?ooo`1<0?ooo`80
0000:`3oool2000001l0oooo0P0000080?ooo`800000EP3oool00240oooo00<000000?ooo`3oool0
B`3oool3000002/0oooo0P00000O0?ooo`800000203oool3000005D0oooo000Q0?ooo`030000003o
ool0oooo04X0oooo0`00000/0?ooo`8000007P3oool3000000T0oooo0P00001E0?ooo`008@3oool0
0`000000oooo0?ooo`1:0?ooo`800000;@3oool2000001h0oooo0P00000:0?ooo`800000E@3oool0
0240oooo0P00001:0?ooo`<00000;@3oool2000001d0oooo0`00000:0?ooo`800000E@3oool00240
oooo00<000000?ooo`3oool0B@3oool2000002h0oooo0`00000L0?ooo`8000002`3oool3000005@0
oooo000Q0?ooo`030000003oool0oooo04P0oooo0`00000_0?ooo`800000703oool2000000`0oooo
0P00001D0?ooo`008@3oool00`000000oooo0?ooo`170?ooo`<00000<03oool2000001/0oooo0`00
000<0?ooo`800000E03oool00240oooo0P0000170?ooo`<00000<@3oool2000001/0oooo0P00000=
0?ooo`<00000D`3oool00240oooo00<000000?ooo`3oool0AP3oool200000380oooo0P00000K0?oo
o`8000003P3oool2000005<0oooo000Q0?ooo`030000003oool0oooo04D0oooo0`00000b0?ooo`<0
00006@3oool3000000h0oooo0P00001C0?ooo`008@3oool00`000000oooo0?ooo`140?ooo`<00000
=03oool2000001T0oooo0P00000?0?ooo`<00000DP3oool00240oooo00<000000?ooo`3oool0A03o
ool2000003D0oooo0P00000H0?ooo`<00000403oool200000580oooo000Q0?ooo`800000A03oool3
000003D0oooo0P00000H0?ooo`8000004@3oool200000580oooo000Q0?ooo`030000003oool0oooo
04<0oooo0P00000f0?ooo`<000005`3oool200000140oooo0`00001A0?ooo`00203oool2000000@0
oooo00@000000?ooo`3oool0oooo1@0000020?ooo`<000001@3oool00`000000oooo0?ooo`120?oo
o`<00000=`3oool2000001H0oooo0`00000B0?ooo`800000D@3oool000L0oooo00@000000?ooo`3o
ool00000203oool01P000000oooo0?ooo`000000oooo000000<0oooo00<000000?ooo`3oool00P3o
ool00`000000oooo0?ooo`120?ooo`800000>03oool2000001H0oooo0P00000C0?ooo`800000D@3o
ool000L0oooo00@000000?ooo`3oool000002@3oool00`000000oooo0?ooo`050?ooo`030000003o
ool0oooo0080oooo00<000000?ooo`3oool0@P3oool2000003P0oooo0P00000F0?ooo`8000004`3o
ool200000540oooo00070?ooo`040000003oool0oooo000000X0oooo00<000000?ooo`3oool0103o
ool00`000000oooo0?ooo`020?ooo`800000@P3oool3000003P0oooo0`00000D0?ooo`<000004`3o
ool300000500oooo00070?ooo`040000003oool0oooo000000L0oooo00H000000?ooo`3oool0oooo
0000003oool4000000D0oooo00<000000?ooo`3oool0@@3oool2000003X0oooo0P00000D0?ooo`80
00005@3oool200000500oooo00070?ooo`040000003oool0oooo000000L0oooo00L000000?ooo`3o
ool0oooo0000003oool0000000P0oooo00<000000?ooo`3oool0@03oool3000003X0oooo0P00000C
0?ooo`<000005@3oool200000500oooo00080?ooo`8000002@3oool300000080oooo1@0000040?oo
o`030000003oool0oooo03l0oooo0`00000k0?ooo`8000004`3oool2000001H0oooo0`00001?0?oo
o`008@3oool2000003l0oooo0`00000l0?ooo`<000004P3oool2000001L0oooo0P00001?0?ooo`00
8@3oool00`000000oooo0?ooo`0n0?ooo`800000?P3oool200000140oooo0`00000G0?ooo`800000
C`3oool00240oooo00<000000?ooo`3oool0?@3oool3000003h0oooo0P00000A0?ooo`800000603o
ool2000004l0oooo000Q0?ooo`030000003oool0oooo03`0oooo0`00000o0?ooo`<00000403oool2
000001P0oooo0`00001>0?ooo`008@3oool00`000000oooo0?ooo`0l0?ooo`800000@@3oool20000
00l0oooo0`00000I0?ooo`800000CP3oool00240oooo0P00000l0?ooo`<00000@@3oool2000000l0
oooo0P00000J0?ooo`800000CP3oool00240oooo00<000000?ooo`3oool0>`3oool200000480oooo
0`00000>0?ooo`8000006P3oool2000004h0oooo000Q0?ooo`030000003oool0oooo03X0oooo0`00
00130?ooo`8000003@3oool3000001X0oooo0`00001=0?ooo`008@3oool00`000000oooo0?ooo`0i
0?ooo`<00000A03oool2000000d0oooo0P00000L0?ooo`800000C@3oool00240oooo00<000000?oo
o`3oool0>@3oool2000004D0oooo0`00000<0?ooo`800000703oool2000004d0oooo000Q0?ooo`80
0000>@3oool3000004H0oooo0P00000;0?ooo`<00000703oool2000004d0oooo000Q0?ooo`030000
003oool0oooo03P0oooo0P0000170?ooo`8000002`3oool2000001d0oooo0`00001<0?ooo`008@3o
ool00`000000oooo0?ooo`0g0?ooo`<00000A`3oool3000000X0oooo0P00000N0?ooo`800000C03o
ool00240oooo00<000000?ooo`3oool0=`3oool2000004T0oooo0P0000090?ooo`<000007P3oool2
000004`0oooo000Q0?ooo`800000=`3oool3000004T0oooo0P0000080?ooo`<000007`3oool20000
04`0oooo000Q0?ooo`030000003oool0oooo0380oooo1P00001:0?ooo`L000000`3oool200000200
oooo0`00001;0?ooo`008@3oool00`000000oooo0?ooo`0a0?ooo`L00000B`3oool7000000040?oo
o`000000000000000240oooo0P00001;0?ooo`003P3oool2000000@0oooo00<000000?ooo`3oool0
0P3oool3000000D0oooo00<000000?ooo`3oool0<03oool9000004T0oooo2`00000R0?ooo`800000
B`3oool000d0oooo00@000000?ooo`3oool000001`3oool01@000000oooo0?ooo`3oool0000000@0
oooo00<000000?ooo`3oool0<03oool9000004T0oooo2P00000S0?ooo`800000B`3oool000d0oooo
00@000000?ooo`3oool000002`3oool00`000000oooo0?ooo`020?ooo`800000<@3oool9000004T0
oooo2@00000T0?ooo`800000B`3oool000d0oooo00@000000?ooo`3oool000002`3oool00`000000
oooo0?ooo`020?ooo`030000003oool0oooo0300oooo2@0000190?ooo`T00000903oool3000004X0
oooo000=0?ooo`040000003oool0oooo000000L0oooo100000050?ooo`030000003oool0oooo0300
oooo2@0000190?ooo`T000009@3oool2000004X0oooo000=0?ooo`040000003oool0oooo000000L0
oooo00<000000?ooo`3oool01P3oool00`000000oooo0?ooo`0a0?ooo`L00000B`3oool7000002H0
oooo0P00001:0?ooo`003P3oool2000000P0oooo1@0000040?ooo`030000003oool0oooo0340oooo
1P00001=0?ooo`D000009`3oool2000004X0oooo000Q0?ooo`800000<@3oool3000007d0oooo0P00
001:0?ooo`008@3oool00`000000oooo0?ooo`0`0?ooo`800000OP3oool2000004X0oooo000Q0?oo
o`030000003oool0oooo02l0oooo0`00001n0?ooo`<00000B@3oool00240oooo00<000000?ooo`3o
ool0;`3oool200000800oooo0P0000190?ooo`008@3oool2000002l0oooo0`0000200?ooo`800000
B@3oool00240oooo00<000000?ooo`3oool0;P3oool200000840oooo0P0000190?ooo`008@3oool0
0`000000oooo0?ooo`0^0?ooo`800000P@3oool2000004T0oooo000Q0?ooo`030000003oool0oooo
02d0oooo0`0000210?ooo`<00000B03oool00240oooo00<000000?ooo`3oool0;@3oool2000008<0
oooo0P0000180?ooo`008@3oool2000002h0oooo0P0000230?ooo`800000B03oool00240oooo00<0
00000?ooo`3oool0;03oool3000008<0oooo0P0000180?ooo`008@3oool00`000000oooo0?ooo`0/
0?ooo`800000Q03oool3000004L0oooo000Q0?ooo`030000003oool0oooo02`0oooo0P0000250?oo
o`800000A`3oool00240oooo00<000000?ooo`3oool0:`3oool3000008D0oooo0P0000170?ooo`00
8@3oool2000002`0oooo0P0000260?ooo`800000A`3oool00240oooo00<000000?ooo`3oool0:`3o
ool2000008H0oooo0`0000160?ooo`00203oool2000000@0oooo00<000000?ooo`3oool00`3oool0
0`000000oooo0?ooo`020?ooo`<000001@3oool00`000000oooo0?ooo`0Z0?ooo`<00000Q`3oool2
000004H0oooo00070?ooo`040000003oool0oooo000000T0oooo00D000000?ooo`3oool0oooo0000
00030?ooo`030000003oool0oooo0080oooo00<000000?ooo`3oool0:P3oool2000008P0oooo0P00
00160?ooo`001`3oool010000000oooo0?ooo`00000:0?ooo`030000003oool0oooo00@0oooo00<0
00000?ooo`3oool00P3oool2000002X0oooo0`0000280?ooo`800000AP3oool000L0oooo00@00000
0?ooo`3oool000002P3oool00`000000oooo0?ooo`040?ooo`030000003oool0oooo0080oooo00<0
00000?ooo`3oool0:@3oool2000008T0oooo0`0000150?ooo`001`3oool010000000oooo0?ooo`00
000;0?ooo`030000003oool0000000<000001@3oool00`000000oooo0?ooo`0Y0?ooo`800000RP3o
ool2000004D0oooo00070?ooo`040000003oool0oooo000000L0oooo00L000000?ooo`3oool0oooo
0000003oool0000000P0oooo00<000000?ooo`3oool0:03oool3000008X0oooo0P0000150?ooo`00
203oool2000000P0oooo1@0000000`3oool0000000000003000000@0oooo00<000000?ooo`3oool0
:03oool2000008/0oooo0`0000140?ooo`008@3oool2000002P0oooo0`00002<0?ooo`800000A03o
ool00240oooo00<000000?ooo`3oool09`3oool2000008d0oooo0P0000140?ooo`008@3oool00`00
0000oooo0?ooo`0V0?ooo`<00000S@3oool2000004@0oooo000Q0?ooo`030000003oool0oooo02H0
oooo0P00002>0?ooo`<00000@`3oool00240oooo00<000000?ooo`3oool09@3oool3000008l0oooo
0P0000130?ooo`008@3oool2000002H0oooo0P00002@0?ooo`800000@`3oool00240oooo00<00000
0?ooo`3oool0903oool300000900oooo0`0000120?ooo`008@3oool00`000000oooo0?ooo`0T0?oo
o`800000TP3oool200000480oooo000Q0?ooo`030000003oool0oooo02<0oooo0`00002B0?ooo`80
0000@P3oool00240oooo0P00000T0?ooo`800000T`3oool300000440oooo000Q0?ooo`030000003o
ool0oooo0280oooo0`00002D0?ooo`800000@@3oool00240oooo00<000000?ooo`3oool08P3oool2
000009D0oooo0P0000110?ooo`008@3oool00`000000oooo0?ooo`0Q0?ooo`<00000U@3oool30000
0400oooo000Q0?ooo`030000003oool0oooo0240oooo0P00002G0?ooo`800000@03oool00240oooo
0P00000R0?ooo`800000U`3oool200000400oooo000Q0?ooo`030000003oool0oooo01H0oooo1@00
00050?ooo`<00000U`3oool6000001L0oooo1@00000P0?ooo`006@3oool3000000D0oooo00<00000
0?ooo`3oool05@3oool7000000<0oooo0`00002H0?ooo`L000005@3oool7000001l0oooo000J0?oo
o`030000003oool0oooo00@0oooo00<000000?ooo`3oool0503oool9000000040?ooo`0000000000
000009P0oooo2@00000C0?ooo`T000007P3oool001X0oooo00<000000?ooo`3oool0103oool00`00
0000oooo0?ooo`0D0?ooo``00000V@3oool9000001<0oooo2@00000N0?ooo`006P3oool00`000000
oooo0?ooo`040?ooo`8000005@3oool;000009X0oooo2@00000C0?ooo`T000007P3oool001X0oooo
00<000000?ooo`3oool0103oool00`000000oooo0?ooo`0D0?ooo`T00000W03oool9000001<0oooo
2@00000N0?ooo`006@3oool2000000H0oooo00<000000?ooo`3oool0503oool9000009`0oooo2@00
000C0?ooo`T000007P3oool001X0oooo00<000000?ooo`3oool0103oool00`000000oooo0?ooo`0E
0?ooo`L00000WP3oool7000001D0oooo1`00000O0?ooo`008@3oool00`000000oooo0?ooo`0F0?oo
o`D00000X03oool6000001@0oooo1`00000P0?ooo`008@3oool200000<00oooo0`00000B0?ooo`<0
00009@3oool00240oooo00<000000?ooo`3oool0`03oool300000100oooo0`00000V0?ooo`008@3o
ool00`000000oooo0?ooo`310?ooo`<000003P3oool3000002L0oooo000Q0?ooo`030000003oool0
oooo0<80oooo0`00000=0?ooo`800000:03oool00240oooo0P0000340?ooo`<000002`3oool30000
02P0oooo000Q0?ooo`030000003oool0oooo0<@0oooo100000070?ooo`@00000:@3oool00240oooo
00<000000?ooo`3oool0a@3oool6000000030?ooo`000000000000@00000:P3oool00240oooo00<0
00000?ooo`3oool0a`3oool9000002`0oooo000Q0?ooo`030000003oool0oooo0<X0oooo0`00000_
0?ooo`008@3oool200000?d0oooo000Q0?ooo`030000003oool0oooo0?`0oooo003o0?ooob40oooo
003o0?ooob40oooo003o0?ooob40oooo003o0?ooob40oooo003o0?ooob40oooo003o0?ooob40oooo
003o0?ooob40oooo003o0?ooob40oooo0000\
\>"],
  ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.20882, -0.638716, \
0.036355, 0.0106912}}],

Cell[BoxData[
    FormBox[
      TagBox[\(\[SkeletonIndicator]  Graphics  \[SkeletonIndicator]\),
        False,
        Editable->False], TraditionalForm]], "Output"]
}, Open  ]]
},
FrontEndVersion->"4.0 for Macintosh",
ScreenRectangle->{{0, 1024}, {0, 748}},
WindowSize->{520, 626},
WindowMargins->{{10, Automatic}, {32, 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, 972, 18, 219, "Input"],
Cell[2714, 71, 381, 9, 99, "Output"]
}, Open  ]],
Cell[3110, 83, 404, 8, 107, "Input"],

Cell[CellGroupData[{
Cell[3539, 95, 103, 2, 43, "Input"],
Cell[3645, 99, 167, 4, 26, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[3849, 108, 224, 4, 59, "Input"],
Cell[4076, 114, 167, 4, 26, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[4280, 123, 71, 1, 27, "Input"],
Cell[4354, 126, 20008, 520, 186, 4664, 326, "GraphicsData", "PostScript", \
"Graphics"],
Cell[24365, 648, 167, 4, 26, "Output"]
}, Open  ]]
}
]
*)




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