Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2001
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2001

[Date Index] [Thread Index] [Author Index]

Search the Archive

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  ]],


  • Prev by Date: Re: Appending to Lists
  • Next by Date: Re: Appending to Lists
  • Previous by thread: Re: Re: idiom for recurrence relations
  • Next by thread: variable projection & separable least-squares..