(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 157934, 3372] NotebookOptionsPosition[ 151155, 3262] NotebookOutlinePosition[ 151595, 3279] CellTagsIndexPosition[ 151552, 3276] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["\<\ This Mathematica notebook shows examples of how I make (most) graphs for the \ Intermediate Microeconomics class. If you have never used Mathematica, read at least these first: https://www.wolfram.com/language/fast-introduction-for-math-students/en/\ entering-input https://www.wolfram.com/language/fast-introduction-for-math-students/en/\ notebook-documents \ \>", "Text", CellChangeTimes->{{3.872825236719105*^9, 3.8728252665586176`*^9}, { 3.8728253037959547`*^9, 3.8728254884510593`*^9}, {3.8728263888662004`*^9, 3.87282639696239*^9}},ExpressionUUID->"179aed23-25f8-4e2d-809f-\ c8f5110a10cd"], Cell["\<\ Aalto students can install Mathematica by following the instructions here https://download.aalto.fi A free version is also available for everyone with a Raspberry Pi \ https://en.wikipedia.org/wiki/Raspberry_Pi \ \>", "Text", CellChangeTimes->{{3.87282607340895*^9, 3.8728261142597017`*^9}, { 3.87282614947171*^9, 3.8728261505170746`*^9}, {3.872826238507683*^9, 3.872826270908047*^9}, {3.872826333958333*^9, 3.8728263367396927`*^9}, { 3.872826380700965*^9, 3.8728264032710247`*^9}, {3.8728279323512373`*^9, 3.8728279420578127`*^9}},ExpressionUUID->"d79adcc4-0951-47b6-8c0e-\ d3a85d4c5129"], Cell["Marko Tervi\[ODoubleDot] 2022-09-23", "Text", CellChangeTimes->{{3.8728290287598944`*^9, 3.8728290752804756`*^9}},ExpressionUUID->"db39fc0d-2a85-4224-899a-\ ea6c9d8f5754"], Cell[CellGroupData[{ Cell["Example: Making graphs for PS 2.3", "Subsection", CellChangeTimes->{{3.872762060811226*^9, 3.872762072550612*^9}, 3.87276226639566*^9, {3.872823674972947*^9, 3.8728236864919987`*^9}, { 3.8728254453553815`*^9, 3.8728254455113544`*^9}, {3.8728255569672537`*^9, 3.872825561425738*^9}, {3.872827158039962*^9, 3.8728271692732573`*^9}},ExpressionUUID->"78bf84e0-f34e-40f1-bf9b-\ f26c46566698"], Cell["\<\ Recall problem 2.3 (Northland Transport). Let\[CloseCurlyQuote]s turn the assumptions of that problem into definitions.\ \>", "Text", CellChangeTimes->{{3.8727621434979424`*^9, 3.872762197390807*^9}, 3.8728235455993395`*^9, 3.872823621779043*^9, {3.872825567976515*^9, 3.872825573240431*^9}, {3.872827963968339*^9, 3.8728279896921887`*^9}},ExpressionUUID->"382246be-8fcb-4a44-bee2-\ 64bb5b5737e8"], Cell[BoxData[{ RowBox[{ RowBox[{"fc", "=", "7200"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"mc", "=", "20"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"semicolon", " ", "suppresses", " ", "output"}], ",", " ", RowBox[{"but", " ", "is", " ", "not", " ", "required"}]}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TC", "[", "q_", "]"}], ":=", RowBox[{"fc", "+", RowBox[{"mc", " ", "q"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pd", "[", "q_", "]"}], ":=", RowBox[{"200", "-", "q"}]}]}], "Input", CellChangeTimes->{{3.872762199737031*^9, 3.8727622291046705`*^9}, { 3.872823112095394*^9, 3.872823125418682*^9}, {3.872828801440894*^9, 3.872828869166326*^9}, {3.8728297763144817`*^9, 3.8728297884550533`*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"f2decf6e-125d-46e2-84dd-a24e3a207efe"], Cell["Take a derivative of revenue to get marginal revenue ", "Text", CellChangeTimes->{{3.872762327813348*^9, 3.8727623593755093`*^9}, 3.872823780335037*^9, {3.8728242535736876`*^9, 3.8728242660248747`*^9}},ExpressionUUID->"23857732-8f78-4842-b0b4-\ 34e3e95dbac0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MR", "[", "q_", "]"}], "=", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Pd", "[", "q", "]"}], "q"}], ",", "q"}], "]"}]}]], "Input", CellChangeTimes->{{3.8727622855814853`*^9, 3.872762319889802*^9}, { 3.8727623617171807`*^9, 3.872762374122941*^9}, 3.8728237763416963`*^9}, CellLabel->"In[13]:=",ExpressionUUID->"b252bdb9-db47-47ed-b15a-e8f173cedf9e"], Cell[BoxData[ RowBox[{"200", "-", RowBox[{"2", " ", "q"}]}]], "Output", CellChangeTimes->{3.8728335696396284`*^9, 3.872833606308199*^9, 3.9064466528577137`*^9}, CellLabel->"Out[13]=",ExpressionUUID->"f79daac1-dec3-4e51-b253-dd9c214c47df"] }, Open ]], Cell["Profit-maximization must satisfy MR=MC", "Text", CellChangeTimes->{{3.8728236585457582`*^9, 3.8728236616244783`*^9}, { 3.872823790057185*^9, 3.8728237906196985`*^9}, {3.872824272093216*^9, 3.872824277177844*^9}, {3.8728280156381564`*^9, 3.872828020207486*^9}, { 3.8728302701848717`*^9, 3.872830326074075*^9}},ExpressionUUID->"0c0372f9-e134-4656-9284-\ 997e3074475b"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"MR", "[", "q", "]"}], "==", "mc"}], ",", "q"}], "]"}], "\[IndentingNewLine]", RowBox[{"qM", "=", RowBox[{"q", "/.", RowBox[{"%", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"pM", "=", RowBox[{"Pd", "[", "qM", "]"}]}]}], "Input", CellChangeTimes->{{3.8727623791345067`*^9, 3.8727623894451666`*^9}, { 3.8727625149266706`*^9, 3.8727625353764815`*^9}, 3.8727633018952847`*^9, { 3.8728237851039505`*^9, 3.8728237854786673`*^9}, {3.872828026116166*^9, 3.872828026502448*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"ae319014-052d-4366-8b43-3af49fce56f6"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"q", "\[Rule]", "90"}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.872762389726464*^9, {3.872762517613849*^9, 3.8727625361261597`*^9}, 3.8727633024105425`*^9, {3.872823121525695*^9, 3.8728231283817863`*^9}, 3.872823792663166*^9, 3.8728242790054193`*^9, {3.8728249813758373`*^9, 3.8728250085438614`*^9}, 3.8728277525694633`*^9, 3.8728280535088444`*^9, 3.872833607432008*^9, 3.90644665399284*^9}, CellLabel->"Out[14]=",ExpressionUUID->"73dfe6de-e558-4aea-90da-ee1dd8299d8c"], Cell[BoxData["90"], "Output", CellChangeTimes->{ 3.872762389726464*^9, {3.872762517613849*^9, 3.8727625361261597`*^9}, 3.8727633024105425`*^9, {3.872823121525695*^9, 3.8728231283817863`*^9}, 3.872823792663166*^9, 3.8728242790054193`*^9, {3.8728249813758373`*^9, 3.8728250085438614`*^9}, 3.8728277525694633`*^9, 3.8728280535088444`*^9, 3.872833607432008*^9, 3.90644665399284*^9}, CellLabel->"Out[15]=",ExpressionUUID->"99a7d61a-cdf4-4764-8ca6-89f92fa73645"], Cell[BoxData["110"], "Output", CellChangeTimes->{ 3.872762389726464*^9, {3.872762517613849*^9, 3.8727625361261597`*^9}, 3.8727633024105425`*^9, {3.872823121525695*^9, 3.8728231283817863`*^9}, 3.872823792663166*^9, 3.8728242790054193`*^9, {3.8728249813758373`*^9, 3.8728250085438614`*^9}, 3.8728277525694633`*^9, 3.8728280535088444`*^9, 3.872833607432008*^9, 3.90644665399284*^9}, CellLabel->"Out[16]=",ExpressionUUID->"59e236f7-b8de-44bb-9504-830ba0f75a5c"] }, Open ]], Cell[TextData[{ StyleBox["Solve", FontSlant->"Italic"], " gives a list of solutions, even when there is just one. Solutions are \ \[OpenCurlyDoubleQuote]rules\[CloseCurlyDoubleQuote] like q\[Rule]90. Notice \ that double equality == defines an equation that may be solved, whereas a \ single equality = would assign a value for the symbol on the left hand side \ (as I did earlier with mc=20)" }], "Text", CellChangeTimes->{{3.87276243636187*^9, 3.872762479987544*^9}, { 3.872826640193591*^9, 3.8728266605851955`*^9}, {3.872828644063322*^9, 3.872828761115117*^9}, {3.8728291675535817`*^9, 3.8728291681160955`*^9}, { 3.9036695285014377`*^9, 3.9036695508913374`*^9}},ExpressionUUID->"59c29036-3105-4ed2-82ec-\ c12e68ef3d72"], Cell[TextData[{ "% refers to previous output\n[[1]] refers to first element of a list\n", StyleBox["q", FontSlant->"Italic"], "/.(rule) extracts the value of ", StyleBox["q", FontSlant->"Italic"], " as defined by the (rule)" }], "Text", CellChangeTimes->{{3.8727624162428246`*^9, 3.8727624271850443`*^9}, { 3.8727624820313363`*^9, 3.8727625078048124`*^9}, {3.872762606760173*^9, 3.872762692281274*^9}, {3.872826711957924*^9, 3.8728267396228485`*^9}},ExpressionUUID->"dff51707-2792-4290-8927-\ 44c0aa18ad5c"], Cell["Calculate maximized profits and resulting CS", "Text", CellChangeTimes->{{3.8728244513547134`*^9, 3.8728244629919877`*^9}},ExpressionUUID->"2296675f-f6bb-4126-b540-\ 5b390eb14fef"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"pM", " ", "qM"}], " ", "-", RowBox[{"TC", "[", "qM", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Pd", "[", "0", "]"}], "-", "pM"}], ")"}], RowBox[{"qM", "/", "2"}]}]}], "Input", CellChangeTimes->{{3.872762684901849*^9, 3.8727627505838127`*^9}, { 3.872763306145141*^9, 3.872763324066676*^9}, {3.872828023189509*^9, 3.8728280237895317`*^9}, 3.8728294668155994`*^9}, CellLabel->"In[17]:=",ExpressionUUID->"cc694f68-fdf5-4561-8b57-e9a868f142f2"], Cell[BoxData["900"], "Output", CellChangeTimes->{{3.8727626898921556`*^9, 3.8727627146321917`*^9}, 3.8727627508337774`*^9, 3.872763324566352*^9, 3.872823129621919*^9, 3.872823795007007*^9, 3.8728242805610614`*^9, 3.872825009785103*^9, 3.872827754609816*^9, 3.8728280561662397`*^9, 3.8728336089798317`*^9, 3.9064466554884634`*^9}, CellLabel->"Out[17]=",ExpressionUUID->"01ec2961-159b-4c21-b2b2-626a3eaf2239"], Cell[BoxData["4050"], "Output", CellChangeTimes->{{3.8727626898921556`*^9, 3.8727627146321917`*^9}, 3.8727627508337774`*^9, 3.872763324566352*^9, 3.872823129621919*^9, 3.872823795007007*^9, 3.8728242805610614`*^9, 3.872825009785103*^9, 3.872827754609816*^9, 3.8728280561662397`*^9, 3.8728336089798317`*^9, 3.9064466554884634`*^9}, CellLabel->"Out[18]=",ExpressionUUID->"ea42e705-3b87-4aa1-8fb0-b2ed48eaf144"] }, Open ]], Cell["More generally, CS is defined as", "Text", CellChangeTimes->{{3.8728268228872995`*^9, 3.872826858786087*^9}, 3.872827880231986*^9},ExpressionUUID->"651558b8-c0d1-4d58-a780-\ 1b412191e6f9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"Pd", "[", "q", "]"}], "-", "pM"}], ",", RowBox[{"{", RowBox[{"q", ",", "0", ",", "qM"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.872826787654708*^9, 3.8728268078272147`*^9}, { 3.872826841872566*^9, 3.872826843458438*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"21be6403-5634-4589-9907-b2a712e1bbba"], Cell[BoxData["4050"], "Output", CellChangeTimes->{3.872826809168764*^9, 3.8728268619571424`*^9, 3.87282775600177*^9, 3.872828058221467*^9, 3.8728336103727307`*^9, 3.9064466572313757`*^9}, CellLabel->"Out[19]=",ExpressionUUID->"ded0b89c-3dad-4173-9f8b-1c9b7248754c"] }, Open ]], Cell["Let' s graph Marginal Cost, Demand, and Marginal Revenue", "Text", CellChangeTimes->{{3.872763064141282*^9, 3.872763085220072*^9}, { 3.8728271181256785`*^9, 3.872827125116975*^9}},ExpressionUUID->"479f29a9-45ae-4da6-91f2-\ 15edce2945f9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"mc", ",", RowBox[{"Pd", "[", "q", "]"}], ",", RowBox[{"MR", "[", "q", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "0", ",", "200"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{ 3.87276305662582*^9, {3.8728237989773293`*^9, 3.8728237992806945`*^9}}, CellLabel->"In[31]:=",ExpressionUUID->"654589ac-7f5c-43f5-b7d1-4a4fc1c7a235"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQrdT/d/E8uYt2DGBg4nBq4u3CF+n/7WF8r73sfs/S +R1g/LO8ZpwssQpwvlO/64Hl/hpwfqr+L15DXgM431cz9aOYuwmcv+lKbelJ Cws431pIaz1LvQ2cn/570tylEQ5wfv6x58brfZ3g/K4oNtW/OS5wfvLx6jTD DDc4/yC7ZGB2pAecbyjYMO1liRecn/DZVscvxwfOXzjvqMz3Xj84f3Of1e1L QQFwfsku24C5PoFw/v5TSz91RgfB+ZnulnszI4Lh/DkrDLdmZ4XA+RM/720s KA+F85+tKi3LKAqD84+4TZrR1BQO5zP633rU3xAB5zM4bmNcUBkJ53eIf/e9 1B4F5xdEJR/63hwN5z9sNEmxnxoD54tMnnmrc2EsnL9MQKvy+Ow4RHgVybuq r46H8+cpLJCxDUmA8/fW/GLIuIDgK3qz/1EOT4Tzt5zX7L55BcHvOfbPQCE2 Cc6fXPwyK+EOgl8jKsevFJkM56/UZD1V8gDBZ/vCKHkwLgXOX26wsW7ecwRf M2mV39/cVDj/tufOTaGvEfxLi6t07YvT4PwfmwNtlD4h+P93FG1ty0uH870N 3FxrviL4x2P1M7OLM+B8K/aADVt3IvjrNhR8//8fwQcAUGvQDw== "]]}, Annotation[#, "Charting`Private`Tag$7790#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJw11G00lAkUB/DRaUZvQmrbHCKtoq01c1Jrwz7/5kQSYqJhxsuY18dEJhG2 SaJVomiSlJeyedtqE6nQYqYNpTdGa3flyLQlVkdKLZGxTx/2wz33/M6999xv /2XCaI5kBo1G86bqc7fJmrpQtLTj+ytXFWPT0yRuzrK3iiIriWijbxJn60lo Eq6U2JFNBEs+NLHgE4kW5m4Zg3xM1CyX6m3HSdzN1Hp8kD0j6nP5dK8REvc2 pNa9lr0hmpXuZnl9JNpOPN09IJsmejwsHJgaEp4Nhj79MmPM1bVKBSkkHhqt nz0zxBrLz0U2OUzIwM5yU5dvs8O88slU+j4ZJA4TRiwjJszq0Rukl8LbXvL2 i82O6OJ1LrOMl6L6yf64e05OkLv5dvSPS+C8YFXlzAMuqGswl1spJJBNqgpL A4EVG/PzugbFiG55tbbSmw3xfMbanEgxjvIYtlORmxAa0XhD/UIEUes+KYt0 x8r54WWjEhE0hkv8dgZ5wKSx7uvSQSFYpsm5g7GeqJkMO9ssFEIw6rraJ9IL dqkjsa9fhKO4qNli7JgPAvMeOaUEh+Pa8Q1PtRxflNUKVbldAsTWu/oWevmh xUbHrQoSoKmt9F06n4ON63hGe0vCELH5u4aIwO04XdvCzi0PRUEF6/pOuT/E 3EeeOadCcGK04aAiPgDR89hJWUeC0X8xbi8ZswPmAUfTTx/j4467Ki8lhQuX uijZ/v08GGzrfp6VHIjpq7aWigNBoG28YXA+kepNW/RhaYE4snjMW3uYh4SB WdVrErhQ8ES3x1L5yC4tcJ2l3AHdQUcxcSoYVkn389XyACw8eaY7vTgEryOl tntD/VFmsiqxNT8UvDe/pzmJt0MTY+W28lIYiGN99X/6c1Bkfd7C1V+AO41N LT9y/dCgnKCR7QKkMebqHcJ8sWyr4afl3HAoO58bKy74oOaxfcZfT8LB1AR2 nrnshcwWPdM6RIj2lzNdDmR44uSeQbmgR4gaFs8/6bgHlIuWGtsEiWBy8fBv 8fnu+Nme3hbbJ0Jw0NAfq5M2gfHeYIkmVIwBh/H8yUNslDOrkopeiSF2daan hQP2wos+U1ES1A5fProo2wVPt9RVBwxJYFe1Ts4pdYL2wg9riD1SKHSrchhS R4xf83OxeScFBDGWw7uYmK6NuZ62SwYTxZOKnMX22Mp0d1N+kMF3suCSc4U1 WkMcInbuIWG9eWG3SmWKBSLyVmEcCXXhqMrDyxShZLFRezwJvNdu1dNN8W+M WbWjknLxiYaIRBN8dWRsYuoQCdqYJfugej6Sq5sys3MpC8zae/hzsMHQ9+r1 OhLJLP3QSZUB0ualzxi4Rbn315BpugE6TG/7mzdS/zL2PZYn0kBaOH5Muk3d P3grSVXridOsL9ke96l9x1ejvfwJ4j2/r7O7h5oztMa5qrcEwpesMHr2+d+2 0cjEESJDykkgdJTjzvxyWD1M2Oy+Y1HyknLvcee/+f8QfmkVkqhhypWJ3LMq HVGQobt5jsoF2t0Bl2x1LzGQbT5H+44ys7dtiN9NJOdnXlk/Rpl2r/8nVQfx 4HwzLeIj5Xbl4Cd+G7G4TM/Jn6RcIqPXqDSE8NK3pQ+nKI+UsLtUVcT/uUVF WcnnHPsP7p0zKQ== "]]}, Annotation[#, "Charting`Private`Tag$7790#2"]& ], TagBox[ {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwtlHs01HkYxkerpgspWWF1oQva2sauCsm8WSGNyQySyzD3+RKrQdKShhwr bMhuaYsd5VY2lVbWlrwkbReZsHajPS4baetIE43bZH+d0x/vec95z/t8nvf9 57EQRnEls2g0mhdVH7pltvZ84fLHzsGCvuGZGQI1c21WRJLLzB6zYLXhNIGG +Mpia1LPFHZ0jq0ZJ9DMkMvmkFYmcX84vWuEwB9ZbR5jsh5mzIaa+fm9BO45 Hq19JXvNzJjIWstoIHA/t1s+JJth1ubah/BTCHjW0dmDMgMwbsxuQV0CLfqb 5+nyVoKb85Ok0FEpuGTvwLLd1mDC1tAXvJOAZOOkvq0+A6xik29emxaDl43k jbG7HVyqLv3acVgEVR2HD9yzt4eODOW5ljdC2Gq47rLuESeQJ2zqcO4VgGzq REHJXgBWymbbS+18iGp+/tVlLxfIdTB56F0VChmBc9ZoI1whrmSia1YeD0R3 E6S2xA0K7FNPPzoVBA10U86+AA9gjg9W/lAaALaLFSdfxHpC6/CRMONMf+C/ 3baeHcECpV5j+9U8PygqvGOu+Z4NoQLHf+dG+8C1447dbVxv+Kk/Y2dgIAdi f9/mXcDiAMN4Xn1GCxvq75eojwVxQfdPsunvXE8Ic3eoC9vrA8H9ZgsCCt3g bLlt9b5wX8jhOXzO2UPd/bYuef9BP4gXLVInuDrB4MUDcSR6D6jKuaybEXbQ 5HYiPyXFHzCvO67zLyvQ2d3Vn63YC8iM2El/agC07dd1lIcCgAY5kTSyENOX arzavgsERby8Z/Vha9wfKGrUHA0CRbvZklsr7LAv2U7M/DEY5hoUW0xdcEKj vNNdx4p44M2ShluluWDponWH7p4JgXyX8mfLotywIXrFDquKUNB9cNio4BdP LFypNN/my4cRXZ2BoSI21iVO0oiKD6PqF58ot3PQYhd9epW/AFLXLxvJDvbB X1ttMp90CEDlXLZe6uOHWc3vGSt5QmCYTd1WxPpjXsyLcP5TIbAelVQkywMw 8dPlBpYBIhjxi3dKFwfhBZvZ92N7RVBcamTdnszDOaM6pg0hYjBR0cW6CaFY xriaVPhcDGyBUOvUykcb4UW2NlIC3CbfgsluAXbvrK3yeymB63nRkopOIbad /3YDM0YKxe5jgUmDIhy/xnGyVEthRHY+3vWZGGd+i65O+0YG7+UD4fr/SHAX w21H4pgMTvKzMsb/k+Jd3sawfTEEjt8IaesclKGhiNwoOEBgdbMqbutLGYaQ In3VQQI3VS6fKV/L8F30kiq7RAKvBtaKw8ZluDpdM6lNJeCx6PXY1DyCiqr6 rJyTBGiSI6YWGwg60r2vVNcSiF2o5FM+mKZ3bNbQDQJ6poazKS4+Xtzoa3aL wLlVqRcoLhJzu4mkRgIqe6KmuHjK1sTF4wGBL0SMVIqLo0G97V1PCQzVYBnF RRCYrtXvIaBo/JJFcTBTyo1n9hEwbikeoThoKW8yLx4g4Nqf7kBxkJNWLokc pvz0OA8oDp7N7Kv5mcoJ+6W3oygdDuWYzW9TU/4Wm4woHSrOZFVu1lD/bDHl UTp8qLxDC5sgkL89U4faw6Wl77lnpqj7WNoSag+FFVtKWrQEmvZEeVJzrLyy X/Mhtz7mF/4P2ptNdw== "]]}, Annotation[#, "Charting`Private`Tag$7790#3"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, BaseStyle->Directive[FontFamily -> "Palatino Linotype", FontSize -> 16], DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, LabelStyle->Directive[FontFamily -> "Palatino Linotype", FontSize -> 16], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 200}, {-199.9999918367347, 199.99999591836735`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.8727630572661347`*^9, 3.8728231318747873`*^9, 3.872823799561639*^9, 3.872824282459878*^9, 3.872825014083688*^9, 3.8728277574288435`*^9, 3.8728280594990015`*^9, 3.872833612195721*^9, 3.9064466812524195`*^9}, CellLabel->"Out[31]=",ExpressionUUID->"bcf18591-39ff-4169-b715-fa624be23fc8"] }, Open ]], Cell["Let' s add some options to get a better graph", "Text", CellChangeTimes->{{3.8727630891628838`*^9, 3.872763106342646*^9}, { 3.8728244955163574`*^9, 3.872824501750268*^9}, 3.8728268779332466`*^9},ExpressionUUID->"6c0fefb6-cce7-49c7-9453-\ a9f38d72bd0a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"figureBasic", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"mc", ",", RowBox[{"Pd", "[", "q", "]"}], ",", RowBox[{"MR", "[", "q", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"q", ",", "0", ",", "200"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Red", ",", RowBox[{"{", RowBox[{"Red", ",", "Dashed"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<\!\(\*SuperscriptBox[\(P\), \(d\)]\)\>\"", ",", "\"\\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"All", ",", RowBox[{"{", RowBox[{"0", ",", "All"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.872762770058504*^9, 3.872762821943617*^9}, { 3.8728238028992577`*^9, 3.8728238039152503`*^9}}, CellLabel->"In[32]:=",ExpressionUUID->"77c5c6c8-9df3-46f8-92f1-6305acd0c51d"], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, 0, 1]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQrdT/d/E8uYt2DGBg4nBq4u3CF+n/7WF8r73sfs/S +R1g/LO8ZpwssQpwvlO/64Hl/hpwfqr+L15DXgM431cz9aOYuwmcv+lKbelJ Cws431pIaz1LvQ2cn/570tylEQ5wfv6x58brfZ3g/K4oNtW/OS5wfvLx6jTD DDc4/yC7ZGB2pAecbyjYMO1liRecn/DZVscvxwfOXzjvqMz3Xj84f3Of1e1L QQFwfsku24C5PoFw/v5TSz91RgfB+ZnulnszI4Lh/DkrDLdmZ4XA+RM/720s KA+F85+tKi3LKAqD84+4TZrR1BQO5zP633rU3xAB5zM4bmNcUBkJ53eIf/e9 1B4F5xdEJR/63hwN5z9sNEmxnxoD54tMnnmrc2EsnL9MQKvy+Ow4RHgVybuq r46H8+cpLJCxDUmA8/fW/GLIuIDgK3qz/1EOT4Tzt5zX7L55BcHvOfbPQCE2 Cc6fXPwyK+EOgl8jKsevFJkM56/UZD1V8gDBZ/vCKHkwLgXOX26wsW7ecwRf M2mV39/cVDj/tufOTaGvEfxLi6t07YvT4PwfmwNtlD4h+P93FG1ty0uH870N 3FxrviL4x2P1M7OLM+B8K/aADVt3IvjrNhR8//8fwQcAUGvQDw== "]]}, Annotation[#, "Charting`Private`Tag$7840#1"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], LineBox[CompressedData[" 1:eJw11G00lAkUB/DRaUZvQmrbHCKtoq01c1Jrwz7/5kQSYqJhxsuY18dEJhG2 SaJVomiSlJeyedtqE6nQYqYNpTdGa3flyLQlVkdKLZGxTx/2wz33/M6999xv /2XCaI5kBo1G86bqc7fJmrpQtLTj+ytXFWPT0yRuzrK3iiIriWijbxJn60lo Eq6U2JFNBEs+NLHgE4kW5m4Zg3xM1CyX6m3HSdzN1Hp8kD0j6nP5dK8REvc2 pNa9lr0hmpXuZnl9JNpOPN09IJsmejwsHJgaEp4Nhj79MmPM1bVKBSkkHhqt nz0zxBrLz0U2OUzIwM5yU5dvs8O88slU+j4ZJA4TRiwjJszq0Rukl8LbXvL2 i82O6OJ1LrOMl6L6yf64e05OkLv5dvSPS+C8YFXlzAMuqGswl1spJJBNqgpL A4EVG/PzugbFiG55tbbSmw3xfMbanEgxjvIYtlORmxAa0XhD/UIEUes+KYt0 x8r54WWjEhE0hkv8dgZ5wKSx7uvSQSFYpsm5g7GeqJkMO9ssFEIw6rraJ9IL dqkjsa9fhKO4qNli7JgPAvMeOaUEh+Pa8Q1PtRxflNUKVbldAsTWu/oWevmh xUbHrQoSoKmt9F06n4ON63hGe0vCELH5u4aIwO04XdvCzi0PRUEF6/pOuT/E 3EeeOadCcGK04aAiPgDR89hJWUeC0X8xbi8ZswPmAUfTTx/j4467Ki8lhQuX uijZ/v08GGzrfp6VHIjpq7aWigNBoG28YXA+kepNW/RhaYE4snjMW3uYh4SB WdVrErhQ8ES3x1L5yC4tcJ2l3AHdQUcxcSoYVkn389XyACw8eaY7vTgEryOl tntD/VFmsiqxNT8UvDe/pzmJt0MTY+W28lIYiGN99X/6c1Bkfd7C1V+AO41N LT9y/dCgnKCR7QKkMebqHcJ8sWyr4afl3HAoO58bKy74oOaxfcZfT8LB1AR2 nrnshcwWPdM6RIj2lzNdDmR44uSeQbmgR4gaFs8/6bgHlIuWGtsEiWBy8fBv 8fnu+Nme3hbbJ0Jw0NAfq5M2gfHeYIkmVIwBh/H8yUNslDOrkopeiSF2daan hQP2wos+U1ES1A5fProo2wVPt9RVBwxJYFe1Ts4pdYL2wg9riD1SKHSrchhS R4xf83OxeScFBDGWw7uYmK6NuZ62SwYTxZOKnMX22Mp0d1N+kMF3suCSc4U1 WkMcInbuIWG9eWG3SmWKBSLyVmEcCXXhqMrDyxShZLFRezwJvNdu1dNN8W+M WbWjknLxiYaIRBN8dWRsYuoQCdqYJfugej6Sq5sys3MpC8zae/hzsMHQ9+r1 OhLJLP3QSZUB0ualzxi4Rbn315BpugE6TG/7mzdS/zL2PZYn0kBaOH5Muk3d P3grSVXridOsL9ke96l9x1ejvfwJ4j2/r7O7h5oztMa5qrcEwpesMHr2+d+2 0cjEESJDykkgdJTjzvxyWD1M2Oy+Y1HyknLvcee/+f8QfmkVkqhhypWJ3LMq HVGQobt5jsoF2t0Bl2x1LzGQbT5H+44ys7dtiN9NJOdnXlk/Rpl2r/8nVQfx 4HwzLeIj5Xbl4Cd+G7G4TM/Jn6RcIqPXqDSE8NK3pQ+nKI+UsLtUVcT/uUVF WcnnHPsP7p0zKQ== "]]}, Annotation[#, "Charting`Private`Tag$7840#2"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]], LineBox[CompressedData[" 1:eJwBEQLu/SFib1JlAgAAACAAAAACAAAAIo/9o54e0T5cYeHu//9oQLcIKR9t aK8/3xpc8hL8aEDBeK6kKGi/P2LU1vUl+GhAxjBxZwZozz9oR8z8S/BoQMiM 0kj1Z98/cy23CpjgaEDJOoO57GfvP4r5jCYwwWhAypHbcehn/z+5kTheYIJo QEq9B07mZw9AFsKPzcAEaEDNDTYJBF0gQEY+2X5f9GZAQo9FwKdPKEAYTvcH C/ZlQGUv+g0xDTBAJ3SBvLP8ZEBNKWXxFkc0QK21pkM67mNAstR9dck4OEDU iqCizfFiQDsSKq8EfzxAcXs11D7gYUBn+5KdpVhAQEyCNjGt02BAb8bnM69N QkCRORjMULJfQIpaBiX9bERAdqX52gKTXUBjx3tmMWhGQJ04hJnOl1tAwQcZ UWtZSEA/+OaulKZZQDERgJbpdEpAz+5/aRaLV0Bg8z0sTmxMQKAMwtOxk1VA oZ7FHPeNTkBfYTrjCHJTQLOOOtvSUlBAmuKKSVpaUUB0uj1QnUxRQDAWCb+K zU5Av8ql8olbUkAE1Wg12JFKQGlHOb1pWFNAXOIaC1meRkCcqDG1a2pUQJBd OStRVkJAkfO9gXB3VUB4YxDye0Q8QOaqdXZoclZA0KhSTLxsNEDERpKYgoJX QMCT23bW1ydAAU/a4o+AWEDAP2xJB9wPQAAAAAAAAFlAAAAAAAAAAADVs+Pv "]]}, Annotation[#, "Charting`Private`Tag$7840#3"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox["\"Q\"", TraditionalForm], FormBox["\"P\"", TraditionalForm]}, AxesOrigin -> {0, 0}, BaseStyle -> Directive[FontFamily -> "Palatino Linotype", FontSize -> 16], DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], LabelStyle -> Directive[FontFamily -> "Palatino Linotype", FontSize -> 16], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {All, {0, All}}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}], FormBox[ FormBox[ TemplateBox[{ "\"MC\"", "\"\\!\\(\\*SuperscriptBox[\\(P\\), \\(d\\)]\\)\"", "\"MR\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Palatino Linotype", FontSize -> 16, Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, 0, 1]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Palatino Linotype", FontSize -> 16, Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Palatino Linotype", FontSize -> 16, Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Palatino Linotype", FontSize -> 16, Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Palatino Linotype", FontSize -> 16, Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Palatino Linotype", FontSize -> 16, Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { Directive[FontFamily -> "Palatino Linotype", FontSize -> 16], FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Palatino Linotype\""}], ",", RowBox[{"FontSize", "\[Rule]", "16"}], ",", RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0, 0, 1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Palatino Linotype\""}], ",", RowBox[{"FontSize", "\[Rule]", "16"}], ",", RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0, 0], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Palatino Linotype\""}], ",", RowBox[{"FontSize", "\[Rule]", "16"}], ",", RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0, 0], Editable -> False, Selectable -> False], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Palatino Linotype\""}], ",", RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.8727627865033827`*^9, 3.8727627940411882`*^9}, 3.872762824902898*^9, 3.872823134640062*^9, 3.8728238042430596`*^9, 3.87282428372748*^9, 3.8728250155093727`*^9, 3.87282776102497*^9, 3.8728280610357113`*^9, 3.872833614095131*^9, 3.906446683428708*^9}, CellLabel->"Out[32]=",ExpressionUUID->"40868ab9-9121-4803-aebf-5d1837ab2684"] }, Open ]], Cell[TextData[{ StyleBox["Plot", FontSlant->"Italic"], " command has many options. Mathematica\[CloseCurlyQuote]s official \ documentation is very good and often has great examples, see here\n\ https://reference.wolfram.com/language/ref/Plot.html" }], "Text", CellChangeTimes->{{3.872762840994528*^9, 3.8727628957801332`*^9}, { 3.872762989257315*^9, 3.872763021186739*^9}, {3.872824316368765*^9, 3.8728243186113043`*^9}, {3.8728245211683865`*^9, 3.8728245266822033`*^9}, { 3.8728298720688057`*^9, 3.872829872817588*^9}},ExpressionUUID->"99db8cb6-9bdf-436a-a17d-\ af81b78d4051"], Cell["\<\ or access the documentation from a command line by preceding the command with \ ?\ \>", "Text", CellChangeTimes->{{3.8727629426256948`*^9, 3.8727629580561256`*^9}, { 3.8727630234147563`*^9, 3.8727630279826183`*^9}, {3.8728243410198407`*^9, 3.8728243418443727`*^9}, {3.8728245323088813`*^9, 3.872824554408905*^9}},ExpressionUUID->"ab7452e0-7e59-495b-8f96-\ 00c4a22bffd5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Plot"}]], "Input", CellChangeTimes->{{3.872762936441165*^9, 3.872762939113066*^9}}, CellLabel->"In[33]:=",ExpressionUUID->"c61095e3-74b1-4202-a7c9-5db8a25c28eb"], Cell[BoxData[ InterpretationBox[ StyleBox[ FrameBox[ DynamicModuleBox[{System`InformationDump`open$$ = False, System`InformationDump`mouseOver$$ = False}, PaneSelectorBox[{True-> TagBox[GridBox[{ { ItemBox[ PaneBox[ StyleBox["\<\" Symbol\"\>", "InformationTitleText", StripOnInput->False, BaseStyle -> None], FrameMargins->{{4, 0}, {-1, 1}}], BaseStyle->"InformationTitleBackground", StripOnInput->False], ItemBox[ PaneBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "InformationHelpIcon"]], True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "InformationHelpIconHot"]]}, Dynamic[ CurrentValue["MouseOver"]]], Appearance->None, BaseStyle->"Link", ButtonData->"paclet:ref/Plot", ButtonNote->"paclet:ref/Plot"], "\"paclet:ref/Plot\""], FrameMargins->{{0, 4}, {0, 2}}], BaseStyle->"InformationTitleBackground", StripOnInput->False]}, { ItemBox[ PaneBox[ StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Plot\\\", \\\"[\\\", \ RowBox[{StyleBox[\\\"f\\\", \\\"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", \ RowBox[{StyleBox[\\\"x\\\", \\\"TI\\\"], \\\",\\\", \ SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"min\\\", \ \\\"TI\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \ StyleBox[\\\"max\\\", \\\"TI\\\"]]}], \\\"}\\\"}]}], \\\"]\\\"}]\\) generates \ a plot of \\!\\(\\*StyleBox[\\\"f\\\", \\\"TI\\\"]\\) as a function of \\!\\(\ \\*StyleBox[\\\"x\\\", \\\"TI\\\"]\\) from \ \\!\\(\\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"min\\\", \ \\\"TI\\\"]]\\) to \\!\\(\\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \ StyleBox[\\\"max\\\", \\\"TI\\\"]]\\). \\n\\!\\(\\*RowBox[{\\\"Plot\\\", \ \\\"[\\\", RowBox[{RowBox[{\\\"{\\\", \ RowBox[{SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], \ StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\ \"TR\\\"]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ RowBox[{StyleBox[\\\"x\\\", \\\"TI\\\"], \\\",\\\", \ SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"min\\\", \ \\\"TI\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \ StyleBox[\\\"max\\\", \\\"TI\\\"]]}], \\\"}\\\"}]}], \\\"]\\\"}]\\) plots \ several functions \\!\\(\\*SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], \ StyleBox[\\\"i\\\", \\\"TI\\\"]]\\). \\n\\!\\(\\*RowBox[{\\\"Plot\\\", \ \\\"[\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{StyleBox[\\\"\[Ellipsis]\\\", \ \\\"TR\\\"], \\\",\\\", RowBox[{StyleBox[\\\"w\\\", \\\"TI\\\"], \\\"[\\\", \ SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], StyleBox[\\\"i\\\", \ \\\"TI\\\"]], \\\"]\\\"}], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \ \\\"TR\\\"]}], \\\"}\\\"}], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\ \"]}], \\\"]\\\"}]\\) plots \\!\\(\\*SubscriptBox[StyleBox[\\\"f\\\", \ \\\"TI\\\"], StyleBox[\\\"i\\\", \\\"TI\\\"]]\\) with features defined by the \ symbolic wrapper \\!\\(\\*StyleBox[\\\"w\\\", \ \\\"TI\\\"]\\).\\n\\!\\(\\*RowBox[{\\\"Plot\\\", \\\"[\\\", RowBox[{StyleBox[\ \\\"\[Ellipsis]\\\", \\\"TR\\\"], \\\",\\\", RowBox[{RowBox[{\\\"{\\\", \ StyleBox[\\\"x\\\", \\\"TI\\\"], \\\"}\\\"}], \\\"\[Element]\\\", StyleBox[\\\ \"reg\\\", \\\"TI\\\"]}]}], \\\"]\\\"}]\\) takes the variable \ \\!\\(\\*StyleBox[\\\"x\\\", \\\"TI\\\"]\\) to be in the geometric region \\!\ \\(\\*StyleBox[\\\"reg\\\", \\\"TI\\\"]\\).\"\>", "InformationUsageText", StripOnInput->False, LineSpacing->{1.5, 1.5, 3.}], FrameMargins->{{10, 10}, {8, 10}}], BaseStyle->"InformationUsageSubtitleBackground", StripOnInput->False], ItemBox["\<\"\"\>", BaseStyle->"InformationUsageSubtitleBackground", StripOnInput->False]}, { PaneBox[GridBox[{ { DynamicModuleBox[{System`InformationDump`open$$ = { False, False, False, False, False, False, False, False, False, False, False, False}}, StyleBox[GridBox[{ { TagBox[ TooltipBox[ StyleBox["\<\" Documentation\"\>", "InformationRowLabel", StripOnInput->False], "\"Documentation\"", TooltipStyle->"TextStyling"], Annotation[#, "Documentation", "Tooltip"]& ], TemplateBox[{ TemplateBox[{ "\"Local \[RightGuillemet]\"", "paclet:ref/Plot", "paclet:ref/Plot", "Link", { RGBColor[0.9686274509803922, 0.4666666666666667, 0.]}, BaseStyle -> { RGBColor[0.0784313725490196, 0.1568627450980392, 0.6]}}, "HyperlinkTemplate"], "\" \"", StyleBox[ "\"|\"", "InformationRowLabel", StripOnInput -> False], "\" \"", TemplateBox[{"\"Web \[RightGuillemet]\"", { URL[ "http://reference.wolfram.com/language/ref/Plot.html"], None}, "http://reference.wolfram.com/language/ref/Plot.\ html", "Hyperlink", { RGBColor[0.9686274509803922, 0.4666666666666667, 0.]}, BaseStyle -> { RGBColor[0.0784313725490196, 0.1568627450980392, 0.6]}}, "HyperlinkTemplate"]}, "RowDefault"]}, { PaneSelectorBox[{True-> ButtonBox[ PaneSelectorBox[{False-> TemplateBox[{"\[ThickSpace]", "\"\[ThickSpace]\"", StyleBox[ "\"Options\"", "InformationRowLabel", StripOnInput -> False], DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "DownPointerOpener"]]}, "RowWithSeparators"], True-> TemplateBox[{"\[ThickSpace]", "\"\[ThickSpace]\"", StyleBox[ "\"Options\"", "InformationRowLabel", StripOnInput -> False], DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "DownPointerOpenerHot"]]}, "RowWithSeparators"]}, Dynamic[ CurrentValue["MouseOver"]], FrameMargins->0, ImageSize->Automatic], Appearance->None, BaseStyle->None, ButtonFunction:>(Part[System`InformationDump`open$$, 9] = False), Evaluator->Automatic, FrameMargins->0, ImageMargins->0, Method->"Preemptive"], False-> ButtonBox[ PaneSelectorBox[{False-> TemplateBox[{"\[ThickSpace]", "\"\[ThickSpace]\"", StyleBox[ "\"Options\"", "InformationRowLabel", StripOnInput -> False], DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "RightPointerOpener"]]}, "RowWithSeparators"], True-> TemplateBox[{"\[ThickSpace]", "\"\[ThickSpace]\"", StyleBox[ "\"Options\"", "InformationRowLabel", StripOnInput -> False], DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "RightPointerOpenerHot"]]}, "RowWithSeparators"]}, Dynamic[ CurrentValue["MouseOver"]], FrameMargins->0, ImageSize->Automatic], Appearance->None, BaseStyle->None, ButtonFunction:>(Part[System`InformationDump`open$$, 9] = True), Evaluator->Automatic, FrameMargins->0, ImageMargins->0, Method->"Preemptive"]}, Dynamic[ FEPrivate`Part[System`InformationDump`open$$, 9]]], PaneSelectorBox[{True->GridBox[{ { RowBox[{"AlignmentPoint", "\[Rule]", "Center"}]}, { RowBox[{"AspectRatio", "\[Rule]", FractionBox["1", "GoldenRatio"]}]}, { RowBox[{"Axes", "\[Rule]", "True"}]}, { RowBox[{"AxesLabel", "\[Rule]", "None"}]}, { RowBox[{"AxesOrigin", "\[Rule]", "Automatic"}]}, { RowBox[{"AxesStyle", "\[Rule]", RowBox[{"{", "}"}]}]}, { RowBox[{"Background", "\[Rule]", "None"}]}, { RowBox[{"BaselinePosition", "\[Rule]", "Automatic"}]}, { RowBox[{"BaseStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{ "FontFamily", "\[Rule]", "\<\"Palatino Linotype\"\>"}], ",", RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}]}]}, { RowBox[{"ClippingStyle", "\[Rule]", "None"}]}, { RowBox[{"ColorFunction", "\[Rule]", "Automatic"}]}, { RowBox[{"ColorFunctionScaling", "\[Rule]", "True"}]}, { RowBox[{"ColorOutput", "\[Rule]", "Automatic"}]}, { RowBox[{"ContentSelectable", "\[Rule]", "Automatic"}]}, { RowBox[{ "CoordinatesToolOptions", "\[Rule]", "Automatic"}]}, { RowBox[{ "DisplayFunction", "\[RuleDelayed]", "$DisplayFunction"}]}, { RowBox[{"Epilog", "\[Rule]", RowBox[{"{", "}"}]}]}, { RowBox[{"Evaluated", "\[Rule]", "Automatic"}]}, { RowBox[{"EvaluationMonitor", "\[Rule]", "None"}]}, { RowBox[{"Exclusions", "\[Rule]", "Automatic"}]}, { RowBox[{"ExclusionsStyle", "\[Rule]", "None"}]}, { RowBox[{"Filling", "\[Rule]", "None"}]}, { RowBox[{"FillingStyle", "\[Rule]", "Automatic"}]}, { RowBox[{ "FormatType", "\[RuleDelayed]", "TraditionalForm"}]}, { RowBox[{"Frame", "\[Rule]", "False"}]}, { RowBox[{"FrameLabel", "\[Rule]", "None"}]}, { RowBox[{"FrameStyle", "\[Rule]", RowBox[{"{", "}"}]}]}, { RowBox[{"FrameTicks", "\[Rule]", "Automatic"}]}, { RowBox[{"FrameTicksStyle", "\[Rule]", RowBox[{"{", "}"}]}]}, { RowBox[{"GridLines", "\[Rule]", "None"}]}, { RowBox[{"GridLinesStyle", "\[Rule]", RowBox[{"{", "}"}]}]}, { RowBox[{"ImageMargins", "\[Rule]", "0.`"}]}, { RowBox[{"ImagePadding", "\[Rule]", "All"}]}, { RowBox[{"ImageSize", "\[Rule]", "Automatic"}]}, { RowBox[{"ImageSizeRaw", "\[Rule]", "Automatic"}]}, { RowBox[{"LabelingSize", "\[Rule]", "Automatic"}]}, { RowBox[{"LabelStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{ "FontFamily", "\[Rule]", "\<\"Palatino Linotype\"\>"}], ",", RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}]}]}, { RowBox[{"MaxRecursion", "\[Rule]", "Automatic"}]}, { RowBox[{"Mesh", "\[Rule]", "None"}]}, { RowBox[{"MeshFunctions", "\[Rule]", RowBox[{"{", RowBox[{"#1", "&"}], "}"}]}]}, { RowBox[{"MeshShading", "\[Rule]", "None"}]}, { RowBox[{"MeshStyle", "\[Rule]", "Automatic"}]}, { RowBox[{"Method", "\[Rule]", "Automatic"}]}, { RowBox[{ "PerformanceGoal", "\[RuleDelayed]", "$PerformanceGoal"}]}, { RowBox[{"PlotLabel", "\[Rule]", "None"}]}, { RowBox[{"PlotLabels", "\[Rule]", "None"}]}, { RowBox[{"PlotLegends", "\[Rule]", "None"}]}, { RowBox[{"PlotPoints", "\[Rule]", "Automatic"}]}, { RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"Full", ",", "Automatic"}], "}"}]}]}, { RowBox[{"PlotRangeClipping", "\[Rule]", "True"}]}, { RowBox[{"PlotRangePadding", "\[Rule]", "Automatic"}]}, { RowBox[{"PlotRegion", "\[Rule]", "Automatic"}]}, { RowBox[{"PlotStyle", "\[Rule]", "Automatic"}]}, { RowBox[{"PlotTheme", "\[RuleDelayed]", "$PlotTheme"}]}, { RowBox[{"PreserveImageOptions", "\[Rule]", "Automatic"}]}, { RowBox[{"Prolog", "\[Rule]", RowBox[{"{", "}"}]}]}, { RowBox[{"RegionFunction", "\[Rule]", RowBox[{"(", RowBox[{"True", "&"}], ")"}]}]}, { RowBox[{"RotateLabel", "\[Rule]", "True"}]}, { RowBox[{"ScalingFunctions", "\[Rule]", "None"}]}, { RowBox[{"TargetUnits", "\[Rule]", "Automatic"}]}, { RowBox[{"Ticks", "\[Rule]", "Automatic"}]}, { RowBox[{"TicksStyle", "\[Rule]", RowBox[{"{", "}"}]}]}, { RowBox[{ "WorkingPrecision", "\[Rule]", "MachinePrecision"}]}, { StyleBox[ TemplateBox[{ "\"(\"", "\"\[InvisibleSpace]\"", "63", "\" total)\""}, "RowDefault"], "InformationRowOpener", StripOnInput->False]} }, BaselinePosition->{Baseline, {1, 1}}, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{1.}}}], False-> RowBox[{ RowBox[{"AlignmentPoint", "\[Rule]", "Center"}], "\[ThinSpace]", StyleBox["\<\"\[Ellipsis]\"\>", "InformationRowOpener", StripOnInput->False], "\[ThinSpace]", StyleBox[ TemplateBox[{ "\"(\"", "\"\[InvisibleSpace]\"", "63", "\" total)\""}, "RowDefault"], "InformationRowOpener", StripOnInput->False]}]}, Dynamic[ FEPrivate`Part[System`InformationDump`open$$, 9]], BaselinePosition->Baseline, ImageSize->Automatic]}, { TagBox[ TooltipBox[ StyleBox["\<\" Attributes\"\>", "InformationRowLabel", StripOnInput->False], "\"Attributes\"", TooltipStyle->"TextStyling"], Annotation[#, "Attributes", "Tooltip"]& ], RowBox[{"{", RowBox[{ "HoldAll", ",", "Protected", ",", "ReadProtected"}], "}"}]}, { TagBox[ TooltipBox[ StyleBox["\<\" Full Name\"\>", "InformationRowLabel", StripOnInput->False], "\"FullName\"", TooltipStyle->"TextStyling"], Annotation[#, "FullName", "Tooltip"]& ], "\<\"System`Plot\"\>"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {Right, Left}}, GridBoxDividers->None, GridBoxItemSize->{"Columns" -> {Automatic, Automatic}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.8]}, Offset[0.2]}}], "DialogStyle", StripOnInput->False], DynamicModuleValues:>{}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[3.6]}, Offset[0.2]}}], FrameMargins->6], ""}, { ItemBox[ TagBox[ ButtonBox[ PaneSelectorBox[{False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "UpPointerOpener"]], True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[ System`InformationDump`mouseOver$$]], Alignment->Left, Appearance->{"Default" -> None}, ButtonFunction:>FEPrivate`Set[ System`InformationDump`open$$, False], Evaluator->Automatic, FrameMargins->{{9, 0}, {0, 0}}, ImageMargins->0, ImageSize->Full, Method->"Preemptive"], EventHandlerTag[{ "MouseEntered" :> FEPrivate`Set[System`InformationDump`mouseOver$$, True], "MouseExited" :> FEPrivate`Set[System`InformationDump`mouseOver$$, False], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], BaseStyle->"InformationTitleBackground", StripOnInput->False], "\[SpanFromLeft]"} }, AutoDelete->False, FrameStyle->Directive[ GrayLevel[0.8], Thickness[Tiny]], GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}}, GridBoxDividers->{ "Columns" -> {{None}}, "Rows" -> {False, {True}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], False-> TagBox[GridBox[{ { ItemBox[ PaneBox[ StyleBox["\<\" Symbol\"\>", "InformationTitleText", StripOnInput->False], FrameMargins->{{4, 0}, {-1, 1}}], BaseStyle->"InformationTitleBackground", StripOnInput->False], ItemBox[ PaneBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "InformationHelpIcon"], ImageSizeCache->{16., {5., 11.}}], True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "InformationHelpIconHot"], ImageSizeCache->{16., {5., 11.}}]}, Dynamic[ CurrentValue["MouseOver"]]], Appearance->None, BaseStyle->"Link", ButtonData->"paclet:ref/Plot", ButtonNote->"paclet:ref/Plot"], "\"paclet:ref/Plot\""], FrameMargins->{{0, 4}, {0, 2}}], BaseStyle->"InformationTitleBackground", StripOnInput->False]}, { ItemBox[ PaneBox[ StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Plot\\\", \\\"[\\\", \ RowBox[{StyleBox[\\\"f\\\", \\\"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", \ RowBox[{StyleBox[\\\"x\\\", \\\"TI\\\"], \\\",\\\", \ SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"min\\\", \ \\\"TI\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \ StyleBox[\\\"max\\\", \\\"TI\\\"]]}], \\\"}\\\"}]}], \\\"]\\\"}]\\) generates \ a plot of \\!\\(\\*StyleBox[\\\"f\\\", \\\"TI\\\"]\\) as a function of \\!\\(\ \\*StyleBox[\\\"x\\\", \\\"TI\\\"]\\) from \ \\!\\(\\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"min\\\", \ \\\"TI\\\"]]\\) to \\!\\(\\*SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \ StyleBox[\\\"max\\\", \\\"TI\\\"]]\\). \\n\\!\\(\\*RowBox[{\\\"Plot\\\", \ \\\"[\\\", RowBox[{RowBox[{\\\"{\\\", \ RowBox[{SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], \ StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\ \"TR\\\"]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \ RowBox[{StyleBox[\\\"x\\\", \\\"TI\\\"], \\\",\\\", \ SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"min\\\", \ \\\"TI\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \ StyleBox[\\\"max\\\", \\\"TI\\\"]]}], \\\"}\\\"}]}], \\\"]\\\"}]\\) plots \ several functions \\!\\(\\*SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], \ StyleBox[\\\"i\\\", \\\"TI\\\"]]\\). \\n\\!\\(\\*RowBox[{\\\"Plot\\\", \ \\\"[\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{StyleBox[\\\"\[Ellipsis]\\\", \ \\\"TR\\\"], \\\",\\\", RowBox[{StyleBox[\\\"w\\\", \\\"TI\\\"], \\\"[\\\", \ SubscriptBox[StyleBox[\\\"f\\\", \\\"TI\\\"], StyleBox[\\\"i\\\", \ \\\"TI\\\"]], \\\"]\\\"}], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \ \\\"TR\\\"]}], \\\"}\\\"}], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\ \"]}], \\\"]\\\"}]\\) plots \\!\\(\\*SubscriptBox[StyleBox[\\\"f\\\", \ \\\"TI\\\"], StyleBox[\\\"i\\\", \\\"TI\\\"]]\\) with features defined by the \ symbolic wrapper \\!\\(\\*StyleBox[\\\"w\\\", \ \\\"TI\\\"]\\).\\n\\!\\(\\*RowBox[{\\\"Plot\\\", \\\"[\\\", RowBox[{StyleBox[\ \\\"\[Ellipsis]\\\", \\\"TR\\\"], \\\",\\\", RowBox[{RowBox[{\\\"{\\\", \ StyleBox[\\\"x\\\", \\\"TI\\\"], \\\"}\\\"}], \\\"\[Element]\\\", StyleBox[\\\ \"reg\\\", \\\"TI\\\"]}]}], \\\"]\\\"}]\\) takes the variable \ \\!\\(\\*StyleBox[\\\"x\\\", \\\"TI\\\"]\\) to be in the geometric region \\!\ \\(\\*StyleBox[\\\"reg\\\", \\\"TI\\\"]\\).\"\>", "InformationUsageText", StripOnInput->False, LineSpacing->{1.5, 1.5, 3.}], FrameMargins->{{10, 10}, {8, 10}}], BaseStyle->"InformationUsageSubtitleBackground", StripOnInput->False], ItemBox["\<\"\"\>", BaseStyle->"InformationUsageSubtitleBackground", StripOnInput->False]}, { ItemBox[ TagBox[ ButtonBox[ PaneSelectorBox[{False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "DownPointerOpener"], ImageSizeCache->{13., {3., 10.}}], True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "DownPointerOpenerHot"], ImageSizeCache->{13., {3., 10.}}]}, Dynamic[ System`InformationDump`mouseOver$$]], Alignment->Left, Appearance->{"Default" -> None}, ButtonFunction:>FEPrivate`Set[ System`InformationDump`open$$, True], Evaluator->Automatic, FrameMargins->{{9, 0}, {0, 0}}, ImageMargins->0, ImageSize->Full, Method->"Preemptive"], EventHandlerTag[{ "MouseEntered" :> FEPrivate`Set[System`InformationDump`mouseOver$$, True], "MouseExited" :> FEPrivate`Set[System`InformationDump`mouseOver$$, False], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], BaseStyle->"InformationTitleBackground", StripOnInput->False], "\[SpanFromLeft]"} }, AutoDelete->False, FrameStyle->Directive[ GrayLevel[0.8], Thickness[Tiny]], GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}}, GridBoxDividers->{ "Columns" -> {{None}}, "Rows" -> {False, {True}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]}, Dynamic[System`InformationDump`open$$], BaselinePosition->Baseline, FrameMargins->0, ImageSize->Automatic], DynamicModuleValues:>{}], BaseStyle->"InformationGridFrame", StripOnInput->False], "InformationGridPlain", StripOnInput->False], InformationData[ Association[ "ObjectType" -> "Symbol", "Usage" -> "\!\(\*RowBox[{\"Plot\", \"[\", RowBox[{StyleBox[\"f\", \"TI\"], \",\", \ RowBox[{\"{\", RowBox[{StyleBox[\"x\", \"TI\"], \",\", SubscriptBox[StyleBox[\ \"x\", \"TI\"], StyleBox[\"min\", \"TI\"]], \",\", \ SubscriptBox[StyleBox[\"x\", \"TI\"], StyleBox[\"max\", \"TI\"]]}], \ \"}\"}]}], \"]\"}]\) generates a plot of \!\(\*StyleBox[\"f\", \"TI\"]\) as a \ function of \!\(\*StyleBox[\"x\", \"TI\"]\) from \!\(\*SubscriptBox[StyleBox[\ \"x\", \"TI\"], StyleBox[\"min\", \"TI\"]]\) to \ \!\(\*SubscriptBox[StyleBox[\"x\", \"TI\"], StyleBox[\"max\", \"TI\"]]\). \n\ \!\(\*RowBox[{\"Plot\", \"[\", RowBox[{RowBox[{\"{\", \ RowBox[{SubscriptBox[StyleBox[\"f\", \"TI\"], StyleBox[\"1\", \"TR\"]], \ \",\", SubscriptBox[StyleBox[\"f\", \"TI\"], StyleBox[\"2\", \"TR\"]], \",\", \ StyleBox[\"\[Ellipsis]\", \"TR\"]}], \"}\"}], \",\", RowBox[{\"{\", \ RowBox[{StyleBox[\"x\", \"TI\"], \",\", SubscriptBox[StyleBox[\"x\", \"TI\"], \ StyleBox[\"min\", \"TI\"]], \",\", SubscriptBox[StyleBox[\"x\", \"TI\"], \ StyleBox[\"max\", \"TI\"]]}], \"}\"}]}], \"]\"}]\) plots several functions \!\ \(\*SubscriptBox[StyleBox[\"f\", \"TI\"], StyleBox[\"i\", \"TI\"]]\). \n\ \!\(\*RowBox[{\"Plot\", \"[\", RowBox[{RowBox[{\"{\", RowBox[{StyleBox[\"\ \[Ellipsis]\", \"TR\"], \",\", RowBox[{StyleBox[\"w\", \"TI\"], \"[\", \ SubscriptBox[StyleBox[\"f\", \"TI\"], StyleBox[\"i\", \"TI\"]], \"]\"}], \ \",\", StyleBox[\"\[Ellipsis]\", \"TR\"]}], \"}\"}], \",\", StyleBox[\"\ \[Ellipsis]\", \"TR\"]}], \"]\"}]\) plots \!\(\*SubscriptBox[StyleBox[\"f\", \ \"TI\"], StyleBox[\"i\", \"TI\"]]\) with features defined by the symbolic \ wrapper \!\(\*StyleBox[\"w\", \"TI\"]\).\n\!\(\*RowBox[{\"Plot\", \"[\", \ RowBox[{StyleBox[\"\[Ellipsis]\", \"TR\"], \",\", RowBox[{RowBox[{\"{\", \ StyleBox[\"x\", \"TI\"], \"}\"}], \"\[Element]\", StyleBox[\"reg\", \ \"TI\"]}]}], \"]\"}]\) takes the variable \!\(\*StyleBox[\"x\", \"TI\"]\) to \ be in the geometric region \!\(\*StyleBox[\"reg\", \"TI\"]\).", "Documentation" -> Association[ "Local" -> "paclet:ref/Plot", "Web" -> "http://reference.wolfram.com/language/ref/Plot.html"], "OwnValues" -> None, "UpValues" -> None, "DownValues" -> None, "SubValues" -> None, "DefaultValues" -> None, "NValues" -> None, "FormatValues" -> None, "Options" -> { AlignmentPoint -> Center, AspectRatio -> GoldenRatio^(-1), Axes -> True, AxesLabel -> None, AxesOrigin -> Automatic, AxesStyle -> {}, Background -> None, BaselinePosition -> Automatic, BaseStyle -> Directive[FontFamily -> "Palatino Linotype", FontSize -> 16], ClippingStyle -> None, ColorFunction -> Automatic, ColorFunctionScaling -> True, ColorOutput -> Automatic, ContentSelectable -> Automatic, CoordinatesToolOptions -> Automatic, DisplayFunction :> $DisplayFunction, Epilog -> {}, Evaluated -> Automatic, EvaluationMonitor -> None, Exclusions -> Automatic, ExclusionsStyle -> None, Filling -> None, FillingStyle -> Automatic, FormatType :> TraditionalForm, Frame -> False, FrameLabel -> None, FrameStyle -> {}, FrameTicks -> Automatic, FrameTicksStyle -> {}, GridLines -> None, GridLinesStyle -> {}, ImageMargins -> 0., ImagePadding -> All, ImageSize -> Automatic, ImageSizeRaw -> Automatic, LabelingSize -> Automatic, LabelStyle -> Directive[FontFamily -> "Palatino Linotype", FontSize -> 16], MaxRecursion -> Automatic, Mesh -> None, MeshFunctions -> {#& }, MeshShading -> None, MeshStyle -> Automatic, Method -> Automatic, PerformanceGoal :> $PerformanceGoal, PlotLabel -> None, PlotLabels -> None, PlotLegends -> None, PlotPoints -> Automatic, PlotRange -> {Full, Automatic}, PlotRangeClipping -> True, PlotRangePadding -> Automatic, PlotRegion -> Automatic, PlotStyle -> Automatic, PlotTheme :> $PlotTheme, PreserveImageOptions -> Automatic, Prolog -> {}, RegionFunction -> (True& ), RotateLabel -> True, ScalingFunctions -> None, TargetUnits -> Automatic, Ticks -> Automatic, TicksStyle -> {}, WorkingPrecision -> MachinePrecision}, "Attributes" -> {HoldAll, Protected, ReadProtected}, "FullName" -> "System`Plot"], False]]], "Output", CellChangeTimes->{3.872762939503683*^9, 3.8728243500376806`*^9, 3.8728277641176124`*^9, 3.8728280629309597`*^9, 3.8728336203080654`*^9, 3.9064466862227464`*^9}, CellLabel->"Out[33]=",ExpressionUUID->"855455b0-68de-4e05-b179-44a56cd95c56"] }, Open ]], Cell["Let' s define some regions to highlight in the graph", "Text", CellChangeTimes->{{3.8728243579684544`*^9, 3.8728243748177114`*^9}, { 3.8728269157537313`*^9, 3.872826916644658*^9}},ExpressionUUID->"186071c0-e21f-4cba-b5ef-\ b58559bf43d7"], Cell[BoxData[{ RowBox[{ RowBox[{"csArea", "=", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"Pd", "[", "0", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Pd", "[", "qM", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"qM", ",", RowBox[{"Pd", "[", "qM", "]"}]}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"psArea", "=", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"Pd", "[", "qM", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"qM", ",", "mc"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.8727638239249477`*^9, 3.8727638527420235`*^9}, { 3.872820908904952*^9, 3.872820910510436*^9}, {3.872822815809005*^9, 3.8728228350939054`*^9}}, CellLabel->"In[34]:=",ExpressionUUID->"445918f4-be91-4adc-a32a-09c061f4ed03"], Cell["and also add some lines and text:", "Text", CellChangeTimes->{{3.8728269359294567`*^9, 3.8728269514202857`*^9}, 3.8728284918122644`*^9},ExpressionUUID->"fadf5293-d93e-4a66-9233-\ 6e3dacb4adb6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"figAreas", "=", RowBox[{"Graphics", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".3", "]"}], ",", "Red", ",", "csArea", ",", "Blue", ",", "psArea"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Gray", ",", "Dashed", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"qM", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"qM", ",", RowBox[{"Pd", "[", "qM", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Pd", "[", "qM", "]"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{ RowBox[{"0.5", "qM"}], ",", RowBox[{ RowBox[{"0.2", RowBox[{"Pd", "[", "0", "]"}]}], "+", RowBox[{"0.8", RowBox[{"Pd", "[", "qM", "]"}]}]}]}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{ RowBox[{"0.5", "qM"}], ",", RowBox[{"0.5", RowBox[{"(", RowBox[{ RowBox[{"Pd", "[", "qM", "]"}], "+", "mc"}], ")"}]}]}], "}"}]}], "]"}]}], "}"}]}], "}"}], "\[IndentingNewLine]", "]"}], " "}]], "Input", CellChangeTimes->{{3.8727632285181403`*^9, 3.872763271954831*^9}, { 3.8727634183372035`*^9, 3.8727634220181713`*^9}, {3.8728228555652275`*^9, 3.872822864438277*^9}, 3.8728229363603697`*^9, {3.8728229900108643`*^9, 3.872823041108481*^9}, {3.8728274927602*^9, 3.8728275226516895`*^9}, 3.8728294581648817`*^9}, CellLabel->"In[36]:=",ExpressionUUID->"5138363a-0fd6-458a-8149-54b323ab5712"], Cell[BoxData[ GraphicsBox[{ {RGBColor[1, 0, 0], Opacity[0.3], PolygonBox[{{0, 200}, {0, 110}, {90, 110}}], {RGBColor[0, 0, 1], RectangleBox[{0, 110}, {90, 20}]}}, {GrayLevel[0.5], Dashing[{Small, Small}], LineBox[{{90, 0}, {90, 110}, {0, 110}}]}, {GrayLevel[0], InsetBox["\<\"CS\"\>", {45., 128.}], InsetBox["\<\"Profits+FC\"\>", {45., 65.}]}}]], "Output", CellChangeTimes->{{3.872763258232567*^9, 3.872763272584279*^9}, 3.87276334848391*^9, 3.8727634225803547`*^9, {3.8728229676259484`*^9, 3.8728229913699474`*^9}, {3.872823024520725*^9, 3.8728230422143593`*^9}, 3.8728231519269886`*^9, 3.872823807817912*^9, 3.8728243815597453`*^9, 3.872825019033845*^9, {3.8728274955590773`*^9, 3.8728275238652916`*^9}, 3.8728277669621325`*^9, 3.8728280653507934`*^9, 3.8728294606510887`*^9, 3.872833622744378*^9, 3.90644668833926*^9}, CellLabel->"Out[36]=",ExpressionUUID->"d22e3082-def3-4806-a081-cf4dd7a00067"] }, Open ]], Cell[TextData[{ "Inside the ", StyleBox["Graphics ", FontSlant->"Italic"], "command curly brackets { } delineate the scope for attributes like color \ and opacity." }], "Text", CellChangeTimes->{{3.8728273663923216`*^9, 3.8728273995424013`*^9}, { 3.872827460603238*^9, 3.872827484721175*^9}, {3.872828283243523*^9, 3.872828304657686*^9}, 3.8728294876502695`*^9},ExpressionUUID->"9412855e-ab93-4856-91f6-\ c1cfffb21a12"], Cell[TextData[{ StyleBox["Show", FontSlant->"Italic"], " command superimposes multiple graphs. It inherits options from the first \ graph." }], "Text", CellChangeTimes->{{3.872822811657674*^9, 3.8728228116729136`*^9}, 3.872822868800635*^9, {3.8728233499180136`*^9, 3.8728233909083557`*^9}, 3.8728243848449535`*^9, 3.872826968972726*^9, 3.8728280698517313`*^9, { 3.8728297088706036`*^9, 3.872829710607877*^9}, {3.8728345906438217`*^9, 3.8728346084091854`*^9}},ExpressionUUID->"7d888875-3bfe-498a-a9e5-\ a85918e6c67c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"figMonopolyPricing", "=", RowBox[{"Show", "[", RowBox[{"figureBasic", ",", "figAreas"}], "]"}]}]], "Input", CellChangeTimes->{{3.8727634076102777`*^9, 3.872763437406625*^9}}, CellLabel->"In[37]:=",ExpressionUUID->"753d28a5-d2fc-431d-9673-e13e17b1a42b"], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{{{{}, {}, TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, 0, 1]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQrdT/d/E8uYt2DGBg4nBq4u3CF+n/7WF8r73sfs/S +R1g/LO8ZpwssQpwvlO/64Hl/hpwfqr+L15DXgM431cz9aOYuwmcv+lKbelJ Cws431pIaz1LvQ2cn/570tylEQ5wfv6x58brfZ3g/K4oNtW/OS5wfvLx6jTD DDc4/yC7ZGB2pAecbyjYMO1liRecn/DZVscvxwfOXzjvqMz3Xj84f3Of1e1L QQFwfsku24C5PoFw/v5TSz91RgfB+ZnulnszI4Lh/DkrDLdmZ4XA+RM/720s KA+F85+tKi3LKAqD84+4TZrR1BQO5zP633rU3xAB5zM4bmNcUBkJ53eIf/e9 1B4F5xdEJR/63hwN5z9sNEmxnxoD54tMnnmrc2EsnL9MQKvy+Ow4RHgVybuq r46H8+cpLJCxDUmA8/fW/GLIuIDgK3qz/1EOT4Tzt5zX7L55BcHvOfbPQCE2 Cc6fXPwyK+EOgl8jKsevFJkM56/UZD1V8gDBZ/vCKHkwLgXOX26wsW7ecwRf M2mV39/cVDj/tufOTaGvEfxLi6t07YvT4PwfmwNtlD4h+P93FG1ty0uH870N 3FxrviL4x2P1M7OLM+B8K/aADVt3IvjrNhR8//8fwQcAUGvQDw== "]]}, Annotation[#, "Charting`Private`Tag$7840#1"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], LineBox[CompressedData[" 1:eJw11G00lAkUB/DRaUZvQmrbHCKtoq01c1Jrwz7/5kQSYqJhxsuY18dEJhG2 SaJVomiSlJeyedtqE6nQYqYNpTdGa3flyLQlVkdKLZGxTx/2wz33/M6999xv /2XCaI5kBo1G86bqc7fJmrpQtLTj+ytXFWPT0yRuzrK3iiIriWijbxJn60lo Eq6U2JFNBEs+NLHgE4kW5m4Zg3xM1CyX6m3HSdzN1Hp8kD0j6nP5dK8REvc2 pNa9lr0hmpXuZnl9JNpOPN09IJsmejwsHJgaEp4Nhj79MmPM1bVKBSkkHhqt nz0zxBrLz0U2OUzIwM5yU5dvs8O88slU+j4ZJA4TRiwjJszq0Rukl8LbXvL2 i82O6OJ1LrOMl6L6yf64e05OkLv5dvSPS+C8YFXlzAMuqGswl1spJJBNqgpL A4EVG/PzugbFiG55tbbSmw3xfMbanEgxjvIYtlORmxAa0XhD/UIEUes+KYt0 x8r54WWjEhE0hkv8dgZ5wKSx7uvSQSFYpsm5g7GeqJkMO9ssFEIw6rraJ9IL dqkjsa9fhKO4qNli7JgPAvMeOaUEh+Pa8Q1PtRxflNUKVbldAsTWu/oWevmh xUbHrQoSoKmt9F06n4ON63hGe0vCELH5u4aIwO04XdvCzi0PRUEF6/pOuT/E 3EeeOadCcGK04aAiPgDR89hJWUeC0X8xbi8ZswPmAUfTTx/j4467Ki8lhQuX uijZ/v08GGzrfp6VHIjpq7aWigNBoG28YXA+kepNW/RhaYE4snjMW3uYh4SB WdVrErhQ8ES3x1L5yC4tcJ2l3AHdQUcxcSoYVkn389XyACw8eaY7vTgEryOl tntD/VFmsiqxNT8UvDe/pzmJt0MTY+W28lIYiGN99X/6c1Bkfd7C1V+AO41N LT9y/dCgnKCR7QKkMebqHcJ8sWyr4afl3HAoO58bKy74oOaxfcZfT8LB1AR2 nrnshcwWPdM6RIj2lzNdDmR44uSeQbmgR4gaFs8/6bgHlIuWGtsEiWBy8fBv 8fnu+Nme3hbbJ0Jw0NAfq5M2gfHeYIkmVIwBh/H8yUNslDOrkopeiSF2daan hQP2wos+U1ES1A5fProo2wVPt9RVBwxJYFe1Ts4pdYL2wg9riD1SKHSrchhS R4xf83OxeScFBDGWw7uYmK6NuZ62SwYTxZOKnMX22Mp0d1N+kMF3suCSc4U1 WkMcInbuIWG9eWG3SmWKBSLyVmEcCXXhqMrDyxShZLFRezwJvNdu1dNN8W+M WbWjknLxiYaIRBN8dWRsYuoQCdqYJfugej6Sq5sys3MpC8zae/hzsMHQ9+r1 OhLJLP3QSZUB0ualzxi4Rbn315BpugE6TG/7mzdS/zL2PZYn0kBaOH5Muk3d P3grSVXridOsL9ke96l9x1ejvfwJ4j2/r7O7h5oztMa5qrcEwpesMHr2+d+2 0cjEESJDykkgdJTjzvxyWD1M2Oy+Y1HyknLvcee/+f8QfmkVkqhhypWJ3LMq HVGQobt5jsoF2t0Bl2x1LzGQbT5H+44ys7dtiN9NJOdnXlk/Rpl2r/8nVQfx 4HwzLeIj5Xbl4Cd+G7G4TM/Jn6RcIqPXqDSE8NK3pQ+nKI+UsLtUVcT/uUVF WcnnHPsP7p0zKQ== "]]}, Annotation[#, "Charting`Private`Tag$7840#2"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]], LineBox[CompressedData[" 1:eJwBEQLu/SFib1JlAgAAACAAAAACAAAAIo/9o54e0T5cYeHu//9oQLcIKR9t aK8/3xpc8hL8aEDBeK6kKGi/P2LU1vUl+GhAxjBxZwZozz9oR8z8S/BoQMiM 0kj1Z98/cy23CpjgaEDJOoO57GfvP4r5jCYwwWhAypHbcehn/z+5kTheYIJo QEq9B07mZw9AFsKPzcAEaEDNDTYJBF0gQEY+2X5f9GZAQo9FwKdPKEAYTvcH C/ZlQGUv+g0xDTBAJ3SBvLP8ZEBNKWXxFkc0QK21pkM67mNAstR9dck4OEDU iqCizfFiQDsSKq8EfzxAcXs11D7gYUBn+5KdpVhAQEyCNjGt02BAb8bnM69N QkCRORjMULJfQIpaBiX9bERAdqX52gKTXUBjx3tmMWhGQJ04hJnOl1tAwQcZ UWtZSEA/+OaulKZZQDERgJbpdEpAz+5/aRaLV0Bg8z0sTmxMQKAMwtOxk1VA oZ7FHPeNTkBfYTrjCHJTQLOOOtvSUlBAmuKKSVpaUUB0uj1QnUxRQDAWCb+K zU5Av8ql8olbUkAE1Wg12JFKQGlHOb1pWFNAXOIaC1meRkCcqDG1a2pUQJBd OStRVkJAkfO9gXB3VUB4YxDye0Q8QOaqdXZoclZA0KhSTLxsNEDERpKYgoJX QMCT23bW1ydAAU/a4o+AWEDAP2xJB9wPQAAAAAAAAFlAAAAAAAAAAADVs+Pv "]]}, Annotation[#, "Charting`Private`Tag$7840#3"]& ]}}, {}}, {{ Opacity[0.3], RGBColor[1, 0, 0], PolygonBox[{{0, 200}, {0, 110}, {90, 110}}], RGBColor[0, 0, 1], RectangleBox[{0, 110}, {90, 20}]}, { GrayLevel[0.5], Dashing[{Small, Small}], LineBox[{{90, 0}, {90, 110}, {0, 110}}]}, { GrayLevel[0], InsetBox[ FormBox["\"CS\"", TraditionalForm], {45., 128.}], InsetBox[ FormBox["\"Profits+FC\"", TraditionalForm], {45., 65.}]}}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox["\"Q\"", TraditionalForm], FormBox["\"P\"", TraditionalForm]}, AxesOrigin -> {0, 0}, BaseStyle -> Directive[FontFamily -> "Palatino Linotype", FontSize -> 16], DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], LabelStyle -> Directive[FontFamily -> "Palatino Linotype", FontSize -> 16], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {All, {0, All}}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}], FormBox[ FormBox[ TemplateBox[{ "\"MC\"", "\"\\!\\(\\*SuperscriptBox[\\(P\\), \\(d\\)]\\)\"", "\"MR\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Palatino Linotype", FontSize -> 16, Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, 0, 1]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Palatino Linotype", FontSize -> 16, Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Palatino Linotype", FontSize -> 16, Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Palatino Linotype", FontSize -> 16, Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Palatino Linotype", FontSize -> 16, Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Palatino Linotype", FontSize -> 16, Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { Directive[FontFamily -> "Palatino Linotype", FontSize -> 16], FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Palatino Linotype\""}], ",", RowBox[{"FontSize", "\[Rule]", "16"}], ",", RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0, 0, 1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Palatino Linotype\""}], ",", RowBox[{"FontSize", "\[Rule]", "16"}], ",", RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0, 0], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Palatino Linotype\""}], ",", RowBox[{"FontSize", "\[Rule]", "16"}], ",", RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0, 0], Editable -> False, Selectable -> False], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Palatino Linotype\""}], ",", RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.8727634264357033`*^9, 3.87276343813146*^9}, 3.8728230482792635`*^9, 3.872823153954807*^9, 3.8728238101371794`*^9, 3.872824395384408*^9, 3.8728250216079254`*^9, 3.8728275264839773`*^9, 3.8728277691667085`*^9, 3.872828067948186*^9, 3.8728336248296785`*^9, 3.9064466907523174`*^9}, CellLabel->"Out[37]=",ExpressionUUID->"3b8cf08d-6581-45c9-974d-035bf848f13c"] }, Open ]], Cell["Finally we can export the graph", "Text", CellChangeTimes->{{3.872763441374683*^9, 3.8727635028075*^9}, { 3.8728285418479624`*^9, 3.8728285464051685`*^9}},ExpressionUUID->"9ea13b3d-5f36-4514-b2ec-\ 31c90257f735"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Export", "[", RowBox[{ "\"\\"", ",", "figMonopolyPricing"}], "]"}], " "}]], "Input", CellChangeTimes->{{3.8727635068526525`*^9, 3.872763528775669*^9}, { 3.872823076441948*^9, 3.8728230827731237`*^9}, {3.8728244132701693`*^9, 3.8728244194994593`*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"8954ac1e-45d9-48bd-9b19-30a564a75ca0"], Cell[BoxData["\<\"/home/tervio/Dropbox/Micro/handouts/MS_monopoly_regulation_\ 2022_a.pdf\"\>"], "Output", CellChangeTimes->{{3.872823056743816*^9, 3.8728230801304483`*^9}, { 3.872824402011314*^9, 3.872824417678671*^9}, 3.8728277719505887`*^9, 3.87282807220767*^9, 3.8728336343927293`*^9}, CellLabel->"Out[23]=",ExpressionUUID->"eef0809e-d2f9-4bff-ab3f-6a67fa6662af"] }, Open ]], Cell[BoxData[ RowBox[{"SystemOpen", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.8728230580251102`*^9, 3.8728230640356026`*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"fe0bef73-834a-4e5a-9099-ed8362fefb14"], Cell["\<\ The exact look of the graph also depends on the settings in the local \ Mathematica environment (e.g., font options for Plot). If you haven\ \[CloseCurlyQuote]t changed them then you get whatever happen to be the \ default options on your computer (which is usually fine). This is a more \ advanced topic, here is more about it:\ \>", "Text", CellChangeTimes->{{3.872763123549878*^9, 3.8727632063476644`*^9}, { 3.872822799472198*^9, 3.8728228101575756`*^9}, {3.8728231909715996`*^9, 3.8728233190504246`*^9}, {3.8728234084252863`*^9, 3.8728234264325314`*^9}, { 3.872825058086918*^9, 3.8728250589462957`*^9}, {3.872826486614251*^9, 3.8728264906470375`*^9}, {3.8728275491675205`*^9, 3.872827621585603*^9}, { 3.8728276539799395`*^9, 3.8728276621832733`*^9}, {3.872828354008368*^9, 3.8728284037268033`*^9}, {3.8728292828464575`*^9, 3.87282934029557*^9}},ExpressionUUID->"f9e7c60b-b2e3-4679-9a86-\ 690e29fafefe"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "SetOptions"}]], "Input", CellChangeTimes->{{3.8728233012646027`*^9, 3.8728233040731196`*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"862c9d04-86b7-4c0a-83ef-dc46af9fe904"], Cell[BoxData[ InterpretationBox[ StyleBox[ FrameBox[ DynamicModuleBox[{System`InformationDump`open$$ = False, System`InformationDump`mouseOver$$ = False}, PaneSelectorBox[{True-> TagBox[GridBox[{ { ItemBox[ PaneBox[ StyleBox["\<\" Symbol\"\>", "InformationTitleText", StripOnInput->False, BaseStyle -> None], FrameMargins->{{4, 0}, {-1, 1}}], BaseStyle->"InformationTitleBackground", StripOnInput->False], ItemBox[ PaneBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "InformationHelpIcon"]], True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "InformationHelpIconHot"]]}, Dynamic[ CurrentValue["MouseOver"]]], Appearance->None, BaseStyle->"Link", ButtonData-> "http://reference.wolfram.com/language/ref/SetOptions.html", ButtonNote-> "http://reference.wolfram.com/language/ref/SetOptions.html"], "\"http://reference.wolfram.com/language/ref/SetOptions.html\""], FrameMargins->{{0, 4}, {0, 2}}], BaseStyle->"InformationTitleBackground", StripOnInput->False]}, { ItemBox[ PaneBox[ StyleBox["\<\"\\!\\(\\*RowBox[{\\\"SetOptions\\\", \\\"[\\\", \ RowBox[{StyleBox[\\\"s\\\", \\\"TI\\\"], \\\",\\\", \ RowBox[{SubscriptBox[StyleBox[\\\"name\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]], \\\"\[Rule]\\\", SubscriptBox[StyleBox[\\\"value\\\", \ \\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]}], \\\",\\\", \ RowBox[{SubscriptBox[StyleBox[\\\"name\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \ \\\"TR\\\"]], \\\"\[Rule]\\\", SubscriptBox[StyleBox[\\\"value\\\", \ \\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]}], \\\",\\\", StyleBox[\\\"\ \[Ellipsis]\\\", \\\"TR\\\"]}], \\\"]\\\"}]\\) sets the specified default \ options for a symbol \\!\\(\\*StyleBox[\\\"s\\\", \\\"TI\\\"]\\). \ \\n\\!\\(\\*RowBox[{\\\"SetOptions\\\", \\\"[\\\", \ RowBox[{StyleBox[\\\"stream\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"\ \[Ellipsis]\\\", \\\"TR\\\"]}], \\\"]\\\"}]\\) or \ \\!\\(\\*RowBox[{\\\"SetOptions\\\", \\\"[\\\", RowBox[{StyleBox[\\\"\\\\\\\"\ \\\\!\\\\(\\\\*StyleBox[\\\\\\\"name\\\\\\\",\\\\\\\"TI\\\\\\\"]\\\\)\\\\\\\"\ \\\", ShowStringCharacters->True], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \ \\\"TR\\\"]}], \\\"]\\\"}]\\) sets options associated with a particular \ stream. \\n\\!\\(\\*RowBox[{\\\"SetOptions\\\", \\\"[\\\", \ RowBox[{StyleBox[\\\"object\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"\ \[Ellipsis]\\\", \\\"TR\\\"]}], \\\"]\\\"}]\\) sets options associated with \ an external object such as a NotebookObject or CloudObject. \"\>", "InformationUsageText", StripOnInput->False, LineSpacing->{1.5, 1.5, 3.}], FrameMargins->{{10, 10}, {8, 10}}], BaseStyle->"InformationUsageSubtitleBackground", StripOnInput->False], ItemBox["\<\"\"\>", BaseStyle->"InformationUsageSubtitleBackground", StripOnInput->False]}, { PaneBox[GridBox[{ { DynamicModuleBox[{System`InformationDump`open$$ = { False, False, False, False, False, False}}, StyleBox[GridBox[{ { TagBox[ TooltipBox[ StyleBox["\<\" Documentation\"\>", "InformationRowLabel", StripOnInput->False], "\"Documentation\"", TooltipStyle->"TextStyling"], Annotation[#, "Documentation", "Tooltip"]& ], TemplateBox[{ TemplateBox[{"\"Web \[RightGuillemet]\"", { URL[ "http://reference.wolfram.com/language/ref/SetOptions.\ html"], None}, "http://reference.wolfram.com/language/ref/SetOptions.html", "Hyperlink", { RGBColor[0.9686274509803922, 0.4666666666666667, 0.]}, BaseStyle -> { RGBColor[0.0784313725490196, 0.1568627450980392, 0.6]}}, "HyperlinkTemplate"]}, "RowDefault"]}, { TagBox[ TooltipBox[ StyleBox["\<\" Attributes\"\>", "InformationRowLabel", StripOnInput->False], "\"Attributes\"", TooltipStyle->"TextStyling"], Annotation[#, "Attributes", "Tooltip"]& ], RowBox[{"{", "Protected", "}"}]}, { TagBox[ TooltipBox[ StyleBox["\<\" Full Name\"\>", "InformationRowLabel", StripOnInput->False], "\"FullName\"", TooltipStyle->"TextStyling"], Annotation[#, "FullName", "Tooltip"]& ], "\<\"System`SetOptions\"\>"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {Right, Left}}, GridBoxDividers->None, GridBoxItemSize->{"Columns" -> {Automatic, Automatic}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.8]}, Offset[0.2]}}], "DialogStyle", StripOnInput->False], DynamicModuleValues:>{}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[3.6]}, Offset[0.2]}}], FrameMargins->{{6, 6}, {6, 3}}], ""}, { ItemBox[ TagBox[ ButtonBox[ PaneSelectorBox[{False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "UpPointerOpener"]], True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[ System`InformationDump`mouseOver$$]], Alignment->Left, Appearance->{"Default" -> None}, ButtonFunction:>FEPrivate`Set[ System`InformationDump`open$$, False], Evaluator->Automatic, FrameMargins->{{9, 0}, {0, 0}}, ImageMargins->0, ImageSize->Full, Method->"Preemptive"], EventHandlerTag[{ "MouseEntered" :> FEPrivate`Set[System`InformationDump`mouseOver$$, True], "MouseExited" :> FEPrivate`Set[System`InformationDump`mouseOver$$, False], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], BaseStyle->"InformationTitleBackground", StripOnInput->False], "\[SpanFromLeft]"} }, AutoDelete->False, FrameStyle->Directive[ GrayLevel[0.8], Thickness[Tiny]], GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}}, GridBoxDividers->{ "Columns" -> {{None}}, "Rows" -> {False, {True}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], False-> TagBox[GridBox[{ { ItemBox[ PaneBox[ StyleBox["\<\" Symbol\"\>", "InformationTitleText", StripOnInput->False], FrameMargins->{{4, 0}, {-1, 1}}], BaseStyle->"InformationTitleBackground", StripOnInput->False], ItemBox[ PaneBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "InformationHelpIcon"], ImageSizeCache->{16., {5., 11.}}], True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "InformationHelpIconHot"], ImageSizeCache->{16., {5., 11.}}]}, Dynamic[ CurrentValue["MouseOver"]]], Appearance->None, BaseStyle->"Link", ButtonData-> "http://reference.wolfram.com/language/ref/SetOptions.html", ButtonNote-> "http://reference.wolfram.com/language/ref/SetOptions.html"], "\"http://reference.wolfram.com/language/ref/SetOptions.html\""], FrameMargins->{{0, 4}, {0, 2}}], BaseStyle->"InformationTitleBackground", StripOnInput->False]}, { ItemBox[ PaneBox[ StyleBox["\<\"\\!\\(\\*RowBox[{\\\"SetOptions\\\", \\\"[\\\", \ RowBox[{StyleBox[\\\"s\\\", \\\"TI\\\"], \\\",\\\", \ RowBox[{SubscriptBox[StyleBox[\\\"name\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \ \\\"TR\\\"]], \\\"\[Rule]\\\", SubscriptBox[StyleBox[\\\"value\\\", \ \\\"TI\\\"], StyleBox[\\\"1\\\", \\\"TR\\\"]]}], \\\",\\\", \ RowBox[{SubscriptBox[StyleBox[\\\"name\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \ \\\"TR\\\"]], \\\"\[Rule]\\\", SubscriptBox[StyleBox[\\\"value\\\", \ \\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]}], \\\",\\\", StyleBox[\\\"\ \[Ellipsis]\\\", \\\"TR\\\"]}], \\\"]\\\"}]\\) sets the specified default \ options for a symbol \\!\\(\\*StyleBox[\\\"s\\\", \\\"TI\\\"]\\). \ \\n\\!\\(\\*RowBox[{\\\"SetOptions\\\", \\\"[\\\", \ RowBox[{StyleBox[\\\"stream\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"\ \[Ellipsis]\\\", \\\"TR\\\"]}], \\\"]\\\"}]\\) or \ \\!\\(\\*RowBox[{\\\"SetOptions\\\", \\\"[\\\", RowBox[{StyleBox[\\\"\\\\\\\"\ \\\\!\\\\(\\\\*StyleBox[\\\\\\\"name\\\\\\\",\\\\\\\"TI\\\\\\\"]\\\\)\\\\\\\"\ \\\", ShowStringCharacters->True], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \ \\\"TR\\\"]}], \\\"]\\\"}]\\) sets options associated with a particular \ stream. \\n\\!\\(\\*RowBox[{\\\"SetOptions\\\", \\\"[\\\", \ RowBox[{StyleBox[\\\"object\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"\ \[Ellipsis]\\\", \\\"TR\\\"]}], \\\"]\\\"}]\\) sets options associated with \ an external object such as a NotebookObject or CloudObject. \"\>", "InformationUsageText", StripOnInput->False, LineSpacing->{1.5, 1.5, 3.}], FrameMargins->{{10, 10}, {8, 10}}], BaseStyle->"InformationUsageSubtitleBackground", StripOnInput->False], ItemBox["\<\"\"\>", BaseStyle->"InformationUsageSubtitleBackground", StripOnInput->False]}, { ItemBox[ TagBox[ ButtonBox[ PaneSelectorBox[{False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "DownPointerOpener"], ImageSizeCache->{13., {3., 10.}}], True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "DownPointerOpenerHot"], ImageSizeCache->{13., {3., 10.}}]}, Dynamic[ System`InformationDump`mouseOver$$]], Alignment->Left, Appearance->{"Default" -> None}, ButtonFunction:>FEPrivate`Set[ System`InformationDump`open$$, True], Evaluator->Automatic, FrameMargins->{{9, 0}, {0, 0}}, ImageMargins->0, ImageSize->Full, Method->"Preemptive"], EventHandlerTag[{ "MouseEntered" :> FEPrivate`Set[System`InformationDump`mouseOver$$, True], "MouseExited" :> FEPrivate`Set[System`InformationDump`mouseOver$$, False], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], BaseStyle->"InformationTitleBackground", StripOnInput->False], "\[SpanFromLeft]"} }, AutoDelete->False, FrameStyle->Directive[ GrayLevel[0.8], Thickness[Tiny]], GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}}, GridBoxDividers->{ "Columns" -> {{None}}, "Rows" -> {False, {True}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]}, Dynamic[System`InformationDump`open$$], BaselinePosition->Baseline, FrameMargins->0, ImageSize->Automatic], DynamicModuleValues:>{}], BaseStyle->"InformationGridFrame", StripOnInput->False], "InformationGridPlain", StripOnInput->False], InformationData[ Association[ "ObjectType" -> "Symbol", "Usage" -> "\!\(\*RowBox[{\"SetOptions\", \"[\", RowBox[{StyleBox[\"s\", \"TI\"], \ \",\", RowBox[{SubscriptBox[StyleBox[\"name\", \"TI\"], StyleBox[\"1\", \ \"TR\"]], \"\[Rule]\", SubscriptBox[StyleBox[\"value\", \"TI\"], StyleBox[\"1\ \", \"TR\"]]}], \",\", RowBox[{SubscriptBox[StyleBox[\"name\", \"TI\"], \ StyleBox[\"2\", \"TR\"]], \"\[Rule]\", SubscriptBox[StyleBox[\"value\", \ \"TI\"], StyleBox[\"2\", \"TR\"]]}], \",\", StyleBox[\"\[Ellipsis]\", \ \"TR\"]}], \"]\"}]\) sets the specified default options for a symbol \ \!\(\*StyleBox[\"s\", \"TI\"]\). \n\!\(\*RowBox[{\"SetOptions\", \"[\", \ RowBox[{StyleBox[\"stream\", \"TI\"], \",\", StyleBox[\"\[Ellipsis]\", \ \"TR\"]}], \"]\"}]\) or \!\(\*RowBox[{\"SetOptions\", \"[\", \ RowBox[{StyleBox[\"\\\"\\!\\(\\*StyleBox[\\\"name\\\",\\\"TI\\\"]\\)\\\"\", \ ShowStringCharacters->True], \",\", StyleBox[\"\[Ellipsis]\", \"TR\"]}], \ \"]\"}]\) sets options associated with a particular stream. \n\ \!\(\*RowBox[{\"SetOptions\", \"[\", RowBox[{StyleBox[\"object\", \"TI\"], \ \",\", StyleBox[\"\[Ellipsis]\", \"TR\"]}], \"]\"}]\) sets options associated \ with an external object such as a NotebookObject or CloudObject. ", "Documentation" -> Association[ "Web" -> "http://reference.wolfram.com/language/ref/SetOptions.html"], "OwnValues" -> None, "UpValues" -> None, "DownValues" -> None, "SubValues" -> None, "DefaultValues" -> None, "NValues" -> None, "FormatValues" -> None, "Options" -> None, "Attributes" -> {Protected}, "FullName" -> "System`SetOptions"], False]]], "Output", CellChangeTimes->{3.8728233043347335`*^9, 3.8728250271909227`*^9, 3.872827778126096*^9, 3.8728280786765323`*^9, 3.872833658704153*^9}, CellLabel->"Out[25]=",ExpressionUUID->"d16dadf7-2fac-475e-92f8-c4208569da80"] }, Open ]], Cell[CellGroupData[{ Cell["Part b) Average cost pricing", "Subsubsection", CellChangeTimes->{{3.8728238809973345`*^9, 3.8728238935591345`*^9}},ExpressionUUID->"e889bb3e-bfa5-449c-ac65-\ d89190067a38"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"AC", "[", "q_", "]"}], "=", RowBox[{ RowBox[{"TC", "[", "q", "]"}], "/", "q"}]}]], "Input", CellLabel->"In[38]:=",ExpressionUUID->"0a5fbebe-9226-46c9-8b51-78092cb22adb"], Cell[BoxData[ FractionBox[ RowBox[{"7200", "+", RowBox[{"20", " ", "q"}]}], "q"]], "Output", CellChangeTimes->{3.872823901144866*^9, 3.872824425460479*^9, 3.8728250433851137`*^9, 3.8728277802591176`*^9, 3.8728280802365904`*^9, 3.8728336597521634`*^9, 3.906446697632659*^9}, CellLabel->"Out[38]=",ExpressionUUID->"b2159816-fcb0-47ad-9202-a1886dc58d0b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"AC", "[", "q", "]"}], "\[Equal]", RowBox[{"Pd", "[", "q", "]"}]}], ",", "q"}], "]"}], "\[IndentingNewLine]", RowBox[{"qAC", "=", RowBox[{"Max", "[", RowBox[{"q", "/.", "%"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"pAC", "=", RowBox[{"Pd", "[", "%", "]"}]}]}], "Input", CellChangeTimes->{{3.872823907162842*^9, 3.872823907397198*^9}}, CellLabel->"In[39]:=",ExpressionUUID->"04529018-4059-4408-a1a7-fde04db5265f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"q", "\[Rule]", "60"}], "}"}], ",", RowBox[{"{", RowBox[{"q", "\[Rule]", "120"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.8728239036966085`*^9, 3.8728239078503246`*^9}, 3.87282442746618*^9, 3.872825044145813*^9, 3.872827780827451*^9, 3.872828081736387*^9, 3.8728336605628033`*^9, 3.906446698983505*^9}, CellLabel->"Out[39]=",ExpressionUUID->"af6d277d-455f-433a-ba40-2554d1e74d12"], Cell[BoxData["120"], "Output", CellChangeTimes->{{3.8728239036966085`*^9, 3.8728239078503246`*^9}, 3.87282442746618*^9, 3.872825044145813*^9, 3.872827780827451*^9, 3.872828081736387*^9, 3.8728336605628033`*^9, 3.906446698983505*^9}, CellLabel->"Out[40]=",ExpressionUUID->"0a4d7074-f831-4a73-9ce7-3387979036d8"], Cell[BoxData["80"], "Output", CellChangeTimes->{{3.8728239036966085`*^9, 3.8728239078503246`*^9}, 3.87282442746618*^9, 3.872825044145813*^9, 3.872827780827451*^9, 3.872828081736387*^9, 3.8728336605628033`*^9, 3.906446698983505*^9}, CellLabel->"Out[41]=",ExpressionUUID->"2252e93c-8e4f-483b-abc4-f89bd6184abe"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"figACpricing", "=", RowBox[{"Show", "[", RowBox[{"figureBasic", ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"AC", "[", "q", "]"}], ",", RowBox[{"{", RowBox[{"q", ",", "0", ",", "200"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"Blue", ",", "Dashed"}], "}"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", "\"\\"", "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"All", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1.05", RowBox[{"Pd", "[", "0", "]"}]}]}], "}"}]}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.8728240065171404`*^9, 3.872824036371866*^9}, { 3.8728296276580677`*^9, 3.872829641863408*^9}}, CellLabel->"In[42]:=",ExpressionUUID->"6266769d-8232-4f1f-bded-a37dabe05e03"], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{{{{}, {}, TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, 0, 1]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQrdT/d/E8uYt2DGBg4nBq4u3CF+n/7WF8r73sfs/S +R1g/LO8ZpwssQpwvlO/64Hl/hpwfqr+L15DXgM431cz9aOYuwmcv+lKbelJ Cws431pIaz1LvQ2cn/570tylEQ5wfv6x58brfZ3g/K4oNtW/OS5wfvLx6jTD DDc4/yC7ZGB2pAecbyjYMO1liRecn/DZVscvxwfOXzjvqMz3Xj84f3Of1e1L QQFwfsku24C5PoFw/v5TSz91RgfB+ZnulnszI4Lh/DkrDLdmZ4XA+RM/720s KA+F85+tKi3LKAqD84+4TZrR1BQO5zP633rU3xAB5zM4bmNcUBkJ53eIf/e9 1B4F5xdEJR/63hwN5z9sNEmxnxoD54tMnnmrc2EsnL9MQKvy+Ow4RHgVybuq r46H8+cpLJCxDUmA8/fW/GLIuIDgK3qz/1EOT4Tzt5zX7L55BcHvOfbPQCE2 Cc6fXPwyK+EOgl8jKsevFJkM56/UZD1V8gDBZ/vCKHkwLgXOX26wsW7ecwRf M2mV39/cVDj/tufOTaGvEfxLi6t07YvT4PwfmwNtlD4h+P93FG1ty0uH870N 3FxrviL4x2P1M7OLM+B8K/aADVt3IvjrNhR8//8fwQcAUGvQDw== "]]}, Annotation[#, "Charting`Private`Tag$7840#1"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], LineBox[CompressedData[" 1:eJw11G00lAkUB/DRaUZvQmrbHCKtoq01c1Jrwz7/5kQSYqJhxsuY18dEJhG2 SaJVomiSlJeyedtqE6nQYqYNpTdGa3flyLQlVkdKLZGxTx/2wz33/M6999xv /2XCaI5kBo1G86bqc7fJmrpQtLTj+ytXFWPT0yRuzrK3iiIriWijbxJn60lo Eq6U2JFNBEs+NLHgE4kW5m4Zg3xM1CyX6m3HSdzN1Hp8kD0j6nP5dK8REvc2 pNa9lr0hmpXuZnl9JNpOPN09IJsmejwsHJgaEp4Nhj79MmPM1bVKBSkkHhqt nz0zxBrLz0U2OUzIwM5yU5dvs8O88slU+j4ZJA4TRiwjJszq0Rukl8LbXvL2 i82O6OJ1LrOMl6L6yf64e05OkLv5dvSPS+C8YFXlzAMuqGswl1spJJBNqgpL A4EVG/PzugbFiG55tbbSmw3xfMbanEgxjvIYtlORmxAa0XhD/UIEUes+KYt0 x8r54WWjEhE0hkv8dgZ5wKSx7uvSQSFYpsm5g7GeqJkMO9ssFEIw6rraJ9IL dqkjsa9fhKO4qNli7JgPAvMeOaUEh+Pa8Q1PtRxflNUKVbldAsTWu/oWevmh xUbHrQoSoKmt9F06n4ON63hGe0vCELH5u4aIwO04XdvCzi0PRUEF6/pOuT/E 3EeeOadCcGK04aAiPgDR89hJWUeC0X8xbi8ZswPmAUfTTx/j4467Ki8lhQuX uijZ/v08GGzrfp6VHIjpq7aWigNBoG28YXA+kepNW/RhaYE4snjMW3uYh4SB WdVrErhQ8ES3x1L5yC4tcJ2l3AHdQUcxcSoYVkn389XyACw8eaY7vTgEryOl tntD/VFmsiqxNT8UvDe/pzmJt0MTY+W28lIYiGN99X/6c1Bkfd7C1V+AO41N LT9y/dCgnKCR7QKkMebqHcJ8sWyr4afl3HAoO58bKy74oOaxfcZfT8LB1AR2 nrnshcwWPdM6RIj2lzNdDmR44uSeQbmgR4gaFs8/6bgHlIuWGtsEiWBy8fBv 8fnu+Nme3hbbJ0Jw0NAfq5M2gfHeYIkmVIwBh/H8yUNslDOrkopeiSF2daan hQP2wos+U1ES1A5fProo2wVPt9RVBwxJYFe1Ts4pdYL2wg9riD1SKHSrchhS R4xf83OxeScFBDGWw7uYmK6NuZ62SwYTxZOKnMX22Mp0d1N+kMF3suCSc4U1 WkMcInbuIWG9eWG3SmWKBSLyVmEcCXXhqMrDyxShZLFRezwJvNdu1dNN8W+M WbWjknLxiYaIRBN8dWRsYuoQCdqYJfugej6Sq5sys3MpC8zae/hzsMHQ9+r1 OhLJLP3QSZUB0ualzxi4Rbn315BpugE6TG/7mzdS/zL2PZYn0kBaOH5Muk3d P3grSVXridOsL9ke96l9x1ejvfwJ4j2/r7O7h5oztMa5qrcEwpesMHr2+d+2 0cjEESJDykkgdJTjzvxyWD1M2Oy+Y1HyknLvcee/+f8QfmkVkqhhypWJ3LMq HVGQobt5jsoF2t0Bl2x1LzGQbT5H+44ys7dtiN9NJOdnXlk/Rpl2r/8nVQfx 4HwzLeIj5Xbl4Cd+G7G4TM/Jn6RcIqPXqDSE8NK3pQ+nKI+UsLtUVcT/uUVF WcnnHPsP7p0zKQ== "]]}, Annotation[#, "Charting`Private`Tag$7840#2"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]], LineBox[CompressedData[" 1:eJwBEQLu/SFib1JlAgAAACAAAAACAAAAIo/9o54e0T5cYeHu//9oQLcIKR9t aK8/3xpc8hL8aEDBeK6kKGi/P2LU1vUl+GhAxjBxZwZozz9oR8z8S/BoQMiM 0kj1Z98/cy23CpjgaEDJOoO57GfvP4r5jCYwwWhAypHbcehn/z+5kTheYIJo QEq9B07mZw9AFsKPzcAEaEDNDTYJBF0gQEY+2X5f9GZAQo9FwKdPKEAYTvcH C/ZlQGUv+g0xDTBAJ3SBvLP8ZEBNKWXxFkc0QK21pkM67mNAstR9dck4OEDU iqCizfFiQDsSKq8EfzxAcXs11D7gYUBn+5KdpVhAQEyCNjGt02BAb8bnM69N QkCRORjMULJfQIpaBiX9bERAdqX52gKTXUBjx3tmMWhGQJ04hJnOl1tAwQcZ UWtZSEA/+OaulKZZQDERgJbpdEpAz+5/aRaLV0Bg8z0sTmxMQKAMwtOxk1VA oZ7FHPeNTkBfYTrjCHJTQLOOOtvSUlBAmuKKSVpaUUB0uj1QnUxRQDAWCb+K zU5Av8ql8olbUkAE1Wg12JFKQGlHOb1pWFNAXOIaC1meRkCcqDG1a2pUQJBd OStRVkJAkfO9gXB3VUB4YxDye0Q8QOaqdXZoclZA0KhSTLxsNEDERpKYgoJX QMCT23bW1ydAAU/a4o+AWEDAP2xJB9wPQAAAAAAAAFlAAAAAAAAAAADVs+Pv "]]}, Annotation[#, "Charting`Private`Tag$7840#3"]& ]}}, {}}, {{{{}, {}, TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Dashing[{Small, Small}]], LineBox[CompressedData[" 1:eJwVU3s0lHkAHbUoo6KUWFZFD7bdMcXuYWluNYZ2PtPM5DXDaMzz5xElsWoq jzKJbKvF7iHlkN6p8ShJIlJqKdtaqa2kB9uqUCMVVvece+4/95x77rnnzpfF CJWTaDQad4Kfdflea57T0CrQPgMR0JglLA2QrEbsVNsfaLXh2Cs2WjgaxUaP 3da4AS3BCmdTfV8cG0dvZCWRnQQDhjObOzRsJE6fvPh5PEHQOdvws5lsWP66 zeGdkmDhFNfT8lNs3LjoNz2MTXClUu7a8pKNkI6YJRGTCPRm9V55EV4IKbEw MUtVQ968TcUkHGTT+1+wclRQeCzi6WM4cJOt1HGzVFCdu+1ak8CBbtkVbohW BZK/0NBLy8FTn4DOjEQVomPaioNKOeDeMm+1D1Vhq6V9986nHERPsxtatkSF bHVLcKvUG3/xp5SdrlOi3thKECnywXZ1VIXDRwWY5km5fXE/InbsCXdNihzS Ic+lvCgKA1H7rtL9ZSgqbLIZ3sdDu+VLFs89DOVZ7vfbhXzI02uNSn2kiLvo yT9ICTBw05buOXk96lqODKYHCyf8/7UFpEoQ7u1WGx60Dqfey3j/rgpBwTFm ZWSEHx5aNPZWmQTjl6Ha5I0J/hh3osdr9CI8P7ElnsQGQNvV6WFjKkIjJ/u3 lJRAqBf3e892CILB2q4nPycFQZPfnFsoCQRtZZXB4UQRchhJS8xOBGCP5bBv u1aMvKtnHjvq/bFRLG8YTg1Gb2ATs0bsj+5kFwUrJwSvtRxG6GU/WBz4vSu9 SALRTceSOww/lJo5JTbnh8L86YNTx8rXoT7WzmvxyfXIFbXYn3Zdh8J5h208 /aRYwSvziGsWolbzgUZuS+HdZvpKFybEfK7xJ/vAMDQ6VAdXjwhQ0eaYce9u GObc6DzOKhQg89qY8zyJDFWv1OwCCHBgc1+E9IEMX37SzR3s50Mz+6sZC0Ry 5H27W2xUxMdxR8OWuMdyPHPviu8S8GH01sCqPlSBHdmFa0/S+TjqfG5H4QsF LrQG1FekrYWj7ARvdIMS5efF+ovjPNxfU63zf6lESlX7oyPaiR2Lt37D2qyC zV3j5BA6D+/LBR4LBlWwzTD8Z1eBL8YvxFamRath0RcoJi6+4DpzvDTv1HDL adjlfp1Cs4QRHrmZgE6uX9qupjBTTmoObiHw6b53qENJIZQUTbudQGDi1tPK UFDQx87SuWgIZlzKMOuRUnDYM/xhdBcBc9mIna+YQpKuLnN/7sRPOtIkDF8K 7sb8s5XVBHK719e+Xk4hzTR9Um8NgbW01yCLSeGOeYOf9WWChtGgtDcMCsTG ZWRHA0G/lTCyaimFPObcVT43CcoeJRd7LaLwNvjxn10PCBT7HtZssqKAMKtF 0x4RcLKZuzstKWSohD+xugly3a/lsuZQWLCp0abkGUHTO3X29FkUBGnHlBte TeTPTOgrM6VQkNF9/tAbgpyxK4Nz6RR691ubtA8S0FZUrE6ZOtEnP/PMd8ME xabcS/5GFG4dbqKFjxB8/Pt6T90XFCxLx4T5Hwl2RpcInSZTkJ38/sgfowR3 x1qm5BhQOHN24/D4OIHnZUcjGo3C/5AeEQk= "]]}, Annotation[#, "Charting`Private`Tag$8801#1"]& ]}}, {}}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox["\"Q\"", TraditionalForm], FormBox["\"P\"", TraditionalForm]}, AxesOrigin -> {0, 0}, BaseStyle -> Directive[FontFamily -> "Palatino Linotype", FontSize -> 16], DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], LabelStyle -> Directive[FontFamily -> "Palatino Linotype", FontSize -> 16], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {All, {0, All}}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}], FormBox[ TagBox[ GridBox[{{ FormBox[ TemplateBox[{ "\"MC\"", "\"\\!\\(\\*SuperscriptBox[\\(P\\), \\(d\\)]\\)\"", "\"MR\""}, "LineLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Palatino Linotype", FontSize -> 16, Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, 0, 1]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Palatino Linotype", FontSize -> 16, Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Palatino Linotype", FontSize -> 16, Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Palatino Linotype", FontSize -> 16, Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Palatino Linotype", FontSize -> 16, Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Palatino Linotype", FontSize -> 16, Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { Directive[FontFamily -> "Palatino Linotype", FontSize -> 16], FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{ "FontFamily", "\[Rule]", "\"Palatino Linotype\""}], ",", RowBox[{"FontSize", "\[Rule]", "16"}], ",", RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0, 0, 1], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{ "FontFamily", "\[Rule]", "\"Palatino Linotype\""}], ",", RowBox[{"FontSize", "\[Rule]", "16"}], ",", RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0, 0], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{ "FontFamily", "\[Rule]", "\"Palatino Linotype\""}], ",", RowBox[{"FontSize", "\[Rule]", "16"}], ",", RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0, 0], Editable -> False, Selectable -> False], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{ "FontFamily", "\[Rule]", "\"Palatino Linotype\""}], ",", RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm]}, { FormBox[ TemplateBox[{"\"AC\""}, "LineLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Palatino Linotype", FontSize -> 16, Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Dashing[{Small, Small}]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], FontFamily -> "Palatino Linotype", FontSize -> 16, Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { Directive[FontFamily -> "Palatino Linotype", FontSize -> 16], FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{ "FontFamily", "\[Rule]", "\"Palatino Linotype\""}], ",", RowBox[{"FontSize", "\[Rule]", "16"}], ",", RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0, 0, 1], Editable -> False, Selectable -> False], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{ "FontFamily", "\[Rule]", "\"Palatino Linotype\""}], ",", RowBox[{"FontSize", "\[Rule]", "16"}]}], "]"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.8728240074652567`*^9, 3.8728240378091307`*^9, 3.8728244294324803`*^9, 3.872825045794112*^9, 3.872827782026205*^9, 3.8728280832070932`*^9, 3.8728336617342205`*^9, 3.9064467008021803`*^9}, CellLabel->"Out[42]=",ExpressionUUID->"578d27f0-86c2-42a1-9939-58938f2860c9"] }, Open ]], Cell["By now you know how to add garnish to this graph.", "Text", CellChangeTimes->{{3.8728241580420294`*^9, 3.872824190701782*^9}, 3.8728265673320427`*^9, {3.8728295773975616`*^9, 3.872829594824581*^9}},ExpressionUUID->"b55c85ad-6cc9-4e20-80f9-\ c4e1d18b1e8a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Much more about getting started with Mathematica", "Subsection", CellChangeTimes->{{3.8728246290259504`*^9, 3.8728246343791122`*^9}, 3.872824701178502*^9, {3.8728248489884305`*^9, 3.872824881447669*^9}},ExpressionUUID->"df07e43e-32f1-4125-bc73-\ 7231db4425cc"], Cell["\<\ If you are fluent in some programming language like Python then this is the \ best introduction to Mathematica (aka Wolfram programming language): https://www.wolfram.com/language/fast-introduction-for-programmers/en\ \>", "Text", CellChangeTimes->{{3.87282463903557*^9, 3.872824698438245*^9}, { 3.8728247581240225`*^9, 3.8728247697622347`*^9}},ExpressionUUID->"8f6eb6bd-45a9-474e-bd8b-\ 4b5af416d580"], Cell["\<\ Here is the standard gigantic introduction: https://www.wolfram.com/language/elementary-introduction/\ \>", "Text", CellChangeTimes->{{3.8728247948715296`*^9, 3.8728248258727517`*^9}, 3.8728248920595465`*^9, {3.906446612677758*^9, 3.9064466273144646`*^9}},ExpressionUUID->"a7c6dd7d-85dc-4d0e-b1d8-\ 96b07a7cfec9"] }, Open ]] }, WindowSize->{1131.75, 1119.75}, WindowMargins->{{Automatic, 725.25}, {Automatic, 0}}, Magnification:>1.25 Inherited, FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (June 19, 2020)", StyleDefinitions->"Default.nb", ExpressionUUID->"b489fba5-d486-4e03-b893-3f4ad871ea30" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 614, 12, 127, "Text",ExpressionUUID->"179aed23-25f8-4e2d-809f-c8f5110a10cd"], Cell[1175, 34, 612, 11, 99, "Text",ExpressionUUID->"d79adcc4-0951-47b6-8c0e-d3a85d4c5129"], Cell[1790, 47, 181, 3, 43, "Text",ExpressionUUID->"db39fc0d-2a85-4224-899a-ea6c9d8f5754"], Cell[CellGroupData[{ Cell[1996, 54, 409, 6, 67, "Subsection",ExpressionUUID->"78bf84e0-f34e-40f1-bf9b-f26c46566698"], Cell[2408, 62, 421, 8, 71, "Text",ExpressionUUID->"382246be-8fcb-4a44-bee2-64bb5b5737e8"], Cell[2832, 72, 879, 21, 108, "Input",ExpressionUUID->"f2decf6e-125d-46e2-84dd-a24e3a207efe"], Cell[3714, 95, 274, 4, 43, "Text",ExpressionUUID->"23857732-8f78-4842-b0b4-34e3e95dbac0"], Cell[CellGroupData[{ Cell[4013, 103, 406, 9, 35, "Input",ExpressionUUID->"b252bdb9-db47-47ed-b15a-e8f173cedf9e"], Cell[4422, 114, 247, 5, 40, "Output",ExpressionUUID->"f79daac1-dec3-4e51-b253-dd9c214c47df"] }, Open ]], Cell[4684, 122, 383, 6, 43, "Text",ExpressionUUID->"0c0372f9-e134-4656-9284-997e3074475b"], Cell[CellGroupData[{ Cell[5092, 132, 684, 16, 84, "Input",ExpressionUUID->"ae319014-052d-4366-8b43-3af49fce56f6"], Cell[5779, 150, 551, 10, 40, "Output",ExpressionUUID->"73dfe6de-e558-4aea-90da-ee1dd8299d8c"], Cell[6333, 162, 476, 7, 40, "Output",ExpressionUUID->"99a7d61a-cdf4-4764-8ca6-89f92fa73645"], Cell[6812, 171, 477, 7, 40, "Output",ExpressionUUID->"59e236f7-b8de-44bb-9504-830ba0f75a5c"] }, Open ]], Cell[7304, 181, 737, 14, 99, "Text",ExpressionUUID->"59c29036-3105-4ed2-82ec-c12e68ef3d72"], Cell[8044, 197, 525, 13, 99, "Text",ExpressionUUID->"dff51707-2792-4290-8927-44c0aa18ad5c"], Cell[8572, 212, 190, 3, 43, "Text",ExpressionUUID->"2296675f-f6bb-4126-b540-5b390eb14fef"], Cell[CellGroupData[{ Cell[8787, 219, 532, 12, 60, "Input",ExpressionUUID->"cc694f68-fdf5-4561-8b57-e9a868f142f2"], Cell[9322, 233, 425, 6, 40, "Output",ExpressionUUID->"01ec2961-159b-4c21-b2b2-626a3eaf2239"], Cell[9750, 241, 426, 6, 40, "Output",ExpressionUUID->"ea42e705-3b87-4aa1-8fb0-b2ed48eaf144"] }, Open ]], Cell[10191, 250, 199, 3, 43, "Text",ExpressionUUID->"651558b8-c0d1-4d58-a780-1b412191e6f9"], Cell[CellGroupData[{ Cell[10415, 257, 397, 9, 35, "Input",ExpressionUUID->"21be6403-5634-4589-9907-b2a712e1bbba"], Cell[10815, 268, 273, 4, 40, "Output",ExpressionUUID->"ded0b89c-3dad-4173-9f8b-1c9b7248754c"] }, Open ]], Cell[11103, 275, 249, 4, 43, "Text",ExpressionUUID->"479f29a9-45ae-4da6-91f2-15edce2945f9"], Cell[CellGroupData[{ Cell[11377, 283, 438, 11, 35, "Input",ExpressionUUID->"654589ac-7f5c-43f5-b7d1-4a4fc1c7a235"], Cell[11818, 296, 6493, 129, 273, "Output",ExpressionUUID->"bcf18591-39ff-4169-b715-fa624be23fc8"] }, Open ]], Cell[18326, 428, 266, 4, 43, "Text",ExpressionUUID->"6c0fefb6-cce7-49c7-9453-a9f38d72bd0a"], Cell[CellGroupData[{ Cell[18617, 436, 1257, 32, 145, "Input",ExpressionUUID->"77c5c6c8-9df3-46f8-92f1-6305acd0c51d"], Cell[19877, 470, 20266, 408, 335, "Output",ExpressionUUID->"40868ab9-9121-4803-aebf-5d1837ab2684"] }, Open ]], Cell[40158, 881, 592, 12, 71, "Text",ExpressionUUID->"99db8cb6-9bdf-436a-a17d-af81b78d4051"], Cell[40753, 895, 389, 8, 43, "Text",ExpressionUUID->"ab7452e0-7e59-495b-8f96-00c4a22bffd5"], Cell[CellGroupData[{ Cell[41167, 907, 192, 3, 35, "Input",ExpressionUUID->"c61095e3-74b1-4202-a7c9-5db8a25c28eb"], Cell[41362, 912, 31645, 664, 214, "Output",ExpressionUUID->"855455b0-68de-4e05-b179-44a56cd95c56"] }, Open ]], Cell[73022, 1579, 249, 4, 43, "Text",ExpressionUUID->"186071c0-e21f-4cba-b5ef-b58559bf43d7"], Cell[73274, 1585, 973, 28, 60, "Input",ExpressionUUID->"445918f4-be91-4adc-a32a-09c061f4ed03"], Cell[74250, 1615, 204, 3, 43, "Text",ExpressionUUID->"fadf5293-d93e-4a66-9233-6e3dacb4adb6"], Cell[CellGroupData[{ Cell[74479, 1622, 1978, 51, 132, "Input",ExpressionUUID->"5138363a-0fd6-458a-8149-54b323ab5712"], Cell[76460, 1675, 957, 16, 561, "Output",ExpressionUUID->"d22e3082-def3-4806-a081-cf4dd7a00067"] }, Open ]], Cell[77432, 1694, 436, 11, 43, "Text",ExpressionUUID->"9412855e-ab93-4856-91f6-c1cfffb21a12"], Cell[77871, 1707, 536, 11, 43, "Text",ExpressionUUID->"7d888875-3bfe-498a-a9e5-a85918e6c67c"], Cell[CellGroupData[{ Cell[78432, 1722, 285, 5, 35, "Input",ExpressionUUID->"753d28a5-d2fc-431d-9673-e13e17b1a42b"], Cell[78720, 1729, 20789, 422, 335, "Output",ExpressionUUID->"3b8cf08d-6581-45c9-974d-035bf848f13c"] }, Open ]], Cell[99524, 2154, 224, 4, 43, "Text",ExpressionUUID->"9ea13b3d-5f36-4514-b2ec-31c90257f735"], Cell[CellGroupData[{ Cell[99773, 2162, 451, 9, 35, "Input",ExpressionUUID->"8954ac1e-45d9-48bd-9b19-30a564a75ca0"], Cell[100227, 2173, 376, 5, 40, "Output",ExpressionUUID->"eef0809e-d2f9-4bff-ab3f-6a67fa6662af"] }, Open ]], Cell[100618, 2181, 212, 3, 35, "Input",ExpressionUUID->"fe0bef73-834a-4e5a-9099-ed8362fefb14"], Cell[100833, 2186, 935, 15, 99, "Text",ExpressionUUID->"f9e7c60b-b2e3-4679-9a86-690e29fafefe"], Cell[CellGroupData[{ Cell[101793, 2205, 202, 3, 35, "Input",ExpressionUUID->"862c9d04-86b7-4c0a-83ef-dc46af9fe904"], Cell[101998, 2210, 15477, 341, 182, "Output",ExpressionUUID->"d16dadf7-2fac-475e-92f8-c4208569da80"] }, Open ]], Cell[CellGroupData[{ Cell[117512, 2556, 183, 3, 56, "Subsubsection",ExpressionUUID->"e889bb3e-bfa5-449c-ac65-d89190067a38"], Cell[CellGroupData[{ Cell[117720, 2563, 211, 5, 35, "Input",ExpressionUUID->"0a5fbebe-9226-46c9-8b51-78092cb22adb"], Cell[117934, 2570, 366, 7, 60, "Output",ExpressionUUID->"b2159816-fcb0-47ad-9202-a1886dc58d0b"] }, Open ]], Cell[CellGroupData[{ Cell[118337, 2582, 509, 12, 84, "Input",ExpressionUUID->"04529018-4059-4408-a1a7-fde04db5265f"], Cell[118849, 2596, 476, 10, 40, "Output",ExpressionUUID->"af6d277d-455f-433a-ba40-2554d1e74d12"], Cell[119328, 2608, 320, 4, 40, "Output",ExpressionUUID->"0a4d7074-f831-4a73-9ce7-3387979036d8"], Cell[119651, 2614, 319, 4, 40, "Output",ExpressionUUID->"2252e93c-8e4f-483b-abc4-f89bd6184abe"] }, Open ]], Cell[CellGroupData[{ Cell[120007, 2623, 1084, 26, 156, "Input",ExpressionUUID->"6266769d-8232-4f1f-bded-a37dabe05e03"], Cell[121094, 2651, 28678, 572, 335, "Output",ExpressionUUID->"578d27f0-86c2-42a1-9939-58938f2860c9"] }, Open ]], Cell[149787, 3226, 270, 4, 43, "Text",ExpressionUUID->"b55c85ad-6cc9-4e20-80f9-c4e1d18b1e8a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[150106, 3236, 275, 4, 67, "Subsection",ExpressionUUID->"df07e43e-32f1-4125-bc73-7231db4425cc"], Cell[150384, 3242, 419, 8, 99, "Text",ExpressionUUID->"8f6eb6bd-45a9-474e-bd8b-4b5af416d580"], Cell[150806, 3252, 333, 7, 71, "Text",ExpressionUUID->"a7c6dd7d-85dc-4d0e-b1d8-96b07a7cfec9"] }, Open ]] } ] *)