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

                    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[     19760,        425]*)
(*NotebookOutlinePosition[     65025,       1680]*)
(*  CellTagsIndexPosition[     64981,       1676]*)
(*WindowFrame->Normal*)



Notebook[{
Cell[GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg<PAVmbKF5d0`40004k00003a000`40O003
h00O00=ggd[lB_`014[l00U__WooOom[WRij:WXj^e/mNol017oo00Ic_S9k
:WXfVeLlNml4Ool01W_O<Y/ZNS:KDaagg`Uoo`03Daa>o7oo00Ioo`0:Ige:
o7OOJgi:o7OOOomggd[lJgh2Ool00d[lFceoo`02Ool01g_ODa`fVbYj<Y]>
o6nn00=oo`05EcdbNbYjC_agg`02Da`8Ool00f^NC_`fV`02:WX00d;KIgio
o`03Ool01W_oDa`bVbYj?[]SO@Eoo`09Fcdj^bYj<Y]G77OOOomK?D[l00=o
o`05Da`^NRijDaako`02Da`2Ool00e/mB_aoo`07Ool00g>oEc`n^`02:WX0
0cZkFceoo`04Ool02UmM?[/ZNS9kCaac_WooHee:o7_o0goo00IOGCjk:WXZ
NT;KHgd2Ool00f=MB_ako`03Ool00fnnB_a__P03Ool01UmM?[/ZNS9kCaac
_P9oo`0;NomG?3JK:WXbNd[lJiioog_oGedn^`02:WX00dKKKkioo`06Ool0
0dklEcaoo`06Ool01EmMB_akgfMnA]/00RYj00Xn^fMmOomoofnnC_`bNbYj
=Y]K?@Aoo`06Hgdn^bYj<Y]C77_o17oo00Y[WTKK:WXZNTKLJiioofnnB_a_
_P9oo`08IghfVbYj@]]__V]nB_agg`9oo`08Mmm6g2Yj<Y]OGG_oB_aSG@=o
o`06Kki6fbYj;WY:o7>o0goo00=K?D[lOol00goo0F]n0D[l0GOO00001G>n
>[/j^aYJ0QT00SZk00Y[WWooOomSOBYj>[/VFP8I9UYgg`=oo`07KihVFSZk
:WX26AYJKkh00goo00MggaiJ>[/bN`8I4SYWOP08Ool00dkl0QU__P06Ool0
2RYj5SYooeLm0QU_WWooKih26ELm0Woo00`26CZkOomoofnn6UX26CZkB_`n
^a8j0QT2Ool014;K0QTNFSZk0QiJ00<F>RYjOol01Woo00UK?@8I0QTbVd[l
A]`VFP8IA]`00Woo00Qkgbij0QTn^d[l:WX26Dkl0goo00XfV`8I<W]:o3Zk
3SY:o7oo>[/26@9oo`08?[/26BIJ>[/NFR9J6UXZNP9oo`03>[/26Goo00Io
o`0:Kkh26@8I:WY6g4[l<W/26C9kNol2Ool02d;K0QTZNT[l?[/B>SZkOom:
o08IMml00Woo00`j^`8I:WY:o4KL9UX26F=mOom:o08IMml3Ool00f=m0QUS
O@02Ool06D;K0QTZNT[l?[/B>SZkOomggbIJ0QTfVd[l@]/F>P8IMmmG?@8I
9UY6g4KK8UX>>V^N00Ioo`03?[/26G_O00Ioo`0B5SXZNVnN0QTF>T;KB_`^
NP8IEceoo`8I3SXj^d[l>[/26CZk0Woo00QC708I:WY:o3jk0QTZNW_O0Woo
01EK?@8I6UY6g4KK7UX26GooHgd26F=mOomWOP8I4SXj^c9k0QT^NP8IKih0
0Woo00PZNP8I@]]6g5<LMml26D[l0Woo00QWOPhj6UY6g4KK4SXF>V^N0Woo
00<j^`8IOol00goo0ELm0@8I0FnN0003Ool00cZk0QUoo`08Ool00fMn5SXZ
NP07Ool016^N8UXNFW_O1Woo00Ac_Rij4SYc_`Moo`03Jih26ELL00Eoo`0;
Mml26D[lOomG?@8IKiioofnN0QUG?@02Ool01`8I>[]oogoo:WXB>VnN00=o
o`06Nom>o7ooJih26Cjk0goo00=OG@hj:WX01goo00=G?D;KMml017oo00M2
f`8IIgeood[l0QUWOP03Ool01d;K0QU[WWooEa`26DlL00=oo`09MmmOGGoo
>[/26GooMml26CZk00=oo`03Fed>>RYj009oo`03>[/26Goo00Ioo`03Kih^
NV^N00Aoo`07Fed26DklOomOG@8I@]/00goo00Ykge/mOom:o08IMmmooeLm
0QU?70Aoo`06Ige[WWooB_`26GOO0goo00MSO@8IHgeooemM0QU2f`03Ool0
1W_OFceoocZk0QUWOPAoo`04Ecakgf=mJgh3Ool00g_o5SXj^`06Ool00f=M
0QUOG@05Ool01F^N0QUG?7>nFed017oo00Dj^a8jOom>o7_O00=oo`06Ea`2
6F^NKih26D;K0goo00QWOP8IA]aoog>o3SXZNW_O0goo00UC77ooHgd26F=m
Oolj^`hjLkl00Woo00Q__RYj0QU_WWooLkh26DKL0goo00Qgg`8IB_aoog_o
6UXZNW_O0Woo00=ggaYJ9UX00Woo00<j^`8IOol00goo0ELm0@8I0FnN0003
Ool00cZk0QUoo`09Ool00f=M0QUOG@07Ool00f^N0QUC7007Ool00gOO3SY2
f`08Ool00aiJ:WYoo`04Ool02e/m0QU[OWooEcd26FnNOom_WP8IEcd00Woo
00H26CZkOom[WP8IDa`7Ool00e<L0QU__P04Ool2:WX7Ool00gOOOomoo`04
Ool01W>o0QU2fgoo4SXfV`Aoo`06Mml26DKLOolRFQiJ1goo00Hj^`8IOom_
WP8IEcd4Ool2:WX2Ool00cZk0QUoo`06Ool00g_OOomoo`05Ool01QiJ6UYo
ocJK3SYko`Ioo`06B_`26GOOOolVFR9J27oo00=:o08IMml00goo00MSO@8I
HgeoocJK3SYko`05Ool00gOO0QU6f`0=Ool00aYJ:WYoo`05Ool00g_o3SXn
^`05Ool00dkl0QUc_P06Ool00d;K0QUgg`05Ool01U]M0QUSOD[l0QUgg`Ao
o`06>[/>>WooEa`26F]n1Woo00ASO@8IHgeoo`8ZNPAoo`07Ecd26FnNOom_
WP8IEcd00goo00Mgg`8IB_aoof=M0QUOG@04Ool01ULl0QU[WWoo>[/26@Ao
o`5G?@426@5_WP000goo00<j^`8IOol02Woo00<F>SJKOol01goo00<ZNQiJ
Ool01goo00<n^`hjNol01goo00=>o08I:WX012Yj0QHj0Woo00MG?@8IKiio
ofnN0QUG?@02Ool01P8I>[]ooe]M0QU[WPMoo`03?[/26Goo00Aoo`8ZNPio
o`06Lkh26CZkLkh26E<L1Goo00DNFS9kNol26D;K00Moo`07>[/26GooNol>
>S9kNol00goo0RYj0Woo00<j^`8IOol03Woo00DJFP8IOolF>S:K00Moo`06
B_`26GOONol26DKK27oo00=:o08IMml00goo00ISO@8IHgeooaHj<Y/6Ool0
0fMn0QUOG@0:Ool01F^NFcdbV`8IB_`01goo00<n^`hj:WX012Yj00<B>RYj
Ool00goo00Ec_UmM@]/26BYj00=oo`08MmmSODkl4SX>>WOO<W/NFPEoo`06
Da`26G>n@]/26G_o1Woo00MSO@8IHgeoodKK0QU[WP03Ool01eLm0QU_WWoo
Kih26ELm00=oo`07Mml26D[lOom?708ILkl017oo00I[WP8IFeeoocZk0QT4
Ool1Ecd10QT1Kih000=oo`03>[/26Goo00Eoo`07Jii6g3ZkA]a[WSZk0QT0
0goo00Q__T[l>[]2ffMmB_`26G>o0Woo00Qc_dkl>[]2femMEc`26F^N1goo
00=[WP8I:WX00d[l00<n^`8IB_`00Woo00MG?@8IKiioofnN0QUG?@02Ool0
1P8I>[]ooeLm0QTbV`Hj^`03Lkhj^`8I00Eoo`8ZNPeoo`07Nmlj^`8IEaa_
WP8IEcd01Goo0RYj00=gg`8IB_`01goo00`j^`8IOomooemM0QTF>TKKEaaO
GAiJ:WX2Ool00cZk0QUoo`0=Ool01TlL0QTfVgoo0QTj^`Moo`06B_`26GOO
Mml26B9J1SZk00EK?GooB_`26GOO00=oo`06Hgd26F=mOol26CZk1Woo00=S
O@8I;WX01SZk00A[WWooFcdB>P826@033SY6fg_o00Moo`03Hed26C:K00=:
o003>[/26ELl009oo`03JihRFP8I00826@05=Y]c_gooMmlfV`030QT00bIJ
Igioo`02:WX5Ool01ELm0QU_WSZk0QT01goo015SO@8IHgeoogOO8UX26CZk
CaaK?D;K0QU_WWooKih26ELm00=oo`07Mml26D[lOom:o08IMml017oo00I_
WP8IEceoocZk0QT4Ool1Ecd10QT1Kih000=oo`03>[/26Goo00Aoo`03Ea`2
6A8j008fV`083SXB>P8ILkmooemM0QT>>P8fV`8B>P0<0QU[WWooJih>>P8I
<Y/j^aHj4SX26EmM27oo00<NFRYjOol00Woo00=K?@8IJgh00Woo00MG?@8I
KiioofnN0QUG?@02Ool01P8I>[]ooemM0QU:o0AG?@06>[/26FnNA]/26G_o
17oo0RYj2Woo00=[WU<L<Y/00P8I00D^NW_oLkh26E<L00Eoo`056UXbVg_o
0QU2f`07Ool00cZk0QUoo`02Ool01g>nDa`j^bYj3SX26BYj009oo`03>[/2
6Goo00Uoo`0:KkiG?CZk4SX26AHjKkiooaYJ<W/7Ool01T[l0QUgggoo0QTb
V`AG?@07Da`26D[lOom:o08IMml00goo00ISO@8IHgeooaYJ<W/6Ool00f^N
0QU2f`04Ecd024;K0QUSOFnN0QTNFU/mKih:Ool00g_o3SXn^`03Ool00dkl
0QUc_P02Ool01AHj3SY?76]nNol00goo00Dj^`8I@]]WOGOO00=oo`03<Y/J
FWoo00Aoo`06Da`26G>n@]/26G_o1Woo00=SO@8IHgd00Woo00EkoemM@]/^
NQYJ00826@05KiioofnN0QUG?@03Ool01gOO0QU:o7ooDa`26G>n00Aoo`06
Jgh26EmMOolj^`8I17oo0ELm0@8I0FnN0003Ool00cZk0QUoo`03Ool017OO
0QTRFWOO0Woo00EkgcJK0QU_WWoo008B>P0;LkioogooNom2f`8IHgeoobIJ
0QU[WP03Ool00dkl0QUG?@08Ool00dkl0QUc_P02Ool00c:K6UYoo`02Ool0
1eLm0QU_WWooKih26ELm009oo`060QTj^gooLkh26E/m17oo00I:o08IMmmO
G@8IHed4Ool2:WX8Ool026nn9UX26@8I3SXfVe/mNol2Ool00aHj<Y]oo`03
Ool01g>n0QU>o7oo<W/F>W_o00Ioo`03>[/26Goo00Moo`8ZNP9oo`03>[/2
6Goo00Moo`03NmlfV`8I00826@03;WYC77OO009oo`03@]/26GOO00Ioo`06
B_`26GOOOolbVbij17oo00M_WP8IEcaood[l0QUgg`03Ool01e]M0QUWOGoo
@]/26GOO00Eoo`03Nol>>Tkl00Aoo`06Ecd26F^NEcd26F]n3Goo00<n^`hj
Nol00Woo00LNFRijOomoofnN0QUC7006Ool00`8I<Y]oo`05Ool00dkl0QUc
_P04Ool01S:K5SYooe]M0QUSG@Ioo`03Hgd26F=m00Moo`07Ecd26FnNOom_
WP8IEcd00goo00Mgg`8IB_aoofMm0QUOG@04Ool01U<L0QU__Woo>[/26@Ao
o`5?70426@5__P000goo00<j^`8IOol00goo00=OG@8IEcd017oo00I:o08I
Kii[OP8IB_`4Ool01ULm0QUSOG>n0QTj^`Aoo`03Hgd26ELm00Qoo`07Kkh2
6ELlOomgg`8IC_`00goo00MG?@8IKiioofnN0QUG?@02Ool01`8I>[]oogoo
>[/NFWOO009oo`08NmlJFRijOomkoaYJ8UY__P9oo`03MmlNFRYj00Qoo`04
7UX26D;KJih6Ool00e<L0QUK?@02Ool027_o>[/26FnnOomOG@8IA]/3Ool0
1F]nEcaoocZk0QT00Woo00=c_g>nOol00Woo00=c_P8I?[/00Woo00<j^`8I
Ool01goo00Dn^`8I<Y]WOG_O00Eoo`04Jih26CZkNol2Ool02VnNCaaood[l
0QUgggooHgd26E]M0goo00Q6g08IKkiood[l0QTfVg>n0Woo00PfV`8ILkmo
of^N0QTj^g_o0Woo00I_WTlLOom:o18jKkh3Ool01RYj6UYoof=m0QUK?@=o
o`03JgiSOGoo00Moo`07Igd26F=MOom[WP8IFcd00Woo00=gg`8I?[/00goo
00Ic_ULmOolZNR9JNol2Ool01g_OC_aoog>n0QTfVg_o009oo`08Fed26Dkl
OomkgaYJ8UYc_`9oo`06Mmm2fgooHgd26F=m0Woo00=WOWooOol00Woo00Lf
V`8INmmoofnN0QUG?@03Ool00gOO0QU:o002Ool00b9J7UYc_`02Ool00fnN
5SX^NP02Ool023Zk0QTn^gOOOomkobIJ3SX1Nol000=oo`03>[/26Goo00=o
o`03Ecd26F=m00Aoo`06A]/26GOOHgd26ELm17oo00IC708IJii_WP8IB_`4
Ool00emM0QUOG@09Ool01RIJ<W]ooe/m0QU[WP=oo`07Ecd26FnNOom_WP8I
Ecd00Woo00`26CZkOomoog_O:WXB>TKKA]`JFQ8jKih2Ool00f]n4SX26@02
8UX20QT00bYjOomoo`05Ool00f]n0QTn^`09Ool01cZk0QTZNSZk5SX26EmM
00=oo`0:A]`26AYJ>[/VFP8IB_aoocZk0QT2Ool01F=m0QTNFSZk=Y/00Phj
00E[WWooOolj^`8I00Moo`03Nol26AiJ00Uoo`0;Ea`26AHj>[/ZNP8I>[]o
od[l0QUgg`02Ool01dkl0QTfVd[l<W/26Dkl009oo`08B_`26Cjk0QTVFQHj
0QTn^`=oo`07Ea`26AHj>[/ZNP8I>[/00Woo00LfV`hj@]]:o29J3SYWO@02
Ool01cZk0QT^NSZk7UX26ELm00Uoo`064SY2fgooC_`26GOO0goo00mC708I
8UXj^bYj0QTj^gooJgh>>QHj>[/bV`hj0QT00Woo00MOG@8I5SXj^bYj0QTj
^`03Ool00f]n4SX>>P02=Y/20QT017ooHgd26F=m0Woo00T26A8j=Y/j^aYJ
0QU:o7ooHgd01@8I00A:o7OO0QU:o09oo`03KkhF>Phj008fV`030QTRFWOO
009oo`08>[/26Cjk0QTZNQ8j0QU>o05oo`0000EkofnNKihbV`8I00Aoo`03
Ged26E]M00Aoo`06:WXB>WooJih26DlL17oo00Hn^`8INmmgg`8I@]/4Ool0
0dkl0QU__P09Ool01E<L0QUggc:K7UX017oo00MG?@8IKiioofnN0QUG?@02
Ool00eLmHgeoo`03Ool01E/m@]/j^dlLLkl017oo00Mc_dkl>[]2ffMm9UXZ
NP07Ool00f=m0QUG?@0:Ool01EmM@]/j^dklKih01Goo00U[WT[l>[]2femM
Nomoof=mEcd00Woo00Mgge/mA]/j^cjkCaac_`03Ool00cZk0QUoo`06Ool0
0gOO0QTj^`0:Ool02VnnC_`j^d;KFcekggooJgiG?G_o0goo00E[WT[l>[]6
ffMm00=oo`07JgiG?G_oJgi2fcjkFcd01Goo00I__Tkl>[]2fe/mNml3Ool0
1EmM@]/j^dklKkh017oo00IOGD;K>[]6g6=MNol9Ool01D;K4SYkoaiJ<Y/0
1Goo00I[OT[l>[]2fe/mMml2Ool01W>nCa`j^cjkDaa__P=oo`05Kki>o3Zk
@]]OG@05Ool02WOOEc`n^cjkDaac_WooLkiG?G>n0Woo00IOGDkl>[/j^dKL
Igd2Ool017>nB_`26CZk0ULm00A[OW_oEce[OP=oo`06MmmC73jk?[]G?7_O
0goo00MSOELmOomSOD;K?[]OG@02Ool00003Kih26@8I00826@Aoo`03Nml>
>S:K00=oo`03Jih26DKK009oo`036UXRFWoo009oo`03Lkh>>SJK009oo`03
;WXB>W_O009oo`03NmlJFR9J00Yoo`05Kkh26Dkl0QU>o004Ool01eLm0QU_
WWooKih26ELm01Ioo`8ZNPMoo`03Mml26CJK00Eoo`03Gee__Woo025oo`03
>[/26Goo00Moo`039UXF>W_O00Aoo`03KkiSGGoo04Aoo`05Igd26Dkl0QUK
?@0eOol00fnN0QUG?@0KOol0009oo`03JihVFP8I00Eoo`05Ec`26CZkHeeG
?@025SX02gOOOomoof=M0QTbVemMFedNFPhjKih00Woo00=[WPhj:WX00UmM
00<ZNP8IIgd02goo00@VFPhj0QU[WPAoo`0;Ecd26FnNOom_WP8IEceoog_O
:WXj^`0BOol2:WX8Ool02E<L0QTbNemMHgeG?2ij0QU_WP0DOol00cZk:WYk
g`0;Ool00cZk0QUoo`07Ool02F]n3SXNFULmHgeKGCZk0QUG?@0:Ool00dKL
:WY__P0iOol0118j3SX26GOO9goo00=OGBYjGed02goo00=_WP8IEcd00goo
00=__RYjA]`05Goo0003Ool00emM:WYoo`05Ool01U]M8UX26@8I=Y]c_PAo
o`06IgdZNP8I0QT^NV^N17oo00I[WS9k0QT26BIJIgd<Ool00eLl:WXbN`05
Ool02eLm0QU_WWooKih26ELmOomkgbYj>[/04Woo0RYj2Goo00=OGBIJ0QT0
0P8I00<ZNU<LNol057oo00<j^bYjNml02goo00<j^`8IOol027oo00=[WSJK
0QT00P8I00<NFT[lLkh02Woo00=6g2YjKkh0>Goo00=:o2Yj?[/0:7oo00=O
GBYjGed02goo00=kgf=mLkh00goo00=__RYjA]`05Goo000=Ool00g_ONomo
o`07Ool2Nml8Ool00g_oNmmoo`0EOol01fnNEcegggooMmmG?FnN01Ioo`9C
70]oo`03Nmmgggoo02Eoo`03HgeG?Goo00Yoo`03Nomggg_o0:1oo`00\
\>"], "Title",
  ShowCellBracket->False,
  CellMargins->{{0, 0}, {0, 0}},
  Evaluatable->False,
  CellFrameMargins->3,
  TextAlignment->Right,
  ImageSize->{315, 15},
  ImageMargins->{{0, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  Background->RGBColor[0.289067, 0.0156252, 0.796887]],

Cell[CellGroupData[{

Cell[GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg<PAVmbKF5d0`40001@0000:A000`40O003
h00OD7oo001@Ool001Eoo`04IcUW6F]KH_PgOol001Aoo`07DYD02DXCE[H0
248AOoh0=Goo000COol01DiC00X02dhcF[L00P0:00=24WooOol0<goo000B
Ool02U[G00XD30@;CS=J]`0:50`02TYC=7oo000AOol027>L6:/@31@<10]>
<eZg00X250`00`P:IcUoo`0bOol0015oo`0=>M082a@<40`02TXcE[H02Q0;
50`<2c5^Nmh0<Woo000@Ool02VLI10XD310<;DheSekGHaP]KCE_0Q@<00<0
2U[GOol0<Goo000@Ool01SV`00X<2a0[@O5_NP9oo`07Mke:<Q1;30/02bd^
Nmh0<Goo000?Ool01WNm=JleT3F@>JmRm`Aoo`06JeXmdCF@=I0aSg>L<Goo
000?Ool00fmkHaQS6002HaP00gNmOomoo`02Ool00gNMHaQNn002G_P00f]J
Oomoo`0_Ool000moo`07<Fh02@0:00XDJU:EOoh00goo00=JeQb[00X00P0:
00<Y;G_NOol0;goo000>Ool00g_N8<`@300250`021A[BS9JeWNmLiaF]DiC
64/350`00aA;Liaoo`0@Ool00goOOomog`04Ool00goOOomoo`0=Ool00goO
Oomoo`05Ool000ioo`03Li`HS1@<008D300866`L[1b/CU=J]Qb[50/H;0<D
300?30Y_O7ooOomNfFmLG]UooeZhJe]RnGooF]Q_Ff;i009W6P0@EWM[>eZG
IcYNfEZhI_YFUf;IG]UW6UZhIaYNf5kIHaT2EWL026;IF[QW6V/kDWI_FeJG
FYL2G]T00eJGF[Qoo`02Ool000ioo`03IcT02@@;00<82`0510/02DXcF[H0
200200X0<P@:00X42P09Je]oog=lBOA5e5JHIaY:547CEYQW6TXEAMAJV7_N
Ke]5m6;jF[QNfF/kF[QRnThfCUI_G4hfDUIS6UJGEWM_FekICUIBMeJGOomW
>dXEG[UBMVLjG]UFMfKjFYP3Ool000ioo`0=Lia1lDGbAQ9:<dXbBU96<VLI
Kg]BU5JeF]H00eJf01AJeWNmOomcO6mLJc]cOFLjKga[Fg>MIcYcO6]KLgag
_W^nJa]_G5kH0VLJ00mJV5ZgKgag_VLJMie[FfLJIc]W6W_NJc]_O6mKKe`0
0Woo00QW6fmLMieFMekIKgacO6ml0goo000>Ool01WNl=HleScW@=HlaK`8a
S`0:;Fl]CS6@=I0aKcF?>O4id3F_Li`DOol00eZHLgeoo`0AOol00f/kH_Uo
o`05Ool000moo`0@>K1BM7>mJeY:Db3]9@eBUEZf:BhY;DidJeYcWE[F;DdE
Ool00g^nOomoo`0AOol00g_ONmioo`05Ool000moo`03JeY24Goo009oo`9k
gPMoo`03@Q5Rn7oo031oo`0047oo00=1l6LIOol02Goo00=_NcF_Ool0<Goo
000@Ool016]J;Ddml4ic0U[G00Q:DdHbE[IJedXbAQ4aSFLI<Woo000AOol0
0fLiLia_F`02CW@01g=lLia>M4YCJe]ggVmk03=oo`000Woo00=[FfLjIcX0
0VLj16LJ1fLj00][Ff]jE[EBU5:dE[AB]5:DHcQ_Nf/k00=W>P=W6PAW>P9W
6PIW>P03IaYW>VLj00=W>P=W6PQW>P9W6PYW>P03Je]oogoo005oo`000goo
00Ag_G>LLiacW0Aoo`9cW00=MkecW7NmMkekgWooNmic_5kg9BTQ25JeLi`0
0W_N00AcW7NmLiag_@9oo`03NmicW7Nm009cW09oo`05Mke[FUkgHaQ_N`02
Ool01GNmLiacW7>LMkd00goo00Ig_FmkMkecW6]JLi`2Kg/2Ool02W>LJeYc
W6]JLka[FU[FE]ES>G_N17oo0002Ool016]J>LiJeVLi0UJe00YooWooNmiN
mcF]<HaF]F]J=LeW>0=oo`04Nmhe[BDYLi`2Ool01G>LDY@YBTHaJeX00Woo
00eg_E[F;F/mkf]JOomO5d8`HaQcW6mkE[E6<@02Li`03eJe=JeW>G_NNoiF
]GooNmiNmbU:AU5[FTYB@Q1g_@02Ool02g_NCW<U:EkgDY<mkf]JLiaWFDYc
Mkd00goo0002Ool00dicG_Moo`02Ool00e:DG_Moo`02Ool01Tic>Lioogoo
Kg]kgP=oo`04Nmhe[BDYKg/3Ool00g_N9BUW>@05Ool01SW=CYAooe[F=Jeg
_@Aoo`05F]HaS7NmMke24002Ool02VLi8@Q[NWooMkdU:FLiOom_Vch?17oo
00E>TcW>Oom>Tfmk00=oo`03F]INmgoo009oo`000Woo00=[NW_MOol00Woo
00=F]DHaOol00Woo00=>LcW>Ool01Woo00AkgSF]9BU_N`=oo`03MkdYBV<H
00Aoo`06NohicU:DLi`U:Ekg1Woo00@icDIBMke6<@9oo`07@Ple[E:COomg
_BDYIcT00Woo00U>LfmkOomoog_n<H]JmWooLi`017oo00=6<EJeOol00Woo
0006Ool00ekg9BUJeP03Ool00dic>Lioo`06Ool017_N=JdU:Fmk0goo00=g
_BU:IcT01Goo00DicU:DF]HU:Fmk00Ioo`0=CW<]Jg>LBU9oog>L9BUW>F<H
Kg]g_BDYIcT00Woo00M_NTYBMkeg_F<H:DYcW004Ool016mkAS4Q26]J0goo
0004Ool01FLi?NlQ24YBNmh00goo00=>LcW>Ool01Woo00AkgSF]9BU_N`=o
o`03Mkd]Jd8@00ABU006CW<]JdjCE[DYBW>L1Woo00eF]BDYJeY>LgooCW<i
cWooNmiJeWNm9BUW>@03Ool01DHaCW=F]CW>AS400goo00EkgTic9BT]JUlG
00Aoo`000goo00ABU1cW>LiS60Eoo`03CW<icWoo00Ioo`04Nmhe[BDYKg/3
Ool00gNm:DYNm`04Nmh01WNm=Le>Te[E9BU_N`Ioo`07D[@YBW>LDYAcW2U:
HaP00Woo00ANmf<H:DYW>@=oo`9[FP03OolicV<H009oo`05Noi2<2U:DYAg
_@05Ool0009oo`04Kg/YBE[FNmh6Ool00dic>Lioo`06Ool017_N=JdU:Fmk
0goo00=g_BU:IcT017oo00IooSW>CY=_Nb4XGaL6Ool01ch?AS5oodicBU8e
[G_N009oo`04Nmi6<BDYIcT4Ool015JeJeXaS7Nm0Woo00=[Nbf;Kg/01goo
0002Ool00f]J?Nmoo`02Ool00fLiGaMcW002Ool00djC>Lioo`02Ool026<G
OomoogooNmhe[BDYKg/3Ool00g_N:DYW>@05Ool01SW>CW=ooe:D>LikgPAo
o`07HaPYJW>LOolmkb4XG_L017oo00=JeQcWIcT017oo00=W>BU9CW<00goo
00=_Ncg_Ool00Woo00=S67_NOol00Woo0002Ool047_NCW=_Ng_NLia246MI
=JeNmVLh@Q0e[5kgHaQ:LTHa0goo00AkgSF]9BU_N`9oo`05NmiS62DYDYAg
_@03Ool04VMI;H/mkf]JOomFeDYBJeYg_G>LG_M23f]JOomW>Be[=JekgPAo
o`05MkdaS4YBJeYkgP02Ool00g_N=Je[F@04Ool2F]H00f]JG_M6D@04Ool0
00=oo`09NmiJeTicDYA[FWooG_M_Ng>L009g_@04Lia_Ne[fIcT3Ool017_N
=JdU:Fmk0Woo00Eg_F<HE[ENmg>L00=oo`=S6008IcUoogooMkeW>F]JIcU[
FP9oo`04NmiS66<HLi`6Ool017NmLiacW7_N0goo00=cW7_NOol017oo00A_
Nf<HHaQkgPAoo`0047oo00=6<F]JOol00Woo00AkoSF]9BUcW0Aoo`06@S1k
gWooIcU[FWoo0W_N00A[FWNmOom_N`9oo`05NmicW7ooKg]W>@02Ool2Li`2
Ool2JeX01GooKg]oogooKg/00Woo00=kgVmkOol00goo00IcW6]JJeYkgWoo
Li`5Ool0011oo`03F]HYBUJe009[FP04HcP]Jb48F]H2JeX03VLhCW<]JgNm
Nmi_Nf]JOomg_F]JG_McW7ooIcT2Ool01F]JHaQoof]JIcT00Woo00QF]FLi
Oomoog>LJeYoofLi0Woo00E[FW_NOomg_FLi00=oo`08Nmi[FWooOom[FWoo
G_Mg_@Aoo`0047oo00Ic_BU:=Je6<DYBAU44BU802dIAAS56<C6<MkekgVmk
JeYoog>LF]H00W>L00MoofLiOomoof]JKg]g_@02Kg/2Ool026<HJeYkgW_N
HaQg_GooIcT2Ool00fLiNmioo`02JeX02gNmOomoog_NJeYkgWNmKg]oof<H
Nmh017oo000AOol00e[FMkeoo`09Ool00fLiNmioo`02Mkd00gooNmig_@02
Nmh00gooMkeoo`02Nmh017ooNmig_F]J0Woo011[FVmkOomoofmkLiaoogNm
OomkgVLiLiaoogNmOomg_@=oo`03Nmi[FVmk009oo`03JeYcW7oo00=oo`00
D7oo001@Ool00001\
\>"], "Title",
  ShowCellBracket->False,
  CellMargins->{{0, 0}, {0, 0}},
  Evaluatable->False,
  CellFrameMargins->4,
  TextAlignment->Right,
  ImageSize->{80, 41},
  ImageMargins->{{0, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  Background->GrayLevel[0]],

Cell["Mathematica Animations for Teaching Undergraduate Economics", "Title"],

Cell["\<\
Craig Marcott
University of St. Thomas\
\>", "Author"],

Cell[CellGroupData[{

Cell["Macroeconomic Animations", "Section"],

Cell[CellGroupData[{

Cell["Visualizing Phillips Curve Data", "Subsection"],

Cell[TextData[{
  "Here are some animations of United States Phillips curve data showing the \
differential effects of a tight money policy in the early 1980's.\n\t1.  ",
  ButtonBox["White v. Black",
    ButtonData:>{
      URL[ "http://milkweed.econ.stthomas.edu/~csmarcott/phillips1.nb"], 
      None},
    ButtonStyle->"Hyperlink"],
  "\n\t2.  ",
  ButtonBox["White Men v. Black Men",
    ButtonData:>{
      URL[ "http://milkweed.econ.stthomas.edu/~csmarcott/phillips2.nb"], 
      None},
    ButtonStyle->"Hyperlink"],
  "\n\t3.  ",
  ButtonBox["White Women v. Black Women",
    ButtonData:>{
      URL[ "http://milkweed.econ.stthomas.edu/~csmarcott/phillips3.nb"], 
      None},
    ButtonStyle->"Hyperlink"],
  "\n\t4.  ",
  ButtonBox["White Men v. White Women",
    ButtonData:>{
      URL[ "http://milkweed.econ.stthomas.edu/~csmarcott/phillips4.nb"], 
      None},
    ButtonStyle->"Hyperlink"],
  "\n\t5. ",
  ButtonBox[" Black Men v. Black Women",
    ButtonData:>{
      URL[ "http://milkweed.econ.stthomas.edu/~csmarcott/phillips5.nb"], 
      None},
    ButtonStyle->"Hyperlink"]
}], "Text"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
A Construct for Extracting the Unemployment Rate from a Labor market\
\>", "Subsection"],

Cell[TextData[{
  "When there is an aggregate labor market it is possble to",
  ButtonBox[" extract the unemployment rate",
    ButtonData:>{"speedo1.nb", None},
    ButtonStyle->"Hyperlink"],
  "."
}], "Text"]
}, Closed]],

Cell[CellGroupData[{

Cell["A Geometric Macroeconomic Model", "Subsection"],

Cell[TextData[{
  "The following links are to animations of a geometric macroeconomic model \
described in the paper, ",
  StyleBox["Computer Animation of a Geometric Macroeconomic Model",
    FontSlant->"Italic"],
  ", by Craig Marcott and Robert Riley.\n\t",
  ButtonBox["Increase money supply",
    ButtonData:>{"money.nb", None},
    ButtonStyle->"Hyperlink"],
  "\n\t",
  ButtonBox["Cut tax rate",
    ButtonData:>{"tax1.nb", None},
    ButtonStyle->"Hyperlink"],
  "\n\t",
  ButtonBox["Increase tax rate",
    ButtonData:>{"tax2.nb", None},
    ButtonStyle->"Hyperlink"],
  "\n\t",
  ButtonBox["Favorable supply shock: case 1",
    ButtonData:>{"as1.nb", None},
    ButtonStyle->"Hyperlink"],
  "\n\t",
  ButtonBox["Favorable supply shock: case 2",
    ButtonData:>{"as2.nb", None},
    ButtonStyle->"Hyperlink"],
  "\n\t",
  ButtonBox["Unfavorable supply shock: case 1",
    ButtonData:>{"as3.nb", None},
    ButtonStyle->"Hyperlink"],
  "\n\t",
  ButtonBox["Unfavorable supply shock: case 2",
    ButtonData:>{"as4.nb", None},
    ButtonStyle->"Hyperlink"],
  "\n\nHere are some four-quadrant animations showing just AD-AS.\n\n\t",
  ButtonBox["Cut the tax rate",
    ButtonData:>{"tcut.nb", None},
    ButtonStyle->"Hyperlink"],
  "\n\t",
  ButtonBox["Unfavorable supply shock",
    ButtonData:>{"as5.nb", None},
    ButtonStyle->"Hyperlink"],
  "\n\t",
  ButtonBox["Favorable supply shock",
    ButtonData:>{"as6.nb", None},
    ButtonStyle->"Hyperlink"]
}], "Text"]
}, Closed]]
}, Open  ]]
}, Open  ]]
},
FrontEndVersion->"4.0 for Microsoft Windows",
ScreenRectangle->{{0, 1024}, {0, 695}},
ScreenStyleEnvironment->"Presentation",
WindowToolbars->{},
CellGrouping->Manual,
WindowSize->{1016, 614},
WindowMargins->{{5, Automatic}, {Automatic, 3}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
Magnification->1,
StyleDefinitions -> Notebook[{
  
  Cell[CellGroupData[{
  Cell["Style Definitions", "Subtitle"],
  
  Cell["\<\
Modify the definitions below to change the default appearance of all cells in \
a given style.  Make modifications to any definition using commands in the \
Format menu.\
\>", "Text"],
  
  Cell["\<\
Below is a PICT header for use with all WWMC notebooks. Copy and paste this \
cell at the top of your notebook. \
\>", "Text"],
  
  Cell[GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg<PAVmbKF5d0`4000:800006B000`400?l00000o`00003oo`00003o
000008X00000003o00000?l00000RP0000000?l00000o`00002:00000000o`00003o000008X00000
000:0000000>05eMG@2l_;`0jn_[0>c/k031`L407QhN0000000L71`0QXJ60<[:bP3[jn/0gmoO0:^[
Z`1ADE420000000;06UYJ@3GemL0e=CD055AD@0000009BDU0<S8b03De=@0bl_;01DE5@1RHV800P3F
e]H01P20P8000000000000000000JFUY0=KFeP80dM7A00h0dm?C0=KFeP16ATH0ATI60=CDe03EeMD0
TY:B00X:2P2b/[80e=CD0=WIf@1^KVh0HV9R0=KFeP80dM7A01d0dm?C0=SHf01PH600;2`/0=7Ad@3F
e]H0P820000000061PH0[Jf]0=GEe@3De=@0DE5A0000000=3@d0Ng]k0<c<c03]kNd0iNGU09bLW00@
4100`/;20=;BdP3AdM40d];B0=?Cd`3<[[@0/0HU0:l07P050:l080030:l07`2_01h0[`0O0080[`0P
0P2_01l0102d1B<0/P<S0;838`2b0b<20;838P<0/P<S00<0/P<R0;438@2b0b800P2b0b<30;838P@0
/P<S00<0/@<Q0;838P2b0b<00`2b0b<00`2a0b40/P<R0;838`0<0;838`030;838P2b0b<0/P<S0080
/P<S0P2b0b840;838`80/P<R0`2b0b<00`2b0b80/@<Q0;838P040;838`030;D3902F1Al03`l?0?l0
3`l?00<07QhN000000000000fP00000000T0000000<0Rh^;0?ooo`3oool00`3oool00`0T92@07alO
0=WIf@060?ooo`0307]kN`000000Ph>30080oooo00<0Hf=S0000002n_[h00`3oool01@0K6a/0O7al
0?ooo`3oool0WinO00<0000000<0QHF50?ooo`3oool00`3oool01P1IFET0F5QH0?ooo`3oool0/K6a
075aL@80oooo00<0h^;R01XJ6P1mOGd01@3oool01`1iNGT0>3Ph0?ooo`3oool0X:2P00000024Q8@0
0`3oool00`1SHf<01@D50;fm_@040?ooo`030=cLg00G5aL0m?Cd00@0oooo00<0nMOM0=L7;P3E02@0
1@3F02L01@3E0240f0/`0=L4:`3F02H0eP0W0080e`@Z00@0e`D/0=H1:03F02L0eP0W0P3G12X30=H0
9`090=D08@3H2c00e`@[0=H09P3F02L0e`L]0=D08P3G0bX0eP<Y0080eP0W00X0e@0S0=P9;`3F0BL0
eP0U0=H09`3F02P0e@0R0=L9;P3F0BP0eP0U303F02L0203G1R`0eP4X0=H09`3F02L0eP0V0=L6;03F
0RP0eP0V0P3F02L00`3F02H0e`L]0=H09`030=H09`030=H09@3H3C80eP0U00D0eP0W00<0]`0Q0000
00000000oP0000000`0;2`/000000000003J00000000200000002@0h>3P0oOgm0?ooo`3oool0alO7
09BDU037alL0=3@d09bLW0020?ooo`030>KViP2FUYH0^[Zj0080oooo00<0oOgm024Q8@1gMgL00P3o
ool00`1EEED0H61P0?ooo`020?ooo`030?Shn00J6QX0N7Qh0080oooo00D0Z:RX01`L700L71`00000
07moO`020?ooo`050<30`01KFe/0GemO01XJ6P1NGUh00P3oool01`3Jf]X0k>c/0?ooo`3_knl0@d=3
00000021PH400P3oool01@30`<00Fe]K065QH@0V9RH0@T920080oooo00<0T92@034a<@3kno/00`3o
ool04@1FEUH0
GemO0?ooo`3oool0o_kn0;6a/@2HV9P0_Kfm01hN7P3/k>`0oooo0?[jnP1iNGT0FEUI
071?E@3A0R40eP0V00@0eP0W00`0e@0O0>=CK@3d^L@0fado0=D08`3D01d0iF1g0>ELM@3/QYP0fQTl
0=D08`3D01d20>IQN@0I0=@07@3F02L0e@0O0>=CK@3d^L@0fado0=D08`3D01d0jG>80>f>X03aZKL0
fADi0=D08`3E0200gRi>0?Fob@3YN8d0eP8T0=H09P3E0200gBm?0?G0bP3^UJH0ePDW0=H09@090=H0
9`0F0=H09@3G0bX0kYFU0=XH>`3E02<0eP0W0=D08@3M;dl0jWjB0=D08P3F02H0eP0W0=@07@3TFG80
iEae0=@07P3F02L0e00O0>AJL`3c]l80i5Yc0=@07`@0eP0W00<0/@0P000000000000oP0000000`0?
3`l000000000003J00000000200000003`2>SXh0oooo0?ooo`34a<@02`/;0000000<30`08R8R0>CT
i03oool0o?cl04a<C00000000P820;Zj^P020?ooo`0<06=SH`1_Kfl0oooo0?Win@2@T900i>CT0?oo
o`3bl_80oooo0?Shn00J6QX0N7Qh0P3oool01@3inOT0k^k^0>7Qh@000000Ng]k0080oooo00D0k^k^
0=;BdP35aLD00000061PH0050?ooo`040=?Cd`0d=3@000000820P080oooo00D0k^k^0=;BdP34a<@0
000004E5A@020?ooo`080:6QX@32`/80oooo0>c/k03kno/0oooo06EUI@2h^;P20?ooo`0<09:BTP00
0000000001XJ6P0F5QH0kno_0?ooo`3no_h0f][J0=;BdP24AE40`00E103F02L03@3F02@0e`d`0?G4
c@3O=eH0e@4T0=H09`3D01/0ifb20?6Y]P3d_LL0fQPk0=D08`3D01`00P3YL8H06@3D01`0eP0T0=L=
<03ea<d0gcMF0=D1903F02L0e00L0>AJL`3ieM`0lkG10=L4:@3F02D0e00L0>b8VP3_UjL0mKo90=TC
=`3E02<0e00L0>fAXP3XLHL0l:Bb0>51G`3D01l02@3F02L05P3F02D0e`<Z0?:]^@3J73l0e@0S0=H0
9`3E0240iF1h0?WIg`3J6ch0e@0R0=H09P3F12H0kiJV0?Bja@3F0bH0eP0U0=@07`3ZP9@0l[6n0>^1
U@3D01l40=H09`030;408000000000000?h0000000<03`l?000000000000fP00000000P0000000@0
Vi^K0?ooo`3oool0YJFU0`0000001@0@4100l?3`0?ooo`3jn_X0<C4a0080000000<0YZJV0?ooo`3o
ool00P1^KVh02P3oool0n_[j0?;blP3oool0alO70;fm_@3oool0n?Sh01XJ6P1hN7P20?ooo`050?Ge
m@3Vi^H0emOG0000001lO7`0103oool00`3dm?@00@4105mOG`020?ooo`070>3Ph02[Zj/0moOg0?oo
o`3Zj^X04a<C07UiN@040?ooo`030?Cdm0030`<0@d=30080oooo00P0kno_0?ooo`3QhN40Xj>S0?gm
o@3oool0JFUY0<C4a080oooo00H0JFUY0000000000000000010@403`l?040?ooo`0309mDH@2m01D0
eP0W00<0eP0W00d0e@0S0=TC=`3gb]80f0db0=D08P3F02L0e00K0>IWO`3e`l`0m/SA0=TE>@3E02<0
e00L0080j6j301T0e00L0=D08`3I4cL0ml[B0=P=<P3E0280eP0W0=D08P3L8T@0nMOM0>YmT@3D01`0
eP0V0=@07P3^UJH0jWfA0>MXOP3G22d0e@0U0=@07P3_VZX0he=]0>jFYP3SCf/0e00N00T0eP0W01H0
eP0U0=L1:03aY[@0fQ/n0=D08`3F02@0f0/`0?:/^@3b[k/0i5E_0=@07P3E0240gS1@0?>g`@3d^lD0
fQLl0=D08`3D01/0iEYd0?_Xk03UFg@0e00K103F02L00`2a020000000000003n0000000300l?3`00
000000000=X0000000080000000905IFEP3oool0oooo0?KfmP1eMGD0ATI608Z:RP0g=cL0^KVi0080
oooo00@0bl_;05YJFP2:RXX0n?Sh0P3oool00`0i>CT0M7Ad0?ooo`020?ooo`070?;blP0l?3`0a/K6
0?ooo`3hn?P06QXJ07QhN0020?ooo`050;Ng]`14A4@0ADE500X:2P1mOGd00P3oool01@2d];@0>c/k
03/k>`000000HV9R0080oooo00<0/[:b01hN7P3Shn<00P3oool01@0e=CD0M7Ad0?ooo`3oool0];Bd
0080>c/k00<00P8204I6AP3oool00`3oool01P1OGel0SHf=0?ooo`3oool0FEUI0861P@80oooo00d0
g]kN05YJFP1;Bd/0TY:B01lO7`3/k>`0oooo0?[jnP1OGel0>SXj04/]<`3=01/0eP0V00<0eP0W00d0
eP0V0=D18@3ZNi00lk>n0=TF>@3E02<0e00L0>M]P`3WJX40kiVX0=XL?`3E02<0e00L0080j6n401T0
e00L0=H09P3E0B40jW^@0?>c_P3I5ST0e@0S0=H0903G12X0n=3G0>AJM03D01`0eP0W0=@07@3RBfL0
mlWA0>YhS@3F0RD0eP0V0=@07P3QAV<0mlWB0?:_^`3H3S00e@0T00T0eP0W01H0e@0S0=XH?03fbM80
fQPk0=D08`3F02D0eP@W0>j@X@3c]l80gRi>0=D08@3E02<0fQTk0?:^^`3aYK<0e``^0=D0903D01`0
i5Uc0?O@f03TFG<0e00L103F02L00`2a020000000000003n0000000300l?3`00000000000=X00000
00080000000300H61P2k^k/0oooo00@0oooo00<08b<S04A4A03gmoL01P3oool00`2d];@00@4107em
O@030?ooo`070861P@000000e=CD0?ooo`3hn?P06QXJ07QhN0020?ooo`050?KfmP3Vi^H0j>SX04U9
B@1bLW800P3oool01@3^k^h0d];B0=CDe00_;bl0FUYJ0080oooo00L0mOGe0>KViP3oool0oooo0>7Q
h@0=3@d0NWYj0080oooo00D0kno_0=;BdP3De=@0<S8b03hn?P030?ooo`030;bl_0000000VIVI0080
oooo00<0G5aL01HF5P3Vi^H0103oool02P3Kfm/05aLG0>c/k03oool0o_kn0=_Kf`3AdM40f;Fl0=L5
;03E02@40=H09`040=H09@3F02L0gS9A0=P:<080eP0U00H0fADh0=XF>@3K7T00e`D[0=H09P3F02D2
0=XE>@070=H09@3F02L0eP0U0=H09`3N<U80f0X`0=H09@020=H09`030=`Q@`3H3C80eP0U0080eP0W
00@0eP0T0=h`C`3J63`0eP0T0P3F02L0103E02@0gRm>0=XH?03E02<:0=H09`0:0=H09@3H3340gS1@
0=L3:P3F02H0eP0W0=D08`3I53P0gBU:0=D08`80eP0W00X0e@0T0=`RA03J6ch0e@0T0=H09`3F02H0
e`@[0=dZB`3G12/0eP0V103F02L00`2a020000000000003n0000000300l?3`00000000000=X00000
00090000000;01<C4`2QXJ40lo?c0?knoP3oool0l?3`02PX:0000000@d=30<G5a@3kno/00P3oool0
4@3/k>`0UiNG00T92@000000NGUi0?gmo@3lo?`0`L7100d=3@030`<0f][J0?gmo@3emOD0410@07al
O03oool0oOgm00<0oooo00@0BTY:06UYJ@3moOd0oOgm0`3oool0100b<S
80Cdm?0?gmo@3lo?`20?oo
o`070?knoP3Cdm<0BTY:0000001jNWX0oOgm0?knoP030?ooo`0803De=@0d=3@0oooo0?ooo`3_knl0
8R8R0000002FUYH20?ooo`0505]KF`0000009BDU0;Fe]@3emOD00P3oool00`3<c<`05QHF0>[ZjP02
0?gmo@80oooo00L0n=?J0=P1:03D01l0eP0Q0=L08`3G0280e@0R0080e`0R00`0e00I0=D0803G0280
e@0R0=D07P3F01h0e`0J0=P07`3G0280e@0R0=D07P3G01h20=D08P0?0=P08@3G0240eP0J0=D0803E
0280e`0R0=L08`3E01/0e@0O0=P08P3H0240e@0R0=D08@3D01X0e@0N0080e`0R00T0e@0R0=D08@3F
01P0e`0L0=D08P3H0240f00P0=L08P3E02800P3F02820=D08P80f00P00T0f00Q0=D0803D01T0e`0Q
0=H08P3E0280f00R0=H07`3F01X00P3E0280103H0240e`0S0=H06P3G01/30=D08P060=H0803D01X0
e@0P0=P08@3H0200f00Q0P3E02800`2b01`000000000003n0000000300l?3`00000000000=X00000
000;0000000<04E5A@2c/k<0_[jn071`L0061PH08R8R05IFEP1]KFd0K6a/05UIF@1=CDd09BDU0P00
00004`0n?Sh0SHf=0;jn_P2DU9@0>3Ph000000010@40>c/k09ZJVP2OWil0H61P01`L701`L700XZ:R
0:2PX02FUYH0N7Qh07IfMP1lO7`00P2PX:006`2NWYh0HF5Q09FEU@1_Kfl0MWIf0::RXP2CTi<0L71`
0451@@0_;bl03@d=000000051@D0MWIf0::RXP2?Shl0?clo04a<C02MWId0LG5a05MGE`0o?cl0@410
02/[:`0o?cl0HF5Q08R8R002061PH00:07YjNP1PH600F5QH06MWI`23Ph<0NWYj04];B`0W9bL02PX:
09FEU@@0X:2P02<0SHR906U<DP1eEEX0K4aA03853@1B8RX0M5eR04XN9P0e1@h0LU1F07EEFP1_CeD0
MUEJ07IEF`1WAT`0>1HL02X:401G>d00MeIK07=CF01PADT0Le=H07IIGP1F:340=@D<04dP:01eFEh0
M5QM04DL900e1@h0KdiD07MGG@1F=cd0DRP_07IHG@0307EDFP0/06I9CP1OA4P0MUEK079>E00f31<0
BB0W07ELH@1C9Bd0<`/B06]9C`1fEE/0L51F07EDF@1fEE/0Kd]B02l<4P0Z2@h0DBD]07IIGP1fEEX0
F3m306i?E01gEU/0HDA903D53P1;7RH0MEUN07IIGP1F:340=@D=02h83`1D5B00PeUQ08iVK@1_CeD0
KTmD07IEFP1dEe`0?A`R02X93@0o7B<0MEQM07IEFP1G?T;o00000040000000<03`l?000000000000
fP00000000/0000000H0N7Qh0?gmo@3moOd0]kNg0000002<S8`20?ooo`060;>c/`00000000000000
000a<C40_;bl0`3oool03P3moOd0g]kN075aL@00000010@40>g]k@3moOd0lo?c018B4P38b<P0oOgm
0?ooo`22PX80LW9b0P3oool01@3no_h0oooo0?clo01?Cdl0h>3P00<0oooo00@0o_kn0>_[j`2VYZH0
6QXJ0P0000002P18B4P0o_kn0?gmo@3YjNT000000492@P3lo?`0oooo0>o_k`0820P2000000030;no
_`3oool0oooo0080C4a<103oool01P3moOd0fMWI07EeM@00000030`<0>k^kP80oOgm0P3oool08P39
bl/0KWEc0:ji]`2V];401PD505ADE02__;X0HV9R0000002LZ:H0[kZh0828Q`29TY00[kZh0:>]Z`17
BDP0<cDd08J>S@2_^[P0Yk6`05QNG@2W/K00[kZh06E/JP000000:b/[0:jj^02_^kT0>SXj0000002?
VYP0[kZh06ieL`0m@3l20:nj^080/;^i0180VZBR05eSHP2_^[P0[;Ne01LH600m@3l0[kZh07MnO@00
0000Qi2>0:nj^02=UY@0OXF40:nj^02Z]K<0AdY9030b<P1iP7h20:nj^00@04M<B`2FX9h0[kZh08fH
UP0000009bLW0:fi]`2_^[P0I6]Z0000000j>SX0WJJU0:nj^02`^kT0Z[Fc08F=R`80[kZh00<0HFMV
02`^;P1NHf800P2_^[P00`1UK6/000000000003n0000000300l?3`00000000000=X00000000:0000
000700D51@3Fe]H0oooo0?ooo`3/k>`051@D0;Ng]`020?ooo`050?KfmP0X:2P0000000h>3P3De=@0
0`3oool02P3bl_80oooo0?ooo`3oool0FUYJ00@4103`l?00oooo0>SXj02:RXX20?ooo`030<c<c009
2@T0NWYj00<0oooo00L0o_kn0?_kn`1GEeL0i>CT0?ooo`3no_h0lO7a00<0oooo00@0b<S800H61P00
0000WIfM0`3oool00`0j>SX0N7Qh0?ooo`020?ooo`0405mOG`00000000000;Rh^080oooo0P1EEED2
0?ooo`030?Win@3dm?@0oooo0080oooo01@0KFe]00820P3`l?00oooo0?knoP3<c<`0`L7109FEU@0n
?Sh0/K6a0;:b/P0n@400K6e]0;:b/P2WZ:P07b0P08j>SP2b/[80MgMg03dm?@H0/[:b0240Xj>S02DU
9@2XZ:P0/[:b08>3P`00000051@D0:b/[02b/[80FU]K0000001bLW80/[:b09>CT`0_;bl0[jn_0;:b
/P2VYZH0QhN707emO@0j>SX0[Jf]0;:b/P1=CDd0FEUI0;:b/P2_[jl0:b/[07UiN@2b/[80S8b<034a
<@2`/;001@2b/[80302][Jd092@T08J6QP2b/[80Z:RX00P92@0A4Q80[:b/0;:b/P1oOgl04a<C0:>T
Y080/[:b00@0[Zj^0:n_[`1VIVH0U9BD1P2b/[800`19BDT000000000003n0000000300l?3`000000
00000=X00000000:0000000703dm?@3no_h0oooo0?ooo`3moOd0E5AD0=cLg0030?ooo`0308Z:RP00
0000KVi^0080oooo00@0i>CT04Y:BP0_;bl0ZJVY0P3oool01@3:b/X04a<C0>c/k03oool0oOgm0080
oooo00@0l?3`0410@0000000PH610P3oool02P2e]KD0@41003lo?`0Q8B40kNg]0?ooo`3inOT0BTY:
05UIF@3_knl20?ooo`0303hn?P071`L0i>CT00<0oooo00<0Ng]k0:6QX@3oool00P3oool01035aLD0
0@410000002h^;P20?ooo`80EEEE0P3oool00`31`L40<C4a09VIV@020?ooo`0=0<c<c00G5aL0k>c/
0?ooo`3kno/0P82006QXJ00_;bl020P80:2PX02b/[80Jf][08B4Q0020;:b/P0@06UYJ@23Ph<0/[:b
07inOP0410@0T92@0;:b/P2][Jd0LG5a0:ZZZP2b/[80Rh^;00P8202IVIT0/[:b09bLW0800`<30180
WIfM0;:b/P2CTi<0GUiN096AT@2b/[80YZJV02DU9@2VYZH0/[:b09BDU018B4P0@T9200P8202>SXh0
/[:b07YjNP1gMgL20;:b/P0F07MgM`1dM7@0/[:b09>CT`020P80OWin0;:b/P2a/K40MgMg0:6QX@2b
/[80WinO00@4101`L700/[:b0;2`/00S8b<00@4109ZJVP2b/[80U9BD03Ti>@80/[:b00D0UiNG02XZ
:P0[:b/0<30`05EEE@020;:
b/P0508>3P`2>SXh0/[:b0;6a/@0[:b/0o`0000010000000300l?3`00
000000000=X00000000:0000000=0:RXZ03oool0i>CT0<C4a03oool0`l?30?KfmP3Ogml0clo?0?oo
o`3IfMT00@4109jNWP020?ooo`0A09fMW@000000000002`/;03lo?`0oooo0>k^kP0P8200jn_[0?oo
o`3no_h0oOgm0?ooo`3moOd0_Kfm01DE5@1jNWX00P3oool02P2GUiL000000000000<30`0lO7a0?oo
o`3hn?P07QhN0000002j^[X20?ooo`0?06m_K`1JFUX0oooo0?KfmP2l_;`0oooo0<o?c`3UiND0kno_
0;no_`3oool0o?cl02`/;0000000^;Rh0080oooo0P1EEED20?ooo`080;Fe]@0000007alO0?[jnP3o
ool0m?Cd03Ti>@3Xj>P40?ooo`0K08F5Q@000000Lg=c0;:b/P2JVYX0YJFU0:n_[`2XZ:P0YJFU09>C
T`2b/[80P82000000012@T80/[:b0:n_[`0g=cL0WYjN0;:b/P1^KVh0000008:2PP2b/[80[:b/01<C
4`000000Ph>300D0/[:b00<0[jn_034a<@2@T900102b/[805@0J6QX0FEUI0;:b/P2UYJD0VYZJ0:n_
[`2XZ:P0ZZZZ08n?S`2b/[80Ti>C0000000];Bd0/[:b0;6a/@16ATH0QhN70;:b/P24Q8@0000005UI
F@020;:b/P0903/k>`000000Ph>30;:b/P2SXj<0BDU90;2`/02b/[80KFe]00<0000000P04A4A0:>S
X`2b/[80Hf=S069RHP2b/[80Z:RX00l?3ol000000@0000000`0?3`l000000000003J000000002@00
00001@0F5QH0k^k^0?ooo`2ZZZX0MGEe00<0oooo00H0Shn?08Z:RP3oool0o_kn03Xj>P1kNg/20?oo
o`040=3@d00O7al02`/;08:2PP80oooo00L0g=cL01TI6@3/k>`0oooo0>o_k`0c<c<0^k^k0080oooo
00D0IfMW06i^KP3oool0oooo09bLW0020000000700l?3`3`l?00oooo0?Shn00^;Rh0:RXZ0>7Qh@02
0?ooo`0605=CD`2a/K40oooo0>?Sh`1ADE40no_k0P3oool01`35aLD0HV9R0?ooo`3oool0PH610000
002g]kL00P3oool205EEE@80oooo00l0^KVi00`<301]KFd0o_kn0?ooo`3Kfm/08B4Q0>_[j`3oool0
o?cl0:BTY02DU9@0ATI600000010@4000`2b/[800`2@T900KVi^0;:b/P020;:b/P0D0820P0000000
1@D509FEU@2b/[80Q8B40:FUY@2b/[80D51@00820P1YJFT0/[:b0;6a/@0b<S800@4106][J`2b/[80
/K6a0:FUY@2WYjL20;:b/P0804A4A01eMGD0/[:b0;6a/@1gMgL0IFEU01@D500X:2P30;:b/P0309nO
W`1RHV80/[:b0080/[:b0240Ti>C00<30`000000Q8B40;:b/P2;Rh/0W9bL0;:b/P1SHf<00`<304=3
@`2a/K40/[:b05QHF0020P80JFUY0;:b/P2^[Zh0@41009jNWP2b/[80VIVI01TI6@0000008B4Q0000
001IFET0/[:b0:6QX@28R8P0/[:b08Z:RP010@40o`0000010000000300l?3`00000000000=X00000
00090000000605eMG@3oool0oooo0820P00/;2`0o_kn0P3oool01`1HF5P0E5AD0?ooo`3oool0YZJV
01`L703bl_800P3oool00`3Vi^H0c/k>0?ooo`020?ooo`0708R8R0051@D0kno_0?ooo`3emOD0MgMg
0=GEe@020?ooo`05065QH@1_Kfl0oooo0?ooo`2LW9`00P0000001P0?3`l0l?3`0?ooo`3moOd0d=3@
0>g]k@80oooo00L0fm_K03De=@3alO40oooo0;jn_P0>3Ph0hN7Q0080oooo00L0V9RH020P803inOT0
oooo0=oOg`0<30`0/k>c0080oooo0P1EEED20?ooo`030>k^kP3@d=00oooo0080oooo00/0RXZ:00<3
0`3_knl0oooo0?_kn`29RHT0Lg=c059BDP0000004Q8B0:JVYP020;:b/P030820P00S8b<0[Jf]0080
/[:b00@0P820000000000000B4Q80`2b/[80102`/;00?Cdm07MgM`2IVIT20;:b/P0;09ZJVP1aLG40
Fe]K0;:b/P2_[jl0;bl_02@T902][Jd0/[:b05ADE01LG5`00P2b/[801@1YJFT0D51@03Hf=P061PH0
V9RH0080/[:b00<0UYJF01TI6@2SXj<00P2b/[80102CTi<01@D50000000d=3@40;:b/P0804E5A@1J
FUX0TI6A0;6a/@2b/[80XZ:R07emO@1fMWH20;:b/P0>0410@01ADE40/[:b0;:b/P2MWId0O7al0:2P
X00E5AD03Ph>0:FUY@2b/[80/K6a0;:b/P1]KFgo00000080000000<03`l?000000000000fP000000
00P0000000L020P80=?Cd`3oool0oooo05YJFP010@40jNWY0080oooo00P0;Bd]02HV9P3oool0oooo
0?knoP0N7Qh0Fe]K0?7al@D0oooo00@0/;2`010@400;2`/0no_k1@3oool00`3Cdm<04Q8B0820P002
0?ooo`050:>SX`0000000000010@403kno/01@3oool00`3Lg=`0?clo092@T0020?ooo`0309NGU`00
0000[jn_0080oooo00<0K6a/0000003Ogml00P3oool0101LG5`0/k>c0?ooo`3oool205UIF@H0oooo
00@0];Bd01LG5`0:2PX0no_k103oool01038b<P0000000000021PH420;:b/P0307]kN`000000Ogmo
0080/[:b00D0QhN700000000000020P809fMW@020;:b/P030:n_[`0J6QX0Vi^K00D0/[:b00T0Fe]K
0;:b/P2b/[80=cLg0000002SXj<0/[:b071`L01=CDd0102b/[800`2GUiL0000006YZJP020;:b/P03
092@T0000000JFUY0080/[:b00D0VYZJ00D51@0000000@4108Z:RP030;:b/P03028R8P1^KVh0/[:b
00@0/[:b00H0QHF50;:b/P2b/[80HF5Q00<30`1eMGD40;:b/P0302l_;`000000H61P00<0/[:b00<0
DU9B000000000000o`0000000`0?3`l000000000003J00000000200000006P0K6a/0/[:b0;Jf]P2a
/K409BDU0000001cLg<0^[Zj0:>SX`061PH00P8209JFUP2g]kL0^[Zj04=3@`000000<c<c08n?S`31
`L40d=3@0:JVYP1PH60010@40000000;2`/0ZZZZ0P2e]KD02@2g]kL0ZZZZ07moO`0O7al0000005]K
F`2i^KT0^;Rh06i^KP020000000H00/;2`2ZZZX0]KFe0;Fe]@2c/k<0V9RH06UYJ@0J6QX0000009BD
U02f][H0]kNg04e=C@000000BTY:0;Jf]P2c/k<0:b/[0000001^KVh0^KVi0;Ng]`1[Jf/0NGUi0P2g
]kL203`l?00:0;Ng]`2e]KD0][Jf0:^[Z`2<S8`0CTi>00<30`0000002`/;0:ZZZP<0]KFe00D0^;Rh
08>3P`000000000003`l?0020820P00604a<C0000000;bl_07inOP20P800Fe]K0`0000001`16ATH0
P8200820P01/K6`00`<305UIF@20P8000`1nOWh02P1jNWX0?clo07MgM`21PH40=cLg0
000001PH600
PH6105aLG00[:b/307inOP0=07moO`1cLg<00@4102d];@1nOWh0P82005YJFP0000008B4Q07emO@20
P800J6QX00<30`0200000007030`<01nOWh0Ogmo07MgM`030`<0?3`l0861P@0307inOP0B0820P01H
F5P0LW9b0820P01BDU80000000410@12@T80Ng]k09>CT`20P8008B4Q0000000E5AD0Ng]k07moO`1n
OWh09bLWo`0000020000000300/;2`00000000000=X00000001X0000000301hN7P0?3`l03`l?0?l0
3`l?@@0?3`l00`0N7Qh000000000003J00000000o`00003o000008X00000003o00000?l00000RP00
00000?l00000o`00002:00000000\
\>"], "WWMCHeader",
    ShowCellBracket->False,
    CellMargins->{{0, 0}, {0, 0}},
    Evaluatable->False,
    CellFrameMargins->4,
    ImageSize->{648, 25},
    ImageMargins->{{0, 0}, {0, 0}},
    ImageRegion->{{0, 1}, {0, 1}},
    Background->GrayLevel[0]],
  
  Cell[CellGroupData[{
  
  Cell["Style Environment Names", "Section"],
  
  Cell[StyleData[All, "Working"],
    PageWidth->WindowWidth,
    ScriptMinSize->9],
  
  Cell[StyleData[All, "Presentation"],
    PageWidth->WindowWidth,
    ScriptMinSize->12,
    FontSize->16],
  
  Cell[StyleData[All, "Condensed"],
    PageWidth->WindowWidth,
    ScriptMinSize->8,
    FontSize->11],
  
  Cell[StyleData[All, "Printout"],
    PageWidth->PaperWidth,
    ScriptMinSize->5,
    FontSize->10,
    PrivateFontOptions->{"FontType"->"Outline"}]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell["Notebook Options", "Section"],
  
  Cell["\<\
The options defined for the style below will be used at the Notebook level.\
\>", "Text"],
  
  Cell[StyleData["Notebook", "Presentation"],
    PageHeaders->{{Cell[ 
            TextData[ {
              CounterBox[ "Page"]}], "PageNumber"], None, Cell[ 
            TextData[ {
              ValueBox[ "FileName"]}], "Header"]}, {Cell[ 
            TextData[ {
              ValueBox[ "FileName"]}], "Header"], None, Cell[ 
            TextData[ {
              CounterBox[ "Page"]}], "PageNumber"]}},
    CellBracketOptions->{"Color"->RGBColor[0.66717, 0.187915, 0.232395]},
    CellElementSpacings->{"ClosedGroupTopMargin"->20},
    CellFrameLabelMargins->6,
    StyleMenuListing->None,
    Background->RGBColor[0.924025, 0.891524, 0.771649]],
  
  Cell[StyleData["Notebook", "Printout"],
    PageHeaders->{{Cell[ 
            TextData[ {
              CounterBox[ "Page"]}], "PageNumber"], None, Cell[ 
            TextData[ {
              ValueBox[ "FileName"]}], "Header"]}, {Cell[ 
            TextData[ {
              ValueBox[ "FileName"]}], "Header"], None, Cell[ 
            TextData[ {
              CounterBox[ "Page"]}], "PageNumber"]}},
    CellElementSpacings->{"ClosedGroupTopMargin"->20},
    CellFrameLabelMargins->6,
    StyleMenuListing->None,
    Background->None]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell["Styles for Headings", "Section"],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Title"],
    CellMargins->{{40, Inherited}, {20, 40}},
    CellGroupingRules->{"TitleGrouping", 0},
    PageBreakBelow->False,
    CounterIncrements->"Title",
    CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, {
        "Subtitle", 0}, {"Subsubtitle", 0}},
    FontFamily->"Helvetica",
    FontSize->36,
    FontWeight->"Bold"],
  
  Cell[StyleData["Title", "Presentation"],
    ShowCellBracket->False,
    CellMargins->{{0, 100}, {0, 0}},
    CellFrameMargins->{{30, 100}, {10, 20}},
    AutoIndent->False,
    LineSpacing->{0, 44},
    FontSize->40,
    FontColor->GrayLevel[1],
    Background->RGBColor[0.812512, 0, 0]],
  
  Cell[StyleData["Title", "Condensed"],
    CellMargins->{{8, 10}, {4, 8}},
    FontSize->20],
  
  Cell[StyleData["Title", "Printout"],
    CellFrame->{{0, 0}, {0.25, 0}},
    CellMargins->{{10, 10}, {12, 30}},
    CellFrameMargins->2,
    FontSize->26]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Subtitle"],
    CellMargins->{{40, Inherited}, {20, 15}},
    CellGroupingRules->{"TitleGrouping", 10},
    PageBreakBelow->False,
    CounterIncrements->"Subtitle",
    CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, {
        "Subsubtitle", 0}},
    FontFamily->"Helvetica",
    FontSize->24],
  
  Cell[StyleData["Subtitle", "Presentation"],
    ShowCellBracket->False,
    CellMargins->{{98, 0}, {20, 0}},
    CellFrameMargins->{{10, 4}, {4, 6}},
    AutoIndent->False,
    LineSpacing->{0, 34},
    FontSize->30,
    FontColor->GrayLevel[1],
    Background->GrayLevel[0]],
  
  Cell[StyleData["Subtitle", "Condensed"],
    CellMargins->{{8, 10}, {4, 4}},
    FontSize->14],
  
  Cell[StyleData["Subtitle", "Printout"],
    CellMargins->{{40, 10}, {1, 0}},
    FontSize->18]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Author"],
    CellMargins->{{100, Inherited}, {20, 0}},
    CellGroupingRules->{"TitleGrouping", 20},
    PageBreakBelow->False,
    CounterIncrements->"Subsubtitle",
    CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}},
    FontFamily->"Helvetica",
    FontSize->14,
    FontSlant->"Italic"],
  
  Cell[StyleData["Author", "Presentation"],
    CellFrame->{{0, 0}, {2, 0}},
    ShowCellBracket->False,
    CellMargins->{{98, 0}, {60, 10}},
    CellFrameMargins->{{4, 4}, {2, 8}},
    LineSpacing->{1, 0},
    FontSize->22,
    FontColor->GrayLevel[0]],
  
  Cell[StyleData["Author", "Condensed"],
    CellMargins->{{8, 10}, {8, 8}},
    FontSize->12],
  
  Cell[StyleData["Author", "Printout"],
    CellMargins->{{40, 10}, {60, 8}},
    FontSize->14]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Section"],
    CellDingbat->"\[FilledSquare]",
    CellMargins->{{25, Inherited}, {8, 24}},
    CellGroupingRules->{"SectionGrouping", 30},
    PageBreakBelow->False,
    CounterIncrements->"Section",
    CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}},
    FontFamily->"Helvetica",
    FontSize->16,
    FontWeight->"Bold"],
  
  Cell[StyleData["Section", "Presentation"],
    CellFrame->{{0, 0}, {0, 2}},
    CellDingbat->None,
    CellMargins->{{40, 22}, {0, 30}},
    CellFrameMargins->{{99, 0}, {1, 4}},
    CellFrameColor->RGBColor[0.708598, 0.00158694, 0.047715],
    CellFrameLabelMargins->{{4, 4}, {0, 2}},
    LineSpacing->{1, 0},
    FontSize->24],
  
  Cell[StyleData["Section", "Condensed"],
    CellMargins->{{18, Inherited}, {6, 12}},
    FontSize->12],
  
  Cell[StyleData["Section", "Printout"],
    CellFrame->{{0, 0}, {0, 0.5}},
    CellDingbat->None,
    CellMargins->{{10, 0}, {4, 22}},
    CellFrameMargins->3,
    FontSize->14]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Subsection"],
    CellMargins->{{22, Inherited}, {8, 20}},
    CellGroupingRules->{"SectionGrouping", 40},
    PageBreakBelow->False,
    CounterIncrements->"Subsection",
    CounterAssignments->{{"Subsubsection", 0}},
    FontSize->14,
    FontWeight->"Bold"],
  
  Cell[StyleData["Subsection", "Presentation"],
    CellFrame->{{0, 0}, {0, 2}},
    CellMargins->{{40, 22}, {0, 30}},
    CellFrameMargins->{{0, 0}, {0, 2}},
    CellFrameColor->GrayLevel[1],
    LineSpacing->{1, 0},
    FontSize->22],
  
  Cell[StyleData["Subsection", "Condensed"],
    CellMargins->{{16, Inherited}, {6, 12}},
    FontSize->12],
  
  Cell[StyleData["Subsection", "Printout"],
    CellFrame->{{0, 0}, {0, 0.5}},
    CellMargins->{{10, 0}, {0, 22}},
    CellFrameMargins->3,
    FontSize->12]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Subsubsection"],
    CellDingbat->"\[FilledSmallSquare]",
    CellMargins->{{22, Inherited}, {8, 18}},
    CellGroupingRules->{"SectionGrouping", 50},
    PageBreakBelow->False,
    CounterIncrements->"Subsubsection",
    FontWeight->"Bold"],
  
  Cell[StyleData["Subsubsection", "Presentation"],
    CellMargins->{{99, 60}, {0, 26}},
    LineSpacing->{1, 0},
    FontSize->18],
  
  Cell[StyleData["Subsubsection", "Condensed"],
    CellMargins->{{17, Inherited}, {6, 12}},
    FontSize->10],
  
  Cell[StyleData["Subsubsection", "Printout"],
    CellMargins->{{40, 0}, {0, 25}},
    FontSize->11]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Rule"],
    CellMargins->{{10, Inherited}, {8, 18}},
    PageBreakBelow->False],
  
  Cell[StyleData["Rule", "Presentation"],
    CellFrame->{{0, 0}, {3, 0}},
    CellMargins->{{99, 60}, {0, 40}},
    CellFrameMargins->False,
    LineSpacing->{1, 0},
    FontSize->18],
  
  Cell[StyleData["Rule", "Condensed"],
    CellMargins->{{17, Inherited}, {6, 12}},
    FontSize->10],
  
  Cell[StyleData["Rule", "Printout"],
    CellMargins->{{10, 0}, {7, 14}},
    FontSize->11]
  }, Closed]]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell["Styles for Body Text", "Section"],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Text"],
    CellMargins->{{12, 10}, {7, 7}},
    LineSpacing->{1, 3},
    CounterIncrements->"Text"],
  
  Cell[StyleData["Text", "Presentation"],
    CellMargins->{{99, 22}, {10, 10}},
    TextAlignment->Left,
    TextJustification->0,
    LineSpacing->{1, 3},
    FontSize->16],
  
  Cell[StyleData["Text", "Condensed"],
    CellMargins->{{8, 10}, {6, 6}},
    LineSpacing->{1, 1}],
  
  Cell[StyleData["Text", "Printout"],
    CellMargins->{{40, 2}, {6, 6}},
    TextJustification->0.5]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["SmallText"],
    CellMargins->{{12, 10}, {6, 6}},
    LineSpacing->{1, 3},
    CounterIncrements->"SmallText",
    FontFamily->"Helvetica",
    FontSize->9],
  
  Cell[StyleData["SmallText", "Presentation"],
    CellMargins->{{119, 22}, {10, 10}},
    LineSpacing->{1, 5},
    FontSize->12,
    FontColor->RGBColor[0.0899214, 0.182635, 0.460777]],
  
  Cell[StyleData["SmallText", "Condensed"],
    CellMargins->{{8, 10}, {5, 5}},
    LineSpacing->{1, 2},
    FontSize->9],
  
  Cell[StyleData["SmallText", "Printout"],
    CellMargins->{{50, 2}, {5, 5}},
    TextJustification->0.5,
    FontSize->7]
  }, Closed]]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell["Styles for Input/Output", "Section"],
  
  Cell["\<\
The cells in this section define styles used for input and output to the \
kernel.  Be careful when modifying, renaming, or removing these styles, \
because the front end associates special meanings with these style names. \
Some attributes for these styles are actually set in FormatType Styles (in \
the last section of this stylesheet). \
\>", "Text"],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Input"],
    CellMargins->{{45, 10}, {5, 7}},
    Evaluatable->True,
    CellGroupingRules->"InputGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    CellLabelMargins->{{11, Inherited}, {Inherited, Inherited}},
    DefaultFormatType->DefaultInputFormatType,
    AutoItalicWords->{},
    FormatType->InputForm,
    ShowStringCharacters->True,
    NumberMarks->True,
    LinebreakAdjustments->{0.85, 2, 10, 0, 1},
    CounterIncrements->"Input",
    FontWeight->"Bold"],
  
  Cell[StyleData["Input", "Presentation"],
    CellMargins->{{99, 45}, {0, 10}},
    CellFrameMargins->12,
    LineSpacing->{1, 0},
    FontSize->16,
    FontColor->GrayLevel[1],
    Background->RGBColor[0.28748, 0.378042, 0.556527],
    ButtonBoxOptions->{ButtonMargins->9,
    Background->RGBColor[0.665293, 0.0723888, 0.101137]}],
  
  Cell[StyleData["Input", "Condensed"],
    CellMargins->{{40, 10}, {2, 3}}],
  
  Cell[StyleData["Input", "Printout"],
    CellFrame->True,
    CellMargins->{{40, 0}, {0, 6}},
    LinebreakAdjustments->{0.85, 2, 10, 1, 1},
    FontSize->9,
    Background->GrayLevel[0.849989]]
  }, Closed]],
  
  Cell[StyleData["InputOnly"],
    CellMargins->{{99, Inherited}, {Inherited, Inherited}},
    Evaluatable->True,
    CellGroupingRules->"InputGrouping",
    CellHorizontalScrolling->True,
    DefaultFormatType->DefaultInputFormatType,
    AutoItalicWords->{},
    FormatType->InputForm,
    ShowStringCharacters->True,
    NumberMarks->True,
    LinebreakAdjustments->{0.85, 2, 10, 0, 1},
    CounterIncrements->"Input",
    StyleMenuListing->None,
    FontWeight->"Bold"],
  
  Cell[StyleData["InputWord"],
    CellMargins->{{99, Inherited}, {Inherited, Inherited}},
    CellGroupingRules->"InputGrouping",
    AutoItalicWords->{},
    FormatType->InputForm,
    FontWeight->"Bold"],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Output"],
    CellMargins->{{47, 10}, {7, 5}},
    CellEditDuplicate->True,
    CellGroupingRules->"OutputGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    GeneratedCell->True,
    CellAutoOverwrite->True,
    CellLabelMargins->{{11, Inherited}, {Inherited, Inherited}},
    DefaultFormatType->DefaultOutputFormatType,
    AutoItalicWords->{},
    FormatType->InputForm,
    CounterIncrements->"Output"],
  
  Cell[StyleData["Output", "Presentation"],
    CellMargins->{{99, 45}, {10, 0}},
    CellFrameMargins->12,
    LineSpacing->{1, 0},
    FontSize->16,
    Background->RGBColor[0.978958, 0.959915, 0.622477]],
  
  Cell[StyleData["Output", "Condensed"],
    CellMargins->{{41, Inherited}, {3, 2}}],
  
  Cell[StyleData["Output", "Printout"],
    CellFrame->True,
    CellMargins->{{40, 0}, {6, 0}},
    FontSize->9]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Message"],
    CellMargins->{{45, Inherited}, {Inherited, Inherited}},
    CellGroupingRules->"OutputGrouping",
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    GeneratedCell->True,
    CellAutoOverwrite->True,
    ShowCellLabel->False,
    CellLabelMargins->{{11, Inherited}, {Inherited, Inherited}},
    DefaultFormatType->DefaultOutputFormatType,
    AutoItalicWords->{},
    FormatType->InputForm,
    CounterIncrements->"Message",
    StyleMenuListing->None,
    FontColor->RGBColor[0, 0, 1]],
  
  Cell[StyleData["Message", "Presentation"],
    CellMargins->{{99, 45}, {Inherited, Inherited}},
    CellFrameMargins->12,
    LineSpacing->{1, 0},
    FontColor->RGBColor[0.694072, 0.204471, 0.227802],
    Background->RGBColor[0.963821, 0.948333, 0.891249]],
  
  Cell[StyleData["Message", "Condensed"],
    CellMargins->{{41, Inherited}, {Inherited, Inherited}}],
  
  Cell[StyleData["Message", "Printout"],
    CellMargins->{{40, Inherited}, {Inherited, Inherited}},
    FontSize->8,
    FontColor->GrayLevel[0]]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Print"],
    CellMargins->{{45, Inherited}, {Inherited, Inherited}},
    CellGroupingRules->"OutputGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    GeneratedCell->True,
    CellAutoOverwrite->True,
    ShowCellLabel->False,
    CellLabelMargins->{{11, Inherited}, {Inherited, Inherited}},
    DefaultFormatType->DefaultOutputFormatType,
    AutoItalicWords->{},
    FormatType->InputForm,
    CounterIncrements->"Print",
    StyleMenuListing->None],
  
  Cell[StyleData["Print", "Presentation"],
    CellMargins->{{99, 45}, {0, 0}},
    CellFrameMargins->{{12, 12}, {2, 2}},
    LineSpacing->{1, 0},
    Background->GrayLevel[1]],
  
  Cell[StyleData["Print", "Condensed"],
    CellMargins->{{41, Inherited}, {Inherited, Inherited}}],
  
  Cell[StyleData["Print", "Printout"],
    CellMargins->{{50, Inherited}, {Inherited, Inherited}},
    FontSize->8]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Graphics"],
    CellMargins->{{4, Inherited}, {Inherited, Inherited}},
    CellGroupingRules->"GraphicsGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GeneratedCell->True,
    CellAutoOverwrite->True,
    ShowCellLabel->False,
    DefaultFormatType->DefaultOutputFormatType,
    FormatType->InputForm,
    CounterIncrements->"Graphics",
    ImageMargins->{{43, Inherited}, {Inherited, 0}},
    StyleMenuListing->None],
  
  Cell[StyleData["Graphics", "Presentation"],
    CellMargins->{{99, 45}, {10, 0}},
    Background->RGBColor[0.978958, 0.959915, 0.622477]],
  
  Cell[StyleData["Graphics", "Condensed"],
    ImageMargins->{{38, Inherited}, {Inherited, 0}},
    Magnification->0.6],
  
  Cell[StyleData["Graphics", "Printout"],
    CellFrame->True,
    CellMargins->{{40, 0}, {0, -1}},
    ImageMargins->{{40, Inherited}, {Inherited, 0}},
    FontSize->9]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["CellLabel"],
    StyleMenuListing->None,
    FontFamily->"Helvetica",
    FontSize->9,
    FontColor->RGBColor[0, 0, 1]],
  
  Cell[StyleData["CellLabel", "Presentation"],
    FontSize->12,
    FontColor->GrayLevel[0]],
  
  Cell[StyleData["CellLabel", "Condensed"],
    FontSize->9],
  
  Cell[StyleData["CellLabel", "Printout"],
    FontSize->7,
    FontSlant->"Italic",
    FontColor->GrayLevel[0]]
  }, Closed]]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell["Formulas and Programming", "Section"],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["InlineFormula"],
    CellMargins->{{10, 4}, {0, 8}},
    CellHorizontalScrolling->True,
    ScriptLevel->1,
    SingleLetterItalics->True],
  
  Cell[StyleData["InlineFormula", "Presentation"],
    CellMargins->{{99, 10}, {10, 10}},
    LineSpacing->{1, 5}],
  
  Cell[StyleData["InlineFormula", "Condensed"],
    CellMargins->{{8, 10}, {6, 6}},
    LineSpacing->{1, 1}],
  
  Cell[StyleData["InlineFormula", "Printout"],
    CellMargins->{{10, 0}, {6, 6}}]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["DisplayFormula"],
    CellMargins->{{42, Inherited}, {Inherited, Inherited}},
    CellHorizontalScrolling->True,
    DefaultFormatType->DefaultInputFormatType,
    ScriptLevel->0,
    SingleLetterItalics->True,
    UnderoverscriptBoxOptions->{LimitsPositioning->True}],
  
  Cell[StyleData["DisplayFormula", "Presentation"],
    CellMargins->{{99, Inherited}, {Inherited, 10}},
    LineSpacing->{1, 5}],
  
  Cell[StyleData["DisplayFormula", "Condensed"],
    LineSpacing->{1, 1}],
  
  Cell[StyleData["DisplayFormula", "Printout"],
    CellMargins->{{10, Inherited}, {Inherited, Inherited}}]
  }, Closed]]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell["Hyperlink Styles", "Section"],
  
  Cell["\<\
The cells below define styles useful for making hypertext ButtonBoxes.  The \
\"Hyperlink\" style is for links within the same Notebook, or between \
Notebooks.\
\>", "Text"],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Hyperlink"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    FontColor->RGBColor[0, 0, 1],
    FontVariations->{"Underline"->True},
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`NotebookLocate[ #2]}]&),
    Active->True,
    ButtonNote->ButtonData}],
  
  Cell[StyleData["Hyperlink", "Presentation"]],
  
  Cell[StyleData["Hyperlink", "Condensed"]],
  
  Cell[StyleData["Hyperlink", "Printout"],
    FontColor->GrayLevel[0],
    FontVariations->{"Underline"->False}]
  }, Closed]],
  
  Cell["\<\
The following styles are for linking automatically to the on-line help \
system.\
\>", "Text"],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["MainBookLink"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    FontColor->RGBColor[0, 0, 1],
    FontVariations->{"Underline"->True},
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`HelpBrowserLookup[ "MainBook", #]}]&),
    Active->True,
    ButtonFrame->"None"}],
  
  Cell[StyleData["MainBookLink", "Presentation"]],
  
  Cell[StyleData["MainBookLink", "Condensed"]],
  
  Cell[StyleData["MainBookLink", "Printout"],
    FontColor->GrayLevel[0],
    FontVariations->{"Underline"->False}]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["AddOnsLink"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    FontFamily->"Courier",
    FontColor->RGBColor[0, 0, 1],
    FontVariations->{"Underline"->True},
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`HelpBrowserLookup[ "AddOns", #]}]&),
    Active->True,
    ButtonFrame->"None"}],
  
  Cell[StyleData["AddOnsLink", "Presentation"]],
  
  Cell[StyleData["AddOnsLink", "Condensed"]],
  
  Cell[StyleData["AddOnsLink", "Printout"],
    FontColor->GrayLevel[0],
    FontVariations->{"Underline"->False}]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["RefGuideLink"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    FontFamily->"Courier",
    FontColor->RGBColor[0, 0, 1],
    FontVariations->{"Underline"->True},
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`HelpBrowserLookup[ "RefGuide", #]}]&),
    Active->True,
    ButtonFrame->"None"}],
  
  Cell[StyleData["RefGuideLink", "Presentation"]],
  
  Cell[StyleData["RefGuideLink", "Condensed"]],
  
  Cell[StyleData["RefGuideLink", "Printout"],
    FontColor->GrayLevel[0],
    FontVariations->{"Underline"->False}]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["GettingStartedLink"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    FontColor->RGBColor[0, 0, 1],
    FontVariations->{"Underline"->True},
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`HelpBrowserLookup[ "GettingStarted", #]}]&),
    Active->True,
    ButtonFrame->"None"}],
  
  Cell[StyleData["GettingStartedLink", "Presentation"]],
  
  Cell[StyleData["GettingStartedLink", "Condensed"]],
  
  Cell[StyleData["GettingStartedLink", "Printout"],
    FontColor->GrayLevel[0],
    FontVariations->{"Underline"->False}]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["OtherInformationLink"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    FontColor->RGBColor[0, 0, 1],
    FontVariations->{"Underline"->True},
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`HelpBrowserLookup[ "OtherInformation", #]}]&),
    Active->True,
    ButtonFrame->"None"}],
  
  Cell[StyleData["OtherInformationLink", "Presentation"]],
  
  Cell[StyleData["OtherInformationLink", "Condensed"]],
  
  Cell[StyleData["OtherInformationLink", "Printout"],
    FontColor->GrayLevel[0],
    FontVariations->{"Underline"->False}]
  }, Closed]]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell["Styles for Headers and Footers", "Section"],
  
  Cell[StyleData["Header"],
    CellMargins->{{0, 0}, {4, 1}},
    StyleMenuListing->None,
    FontSize->10,
    FontSlant->"Italic"],
  
  Cell[StyleData["Footer"],
    CellMargins->{{0, 0}, {0, 4}},
    StyleMenuListing->None,
    FontSize->9,
    FontSlant->"Italic"],
  
  Cell[StyleData["PageNumber"],
    CellMargins->{{0, 0}, {4, 1}},
    StyleMenuListing->None,
    FontFamily->"Times",
    FontSize->10]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell["Palette Styles", "Section"],
  
  Cell["\<\
The cells below define styles that define standard ButtonFunctions, for use \
in palette buttons.\
\>", "Text"],
  
  Cell[StyleData["Paste"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`NotebookApply[ 
          FrontEnd`InputNotebook[ ], #, After]}]&)}],
  
  Cell[StyleData["Evaluate"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`NotebookApply[ 
          FrontEnd`InputNotebook[ ], #, All], 
        SelectionEvaluate[ 
          FrontEnd`InputNotebook[ ], All]}]&)}],
  
  Cell[StyleData["EvaluateCell"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`NotebookApply[ 
          FrontEnd`InputNotebook[ ], #, All], 
        FrontEnd`SelectionMove[ 
          FrontEnd`InputNotebook[ ], All, Cell, 1], 
        FrontEnd`SelectionEvaluateCreateCell[ 
          FrontEnd`InputNotebook[ ], All]}]&)}],
  
  Cell[StyleData["CopyEvaluate"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`SelectionCreateCell[ 
          FrontEnd`InputNotebook[ ], All], 
        FrontEnd`NotebookApply[ 
          FrontEnd`InputNotebook[ ], #, All], 
        FrontEnd`SelectionEvaluate[ 
          FrontEnd`InputNotebook[ ], All]}]&)}],
  
  Cell[StyleData["CopyEvaluateCell"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`SelectionCreateCell[ 
          FrontEnd`InputNotebook[ ], All], 
        FrontEnd`NotebookApply[ 
          FrontEnd`InputNotebook[ ], #, All], 
        FrontEnd`SelectionEvaluateCreateCell[ 
          FrontEnd`InputNotebook[ ], All]}]&)}]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell["Placeholder Styles", "Section"],
  
  Cell["\<\
The cells below define styles useful for making placeholder objects in \
palette templates.\
\>", "Text"],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Placeholder"],
    Placeholder->True,
    StyleMenuListing->None,
    FontSlant->"Italic",
    FontColor->RGBColor[0.890623, 0.864698, 0.384756],
    TagBoxOptions->{Editable->False,
    Selectable->False,
    StripWrapperBoxes->False}],
  
  Cell[StyleData["Placeholder", "Presentation"]],
  
  Cell[StyleData["Placeholder", "Condensed"]],
  
  Cell[StyleData["Placeholder", "Printout"]]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["PrimaryPlaceholder"],
    Placeholder->PrimaryPlaceholder,
    StyleMenuListing->None,
    DrawHighlighted->True,
    FontSlant->"Italic",
    Background->RGBColor[0.912505, 0.891798, 0.507774],
    TagBoxOptions->{Editable->False,
    Selectable->False,
    StripWrapperBoxes->False}],
  
  Cell[StyleData["PrimaryPlaceholder", "Presentation"]],
  
  Cell[StyleData["PrimaryPlaceholder", "Condensed"]],
  
  Cell[StyleData["PrimaryPlaceholder", "Printout"]]
  }, Closed]]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell["FormatType Styles", "Section"],
  
  Cell["\<\
The cells below define styles that are mixed in with the styles of most \
cells.  If a cell's FormatType matches the name of one of the styles defined \
below, then that style is applied between the cell's style and its own \
options. This is particularly true of Input and Output.\
\>", "Text"],
  
  Cell[StyleData["CellExpression"],
    PageWidth->Infinity,
    CellMargins->{{6, Inherited}, {Inherited, Inherited}},
    ShowCellLabel->False,
    ShowSpecialCharacters->False,
    AllowInlineCells->False,
    AutoItalicWords->{},
    StyleMenuListing->None,
    FontFamily->"Courier",
    FontSize->12,
    Background->GrayLevel[1]],
  
  Cell[StyleData["InputForm"],
    AllowInlineCells->False,
    StyleMenuListing->None,
    FontFamily->"Courier"],
  
  Cell[StyleData["OutputForm"],
    PageWidth->Infinity,
    TextAlignment->Left,
    LineSpacing->{0.6, 1},
    StyleMenuListing->None,
    FontFamily->"Courier"],
  
  Cell[StyleData["StandardForm"],
    LineSpacing->{1.25, 0},
    StyleMenuListing->None,
    FontFamily->"Courier"],
  
  Cell[StyleData["TraditionalForm"],
    LineSpacing->{1.25, 0},
    SingleLetterItalics->True,
    TraditionalFunctionNotation->True,
    DelimiterMatching->None,
    StyleMenuListing->None],
  
  Cell["\<\
The style defined below is mixed in to any cell that is in an inline cell \
within another.\
\>", "Text"],
  
  Cell[StyleData["InlineCell"],
    TextAlignment->Left,
    ScriptLevel->1,
    StyleMenuListing->None],
  
  Cell[StyleData["InlineCellEditing"],
    StyleMenuListing->None,
    Background->RGBColor[1, 0.749996, 0.8]]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell["Expression Annotation Styles", "Section"],
  
  Cell["\<\
The cells below define styles that are used to effect the display of certain \
types of objects in typeset expressions.  For example, \"UnmatchedBracket\" \
style defines how unmatched bracket, curly bracket, and parenthesis \
characters are displayed (typically by coloring them to
make them stand out).\
\>", "Text"],
  
  Cell[StyleData["UnmatchedBracket"],
    FontColor->RGBColor[0.760006, 0.330007, 0.8]]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell["Styles for Automatic Numbering", "Section"],
  
  Cell["\<\
The following styles are useful for numbered equations, figures, etc.  They \
automatically give the cell a FrameLabel containing a reference to a \
particular counter, and also increment that counter.\
\>", "Text"],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["NumberedEquation"],
    CellMargins->{{55, 10}, {0, 10}},
    CellFrameLabels->{{None, Cell[ 
            TextData[ {"(", 
              CounterBox[ "NumberedEquation"], ")"}]]}, {None, None}},
    DefaultFormatType->DefaultInputFormatType,
    CounterIncrements->"NumberedEquation",
    FormatTypeAutoConvert->False],
  
  Cell[StyleData["NumberedEquation", "Printout"],
    CellMargins->{{55, 55}, {0, 10}},
    FontSize->10]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["NumberedFigure"],
    CellMargins->{{55, 145}, {2, 10}},
    CellHorizontalScrolling->True,
    CellFrameLabels->{{None, None}, {Cell[ 
            TextData[ {"Figure ", 
              CounterBox[ "NumberedFigure"]}], FontWeight -> "Bold"], None}},
    CounterIncrements->"NumberedFigure",
    FormatTypeAutoConvert->False],
  
  Cell[StyleData["NumberedFigure", "Printout"],
    FontSize->10]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["NumberedTable"],
    CellMargins->{{55, 145}, {2, 10}},
    CellFrameLabels->{{None, None}, {Cell[ 
            TextData[ {"Table ", 
              CounterBox[ "NumberedTable"]}], FontWeight -> "Bold"], None}},
    TextAlignment->Center,
    CounterIncrements->"NumberedTable",
    FormatTypeAutoConvert->False],
  
  Cell[StyleData["NumberedTable", "Printout"],
    CellMargins->{{18, Inherited}, {Inherited, Inherited}},
    FontSize->10]
  }, Closed]]
  }, Closed]]
  }, Open  ]]
  }]
]


(***********************************************************************
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, 9590, 162, 21, 9316, 153, "GraphicsData", "Bitmap", "Title",
  Evaluatable->False],

Cell[CellGroupData[{
Cell[11332, 215, 5069, 89, 49, 4823, 80, "GraphicsData", "Bitmap", "Title",
  Evaluatable->False],
Cell[16404, 306, 76, 0, 118, "Title"],
Cell[16483, 308, 64, 3, 126, "Author"],

Cell[CellGroupData[{
Cell[16572, 315, 43, 0, 65, "Section"],

Cell[CellGroupData[{
Cell[16640, 319, 53, 0, 59, "Subsection"],
Cell[16696, 321, 1107, 32, 158, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[17840, 358, 98, 2, 49, "Subsection"],
Cell[17941, 362, 210, 6, 43, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[18188, 373, 53, 0, 49, "Subsection"],
Cell[18244, 375, 1476, 45, 388, "Text"]
}, Closed]]
}, Open  ]]
}, Open  ]]
}
]
*)




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