Problems rendering Graphics3D with RealTime3D
- To: mathgroup at smc.vnet.net
- Subject: [mg27075] Problems rendering Graphics3D with RealTime3D
- From: "Emilio Martin-Serrano Sobrino" <emilio.martin at sema.es>
- Date: Sat, 3 Feb 2001 04:59:10 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Hello Math Groupers!:
I recently upgraded my MathematicaV3.01 to Mathematica V4.1, and when trying
the RealTime3D new features (I know it is experimental!) I got some
problems. Some of the Graphics3D that worked perfectly in V3 and even in V4
did not work under the new RealTime3D, while others were well generated.
I am attaching one of the notebooks for you to try (if you have Mathematica
V4). Please, try with and without loading the RealTime3D package and see the
differences. If you know about the sources of the problem I would appreciate
any feedback.
Regards
Emilio Martín-Serrano
Madrid (Spain)
------------------------------------------------------------------
This email is confidential and intended solely for the use of the individual to whom it is addressed. Any views or opinions presented are solely those of the author and do not necessarily represent those of Sema Group.
If you are not the intended recipient, be advised that you have received this email in error and that any use, dissemination, forwarding, printing, or copying of this email is strictly prohibited.
------------------------------------------------------------------
(************** Content-type: application/mathematica **************
Mathematica-Compatible Notebook
This notebook can be used with any Mathematica-compatible
application, such as Mathematica, MathReader or Publicon. The data
for the notebook starts with the line containing stars above.
To get the notebook into a Mathematica-compatible application, do
one of the following:
* Save the data starting with the line of stars above into a file
with a name ending in .nb, then open the file inside the
application;
* Copy the data starting with the line of stars above to the
clipboard, then use the Paste menu command inside the application.
Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode. Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).
NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing
the word CacheID, otherwise Mathematica-compatible applications may
try to use invalid cache data.
For more information on notebooks and Mathematica-compatible
applications, contact Wolfram Research:
web: http://www.wolfram.com
email: info at 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[ 19510, 694]*)
(*NotebookOutlinePosition[ 48426, 1620]*)
(* CellTagsIndexPosition[ 48382, 1616]*)
(*WindowFrame->Normal*)
Notebook[{
Cell[CellGroupData[{
Cell["Local Context Set up", "Subtitle"],
Cell["Needs[\"Utilities`Notation`\"]", "Input",
CellLabel->"In[1]:="],
Cell[BoxData[
\( (*\ Needs["\<EMS`Personal`Gradients`\>"]\ *) \)], "Input",
CellLabel->"In[2]:="],
Cell[BoxData[
\(Off[General::"\<spell1\>"]\)], "Input",
CellLabel->"In[3]:="],
Cell[BoxData[
\(Off[General::"\<spell\>"]\)], "Input",
CellLabel->"In[4]:="],
Cell[BoxData[
\(Clear[FunctElast, AlphaISLM, BetaISLM, GammaISLM]\)], "Input",
CellLabel->"In[5]:="]
}, Closed]],
Cell["Local Infrastructure", "Subtitle"],
Cell[BoxData[
\( (*\ << RealTime3D`*) \)], "Input",
CellLabel->"In[6]:="],
Cell["Notation Infraestructure", "SectionFirst"],
Cell[CellGroupData[{
Cell["Theory Standar Symbols", "Section",
CellFrame->True,
CellDingbat->"\[FilledCircle]",
Background->GrayLevel[0.849989]],
Cell[BoxData[
\(\(\(SymbolizeSubscript[f_, k_]\)\(:=\)\(Symbolize[
NotationBoxTag[SubscriptBox\ [f, k]]]\)\(\ \)\)\)], "Input",
CellLabel->"In[7]:="],
Cell[BoxData[
\(\(\(SymbolizeOverscript[f_, k_]\)\(:=\)\(Symbolize[
NotationBoxTag[OverscriptBox\ [f, k]]]\)\(\ \)\)\)], "Input",
CellLabel->"In[8]:="],
Cell[BoxData[
\(\(\(SymbolizeUnderscript[f_, k_]\)\(:=\)\(Symbolize[
NotationBoxTag[UnderscriptBox\ [f, k]]]\)\(\ \)\)\)], "Input",
CellLabel->"In[9]:="],
Cell[BoxData[
\(\(\(SymbolizeUperscript[f_, k_]\)\(:=\)\(Symbolize[
NotationBoxTag[UperscriptBox\ [f, k]]]\)\(\ \)\)\)], "Input",
CellLabel->"In[10]:="],
Cell[BoxData[
\(\(MapThread[
SymbolizeSubscript, {{"\<\[ScriptI]\>", "\<Y\>"}, {"\<0\>", \
"\<0\>"}}];\)\)], "Input",
CellLabel->"In[11]:="],
Cell[BoxData[
\(\(MapThread[
SymbolizeOverscript, {{"\<A\>", "\<M\>", "\<P\>", "\<G\>"},
{"\<-\>", \
"\<-\>", "\<-\>", "\<-\>"}}];\)\)], "Input",
CellLabel->"In[12]:="]
}, Closed]],
Cell["Functions", "SectionFirst"],
Cell[CellGroupData[{
Cell["Auxiliary Functions (Elasticity)", "Section",
CellFrame->True,
CellDingbat->"\[FilledCircle]",
Background->GrayLevel[0.849989]],
Cell[BoxData[
\(FunctElast[f_, x_: x] := \(f\ x\)\/\[PartialD]\_x f\)],
"Input",
CellLabel->"In[13]:="]
}, Closed]],
Cell[CellGroupData[{
Cell["Parameter Functions ", "Section",
CellFrame->True,
CellDingbat->"\[FilledCircle]",
Background->GrayLevel[0.849989]],
Cell[CellGroupData[{
Cell["ISLM Parameters", "Subsection",
CellFrame->True,
Background->GrayLevel[0.849989]],
Cell[BoxData[
\(AlphaISLM[\[ScriptC]_: \[ScriptC], \[ScriptT]_: \[ScriptT]] :=
1\/\(1 - \[ScriptC]\ \((1 - \[ScriptT])\)\)\)], "Input",
CellLabel->"In[14]:="],
Cell[BoxData[
\(GammaISLM[\[Alpha]_: \[Alpha], \[ScriptB]_: \[ScriptB],
\[ScriptK]_: \
\[ScriptK], \[ScriptH]_: \[ScriptH]] := \[Alpha]\/\(1 + \(\[ScriptK]\
\
\[Alpha]\ \[ScriptB]\)\/\[ScriptH]\)\)], "Input",
CellLabel->"In[15]:="],
Cell[BoxData[
\( (*GammaISLM[\[CapitalDelta]Y_:
S\[CapitalDelta]Y, \[CapitalDelta]G_: \[CapitalDelta]G]
:= \
\[CapitalDelta]Y\/\[CapitalDelta]G*) \)], "Input",
CellLabel->"In[16]:="],
Cell[BoxData[
\(BetaISLM[\[ScriptB]_: \[ScriptB], \[ScriptH]_: \[ScriptH],
\[Gamma]_: \
\[Gamma]] := \(\[ScriptB]\ \[Gamma]\)\/\[ScriptH]\)], "Input",
CellLabel->"In[17]:="],
Cell[BoxData[
\(BetaISLM[\[CapitalDelta]Y_: \[CapitalDelta]Y, \[CapitalDelta]L_:
\
\[CapitalDelta]L] := \[CapitalDelta]Y\/\[CapitalDelta]L\)], "Input",
CellLabel->"In[18]:="]
}, Closed]],
Cell[CellGroupData[{
Cell["ISLM Elasticity analisys", "Subsection",
CellFrame->True,
Background->GrayLevel[0.849989]],
Cell[BoxData[
\(\((FunctElast[
AlphaISLM[], #1] &)\) /@ {\[ScriptC], \[ScriptT]}\)],
"Input",
CellLabel->"In[19]:="],
Cell[BoxData[
\(\((FunctElast[
GammaISLM[], #1] &)\) /@ {\[Alpha], \[ScriptB], \[ScriptK],
\
\[ScriptH]}\)], "Input",
CellLabel->"In[20]:="],
Cell[BoxData[
\(\((FunctElast[
GammaISLM[\[CapitalDelta]Y, \[CapitalDelta]G], #1] &)\) /@
{\
\[CapitalDelta]Y, \[CapitalDelta]G}\)], "Input",
CellLabel->"In[21]:="],
Cell[BoxData[
\(\((FunctElast[
BetaISLM[\[ScriptB], \[ScriptH], \[Gamma]], #1] &)\) /@ \
{\[Gamma], \[ScriptB], \[ScriptH]}\)], "Input",
CellLabel->"In[22]:="],
Cell[BoxData[
\(\((FunctElast[
BetaISLM[\[CapitalDelta]Y, \[CapitalDelta]L], #1] &)\) /@ {\
\[CapitalDelta]Y, \[CapitalDelta]L}\)], "Input",
CellLabel->"In[23]:="]
}, Closed]],
Cell[CellGroupData[{
Cell["ISLM Rithm analisys", "Subsection",
CellFrame->True,
Background->GrayLevel[0.849989]],
Cell[BoxData[
\(\((\[PartialD]\_#1
AlphaISLM[] &)\) /@ {\[ScriptC], \[ScriptT]}\)], "Input",
CellLabel->"In[24]:="],
Cell[BoxData[
\(\((\[PartialD]\_#1
BetaISLM[\[ScriptB], \[ScriptH], \[Gamma]] &)\) /@
{\[Gamma], \
\[ScriptB], \[ScriptH]}\)], "Input",
CellLabel->"In[25]:="],
Cell[BoxData[
\(\((\[PartialD]\_#1
BetaISLM[\[CapitalDelta]Y, \[CapitalDelta]L] &)\) /@ {\
\[CapitalDelta]Y, \[CapitalDelta]L}\)], "Input",
CellLabel->"In[26]:="],
Cell[BoxData[
\(\((\[PartialD]\_#1
GammaISLM[] &)\) /@ {\[Alpha], \[ScriptB], \[ScriptK], \
\[ScriptH]}\)], "Input",
CellLabel->"In[27]:="],
Cell[BoxData[
\(\((\[PartialD]\_#1
GammaISLM[\[CapitalDelta]Y, \[CapitalDelta]G] &)\) /@ {\
\[CapitalDelta]Y, \[CapitalDelta]G}\)], "Input",
CellLabel->"In[28]:="]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell["ISLM Model Functions ", "SectionFirst"],
Cell[CellGroupData[{
Cell["Graphics Aspect Parameters", "Subsection",
CellFrame->True,
Background->GrayLevel[0.849989]],
Cell[BoxData[
\(\(viewPoints = {{1.3, \(-2.4\), 2}, {0, \(-2\), 0}, {0, \(-2\),
2}, {\(-2\), \(-2\), 0}, {2, \(-2\), 0}, {0, \(-0\),
2}};\)\)], "Input",
CellLabel->"In[29]:="],
Cell[BoxData[
\(vp = {\(-0.070\), \ \(-0.630\), \ 0.820}\)], "Input",
CellLabel->"In[30]:="],
Cell[BoxData[
\(\(lS1 = {{{1.3, 0, 2. }, RGBColor[1, 0, 0]}, {{1, 0. , 2. },
RGBColor[0, 1, .6]}, {{\(-1.3\), 0, 1},
RGBColor[0, 0, 1]}};\)\)], "Input",
CellLabel->"In[31]:="],
Cell[BoxData[
\(\(lS2 = {{{1.3, \(-0.4\), 2. },
RGBColor[1, 0, .10]}, {{2.7, 0. , 2. },
RGBColor[0, .7, 0]}, {{\(-1.3\), \(-0.4\), 2. },
RGBColor[0, 0, 1]}};\)\)], "Input",
CellLabel->"In[32]:="],
Cell[BoxData[
\(\(lS3 = {{{1.3, .4, 2. }, RGBColor[ .5, 0, 0]}, {{2.7, 0. , 2.
},
RGBColor[0, .4, 0]}, {{\(-1.3\), \(- .2\), 2. },
RGBColor[0, .20, 0]}};\)\)], "Input",
CellLabel->"In[33]:="],
Cell[BoxData[
\(\(lS4 = {{{1.3, \(- .4\), 2. },
RGBColor[ .2, 0, 0]}, {{2.7, \(-2. \), 2. },
RGBColor[0, .1, 0]}, {{\(-1.3\), \(- .2\), 2. },
RGBColor[0, .20, 0]}};\)\)], "Input",
CellLabel->"In[34]:="],
Cell[BoxData[
\(bR\ = \ {1, 1, 1}\)], "Input",
CellLabel->"In[35]:="]
}, Closed]],
Cell[CellGroupData[{
Cell["ISLM Parameter values ", "Subsection",
CellFrame->True,
Background->GrayLevel[0.849989]],
Cell[BoxData[{
\(\(cV\ = .4;\)\), "\n",
\(\(tV\ = \ 1 - cV;\)\), "\n",
\(\(bV\ = \ 6;\)\), "\n",
\(\(hV\ = \ 6;\)\), "\n",
\(\(kV\ = 7;\)\), "\n",
\(\(a1V\ = 35;\)\), "\n",
\(\(a2V\ = 65;\)\), "\n",
\(\(yV\ = 35;\)\), "\n",
\(\(inV\ = 15;\)\)}], "Input",
CellLabel->"In[36]:="],
Cell[BoxData[
\(aMax = \ Max[a1V, a2V]\)], "Input",
CellLabel->"In[45]:="],
Cell["lV=yV", "Input",
CellLabel->"In[46]:="],
Cell[BoxData[{
\(\(aV = \ 12;\)\), "\n",
\(\(mV\ = 32;\)\), "\n",
\(\(pV\ = 1.4;\)\)}], "Input",
CellLabel->"In[47]:="],
Cell[BoxData[
\(alphaV = \ AlphaISLM[cV, 1 - cV]\)], "Input",
CellLabel->"In[50]:="],
Cell[BoxData[
\(gammaV = GammaISLM[alphaV, bV, kV, hV]\)], "Input",
CellLabel->"In[51]:="],
Cell[BoxData[
\(betaV = \ BetaISLM[bV, hV, gammaV]\)], "Input",
CellLabel->"In[52]:="]
}, Open ]]
}, Closed]],
Cell["ISLM Fuctions", "SectionFirst"],
Cell[CellGroupData[{
Cell["IS Functions (Goods & Services Market)", "Section",
CellFrame->True,
CellDingbat->"\[FilledCircle]",
Background->GrayLevel[0.849989]],
Cell[CellGroupData[{
Cell["Functions", "Subsubsection",
CellFrame->True,
Background->GrayLevel[0.849989]],
Cell[BoxData[
\(dA\ = \tSolve[da == \ c\ *Y\ + \ A\ - \ in*\ b, da]\)],
"Input",
CellLabel->"In[53]:="],
Cell[BoxData[
\(inYD = Solve[da == \ c\ *Y\ + \ A\ - \ in*\ b, in]\)],
"Input",
CellLabel->"In[54]:="],
Cell[BoxData[
\(y = \
Solve[{da == \ c\ *Y\ + \ A\ - \ in*\ b, \ Y == da}, Y,
da]\)], "Input",
CellLabel->"In[55]:="],
Cell[BoxData[
\(is =
Solve[{da == \ c\ *Y\ + \ A\ - \ in*\ b, \ Y == da}, in,
da]\)], "Input",
CellLabel->"In[56]:="]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell["LM Functions (Capitals Market)", "Section",
CellFrame->True,
CellDingbat->"\[FilledCircle]",
Background->GrayLevel[0.849989]],
Cell[CellGroupData[{
Cell["Functions", "Subsubsection",
CellFrame->True,
Background->GrayLevel[0.849989]],
Cell[BoxData[
\(l = \ Solve[L == k\ Y - \ h\ \ in, \ L]\)], "Input",
CellLabel->"In[57]:="],
Cell[BoxData[
\(lf = Solve[L == k\ Y - \ h\ \ in, \ in]\)], "Input",
CellLabel->"In[58]:="],
Cell[BoxData[
\(lm = Solve[{L == k\ Y - \ h\ \ in, MP == L}, \ in,
L]\)], "Input",
CellLabel->"In[59]:="]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData["M\[AAcute]ximos y M\[IAcute]nimos "], "Subsubsection",
CellFrame->True,
Background->GrayLevel[0.849989]],
Cell[BoxData[
\(iMax\ =
Max[\(in /. Flatten[is]\) /. {A -> aMax, b -> bV, c -> cV,
Y -> Max[yV, lV, mV]}, \(in /. Flatten[lf]\) /. {k -> kV,
h -> hV, L -> Max[yV, lV, mV], Y -> Max[yV, lV, mV]}]\)],
"Input",\
CellLabel->"In[60]:="],
Cell[BoxData[
\(plotRange\ = PlotRange -> {{0, yV}, {0, yV}, {0, iMax}}\)],
"Input",
CellLabel->"In[61]:="]
}, Closed]],
Cell["ISLM Plots", "Subsection",
CellFrame->True,
Background->GrayLevel[0.849989]],
Cell[CellGroupData[{
Cell["IS Plots", "Subsubsection",
CellFrame->True,
Background->GrayLevel[0.849989]],
Cell["dA", "Input",
CellLabel->"In[62]:="],
Cell[BoxData[
\(isP2D = \
Show[\(Plot[\(da /. Flatten[dA]\) /. {A -> #, b -> bV, c -> cV, \
in -> inV/2}, {Y, 0, yV},
AxesLabel -> {"\<Y\>", "\<DA\>"}] &\) /@ {a2V, a1V}]\)],
"Input",\
CellLabel->"In[63]:="],
Cell[CellGroupData[{
Cell[BoxData[
\(\(\(\ \)\(ayP =
Show[\(ParametricPlot3D[{Y, Y, in}, {Y, 0, yV}, {in, 0, iMax},
AxesLabel -> {"\<DA\>", "\<Y\>", "\<in\>"}, BoxRatios ->
bR,
PlotRange -> {{0, yV}, {0, yV}, {0, iMax}},
ViewPoint -> {\(-3.954\), \ \(-2.297\), \
3.030}] &\) /@ {a1V}]\)\)\)], "Input",
CellLabel->"In[64]:="],
Cell[BoxData[
\(ayP =
Show[Graphics3D[
Polygon[{{0, 0, 0}, {0, 0, iMax}, {yV, yV, iMax}, {yV, yV,
0}}]]]\)], "Input",
CellLabel->"In[65]:="]
}, Open ]],
Cell[BoxData[
\(\(\(\ \)\(dAP =
Show[\(ParametricPlot3D[{Y, \(da /. Flatten[dA]\) /. {A -> #, b ->
bV,
c -> cV}, in}, {Y, 0, yV}, {in, 0, iMax},
AxesLabel -> {"\<Y\>", "\<DA\>", "\<in\>"},
PlotRange -> {{0, 15}, {0, 15}, {0, iMax}}, BoxRatios ->
bR,
ViewPoint -> {\(-3.954\), \ \(-2.297\), \
3.030}] &\) /@ {a1V}]\)\)\)], "Input",
CellLabel->"In[66]:="],
Cell[BoxData[
\(Show[dAP, isPar, ayP]\)], "Input",
CellLabel->"In[67]:="],
Cell[CellGroupData[{
Cell["\<\
isPar = =
ParametricPlot3D[{Y,Y,in/.Flatten[is]/.{A->#,b->bV,c->cV},{Blue, \
AbsoluteThickness[2.5]}},{Y,0,yV},AxesLabel->{\"Y\",\"DA\",\"in\"},BoxRatios->\
bR, PlotRange->{{0,20},{0,20},{0,iMax}},ViewPoint->{-3.954, -1.110, \
2.000}]&/@{a1V}\
\>", "Input",
CellLabel->"In[68]:="],
Cell[BoxData[
\(isP = Show[dAP, isPar, ayP]\)], "Input",
CellLabel->"In[69]:="]
}, Open ]],
Cell[CellGroupData[{
Cell["SpinPlots", "Subsection",
CellFrame->True,
Background->GrayLevel[0.849989]],
Cell[BoxData[
\(SpinShow[isP, Frames -> 10, \ RotateLights -> True,
SpinRange -> {0\ \ Degree, \ 360\ \ Degree}, SpinDistance -> 10,
SpinTilt -> { .0, 1}]\)], "Input",
CellLabel->"In[70]:="],
Cell[BoxData[
\(ag\ = \(Show[isP, ViewPoint -> #] &\) /@ viewPoints\)],
"Input",
CellLabel->"In[71]:="]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["LM Plots", "Subsubsection",
CellFrame->True,
Background->GrayLevel[0.849989]],
Cell[BoxData[
\(l\)], "Input",
CellLabel->"In[72]:="],
Cell[BoxData[
\(lPl =
Show[\(ParametricPlot[{\(L /. Flatten[l]\) /. {k -> kV, h -> hV,
Y -> #}, in}, {in, 0, iMax},
PlotRange -> {{0, 30}, {0, iMax}},
AxesLabel -> {"\<L\>", "\<in\>"}] &\) /@ {4, 5, 6, 7, 8,
9}]\)], "Input",
CellLabel->"In[73]:="],
Cell[BoxData[
\(lP =
ParametricPlot3D[{Y, \(L /. Flatten[l]\) /. {k -> kV, h -> hV},
in}, {Y, 0, yV}, {in, 0, iMax},
PlotRange -> {{0, 30}, {0, 30}, {0, iMax}}, BoxRatios -> {1, 1,
1},
AxesLabel -> {"\<Y\>", "\<L\>", "\<in\>"}]\)], "Input",
CellLabel->"In[74]:="],
Cell[CellGroupData[{
Cell[BoxData[
\(mP10 = \(ParametricPlot3D[{Y, 10, in}, {Y, 0, yV}, {in, 0,
iMax},
AxesLabel -> {"\<Y\>", "\<m\>", "\<in\>"}, BoxRatios -> bR,
PlotRange -> {{0, 30}, {0, 30}, {0, iMax}},
ViewPoint -> {\(-3.954\), \ \(-2.297\), \
3.030}] &\) /@ {a1V}\)], "Input",
CellLabel->"In[75]:="],
Cell[BoxData[
\(mP10 =
Show[Graphics3D[
Polygon[{{0, 10, 0}, {0, 10, iMax}, {yV, 10, iMax}, {yV, 10,
0}}]]]\)], "Input",
CellLabel->"In[76]:="]
}, Open ]],
Cell[BoxData[
\(mP20 = \(ParametricPlot3D[{Y, 20, in}, {Y, 0, yV}, {in, 0,
iMax20},
AxesLabel -> {"\<Y\>", "\<m\>", "\<in\>"}, BoxRatios -> bR,
PlotRange -> {{0, 30}, {0, 30}, {0,
iMax}}] &\) /@ {a1V}\)], "Input",
CellLabel->"In[77]:="],
Cell[BoxData[
\(lmPar\ = \ \(ParametricPlot3D[{Y,
10, \(in /. Flatten[lm]\) /. {A -> #, k -> kV, h -> hV,
MP -> 10}, {Red, AbsoluteThickness[2.5]}}, {Y, 0, yV},
AxesLabel -> {"\<Y\>", "\<L\>", "\<in\>"}, BoxRatios -> bR,
\
PlotRange -> {{0, 30}, {0, 30}, {0,
iMax}}] &\) /@ {a1V}\)], "Input",
CellLabel->"In[78]:="],
Cell[BoxData[
\(mP = Show[lP, mP10, lmPar]\)], "Input",
CellLabel->"In[79]:="],
Cell[BoxData[
\(\ \)], "Input",
CellLabel->"In[80]:="],
Cell[BoxData[
\(lmP =
Show[lP, mP, lmPar,
ViewPoint -> {\(-3.954\), \ \(-1.110\), \ 2.000}]\)], "Input",
CellLabel->"In[81]:="],
Cell[BoxData[
\(iSLm = Show[isP, lmP, \ LightSources -> lS2]\)], "Input",
CellLabel->"In[82]:="],
Cell[BoxData[
\(iSLmPar = Show[isPar, lmPar, \ LightSources -> lS2]\)], "Input",
CellLabel->"In[83]:="],
Cell[BoxData[
\(iii = Shadow[iSLmPar, BoxRatios -> bR]\)], "Input",
CellLabel->"In[84]:="],
Cell[BoxData[
\(Show[iii, FaceGrids -> {{1, 0, 0}}]\)], "Input",
CellLabel->"In[85]:="],
Cell[BoxData[
\(Show[iii, BoxStyle -> {Blue, Thickness[ .0006]},
AxesStyle -> Dashing[{ .02, .02, .1}]]\)], "Input",
CellLabel->"In[86]:="],
Cell[BoxData[
\( (*Show[iii,
FaceGrids -> {{{\(-1\), 0, 0}, {GrayLevel[ .3],
Thickness[ .006]}}}]*) \)], "Input",
CellLabel->"In[87]:="],
Cell[BoxData[
\(SpinShow[iSLm, Frames -> 15, \ RotateLights -> True,
SpinRange -> {0\ \ Degree, \ 360\ \ Degree}, SpinDistance -> 10,
SpinTilt -> { .0, 1}]\)], "Input",
CellLabel->"In[88]:="]
}, Open ]],
Cell[CellGroupData[{
Cell["Market Equilibrium ", "Section",
CellFrame->True,
CellDingbat->"\[FilledCircle]",
Background->GrayLevel[0.849989]],
Cell[CellGroupData[{
Cell["Implicit & Explicit Functions", "Subsubsection",
CellFrame->True,
Background->GrayLevel[0.849989]],
Cell[BoxData[
\(Y\_0[\[Gamma]_: \[Gamma],
A_: A, \[ScriptB]_: \[ScriptB], \[ScriptH]_: \[ScriptH], M_:
M,
P_: P] := \[Gamma]\ \ A + \[Gamma]\ \(\(\[ScriptB]\)\(\
\)\)\/\
\[ScriptH]*M\/P\)], "Input",
CellLabel->"In[89]:="],
Cell[BoxData[
\(\(\(\ \)\(i\_0\ [\[Alpha]_: \[Alpha], \[Beta]_: \[Beta],
A_: A, \[ScriptB]_: \[ScriptB], \[ScriptH]_: \[ScriptH], \
\[ScriptK]_: \[ScriptK], \ M_: M, P_: P] := \[Beta]\ \ A - \
1\/\(\((\[ScriptH] + \[ScriptK])\)\ *\ \[Alpha]\ *\
\[ScriptB]\)\ *
M\/P\)\)\)], "Input",
CellLabel->"In[90]:="],
Cell[BoxData[
\(Y\_0[]\)], "Input",
CellLabel->"In[91]:="],
Cell[BoxData[
\(yE = Y\_0[gammaV, A, bV, hV, mV, pV]\)], "Input",
CellLabel->"In[92]:="],
Cell[BoxData[
\(i\_0[]\)], "Input",
CellLabel->"In[93]:="],
Cell[BoxData[
\(iE = i\_0[alphaV, betaV, AV, bV, hV, kV, mV, pV]\)], "Input",
CellLabel->"In[94]:="],
Cell[BoxData[
\(\(\(\ \)\(Solve[{da == \ c\ *Y\ + \ A\ - \ in*\ b, \ Y
== da}, in,
da]\)\)\)], "Input",
CellLabel->"In[95]:="]
}, Open ]],
Cell[CellGroupData[{
Cell["Plots", "Subsubsection",
CellFrame->True,
Background->GrayLevel[0.849989]],
Cell[BoxData[
\(ParametricPlot3D[{yE, iE, A}, {A, 0, 35},
AxesLabel -> {\*"\"\<\!\(Y\_0\)\>\"", \
\*"\"\<\!\(i\_0\)\>\""}]\)], \
"Input",
CellLabel->"In[96]:="]
}, Closed]]
}, Closed]],
Cell[BoxData[
\(Plot3D[Sin[x\ y], {x, \(-Pi\), Pi}, {y, \(-Pi\), Pi},
PlotPoints \[Rule] 100, \ Mesh \[Rule] False]\)], "Input",
CellLabel->"In[97]:="]
},
FrontEndVersion->"4.1 for Microsoft Windows",
ScreenRectangle->{{0, 800}, {0, 555}},
PrintingStyleEnvironment->"Working",
WindowToolbars->"EditBar",
CellGrouping->Manual,
WindowSize->{792, 528},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Visible->True,
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
PrintingOptions->{"PrintingMargins"->{{28.3125, 28.3125}, {42.5,
42.5}}},
InputAliases->{"notation"->RowBox[ {"Notation", "[",
RowBox[ {
TagBox[
"\[Placeholder]", NotationBoxTag, TagStyle ->
"NotationTemplateStyle"], " ",
"\[DoubleLongLeftRightArrow]", " ",
TagBox[
"\[Placeholder]", NotationBoxTag, TagStyle ->
"NotationTemplateStyle"]}], "]"}],
"notation>"->RowBox[ {"Notation", "[",
RowBox[ {
TagBox[
"\[Placeholder]", NotationBoxTag, TagStyle ->
"NotationTemplateStyle"], " ", "\[DoubleLongRightArrow]", "
",
TagBox[
"\[Placeholder]", NotationBoxTag, TagStyle ->
"NotationTemplateStyle"]}], "]"}],
"notation<"->RowBox[ {"Notation", "[",
RowBox[ {
TagBox[
"\[Placeholder]", NotationBoxTag, TagStyle ->
"NotationTemplateStyle"], " ", "\[DoubleLongLeftArrow]", "
",
TagBox[
"\[Placeholder]", NotationBoxTag, TagStyle ->
"NotationTemplateStyle"]}], "]"}],
"symb"->RowBox[ {"Symbolize", "[",
TagBox[
"\[Placeholder]", NotationBoxTag, TagStyle ->
"NotationTemplateStyle"], "]"}],
"infixnotation"->RowBox[ {"InfixNotation", "[",
RowBox[ {
TagBox[
"\[Placeholder]", NotationBoxTag, TagStyle ->
"NotationTemplateStyle"], ",", "\[Placeholder]"}], "]"}],
"addia"->RowBox[ {"AddInputAlias", "[",
RowBox[ {
TagBox[
"\[Placeholder]", NotationBoxTag, TagStyle ->
"NotationTemplateStyle"], ",", "\[Placeholder]"}], "]"}],
"pattwraper"->TagBox[
"\[Placeholder]", NotationPatternTag, TagStyle ->
"NotationPatternWrapperStyle"],
"madeboxeswraper"->TagBox[
"\[Placeholder]", NotationMadeBoxesTag, TagStyle ->
"NotationMadeBoxesWrapperStyle"]},
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[CellGroupData[{
Cell["Style Environment Names", "Section"],
Cell[StyleData[All, "Working"],
ScriptMinSize->9],
Cell[StyleData[All, "Printout"],
PageWidth->PaperWidth,
ShowCellLabel->False,
ImageSize->{200, 200},
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"],
PageHeaders->{{Cell[
TextData[ {
CounterBox[ "Page"]}], "PageNumber"], None, Cell[
TextData[ {
ValueBox[ "FileName"]}], "Header"]}, {Cell[
TextData[ {
ValueBox[ "FileName"]}], "Header"], None, Cell[
TextData[ {
CounterBox[ "Page"]}], "PageNumber"]}},
PageHeaderLines->{True, True},
PrintingOptions->{"FirstPageHeader"->False,
"FacingPages"->True},
CellLabelAutoDelete->False,
CellFrameLabelMargins->6,
StyleMenuListing->None]
}, Closed]],
Cell[CellGroupData[{
Cell["Styles for Headings", "Section"],
Cell[CellGroupData[{
Cell[StyleData["Title"],
CellFrame->{{0, 0}, {0, 0.25}},
CellMargins->{{18, 30}, {4, 20}},
CellGroupingRules->{"TitleGrouping", 0},
PageBreakBelow->False,
CellFrameMargins->9,
InputAutoReplacements->{"TeX"->StyleBox[
RowBox[ {"T",
AdjustmentBox[
"E", BoxMargins -> {{-.074999999999999997, \
-.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]],
"LaTeX"->StyleBox[
RowBox[ {"L",
StyleBox[
AdjustmentBox[
"A", BoxMargins -> {{-.35999999999999999, \
-.10000000000000001}, {0, 0}}, BoxBaselineShift -> -.20000000000000001],
FontSize -> Smaller], "T",
AdjustmentBox[
"E", BoxMargins -> {{-.074999999999999997, \
-.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]],
"mma"->"Mathematica", "Mma"->"Mathematica",
"MMA"->"Mathematica",
Inherited},
LineSpacing->{0.95, 11},
CounterIncrements->"Title",
CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure",
0}},
FontSize->36],
Cell[StyleData["Title", "Printout"],
CellMargins->{{18, 30}, {4, 0}},
CellFrameMargins->4,
FontSize->30]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Subtitle"],
CellMargins->{{18, 30}, {0, 10}},
CellGroupingRules->{"TitleGrouping", 10},
PageBreakBelow->False,
InputAutoReplacements->{"TeX"->StyleBox[
RowBox[ {"T",
AdjustmentBox[
"E", BoxMargins -> {{-.074999999999999997, \
-.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]],
"LaTeX"->StyleBox[
RowBox[ {"L",
StyleBox[
AdjustmentBox[
"A", BoxMargins -> {{-.35999999999999999, \
-.10000000000000001}, {0, 0}}, BoxBaselineShift -> -.20000000000000001],
FontSize -> Smaller], "T",
AdjustmentBox[
"E", BoxMargins -> {{-.074999999999999997, \
-.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]],
"mma"->"Mathematica", "Mma"->"Mathematica",
"MMA"->"Mathematica",
Inherited},
LineSpacing->{1, 0},
CounterIncrements->"Subtitle",
CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure",
0}},
FontSize->24,
FontSlant->"Italic"],
Cell[StyleData["Subtitle", "Printout"],
CellMargins->{{18, 30}, {0, 10}},
FontSize->18]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["SectionFirst"],
CellFrame->{{0, 0}, {0, 3}},
CellMargins->{{18, 30}, {4, 30}},
CellGroupingRules->{"SectionGrouping", 40},
PageBreakBelow->False,
CellFrameMargins->3,
InputAutoReplacements->{"TeX"->StyleBox[
RowBox[ {"T",
AdjustmentBox[
"E", BoxMargins -> {{-.074999999999999997, \
-.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]],
"LaTeX"->StyleBox[
RowBox[ {"L",
StyleBox[
AdjustmentBox[
"A", BoxMargins -> {{-.35999999999999999, \
-.10000000000000001}, {0, 0}}, BoxBaselineShift -> -.20000000000000001],
FontSize -> Smaller], "T",
AdjustmentBox[
"E", BoxMargins -> {{-.074999999999999997, \
-.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]],
"mma"->"Mathematica", "Mma"->"Mathematica",
"MMA"->"Mathematica",
Inherited},
CounterIncrements->"Section",
CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}},
FontSize->18,
FontWeight->"Bold"],
Cell[StyleData["SectionFirst", "Printout"],
FontSize->14]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Section"],
CellMargins->{{18, 30}, {4, 30}},
CellGroupingRules->{"SectionGrouping", 40},
PageBreakBelow->False,
InputAutoReplacements->{"TeX"->StyleBox[
RowBox[ {"T",
AdjustmentBox[
"E", BoxMargins -> {{-.074999999999999997, \
-.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]],
"LaTeX"->StyleBox[
RowBox[ {"L",
StyleBox[
AdjustmentBox[
"A", BoxMargins -> {{-.35999999999999999, \
-.10000000000000001}, {0, 0}}, BoxBaselineShift -> -.20000000000000001],
FontSize -> Smaller], "T",
AdjustmentBox[
"E", BoxMargins -> {{-.074999999999999997, \
-.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]],
"mma"->"Mathematica", "Mma"->"Mathematica",
"MMA"->"Mathematica",
Inherited},
CounterIncrements->"Section",
CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}},
FontSize->18,
FontWeight->"Bold"],
Cell[StyleData["Section", "Printout"],
FontSize->14]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Subsection"],
CellDingbat->"\[FilledSquare]",
CellMargins->{{18, 30}, {4, 20}},
CellGroupingRules->{"SectionGrouping", 50},
PageBreakBelow->False,
InputAutoReplacements->{"TeX"->StyleBox[
RowBox[ {"T",
AdjustmentBox[
"E", BoxMargins -> {{-.074999999999999997, \
-.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]],
"LaTeX"->StyleBox[
RowBox[ {"L",
StyleBox[
AdjustmentBox[
"A", BoxMargins -> {{-.35999999999999999, \
-.10000000000000001}, {0, 0}}, BoxBaselineShift -> -.20000000000000001],
FontSize -> Smaller], "T",
AdjustmentBox[
"E", BoxMargins -> {{-.074999999999999997, \
-.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]],
"mma"->"Mathematica", "Mma"->"Mathematica",
"MMA"->"Mathematica",
Inherited},
CounterIncrements->"Subsection",
CounterAssignments->{{"Subsubsection", 0}},
FontSize->14,
FontWeight->"Bold"],
Cell[StyleData["Subsection", "Printout"],
FontSize->12]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Subsubsection"],
CellDingbat->"\[FilledSmallSquare]",
CellMargins->{{18, 30}, {4, 12}},
CellGroupingRules->{"SectionGrouping", 60},
PageBreakBelow->False,
InputAutoReplacements->{"TeX"->StyleBox[
RowBox[ {"T",
AdjustmentBox[
"E", BoxMargins -> {{-.074999999999999997, \
-.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]],
"LaTeX"->StyleBox[
RowBox[ {"L",
StyleBox[
AdjustmentBox[
"A", BoxMargins -> {{-.35999999999999999, \
-.10000000000000001}, {0, 0}}, BoxBaselineShift -> -.20000000000000001],
FontSize -> Smaller], "T",
AdjustmentBox[
"E", BoxMargins -> {{-.074999999999999997, \
-.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]],
"mma"->"Mathematica", "Mma"->"Mathematica",
"MMA"->"Mathematica",
Inherited},
CounterIncrements->"Subsubsection",
FontSize->12,
FontWeight->"Bold"],
Cell[StyleData["Subsubsection", "Printout"],
FontSize->10]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell["Styles for Body Text", "Section"],
Cell[CellGroupData[{
Cell[StyleData["Text"],
CellMargins->{{18, 10}, {Inherited, 6}},
InputAutoReplacements->{"TeX"->StyleBox[
RowBox[ {"T",
AdjustmentBox[
"E", BoxMargins -> {{-.074999999999999997, \
-.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]],
"LaTeX"->StyleBox[
RowBox[ {"L",
StyleBox[
AdjustmentBox[
"A", BoxMargins -> {{-.35999999999999999, \
-.10000000000000001}, {0, 0}}, BoxBaselineShift -> -.20000000000000001],
FontSize -> Smaller], "T",
AdjustmentBox[
"E", BoxMargins -> {{-.074999999999999997, \
-.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]],
"mma"->"Mathematica", "Mma"->"Mathematica",
"MMA"->"Mathematica",
Inherited},
TextJustification->1,
Hyphenation->True,
LineSpacing->{1, 2},
CounterIncrements->"Text"],
Cell[StyleData["Text", "Printout"],
CellMargins->{{18, 30}, {Inherited, 4}},
LineSpacing->{1, 3},
FontSize->10]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Caption"],
CellMargins->{{55, 50}, {5, 5}},
PageBreakAbove->False,
Hyphenation->True,
FontSize->10],
Cell[StyleData["Caption", "Printout"],
CellMargins->{{55, 55}, {5, 2}},
FontSize->8]
}, Closed]]
}, Closed]],
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.\
\>", "Text"],
Cell[CellGroupData[{
Cell[StyleData["Input"],
CellMargins->{{55, 10}, {5, 8}},
Evaluatable->True,
CellGroupingRules->"InputGrouping",
CellHorizontalScrolling->True,
PageBreakWithin->False,
GroupPageBreakWithin->False,
CellLabelMargins->{{26, Inherited}, {Inherited, Inherited}},
DefaultFormatType->DefaultInputFormatType,
HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
AutoItalicWords->{},
LanguageCategory->"Formula",
FormatType->InputForm,
ShowStringCharacters->True,
NumberMarks->True,
LinebreakAdjustments->{0.85, 2, 10, 0, 1},
CounterIncrements->"Input",
FontSize->12,
FontWeight->"Bold"],
Cell[StyleData["Input", "Printout"],
CellMargins->{{55, 55}, {0, 10}},
ShowCellLabel->False,
LinebreakAdjustments->{0.85, 2, 10, 1, 1},
FontSize->9.5]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Output"],
CellMargins->{{55, 10}, {8, 5}},
CellEditDuplicate->True,
CellGroupingRules->"OutputGrouping",
CellHorizontalScrolling->True,
PageBreakWithin->False,
GroupPageBreakWithin->False,
GeneratedCell->True,
CellAutoOverwrite->True,
CellLabelPositioning->Left,
CellLabelMargins->{{26, Inherited}, {Inherited, Inherited}},
DefaultFormatType->DefaultOutputFormatType,
HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
AutoItalicWords->{},
LanguageCategory->"Formula",
FormatType->InputForm,
CounterIncrements->"Output"],
Cell[StyleData["Output", "Printout"],
CellMargins->{{55, 55}, {10, 10}},
ShowCellLabel->False,
FontSize->9.5]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Message"],
CellDingbat->"\[LongDash]",
CellMargins->{{55, Inherited}, {Inherited, Inherited}},
CellGroupingRules->"OutputGrouping",
PageBreakWithin->False,
GroupPageBreakWithin->False,
GeneratedCell->True,
CellAutoOverwrite->True,
ShowCellLabel->False,
CellLabelMargins->{{26, Inherited}, {Inherited, Inherited}},
DefaultFormatType->DefaultOutputFormatType,
HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
AutoItalicWords->{},
FormatType->InputForm,
CounterIncrements->"Message",
StyleMenuListing->None,
FontSize->10,
FontSlant->"Italic"],
Cell[StyleData["Message", "Printout"],
CellMargins->{{55, 55}, {0, 3}},
FontSize->8]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Print"],
CellMargins->{{55, Inherited}, {Inherited, Inherited}},
CellGroupingRules->"OutputGrouping",
CellHorizontalScrolling->True,
PageBreakWithin->False,
GroupPageBreakWithin->False,
GeneratedCell->True,
CellAutoOverwrite->True,
ShowCellLabel->False,
CellLabelMargins->{{26, Inherited}, {Inherited, Inherited}},
DefaultFormatType->DefaultOutputFormatType,
TextAlignment->Left,
HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
AutoItalicWords->{},
FormatType->InputForm,
CounterIncrements->"Print",
StyleMenuListing->None],
Cell[StyleData["Print", "Printout"],
CellMargins->{{54, 72}, {2, 10}},
FontSize->8]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Graphics"],
CellMargins->{{55, Inherited}, {Inherited, Inherited}},
CellGroupingRules->"GraphicsGrouping",
CellHorizontalScrolling->True,
PageBreakWithin->False,
GeneratedCell->True,
CellAutoOverwrite->True,
ShowCellLabel->False,
DefaultFormatType->DefaultOutputFormatType,
FormatType->InputForm,
CounterIncrements->"Graphics",
StyleMenuListing->None],
Cell[StyleData["Graphics", "Printout"],
CellMargins->{{55, 55}, {0, 15}},
ImageSize->{0.0625, 0.0625},
ImageMargins->{{35, Inherited}, {Inherited, 0}},
FontSize->8]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["CellLabel"],
CellMargins->{{9, Inherited}, {Inherited, Inherited}},
StyleMenuListing->None,
FontFamily->"Helvetica",
FontSize->9,
FontSlant->"Oblique"],
Cell[StyleData["CellLabel", "Printout"],
CellMargins->{{0, Inherited}, {Inherited, Inherited}},
FontSize->8]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell["Unique Styles", "Section"],
Cell[CellGroupData[{
Cell[StyleData["Author"],
CellMargins->{{45, Inherited}, {2, 20}},
CellGroupingRules->{"TitleGrouping", 20},
PageBreakBelow->False,
CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure",
0}},
FontSize->14,
FontWeight->"Bold"],
Cell[StyleData["Author", "Printout"],
CellMargins->{{36, Inherited}, {2, 30}},
FontSize->12]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Address"],
CellMargins->{{45, Inherited}, {2, 2}},
CellGroupingRules->{"TitleGrouping", 30},
PageBreakBelow->False,
LineSpacing->{1, 1},
CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure",
0}},
FontSize->12,
FontSlant->"Italic"],
Cell[StyleData["Address", "Printout"],
CellMargins->{{36, Inherited}, {2, 2}},
FontSize->10]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Abstract"],
CellMargins->{{45, 75}, {Inherited, 30}},
Hyphenation->True,
LineSpacing->{1, 0}],
Cell[StyleData["Abstract", "Printout"],
CellMargins->{{36, 67}, {Inherited, 50}},
FontSize->10]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Reference"],
CellMargins->{{18, 40}, {2, 2}},
TextJustification->1,
Hyphenation->True,
LineSpacing->{1, 0}],
Cell[StyleData["Reference", "Printout"],
CellMargins->{{18, 40}, {Inherited, 0}},
FontSize->8]
}, Closed]]
}, Closed]],
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", "Printout"],
FontSize->10,
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", "Printout"],
FontSize->10,
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", "Printout"],
FontSize->10,
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", "Printout"],
FontSize->10,
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", "Printout"],
FontSize->10,
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", "Printout"],
FontSize->10,
FontColor->GrayLevel[0],
FontVariations->{"Underline"->False}]
}, Closed]]
}, Closed]],
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]}]&)}]
}, Closed]],
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,
HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
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]],
Cell[CellGroupData[{
Cell["Formulas and Programming", "Section"],
Cell[CellGroupData[{
Cell[StyleData["DisplayFormula"],
CellMargins->{{55, 10}, {2, 10}},
CellHorizontalScrolling->True,
DefaultFormatType->DefaultInputFormatType,
HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
LanguageCategory->"Formula",
ScriptLevel->0,
SingleLetterItalics->True,
UnderoverscriptBoxOptions->{LimitsPositioning->True}],
Cell[StyleData["DisplayFormula", "Printout"],
FontSize->10]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["ChemicalFormula"],
CellMargins->{{55, 10}, {2, 10}},
DefaultFormatType->DefaultInputFormatType,
HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
LanguageCategory->"Formula",
AutoSpacing->False,
ScriptLevel->1,
ScriptBaselineShifts->{0.6, Automatic},
SingleLetterItalics->False,
ZeroWidthTimes->True],
Cell[StyleData["ChemicalFormula", "Printout"],
FontSize->10]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Program"],
CellMargins->{{18, 10}, {Inherited, 6}},
Hyphenation->False,
LanguageCategory->"Formula",
FontFamily->"Courier"],
Cell[StyleData["Program", "Printout"],
CellMargins->{{18, 30}, {Inherited, 4}},
FontSize->9.5]
}, Closed]]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell["Notation Package Styles", "Section",
GeneratedCell->True,
CellTags->"NotationPackage"],
Cell["\<\
The cells below define certain styles needed by the Notation package.
These \
styles serve to make visible otherwise invisible tagboxes.\
\>", "Text",
GeneratedCell->True,
CellTags->"NotationPackage"],
Cell[StyleData["NotationTemplateStyle"],
GeneratedCell->True,
StyleMenuListing->None,
Background->RGBColor[1, 1, 0.850004],
TagBoxOptions->{SyntaxForm->"symbol"},
CellTags->"NotationPackage"],
Cell[StyleData["NotationPatternWrapperStyle"],
GeneratedCell->True,
StyleMenuListing->None,
Background->RGBColor[1, 0.900008, 0.979995],
TagBoxOptions->{SyntaxForm->"symbol"},
CellTags->"NotationPackage"],
Cell[StyleData["NotationMadeBoxesWrapperStyle"],
GeneratedCell->True,
StyleMenuListing->None,
Background->RGBColor[0.900008, 0.889998, 1],
TagBoxOptions->{SyntaxForm->"symbol"},
CellTags->"NotationPackage"]
}, Closed]]
}]
]
(*******************************************************************
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[1727, 52, 40, 0, 37, "Subtitle"],
Cell[1770, 54, 71, 1, 31, "Input"],
Cell[1844, 57, 103, 2, 31, "Input"],
Cell[1950, 61, 83, 2, 31, "Input"],
Cell[2036, 65, 82, 2, 31, "Input"],
Cell[2121, 69, 106, 2, 31, "Input"]
}, Closed]],
Cell[2242, 74, 40, 0, 31, "Subtitle"],
Cell[2285, 76, 79, 2, 31, "Input"],
Cell[2367, 80, 48, 0, 62, "SectionFirst"],
Cell[CellGroupData[{
Cell[2440, 84, 129, 3, 72, "Section"],
Cell[2572, 89, 163, 3, 51, "Input"],
Cell[2738, 94, 165, 3, 51, "Input"],
Cell[2906, 99, 167, 3, 51, "Input"],
Cell[3076, 104, 166, 3, 51, "Input"],
Cell[3245, 109, 154, 4, 31, "Input"],
Cell[3402, 115, 182, 4, 51, "Input"]
}, Closed]],
Cell[3599, 122, 33, 0, 36, "SectionFirst"],
Cell[CellGroupData[{
Cell[3657, 126, 139, 3, 72, "Section"],
Cell[3799, 131, 110, 2, 45, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[3946, 138, 127, 3, 46, "Section"],
Cell[CellGroupData[{
Cell[4098, 145, 91, 2, 59, "Subsection"],
Cell[4192, 149, 173, 3, 45, "Input"],
Cell[4368, 154, 241, 4, 49, "Input"],
Cell[4612, 160, 203, 4, 35, "Input"],
Cell[4818, 166, 182, 3, 43, "Input"],
Cell[5003, 171, 182, 3, 43, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[5222, 179, 100, 2, 43, "Subsection"],
Cell[5325, 183, 134, 3, 31, "Input"],
Cell[5462, 188, 158, 4, 31, "Input"],
Cell[5623, 194, 182, 4, 31, "Input"],
Cell[5808, 200, 177, 4, 31, "Input"],
Cell[5988, 206, 181, 4, 31, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[6206, 215, 95, 2, 43, "Subsection"],
Cell[6304, 219, 136, 3, 31, "Input"],
Cell[6443, 224, 179, 4, 31, "Input"],
Cell[6625, 230, 183, 4, 31, "Input"],
Cell[6811, 236, 160, 4, 31, "Input"],
Cell[6974, 242, 184, 4, 31, "Input"]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell[7207, 252, 45, 0, 62, "SectionFirst"],
Cell[CellGroupData[{
Cell[7277, 256, 102, 2, 59, "Subsection"],
Cell[7382, 260, 207, 4, 31, "Input"],
Cell[7592, 266, 98, 2, 31, "Input"],
Cell[7693, 270, 208, 4, 51, "Input"],
Cell[7904, 276, 242, 5, 51, "Input"],
Cell[8149, 283, 226, 4, 51, "Input"],
Cell[8378, 289, 249, 5, 51, "Input"],
Cell[8630, 296, 76, 2, 31, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[8743, 303, 98, 2, 43, "Subsection"],
Cell[8844, 307, 333, 10, 191, "Input"],
Cell[9180, 319, 80, 2, 31, "Input"],
Cell[9263, 323, 47, 1, 31, "Input"],
Cell[9313, 326, 137, 4, 71, "Input"],
Cell[9453, 332, 90, 2, 31, "Input"],
Cell[9546, 336, 96, 2, 31, "Input"],
Cell[9645, 340, 92, 2, 31, "Input"]
}, Open ]]
}, Closed]],
Cell[9764, 346, 37, 0, 36, "SectionFirst"],
Cell[CellGroupData[{
Cell[9826, 350, 145, 3, 72, "Section"],
Cell[CellGroupData[{
Cell[9996, 357, 88, 2, 49, "Subsubsection"],
Cell[10087, 361, 112, 2, 31, "Input"],
Cell[10202, 365, 110, 2, 31, "Input"],
Cell[10315, 369, 141, 4, 31, "Input"],
Cell[10459, 375, 141, 4, 31, "Input"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[10649, 385, 137, 3, 46, "Section"],
Cell[CellGroupData[{
Cell[10811, 392, 88, 2, 49, "Subsubsection"],
Cell[10902, 396, 97, 2, 31, "Input"],
Cell[11002, 400, 97, 2, 31, "Input"],
Cell[11102, 404, 111, 2, 31, "Input"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[11262, 412, 123, 2, 41, "Subsubsection"],
Cell[11388, 416, 272, 6, 51, "Input"],
Cell[11663, 424, 114, 2, 31, "Input"]
}, Closed]],
Cell[11792, 429, 86, 2, 43, "Subsection"],
Cell[CellGroupData[{
Cell[11903, 435, 87, 2, 49, "Subsubsection"],
Cell[11993, 439, 44, 1, 31, "Input"],
Cell[12040, 442, 255, 6, 91, "Input"],
Cell[CellGroupData[{
Cell[12320, 452, 380, 7, 111, "Input"],
Cell[12703, 461, 180, 5, 31, "Input"]
}, Open ]],
Cell[12898, 469, 451, 8, 111, "Input"],
Cell[13352, 479, 79, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[13456, 485, 290, 6, 67, "Input"],
Cell[13749, 493, 85, 2, 31, "Input"]
}, Open ]],
Cell[CellGroupData[{
Cell[13871, 500, 85, 2, 59, "Subsection"],
Cell[13959, 504, 210, 4, 51, "Input"],
Cell[14172, 510, 110, 2, 31, "Input"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[14331, 518, 87, 2, 49, "Subsubsection"],
Cell[14421, 522, 59, 2, 31, "Input"],
Cell[14483, 526, 324, 7, 91, "Input"],
Cell[14810, 535, 305, 6, 51, "Input"],
Cell[CellGroupData[{
Cell[15140, 545, 346, 6, 91, "Input"],
Cell[15489, 553, 183, 5, 31, "Input"]
}, Open ]],
Cell[15687, 561, 287, 5, 71, "Input"],
Cell[15977, 568, 401, 7, 91, "Input"],
Cell[16381, 577, 84, 2, 31, "Input"],
Cell[16468, 581, 60, 2, 31, "Input"],
Cell[16531, 585, 149, 4, 31, "Input"],
Cell[16683, 591, 102, 2, 31, "Input"],
Cell[16788, 595, 109, 2, 31, "Input"],
Cell[16900, 599, 96, 2, 31, "Input"],
Cell[16999, 603, 93, 2, 31, "Input"],
Cell[17095, 607, 154, 3, 31, "Input"],
Cell[17252, 612, 168, 4, 31, "Input"],
Cell[17423, 618, 211, 4, 51, "Input"]
}, Open ]],