(* 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[{
"\"\<MC\>\"", ",", "\"\<\!\(\*SuperscriptBox[\(P\), \(d\)]\)\>\"", ",",
"\"\<MR\>\""}], "}"}]}], ",", "\[IndentingNewLine]",
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<Q\>\"", ",", "\"\<P\>\""}], "}"}]}], ",",
"\[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[{"\"\<CS\>\"", ",",
RowBox[{"{",
RowBox[{
RowBox[{"0.5", "qM"}], ",",
RowBox[{
RowBox[{"0.2",
RowBox[{"Pd", "[", "0", "]"}]}], "+",
RowBox[{"0.8",
RowBox[{"Pd", "[", "qM", "]"}]}]}]}], "}"}]}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"\"\<Profits+FC\>\"", ",",
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[{
"\"\</home/tervio/Dropbox/Micro/handouts/MS_monopoly_regulation_2022_a.pdf\
\>\"", ",", "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[{"{", "\"\<AC\>\"", "}"}]}], ",", "\[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 ]]
}
]
*)