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

                    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[     23079,        402]*)
(*NotebookOutlinePosition[     23924,        429]*)
(*  CellTagsIndexPosition[     23880,        425]*)
(*WindowFrame->Normal*)



Notebook[{
Cell[BoxData[
    \( (*\ 2  D\ springs\ *) \)], "Input"],

Cell[BoxData[
    \(\(\( (*\ 
      define\ the\ point - 
        mass\ data\ structure\ *) \)\(\[IndentingNewLine]\)\( (*\ 
      each\ \(entry : \ position\), \ velocity, \ 
      mass\ *) \)\(\[IndentingNewLine]\)\( (*\ 
      a\ mass\ of\  - 
        1\ means\ that\ it' 
          s\ fixed\ in\ space\ *) \)\(\[IndentingNewLine]\)\(plist = {\
\[IndentingNewLine]{{0, 0}, {0, 0}, 10, 
            2}, \[IndentingNewLine]{{0, 2}, {0, 0}, 10, 
            2}, \[IndentingNewLine]{{2, 0}, {0, 0}, 10, 
            2}, \[IndentingNewLine]{{2, 2}, {0, 0}, 10, 
            2}\[IndentingNewLine]};\)\)\)], "Input"],

Cell[BoxData[{
    \( (*\ access\ functions\ for\ point\ list\ *) \[IndentingNewLine]\(pos[
          i_] := \(plist[\([i]\)]\)[\([1]\)];\)\), "\[IndentingNewLine]", 
    \(\(vel[i_] := \(plist[\([i]\)]\)[\([2]\)];\)\), "\[IndentingNewLine]", 
    \(\(mass[i_] := \(plist[\([i]\)]\)[\([3]\)];\)\), "\[IndentingNewLine]", 
    \(\(setPos[i_, 
          p_] := \((\[IndentingNewLine]temp = \ 
            Replace[plist[\([i]\)], 1, p]; \[IndentingNewLine]Replace[plist, 
            i, temp]\[IndentingNewLine])\);\)\), "\[IndentingNewLine]", 
    \(\(setVel[i_, 
          v_] := \((\[IndentingNewLine]temp = \ 
            Replace[plist[\([i]\)], 2, v]; \[IndentingNewLine]Replace[plist, 
            i, temp]\[IndentingNewLine])\);\)\[IndentingNewLine]\
\[IndentingNewLine]\)}], "Input"],

Cell[BoxData[
    \(\(\( (*\ 
      define\ the\ spring\ list\ data\ structure\ \
*) \)\(\[IndentingNewLine]\)\( (*\ each\ \(entry : \ vertex\ 1\), \ 
      vertex\ 2, \ rest\ length, \ spring\ \(\(const\)\(.\)\), \ 
      damp\ \(\(const\)\(.\)\)\ *) \)\(\[IndentingNewLine]\)\(slist = {\
\[IndentingNewLine]{1, 2, Sqrt[DotProduct[plist[\([1]\)], plist[\([2]\)]]], 
            2, 2}, \[IndentingNewLine]{2, 3, 
            Sqrt[DotProduct[plist[\([2]\)], plist[\([3]\)]]], 2, 
            2}, \[IndentingNewLine]{3, 4, 
            Sqrt[DotProduct[plist[\([3]\)], plist[\([1]\)]]], 2, 
            2}, \[IndentingNewLine]{4, 1, 
            Sqrt[DotProduct[plist[\([3]\)], plist[\([1]\)]]], 2, 
            2}\[IndentingNewLine]};\)\(\[IndentingNewLine]\)\(\
\[IndentingNewLine]\)\)\)], "Input"],

Cell[BoxData[{
    \( (*\ 
      define\ access\ functions\ for\ springs\ *) \[IndentingNewLine] (*\ 
      get\ the\ entire\ vertex\ data\ structure\ *) \
\[IndentingNewLine]\(vertex1[i_]\  := 
        plist[\([\(slist[\([i]\)]\)[\([1]\)]]\)];\)\), "\[IndentingNewLine]", \

    \(\(vertex2[i_]\  := 
        plist[\([\(slist[\([i]\)]\)[\([2]\)]]\)];\)\[IndentingNewLine] (*\ 
      get\ the\ positions\ of\ the\ vertices\ *) \), "\[IndentingNewLine]", 
    \(\(pos1[
          i_] := \(plist[\([\(slist[\([i]\)]\)[\([1]\)]]\)]\)[\([1]\)];\)\), \
"\[IndentingNewLine]", 
    \(\(pos2[
          i_] := \(plist[\([\(slist[\([i]\)]\)[\([2]\)]]\)]\)[\([1]\)];\)\)}],\
 "Input"],

Cell[BoxData[
    \(For[i = 1; glist = {}, 
      i <= Length[slist], \(i++\), \[IndentingNewLine]glist = 
        Append[glist, 
          Line[{pos1[i], pos2[i]}]]\[IndentingNewLine]]\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
    \(Show[Graphics[glist]]\)], "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.47619 0.0147151 0.294302 [
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
0 g
.5 Mabswid
[ ] 0 setdash
.02381 .01472 m
.02381 .60332 L
s
.02381 .60332 m
.97619 .01472 L
s
.97619 .01472 m
.97619 .60332 L
s
.97619 .60332 m
.02381 .01472 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`00003oo`3ooolQ
0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`00o`3ooolQ0?ooo`001`3oool200000?l0oooo3P3o
ool2000000P0oooo00070?ooo`030000003oool000000?l0oooo303oool00`000000oooo00000008
0?ooo`001`3oool00`000000oooo0?ooo`0200000?l0oooo203oool200000080oooo00<000000?oo
o`3oool01P3oool000L0oooo00<000000?ooo`3oool00P3oool200000?l0oooo103oool2000000@0
oooo00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3oool0103oool00`000000oooo
0?ooo`3o0?ooo`030000003oool0oooo00@0oooo00<000000?ooo`3oool01P3oool000L0oooo00<0
00000?ooo`3oool01@3oool200000?d0oooo0P0000070?ooo`030000003oool0oooo00H0oooo0007
0?ooo`030000003oool0oooo00L0oooo0P00003i0?ooo`8000002@3oool00`000000oooo0?ooo`06
0?ooo`001`3oool00`000000oooo0?ooo`090?ooo`030000003oool0oooo0?D0oooo00<000000?oo
o`3oool02@3oool00`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`0:0?ooo`80
0000l`3oool2000000`0oooo00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3oool0
303oool00`000000oooo0?ooo`3_0?ooo`030000003oool0oooo00`0oooo00<000000?ooo`3oool0
1P3oool000L0oooo00<000000?ooo`3oool03@3oool200000>d0oooo0P00000?0?ooo`030000003o
ool0oooo00H0oooo00070?ooo`030000003oool0oooo00l0oooo0P00003Y0?ooo`8000004@3oool0
0`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`0A0?ooo`030000003oool0oooo
0>D0oooo00<000000?ooo`3oool04@3oool00`000000oooo0?ooo`060?ooo`001`3oool00`000000
oooo0?ooo`0B0?ooo`800000h`3oool2000001@0oooo00<000000?ooo`3oool01P3oool000L0oooo
00<000000?ooo`3oool0503oool00`000000oooo0?ooo`3O0?ooo`030000003oool0oooo01@0oooo
00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3oool05@3oool200000=d0oooo0P00
000G0?ooo`030000003oool0oooo00H0oooo00070?ooo`030000003oool0oooo01L0oooo0P00003I
0?ooo`8000006@3oool00`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`0I0?oo
o`030000003oool0oooo0=D0oooo00<000000?ooo`3oool06@3oool00`000000oooo0?ooo`060?oo
o`001`3oool00`000000oooo0?ooo`0J0?ooo`800000d`3oool2000001`0oooo00<000000?ooo`3o
ool01P3oool000L0oooo00<000000?ooo`3oool0703oool200000<l0oooo0P00000N0?ooo`030000
003oool0oooo00H0oooo00070?ooo`030000003oool0oooo01h0oooo00<000000?ooo`3oool0b`3o
ool00`000000oooo0?ooo`0N0?ooo`030000003oool0oooo00H0oooo00070?ooo`030000003oool0
oooo01l0oooo0P0000390?ooo`8000008@3oool00`000000oooo0?ooo`060?ooo`001`3oool00`00
0000oooo0?ooo`0Q0?ooo`030000003oool0oooo0<D0oooo00<000000?ooo`3oool08@3oool00`00
0000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`0R0?ooo`800000``3oool2000002@0
oooo00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3oool0903oool200000;l0oooo
0P00000V0?ooo`030000003oool0oooo00H0oooo00070?ooo`030000003oool0oooo02H0oooo00<0
00000?ooo`3oool0^`3oool00`000000oooo0?ooo`0V0?ooo`030000003oool0oooo00H0oooo0007
0?ooo`030000003oool0oooo02L0oooo0P00002i0?ooo`800000:@3oool00`000000oooo0?ooo`06
0?ooo`001`3oool00`000000oooo0?ooo`0Y0?ooo`800000]@3oool2000002/0oooo00<000000?oo
o`3oool01P3oool000L0oooo00<000000?ooo`3oool0:`3oool00`000000oooo0?ooo`2a0?ooo`03
0000003oool0oooo02/0oooo00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3oool0
;03oool200000:l0oooo0P00000^0?ooo`030000003oool0oooo00H0oooo00070?ooo`030000003o
ool0oooo02h0oooo00<000000?ooo`3oool0Z`3oool00`000000oooo0?ooo`0^0?ooo`030000003o
ool0oooo00H0oooo00070?ooo`030000003oool0oooo02l0oooo0P00002Y0?ooo`800000<@3oool0
0`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`0a0?ooo`800000Y@3oool20000
03<0oooo00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3oool0<`3oool00`000000
oooo0?ooo`2Q0?ooo`030000003oool0oooo03<0oooo00<000000?ooo`3oool01P3oool000L0oooo
00<000000?ooo`3oool0=03oool2000009l0oooo0P00000f0?ooo`030000003oool0oooo00H0oooo
00070?ooo`030000003oool0oooo03H0oooo00<000000?ooo`3oool0V`3oool00`000000oooo0?oo
o`0f0?ooo`030000003oool0oooo00H0oooo00070?ooo`030000003oool0oooo03L0oooo0P00002I
0?ooo`800000>@3oool00`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`0i0?oo
o`800000U@3oool2000003/0oooo00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3o
ool0>`3oool00`000000oooo0?ooo`2A0?ooo`030000003oool0oooo03/0oooo00<000000?ooo`3o
ool01P3oool000L0oooo00<000000?ooo`3oool0?03oool2000008l0oooo0P00000n0?ooo`030000
003oool0oooo00H0oooo00070?ooo`030000003oool0oooo03h0oooo0P00002;0?ooo`800000@03o
ool00`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`100?ooo`030000003oool0
oooo08L0oooo00<000000?ooo`3oool0@03oool00`000000oooo0?ooo`060?ooo`001`3oool00`00
0000oooo0?ooo`110?ooo`800000Q@3oool2000004<0oooo00<000000?ooo`3oool01P3oool000L0
oooo00<000000?ooo`3oool0@`3oool00`000000oooo0?ooo`210?ooo`030000003oool0oooo04<0
oooo00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3oool0A03oool2000007l0oooo
0P0000160?ooo`030000003oool0oooo00H0oooo00070?ooo`030000003oool0oooo04H0oooo0P00
001k0?ooo`800000B03oool00`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`18
0?ooo`030000003oool0oooo07L0oooo00<000000?ooo`3oool0B03oool00`000000oooo0?ooo`06
0?ooo`001`3oool00`000000oooo0?ooo`190?ooo`800000M@3oool2000004/0oooo00<000000?oo
o`3oool01P3oool000L0oooo00<000000?ooo`3oool0B`3oool200000740oooo0P00001=0?ooo`03
0000003oool0oooo00H0oooo00070?ooo`030000003oool0oooo04d0oooo00<000000?ooo`3oool0
K@3oool00`000000oooo0?ooo`1=0?ooo`030000003oool0oooo00H0oooo00070?ooo`030000003o
ool0oooo04h0oooo0P00001[0?ooo`800000D03oool00`000000oooo0?ooo`060?ooo`001`3oool0
0`000000oooo0?ooo`1@0?ooo`030000003oool0oooo06L0oooo00<000000?ooo`3oool0D03oool0
0`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`1A0?ooo`800000I@3oool20000
05<0oooo00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3oool0D`3oool200000640
oooo0P00001E0?ooo`030000003oool0oooo00H0oooo00070?ooo`030000003oool0oooo05D0oooo
00<000000?ooo`3oool0G@3oool00`000000oooo0?ooo`1E0?ooo`030000003oool0oooo00H0oooo
00070?ooo`030000003oool0oooo05H0oooo0P00001K0?ooo`800000F03oool00`000000oooo0?oo
o`060?ooo`001`3oool00`000000oooo0?ooo`1H0?ooo`030000003oool0oooo05L0oooo00<00000
0?ooo`3oool0F03oool00`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`1I0?oo
o`800000E@3oool2000005/0oooo00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3o
ool0F`3oool200000540oooo0P00001M0?ooo`030000003oool0oooo00H0oooo00070?ooo`030000
003oool0oooo05d0oooo00<000000?ooo`3oool0C@3oool00`000000oooo0?ooo`1M0?ooo`030000
003oool0oooo00H0oooo00070?ooo`030000003oool0oooo05h0oooo0P00001;0?ooo`800000H03o
ool00`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`1P0?ooo`800000A`3oool2
00000680oooo00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3oool0HP3oool00`00
0000oooo0?ooo`130?ooo`030000003oool0oooo0680oooo00<000000?ooo`3oool01P3oool000L0
oooo00<000000?ooo`3oool0H`3oool200000440oooo0P00001U0?ooo`030000003oool0oooo00H0
oooo00070?ooo`030000003oool0oooo06D0oooo00<000000?ooo`3oool0?@3oool00`000000oooo
0?ooo`1U0?ooo`030000003oool0oooo00H0oooo00070?ooo`030000003oool0oooo06H0oooo0P00
000k0?ooo`800000J03oool00`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`1X
0?ooo`800000=`3oool2000006X0oooo00<000000?ooo`3oool01P3oool000L0oooo00<000000?oo
o`3oool0JP3oool00`000000oooo0?ooo`0c0?ooo`030000003oool0oooo06X0oooo00<000000?oo
o`3oool01P3oool000L0oooo00<000000?ooo`3oool0J`3oool200000340oooo0P00001]0?ooo`03
0000003oool0oooo00H0oooo00070?ooo`030000003oool0oooo06d0oooo0P00000]0?ooo`800000
K`3oool00`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`1_0?ooo`030000003o
ool0oooo02T0oooo00<000000?ooo`3oool0K`3oool00`000000oooo0?ooo`060?ooo`001`3oool0
0`000000oooo0?ooo`1`0?ooo`8000009`3oool200000780oooo00<000000?ooo`3oool01P3oool0
00L0oooo00<000000?ooo`3oool0LP3oool00`000000oooo0?ooo`0S0?ooo`030000003oool0oooo
0780oooo00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3oool0L`3oool200000240
oooo0P00001e0?ooo`030000003oool0oooo00H0oooo00070?ooo`030000003oool0oooo07D0oooo
0P00000M0?ooo`800000M`3oool00`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?oo
o`1g0?ooo`030000003oool0oooo01T0oooo00<000000?ooo`3oool0M`3oool00`000000oooo0?oo
o`060?ooo`001`3oool00`000000oooo0?ooo`1h0?ooo`8000005`3oool2000007X0oooo00<00000
0?ooo`3oool01P3oool000L0oooo00<000000?ooo`3oool0NP3oool00`000000oooo0?ooo`0C0?oo
o`030000003oool0oooo07X0oooo00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3o
ool0N`3oool200000140oooo0P00001m0?ooo`030000003oool0oooo00H0oooo00070?ooo`030000
003oool0oooo07d0oooo0P00000=0?ooo`800000O`3oool00`000000oooo0?ooo`060?ooo`001`3o
ool00`000000oooo0?ooo`1o0?ooo`030000003oool0oooo00T0oooo00<000000?ooo`3oool0O`3o
ool00`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`200?ooo`8000001`3oool2
00000880oooo00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3oool0PP3oool20000
00<0oooo0P0000240?ooo`030000003oool0oooo00H0oooo00070?ooo`030000003oool0oooo08@0
oooo00<000000?ooo`000000QP3oool00`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo
0?ooo`240?ooo`<00000QP3oool00`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?oo
o`230?ooo`050000003oool0oooo0?ooo`000000Q@3oool00`000000oooo0?ooo`060?ooo`001`3o
ool00`000000oooo0?ooo`210?ooo`8000001@3oool2000008<0oooo00<000000?ooo`3oool01P3o
ool000L0oooo00<000000?ooo`3oool0O`3oool2000000T0oooo0P0000210?ooo`030000003oool0
oooo00H0oooo00070?ooo`030000003oool0oooo07h0oooo00<000000?ooo`3oool02`3oool00`00
0000oooo0?ooo`1n0?ooo`030000003oool0oooo00H0oooo00070?ooo`030000003oool0oooo07`0
oooo0P00000?0?ooo`800000OP3oool00`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo
0?ooo`1j0?ooo`8000004`3oool2000007`0oooo00<000000?ooo`3oool01P3oool000L0oooo00<0
00000?ooo`3oool0N@3oool00`000000oooo0?ooo`0E0?ooo`030000003oool0oooo07T0oooo00<0
00000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3oool0M`3oool2000001T0oooo0P00001i
0?ooo`030000003oool0oooo00H0oooo00070?ooo`030000003oool0oooo07H0oooo00<000000?oo
o`3oool06`3oool00`000000oooo0?ooo`1f0?ooo`030000003oool0oooo00H0oooo00070?ooo`03
0000003oool0oooo07@0oooo0P00000O0?ooo`800000MP3oool00`000000oooo0?ooo`060?ooo`00
1`3oool00`000000oooo0?ooo`1b0?ooo`8000008`3oool2000007@0oooo00<000000?ooo`3oool0
1P3oool000L0oooo00<000000?ooo`3oool0L@3oool00`000000oooo0?ooo`0U0?ooo`030000003o
ool0oooo0740oooo00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3oool0K`3oool2
000002T0oooo0P00001a0?ooo`030000003oool0oooo00H0oooo00070?ooo`030000003oool0oooo
06h0oooo00<000000?ooo`3oool0:`3oool00`000000oooo0?ooo`1^0?ooo`030000003oool0oooo
00H0oooo00070?ooo`030000003oool0oooo06`0oooo0P00000_0?ooo`800000KP3oool00`000000
oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`1Z0?ooo`800000<`3oool2000006`0oooo
00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3oool0J@3oool00`000000oooo0?oo
o`0e0?ooo`030000003oool0oooo06T0oooo00<000000?ooo`3oool01P3oool000L0oooo00<00000
0?ooo`3oool0I`3oool2000003T0oooo0P00001Y0?ooo`030000003oool0oooo00H0oooo00070?oo
o`030000003oool0oooo06D0oooo0P00000m0?ooo`800000I`3oool00`000000oooo0?ooo`060?oo
o`001`3oool00`000000oooo0?ooo`1T0?ooo`030000003oool0oooo03l0oooo00<000000?ooo`3o
ool0I03oool00`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`1R0?ooo`800000
@`3oool2000006@0oooo00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3oool0H@3o
ool00`000000oooo0?ooo`150?ooo`030000003oool0oooo0640oooo00<000000?ooo`3oool01P3o
ool000L0oooo00<000000?ooo`3oool0G`3oool2000004T0oooo0P00001Q0?ooo`030000003oool0
oooo00H0oooo00070?ooo`030000003oool0oooo05d0oooo0P00001=0?ooo`800000G`3oool00`00
0000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`1L0?ooo`030000003oool0oooo04l0
oooo00<000000?ooo`3oool0G03oool00`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo
0?ooo`1J0?ooo`800000D`3oool2000005`0oooo00<000000?ooo`3oool01P3oool000L0oooo00<0
00000?ooo`3oool0F03oool2000005L0oooo0P00001J0?ooo`030000003oool0oooo00H0oooo0007
0?ooo`030000003oool0oooo05L0oooo00<000000?ooo`3oool0F@3oool00`000000oooo0?ooo`1G
0?ooo`030000003oool0oooo00H0oooo00070?ooo`030000003oool0oooo05D0oooo0P00001M0?oo
o`800000E`3oool00`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`1D0?ooo`03
0000003oool0oooo05l0oooo00<000000?ooo`3oool0E03oool00`000000oooo0?ooo`060?ooo`00
1`3oool00`000000oooo0?ooo`1B0?ooo`800000H`3oool2000005@0oooo00<000000?ooo`3oool0
1P3oool000L0oooo00<000000?ooo`3oool0D03oool2000006L0oooo0P00001B0?ooo`030000003o
ool0oooo00H0oooo00070?ooo`030000003oool0oooo04l0oooo00<000000?ooo`3oool0J@3oool0
0`000000oooo0?ooo`1?0?ooo`030000003oool0oooo00H0oooo00070?ooo`030000003oool0oooo
04d0oooo0P00001]0?ooo`800000C`3oool00`000000oooo0?ooo`060?ooo`001`3oool00`000000
oooo0?ooo`1<0?ooo`030000003oool0oooo06l0oooo00<000000?ooo`3oool0C03oool00`000000
oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`1:0?ooo`800000L`3oool2000004`0oooo
00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3oool0B03oool2000007L0oooo0P00
001:0?ooo`030000003oool0oooo00H0oooo00070?ooo`030000003oool0oooo04L0oooo00<00000
0?ooo`3oool0N@3oool00`000000oooo0?ooo`170?ooo`030000003oool0oooo00H0oooo00070?oo
o`030000003oool0oooo04D0oooo0P00001m0?ooo`800000A`3oool00`000000oooo0?ooo`060?oo
o`001`3oool00`000000oooo0?ooo`130?ooo`800000P@3oool2000004D0oooo00<000000?ooo`3o
ool01P3oool000L0oooo00<000000?ooo`3oool0@P3oool00`000000oooo0?ooo`230?ooo`030000
003oool0oooo0480oooo00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3oool0@03o
ool2000008L0oooo0P0000120?ooo`030000003oool0oooo00H0oooo00070?ooo`030000003oool0
oooo03l0oooo00<000000?ooo`3oool0R@3oool00`000000oooo0?ooo`0o0?ooo`030000003oool0
oooo00H0oooo00070?ooo`030000003oool0oooo03d0oooo0P00002=0?ooo`800000?`3oool00`00
0000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`0k0?ooo`800000T@3oool2000003d0
oooo00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3oool0>P3oool00`000000oooo
0?ooo`2C0?ooo`030000003oool0oooo03X0oooo00<000000?ooo`3oool01P3oool000L0oooo00<0
00000?ooo`3oool0>03oool2000009L0oooo0P00000j0?ooo`030000003oool0oooo00H0oooo0007
0?ooo`030000003oool0oooo03H0oooo0P00002K0?ooo`800000>03oool00`000000oooo0?ooo`06
0?ooo`001`3oool00`000000oooo0?ooo`0e0?ooo`030000003oool0oooo09d0oooo00<000000?oo
o`3oool0=@3oool00`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`0c0?ooo`80
0000X@3oool2000003D0oooo00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3oool0
<P3oool00`000000oooo0?ooo`2S0?ooo`030000003oool0oooo0380oooo00<000000?ooo`3oool0
1P3oool000L0oooo00<000000?ooo`3oool0<03oool200000:L0oooo0P00000b0?ooo`030000003o
ool0oooo00H0oooo00070?ooo`030000003oool0oooo02h0oooo0P00002[0?ooo`800000<03oool0
0`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`0]0?ooo`030000003oool0oooo
0:d0oooo00<000000?ooo`3oool0;@3oool00`000000oooo0?ooo`060?ooo`001`3oool00`000000
oooo0?ooo`0[0?ooo`800000/@3oool2000002d0oooo00<000000?ooo`3oool01P3oool000L0oooo
00<000000?ooo`3oool0:P3oool00`000000oooo0?ooo`2c0?ooo`030000003oool0oooo02X0oooo
00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3oool0:03oool200000;L0oooo0P00
000Z0?ooo`030000003oool0oooo00H0oooo00070?ooo`030000003oool0oooo02H0oooo0P00002k
0?ooo`800000:03oool00`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`0U0?oo
o`030000003oool0oooo0;d0oooo00<000000?ooo`3oool09@3oool00`000000oooo0?ooo`060?oo
o`001`3oool00`000000oooo0?ooo`0S0?ooo`800000`@3oool2000002D0oooo00<000000?ooo`3o
ool01P3oool000L0oooo00<000000?ooo`3oool08@3oool200000<D0oooo0P00000S0?ooo`030000
003oool0oooo00H0oooo00070?ooo`030000003oool0oooo0200oooo00<000000?ooo`3oool0a`3o
ool00`000000oooo0?ooo`0P0?ooo`030000003oool0oooo00H0oooo00070?ooo`030000003oool0
oooo01h0oooo0P00003;0?ooo`800000803oool00`000000oooo0?ooo`060?ooo`001`3oool00`00
0000oooo0?ooo`0M0?ooo`030000003oool0oooo0<d0oooo00<000000?ooo`3oool07@3oool00`00
0000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`0K0?ooo`800000d@3oool2000001d0
oooo00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3oool06@3oool200000=D0oooo
0P00000K0?ooo`030000003oool0oooo00H0oooo00070?ooo`030000003oool0oooo01P0oooo00<0
00000?ooo`3oool0e`3oool00`000000oooo0?ooo`0H0?ooo`030000003oool0oooo00H0oooo0007
0?ooo`030000003oool0oooo01H0oooo0P00003K0?ooo`800000603oool00`000000oooo0?ooo`06
0?ooo`001`3oool00`000000oooo0?ooo`0D0?ooo`800000g`3oool2000001H0oooo00<000000?oo
o`3oool01P3oool000L0oooo00<000000?ooo`3oool04`3oool00`000000oooo0?ooo`3Q0?ooo`03
0000003oool0oooo01<0oooo00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3oool0
4@3oool200000>D0oooo0P00000C0?ooo`030000003oool0oooo00H0oooo00070?ooo`030000003o
ool0oooo0100oooo00<000000?ooo`3oool0i`3oool00`000000oooo0?ooo`0@0?ooo`030000003o
ool0oooo00H0oooo00070?ooo`030000003oool0oooo00h0oooo0P00003[0?ooo`800000403oool0
0`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`0<0?ooo`800000k`3oool20000
00h0oooo00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3oool02`3oool00`000000
oooo0?ooo`3a0?ooo`030000003oool0oooo00/0oooo00<000000?ooo`3oool01P3oool000L0oooo
00<000000?ooo`3oool02@3oool200000?D0oooo0P00000;0?ooo`030000003oool0oooo00H0oooo
00070?ooo`030000003oool0oooo00P0oooo00<000000?ooo`3oool0m`3oool00`000000oooo0?oo
o`080?ooo`030000003oool0oooo00H0oooo00070?ooo`030000003oool0oooo00H0oooo0P00003k
0?ooo`800000203oool00`000000oooo0?ooo`060?ooo`001`3oool00`000000oooo0?ooo`040?oo
o`800000o`3oool2000000H0oooo00<000000?ooo`3oool01P3oool000L0oooo00<000000?ooo`3o
ool00`3oool00`000000oooo0?ooo`3o0?ooo`80oooo00<000000?ooo`3oool00`3oool00`000000
oooo0?ooo`060?ooo`001`3oool010000000oooo0?ooo`3oool200000?l0oooo1P3oool2000000<0
oooo00<000000?ooo`3oool01P3oool000L0oooo00@000000?ooo`0000000000o`3oool:0?ooo`80
000000<0oooo0000003oool01`3oool000L0oooo0P00003o0?ooo`h0oooo0P0000080?ooo`001`3o
ool00`000000oooo0?ooo`3o0?ooo`h0oooo00<000000?ooo`3oool01P3oool00?l0oooo8@3oool0
0?l0oooo8@3oool00?l0oooo8@3oool00?l0oooo8@3oool00001\
\>"],
  ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.0526045, -0.0500105, \
0.00733523, 0.0118686}}],

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


(***********************************************************************
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[1717, 49, 56, 1, 27, "Input"],
Cell[1776, 52, 612, 13, 155, "Input"],
Cell[2391, 67, 788, 13, 235, "Input"],
Cell[3182, 82, 797, 14, 187, "Input"],
Cell[3982, 98, 675, 15, 123, "Input"],
Cell[4660, 115, 198, 4, 59, "Input"],

Cell[CellGroupData[{
Cell[4883, 123, 54, 1, 27, "Input"],
Cell[4940, 126, 17990, 268, 186, 762, 51, "GraphicsData", "PostScript", \
"Graphics"],
Cell[22933, 396, 130, 3, 26, "Output"]
}, Open  ]]
}
]
*)




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