(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 4.2' 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@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[ 107912, 2882]*) (*NotebookOutlinePosition[ 198277, 6228]*) (* CellTagsIndexPosition[ 198204, 6222]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["Land Use Regulation", FontSize->18]], "Title", TextAlignment->Center, FontSize->12], Cell[TextData[{ StyleBox["\[OpenCurlyDoubleQuote]We now understand better than before how \ small groups can wield power in excess of their relative voting strength and \ thus change the structure of property rights to their advantage, perhaps at \ the expense of the majority of voters.\[CloseCurlyDoubleQuote] Thrainn \ Eggertsson in ", CharacterEncoding->"WindowsANSI"], StyleBox["Economic Behavior and Institutions", FontVariations->{"Underline"->True}, CharacterEncoding->"WindowsANSI"], StyleBox[" p. 62", CharacterEncoding->"WindowsANSI"] }], "IndentedText"], Cell[CellGroupData[{ Cell["Introduction", "Section"], Cell[TextData[{ "Chapter 1 dealt with how market participants make land use decisions in \ their own best interests based ", StyleBox["solely", FontSlant->"Italic"], " on a combination of revenues and costs together with a distance factor. \ That discussion naively ignored the regulatory environment. The brief \ reference to zoning laws at the end of Chapter 1 opens the door for the more \ involved discussion of how patterns of land use are affected by regulation. \ This chapter examines land use from the standpoint of the community. If one \ finds that the bid rent curve in a particular area, rather than having a \ smooth downward sloping shape, is a series of jagged lines not necessarily \ pointing in any direction, it may be that market participants are constrained \ by regulators who have decided what is best for land users regardless of \ economic considerations. Indeed, one of the harshest criticisms of \ government planning is that the motives of policymakers are political rather \ than economic. Thus, land use often proceeds not on the basis of its most \ efficient use but on the basis of the size and level of protest of vocal \ groups who have the power to elect or re-elect officials who do their \ bidding.\nThe landscape is littered with spectacular government-inspired land \ use failures such as Federal housing projects and rent control but one also \ observes the occasional successful urban renewal. No conclusion is likely to \ be reached here, nor is it our purpose to advocate for a specific position. \ Rather, the goal of this chapter is to provide the reader with (1) a way of \ thinking about land use regulation and (2) a model to rationally resolve a \ conflict with a regulatory agency. The chapter will propose a theoretical \ model that permits one to optimize the conditions of regulation in a general \ sense. Following that, an actual municipal decision is illustrated with a \ case study based on real data.\nThe theory of rent determination advanced in \ Chapter 1 was developed in a simpler time. Urbanization on a large scale to \ accommodate a burgeoning population introduces complexities. Observe a \ transaction between two economic agents, in our case landlord and tenant. Do \ their choices affect only them? Perhaps they do not. Economists have a name \ for the effects transactions have on third parties: Externalities. When I buy \ a car from a dealer I get a car and the dealer gets my money. A trade has \ been completed. But when I drive the car I emit pollutants into the air that \ you breathe. You have been affected by the decision of a car buyer and \ seller to engage in a transaction to which you were not a party. The \ transaction imposed a cost on you in the form of soiling the air you breathe. \ This is known as The Problem of Social Cost. This chapter addresses the \ social cost issues affecting real estate and how land use is determined in \ the presence of social costs.\nAn advanced civilization is a society of \ rules. To deal with competing interests, cultural differences and the \ occasional rogue operator we come together as a community to establish what \ constitutes socially acceptable behavior. The business aspect of society has \ a set of norms reached through negotiation over many years. The study of this \ is an active area of research called \"Institutional Economics\" or \"Law and \ Economics\". Academics in this field study the economic consequences of \ passing laws to regulate human economic behavior. Among the more interesting \ findings are the unintended consequences of placing barriers in the way of \ those who would otherwise seek what is best for their own self-interest.\nThe \ underlying conflict may be simplified as one in which we must choose between \ what is good for the individual versus what is good for the community. Part \ of the debate is: Who shall decide? In economics, institutional factors are \ constraints on freedom of choice; and the choice we are interested in here is \ the choice of how land may be used. The unanswered question is: Shall the \ choice be made by the landowner or the community in which the land is \ located.\nTariffs and trade agreements govern how commerce crosses \ international boundaries. Laws prohibiting collusive and coercive activities \ govern domestic trade at a national level. Our interest lies in local \ government. For the private real estate investor local land use regulation is \ a significant aspect of the decision making process. In urban settings it is \ no overstatement to say that real estate investment success is in large part \ dependent on an understanding of the regulatory environment in which the \ local real estate market exists. Whether it is zoning or rent control, real \ estate investors ignore local politics at their peril.\nSeveral general ideas \ make this subject important. \nFirst, the unique fixed-in-location aspect \ that makes real estate different from financial assets provides both \ stability for investors and a fixed target for policymakers. Businesses that \ can easily move out of an oppressive jurisdiction retrain policymakers who \ might otherwise enact ruinous legislation. But the fact that structures are \ not on wheels and their owners cannot merely roll their buildings across the \ county line, taking their businesses with them, represents a temptation to \ local government.\nSecond, directly affecting residential investment, housing \ is a politically charged topic. Economists consider housing a \"merit good\" \ meaning that part of society has decided that all its members \"deserve\" a \ minimum standard of housing regardless of their economic status or ability to \ pay for it. Out of that mentality arises a host of subsidies, programs, \ controls and standards designed to shape the market into something that fits \ the will of a few elected officials, not necessarily market participants.\n\ Third, and often working against the housing issues just mentioned, are the \ parochial views of the community's established citizenry. Popularized as \ \"NIMBYism\", this manifests itself in the form of local planning groups \ populated by activists who profess a heightened environmental sensitivity, \ concern for preservation of \"the neighborhood\" and who often merely oppose \ everything that represents change. The unintended consequences of this \ activity are interesting to study. They can be as benign as imposing a brief \ delay in obtaining a building permit to extreme outcomes such as litigation \ that bankrupts a developer pursuing a politically unpopular project.\nIn a \ modern city the list of development constraints and regulations is a long \ one. A builder must comply with the general plan, zoning, minimum lot size, \ open space requirements, minimum setbacks from lot lines, maximum floor area \ ratios, building height limitations, grading limitations on slopes, minimum \ landscaped area, view corridors, off street parking, curb cuts, building \ codes, fire prevention and suppression regulations, and traffic counts just \ to name a few. In areas designated as special districts they may also have to \ deal with architectural and design requirements. Some property owners must \ get permission to change the color of their building when they repaint it. \ Charles M. Tiebout (1956) saw a market concept at work for cities. He \ proposed a model for residential homeowners that views the universe of \ potential locations as a group of municipalities competing for \ citizen-taxpayers who \"vote with their feet\" by moving into communities \ offering the best (most efficient) mix of services and taxes (benefits and \ costs) and out of those communities offering less efficient combinations. \ Thus, under the Tiebout hypothesis, communities that fail to provide services \ demanded at a market price (reasonable taxes) are punished by an exodus of \ tax-paying citizens. On the positive, communities that provide high quality \ services at or below market prices attract tax-paying citizens.\nThese \ dynamics influence the choices of commercial land users as well. The recent \ past has seen a rise in the interest of state and local jurisdictions in \ being competitive in the regulatory arena. These range from as little as \ advertising their communities as \"business friendly\" to as much as offering \ major tax concessions for many years after construction of a facility.\nThere \ is no particular reason to choose for our study one form of land use \ regulation over another. Zoning, environmental protection or rent control, \ each has compelling arguments for and against. The method of thinking \ proposed here is a classical microeconomics approach that leads to the \ conclusion that the best answer is the one that accomplishes the most good \ for the most people. One should recognize, however, that the implementation \ of a ", StyleBox["rational", FontSlant->"Italic"], " model in a political environment represents a daunting challenge. People \ are often not rational. Does that mean we should abandon all use of rational \ models? No, often there is an opportunity to present a well-formed argument \ to cooler heads. Such an argument can not only be well received, it can carry \ the day when it is time to vote a project up or down.\nThere are hundreds if \ not thousands of examples from the residential field to draw from. Rather \ than take one of those and its somewhat straightforward analysis, the setting \ for the analysis here comes from the commercial area. This presents \ additional challenges that deserve attention, and at the same time \ illustrates how a somewhat esoteric land use conflict can be modeled." }], "Text", FontSize->12] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["The idea of \[OpenCurlyDoubleQuote]utility\"", CharacterEncoding->"WindowsANSI"], "" }], "Section"], Cell[TextData[{ "Central to the development of a theoretical model of this type is the use \ of an abstraction known as \"utility\", a term economists employ to describe \ a more general form of happiness or betterment. Our model needs a yardstick \ that describes the gratification that comes with success and that yardstick \ is \"utility\". We can quantify this and with further analysis describe \ situations that are better or worse in terms of increased or diminished \ utility. The utility abstraction may seem foreign to non-economists thus the \ analogy to happiness or betterment. While perhaps ill defined, most of us \ know when we are more or less happy or satisfied. Utility is just the word \ economists use to describe that feeling, nothing more. As we wish to \ mathematically model this result, \"disutility\", meaning negative or smaller \ amounts of utility, translates roughly to unhappiness or less happiness, of \ course something to be avoided. Clearly, unhappiness is inferior to happiness \ and thus any mathematical result having a lower value represents a tendency \ toward unhappiness. Utility is ordinal, not cardinal. That is, the actual \ number we produce in any calculation has no meaning by itself (unless one \ believes there is a unit of measure known as \"utils\"). This frustrates \ those who have labored to \"get the numbers right\" in other investment \ settings by calculating the \"right\" answer in the form of some specific \ number. What matters where any number is concerned is ", StyleBox["the ranking", FontSlant->"Italic"], " of various values of utility computed under differing conditions. Thus, \ I may know that I am happier than my brother-in-law but I probably would not \ say that he has a happiness value of 80 unless I was convinced I have a \ happiness value of, say, 95. (The \"happiness\" metaphor tends to be \ stretched rather thin at about this point).\nOnce we accept the utility \ abstraction the next step is to construct a way in which utility is achieved. \ This leads to a \"production function\" which is nothing more than a \"rule\" \ by which people \"manufacture\" utility. Returning to our happiness \ metaphor, most readers have heard someone say that our success or happiness \ is the sum of all of our choices. In such a case the production function or \ rule we use is merely to add up all the choices (implicitly subtracting the \ bad choices that may be seen as adding negative numbers) we have made and \ that determine our happiness. \nSuch a rule becomes more complex in a real \ estate setting but nonetheless is still just some sort of rule. The rule we \ often use for economic choices has two essential properties, both of which \ are fairly intuitive. First, we assume we are always interested in more \ happiness thus the utility function is always rising. This is formally known \ as the property of non-satiation. Second, despite its constant increase,", StyleBox[" the rate at which it increases", FontSlant->"Italic"], " slows as utility increases. This is formally referred to as diminishing \ marginal returns, meaning that while we are happier with each new increment \ of utility we are not as much happier with the next increment as we were with \ the increment last received. \nA silly example may help here. Suppose I love \ bananas to the point of craving. If, like Groucho, I have no bananas I may be \ willing to pay quite a tidy sum for a single banana. I would trade money for \ the utility I receive from eating a banana. Suppose that tomorrow I inherit \ from my deceased rich uncle a large productive banana plantation providing me \ an ample supply of bananas. I still have the craving love of bananas but what \ has changed is what I am willing to trade for yet another banana. Because my \ utility function for bananas exhibits diminishing marginal returns with \ increased ownership of bananas, the amount I am willing to pay for another \ banana when I already have millions of bananas is, although a positive amount \ due to the non-satiation principle, very small.\nHowever you approach an \ understanding of it, utility is a useful abstraction for considering the cost \ and benefits of different choices we face. The reader is encouraged to find a \ comfort level with this abstraction as it is one we will return to again in \ this book.\nWith the free market lessons of Chapter 1 in mind we proceed with \ the counter example: Political land use determination." }], "Text", FontSize->12] }, Open ]], Cell[CellGroupData[{ Cell["The Model", "Section"], Cell[TextData[{ "Suppose a community wishes to protect the environment (", StyleBox["Env", "Input"], "), specifically the ", StyleBox["visual", FontSlant->"Italic"], " environment, by regulating the commercial advertising (", StyleBox["A", "Input"], ") of local businesses. We assume that community retail merchants \ advertise via outdoor signage. Regulation comes in the form of restricting \ the height, size, mass, design, shape, illumination, position, color, copy, \ etc. of signs. Resources the community spends on aesthetic regulation reduce \ scarce resources in the form of tax revenue available for other services the \ municipality must furnish such as police and fire protection (", StyleBox["M", "Input"], "). One characterization of the latter would be \"hard benefits\" rendered \ by the city to its residents. On the other hand, regulation of the \ aesthetics of the local visual environment may be termed \"soft benefits\".\n\ Citizens derive utility (", StyleBox["U", "Input"], ") from having visually uncluttered or appealing commercial vistas (", StyleBox["Env", "Input"], ") and from the receipt of municipal services (", StyleBox["M", "Input"], "). A conflict exists between merchants who wish to maximize advertising \ to saturation ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", StyleBox[\(A\_0\), "Input"], ")"}], " "}], TraditionalForm]]], "and residents who wish to regulate signage as close to zero as possible. \ A trade-off exists because the reduction of advertising brings about the \ related but not exactly equivalent reduction of municipal income from taxes. \ Tax revenue is a function of (1) sales which, in turn, are a function of \ advertising; and (2) property values. As property values are, through rent, \ an indirect a function of sales, we impound all tax effects into the sales \ tax and ignore for simplicity the dual source of municipal revenue. Thus, the \ city's tax revenue must be allocated between paying for the soft benefits \ afforded by aesthetic regulation and the hard benefits of \ non-aesthetic-regulation municipal services. \nThe city derives its income \ from taxes levied on sales (", StyleBox["S", "Input"], ") at a tax rate (", StyleBox["q", "Input"], ") set exogenously by the State. Merchants who employ signs to advertise \ their businesses to passing consumers generate sales, in part, on the basis \ of the productivity (", StyleBox["\[Gamma]", "Input"], ") of their advertising, which is related to characteristics of the \ individual signs such as size, height, etc. One of the ways the city may \ regulate advertising (", StyleBox["A", "Input"], ") is by reducing the efficiency (", StyleBox["\[Gamma]", "Input"], ") of signs by restricting their characteristics.\nThe city must maximize \ utility (", StyleBox["U", "Input"], ") by choosing the ", StyleBox["correct", FontSlant->"Italic"], " amount of allowable advertising (", StyleBox["A*", "Input"], "). All other variables are exogenous." }], "Text"], Cell[BoxData[{\(CleanSlate[];\), "\[IndentingNewLine]", \(<< Utilities`Notation`\), "\n", \(UpdateNotationsInNotebook[]\), "\n", \(<< Graphics`Graphics3D`\), "\n", \(<< Graphics`Arrow`\), "\n", \(<< Graphics`Legend`\), "\[IndentingNewLine]", \(<< Graphics`Animation`\), "\n", StyleBox[\(Off[General::spell1];\), FontFamily->"Courier New"], "\n", StyleBox[\(Off[General::spell];\), FontFamily->"Courier New"], "\[IndentingNewLine]", StyleBox[\($DefaultFont = {"\", 12. };\), FontFamily->"Courier New"]}], "Input", CellLabel->"In[1]:=", FontSize->12], Cell[BoxData[ RowBox[{"Symbolize", "[", TagBox[ TagBox[\(A\_0\), NotationBoxTag, TagStyle->"NotationTemplateStyle", Editable->True], NotationBoxTag, TagStyle->"NotationTemplateStyle"], "]"}]], "Input", CellLabel->"In[11]:=", FontSize->12], Cell[TextData[{ "Our notation guide is as follows:\n", StyleBox["A", "Input"], "\t=\tAdvertising \n", StyleBox["q", "Input"], "\t=\ttax rate \n", StyleBox["U", "Input"], "\t=\tUtility \n", StyleBox["M", "Input"], "\t=\tMunicipal services\n", StyleBox["Env", "Input"], "\t=\tEnvironmental protection \n", StyleBox["S", "Input"], "\t=\tSales volume\n", StyleBox["\[Alpha]", "Input"], "\t=\tproportion of Utility arising from citizens' preference for \n\t\t\ environmental regulation, 0 < \[Alpha] < 1\n1-", StyleBox["\[Alpha]", "Input"], "\t=\tproportion of Utility arising from citizens' preference for non-\n\t\t\ environmental \tregulation community services\n", StyleBox["\[Beta]", "Input"], "\t=\tcitizens' negative utility from the appearance of advertising \n", StyleBox["\[Gamma]", "Input"], "\t=\tmerchants' productivity of advertising \[Gamma] > 0\n", Cell[BoxData[ FormBox[ StyleBox[\(A\_0\), "Input"], TraditionalForm]]], " \t= \tthe maximum imaginable amount of advertising possible - full \n\t\t\ saturation, full \tcoverage by any measure, an amount beyond \n\t\twhich it \ is impossible to go." }], "Text", FontSize->12], Cell[TextData[{ "The city derives revenue from sales taxes levied on sales generated by \ businesses. Businesses depend on advertising to promote sales. The following \ expression describes sales, ", StyleBox["S", "Input"], ", as a function of advertising, ", StyleBox["A", "Input"], ", where ", StyleBox["\[Gamma]", "Input"], " represents the productivity of advertising:" }], "Text", FontSize->12], Cell[BoxData[ \(\(S = A\^\[Gamma];\)\)], "Input", CellLabel->"In[12]:=", FontSize->12], Cell[TextData[{ "The following expression describes Municipal Services (", StyleBox["M", "Input"], ") in the form of an annual budget wherein revenue is derived from taxing \ sales (in the interests of simplicity property taxes are not considered here \ even though increases in sales increases property values and therefore \ property taxes):" }], "Text", FontSize->12], Cell[BoxData[ \(\(M = q\ S;\)\)], "Input", CellLabel->"In[13]:=", FontSize->12], Cell["\<\ Citizens find advertising objectionable and have a production function (rule) \ for Environmental protection based on their disutility of Advertising:\ \>", "Text", FontSize->12], Cell[BoxData[ \(\(Env = \((A0 - A)\)\^\[Beta];\)\)], "Input", CellLabel->"In[14]:=", FontSize->12], Cell[TextData[{ "The disutility is subtle. The term \"", StyleBox["A", "Input"], "\" must be viewed as \"Allowed Advertising\". The controversy surrounds \ the difference between the maximum amount of advertising, ", Cell[BoxData[ FormBox[ RowBox[{"(", StyleBox[\(A\_0\), "Input"], ")"}], TraditionalForm]]], ", and that which is allowed, ", StyleBox["A", "Input"], ". Merchants want A to be as high as possible, as close to full \ saturation, ", Cell[BoxData[ FormBox[ RowBox[{"(", StyleBox[\(A\_0\), "Input"], ")"}], TraditionalForm]]], ", as they can get. This makes the term ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{ StyleBox[\(A\_0\), "Input"], "-", StyleBox["A", "Input"]}], ")"}], TraditionalForm]]], " approach zero. Residents want ", StyleBox["A", "Input"], " to be as low as possible, making the difference between the maximum and \ the allowed advertising ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{ StyleBox[\(A\_0\), "Input"], "-", StyleBox["A", "Input"]}], ")"}], TraditionalForm]]], " as large as possible. The condition ", StyleBox["A", "Input"], " = 0 may be viewed as \"full regulation\", the case of no advertising \ allowed. Plotting ", StyleBox["Env", "Input"], ", the term ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{ StyleBox[\(A\_0\), "Input"], "-", StyleBox["A", "Input"]}], ")"}], TraditionalForm]]], ", for an arbitrary value of ", Cell[BoxData[ FormBox[ RowBox[{"(", StyleBox[\(A\_0\), "Input"], ")"}], TraditionalForm]]], "and two different values of ", StyleBox["\[Beta]", "Input"], " against ", StyleBox["A", "Input"], " shows that the amount of environmental protection (", StyleBox["Env", "Input"], ") residents achieve falls with the increase of ", StyleBox["A", "Input"], ". The exponent \[Beta] indicates the intensity with which residents \ derive utility from the ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{ StyleBox[\(A\_0\), "Input"], "-", StyleBox["A", "Input"]}], ")"}], TraditionalForm]]], " term thus determines ", StyleBox["the rate", FontSlant->"Italic"], " at which Env falls with the rise in ", StyleBox["A", "Input"], "." }], "Text", FontSize->12], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ShowLegend", "[", "\n", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Env", "/.", RowBox[{"{", RowBox[{\(A0 \[Rule] 1000\), ",", StyleBox[\(\[Beta] -> .7\), FontColor->RGBColor[0, 0, 1]]}], "}"}]}], ",", RowBox[{"Env", "/.", RowBox[{"{", RowBox[{\(A0 \[Rule] 1000\), ",", StyleBox[\(\[Beta] -> .8\), FontColor->RGBColor[1, 0, 0]]}], "}"}]}]}], "}"}], ",", \({A, 0, 999}\), ",", \(PlotStyle \[Rule] {{Dashing[{ .02, .02}], Hue[ .6]}, {Hue[ .9]}}\), ",", \(AxesLabel \[Rule] {"\", "\"}\), ",", \(DisplayFunction \[Rule] Identity\)}], "]"}], ",", "\n", " ", \({{{Graphics[{Hue[ .9], Dashing[{ .02, .02}], Line[{{0, \ 0}, \ {1, \ 0}}]}]\ , StyleForm["\<\[Beta] = .8\>", \ TraditionalForm, \ FontSize\ -> \ 10]}, {Graphics[\ {Hue[ .6], Line[{{0, \ 0}, \ {1, \ 0}}]}]\ , StyleForm["\<\[Beta] = .7\>", \ TraditionalForm, \ FontSize\ -> \ 10]}}, LegendSize \[Rule] {1, .3}, LegendPosition -> { .4, \(- .1\)}}\)}], "]"}], ";"}]], "Input", CellLabel->"In[15]:=", CellTags->"b:2.3"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .50452 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Times-NewRoman %%IncludeFont: Times-NewRoman /Times-NewRoman findfont 12 scalefont setfont % Scaling calculations 0.412536 0.388727 0.252259 0.388727 [ [ 0 0 0 0 ] [ 1 .50452 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath % Start of sub-graphic p 0.0238095 0.0120123 0.801263 0.492505 MathSubStart %% Graphics %%IncludeResource: font Times-NewRoman %%IncludeFont: Times-NewRoman /Times-NewRoman findfont 12 scalefont setfont % Scaling calculations 0.0238095 0.000953334 0.0147151 0.00234327 [ [.21448 .00222 -11 -15.75 ] [.21448 .00222 11 0 ] [.40514 .00222 -11 -15.75 ] [.40514 .00222 11 0 ] [.59581 .00222 -11 -15.75 ] [.59581 .00222 11 0 ] [.78648 .00222 -11 -15.75 ] [.78648 .00222 11 0 ] [.97714 .00222 -14 -15.75 ] [.97714 .00222 14 0 ] [1.025 .01472 0 -7.875 ] [1.025 .01472 12.6875 7.875 ] [.01131 .13188 -16 -7.875 ] [.01131 .13188 0 7.875 ] [.01131 .24904 -22 -7.875 ] [.01131 .24904 0 7.875 ] [.01131 .36621 -22 -7.875 ] [.01131 .36621 0 7.875 ] [.01131 .48337 -22 -7.875 ] [.01131 .48337 0 7.875 ] [.01131 .60053 -22 -7.875 ] [.01131 .60053 0 7.875 ] [.02381 .64303 -11.5625 0 ] [.02381 .64303 11.5625 15.75 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .21448 .01472 m .21448 .02097 L s gsave .21448 .00222 -72 -19.75 Mabsadd m 1 1 Mabs scale currentpoint translate 0 23.75 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 15.875 moveto %%IncludeResource: font Times-NewRoman %%IncludeFont: Times-NewRoman /Times-NewRoman findfont 12.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (200) show 1.000 setlinewidth grestore .40514 .01472 m .40514 .02097 L s gsave .40514 .00222 -72 -19.75 Mabsadd m 1 1 Mabs scale currentpoint translate 0 23.75 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 15.875 moveto %%IncludeResource: font Times-NewRoman %%IncludeFont: Times-NewRoman /Times-NewRoman findfont 12.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (400) show 1.000 setlinewidth grestore .59581 .01472 m .59581 .02097 L s gsave .59581 .00222 -72 -19.75 Mabsadd m 1 1 Mabs scale currentpoint translate 0 23.75 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 15.875 moveto %%IncludeResource: font Times-NewRoman %%IncludeFont: Times-NewRoman /Times-NewRoman findfont 12.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (600) show 1.000 setlinewidth grestore .78648 .01472 m .78648 .02097 L s gsave .78648 .00222 -72 -19.75 Mabsadd m 1 1 Mabs scale currentpoint translate 0 23.75 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 15.875 moveto %%IncludeResource: font Times-NewRoman %%IncludeFont: Times-NewRoman /Times-NewRoman findfont 12.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (800) show 1.000 setlinewidth grestore .97714 .01472 m .97714 .02097 L s gsave .97714 .00222 -75 -19.75 Mabsadd m 1 1 Mabs scale currentpoint translate 0 23.75 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 15.875 moveto %%IncludeResource: font Times-NewRoman %%IncludeFont: Times-NewRoman /Times-NewRoman findfont 12.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (1000) show 1.000 setlinewidth grestore .125 Mabswid .07148 .01472 m .07148 .01847 L s .11914 .01472 m .11914 .01847 L s .16681 .01472 m .16681 .01847 L s .26214 .01472 m .26214 .01847 L s .30981 .01472 m .30981 .01847 L s .35748 .01472 m .35748 .01847 L s .45281 .01472 m .45281 .01847 L s .50048 .01472 m .50048 .01847 L s .54814 .01472 m .54814 .01847 L s .64348 .01472 m .64348 .01847 L s .69114 .01472 m .69114 .01847 L s .73881 .01472 m .73881 .01847 L s .83414 .01472 m .83414 .01847 L s .88181 .01472 m .88181 .01847 L s .92948 .01472 m .92948 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s gsave 1.025 .01472 -61 -11.875 Mabsadd m 1 1 Mabs scale currentpoint translate 0 23.75 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 15.875 moveto %%IncludeResource: font Times-NewRoman %%IncludeFont: Times-NewRoman /Times-NewRoman findfont 12.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 15.875 moveto %%IncludeResource: font Times-NewRoman %%IncludeFont: Times-NewRoman /Times-NewRoman findfont 12.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (A) show 71.688 15.875 moveto %%IncludeResource: font Times-NewRoman %%IncludeFont: Times-NewRoman /Times-NewRoman findfont 12.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .02381 .13188 m .03006 .13188 L s gsave .01131 .13188 -77 -11.875 Mabsadd m 1 1 Mabs scale currentpoint translate 0 23.75 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 15.875 moveto %%IncludeResource: font Times-NewRoman %%IncludeFont: Times-NewRoman /Times-NewRoman findfont 12.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (50) show 1.000 setlinewidth grestore .02381 .24904 m .03006 .24904 L s gsave .01131 .24904 -83 -11.875 Mabsadd m 1 1 Mabs scale currentpoint translate 0 23.75 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 15.875 moveto %%IncludeResource: font Times-NewRoman %%IncludeFont: Times-NewRoman /Times-NewRoman findfont 12.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (100) show 1.000 setlinewidth grestore .02381 .36621 m .03006 .36621 L s gsave .01131 .36621 -83 -11.875 Mabsadd m 1 1 Mabs scale currentpoint translate 0 23.75 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 15.875 moveto %%IncludeResource: font Times-NewRoman %%IncludeFont: Times-NewRoman /Times-NewRoman findfont 12.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (150) show 1.000 setlinewidth grestore .02381 .48337 m .03006 .48337 L s gsave .01131 .48337 -83 -11.875 Mabsadd m 1 1 Mabs scale currentpoint translate 0 23.75 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 15.875 moveto %%IncludeResource: font Times-NewRoman %%IncludeFont: Times-NewRoman /Times-NewRoman findfont 12.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (200) show 1.000 setlinewidth grestore .02381 .60053 m .03006 .60053 L s gsave .01131 .60053 -83 -11.875 Mabsadd m 1 1 Mabs scale currentpoint translate 0 23.75 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 15.875 moveto %%IncludeResource: font Times-NewRoman %%IncludeFont: Times-NewRoman /Times-NewRoman findfont 12.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (250) show 1.000 setlinewidth grestore .125 Mabswid .02381 .03815 m .02756 .03815 L s .02381 .06158 m .02756 .06158 L s .02381 .08501 m .02756 .08501 L s .02381 .10845 m .02756 .10845 L s .02381 .15531 m .02756 .15531 L s .02381 .17874 m .02756 .17874 L s .02381 .20218 m .02756 .20218 L s .02381 .22561 m .02756 .22561 L s .02381 .27248 m .02756 .27248 L s .02381 .29591 m .02756 .29591 L s .02381 .31934 m .02756 .31934 L s .02381 .34277 m .02756 .34277 L s .02381 .38964 m .02756 .38964 L s .02381 .41307 m .02756 .41307 L s .02381 .4365 m .02756 .4365 L s .02381 .45994 m .02756 .45994 L s .02381 .5068 m .02756 .5068 L s .02381 .53024 m .02756 .53024 L s .02381 .55367 m .02756 .55367 L s .02381 .5771 m .02756 .5771 L s .25 Mabswid .02381 0 m .02381 .61803 L s gsave .02381 .64303 -72.5625 -4 Mabsadd m 1 1 Mabs scale currentpoint translate 0 23.75 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 15.875 moveto %%IncludeResource: font Times-NewRoman %%IncludeFont: Times-NewRoman /Times-NewRoman findfont 12.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 15.875 moveto %%IncludeResource: font Times-NewRoman %%IncludeFont: Times-NewRoman /Times-NewRoman findfont 12.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (Env) show 82.125 15.875 moveto %%IncludeResource: font Times-NewRoman %%IncludeFont: Times-NewRoman /Times-NewRoman findfont 12.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 .4 1 r .5 Mabswid [ .02 .02 ] 0 setdash .02381 .30972 m .06244 .3013 L .10458 .29199 L .14415 .28313 L .18221 .27448 L .22272 .26514 L .26171 .25601 L .30316 .24614 L .34309 .23645 L .3815 .22696 L .42237 .21666 L .46172 .20652 L .49955 .19656 L .53984 .18568 L .57861 .17492 L .61984 .16313 L .65954 .15138 L .69774 .13966 L .73838 .12664 L .77751 .11346 L .81909 .09857 L .85916 .08305 L .89771 .06652 L .91726 .05722 L .93871 .04588 L .94807 .04035 L .9581 .03378 L .97619 .01706 L s 1 0 .6 r [ ] 0 setdash .02381 .60332 m .06244 .58416 L .10458 .56307 L .14415 .54309 L .18221 .52369 L .22272 .50283 L .26171 .48254 L .30316 .46073 L .34309 .43946 L .3815 .41875 L .42237 .39642 L .46172 .3746 L .49955 .3533 L .53984 .33025 L .57861 .30767 L .61984 .28316 L .65954 .25902 L .69774 .23522 L .73838 .20916 L .77751 .18322 L .81909 .1545 L .85916 .12535 L .89771 .09533 L .93871 .05981 L .97619 .01706 L s MathSubEnd P % End of sub-graphic 0 g .58746 .19395 m .58746 .31057 L .97619 .31057 L .97619 .19395 L F 1 g .56803 .21339 m .56803 .33 L .95675 .33 L .95675 .21339 L F 0 g .001 w [ ] 0 setdash .56803 .21339 m .95675 .21339 L .95675 .33 L .56803 .33 L .56803 .21339 L s % Start of sub-graphic p 0.568027 0.213386 0.956754 0.330004 MathSubStart %% Graphics %%IncludeResource: font Times-NewRoman %%IncludeFont: Times-NewRoman /Times-NewRoman findfont 12 scalefont setfont % Scaling calculations 0.0297619 0.297619 0.0119048 0.119048 [ [ 0 0 0 0 ] [ 1 .3 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .3 L 0 .3 L closepath clip newpath % Start of sub-graphic p 0.0535714 0.0214286 0.35119 0.140476 MathSubStart %% Graphics %%IncludeResource: font Times-NewRoman %%IncludeFont: Times-NewRoman /Times-NewRoman findfont 12 scalefont setfont % Scaling calculations 0.0238095 0.952381 0.309017 0.294302 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 .4 1 r .5 Mabswid [ ] 0 setdash .02381 .30902 m .97619 .30902 L s MathSubEnd P % End of sub-graphic 0 g gsave .38988 .08095 -61 -11.875 Mabsadd m 1 1 Mabs scale currentpoint translate 0 23.75 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding WindowsANSIEncoding def currentdict end newfontname exch definefont pop } def 63.000 15.875 moveto %%IncludeResource: font Times-NewRoman %%IncludeFont: Times-NewRoman %%BeginResource: font Times-NewRoman-MISO %%BeginFont: Times-NewRoman-MISO /Times-NewRoman /Times-NewRoman-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Times-NewRoman-MISO %%IncludeFont: Times-NewRoman-MISO /Times-NewRoman-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.938 15.875 moveto %%IncludeResource: font Mathematica1 %%IncludeFont: Mathematica1 /Mathematica1 findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (b) show 71.625 15.875 moveto %%IncludeResource: font Mathematica1 %%IncludeFont: Mathematica1 /Mathematica1 findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (=) show 80.750 15.875 moveto %%IncludeResource: font Times-NewRoman-MISO %%IncludeFont: Times-NewRoman-MISO /Times-NewRoman-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (.7) show 88.438 15.875 moveto %%IncludeResource: font Times-NewRoman-MISO %%IncludeFont: Times-NewRoman-MISO /Times-NewRoman-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore % Start of sub-graphic p 0.0535714 0.159524 0.35119 0.278571 MathSubStart %% Graphics %%IncludeResource: font Times-NewRoman %%IncludeFont: Times-NewRoman /Times-NewRoman findfont 12 scalefont setfont % Scaling calculations 0.0238095 0.952381 0.309017 0.294302 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 1 0 .6 r .5 Mabswid [ .02 .02 ] 0 setdash .02381 .30902 m .97619 .30902 L s MathSubEnd P % End of sub-graphic 0 g gsave .38988 .21905 -61 -11.875 Mabsadd m 1 1 Mabs scale currentpoint translate 0 23.75 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding WindowsANSIEncoding def currentdict end newfontname exch definefont pop } def 63.000 15.875 moveto %%IncludeResource: font Times-NewRoman %%IncludeFont: Times-NewRoman %%BeginResource: font Times-NewRoman-MISO %%BeginFont: Times-NewRoman-MISO /Times-NewRoman /Times-NewRoman-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Times-NewRoman-MISO %%IncludeFont: Times-NewRoman-MISO /Times-NewRoman-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.938 15.875 moveto %%IncludeResource: font Mathematica1 %%IncludeFont: Mathematica1 /Mathematica1 findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (b) show 71.625 15.875 moveto %%IncludeResource: font Mathematica1 %%IncludeFont: Mathematica1 /Mathematica1 findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (=) show 80.750 15.875 moveto %%IncludeResource: font Times-NewRoman-MISO %%IncludeFont: Times-NewRoman-MISO /Times-NewRoman-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (.8) show 88.438 15.875 moveto %%IncludeResource: font Times-NewRoman-MISO %%IncludeFont: Times-NewRoman-MISO /Times-NewRoman-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore MathSubEnd P % End of sub-graphic 0 0 m 1 0 L 1 .50452 L 0 .50452 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", CellLabel->"From In[15]:=", ImageSize->{288, 145.25}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg0?ooo`8006Ko?P3oool00`3o09T0 oooo0?ooo`2Q0?ooo`00<`3oool2000004P0oooo1000I_m10?ooo`80o`2I3P3ooon;000000/0oooo 000J0?ooo`<00000103oool3000000@0oooo0`0000080?ooo`030000003oool0oooo04H0oooo00<0 06Ko0?ooo`3oool0@@3oool20?l0VA00ooooR`00000;0?ooo`006`3oool00`000000oooo0?ooo`02 0?ooo`050000003oool0oooo0?ooo`0000000P3oool01@000000oooo0?ooo`3oool0000000L0oooo 00<000000?ooo`3oool0?`3oool4001VodH0oooo00<0o`2I0?ooo`3oool0403ooon;000000/0oooo 000K0?ooo`030000003oool0oooo0080oooo00D000000?ooo`3oool0oooo000000020?ooo`050000 003oool0oooo0?ooo`0000001`3oool00`000000oooo0?ooo`0n0?ooo`03001Vo`3oool0oooo04H0 oooo0P3o09TC0?oooh/000002`3oool001/0oooo00<000000?ooo`3oool00P3oool01@000000oooo 0?ooo`3oool000000080oooo00D000000?ooo`3oool0oooo000000070?ooo`030000003oool0oooo 03L0oooo1000I_m;0?ooo`030?l0V@3oool0oooo01<0ooooR`00000;0?ooo`006`3oool00`000000 oooo0?ooo`020?ooo`050000003oool0oooo0?ooo`0000000P3oool01@000000oooo0?ooo`3oool0 000000L0oooo0P00000g0?ooo`03001Vo`3oool0oooo04/0oooo0P3o09TF0?oooh/000002`3oool0 01/0oooo00<000000?ooo`3oool00P3oool01@000000oooo0?ooo`3oool000000080oooo00D00000 0?ooo`3oool0oooo000000070?ooo`030000003oool0oooo02h0oooo1@00I_m?0?ooo`80o`2I4@3o oonB000000/0oooo000K0?ooo`030000003oool0oooo0080oooo00D000000?ooo`3oool0oooo0000 00020?ooo`050000003oool0oooo0?ooo`0000001`3oool00`000000oooo0?ooo`0^0?ooo`03001V o`3oool0oooo0500oooo00<0o`2I0?ooo`3oool04@3oool00`000000oooo0?ooo`280?ooo`L00000 2`3oool001/0oooo00<000000?ooo`3oool00P3oool01@000000oooo0?ooo`3oool000000080oooo 00D000000?ooo`3oool0oooo000000070?ooo`030000003oool0oooo02H0oooo1@00I_mD0?ooo`80 o`2I503oool00`000000oooo0?ooo`280?ooo`L000002`3oool001X0oooo0P0000040?ooo`050000 003oool0oooo0?ooo`0000000P3oool01@000000oooo0?ooo`3oool0000000L0oooo00<000000?oo o`3oool08@3oool2001Vo`<0oooo00<006Ko0?ooo`3oool0E@3oool00`3o09T0oooo0?ooo`0D0?oo o`030000003oool0oooo08P0oooo1`00000;0?ooo`006`3oool00`000000oooo0?ooo`030?ooo`<0 0000103oool3000000P0oooo0P00000O0?ooo`<006KoF`3oool20?l0VAL0oooo00<000000?ooo`3o ool0R03oool7000000/0oooo000c0?ooo`030000003oool0oooo01P0oooo0P00I_mP0?ooo`80o`2I 6@3oool00`000000oooo0?ooo`0f0?ooo`030000003oool0oooo04l0oooo1`00000;0?ooo`00<`3o ool00`000000oooo0?ooo`0E0?ooo`<006KoH@3oool00`3o09T0oooo0?ooo`0I0?ooo`030000003o ool0oooo03L0oooo00<000000?ooo`3oool0CP3oool7000000/0oooo000c0?ooo`030000003oool0 oooo0100oooo0P00I_mU0?ooo`80o`2I703oool00`000000oooo0?ooo`0g0?ooo`030000003oool0 oooo04h0oooo1`00000;0?ooo`00<`3oool00`000000oooo0?ooo`0=0?ooo`<006KoI@3oool20?l0 VAh0oooo00<000000?ooo`3oool0=`3oool00`000000oooo0000000200000140oooo00@000000?oo o`3oool00000=`3oool7000000/0oooo000c0?ooo`8000002@3oool2001VofT0oooo0P3o09TP0?oo o`030000003oool0oooo03L0oooo0P0000030?ooo`030000003oool0oooo00<0oooo1`0000080?oo o`030000003oool0oooo03@0oooo1`00000;0?ooo`00<`3oool00`000000oooo0?ooo`050?ooo`<0 06KoJ@3oool20?l0VB80oooo00<000000?ooo`3oool0>03oool01@000000oooo0?ooo`3oool00000 01@0oooo00<000000?ooo`3oool0=03oool7000000/0oooo000c0?ooo`030000003oool0oooo0080 06KoKP3oool00`3o09T0oooo0?ooo`0R0?ooo`030000003oool0oooo03P0oooo00D000000?ooo`3o ool0oooo0000000D0?ooo`030000003oool0oooo03@0oooo1`00000;0?ooo`00<`3oool3001Vofh0 oooo0P3o09TU0?ooo`030000003oool0oooo00d0oooo6P00I_lA0?ooo`040000003oool000000000 00H0oooo1`0000090?ooo`030000003oool0oooo03<0oooo1`00000;0?ooo`00<`3oool00`000000 oooo0?ooo`1]0?ooo`030?l0V@3oool0oooo02D0oooo00<000000?ooo`3oool0>@3oool010000000 oooo0?ooo`00000E0?ooo`030000003oool0oooo03<0oooo1`00000;0?ooo`00<`3oool2000006`0 oooo0P3o09TX0?ooo`030000003oool0oooo03T0oooo00D000000?ooo`3oool0oooo0000000D0?oo o`030000003oool0oooo03<0oooo1`00000;0?ooo`00<`3oool00`000000oooo0?ooo`1Y0?ooo`80 o`2I:P3oool00`000000oooo0?ooo`0i0?ooo`050000003oool0oooo0?ooo`0000004@3oool01@00 0000oooo0?ooo`3oool0000003@0oooo1`00000;0?ooo`00<`3oool00`000000oooo0?ooo`1X0?oo o`030?l0V@3oool0oooo02X0oooo00<000000?ooo`3oool0>P3oool400000140oooo1@00000d0?oo o`L000002`3oool003<0oooo00<000000?ooo`3oool0IP3oool20?l0VBd0oooo00<000000?ooo`3o ool0R03oool7000000/0oooo000c0?ooo`800000IP3oool00`3o09T0oooo0?ooo`0]0?ooo`030000 003oool0oooo08P0oooo1`00000;0?ooo`006P3oool3000000<0oooo0`0000050?ooo`<00000203o ool00`000000oooo0?ooo`1S0?ooo`80o`2I<03oool00`000000oooo0?ooo`280?ooo`L000002`3o ool001/0oooo00<000000?ooo`3oool01@3oool01@000000oooo0?ooo`3oool0000000<0oooo00<0 00000?ooo`3oool01@3oool00`000000oooo0?ooo`1Q0?ooo`80o`2I@3oool00`000000oooo0?ooo`0f0?ooo`030000003o ool0oooo04l0oooo1`00000;0?ooo`006`3oool00`000000oooo0?ooo`020?ooo`<00000103oool0 1@000000oooo0?ooo`3oool0000000L0oooo00<000000?ooo`3oool0F03oool20?l0VC/0oooo00<0 00000?ooo`3oool0=`3oool00`000000oooo0?ooo`1>0?ooo`L000002`3oool001/0oooo00<00000 0?ooo`3oool00`3oool00`000000oooo0?ooo`030?ooo`050000003oool0oooo0?ooo`0000001`3o ool00`000000oooo0?ooo`1F0?ooo`80o`2I?@3oool00`000000oooo0?ooo`0g0?ooo`030000003o ool0oooo04h0oooo1`00000;0?ooo`006P3oool2000000D0oooo00<000000?ooo`3oool00`3oool0 1@000000oooo0?ooo`3oool0000000L0oooo00<000000?ooo`3oool0E@3oool00`3o09T0oooo0?oo o`0m0?ooo`030000003oool0oooo03L0oooo00<000000?ooo`0000000P00000A0?ooo`030000003o ool0oooo00<00000=@3oool7000000/0oooo000K0?ooo`030000003oool0oooo00@0oooo0`000003 0?ooo`<00000203oool2000005@0oooo0P3o09U00?ooo`030000003oool0oooo03L0oooo0P000003 0?ooo`030000003oool0oooo00<0oooo1`0000060?ooo`050000003oool0oooo0?ooo`000000=03o ool7000000/0oooo000c0?ooo`030000003oool0oooo0540oooo0P3o09U20?ooo`030000003oool0 oooo03P0oooo00D000000?ooo`3oool0oooo0000000B0?ooo`050000003oool0oooo0?ooo`000000 =03oool7000000/0oooo000c0?ooo`030000003oool0oooo04l0oooo0P3o09U40?ooo`030000003o ool0oooo03P0oooo00D000000?ooo`3oool0oooo0000000C0?ooo`030000003oool0000003D0oooo 1`00000;0?ooo`00<`3oool00`000000oooo0?ooo`1=0?ooo`80o`2IAP3oool00`000000oooo0?oo o`0=0?oooaX0o`2I4@3oool010000000oooo0000000000060?ooo`L00000203oool00`000000oooo 0?ooo`0d0?ooo`L000002`3oool003<0oooo00<000000?ooo`3oool0B`3oool20?l0VDP0oooo00<0 00000?ooo`3oool0>@3oool010000000oooo0?ooo`00000C0?ooo`030000003oool0000003D0oooo 1`00000;0?ooo`00<`3oool2000004X0oooo0P3o09U:0?ooo`030000003oool0oooo03T0oooo00D0 00000?ooo`3oool0oooo0000000A0?ooo`050000003oool0oooo0?ooo`000000=03oool7000000/0 oooo000c0?ooo`030000003oool0oooo04L0oooo0P3o09U<0?ooo`030000003oool0oooo03T0oooo 00D000000?ooo`3oool0oooo0000000A0?ooo`050000003oool0oooo0?ooo`000000=03oool70000 00/0oooo000c0?ooo`030000003oool0oooo04D0oooo0P3o09U>0?ooo`030000003oool0oooo03X0 oooo1000000B0?ooo`<00000=@3oool7000000/0oooo000c0?ooo`030000003oool0oooo04<0oooo 0P3o09U@0?ooo`030000003oool0oooo08P0oooo00<000000?ooo`3oool03`3oool003<0oooo00<0 00000?ooo`3oool0@@3oool20?l0VE80oooo00<000000?ooo`3oool0R03oool00`000000oooo0?oo o`0?0?ooo`00<`3oool200000400oooo0P3o09UD0?ooo`030000003oool0oooo08P0oooo00<00000 0?ooo`3oool03`3oool003<0oooo00<000000?ooo`3oool0?@3oool20?l0VEH0oooo00<000000?oo o`3oool0R03oool00`000000oooo0?ooo`0?0?ooo`00<`3oool00`000000oooo0?ooo`0l0?ooo`03 0?l0V@3oool0oooo05H0oooo00<000000?ooo`3oool0R03oool00`000000oooo0?ooo`0?0?ooo`00 <`3oool00`000000oooo0?ooo`0j0?ooo`80o`2IF@3oool00`000000oooo0?ooo`280?ooo`030000 003oool0oooo00l0oooo000c0?ooo`030000003oool0oooo03P0oooo0P3o09UK0?oooh`000004@3o ool003<0oooo0P00000g0?ooo`80o`2InP3oool001T0oooo1@0000030?ooo`<00000103oool30000 00P0oooo00<000000?ooo`3oool0=03oool20?l0VO`0oooo000I0?ooo`050000003oool0oooo0?oo o`0000000P3oool01@000000oooo0?ooo`3oool000000080oooo00D000000?ooo`3oool0oooo0000 00070?ooo`030000003oool0oooo0380oooo0P3o09Wn0?ooo`006P3oool00`000000oooo0?ooo`03 0?ooo`050000003oool0oooo0?ooo`0000000P3oool01@000000oooo0?ooo`3oool0000000L0oooo 00<000000?ooo`3oool0<03oool20?l0VOl0oooo0@3oool001/0oooo00<000000?ooo`3oool00P3o ool01@000000oooo0?ooo`3oool000000080oooo00D000000?ooo`3oool0oooo000000070?ooo`03 0000003oool0oooo02h0oooo0P3o09Wo0?ooo`<0oooo000L0?ooo`050000003oool0oooo0?ooo`00 00000`3oool010000000oooo0?ooo`0000030?ooo`030000003oool0oooo00D0oooo0P00000]0?oo o`80o`2Io`3oool50?ooo`00703oool01@000000oooo0?ooo`3oool0000000<0oooo00@000000?oo o`3oool000000`3oool00`000000oooo0?ooo`050?ooo`030000003oool0oooo02/0oooo00<0o`2I 0?ooo`3oool0o`3oool50?ooo`007@3oool010000000oooo0?ooo`0000030?ooo`040000003oool0 oooo000000<0oooo00<000000?ooo`3oool01@3oool00`000000oooo0?ooo`0Y0?ooo`80o`2Io`3o ool80?ooo`007@3oool010000000oooo0?ooo`0000030?ooo`040000003oool0oooo000000<0oooo 00<000000?ooo`3oool01@3oool00`000000oooo0?ooo`0W0?ooo`80o`2Io`3oool:0?ooo`006@3o ool01@000000oooo0?ooo`3oool000000080oooo00D000000?ooo`3oool0oooo000000020?ooo`05 0000003oool0oooo0?ooo`0000001`3oool2000002L0oooo00<0o`2I0?ooo`3oool0o`3oool:0?oo o`006P3oool3000000@0oooo0`0000040?ooo`<00000203oool00`000000oooo0?ooo`0T0?ooo`80 o`2Io`3oool=0?ooo`00<`3oool00`000000oooo0?ooo`0R0?ooo`80o`2Io`3oool?0?ooo`00<`3o ool00`000000oooo0?ooo`0P0?ooo`80o`2Io`3ooolA0?ooo`00<`3oool00`000000oooo0?ooo`0N 0?ooo`80o`2Io`3ooolC0?ooo`00<`3oool2000001d0oooo0P3o09Wo0?oooaD0oooo000c0?ooo`03 0000003oool0oooo01X0oooo0P3o09Wo0?oooaL0oooo000c0?ooo`030000003oool0oooo01P0oooo 0P3o09Wo0?oooaT0oooo000c0?ooo`030000003oool0oooo01H0oooo0P3o09Wo0?oooa/0oooo000c 0?ooo`030000003oool0oooo01@0oooo0P3o09Wo0?oooad0oooo000c0?ooo`8000004`3oool20?l0 VOl0oooo7`3oool003<0oooo00<000000?ooo`3oool0403oool20?l0VOl0oooo8@3oool003<0oooo 00<000000?ooo`3oool03@3oool30?l0VOl0oooo8`3oool003<0oooo00<000000?ooo`3oool02`3o ool20?l0VOl0oooo9P3oool003<0oooo00<000000?ooo`3oool02@3oool20?l0VOl0oooo:03oool0 03<0oooo0P0000080?ooo`80o`2Io`3ooolZ0?ooo`006@3oool500000080oooo0`0000050?ooo`<0 0000203oool00`000000oooo0?ooo`050?ooo`80o`2Io`3oool/0?ooo`006@3oool01@000000oooo 0?ooo`3oool0000000D0oooo00D000000?ooo`3oool0oooo000000030?ooo`030000003oool0oooo 00D0oooo00<000000?ooo`3oool00`3oool20?l0VOl0oooo;P3oool001X0oooo00<000000?ooo`3o ool01`3oool010000000oooo0?ooo`0000030?ooo`030000003oool0oooo00D0oooo00@000000?oo o`3oool0oooo0P3o09Wo0?oooc00oooo000K0?ooo`030000003oool0oooo00H0oooo00@000000?oo o`3oool000000`3oool00`000000oooo0?ooo`050?ooo`040000003oool0o`2I0?l0VOl0oooo"], ImageRangeCache->{{{0, 359}, {180.563, 0}} -> {-1.06525, -0.648943, \ 0.00898505, 0.00898505}, {{9.0625, 287.313}, {176.25, 4.25}} -> {-262.015, \ -54.8214, 6.33539, 2.57748}, {{203.813, 342.938}, {104.188, 62.4375}} -> \ {-5.02233, -4.71174, 0.030189, 0.0754722}, {{211.25, 252.625}, {101.188, \ 84.625}} -> {-8.58758, -11.1142, 0.0489765, 0.158491}, {{211.25, 252.625}, \ {81.9375, 65.375}} -> {-8.58758, -13.555, 0.0489765, 0.158491}}] }, Open ]], Cell[TextData[{ "A 3D plot reflects the interaction of ", StyleBox["A", "Input"], " and ", StyleBox["\[Beta]", "Input"], " on Env. The choice of range for ", StyleBox["\[Beta]", "Input"], " is arbitrary, unlike ", StyleBox["\[Alpha]", "Input"], " it need not be constrained [0,1]" }], "Text"], Cell[BoxData[ \(\(Plot3D[Env /. A0 \[Rule] 1000, {A, 0, 999}, {\[Beta], .1, .9}, AxesLabel \[Rule] {"\", "\< \[Beta]\>", "\"}, PlotRange \[Rule] All];\)\)], "Input", CellLabel->"In[16]:="], Cell[TextData[{ "The utility function describes the total utility that citizens receive \ from (1) municipal services and (2) environmental protection in the form of \ aesthetic regulation. The following expression describes that utility, ", StyleBox["U", "Input"], ", as a variant of a Stone-Geary production function where \[Alpha] is the \ citizens' preference for Environmental Regulation (0 < ", StyleBox["\[Alpha]", "Input"], " < 1):" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(U = Env\^\[Alpha]\ M\^\((1 - \[Alpha])\)\)], "Input", CellLabel->"In[17]:=", FontSize->12], Cell[BoxData[ \(\((\((\(-A\) + A0)\)\^\[Beta])\)\^\[Alpha]\ \((A\^\[Gamma]\ q)\)\^\(1 - \ \[Alpha]\)\)], "Output", CellLabel->"Out[17]="] }, Open ]], Cell[TextData[{ "Note in the output above that the first term is Environmental Protection \ (", StyleBox["Env", "Input"], ")and the second term is Municipal Services (", StyleBox["M", "Input"], "). We wish to maximize this function. It is mathematically helpful and \ common practice to take the Log of both sides of the utility function. \ Maximizing the Log of the function also maximizes the function because the \ Log is monotonic and convex for all positive log bases:" }], "Text", FontSize->12], Cell[CellGroupData[{ Cell[BoxData[ \(logu = PowerExpand[Log[U]]\)], "Input", CellLabel->"In[18]:=", FontSize->12], Cell[BoxData[ \(\[Alpha]\ \[Beta]\ Log[\(-A\) + A0] + \((1 - \[Alpha])\)\ \((\[Gamma]\ Log[A] + Log[q])\)\)], "Output", CellLabel->"Out[18]="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Optimization and Comparative Statics", "Section"], Cell[TextData[{ "Comparative statics allows us to examine how the model output changes with \ changes in the inputs. This is accomplished by taking the partial derivative \ of the Logged function. Because Log[Utility] is monotonically increasing in \ Utility we will sometimes discuss the change in Utility even though it is the \ Log of Utility that we actually differentiate.\nThe partial derivative of \ utility ", StyleBox["with respect to tax rate", FontSlant->"Italic"], " describes how utility changes with changes in tax rate. Taking the \ partial derivative of Log[", StyleBox["U", "Input"], "] w.r.t. ", StyleBox["q", "Input"], " produces a positive sign, indicating that as tax rate rises, utility \ rises. This ignores the interplay between taxes and the level of sales (which \ is not our story. Therefore, we shall pursue it no further):" }], "Text", FontSize->12], Cell[CellGroupData[{ Cell[BoxData[ \(solv0 = \[PartialD]\_q\ logu\)], "Input", CellLabel->"In[19]:=", FontSize->12], Cell[BoxData[ \(\(1 - \[Alpha]\)\/q\)], "Output", CellLabel->"Out[19]="] }, Open ]], Cell[TextData[{ "The ", "partial derivative of Utility ", StyleBox["with respect to Advertising", FontSlant->"Italic"], " is our real interest. This describes how utility changes with changes \ in advertising. Taking the partial derivative of Log[", StyleBox["U", "Input"], "] w.r.t. ", StyleBox["A", "Input"], " produces:" }], "Text", FontSize->12], Cell[CellGroupData[{ Cell[BoxData[ \(\[PartialD]\_A\ logu\)], "Input", CellLabel->"In[20]:="], Cell[BoxData[ \(\(-\(\(\[Alpha]\ \[Beta]\)\/\(\(-A\) + A0\)\)\) + \(\((1 - \[Alpha])\)\ \[Gamma]\)\/A\)], "Output", CellLabel->"Out[20]="] }, Open ]], Cell["This expression can be made simpler for our later use", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(solv1 = FullSimplify[D[logu, A]]\)], "Input", CellLabel->"In[21]:=", FontSize->12], Cell[BoxData[ \(\(\[Alpha]\ \[Beta]\)\/\(A - A0\) + \(\[Gamma] - \[Alpha]\ \ \[Gamma]\)\/A\)], "Output", CellLabel->"Out[21]="] }, Open ]], Cell[TextData[{ "We want to know the value of ", StyleBox["A", "Input"], " at which the community achieves the optimal (most) utility. Setting the \ above equal to zero creates an implicit equation\n", Cell[BoxData[ \(TraditionalForm\`\[Alpha]\[Beta]\/\(A - A\_0\) + \(\[Gamma] - \ \[Alpha]\[Gamma]\)\/A = 0\)], "Input"], "\nTransferring the second term on the left to the right hand side of the \ equation sets marginal cost equal to marginal benefit. We know that \ optimality is achieved in economic settings such as this when marginal cost \ equals marginal benefit.\n", Cell[BoxData[ \(TraditionalForm\`\[Alpha]\[Beta]\/\(A - A\_0\) = \(\[Alpha]\[Gamma] - \ \[Gamma]\)\/A\)], "Input"], "\nReturning to the expression we named \"", StyleBox["solv1", "Input"], "\", setting it equal to zero and solving for optimum ", StyleBox["A", "Input"], " results in an unambiguous solution for ", Cell[BoxData[ FormBox[ StyleBox[\(A\^*\), "Input"], TraditionalForm]]], ", the optimal amount of allowed advertising:" }], "Text", FontSize->12], Cell[CellGroupData[{ Cell[BoxData[ \(solv2 = Solve[solv1 == 0, A]; \(A\^*\) = A /. solv2[\([1]\)] // Simplify\)], "Input", CellLabel->"In[22]:=", FontSize->12], Cell[BoxData[ \(\(-\(\(A0\ \((\(-1\) + \[Alpha])\)\ \[Gamma]\)\/\(\[Alpha]\ \((\[Beta] \ - \[Gamma])\) + \[Gamma]\)\)\)\)], "Output", CellLabel->"Out[22]="] }, Open ]], Cell[TextData[{ "Remember the ordinal nature of utility. If we achieve an optimum this \ represents a \"peak\" utility, the highest possible. All change from that \ point must be in a direction resulting in diminished utility. Thus, to test \ the model for optimality, we are only interested in the sign of certain \ derivatives.\nComparative statics performed on this expression below have the \ correct sign. Increases in ", StyleBox["\[Gamma]", "Input"], ", the productivity of advertising, shifts the marginal benefit curve \ outward and results in increases in optimal advertising, as expected. \ Increases ", StyleBox["\[Beta]", "Input"], ", the disutility for advertising, shifts the marginal cost curve inward \ and results in decreases in optimal advertising (recall that 0 < ", StyleBox["\[Alpha]", "Input"], " < 1 is what makes the numerator in both expressions negative). These \ expressions constitute the dilemma the city finds itself in when it reduces \ the efficiency of advertising or experiences an increase in disutility for \ advertising." }], "Text", FontSize->12], Cell[CellGroupData[{ Cell[BoxData[ \(FullSimplify[\[PartialD]\_\[Gamma]\( A\^*\)]\)], "Input", CellLabel->"In[23]:=", FontSize->12], Cell[BoxData[ \(\(-\(\(A0\ \((\(-1\) + \[Alpha])\)\ \[Alpha]\ \[Beta]\)\/\((\[Alpha]\ \ \((\[Beta] - \[Gamma])\) + \[Gamma])\)\^2\)\)\)], "Output", CellLabel->"Out[23]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(FullSimplify[\[PartialD]\_\[Beta]\( A\^*\)]\)], "Input", CellLabel->"In[24]:=", FontSize->12], Cell[BoxData[ \(\(A0\ \((\(-1\) + \[Alpha])\)\ \[Alpha]\ \[Gamma]\)\/\((\[Alpha]\ \((\ \[Beta] - \[Gamma])\) + \[Gamma])\)\^2\)], "Output", CellLabel->"Out[24]="] }, Open ]], Cell[TextData[{ "We also have an intuitive result for the derivative of ", Cell[BoxData[ FormBox[ StyleBox[\(A\^*\), "Input"], TraditionalForm]]], " w.r.t ", StyleBox["\[Alpha]", "Input"], ". Increases in ", StyleBox["\[Alpha]", "Input"], " represent an increase in the community's ", StyleBox["preference", FontSlant->"Italic"], " for environmental regulation over the other forms of municipal services. \ The negative derivative indicates that an increase in ", StyleBox["\[Alpha]", "Input"], " decreases advertising from the optimal." }], "Text", FontSize->12], Cell[CellGroupData[{ Cell[BoxData[ \(FullSimplify[D[\(A\^*\), \[Alpha]]]\)], "Input", CellLabel->"In[25]:=", FontSize->12], Cell[BoxData[ \(\(-\(\(A0\ \[Beta]\ \[Gamma]\)\/\((\[Alpha]\ \((\[Beta] - \[Gamma])\) + \ \[Gamma])\)\^2\)\)\)], "Output", CellLabel->"Out[25]="] }, Open ]], Cell["\<\ Below is the second derivative of Utility with respect to Advertising. As \ both numerators are negative, the second derivative is negative, indicating \ that we have a global optimum. (This is not surprising because all functions \ are strictly convex).\ \>", "Text", FontSize->12], Cell[CellGroupData[{ Cell[BoxData[{ \(\(solv3 = FullSimplify[D[logu, {A, 2}]];\)\), "\n", \(solv3 // TraditionalForm\)}], "Input", CellLabel->"In[26]:=", FontSize->12], Cell[BoxData[ \(TraditionalForm\`\(\((\[Alpha] - 1)\)\ \[Gamma]\)\/A\^2 - \(\[Alpha]\ \ \[Beta]\)\/\((A - A0)\)\^2\)], "Output", CellLabel->"Out[27]//TraditionalForm="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["A Graphic Illustration", "Section"], Cell["\<\ To create graphics that illustrate this process we define the marginal \ benefit and marginal cost as functions for plotting the marginal benefit and \ marginal cost curves for Advertising. We also provide some functions for \ formatting:\ \>", "Text", FontSize->12], Cell[BoxData[{ \(\(mb[ A_, \[Alpha]_, \[Gamma]_] = \((1 - \[Alpha])\)\ \[Gamma]/ A;\)\), "\n", \(\(mc[A_, \[Alpha]_, \[Beta]_, A0 : _] = \[Alpha]*\[Beta]/\((A0 - A)\);\)\), "\n", \(\(h[h_] := Hue[h*Pi/360];\)\), "\n", \(\(t[t_] := Thickness[t/100];\)\), "\n", \(\(dash[d_] := Dashing[{d, d}];\)\)}], "Input", CellLabel->"In[28]:=", FontSize->12], Cell["\<\ We can insert arbitrary values for dependent variables to produce numeric \ answers for marginal benefit and marginal cost. Keep in mind that these \ numbers don't mean anything until we have others for comparison.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(mb[ .8, .5, .9]\), "\n", \(\tmc[1, .5, 1\ , 100]\)}], "Input", CellLabel->"In[33]:=", FontSize->12], Cell[BoxData[ \(0.5625`\)], "Output", CellLabel->"Out[33]="], Cell[BoxData[ \(0.005050505050505051`\)], "Output", CellLabel->"Out[34]="] }, Open ]], Cell["\<\ Plots of marginal benefit and marginal cost against advertising indicate the \ functions have the expected classical shape\ \>", "Text"], Cell[BoxData[ \(\(Plot[mb[A, .5, 5], {A, 1, 100}, PlotRange -> {0, .1}, AxesLabel \[Rule] {"\", "\"}];\)\)], \ "Input", CellLabel->"In[35]:=", FontSize->12], Cell[BoxData[ \(\(Plot[mc[A, .5, 5, 100], {A, 10, 70}, AxesLabel \[Rule] {"\", "\"}];\)\)], \ "Input", CellLabel->"In[36]:=", FontSize->12], Cell[BoxData[{ \(mb1 = mb[A, .5, 20]; mc1 = mc[A, .5, 25, 100];\), "\n", \(\(p1 = Plot[{mb1, mc1}, {A, 1, 99.9}, PlotStyle -> {{h[90], t[ .5]}, {h[225], t[1.1]}}, FrameLabel -> {Advertising, "\"}, FrameTicks -> Automatic, PlotRange -> {0, 1}, Frame \[Rule] {True, True, False, False}, PlotStyle -> AbsoluteThickness[4], DisplayFunction \[Rule] Identity];\)\)}], "Input", CellLabel->"In[37]:=", FontSize->12], Cell["\<\ The intersection of marginal cost and marginal benefits curves marks the \ optimal Advertising, which in turn maximizes utility for the community.\ \>", "Text", FontSize->12], Cell[BoxData[{ \(\(line1 = Solve[mb1 == mc1, A];\)\), "\n", \(\(L1 = A /. line1[\([1]\)];\)\), "\n", \(\t\(L2 = mc1 /. A -> L1;\)\), "\n", \(p2 = Graphics[{dash[ .015], Line[{{L1, 0}, {L1, L2}}]}]; p3 = Show[{Graphics[p1], Graphics[p2]}, FrameTicks -> {{{L1, "\"}}, None}, PlotLabel -> "\", FrameLabel -> {None, "\"}, DisplayFunction \[Rule] $DisplayFunction];\)}], "Input", CellLabel->"In[39]:=", FontSize->12], Cell[TextData[{ "The following shows how an increase in ", StyleBox["\[Gamma]", "Input", FontColor->RGBColor[1, 0, 0]], " moves the marginal benefit function out and an increase in ", StyleBox["\[Beta]", "Input", FontColor->RGBColor[0, 0, 1]], " moves the marginal cost function in (dotted lines represent the new \ functions). " }], "Text", FontSize->12], Cell[BoxData[{ RowBox[{ RowBox[{"mb2", "=", RowBox[{"mb", "[", RowBox[{"A", ",", ".5", ",", StyleBox["20", FontColor->RGBColor[1, 0, 0]]}], "]"}]}], ";", RowBox[{"mb3", "=", RowBox[{"mb", "[", RowBox[{"A", ",", ".5", ",", StyleBox["10", FontColor->RGBColor[1, 0, 0]]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"mc2", "=", RowBox[{"mc", "[", RowBox[{"A", ",", ".5", ",", StyleBox["25", FontColor->RGBColor[0, 0, 1]], ",", "100"}], "]"}]}], ";", RowBox[{"mc3", "=", RowBox[{"mc", "[", RowBox[{"A", ",", ".5", ",", StyleBox["35", FontColor->RGBColor[0, 0, 1]], ",", "100"}], "]"}]}], ";"}], "\n", \(p4 = Plot[{mb2, mb3, mc2, mc3}, {A, 1, 90}, PlotStyle -> {{h[90], t[ .4], dash[1]}, {h[90], t[ .1], dash[ .009]}, {h[225], t[ .9]}, {h[225], t[ .1], dash[ .009]}}, FrameLabel -> {Advertising, "\"}, FrameTicks -> None, PlotRange -> {0, 1}, Frame \[Rule] {True, True, False, False}, DisplayFunction \[Rule] Identity];\)}], "Input", CellLabel->"In[43]:=", FontSize->12], Cell["\<\ The cells below contain the calculations which set the endpoints of the \ dotted lines on the following graphic\ \>", "Text", FontSize->12], Cell[BoxData[{ \(\(line2 = Solve[mb2 == mc2, A];\)\), "\n", \(\(L3 = A /. line2[\([1]\)];\)\), "\n", \(\t\(L4 = mc2 /. A -> L3;\)\)}], "Input", CellLabel->"In[46]:=", FontSize->12], Cell[BoxData[{ \(\(line5 = Solve[mb3 == mc3, A];\)\), "\n", \(\(L6 = A /. line5[\([1]\)];\)\), "\n", \(\t\(L7 = mc3 /. A -> L6;\)\)}], "Input", CellLabel->"In[49]:=", FontSize->12], Cell[BoxData[{ \(\(line6 = Solve[mb2 == mc3, A];\)\), "\n", \(\(L8 = A /. line6[\([1]\)];\)\), "\n", \(\t\(L9 = mc3 /. A -> L8;\)\)}], "Input", CellLabel->"In[52]:=", FontSize->12], Cell[BoxData[{ \(\(line10 = Solve[mb3 == mc2, A];\)\), "\n", \(\(L10 = A /. line10[\([1]\)];\)\), "\n", \(\t\(L11 = mc2 /. A -> L10;\)\)}], "Input", CellLabel->"In[55]:=", FontSize->12], Cell[BoxData[{ \(p5 = Graphics[{dash[ .015], Line[{{L3, 0}, {L3, L4}}]}]; p6 = Graphics[{dash[ .015], Line[{{L6, 0}, {L6, L7}}]}]; p7 = Graphics[{dash[ .015], Line[{{L8, 0}, {L8, L9}}]}]; p8 = Graphics[{dash[ .015], Line[{{L10, 0}, {L10, L11}}]}];\), "\n", \(\(p9 = Show[{Graphics[p4], Graphics[p5], Graphics[p7], Graphics[p6], Graphics[p8]}, PlotLabel -> "\", FrameTicks -> {{{L8, "\"}, {L10, "\"}, {L3, "\"}, {L6, \ "\"}}, None}, DisplayFunction \[Rule] $DisplayFunction, ImageSize \[Rule] 350];\)\)}], "Input", CellLabel->"In[58]:=", FontSize->12], Cell[TextData[{ StyleBox["A*", "Input"], " is optimal advertising where Utility is maximized. B is the result of \ increases in ", StyleBox["\[Beta] ", "Input"], "(such as election of a city council member hostile to business) moving the \ marginal cost curve inward while marginal benefit curve does not change. C \ is a reduction of ", StyleBox["\[Gamma]", "Input"], " (resulting from a vote of the city council to increase regulations by \ reducing sign size, height, etc.) leading to a downward shift of the marginal \ benefit curve with the marginal cost curve unchanged. D is the most drastic \ result (the new city council member influences an even more draconian level \ of regulation) where \[Beta] is increased ", StyleBox["and", FontSlant->"Italic"], " ", StyleBox["\[Gamma]", "Input"], " is lowered at the same time. At D allowed advertising is the farthest \ from optimal, thus utility is the lowest of the four." }], "Text", FontSize->12], Cell[TextData[{ "Below this cell we show the changes separately. First show the effect \ when the city lowers ", StyleBox["\[Gamma]", "Input"], " and therefore the marginal benefit of advertising falls." }], "Text", FontSize->12], Cell[BoxData[{ \(\(p4a = Plot[{mb2, mb3, mc2}, {A, 1, 90}, PlotStyle -> {{h[90], t[ .4], dash[1]}, {h[90], t[ .1], dash[ .009]}, {h[225], t[ .9]}}, FrameLabel -> {None, "\"}, FrameTicks -> None, PlotRange -> {0, 1}, Frame \[Rule] {True, True, False, False}, DisplayFunction \[Rule] Identity];\)\), "\n", \(\(p10 = Show[{Graphics[p4a], Graphics[p5], Graphics[p8]}, PlotLabel -> "\ Sub-Optimal Conditions\>", FrameTicks -> {{{L10, "\"}, {L3, "\"}}, None}, DisplayFunction \[Rule] $DisplayFunction, ImageSize \[Rule] 350];\)\)}], "Input", CellLabel->"In[60]:=", FontSize->12], Cell[TextData[{ "Now to show the effect of raising ", StyleBox["\[Beta]", "Input"], ":" }], "Text", FontSize->12], Cell[BoxData[{ \(\(p4b = Plot[{mb2, mc2, mc3}, {A, 1, 90}, PlotStyle -> {{h[90], t[ .4], dash[1]}, {h[225], t[ .9]}, {h[225], t[ .1], dash[ .009]}}, FrameLabel -> {None, "\"}, FrameTicks -> None, PlotRange -> {0, 1}, Frame \[Rule] {True, True, False, False}, DisplayFunction \[Rule] Identity];\)\), "\n", \(\(p11 = Show[{Graphics[p4b], Graphics[p5], Graphics[p7]}, PlotLabel -> "\ Sub-Optimal Conditions\>", FrameTicks -> {{{L8, "\"}, {L3, "\"}}, None}, DisplayFunction \[Rule] $DisplayFunction, ImageSize \[Rule] 350];\)\)}], "Input", CellLabel->"In[62]:=", FontSize->12], Cell["\<\ Recalling that the optimum is the \"peak\", we illustrate this by making \ Utility a function of Advertising.\ \>", "Text", FontSize->12], Cell[CellGroupData[{ Cell[BoxData[ \(u[A_, \[Alpha]_, \[Beta]_, \[Gamma]_, A0 : _, q_] = U\)], "Input", CellLabel->"In[64]:=", FontSize->12], Cell[BoxData[ \(\((\((\(-A\) + A0)\)\^\[Beta])\)\^\[Alpha]\ \((A\^\[Gamma]\ q)\)\^\(1 - \ \[Alpha]\)\)], "Output", CellLabel->"Out[64]="] }, Open ]], Cell[TextData[{ "As mentioned previously, regulation of commercial signage usually comes in \ the form of reducing some physical aspect of it. We can view that as \ modifying the sign ordinance so as to improve public vistas (", StyleBox["Env", "Input"], ") at the expense of the efficiency (", StyleBox["\[Gamma]", "Input"], ") of advertising. Thus, advertising is implicitly limited by reducing ", StyleBox["\[Gamma]", "Input"], ". Here is a set of arbitrary values for all variables that produce a \ numeric ", StyleBox["A*", "Input"], ". Note the value for ", StyleBox["\[Gamma]", "Input"], "." }], "Text", FontSize->12], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sampleA", "=", RowBox[{\(A\^*\), "/.", RowBox[{"{", RowBox[{\(\[Alpha] -> .5\), ",", \(\[Beta] -> 4.1\), ",", StyleBox[\(\[Gamma] -> 3.1\), FontColor->RGBColor[1, 0, 0]], ",", \(A0 -> 100\)}], "}"}]}]}]], "Input", CellLabel->"In[65]:=", FontSize->12], Cell[BoxData[ \(43.05555555555556`\)], "Output", CellLabel->"Out[65]="] }, Open ]], Cell["\<\ Using those same variables in the Utility Function, produces the following \ value for Utility, a number that will gain meaning when compared with an \ alternative.\ \>", "Text", FontSize->12], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"L12", "=", RowBox[{"u", "[", RowBox[{"sampleA", ",", ".5", ",", "4.1", ",", StyleBox["3.1", FontColor->RGBColor[1, 0, 0]], ",", "100", ",", ".07"}], "]"}]}]], "Input", CellLabel->"In[66]:=", FontSize->12], Cell[BoxData[ \(358071.3425262896`\)], "Output", CellLabel->"Out[66]="] }, Open ]], Cell["\<\ Locating this number on the plot shows that indeed utility peaks at that \ value. Notice the importance of domain and range values with changes in \ parameters. Remember also that the actual values have no meaning except in \ reference to other values calculated the same way. The importance of the \ general model is that it achieves an optimum for all combinations of \ numerical values given the parameters. What we are interested in is what \ happens when equilibrium is disturbed. Assume you are considering a certain \ community for locating your business. You find the present condition \ (equilibrium for our purposes) of sign regulation as plotted above. How does \ a change in the political landscape change your decision to locate? How does \ it change the fortunes of market participants? How does that change of \ fortune affect other business owners' decision to locate in the community? \ Taking aesthetic regulation as just one example of the restrictions on \ freedom of choice imposed by government, what would you expect the aggregate \ effect of numerous restrictions to be?\ \>", "Text", FontSize->12], Cell[BoxData[{\(p9a = Graphics[{dash[ .015], Line[{{sampleA, 0}, {sampleA, L12}}]}];\), "\n", \(p9b = Graphics[{dash[ .015], Line[{{0, L12}, {sampleA, L12}}]}];\), "\n", RowBox[{ RowBox[{"p12", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"A", ",", ".5", ",", "4.1", ",", StyleBox["3.1", FontColor->RGBColor[1, 0, 0]], ",", "100", ",", ".07"}], "]"}], ",", \({A, 1, 100}\), ",", \(FrameLabel -> {Advertising, "\"}\), ",", \(PlotRange -> {0, 400000}\), ",", \(PlotStyle -> {h[150], t[ .4]}\), ",", \(Ticks \[Rule] {{sampleA}, {L12}}\), ",", \(AxesLabel \[Rule] {"\", "\"}\), ",", \(DisplayFunction \[Rule] Identity\)}], "]"}]}], ";", \(Show[{Graphics[p12], Graphics[p9a], Graphics[p9b]}, DisplayFunction \[Rule] $DisplayFunction, ImageSize \[Rule] 450]\), ";"}]}], "Input", CellLabel->"In[67]:="], Cell[TextData[{ "A reduction in the value of ", StyleBox["\[Gamma]", "Input"], " results in a reduction in both advertising and, as expected, utility." }], "Text", FontSize->12], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"subA", "=", RowBox[{\(A\^*\), "/.", RowBox[{"{", RowBox[{\(\[Alpha] -> .5\), ",", \(\[Beta] -> 4.1\), ",", StyleBox[\(\[Gamma] -> 2.3\), FontColor->RGBColor[1, 0, 0]], ",", \(A0 -> 100\)}], "}"}]}]}]], "Input", CellLabel->"In[70]:=", FontSize->12], Cell[BoxData[ \(35.93749999999999`\)], "Output", CellLabel->"Out[70]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"L13", "=", RowBox[{"u", "[", RowBox[{"subA", ",", ".5", ",", "4.1", ",", StyleBox["2.3", FontColor->RGBColor[1, 0, 0]], ",", "100", ",", ".07"}], "]"}]}]], "Input", CellLabel->"In[71]:=", FontSize->12], Cell[BoxData[ \(82218.02136292354`\)], "Output", CellLabel->"Out[71]="] }, Open ]], Cell[BoxData[{\(p12a = Graphics[{dash[ .015], Line[{{subA, 0}, {subA, L13}}]}];\), "\n", \(p12b = Graphics[{dash[ .015], Line[{{0, L13}, {subA, L13}}]}];\), "\n", RowBox[{ RowBox[{"p13", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"A", ",", ".5", ",", "4.1", ",", StyleBox["2.3", FontColor->RGBColor[1, 0, 0]], ",", "100", ",", ".07"}], "]"}], ",", \({A, 1, 100}\), ",", \(FrameLabel -> {Advertising, "\"}\), ",", \(PlotRange -> {0, 400000}\), ",", \(PlotStyle -> {h[220], t[ .9]}\), ",", \(Ticks \[Rule] {{subA}, {L13}}\), ",", \(DisplayFunction \[Rule] Identity\)}], "]"}]}], ";", \(Show[{Graphics[p13], Graphics[p12a], Graphics[p12b]}, DisplayFunction \[Rule] $DisplayFunction, ImageSize \[Rule] 450]\), ";"}]}], "Input", CellLabel->"In[72]:="], Cell[TextData[{ "Combining the last two plots shows the cost, in terms of lost utility, of \ reducing the effectiveness of advertising,", StyleBox[" \[Gamma]", "Input"], ". It is this argument that may persuade the one vote an investor needs \ from the local council. If the vote is close and swing vote is rational this \ argument may only need to ring true with that one member. " }], "Text"], Cell[BoxData[{ \(\($TextStyle\ = \ {FontFamily\ -> \ "\", \ FontSize\ -> \ 12};\)\), "\n", \(\(p14 = Show[{Graphics[p12], Graphics[p13]}, {Graphics[p9a], Graphics[p12a]}, FrameLabel -> {"\< \ Advertising\>", "\"}, PlotLabel -> "\", Frame \[Rule] {True, True, False, False}, FrameTicks -> {{{sampleA, "\"}, {subA, "\"}}, None}, \n\ \ \ \ Epilog\ -> \ {Arrow[{80, \ 210000}, \ {61, 210000}, HeadCenter -> .5], \n\ \ \ \ \ Text["\", \ \ {90, \ 230000}]}, DisplayFunction \[Rule] $DisplayFunction, ImageSize \[Rule] 350];\)\)}], "Input", CellLabel->"In[75]:=", FontSize->12], Cell["\<\ Double clicking on the next graphic below will demonstrate how utility falls \ continuously with reduction in permitted advertising from optimal \ advertising.\ \>", "Text"], Cell[BoxData[{ \(\(pix = Animate[Show[{Plot[{u[A, .5, 4.1, \[Gamma], 100, .07], u[A, .5, 4.1, 3.1, 100, .07]}, {A, 1, 100}, FrameLabel -> {"\< Advertising\>", \ "\"}, PlotRange -> {0, 400000}, PlotStyle -> {{h[220], t[ .9]}, {h[150], t[ .9]}}, Frame -> {True, True, False, False}, PlotLabel -> "\", FrameTicks -> {{{sampleA, "\"}, {\(A\^*\) /. {\[Alpha] -> \ .5, \[Beta] -> 4.1, \[Gamma] -> \[Gamma], A0 -> 100}, "\"}}, None}]}, {Graphics[p9a], Graphics[{dash[ .015], Line[{{\(A\^*\) /. {\[Alpha] -> .5, \[Beta] -> 4.1, \[Gamma] -> \[Gamma], A0 -> 100}, 0}, {\(A\^*\) /. {\[Alpha] -> .5, \[Beta] -> 4.1, \[Gamma] -> \[Gamma], A0 -> 100}, u[\(A\^*\) /. {\[Alpha] -> .5, \[Beta] -> 4.1, \[Gamma] -> \[Gamma], A0 -> 100}, .5, 4.1, \[Gamma], 100, .07]}}]}]}, Frame \[Rule] {True, True, False, False}], {\[Gamma], 3.1, .00001}];\)\), "\[IndentingNewLine]", \(\(SelectionMove[EvaluationNotebook[], After, EvaluationCell];\)\), "\[IndentingNewLine]", \(\(SelectionMove[EvaluationNotebook[], Next, CellGroup];\)\), "\[IndentingNewLine]", \(FrontEndTokenExecute["\"]\)}], "Input", CellLabel->"In[77]:=", FontSize->12], Cell[TextData[StyleBox["The animation below is a simplified version of the \ one above.", "Text"]], "Text", FontSize->12], Cell[BoxData[{ \(\(Animate[ Plot[{u[A, .5, 4.1, \[Gamma], 100, .07], u[A, .5, 4.1, 3.1, 100, .07]}, {A, 1, 100}, FrameLabel -> {Advertising, "\"}, PlotRange -> {0, 400000}, PlotStyle -> {{h[220], t[ .9]}, {h[150], t[ .9]}}, Frame -> {True, True, False, False}, FrameTicks -> {None, None}], {\[Gamma], 3.1, 2}];\)\), "\[IndentingNewLine]", \(\(SelectionMove[EvaluationNotebook[], After, EvaluationCell];\)\), "\[IndentingNewLine]", \(\(SelectionMove[EvaluationNotebook[], Next, CellGroup];\)\), "\[IndentingNewLine]", \(FrontEndTokenExecute["\"]\)}], "Input", CellLabel->"In[81]:=", FontSize->12], Cell[TextData[{ "Utility, ", StyleBox["U", "Input"], ", changes with the change in allowed advertising, ", StyleBox["A", "Input"], ". But the efficiency, \n", StyleBox["\[Gamma]", "Input"], ", of advertising also affects utility. If those were the only variables, \ ", StyleBox["Mathematica", FontSlant->"Italic"], " does a good job illustrating the problem in three dimensions. But allowed \ advertising is affected by ", StyleBox["community preference", FontSlant->"Italic"], " for ", StyleBox["Env", "Input"], ", ", StyleBox["\[Beta]", "Input"], ", which introduces a fourth dimension. As we cannot illustrate more than \ three dimensions, we break them up into two separate 3-D graphics.\nBelow is \ a 3D graphic displaying the change in Utility with the changes in ", StyleBox["A", "Input"], " and \n", StyleBox["\[Gamma]", "Input"], ".We see that the effect on utility of a change in allowed advertising is \ greatest when the efficiency is highest. This is reasonable as the merchants \ lose more and tax revenue falls more." }], "Text", FontSize->12], Cell[BoxData[ \(\(p19 = Plot3D[u[A, .5, 5, \[Gamma], 100, .07], {A, 0, 100}, {\[Gamma], .0001, 5}, AxesLabel -> {A, \[Gamma], "\"}, Ticks \[Rule] {Automatic, Automatic, None}, Mesh \[Rule] True, MeshStyle \[Rule] Automatic, ViewPoint \[Rule] {1.3, \(-2.4\), 2. }, ImageSize \[Rule] 350];\)\)], "Input", CellLabel->"In[85]:=", FontSize->12], Cell["\<\ We can rotate our plot (double click on the graphic below) to get a better \ view of the changes from different viewpoints.\ \>", "Text"], Cell[BoxData[{ RowBox[{ RowBox[{"p20", "=", StyleBox[\(Table[ Plot3D[u[A, .5, 5, \[Gamma], 100, .07], {A, 0, 100}, {\[Gamma], .0001, 5}, \ PlotPoints\ -> \ 25, \ {ViewPoint\ -> \ {5\ Cos[turn], \ 5\ \ Sin[turn], \ 2. }}, \ \ SphericalRegion\ -> \ True, \ \ Axes\ -> \ False\ ]\ , {turn, \ 0.0, \ 2\ Pi, \ .1}]\), FormatType->StandardForm, FontFamily->"Courier New", FontSize->10, CharacterEncoding->"WindowsANSI"]}], StyleBox[";", FormatType->StandardForm, FontFamily->"Courier New", FontSize->10, CharacterEncoding->"WindowsANSI"]}], "\n", \(SelectionMove[ EvaluationNotebook[], After, EvaluationCell];\), "\[IndentingNewLine]", \(SelectionMove[ EvaluationNotebook[], Next, CellGroup];\), "\[IndentingNewLine]", \ \(FrontEndTokenExecute["\"]\), "\[IndentingNewLine]", "Null"}], "Input", CellLabel->"In[86]:="], Cell["\<\ We now show the change in Utility with the changes in A and \[Beta]. We note \ that when \[Beta] is small there is little change in utility with changes in \ A. \ \>", "Text", FontSize->12], Cell[BoxData[ \(\(p21 = Plot3D[u[A, .5, \[Beta], 3.1, 100, .07], {A, 0, 100}, {\[Beta], .0001, 5}, AxesLabel -> {A, \[Beta], "\"}, Ticks \[Rule] {Automatic, Automatic, None}, Mesh \[Rule] True, MeshStyle \[Rule] Automatic, ViewPoint \[Rule] {1.3, \(-2.4\), 2. }, ImageSize \[Rule] 350];\)\)], "Input", CellLabel->"In[91]:=", FontSize->12], Cell["Rotating this plot:", "Text"], Cell[BoxData[{ RowBox[{ RowBox[{"p22", "=", StyleBox[\(Table[ Plot3D[u[A, .5, \[Beta], 3.1, 100, .07], {A, 0, 100}, {\[Beta], .0001, 5}, \ PlotPoints\ -> \ 25, \ {ViewPoint\ -> \ {5\ Cos[turn], \ 5\ \ Sin[turn], \ 2. }}, \ \ SphericalRegion\ -> \ True, \ \ Axes\ -> \ False\ ]\ , {turn, \ 0.0, \ 2\ Pi, \ .1}]\), FormatType->StandardForm, FontFamily->"Courier New", FontSize->10, CharacterEncoding->"WindowsANSI"]}], StyleBox[";", FormatType->StandardForm, FontFamily->"Courier New", FontSize->10, CharacterEncoding->"WindowsANSI"]}], "\n", \(SelectionMove[ EvaluationNotebook[], After, EvaluationCell];\), "\[IndentingNewLine]", \(SelectionMove[ EvaluationNotebook[], Next, CellGroup];\), "\[IndentingNewLine]", \ \(FrontEndTokenExecute["\"]\), "\[IndentingNewLine]", "Null"}], "Input", CellLabel->"In[92]:="] }, Open ]], Cell[CellGroupData[{ Cell["Conclusion", "Section"], Cell["The implications of this exercise should be clear:", "Text"], Cell[TextData[{ " ", StyleBox[ CounterBox["ItemizedText"], FontWeight->"Bold"], StyleBox[".", FontWeight->"Bold"], " People make decisions on the margins. Marginal analysis is a very \ powerful tool for measuring the net effect of a trade-off between two \ alternatives. Many, if not all, economic choices between two alternatives may \ be modeled on a cost-benefit basis provided one makes plausible assumptions \ about how people generate well-being, happiness or utility." }], "ItemizedText"], Cell[TextData[{ " ", StyleBox[ CounterBox["ItemizedText"], FontWeight->"Bold"], StyleBox[".", FontWeight->"Bold"], " Any item on the list of development constraints mentioned in the \ introduction to this chapter could be substituted for the one illustrated \ here. The aggregate of all such constraints, if applied by a heavy handed \ legislative body, can operate as a strong disincentive to entrepreneurial \ activity in a community." }], "ItemizedText"], Cell[TextData[{ " ", StyleBox[ CounterBox["ItemizedText"], FontWeight->"Bold"], StyleBox[".", FontWeight->"Bold"], " Arguments for change and arguments for preservation are often equally \ persuasive, especially when couched in an emotional framework. Alternatively, \ a balanced, methodical approach to resolving these issues is preferable when \ rational people of good intent must agree on how change is to be \ implemented." }], "ItemizedText"] }, Open ]] }, Open ]] }, FrontEndVersion->"4.2 for Microsoft Windows", ScreenRectangle->{{0, 1024}, {0, 679}}, ScreenStyleEnvironment->"AllBrackets", WindowToolbars->{"RulerBar", "EditBar"}, WindowSize->{1016, 641}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, WindowTitle->"Updated Notations - LandUse.nb", Visible->True, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, 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[ {"\"\[Placeholder]\"", "\[Rule]", TagBox[ "\[Placeholder]", NotationBoxTag, TagStyle -> "NotationTemplateStyle"]}], "]"}], "pattwraper"->TagBox[ "\[Placeholder]", NotationPatternTag, TagStyle -> "NotationPatternWrapperStyle"], "madeboxeswraper"->TagBox[ "\[Placeholder]", NotationMadeBoxesTag, TagStyle -> "NotationMadeBoxesWrapperStyle"]}, Magnification->1.25, 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"], PageWidth->WindowWidth, ShowCellBracket->False, CellLabelMargins->{{10, Inherited}, {Inherited, Inherited}}, ScriptMinSize->9], Cell[StyleData[All, "AllBrackets"], PageWidth->WindowWidth, ShowCellBracket->True, ScriptMinSize->9], Cell[StyleData[All, "Presentation"], PageWidth->WindowWidth, ShowCellBracket->False, ShowGroupOpenCloseIcon->True, ScriptMinSize->9], Cell[StyleData[All, "Printout"], PageWidth->PaperWidth, ShowCellBracket->False, CellLabelMargins->{{2, Inherited}, {Inherited, Inherited}}, ScriptMinSize->5, PrivateFontOptions->{"FontType"->"Outline"}], Cell[StyleData[All, "EnhancedPrintout"], PageWidth->PaperWidth, ShowCellBracket->False, CellLabelMargins->{{2, Inherited}, {Inherited, Inherited}}, ScriptMinSize->5, PrivateFontOptions->{"FontType"->"Outline"}], Cell[StyleData[All, "EnhancedPrintoutNonGray"], PageWidth->PaperWidth, ShowCellBracket->False, CellLabelMargins->{{2, Inherited}, {Inherited, Inherited}}, ScriptMinSize->5, 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"], PrintingStyleEnvironment->"Printout", PageHeaders->{{Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"], None, Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"]}, {Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"], None, Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"]}}, PrintingOptions->{"PrintingMargins"->{{97, 97}, {180, 64}}, "FirstPageHeader"->False, "FacingPages"->True}, CellLabelAutoDelete->False, CellFrameLabelMargins->6, StyleMenuListing->None] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headings", "Section"], Cell[CellGroupData[{ Cell[StyleData["Title"], CellMargins->{{12, Inherited}, {20, 40}}, CellGroupingRules->{"TitleGrouping", 0}, PageBreakAbove->True, PageBreakBelow->False, LineSpacing->{1, 11}, CounterIncrements->"Title", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily->"Helvetica", FontSize->36, FontWeight->"Bold"], Cell[StyleData["Title", "Printout"], CellMargins->{{2, 10}, {15, 30}}, FontSize->30], Cell[StyleData["Title", "EnhancedPrintout"], CellMargins->{{2, 10}, {15, 30}}, FontFamily->"Futura", FontSize->30], Cell[StyleData["Title", "EnhancedPrintoutNonGray"], CellMargins->{{2, 10}, {15, 30}}, FontFamily->"Futura", FontSize->30] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subtitle"], CellMargins->{{12, Inherited}, {10, 2}}, CellGroupingRules->{"TitleGrouping", 10}, PageBreakBelow->False, LineSpacing->{1, 11}, CounterIncrements->"Subtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subsubtitle", 0}}, FontFamily->"Helvetica", FontSize->28], Cell[StyleData["Subtitle", "Printout"], CellMargins->{{2, 10}, {10, 15}}, FontSize->24], Cell[StyleData["Subtitle", "EnhancedPrintout"], CellMargins->{{2, 10}, {10, 15}}, FontFamily->"Futura", FontSize->24], Cell[StyleData["Subtitle", "EnhancedPrintoutNonGray"], CellMargins->{{2, 10}, {10, 15}}, FontFamily->"Futura", FontSize->24] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubtitle"], CellMargins->{{12, Inherited}, {10, 20}}, CellGroupingRules->{"TitleGrouping", 20}, PageBreakBelow->False, CounterIncrements->"Subsubtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontFamily->"Helvetica", FontSize->14, FontSlant->"Italic"], Cell[StyleData["Subsubtitle", "Printout"], CellMargins->{{2, 10}, {8, 10}}, FontSize->12], Cell[StyleData["Subsubtitle", "EnhancedPrintout"], CellMargins->{{2, 10}, {8, 10}}, FontFamily->"Futura", FontSize->12], Cell[StyleData["Subsubtitle", "EnhancedPrintoutNonGray"], CellMargins->{{2, 10}, {8, 10}}, FontFamily->"Futura", FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Section"], CellFrame->{{0, 0}, {0.5, 0}}, CellMargins->{{10, Inherited}, {8, 30}}, CellGroupingRules->{"SectionGrouping", 30}, PageBreakBelow->False, CellFrameMargins->8, LineSpacing->{1, 7}, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily->"Helvetica", FontSize->20, FontWeight->"Bold", CellTags->"Section"], Cell[StyleData["Section", "Printout"], CellMargins->{{2, 0}, {7, 24}}, FontSize->16], Cell[StyleData["Section", "EnhancedPrintout"], CellMargins->{{2, 0}, {7, 24}}, FontFamily->"Futura", FontSize->16], Cell[StyleData["Section", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {7, 24}}, FontFamily->"Futura", FontSize->16] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsection"], CellDingbat->"\[FilledSquare]", CellMargins->{{24, Inherited}, {8, 30}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, FontFamily->"Helvetica", FontSize->14, FontWeight->"Bold", CellTags->"Subsection"], Cell[StyleData["Subsection", "Printout"], CellMargins->{{9, 0}, {7, 24}}, FontSize->12], Cell[StyleData["Subsection", "EnhancedPrintout"], CellMargins->{{9, 0}, {7, 24}}, FontFamily->"Futura", FontSize->14], Cell[StyleData["Subsection", "EnhancedPrintoutNonGray"], CellMargins->{{9, 0}, {7, 24}}, FontFamily->"Futura", FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubsection"], CellMargins->{{12, Inherited}, {8, 24}}, CellGroupingRules->{"SectionGrouping", 50}, PageBreakBelow->False, CounterIncrements->"Subsubsection", FontFamily->"Helvetica", FontWeight->"Bold", CellTags->"Subsubsection"], Cell[StyleData["Subsubsection", "Printout"], CellMargins->{{2, 0}, {7, 18}}, FontSize->10], Cell[StyleData["Subsubsection", "EnhancedPrintout"], CellMargins->{{2, 0}, {7, 18}}, FontFamily->"Futura", FontSize->10], Cell[StyleData["Subsubsection", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {7, 18}}, FontFamily->"Futura", FontSize->10] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[CellGroupData[{ Cell[StyleData["Text"], CellMargins->{{12, 10}, {7, 7}}, LineSpacing->{1, 3}, ParagraphSpacing->{0.7, 0}, CounterIncrements->"Text"], Cell[StyleData["Text", "Printout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, FontSize->11], Cell[StyleData["Text", "EnhancedPrintout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, FontFamily->"Palatino", FontSize->10], Cell[StyleData["Text", "EnhancedPrintoutNonGray"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SmallText"], CellMargins->{{12, 10}, {6, 6}}, LineSpacing->{1, 3}, ParagraphSpacing->{0.7, 0}, CounterIncrements->"SmallText", FontSize->9], Cell[StyleData["SmallText", "Printout"], CellMargins->{{2, 2}, {5, 5}}, TextJustification->1, FontSize->7], Cell[StyleData["SmallText", "EnhancedPrintout"], CellMargins->{{2, 2}, {5, 5}}, TextJustification->1, FontFamily->"Palatino", FontSize->7], Cell[StyleData["SmallText", "EnhancedPrintoutNonGray"], CellMargins->{{2, 2}, {5, 5}}, TextJustification->1, FontFamily->"Palatino", FontSize->7] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CopyrightText"], CellMargins->{{10, 4}, {0, 8}}, ParagraphSpacing->{0, 0}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10], Cell[StyleData["CopyrightText", "Printout"], CellMargins->{{2, 0}, {0, 8}}, 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"], ShowCellBracket->True, CellMargins->{{45, 10}, {5, 7}}, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, DefaultFormatType->DefaultInputFormatType, AutoItalicWords->{}, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input", FontWeight->"Bold"], Cell[StyleData["Input", "Printout"], ShowCellBracket->False, CellMargins->{{39, 0}, {4, 6}}, FontSize->9], Cell[StyleData["Input", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{39, 0}, {4, 6}}, FontSize->9], Cell[StyleData["Input", "EnhancedPrintoutNonGray"], ShowCellBracket->False, CellMargins->{{39, 0}, {4, 6}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Output"], ShowCellBracket->True, CellMargins->{{46, 10}, {7, 5}}, CellEditDuplicate->True, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, DefaultFormatType->DefaultOutputFormatType, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Output"], Cell[StyleData["Output", "Printout"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 4}}, FontSize->9], Cell[StyleData["Output", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 4}}, FontSize->9], Cell[StyleData["Output", "EnhancedPrintoutNonGray"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 4}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Message"], ShowCellBracket->True, CellMargins->{{45, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{11, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Message", StyleMenuListing->None, FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], Cell[StyleData["Message", "Printout"], ShowCellBracket->False, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontSize->9, FontColor->GrayLevel[0]], Cell[StyleData["Message", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier", FontSize->9, FontColor->GrayLevel[0]], Cell[StyleData["Message", "EnhancedPrintoutNonGray"], ShowCellBracket->False, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier", FontSize->9, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Print"], ShowCellBracket->True, CellMargins->{{75, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{11, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Print", StyleMenuListing->None], Cell[StyleData["Print", "Printout"], ShowCellBracket->False, CellMargins->{{57, Inherited}, {Inherited, Inherited}}, FontSize->9], Cell[StyleData["Print", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{57, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier", FontSize->9], Cell[StyleData["Print", "EnhancedPrintoutNonGray"], ShowCellBracket->False, CellMargins->{{57, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Graphics"], ShowCellBracket->True, CellMargins->{{47, 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"], ShowCellBracket->False, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, ImageSize->{250, 250}, FontSize->9], Cell[StyleData["Graphics", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, ImageSize->{250, 250}, FontFamily->"Courier", FontSize->9], Cell[StyleData["Graphics", "EnhancedPrintoutNonGray"], ShowCellBracket->False, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, ImageSize->{250, 250}, FontFamily->"Courier", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CellLabel"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["CellLabel", "Printout"], FontFamily->"Courier", FontSize->8, FontSlant->"Italic", FontColor->GrayLevel[0]], Cell[StyleData["CellLabel", "EnhancedPrintout"], FontFamily->"Courier", FontSize->8, FontSlant->"Italic", FontColor->GrayLevel[0]], Cell[StyleData["CellLabel", "EnhancedPrintoutNonGray"], FontFamily->"Courier", FontSize->8, FontSlant->"Italic", FontColor->GrayLevel[0]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Inline Formatting", "Section"], Cell["\<\ These styles are for modifying individual words or letters in a cell \ exclusive of the cell tag.\ \>", "Text"], Cell[StyleData["RM"], StyleMenuListing->None, FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["BF"], StyleMenuListing->None, FontWeight->"Bold"], Cell[StyleData["IT"], StyleMenuListing->None, FontSlant->"Italic"], Cell[StyleData["TR"], StyleMenuListing->None, FontFamily->"Times", FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["TI"], StyleMenuListing->None, FontFamily->"Times", FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["TB"], StyleMenuListing->None, FontFamily->"Times", FontWeight->"Bold", FontSlant->"Plain"], Cell[StyleData["TBI"], StyleMenuListing->None, FontFamily->"Times", FontWeight->"Bold", FontSlant->"Italic"], Cell[StyleData["MR"], StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["MO"], StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["MB"], StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Plain"], Cell[StyleData["MBO"], StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], Cell[StyleData["SR"], StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["SO"], StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["SB"], StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Bold", FontSlant->"Plain"], Cell[StyleData["SBO"], StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Bold", FontSlant->"Italic"], Cell[CellGroupData[{ Cell[StyleData["SO10"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10, FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["SO10", "Printout"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->7, FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["SO10", "EnhancedPrintout"], StyleMenuListing->None, FontFamily->"Futura", FontSize->7, FontWeight->"Plain", FontSlant->"Italic"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Miscellaneous Styles", "Section"], Cell[CellGroupData[{ Cell[StyleData["PictureCaption"], CellMargins->{{47, 4}, {0, 2}}, PageBreakAbove->False, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9], Cell[StyleData["PictureCaption", "Printout"], CellMargins->{{39, 4}, {2, 4}}, FontSize->7], Cell[StyleData["PictureCaption", "EnhancedPrintout"], CellMargins->{{39, 4}, {2, 4}}, FontFamily->"Futura", FontSize->7], Cell[StyleData["PictureCaption", "EnhancedPrintoutNonGray"], CellMargins->{{39, 4}, {2, 4}}, FontFamily->"Futura", FontSize->7] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MathCaption"], CellDingbat->"\[FilledSmallSquare]", CellMargins->{{46, 42}, {0, 14}}, PageBreakBelow->False, LineSpacing->{1, 1}, ParagraphSpacing->{0, 8}, FontColor->RGBColor[0, 0, 0.6]], Cell[StyleData["MathCaption", "Printout"], CellMargins->{{42, 42}, {0, 14}}, FontSize->9, FontColor->GrayLevel[0]], Cell[StyleData["MathCaption", "EnhancedPrintout"], CellMargins->{{42, 42}, {0, 14}}, FontFamily->"Palatino", FontSize->9, FontColor->GrayLevel[0]], Cell[StyleData["MathCaption", "EnhancedPrintoutNonGray"], CellMargins->{{42, 42}, {0, 14}}, FontFamily->"Palatino", FontSize->9, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Commentary"], CellFrame->{{2, 0}, {0, 0}}, CellMargins->{{36, 10}, {7, 7}}, PageBreakBelow->False, CellFrameMargins->8, CellFrameColor->RGBColor[0, 0.2, 1], LineSpacing->{1, 3}, ParagraphSpacing->{0, 8}, FontSlant->"Italic"], Cell[StyleData["Commentary", "Printout"], CellMargins->{{36, 0}, {6, 6}}, CellFrameColor->GrayLevel[0.8], FontSize->10], Cell[StyleData["Commentary", "EnhancedPrintout"], CellMargins->{{36, 0}, {6, 6}}, CellFrameColor->GrayLevel[0.8], FontFamily->"Palatino", FontSize->10], Cell[StyleData["Commentary", "EnhancedPrintoutNonGray"], CellMargins->{{36, 0}, {6, 6}}, CellFrameColor->GrayLevel[0.8], FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemizedText"], CellMargins->{{20, 4}, {0, 4}}, LineSpacing->{1, 3}, ParagraphSpacing->{0, 4}, ParagraphIndent->-21, CounterIncrements->"ItemizedText"], Cell[StyleData["ItemizedText", "Printout"], ParagraphIndent->-18, FontSize->11], Cell[StyleData["ItemizedText", "EnhancedPrintout"], ParagraphIndent->-18, FontFamily->"Palatino", FontSize->10], Cell[StyleData["ItemizedText", "EnhancedPrintoutNonGray"], ParagraphIndent->-18, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemizedTextNote"], CellMargins->{{41, 4}, {0, 4}}, LineSpacing->{1, 3}, ParagraphSpacing->{0, 4}, CounterIncrements->"Text"], Cell[StyleData["ItemizedTextNote", "Printout"], CellMargins->{{38, 4}, {0, 4}}, FontSize->11], Cell[StyleData["ItemizedTextNote", "EnhancedPrintout"], CellMargins->{{38, 4}, {0, 4}}, FontFamily->"Palatino", FontSize->10], Cell[StyleData["ItemizedTextNote", "EnhancedPrintoutNonGray"], CellMargins->{{38, 4}, {0, 4}}, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["BulletText"], CellMargins->{{20, 4}, {0, 4}}, LineSpacing->{1, 3}, ParagraphSpacing->{0, 4}, ParagraphIndent->-21], Cell[StyleData["BulletText", "Printout"], ParagraphIndent->-18, FontSize->11], Cell[StyleData["BulletText", "EnhancedPrintout"], ParagraphIndent->-18, FontFamily->"Palatino", FontSize->10], Cell[StyleData["BulletText", "EnhancedPrintoutNonGray"], ParagraphIndent->-18, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["IndentedText"], CellMargins->{{20, 4}, {0, 6}}, LineSpacing->{1, 3}, ParagraphSpacing->{0, 8}, CounterIncrements->"Text"], Cell[StyleData["IndentedText", "Printout"], FontSize->10], Cell[StyleData["IndentedText", "EnhancedPrintout"], FontFamily->"Palatino", FontSize->10], Cell[StyleData["IndentedText", "EnhancedPrintoutNonGray"], FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["HiddenSection"], CellFrame->{{0, 0}, {0.5, 0}}, CellMargins->{{10, Inherited}, {8, 30}}, CellGroupingRules->{"SectionGrouping", 30}, PageBreakBelow->False, CellFrameMargins->8, LineSpacing->{1, 7}, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily->"Helvetica", FontSize->20, FontWeight->"Bold", CellTags->"Section"], Cell[StyleData["HiddenSection", "Printout"], CellFrame->False, CellMargins->{{2, 0}, {7, 124}}, CellFrameColor->GrayLevel[0], FontSize->16, FontColor->GrayLevel[1]], Cell[StyleData["HiddenSection", "EnhancedPrintout"], CellFrame->False, CellMargins->{{2, 0}, {7, 124}}, CellFrameColor->GrayLevel[0], FontFamily->"Futura", FontSize->16, FontColor->GrayLevel[1]], Cell[StyleData["HiddenSection", "EnhancedPrintoutNonGray"], CellFrame->False, CellMargins->{{2, 0}, {7, 124}}, CellFrameColor->GrayLevel[0], FontFamily->"Futura", FontSize->16, FontColor->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CompactText"], CellMargins->{{10, 4}, {0, 8}}, ConversionRules:>{"HTML" -> {"", "\n"}}, ParagraphSpacing->{0, 0}, StyleMenuListing->None, FontSize->10], Cell[StyleData["CompactText", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->8], Cell[StyleData["CompactText", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, TextJustification->1, FontFamily->"Palatino", FontSize->8], Cell[StyleData["CompactText", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, TextJustification->1, FontFamily->"Palatino", FontSize->8] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Emphasis Boxes and Pictures", "Section"], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox"], CellFrame->0.5, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, ShowStringCharacters->True, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.3, 0.7}, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["DefinitionBox", "EnhancedPrintout"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["DefinitionBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[0.999954]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox3Col"], CellFrame->0.5, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, ShowStringCharacters->True, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.2, 0.3, 0.5}, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox3Col", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["DefinitionBox3Col", "EnhancedPrintout"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["DefinitionBox3Col", "EnhancedPrintoutNonGray"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[0.999954]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox4Col"], CellFrame->0.5, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, ShowStringCharacters->True, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.15, 0.35, 0.15, 0.35}, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox4Col", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["DefinitionBox4Col", "EnhancedPrintout"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["DefinitionBox4Col", "EnhancedPrintoutNonGray"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[0.999954]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox5Col"], CellFrame->0.5, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, ShowStringCharacters->True, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->0.2, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox5Col", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["DefinitionBox5Col", "EnhancedPrintout"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["DefinitionBox5Col", "EnhancedPrintoutNonGray"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[0.999954]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox6Col"], CellFrame->0.5, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, ShowStringCharacters->True, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.13, 0.24, 0.13, 0.13, 0.24, 0.13}, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox6Col", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["DefinitionBox6Col", "EnhancedPrintout"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["DefinitionBox6Col", "EnhancedPrintoutNonGray"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[0.999954]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TopBox"], CellFrame->{{0.5, 0.5}, {0, 0.5}}, CellMargins->{{11, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakBelow->False, AutoIndent->False, AutoSpacing->False, ShowStringCharacters->True, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.31, 0.62}, ColumnAlignments->{Left}}], Cell[StyleData["TopBox", "Printout"], CellMargins->{{2, 0}, {-2, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["TopBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {-4, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["TopBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {-4, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[0.999954]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MiddleBox"], CellFrame->{{0.5, 0.5}, {0, 0}}, CellMargins->{{11, 4}, {0, -7}}, CellHorizontalScrolling->True, PageBreakAbove->False, PageBreakBelow->False, CellFrameMargins->{{8, 8}, {4, 4}}, AutoIndent->False, AutoSpacing->False, ShowStringCharacters->True, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.31, 0.62}, ColumnAlignments->{Left}}], Cell[StyleData["MiddleBox", "Printout"], CellMargins->{{2, 0}, {-1, 0}}, CellFrameMargins->{{8, 8}, {4, 1}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["MiddleBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {-1, 1}}, CellFrameMargins->{{8, 8}, {4, 1}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["MiddleBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {-1, 1}}, CellFrameMargins->{{8, 8}, {4, 1}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[0.999954]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MiddleSpacedBox"], CellFrame->{{0.5, 0.5}, {0, 0}}, CellMargins->{{11, 4}, {-3, -8}}, CellHorizontalScrolling->True, PageBreakAbove->False, PageBreakBelow->False, AutoIndent->False, AutoSpacing->False, ShowStringCharacters->True, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.31, 0.62}, ColumnAlignments->{Left}, RowMinHeight->1.2}], Cell[StyleData["MiddleSpacedBox", "Printout"], CellMargins->{{2, 0}, {-5, 0}}, CellFrameMargins->{{8, 8}, {6, 2}}, FontSize->10, Background->GrayLevel[0.900008], GridBoxOptions->{RowMinHeight->1.8}], Cell[StyleData["MiddleSpacedBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {-7, 0}}, CellFrameMargins->{{8, 8}, {6, 2}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[0.900008], GridBoxOptions->{RowMinHeight->1.8}], Cell[StyleData["MiddleSpacedBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {-7, 0}}, CellFrameMargins->{{8, 8}, {6, 2}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[0.999954], GridBoxOptions->{RowMinHeight->1.8}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MiddleSpanBox"], CellFrame->{{0.5, 0.5}, {0, 0}}, CellMargins->{{11, 4}, {-3, -8}}, CellHorizontalScrolling->True, PageBreakAbove->False, PageBreakBelow->False, AutoIndent->False, AutoSpacing->False, ShowStringCharacters->True, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.9, 0.03}, ColumnAlignments->{Left}, RowMinHeight->1.2}], Cell[StyleData["MiddleSpanBox", "Printout"], CellMargins->{{2, 0}, {-5, 0}}, CellFrameMargins->{{8, 8}, {6, 2}}, FontSize->10, Background->GrayLevel[0.900008], GridBoxOptions->{RowMinHeight->1.8}], Cell[StyleData["MiddleSpanBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {-7, 0}}, CellFrameMargins->{{8, 8}, {6, 2}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[0.900008], GridBoxOptions->{RowMinHeight->1.8}], Cell[StyleData["MiddleSpanBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {-7, 0}}, CellFrameMargins->{{8, 8}, {6, 2}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[0.999954], GridBoxOptions->{RowMinHeight->1.8}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["BottomBox"], CellFrame->{{0.5, 0.5}, {0.5, 0}}, CellMargins->{{11, 4}, {0, -7}}, CellHorizontalScrolling->True, PageBreakAbove->False, PageBreakBelow->False, AutoIndent->False, AutoSpacing->False, ShowStringCharacters->True, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.31, 0.62}, ColumnAlignments->{Left}, RowMinHeight->1.2}], Cell[StyleData["BottomBox", "Printout"], CellMargins->{{2, 0}, {-1, -2}}, CellFrameMargins->{{8, 8}, {4, -2}}, FontSize->10, Background->GrayLevel[0.900008], GridBoxOptions->{RowMinHeight->2.2}], Cell[StyleData["BottomBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {-1, -2}}, CellFrameMargins->{{8, 8}, {4, -2}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[0.900008], GridBoxOptions->{RowMinHeight->2.2}], Cell[StyleData["BottomBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {-1, -2}}, CellFrameMargins->{{8, 8}, {4, -2}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[0.999954], GridBoxOptions->{RowMinHeight->2.2}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TopSpanBox"], CellFrame->{{0.5, 0.5}, {0, 0.5}}, CellMargins->{{11, 4}, {-2, 8}}, CellHorizontalScrolling->True, PageBreakBelow->False, AutoIndent->False, AutoSpacing->False, ShowStringCharacters->True, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.9, 0.03}, ColumnAlignments->{Left}}], Cell[StyleData["TopSpanBox", "Printout"], CellMargins->{{2, 0}, {-2, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["TopSpanBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {-4, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["TopSpanBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {-4, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[0.999954]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Picture"], CellMargins->{{12, Inherited}, {0, 8}}, CellHorizontalScrolling->True], Cell[StyleData["Picture", "Printout"], CellMargins->{{2, Inherited}, {0, 8}}], Cell[StyleData["Picture", "EnhancedPrintout"], CellMargins->{{2, Inherited}, {0, 8}}], Cell[StyleData["Picture", "EnhancedPrintoutNonGray"], CellMargins->{{2, Inherited}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Caption"], CellMargins->{{12, 4}, {0, 2}}, PageBreakAbove->False, FontFamily->"Helvetica", FontSize->9], Cell[StyleData["Caption", "Printout"], CellMargins->{{2, 4}, {2, 4}}, FontSize->7], Cell[StyleData["Caption", "EnhancedPrintout"], CellMargins->{{2, 4}, {2, 4}}, FontFamily->"Futura", FontSize->7], Cell[StyleData["Caption", "EnhancedPrintoutNonGray"], CellMargins->{{2, 4}, {2, 4}}, FontFamily->"Futura", FontSize->7] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Tables", "Section"], Cell[CellGroupData[{ Cell[StyleData["SingleRowTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, ShowStringCharacters->True, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnAlignments->{Left}}], Cell[StyleData["SingleRowTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10], Cell[StyleData["SingleRowTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10], Cell[StyleData["SingleRowTable", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["2ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, ShowStringCharacters->True, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->{0.34, 0.64}, ColumnAlignments->{Left, Center}}], Cell[StyleData["2ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10], Cell[StyleData["2ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10], Cell[StyleData["2ColumnTable", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["2ColumnEvenTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, ShowStringCharacters->True, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->0.49, ColumnAlignments->{Left, Center}}], Cell[StyleData["2ColumnEvenTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10], Cell[StyleData["2ColumnEvenTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10], Cell[StyleData["2ColumnEvenTable", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["3ColumnTable"], PageWidth->400, CellMargins->{{10, 10}, {1, 1}}, CellHorizontalScrolling->True, ShowStringCharacters->True, CounterIncrements->"Table", StyleMenuListing->None, GridBoxOptions->{ColumnWidths->0.336, RowAlignments->Center, ColumnAlignments->{Left, Center}, GridFrame->{{0, 0}, {0.5, 2}}, RowLines->{True, False}, ColumnLines->False, GridDefaultElement:>Cell[ "Your Data", "TableText"]}], Cell[StyleData["3ColumnTable", "Printout"], CellMargins->{{2, 10}, {1, 1}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["3ColumnTablePlain"], PageWidth->400, CellMargins->{{12, 10}, {7, 7}}, CellHorizontalScrolling->True, ShowStringCharacters->True, CounterIncrements->"Table", StyleMenuListing->None, GridBoxOptions->{ColumnWidths->0.336, RowAlignments->Center, ColumnAlignments->{Left, Center}, GridFrame->{{0, 0}, {0.5, 2}}, RowLines->{True, False}, ColumnLines->False, GridDefaultElement:>Cell[ "Your Data", "TableText"]}], Cell[StyleData["3ColumnTablePlain", "Printout"], CellMargins->{{2, 10}, {4, 4}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["4ColumnTable"], PageWidth->400, CellMargins->{{10, 10}, {1, 1}}, CellHorizontalScrolling->True, ShowStringCharacters->True, CounterIncrements->"Table", StyleMenuListing->None, GridBoxOptions->{ColumnWidths->0.251, RowAlignments->Center, ColumnAlignments->{Left, Center}, GridFrame->{{0, 0}, {0.5, 2}}, RowLines->{True, False}, ColumnLines->False, GridDefaultElement:>Cell[ "Your Data", "TableText"]}], Cell[StyleData["4ColumnTable", "Printout"], CellMargins->{{2, 10}, {1, 1}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["4ColumnTablePlain"], PageWidth->400, CellMargins->{{12, 10}, {7, 7}}, CellHorizontalScrolling->True, ShowStringCharacters->True, CounterIncrements->"Table", StyleMenuListing->None, GridBoxOptions->{ColumnWidths->0.251, RowAlignments->Center, ColumnAlignments->{Left, Center}, GridFrame->{{0, 0}, {0.5, 2}}, RowLines->{True, False}, ColumnLines->False, GridDefaultElement:>Cell[ "Your Data", "TableText"]}], Cell[StyleData["4ColumnTablePlain", "Printout"], CellMargins->{{2, 10}, {4, 4}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["5ColumnTable"], PageWidth->400, CellMargins->{{10, 10}, {1, 1}}, CellHorizontalScrolling->True, ShowStringCharacters->True, CounterIncrements->"Table", StyleMenuListing->None, GridBoxOptions->{ColumnWidths->0.201, RowAlignments->Center, ColumnAlignments->{Left, Center}, GridFrame->{{0, 0}, {0.5, 2}}, RowLines->{True, False}, ColumnLines->False, GridDefaultElement:>Cell[ "Your Data", "TableText"]}], Cell[StyleData["5ColumnTable", "Printout"], CellMargins->{{2, 10}, {1, 1}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["5ColumnTablePlain"], PageWidth->400, CellMargins->{{12, 10}, {7, 7}}, CellHorizontalScrolling->True, ShowStringCharacters->True, CounterIncrements->"Table", StyleMenuListing->None, GridBoxOptions->{ColumnWidths->0.201, RowAlignments->Center, ColumnAlignments->{Left, Center}, GridFrame->{{0, 0}, {0.5, 2}}, RowLines->{True, False}, ColumnLines->False, GridDefaultElement:>Cell[ "Your Data", "TableText"]}], Cell[StyleData["5ColumnTablePlain", "Printout"], CellMargins->{{2, 10}, {4, 4}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["6ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, ShowStringCharacters->True, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->0.16, ColumnAlignments->{Left, Center}}], Cell[StyleData["6ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10], Cell[StyleData["6ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10], Cell[StyleData["6ColumnTable", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["7ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, ShowStringCharacters->True, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->0.14, ColumnAlignments->{Left, Center}}], Cell[StyleData["7ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10], Cell[StyleData["7ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10], Cell[StyleData["7ColumnTable", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["8ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, ShowStringCharacters->True, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->0.12, ColumnAlignments->{Left, Center}}], Cell[StyleData["8ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10], Cell[StyleData["8ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10], Cell[StyleData["8ColumnTable", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TableHead"], PageWidth->400, CellMargins->{{12, 10}, {1, 7}}, LineSpacing->{1, 2}, CounterIncrements->"TableHead", StyleMenuListing->None, FontFamily->"Times", FontWeight->"Bold", GridBoxOptions->{ColumnWidths->40, ColumnAlignments->{Left}}], Cell[StyleData["TableHead", "Printout"], FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Table"], PageWidth->400, CellMargins->{{10, 10}, {1, 1}}, CellHorizontalScrolling->True, ShowStringCharacters->True, CounterIncrements->"Table", StyleMenuListing->None, GridBoxOptions->{ColumnWidths->0.503, RowAlignments->Center, ColumnAlignments->{Left, Center}, GridFrame->{{0, 0}, {0.5, 2}}, RowLines->{True, False}, ColumnLines->False, GridDefaultElement:>Cell[ "Your Data", "TableText"]}], Cell[StyleData["Table", "Printout"], CellMargins->{{2, 10}, {1, 1}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TablePlain"], PageWidth->400, CellMargins->{{12, 10}, {7, 7}}, CellHorizontalScrolling->True, ShowStringCharacters->True, CounterIncrements->"Table", StyleMenuListing->None, GridBoxOptions->{ColumnWidths->0.503, RowAlignments->Center, ColumnAlignments->{Left, Center}, GridFrame->{{0, 0}, {0.5, 2}}, RowLines->{True, False}, ColumnLines->False, GridDefaultElement:>Cell[ "Your Data", "TableText"]}], Cell[StyleData["TablePlain", "Printout"], CellMargins->{{2, 10}, {4, 4}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TableNote"], PageWidth->400, CellMargins->{{12, 10}, {7, 1}}, LineSpacing->{1, 1}, ParagraphSpacing->{0.3, 0}, FontFamily->"Times", FontSize->10], Cell[StyleData["TableNote", "Printout"], FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell["Inline Styles for Tables", "Subsection"], Cell[CellGroupData[{ Cell[StyleData["TableHeadText"], CounterIncrements->"TableHead", FontFamily->"Times", FontWeight->"Plain"], Cell[StyleData["TableHeadText", "Printout"], FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ColumnHead"], CounterIncrements->"Table", FontFamily->"Times", FontSlant->"Italic"], Cell[StyleData["ColumnHead", "Printout"], FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TableText"], TextAlignment->Left, LineSpacing->{1, 1}, FontFamily->"Times", FontSize->12], Cell[StyleData["TableText", "Printout"], FontSize->10] }, Closed]] }, Closed]] }, 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->{{45, 10}, {7, 7}}, CellFrameLabels->{{None, Cell[ TextData[ {"(", CounterBox[ "Section"], ".", CounterBox[ "NumberedEquation"], ")"}]]}, {None, None}}, DefaultFormatType->DefaultTextFormatType, SpanMaxSize->Infinity, CounterIncrements->"NumberedEquation", FormatTypeAutoConvert->False], Cell[StyleData["NumberedEquation", "Printout"], CellMargins->{{39, 55}, {0, 10}}, FontSize->10], Cell[StyleData["NumberedEquation", "EnhancedPrintout"], CellMargins->{{39, 55}, {0, 10}}, FontFamily->"Palatino", FontSize->10], Cell[StyleData["NumberedEquation", "EnhancedPrintoutNonGray"], CellMargins->{{39, 55}, {0, 10}}, FontFamily->"Palatino", FontSize->10] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Formulas and Programming", "Section"], Cell[CellGroupData[{ Cell[StyleData["DisplayFormula"], CellMargins->{{45, Inherited}, {7, 7}}, CellHorizontalScrolling->True, ScriptLevel->0, SingleLetterItalics->True, SpanMaxSize->Infinity, UnderoverscriptBoxOptions->{LimitsPositioning->True}], Cell[StyleData["DisplayFormula", "Printout"], FontSize->10], Cell[StyleData["DisplayFormula", "EnhancedPrintout"], FontFamily->"Palatino", FontSize->10], Cell[StyleData["DisplayFormula", "EnhancedPrintoutNonGray"], FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DisplayMath"], CellMargins->{{45, 10}, {7, 7}}, Evaluatable->False, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, DefaultFormatType->DefaultInputFormatType, AutoItalicWords->{}, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input"], Cell[StyleData["DisplayMath", "Printout"], CellMargins->{{39, 0}, {6, 6}}, FontSize->9], Cell[StyleData["DisplayMath", "EnhancedPrintout"], CellMargins->{{39, 0}, {4, 6}}, FontFamily->"WRICourier", FontSize->9], Cell[StyleData["DisplayMath", "EnhancedPrintoutNonGray"], CellMargins->{{39, 0}, {4, 6}}, FontFamily->"WRICourier", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["EquationNumber"], LineSpacing->{1.83, 0}], Cell[StyleData["EquationNumber", "Printout"], LineSpacing->{1.7, 0}, FontSize->10], Cell[StyleData["EquationNumber", "EnhancedPrintout"], LineSpacing->{1.7, 0}, FontFamily->"Palatino", FontSize->10], Cell[StyleData["EquationNumber", "EnhancedPrintoutNonGray"], LineSpacing->{1.7, 0}, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Program"], CellFrame->{{0, 0}, {0.5, 0.5}}, CellMargins->{{12, Inherited}, {7, 7}}, CellFrameMargins->{{0, 0}, {7, 5}}, FontFamily->"Courier"], Cell[StyleData["Program", "Printout"], CellMargins->{{18, 30}, {Inherited, 4}}, FontSize->9.5], Cell[StyleData["Program", "EnhancedPrintout"], CellMargins->{{18, 30}, {Inherited, 4}}, FontFamily->"WRICourier", FontSize->9.5], Cell[StyleData["Program", "EnhancedPrintoutNonGray"], CellMargins->{{18, 30}, {Inherited, 4}}, FontFamily->"WRICourier", FontSize->9.5] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Contents and Index", "Section"], Cell[CellGroupData[{ Cell[StyleData["ContentsTitle"], CellMargins->{{21, 4}, {48, 72}}, FontFamily->"Helvetica", FontSize->24, FontWeight->"Bold"], Cell[StyleData["ContentsTitle", "Printout"], CellMargins->{{12, 0}, {48, 48}}, PageBreakBelow->False, FontSize->20], Cell[StyleData["ContentsTitle", "EnhancedPrintout"], CellMargins->{{12, 0}, {48, 48}}, PageBreakBelow->False, FontFamily->"Futura", FontSize->20] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ContentsSection"], ShowGroupOpenCloseIcon->True, CellMargins->{{35, 4}, {3, 18}}, CellGroupingRules->{"SectionGrouping", 70}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold"], Cell[StyleData["ContentsSection", "Printout"], CellMargins->{{20, 0}, {3, 18}}, PageBreakBelow->False, FontSize->11], Cell[StyleData["ContentsSection", "EnhancedPrintout"], CellMargins->{{20, 0}, {3, 18}}, PageBreakBelow->False, FontFamily->"Futura", FontSize->11], Cell[StyleData["ContentsSection", "EnhancedPrintoutNonGray"], CellMargins->{{20, 0}, {3, 18}}, PageBreakBelow->False, FontFamily->"Futura", FontSize->11] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["IndexSection"], CellDingbat->"\[FilledSquare]", CellMargins->{{20, 4}, {5, 20}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold"], Cell[StyleData["IndexSection", "Printout"], CellMargins->{{12, 0}, {5, 20}}, PageBreakBelow->False, FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Contents"], ShowGroupOpenCloseIcon->False, CellMargins->{{50, 4}, {0, 5}}, CellGroupingRules->{"SectionGrouping", 90}, StyleMenuListing->None], Cell[StyleData["Contents", "Printout"], CellMargins->{{40, 4}, {0, 5}}, FontSize->11], Cell[StyleData["Contents", "EnhancedPrintout"], CellMargins->{{40, 5}, {0, 5}}, FontFamily->"Palatino", FontSize->11], Cell[StyleData["Contents", "EnhancedPrintoutNonGray"], CellMargins->{{40, 5}, {0, 5}}, FontFamily->"Palatino", FontSize->11] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Index"], CellMargins->{{21, 4}, {0, 0}}, ParagraphIndent->-48, StyleMenuListing->None], Cell[StyleData["Index", "Printout"], CellMargins->{{13, 0}, {0, 0}}, FontSize->10], Cell[StyleData["Index", "EnhancedPrintout"], CellMargins->{{13, 0}, {0, 0}}, FontFamily->"Palatino", FontSize->10], Cell[StyleData["Index", "EnhancedPrintoutNonGray"], CellMargins->{{13, 0}, {0, 0}}, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["IndexSubentry"], CellMargins->{{36, 4}, {0, 0}}, ParagraphIndent->-48, StyleMenuListing->None], Cell[StyleData["IndexSubentry", "Printout"], CellMargins->{{24, 0}, {0, 0}}, FontSize->10], Cell[StyleData["IndexSubentry", "EnhancedPrintout"], CellMargins->{{24, 0}, {0, 0}}, FontFamily->"Palatino", FontSize->10], Cell[StyleData["IndexSubentry", "EnhancedPrintoutNonGray"], CellMargins->{{24, 0}, {0, 0}}, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Index2Column"], CellMargins->{{21, 4}, {0, 8}}, ParagraphIndent->-20, TabSpacings->1, StyleMenuListing->None, GridBoxOptions->{ColumnWidths->0.5, ColumnAlignments->{Left}}], Cell[StyleData["Index2Column", "Printout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, FontSize->10], Cell[StyleData["Index2Column", "EnhancedPrintout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, FontFamily->"Palatino", FontSize->10], Cell[StyleData["Index2Column", "EnhancedPrintoutNonGray"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Leader"], StyleMenuListing->None, FontFamily->"Times", FontSize->12, FontWeight->"Plain"], Cell[StyleData["Leader", "Printout"], FontSize->10], Cell[StyleData["Leader", "EnhancedPrintout"], FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PageLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Times", FontSize->12, FontWeight->"Plain", FontSlant->"Plain", FontColor->RGBColor[0, 0, 1], ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["PageLink", "Printout"], FontSize->10, FontColor->GrayLevel[0]], Cell[StyleData["PageLink", "EnhancedPrintout"], FontSize->10, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TOCPage"], CellSize->{22, Inherited}, TextAlignment->Right, StyleMenuListing->None, FontFamily->"Times", FontSize->12, FontWeight->"Plain"], Cell[StyleData["TOCPage", "Printout"], FontSize->10], Cell[StyleData["TOCPage", "EnhancedPrintout"], FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TOCTitle"], CellMargins->{{20, 0}, {1, 8}}, CellGroupingRules->{"SectionGrouping", 70}, TabSpacings->46, CounterIncrements->"TOCTitle", CounterAssignments->{{"TOCSection", 0}}, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold"], Cell[StyleData["TOCTitle", "Printout"], CellMargins->{{12, 0}, {1, 8}}, PageBreakBelow->False, TabSpacings->47.4, FontSize->11], Cell[StyleData["TOCTitle", "EnhancedPrintout"], CellMargins->{{12, 0}, {1, 8}}, PageBreakBelow->False, TabSpacings->47.4, FontFamily->"Futura", FontSize->11] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TOCSection"], CellMargins->{{48, 0}, {1, 1}}, CellGroupingRules->{"SectionGrouping", 75}, TabSpacings->42.9, CounterIncrements->"TOCSection", CounterAssignments->{{"TOCSubsection", 0}}, FontFamily->"Helvetica", FontSize->12], Cell[StyleData["TOCSection", "Printout"], CellMargins->{{36, 0}, {1, 1}}, PageBreakBelow->False, TabSpacings->44.4, FontSize->11], Cell[StyleData["TOCSection", "EnhancedPrintout"], CellMargins->{{36, 0}, {1, 1}}, PageBreakBelow->False, TabSpacings->44.4, FontFamily->"Palatino", FontSize->11] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TOCSubsection"], CellMargins->{{76, 0}, {1, 1}}, CellGroupingRules->{"SectionGrouping", 80}, TabSpacings->39.8, CounterIncrements->"TOCSubsection", CounterAssignments->{{"TOCSubsubsection", 0}}, FontSize->12], Cell[StyleData["TOCSubsection", "Printout"], CellMargins->{{72, 0}, {1, 1}}, PageBreakBelow->False, FontSize->10], Cell[StyleData["TOCSubsection", "EnhancedPrintout"], CellMargins->{{72, 0}, {1, 1}}, PageBreakBelow->False, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TOCSubsubsection"], CellMargins->{{104, 0}, {1, 1}}, CellGroupingRules->{"SectionGrouping", 85}, TabSpacings->36.7, CounterIncrements->"TOCSubsubsection", FontSize->12], Cell[StyleData["TOCSubsubsection", "Printout"], CellMargins->{{96, 0}, {1, 1}}, PageBreakBelow->False, FontSize->9], Cell[StyleData["TOCSubsubsection", "EnhancedPrintout"], CellMargins->{{96, 0}, {1, 1}}, PageBreakBelow->False, FontFamily->"Palatino", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TOCTitleCondensed"], CellMargins->{{20, 0}, {1, 8}}, CellGroupingRules->{"SectionGrouping", 70}, TabSpacings->50.4, CounterIncrements->"TOCTitleCondensed", CounterAssignments->{{"TOCSectionCondensed", 0}, { "TOCSubsectionCondensed", 0}}, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold"], Cell[StyleData["TOCTitleCondensed", "Printout"], CellMargins->{{12, 0}, {1, 8}}, PageBreakBelow->False, FontSize->11], Cell[StyleData["TOCTitleCondensed", "EnhancedPrintout"], CellMargins->{{12, 0}, {1, 8}}, PageBreakBelow->False, FontFamily->"Futura", FontSize->11] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TOCSectionCondensed"], CellMargins->{{48, 0}, {1, 1}}, CellGroupingRules->{"SectionGrouping", 75}, TabSpacings->47.4, CounterIncrements->"TOCSectionCondensed", CounterAssignments->{{"TOCSubsection", 0}}, FontFamily->"Helvetica", FontSize->10, FontWeight->"Bold", FontColor->GrayLevel[0.2]], Cell[StyleData["TOCSectionCondensed", "Printout"], CellMargins->{{36, 0}, {1, 1}}, PageBreakBelow->False, FontSize->11], Cell[StyleData["TOCSectionCondensed", "EnhancedPrintout"], CellMargins->{{36, 0}, {1, 1}}, PageBreakBelow->False, FontFamily->"Palatino", FontSize->11] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TOCSubsectionCondensed"], PageWidth->470, CellMargins->{{76, 0}, {1, 1}}, CellGroupingRules->{"SectionGrouping", 80}, TextJustification->1, FontSize->12], Cell[StyleData["TOCSubsectionCondensed", "Printout"], CellMargins->{{72, 0}, {1, 1}}, PageBreakBelow->False, FontSize->10], Cell[StyleData["TOCSubsectionCondensed", "EnhancedPrintout"], CellMargins->{{72, 0}, {1, 1}}, PageBreakBelow->False, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TOCSubsubsectionCondensed"], CellMargins->{{104, 0}, {1, 1}}, CellGroupingRules->{"SectionGrouping", 85}, TabSpacings->39.3, CounterIncrements->"TOCSubsubsectionCondensed", FontSize->12], Cell[StyleData["TOCSubsubsectionCondensed", "Printout"], CellMargins->{{96, 0}, {1, 1}}, PageBreakBelow->False, FontSize->9], Cell[StyleData["TOCSubsubsectionCondensed", "EnhancedPrintout"], CellMargins->{{96, 0}, {1, 1}}, PageBreakBelow->False, FontFamily->"Palatino", FontSize->9] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Function List", "Section"], Cell[CellGroupData[{ Cell[StyleData["FunctionName"], CellDingbat->"\[FilledSquare]", CellMargins->{{24, 10}, {10, 12}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, FontFamily->"Courier", FontSize->14, FontWeight->"Bold", CellTags->"FunctionName"], Cell[StyleData["FunctionName", "Printout"], CellMargins->{{9, 0}, {10, 10}}, FontSize->12], Cell[StyleData["FunctionName", "EnhancedPrintout"], CellMargins->{{9, 0}, {10, 10}}, FontFamily->"Courier", FontSize->12], Cell[StyleData["FunctionName", "EnhancedPrintoutNonGray"], CellMargins->{{9, 0}, {10, 10}}, FontFamily->"Courier", FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SubsectionIcon"], ShowGroupOpenCloseIcon->True, CellMargins->{{24, 10}, {0, 30}}, CellGroupingRules->{"SectionGrouping", 50}, PageBreakBelow->False, FontSize->14, FontWeight->"Bold", CellTags->"FunctionSection"], Cell[StyleData["SubsectionIcon", "Printout"], CellMargins->{{20, 0}, {0, 20}}, FontSize->13], Cell[StyleData["SubsectionIcon", "EnhancedPrintout"], CellMargins->{{20, 0}, {0, 20}}, FontFamily->"Palatino", FontSize->10], Cell[StyleData["SubsectionIcon", "EnhancedPrintoutNonGray"], CellMargins->{{20, 0}, {0, 20}}, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["FunctionSubsection"], CellDingbat->"\[FilledSquare]", CellMargins->{{36, 10}, {0, 6}}, CellGroupingRules->{"SectionGrouping", 60}, PageBreakBelow->False, FontWeight->"Bold", CellTags->"FunctionSubsection"], Cell[StyleData["FunctionSubsection", "Printout"], CellMargins->{{30, 0}, {0, 6}}], Cell[StyleData["FunctionSubsection", "EnhancedPrintout"], CellMargins->{{30, 0}, {0, 6}}, FontFamily->"Palatino", FontSize->11], Cell[StyleData["FunctionSubsection", "EnhancedPrintoutNonGray"], CellMargins->{{30, 0}, {0, 6}}, FontFamily->"Palatino", FontSize->11] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SubsubsectionIcon"], ShowGroupOpenCloseIcon->True, CellMargins->{{36, 10}, {0, 6}}, CellGroupingRules->{"SectionGrouping", 60}, PageBreakBelow->False, FontWeight->"Bold", CellTags->"SubsubsectionIcon"], Cell[StyleData["SubsubsectionIcon", "Printout"], CellMargins->{{30, 0}, {0, 6}}, FontSize->11], Cell[StyleData["SubsubsectionIcon", "EnhancedPrintout"], CellMargins->{{30, 0}, {0, 6}}, FontFamily->"Palatino", FontSize->9], Cell[StyleData["SubsubsectionIcon", "EnhancedPrintoutNonGray"], CellMargins->{{30, 0}, {0, 6}}, FontFamily->"Palatino", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["FunctionDescription"], CellMargins->{{36, 10}, {4, 0}}, LineSpacing->{1, 3}, ParagraphSpacing->{0.7, 0}, CounterIncrements->"Text", FontWeight->"Plain"], Cell[StyleData["FunctionDescription", "Printout"], CellMargins->{{30, 0}, {4, 0}}, FontSize->11], Cell[StyleData["FunctionDescription", "EnhancedPrintout"], CellMargins->{{30, 0}, {4, 0}}, TextJustification->0, FontFamily->"Palatino", FontSize->10], Cell[StyleData["FunctionDescription", "EnhancedPrintoutNonGray"], CellMargins->{{30, 0}, {4, 0}}, TextJustification->0, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["FunctionDescriptionRuled"], CellFrame->{{0, 0}, {0.25, 0.25}}, CellMargins->{{36, 10}, {4, 0}}, LineSpacing->{1, 3}, ParagraphSpacing->{0.7, 0}, CounterIncrements->"Text"], Cell[StyleData["FunctionDescriptionRuled", "Printout"], CellMargins->{{30, 0}, {4, 0}}, FontSize->11], Cell[StyleData["FunctionDescriptionRuled", "EnhancedPrintout"], CellMargins->{{30, 0}, {4, 0}}, TextJustification->0, FontFamily->"Palatino", FontSize->10], Cell[StyleData["FunctionDescriptionRuled", "EnhancedPrintoutNonGray"], CellMargins->{{30, 0}, {4, 0}}, TextJustification->0, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["FunctionDescriptionRuleTop"], CellFrame->{{0, 0}, {0, 0.25}}, CellMargins->{{36, 10}, {4, 0}}, LineSpacing->{1, 3}, ParagraphSpacing->{0.7, 0}, CounterIncrements->"Text"], Cell[StyleData["FunctionDescriptionRuleTop", "Printout"], CellMargins->{{30, 0}, {4, 0}}, FontSize->11], Cell[StyleData["FunctionDescriptionRuleTop", "EnhancedPrintout"], CellMargins->{{30, 0}, {4, 0}}, TextJustification->0, FontFamily->"Palatino", FontSize->10], Cell[StyleData["FunctionDescriptionRuleTop", "EnhancedPrintoutNonGray"], CellMargins->{{30, 0}, {4, 0}}, TextJustification->0, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["FunctionDescriptionRuleBottom"], CellFrame->{{0, 0}, {0.25, 0}}, CellMargins->{{36, 10}, {4, 0}}, LineSpacing->{1, 3}, ParagraphSpacing->{0.7, 0}, CounterIncrements->"Text"], Cell[StyleData["FunctionDescriptionRuleBottom", "Printout"], CellMargins->{{30, 0}, {4, 0}}, FontSize->11], Cell[StyleData["FunctionDescriptionRuleBottom", "EnhancedPrintout"], CellMargins->{{30, 0}, {4, 0}}, TextJustification->0, FontFamily->"Palatino", FontSize->10], Cell[StyleData["FunctionDescriptionRuleBottom", "EnhancedPrintoutNonGray"], CellMargins->{{30, 0}, {4, 0}}, TextJustification->0, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["FunctionExample"], CellMargins->{{36, 10}, {4, 0}}, StyleMenuListing->None, FontSize->10], Cell[StyleData["FunctionExample", "Printout"], CellMargins->{{30, 0}, {4, 0}}, FontSize->9], Cell[StyleData["FunctionExample", "EnhancedPrintout"], CellMargins->{{30, 0}, {4, 0}}, FontFamily->"Palatino", FontSize->9], Cell[StyleData["FunctionExample", "EnhancedPrintoutNonGray"], CellMargins->{{30, 0}, {4, 0}}, FontFamily->"Palatino", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["FunctionTextNote"], CellMargins->{{36, 4}, {0, 4}}, LineSpacing->{1, 3}, ParagraphSpacing->{0, 4}, LineIndent->0], Cell[StyleData["FunctionTextNote", "Printout"], CellMargins->{{36, 4}, {0, 4}}, FontSize->9], Cell[StyleData["FunctionTextNote", "EnhancedPrintout"], CellMargins->{{36, 4}, {0, 4}}, FontFamily->"Palatino", FontSize->8], Cell[StyleData["FunctionTextNote", "EnhancedPrintoutNonGray"], CellMargins->{{36, 4}, {0, 4}}, FontFamily->"Palatino", FontSize->8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["3ColumnFunctionTable"], CellMargins->{{36, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->{0.28, 0.28, 0.43}, ColumnAlignments->{Left}}], Cell[StyleData["3ColumnFunctionTable", "Printout"], CellMargins->{{30, 0}, {0, 8}}, FontSize->10], Cell[StyleData["3ColumnFunctionTable", "EnhancedPrintout"], CellMargins->{{30, 0}, {0, 8}}, FontSize->10], Cell[StyleData["3ColumnFunctionTable", "EnhancedPrintoutNonGray"], CellMargins->{{30, 0}, {0, 8}}, FontSize->10] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Browser Emulation", "Section"], Cell[CellGroupData[{ Cell[StyleData["TextNormal"], CellMargins->{{12, 10}, {7, 7}}, LineSpacing->{1, 3}, CounterIncrements->"Text", FontFamily->"Times", FontSize->12], Cell[StyleData["TextNormal", "Printout"], CellMargins->{{2, 2}, {6, 6}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["BrowserEmulation"], CellMargins->{{12, 1}, {7, 24}}, CellGroupingRules->{"SectionGrouping", 70}, LineSpacing->{1, 3}, FontFamily->"Helvetica", GridBoxOptions->{ColumnWidths->0.25, ColumnAlignments->{Left}, GridFrame->True, GridFrameMargins->0.5, ColumnLines->True}], Cell[StyleData["Text", "Printout"], CellMargins->{{2, 2}, {6, 6}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CategoryDefs"], CellMargins->{{300, 10}, {7, 7}}, LineSpacing->{1, 3}, FontFamily->"Helvetica", Background->RGBColor[1, 0.8, 0.6], GridBoxOptions->{ColumnAlignments->{Left}, GridFrame->False, RowLines->True, ColumnLines->True}], Cell[StyleData["Text", "Printout"], CellMargins->{{2, 2}, {6, 6}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Category1"], ShowCellBracket->False, ShowGroupOpenCloseIcon->True, CellMargins->{{12, 10}, {7, 7}}, CellGroupingRules->{"SectionGrouping", 50}, FontSize->16, FontWeight->"Bold"], Cell[StyleData["Category1", "Printout"], CellMargins->{{2, 2}, {6, 6}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Category2"], ShowCellBracket->False, ShowGroupOpenCloseIcon->True, CellMargins->{{85, 10}, {7, 7}}, CellGroupingRules->{"SectionGrouping", 60}, FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 0.500008]], Cell[StyleData["Category2", "Printout"], CellMargins->{{2, 2}, {6, 6}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Category3"], ShowCellBracket->False, ShowGroupOpenCloseIcon->True, CellMargins->{{157, 10}, {7, 7}}, CellGroupingRules->{"SectionGrouping", 70}, FontSize->12, FontWeight->"Bold", FontColor->RGBColor[0.2, 0, 0.4]], Cell[StyleData["Category3", "Printout"], CellMargins->{{2, 2}, {6, 6}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Category4"], ShowCellBracket->False, ShowGroupOpenCloseIcon->True, CellMargins->{{230, 10}, {7, 7}}, CellGroupingRules->{"SectionGrouping", 80}, FontWeight->"Bold", FontColor->RGBColor[0, 0.300008, 0.4]], Cell[StyleData["Category4", "Printout"], CellMargins->{{2, 2}, {6, 6}}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headers and Footers", "Section"], Cell[CellGroupData[{ Cell[StyleData["Header"], CellMargins->{{0, 0}, {4, 1}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->8, FontWeight->"Bold"], Cell[StyleData["Header", "Printout"]], Cell[StyleData["Header", "EnhancedPrintout"], FontFamily->"Futura"], Cell[StyleData["Header", "EnhancedPrintoutNonGray"], FontFamily->"Futura"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Footer"], CellMargins->{{0, 0}, {0, 4}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->7, FontSlant->"Plain"], Cell[StyleData["Footer", "Printout"]], Cell[StyleData["Footer", "EnhancedPrintout"], FontFamily->"Futura"], Cell[StyleData["Footer", "EnhancedPrintoutNonGray"], FontFamily->"Futura"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PageNumber"], CellMargins->{{0, 0}, {4, 1}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->8, FontWeight->"Bold"], Cell[StyleData["PageNumber", "Printout"]], Cell[StyleData["PageNumber", "EnhancedPrintout"], FontFamily->"Futura"], Cell[StyleData["PageNumber", "EnhancedPrintoutNonGray"], FontFamily->"Futura"] }, 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->11, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["Hyperlink", "EnhancedPrintout"], FontFamily->"Palatino", FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["Hyperlink", "EnhancedPrintoutNonGray"], FontFamily->"Palatino", 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->11, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["MainBookLink", "EnhancedPrintout"], FontFamily->"Palatino", FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["MainBookLink", "EnhancedPrintoutNonGray"], FontFamily->"Palatino", FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MainBookLinkMR"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "MainBook", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["MainBookLinkMR", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["MainBookLinkMR", "EnhancedPrintout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["MainBookLinkMR", "EnhancedPrintoutNonGray"], 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->11, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["AddOnsLink", "EnhancedPrintout"], FontSize->11, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["AddOnsLink", "EnhancedPrintoutNonGray"], FontSize->11, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["AddOnsLinkText"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Times", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "AddOns", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["AddOnsLinkText", "Printout"], FontSize->11, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["AddOnsLinkText", "EnhancedPrintout"], FontSize->11, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["AddOnsLinkText", "EnhancedPrintoutNonGray"], FontSize->11, 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}], Cell[StyleData["RefGuideLink", "EnhancedPrintout"], FontFamily->"WRICourier", FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["RefGuideLink", "EnhancedPrintoutNonGray"], FontFamily->"WRICourier", 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->11, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["GettingStartedLink", "EnhancedPrintout"], FontFamily->"Palatino", FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["GettingStartedLink", "EnhancedPrintoutNonGray"], FontFamily->"Palatino", 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->11, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["OtherInformationLink", "EnhancedPrintout"], FontFamily->"Palatino", FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["OtherInformationLink", "EnhancedPrintoutNonGray"], FontFamily->"Palatino", FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Outline Styles", "Section"], Cell[CellGroupData[{ Cell[StyleData["Outline1"], CellMargins->{{12, 10}, {7, 7}}, CellGroupingRules->{"SectionGrouping", 50}, ParagraphIndent->-38, CounterIncrements->"Outline1", FontSize->18, FontWeight->"Bold", CounterBoxOptions->{ CounterFunction:>Utilities`Notation`Private`CapitalRomanNumeral}], Cell[StyleData["Outline1", "Printout"], CounterBoxOptions->{ CounterFunction:>Utilities`Notation`Private`CapitalRomanNumeral}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Outline2"], CellMargins->{{59, 10}, {7, 7}}, CellGroupingRules->{"SectionGrouping", 60}, ParagraphIndent->-27, CounterIncrements->"Outline2", FontSize->15, FontWeight->"Bold", CounterBoxOptions->{CounterFunction:>(Part[ CharacterRange[ "A", "Z"], #]&)}], Cell[StyleData["Outline2", "Printout"], CounterBoxOptions->{CounterFunction:>(Part[ CharacterRange[ "A", "Z"], #]&)}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Outline3"], CellMargins->{{108, 10}, {7, 7}}, CellGroupingRules->{"SectionGrouping", 70}, ParagraphIndent->-21, CounterIncrements->"Outline3", FontSize->12, CounterBoxOptions->{CounterFunction:>Identity}], Cell[StyleData["Outline3", "Printout"], CounterBoxOptions->{CounterFunction:>Identity}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Outline4"], CellMargins->{{158, 10}, {7, 7}}, CellGroupingRules->{"SectionGrouping", 80}, ParagraphIndent->-18, CounterIncrements->"Outline4", FontSize->10, CounterBoxOptions->{CounterFunction:>(Part[ CharacterRange[ "a", "z"], #]&)}], Cell[StyleData["Outline4", "Printout"]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["AuthorTools", "Section"], Cell[CellGroupData[{ Cell[StyleData["BilateralCell"], CellMargins->{{10, 4}, {0, 8}}, StyleMenuListing->None, FontSize->12, GridBoxOptions->{ColumnWidths->{0.33, 0.6}, RowAlignments->Top, ColumnAlignments->{Left}}], Cell[StyleData["BilateralCell", "SlideShow"], CellMargins->{{36, 24}, {4, 4}}, Background->GrayLevel[0.900008]], Cell[StyleData["BilateralCell", "Printout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, FontSize->10], Cell[StyleData["BilateralCell", "EnhancedPrintout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, FontFamily->"Palatino", FontSize->10], Cell[StyleData["BilateralCell", "EnhancedPrintoutNonGray"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["RuledPageBreak"], CellFrame->{{0, 0}, {0.25, 0}}, CellMargins->{{10, 4}, {12, 0}}, CellFrameMargins->{{0, 0}, {1, 0}}, FontSize->8], Cell[StyleData["RuledPageBreak", "SlideShow"], CellMargins->{{36, 24}, {4, 4}}], Cell[StyleData["RuledPageBreak", "Printout"], CellMargins->{{2, 2}, {6, 6}}, PageBreakBelow->True, FontSize->1], Cell[StyleData["RuledPageBreak", "EnhancedPrintout"], CellMargins->{{2, 2}, {6, 6}}, PageBreakBelow->True], Cell[StyleData["RuledPageBreak", "EnhancedPrintoutNonGray"], CellMargins->{{2, 2}, {6, 6}}, PageBreakBelow->True] }, Closed]], Cell[StyleData["PaletteHeadingButton"], StyleMenuListing->None, ButtonStyleMenuListing->None, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[1], ButtonBoxOptions->{ButtonEvaluator->None, ButtonStyle->"Paste", ButtonMargins->6, Background->GrayLevel[0]}], Cell[StyleData["PaletteButton"], StyleMenuListing->None, ButtonStyleMenuListing->None, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[1], ButtonBoxOptions->{ButtonEvaluator->"Local", ButtonMargins->6, Background->RGBColor[0.100008, 0.100008, 0.4]}], Cell[StyleData["PaletteButton2"], StyleMenuListing->None, ButtonStyleMenuListing->None, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[1], ButtonBoxOptions->{ButtonEvaluator->"Local", ButtonMargins->4, Background->RGBColor[0.100008, 0.4, 0.6]}] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Notation Package Styles", "Section", CellTags->"NotationPackage"], Cell["\<\ The cells below define certain styles needed by the Notation package. These \ styles serve to make visible otherwise invisible tagboxes.\ \>", "Text", CellTags->"NotationPackage"], Cell[StyleData["NotationTemplateStyle"], StyleMenuListing->None, Background->RGBColor[1, 1, 0.850004], TagBoxOptions->{SyntaxForm->"symbol"}, CellTags->"NotationPackage"], Cell[StyleData["NotationPatternWrapperStyle"], StyleMenuListing->None, Background->RGBColor[1, 0.900008, 0.979995], TagBoxOptions->{SyntaxForm->"symbol"}, CellTags->"NotationPackage"], Cell[StyleData["NotationMadeBoxesWrapperStyle"], 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->{ "b:2.3"->{ Cell[26308, 550, 1567, 32, 182, "Input", CellTags->"b:2.3"]} } *) (*CellTagsIndex CellTagsIndex->{ {"b:2.3", 198107, 6215} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1776, 53, 113, 3, 116, "Title"], Cell[1892, 58, 587, 12, 49, "IndentedText"], Cell[CellGroupData[{ Cell[2504, 74, 31, 0, 98, "Section"], Cell[2538, 76, 9784, 133, 1579, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[12359, 214, 133, 4, 98, "Section"], Cell[12495, 220, 4540, 63, 686, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[17072, 288, 28, 0, 98, "Section"], Cell[17103, 290, 3117, 65, 396, "Text"], Cell[20223, 357, 630, 12, 224, "Input"], Cell[20856, 371, 307, 10, 35, "Input"], Cell[21166, 383, 1206, 32, 532, "Text"], Cell[22375, 417, 415, 11, 60, "Text"], Cell[22793, 430, 94, 3, 35, "Input"], Cell[22890, 435, 378, 8, 60, "Text"], Cell[23271, 445, 87, 3, 35, "Input"], Cell[23361, 450, 190, 4, 38, "Text"], Cell[23554, 456, 106, 3, 36, "Input"], Cell[23663, 461, 2620, 85, 171, "Text"], Cell[CellGroupData[{ Cell[26308, 550, 1567, 32, 182, "Input", CellTags->"b:2.3"], Cell[27878, 584, 45008, 1292, 192, 22680, 1011, "GraphicsData", "PostScript", \ "Graphics"] }, Open ]], Cell[72901, 1879, 311, 10, 39, "Text"], Cell[73215, 1891, 224, 4, 35, "Input"], Cell[73442, 1897, 463, 9, 82, "Text"], Cell[CellGroupData[{ Cell[73930, 1910, 114, 3, 36, "Input"], Cell[74047, 1915, 143, 3, 35, "Output"] }, Open ]], Cell[74205, 1921, 512, 11, 81, "Text"], Cell[CellGroupData[{ Cell[74742, 1936, 100, 3, 35, "Input"], Cell[74845, 1941, 174, 4, 35, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[75068, 1951, 55, 0, 98, "Section"], Cell[75126, 1953, 899, 18, 156, "Text"], Cell[CellGroupData[{ Cell[76050, 1975, 102, 3, 35, "Input"], Cell[76155, 1980, 78, 2, 52, "Output"] }, Open ]], Cell[76248, 1985, 373, 12, 60, "Text"], Cell[CellGroupData[{ Cell[76646, 2001, 78, 2, 35, "Input"], Cell[76727, 2005, 159, 3, 49, "Output"] }, Open ]], Cell[76901, 2011, 69, 0, 38, "Text"], Cell[CellGroupData[{ Cell[76995, 2015, 106, 3, 35, "Input"], Cell[77104, 2020, 133, 3, 49, "Output"] }, Open ]], Cell[77252, 2026, 1097, 26, 255, "Text"], Cell[CellGroupData[{ Cell[78374, 2056, 153, 4, 35, "Input"], Cell[78530, 2062, 162, 3, 52, "Output"] }, Open ]], Cell[78707, 2068, 1104, 20, 158, "Text"], Cell[CellGroupData[{ Cell[79836, 2092, 118, 3, 35, "Input"], Cell[79957, 2097, 176, 3, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[80170, 2105, 117, 3, 35, "Input"], Cell[80290, 2110, 168, 3, 52, "Output"] }, Open ]], Cell[80473, 2116, 617, 18, 61, "Text"], Cell[CellGroupData[{ Cell[81115, 2138, 109, 3, 35, "Input"], Cell[81227, 2143, 151, 3, 52, "Output"] }, Open ]], Cell[81393, 2149, 294, 6, 59, "Text"], Cell[CellGroupData[{ Cell[81712, 2159, 159, 4, 56, "Input"], Cell[81874, 2165, 174, 3, 73, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[82097, 2174, 41, 0, 98, "Section"], Cell[82141, 2176, 278, 6, 59, "Text"], Cell[82422, 2184, 406, 10, 119, "Input"], Cell[82831, 2196, 239, 4, 59, "Text"], Cell[CellGroupData[{ Cell[83095, 2204, 132, 4, 56, "Input"], Cell[83230, 2210, 66, 2, 35, "Output"], Cell[83299, 2214, 80, 2, 35, "Output"] }, Open ]], Cell[83394, 2219, 146, 3, 38, "Text"], Cell[83543, 2224, 208, 5, 35, "Input"], Cell[83754, 2231, 187, 5, 35, "Input"], Cell[83944, 2238, 521, 11, 98, "Input"], Cell[84468, 2251, 186, 4, 38, "Text"], Cell[84657, 2257, 520, 11, 140, "Input"], Cell[85180, 2270, 375, 10, 60, "Text"], Cell[85558, 2282, 1317, 33, 140, "Input"], Cell[86878, 2317, 151, 4, 38, "Text"], Cell[87032, 2323, 198, 5, 77, "Input"], Cell[87233, 2330, 198, 5, 77, "Input"], Cell[87434, 2337, 198, 5, 77, "Input"], Cell[87635, 2344, 203, 5, 77, "Input"], Cell[87841, 2351, 664, 12, 161, "Input"], Cell[88508, 2365, 981, 21, 125, "Text"], Cell[89492, 2388, 238, 6, 39, "Text"], Cell[89733, 2396, 755, 15, 161, "Input"], Cell[90491, 2413, 121, 5, 39, "Text"], Cell[90615, 2420, 756, 15, 161, "Input"], Cell[91374, 2437, 149, 4, 38, "Text"], Cell[CellGroupData[{ Cell[91548, 2445, 127, 3, 35, "Input"], Cell[91678, 2450, 143, 3, 35, "Output"] }, Open ]], Cell[91836, 2456, 650, 16, 82, "Text"], Cell[CellGroupData[{ Cell[92511, 2476, 347, 9, 35, "Input"], Cell[92861, 2487, 77, 2, 35, "Output"] }, Open ]], Cell[92953, 2492, 204, 5, 38, "Text"], Cell[CellGroupData[{ Cell[93182, 2501, 283, 8, 35, "Input"], Cell[93468, 2511, 77, 2, 35, "Output"] }, Open ]], Cell[93560, 2516, 1138, 17, 164, "Text"], Cell[94701, 2535, 1087, 22, 161, "Input"], Cell[95791, 2559, 185, 5, 39, "Text"], Cell[CellGroupData[{ Cell[96001, 2568, 344, 9, 35, "Input"], Cell[96348, 2579, 77, 2, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[96462, 2586, 280, 8, 35, "Input"], Cell[96745, 2596, 77, 2, 35, "Output"] }, Open ]], Cell[96837, 2601, 1003, 21, 161, "Input"], Cell[97843, 2624, 400, 7, 60, "Text"], Cell[98246, 2633, 808, 15, 161, "Input"], Cell[99057, 2650, 183, 4, 38, "Text"], Cell[99243, 2656, 1623, 28, 266, "Input"], Cell[100869, 2686, 123, 2, 38, "Text"], Cell[100995, 2690, 754, 16, 161, "Input"], Cell[101752, 2708, 1107, 29, 203, "Text"], Cell[102862, 2739, 437, 10, 77, "Input"], Cell[103302, 2751, 147, 3, 38, "Text"], Cell[103452, 2756, 1071, 25, 161, "Input"], Cell[104526, 2783, 202, 5, 38, "Text"], Cell[104731, 2790, 437, 10, 77, "Input"], Cell[105171, 2802, 35, 0, 38, "Text"], Cell[105209, 2804, 1071, 25, 161, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[106317, 2834, 29, 0, 98, "Section"], Cell[106349, 2836, 66, 0, 38, "Text"], Cell[106418, 2838, 515, 12, 69, "ItemizedText"], Cell[106936, 2852, 477, 12, 48, "ItemizedText"], Cell[107416, 2866, 468, 12, 48, "ItemizedText"] }, Open ]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)