一站畅享原生态云南美味_美食_V趣味频道_VOGUE时尚网
您现在的位置：
&&&&&&&&&&&&&&&&&&
一站畅享原生态云南美味
作者：Moy Hau
图片来源：Bestfoodinchina
在北京，人们经常听到有关最佳菜品的讨论，主题几乎囊括所有的主要菜式--日本料理、香槟早午餐、烧烤、涮锅等等；每个人都认为自己是行家，为了支持自己的观点，搜肠刮肚，无意间增长了对菜品的认识。
在北京，人们经常听到有关最佳菜品的讨论，主题几乎囊括所有的主要菜式--日本料理、香槟早午餐、烧烤、涮锅等等；每个人都认为自己是行家，为了支持自己的观点，搜肠刮肚，无意间增长了对菜品的认识。
虽不能称内行，我对涮锅还是较为了解的。大品牌固然美味众多，但海底捞、呷哺呷哺这些连锁涮锅连锁餐厅，也决不可小觑。为数众多的涮锅店--耙子、长岛、悦堂、T6&每一个都值得光顾，体验其多样的装潢、氛围、菜品以及诸如象棋和美甲这样的附加服务。当然，最重要的还是菜品；在竞争激烈的市场，好口味才是硬道理。
我家附近有家涮锅店，汤好、肉多、菜鲜、价廉，我时常光顾。因此，别的涮锅店要&收买我的胃&可不容易，关键就看在涮锅底料上桌后十分钟内能不能拿出让我满意的&王牌&美味来。照顾好了我的胃，下次自然会再去。（酒店名称）原生态云南涮锅店就有这本事，一顿饭的功夫，其美味便俘虏了我的心。
我最希望吃涮锅时能&直入主题&，一开餐就能吃到自己钟爱的美食，而非让人久候多时，&主角&却老不登场。这次，我带着随便吃的心态，让朋友们劳神点餐，一会儿功夫，就上菜了；我发现这涮锅可不&随便&&&醇香四溢的鱼涮锅底料，配放薄荷叶牛肉卷，让人食欲大增、不忍停箸；同时，涮锅蘸料和饮料也已纷纷上桌，丝毫未打扰我们享用美食的雅兴。
我吃涮锅，汤料总是&鸳鸯式&的。这份鱼涮锅底搭配芝麻酱作蘸料，鲜醇浓淡，各有特色。配菜中的番茄、酸橙和香菜，搭配独特，可入涮锅，也可单吃。欧美人可能会觉得后一种吃法有墨西哥式菜肴的风味。涮锅用的所有蔬菜均用飞机直接从南方空运，原生独特，绿色健康。如果您要在东直门附近找一家装潢的经典涮锅店，原生态云南涮锅是不二之选，而我们的推荐就是&鸳鸯式&的搭配和以肉为主的吃法。
我们选点了多种薄切肉片和蔬菜，都是美食经典的代表素材；但口味最佳的还是各种菌类和食用昆虫。一道&蘑菇组合&装于竹制碟盘中，至少有五种风味的蘑菇；食用昆虫分量相当，当做小吃，不入涮锅。
吃涮锅的美中不足，是人少则式样选择不敢太多，生怕造成浪费；但在原生态云南涮锅，两、三人同行也没关系，细心选点代表性的菜品，美味几乎一网打尽；还有，您可千万别忘了喝上几盅云南米酒啊--竹筒米酒，风味迷人！若同行人多，那就尽情点菜吧，畅享美味不能留下遗憾！
无论怎么吃，都能让您吃得开心！
服务质量：很好&
菜品质量：很好&
人均消费：&100RMB&
用餐环境：很好&
地址：东直门公交枢纽正对面，天恒大厦与宇飞大厦交汇处
电话：010-
$(document).ready(function(){
var url = ".cn/comment.php?cid=48";
$("#iframecommentbox").html('');
document.domain = ".cn";
关注官方微信
开启互动之旅
相关网站：
更多VOGUE国际网站：
京ICP 证070504号 京网文[27号
将文章:一站畅享原生态云南美味 喜欢到中。
喜欢理由：
0){ addcollect(50724,document.getElementById('myfavinfo').value); }else{ $.alert('喜欢理由不能为空'); }" />
经验: +2 ， 金币 +2
您的喜欢已完成，如您需要查看或者管理喜欢列表，请点击
您的喜欢已完成，如您需要查看或者管理喜欢列表，请点击(* Content-type: application/mathematica *)
(*** Wolfram Notebook File ***)
(* CreatedBy='Mathematica 6.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[
NotebookDataLength[
NotebookOptionsPosition[
NotebookOutlinePosition[
CellTagsIndexPosition[
WindowFrame->Normal
ContainsDynamic->False*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
StyleBox["Jieun Chang\nShelley Murphey\nHakon Skjenstad\nECON 7818\nDesire \
and Chocolate Quiz\n\nQuestion : ", "Section"],
StyleBox["Consider the population of people named Fred who had difficult \
childhoods. Assume desire, D, for chocolate in this population is normally \
distributed with mean \[Mu] and variance \[Sigma]", "Text"],
StyleBox[Cell[BoxData[
SuperscriptBox["", "2"], ".", "
"}], TraditionalForm]], "Text"],
StyleBox["D", "Text"],
StyleBox[Cell[BoxData[
RowBox[{"i", " ", "is", " ", "individual", " "}], TraditionalForm]],
"Text"], "Text"],
StyleBox["i's desire for chocolate. Let Ci be the number of chocolate bars \
individual i consumes. Assume Ci=0, if Di\[LessEqual] 0 and Ci=Di if Di>0. \n\
", "Text"]
}], "Subsection",
CellChangeTimes->{{3.1073`*^9, 3.2733`*^9}, {
3.3568`*^9, 3.1475`*^9}, 3.0243`*^9, {
3.931*^9, 3.536*^9}, {3.125*^9,
3.875*^9}, {3.25*^9, 3.25*^9}}],
Cell[CellGroupData[{
Cell["\", "Section",
CellChangeTimes->{{3.2645`*^9, 3.2646`*^9}, {
3.2647`*^9, 3.2646`*^9}},
FontSize->14],
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["First, we define the density function, f(C) generally, without \
specifying the parameters for mean and standard deviation of the normal \
distribution.",
FontColor->RGBColor[0, 0, 1]],
"\[Mu]\[Mu]"
}], "Subsection",
CellChangeTimes->{{3.2645`*^9, 3.2645`*^9}, {
3.922*^9, 3.533*^9}, {3.8247`*^9,
3.4903`*^9}, {3.375*^9, 3.75*^9}},
FontColor->GrayLevel[1],
Background->None],
Cell["\ 0, the distribution \
looks like the distribution of desire.
This is stated mathematically below.
After the statement of the density function, we also indicate the steps we \
used to get this answer.\
\>", "Text",
CellChangeTimes->{{3.5853`*^9, 3.412*^9}, {
3.2997`*^9, 3.184*^9}, {3.5*^9,
3.*^9}, {3.875*^9, 3.5*^9}, {
3.5*^9, 3.375*^9}, {3.625*^9,
3.375*^9}}],
Cell[TextData[{
StyleBox["The density function f(C) for chocolate bars consumed:",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.5, 0]],
Cell[BoxData[
RowBox[{"f",
RowBox[{"(", "C", ")"}]}], " ", "=",
RowBox[{"\[Piecewise]", GridBox[{
StyleBox["0",
FontSize->14],
StyleBox["\t
FontSize->14],
StyleBox["if",
FontSize->12],
StyleBox[" ",
FontSize->12],
StyleBox["C",
FontSize->12]}],
StyleBox[" ",
FontSize->12],
StyleBox["12],
StyleBox[" ",
FontSize->12],
StyleBox["0",
FontSize->12],
StyleBox[" ",
FontSize->14]}]},
SubsuperscriptBox["\[Integral]",
RowBox[{"-", "\[Infinity]"}], "0"],
FractionBox[
SuperscriptBox["\[ExponentialE]",
RowBox[{"-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"x", "-", "\[Mu]"}], ")"}], "2"],
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]]}]],
RowBox[{"2", " ", "\[Pi]"}]], " ", "\[Sigma]"}]],
RowBox[{"\[DifferentialD]", "x"}]}]}],
TraditionalForm], "
", "if", " ", "C"}], " ", "=",
StyleBox["\[IndentingNewLine]",
FontSize->14],
FractionBox[
SuperscriptBox["\[ExponentialE]",
RowBox[{"-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"C", "-", "\[Mu]"}], ")"}], "2"],
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]]}]],
RowBox[{"2", " ", "\[Pi]"}]], " ", "\[Sigma]"}]],
StyleBox["
FontSize->14], "if", "
", "C"}], " ", ">", " ", "0"}]}]}
GridBoxAlignment->{
"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
"RowsIndexed" -> {}},
GridBoxSpacings->{"Columns" -> {
Offset[0.99997`], {
Offset[0.84]},
Offset[0.99997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
Offset[0.2], {
Offset[0.4]},
Offset[0.2]}, "RowsIndexed" -> {}}]}]}]]]
}], "Text",
CellChangeTimes->{{3.013*^9, 3.0222`*^9}, {
3.3313`*^9, 3.022*^9}, {3.3507`*^9,
3.5923`*^9}, {3.232*^9, 3.602*^9}, {
3.101*^9, 3.112*^9}, {3.25*^9,
3.25*^9}, {3.5*^9, 3.25*^9}, {
3.*^9, 3.625*^9}, {3.*^9,
3.25*^9}, {3.5*^9, 3.5*^9}, {
3.*^9, 3.75*^9}, {3.*^9,
3.25*^9}, 3.125*^9, {3.265*^9,
3.265*^9}, {3.2646`*^9, 3.2643`*^9}, {
3.265*^9, 3.2646`*^9}, {3.2645`*^9,
3.265*^9}, {3.2645`*^9, 3.2645`*^9},
3.265*^9, {3.922*^9, 3.301*^9}, {
3.125*^9, 3.25*^9}, {3.375*^9,
3.*^9}, {3.625*^9, 3.125*^9}, {
3.875*^9, 3.25*^9}}],
Cell[TextData[{
StyleBox["Finding the PDF for Ci:\n(1) Ci > 0 ",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.5, 0]],
"\n\nThe distribution of Di is normal so the distribution of Ci above zero \
(when Ci = Di) takes the form:\n",
StyleBox["This is true but maybe some explaination of why is in order. ",
FontColor->RGBColor[1, 0, 0]]
}], "Text",
CellChangeTimes->{{3.03*^9, 3.911*^9}, {
3.*^9, 3.5*^9}, {3.625*^9,
3.5*^9}, {3.*^9, 3.875*^9}, {
3.875*^9, 3.875*^9}, {3.*^9,
3.375*^9}, {3.75*^9, 3.25*^9}, {
3.5*^9, 3.375*^9}, 3.*^9}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"PDF", "[",
RowBox[{"NormalDistribution", "[",
RowBox[{"\[Mu]", ",", "\[Sigma]"}], "]"}], ",", "C"}], "]"}]], "Input",
CellChangeTimes->{{3.323*^9, 3.04*^9},
3.2645`*^9}],
Cell[BoxData[
FractionBox[
SuperscriptBox["\[ExponentialE]",
RowBox[{"-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"C", "-", "\[Mu]"}], ")"}], "2"],
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]]}]],
RowBox[{"2", " ", "\[Pi]"}]], " ", "\[Sigma]"}]]], "Output",
CellChangeTimes->{{3.2642`*^9, 3.2647`*^9}}]
Cell[TextData[{
StyleBox["(2) Ci ",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.5, 0]],
"\[LessEqual]",
StyleBox[" 0 \n",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.5, 0]],
"\nWe need to evaluate the denisty function for Ci when Ci is less than or \
equal to zero. For f(C) to be density function, it needs to satisfy two \
properties: f(C) \[GreaterEqual] 0 for all C and ",
Cell[BoxData[
SubsuperscriptBox["\[Integral]",
RowBox[{"-", "\[Infinity]"}], "\[Infinity]"],
RowBox[{"f", "(", "C", ")"}],
RowBox[{"\[DifferentialD]", "C"}]}]}], " ", "=", " ", "1."}],
TraditionalForm]]],
" As we explain abover Ci cannot take values less than zero so the integral \
of the density function f(C) up to zero will be zero (since f(C) = 0 for C "Arial"],
"\nSince we know that the distribution of Di is the normal distribution and \
f(C) = 0 if
Cell[BoxData[
SubsuperscriptBox["\[Integral]",
RowBox[{"-", "\[Infinity]"}], "0"],
FractionBox[
SuperscriptBox["\[ExponentialE]",
RowBox[{"-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"x", "-", "\[Mu]"}], ")"}], "2"],
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]]}]],
RowBox[{"2", " ", "\[Pi]"}]], " ", "\[Sigma]"}]],
RowBox[{"\[DifferentialD]", "x"}]}]}], TraditionalForm]],
FontSize->14],
" since otherwise the integral of f(C) will not evaluate to 1 and f(C) will \
not be a valid density function."
}], "Text",
CellChangeTimes->{{3.845*^9, 3.232*^9}, {
3.0817`*^9, 3.6402`*^9}, {3.1245`*^9,
3.9504`*^9}, {3.443*^9, 3.475*^9}, {
3.298*^9, 3.7007`*^9}, {3.1695`*^9,
3.2014`*^9}, {3.4573`*^9,
3.2733`*^9}, {3.379*^9, 3.1887`*^9}, {
3.832*^9, 3.598*^9}, {3.2647`*^9,
3.2643`*^9}, {3.2647`*^9,
3.2647`*^9}, {3.265*^9, 3.265*^9}, {
3.7607`*^9, 3.4324`*^9}, {3.967*^9,
3.001*^9}, {3.306*^9, 3.614*^9}, {
3.5*^9, 3.125*^9}, {3.25*^9,
3.375*^9}, {3.*^9, 3.25*^9}, {
3.125*^9, 3.125*^9}, {3.5*^9,
3.25*^9}, {3.*^9, 3.25*^9}, {
3.75*^9, 3.75*^9}, {3.875*^9,
3.*^9}, {3.125*^9, 3.}, {3.*^9,
3.75*^9}, {3.875*^9, 3.625*^9}, {
3.5*^9, 3.75*^9}, {3.625*^9,
3.125*^9}, 3.*^9, {3.25*^9,
3.75*^9}}],
Cell[TextData[StyleBox["Properties of the PDF",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.5, 0]]], "Text",
CellChangeTimes->{{3.293*^9, 3.6384`*^9}, {
3.2896`*^9, 3.04*^9}, 3.25*^9, {
3.625*^9, 3.5*^9}, {3.75*^9,
Background->None],
Cell[TextData[{
"Now that we have found our PDF we are interested in looking at its \
properties given different standard deviations and means of the distribution \
of Di (different parameters). We will graph the PDF to understand how it \
changes when the parameters change.\nIf we specify a particular mean and \
standard deviation, then the value
Cell[BoxData[
RowBox[{"f", "(", "0", ")"}], "=",
SubsuperscriptBox["\[Integral]",
RowBox[{"-", "\[Infinity]"}], "0"],
FractionBox[
SuperscriptBox["\[ExponentialE]",
RowBox[{"-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"x", "-", "\[Mu]"}], ")"}], "2"],
RowBox[{"2", " ",
SuperscriptBox["\[Sigma]", "2"]}]]}]],
RowBox[{"2", " ", "\[Pi]"}]], " ", "\[Sigma]"}]],
RowBox[{"\[DifferentialD]", "x"}]}]}]}], TraditionalForm]],
FontSize->14],
" evaluates to a number--the probability of someone consuming zero candy \
If we specify our normal distribution with \[Mu]=0 and \[Sigma]",
Cell[BoxData[
SuperscriptBox["", "2"], "=", "1"}], ",", " ", "then", "
TraditionalForm]]],
StyleBox["P(C=0) = P(D \[LessEqual] 0) =
FontSize->14],
Cell[BoxData[
SubsuperscriptBox["\[Integral]",
RowBox[{"-", "\[Infinity]"}], "0"],
FractionBox[
SuperscriptBox["\[ExponentialE]",
RowBox[{"-",
FractionBox[
SuperscriptBox["x", "2"]}],
RowBox[{"2", " "}]]}]],
RowBox[{"2", " ", "\[Pi]"}]]],
RowBox[{"\[DifferentialD]", "x"}]}]}], TraditionalForm]], "Text",
FontSize->14],
StyleBox["= ",
FontSize->14],
Cell[BoxData[
FractionBox["1", "2"], TraditionalForm]], "Text",
FontSize->14]
}], "Text",
CellChangeTimes->{{3.336*^9, 3.2177`*^9}, {
3.5183`*^9, 3.7348`*^9}, {3.1615`*^9,
3.744*^9}, {3.637*^9, 3.651*^9}, {
3.2644`*^9, 3.2643`*^9}, {3.2644`*^9,
3.2646`*^9}, {3.2645`*^9, 3.2646`*^9}, {
3.9088`*^9, 3.696*^9}, {3.5*^9,
3.5*^9}, {3.875*^9, 3.*^9}, {
3.875*^9, 3.*^9}, {3.625*^9,
3.5*^9}, {3.*^9, 3.125*^9}, {
3.25*^9, 3.875*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
SubsuperscriptBox["\[Integral]",
RowBox[{"-", "\[Infinity]"}], "0"],
FractionBox[
SuperscriptBox["\[ExponentialE]",
RowBox[{"-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"x", "-", "0"}], ")"}], "2"],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(", "1", ")"}], "2"]}]]}]],
RowBox[{"2", " ", "\[Pi]"}]],
RowBox[{"(", "1", ")"}]}]],
RowBox[{"\[DifferentialD]", "x"}]}]}], TraditionalForm]], "Input",
CellChangeTimes->{{3.1217`*^9, 3.8337`*^9}, {
3.2647`*^9, 3.2643`*^9}, {3.2647`*^9,
3.2645`*^9}}],
Cell[BoxData[
FractionBox["1", "2"]], "Output",
CellChangeTimes->{{3.816*^9, 3.349*^9}}]
Cell[TextData[{
StyleBox["Graphing the PDF",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.5, 0]],
"\nTo further look at the properties of our PDF it is interesting to graph \
it given different parameters. To graph the density function for C, we look \
at three cases: \[Mu] = 0, \[Mu] > 0, and \[Mu] RGBColor[0, 0, 1]],
StyleBox[Cell[BoxData[
SuperscriptBox["", "2"], TraditionalForm]], "Subsection",
FontColor->RGBColor[0, 0, 1]], "Subsection"],
StyleBox["=1 ", "Subsection",
FontColor->RGBColor[0, 0, 1]],
"\nFirst, we look at the graph for when \[Mu] = 0 and \[Sigma]",
Cell[BoxData[
SuperscriptBox["", "2"], TraditionalForm]]],
}], "Text",
CellChangeTimes->{{3.261*^9, 3.104*^9}, {
3.29*^9, 3.2144`*^9}, {3.2033`*^9,
3.187*^9}, {3.595*^9, 3.0416`*^9}, {
3.1857`*^9, 3.952*^9}, {3.7117`*^9,
3.901*^9}, {3.2645`*^9, 3.2646`*^9},
3.2644`*^9, 3.557*^9, {3.813*^9,
3.301*^9}, {3.808*^9, 3.477*^9},
3.94*^9, {3.*^9, 3.875*^9}, {
3.125*^9, 3.125*^9}, {3.75*^9,
3.*^9}, {3.25*^9, 3.25*^9}, {
3.5*^9, 3.5*^9}, {3.75*^9,
Cell[BoxData[{
RowBox[{"plot1", "=",
RowBox[{"Plot", "[",
RowBox[{"Piecewise", "[",
RowBox[{"{",
RowBox[{"{",
FractionBox[
SuperscriptBox["\[ExponentialE]",
RowBox[{"-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"x", "-", "0"}], ")"}], "2"],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(", "1", ")"}], "2"]}]]}]],
RowBox[{"2", " ", "\[Pi]"}]], " ",
RowBox[{"(", "1", ")"}]}]], ",",
RowBox[{"x", ">", "0"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"x", "<", "0"}]}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{"0.5", ",",
RowBox[{"x", "=", "0"}]}], "}"}]}], "}"}], "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "10"}], ",", "10"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{"plot2", "=",
RowBox[{"Graphics", "[",
RowBox[{"{",
RowBox[{"Thick", ",", "Red", ",",
RowBox[{"Line", "[",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",",
RowBox[{"PointSize", "[", "Large", "]"}], ",",
RowBox[{"Point", "[",
RowBox[{"{",
RowBox[{"0", ",", "0.5"}], "}"}], "]"}]}], "}"}], ",",
"PlotLabel", "\[Rule]", "\"\\""}], ",",
RowBox[{"Axes", "\[Rule]", "True"}], ",",
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"{", "\"\\"", "}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"-", "10"}], ",", "10"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], "]"}]}],
";"}]}], "Input",
CellChangeTimes->{{3.0275`*^9, 3.813*^9}, {
3.1823`*^9, 3.0274`*^9}, {3.653*^9,
3.7277`*^9}, {3.0223`*^9, 3.171*^9}, {
3.1763`*^9, 3.7265`*^9}, {3.4576`*^9,
3.1086`*^9}, {3.72*^9, 3.5506`*^9}, {
3.1037`*^9, 3.39*^9}, {3.1103`*^9,
3.309*^9}, {3.9824`*^9, 3.7248`*^9}, {
3.375*^9, 3.25*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Show", "[",
RowBox[{"{",
RowBox[{"plot1", ",", "plot2"}], "}"}], ",",
RowBox[{"PlotLabel", "\[Rule]", "\"\\""}],
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\\"", ",",
RowBox[{"f", "[", "C", "]"}]}], "}"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.2656`*^9, 3.555*^9}, {
3.2646`*^9, 3.2646`*^9}}],
Cell[BoxData[
GraphicsBox[{{{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxF2nc0l2/YAHB7783XXklGWYnv89yXJImMhj0yshKSmRKZITKyk1QSlS1R
kj3KCCGZSUbKjERe7znv6/f8cT/nc8513dd1/XXfzzmPiJ3H6QtkJCQkQ7vL
/76vfz+1vLMjVkfyf890INfa8NZ/1mcZW3/55z8LH/Hc9lj5z/XRiTTj0/+Z
Rm5AsO7Df072Pq8bnPmfC0mvPCI5/J8pL2gr8FqJ7pl9sMktN0Fkz6cbMuz3
twvvOfAX5nbnq9Ceq/wyXIsMBP/rN/Gc8L90/j1r33ujf+IH357zWgI+XbHg
3bN1WDJnVz73noPOk7+gZ+faM4ms0FvNcI49f45JjyzsZ9szP53z09WjrHu+
qCxNOczPvGf7w6P5DQ30e5b2V9txf0Sz5wcjZxoDNCj3/D2Ek6jNQ7bn6rtS
WjPG22//3wdnh1bl7/3e87HqYdpt48U9ez4t2mBl//pfPJN76NHxyT0veckw
XXn+n72IT8X6tP+zT1eufsq1iT2vzB3QUX4/tmeq0I2c415De47U86l8wvCf
abiWO2ieDO6Z7un87/bhgT0zd43qGWh92jMPoWnDhKd3z8aOYg8+Xmvbc/Tl
K1GJFa17fnOtweP0z5Y9iyfZ4x9tmve8/PbhcM/Rhj0LKp6QyWWt3nO4zsym
SGjVnn/YRLU9WK3cc3Vsq+ODgbI9P3+fcFRDvXDPgX96xkAwf886kmzXgfTx
njt2xD1uxN3bs7PZ46dBZ1P3TFEmMXWdL2HPwKuHbdaF73kxLd1hKd1rz9fI
kpuOq5ohz1YTVc2oISSXYd/CoXIDDVus3efY9ShvyU965liUkNgpnR85hM4o
Dr6O0EhGzz+sD29HDKHKIZObkYEZaGLleBXnrhnr5sUazXPQN5Uzzb/ChhBK
Koxo9HuIHjR4M8WGDqHLjhdnG5PzEK9VY8ZcyBDKPXJAr6nkKdo/yedHHzyE
+hjmXzR1PkMctSwlP68PIarxAtbm+SL0TXPbJDlwCGWZKavZh5Wg5tW1a1v+
Q0hZ8+7Fr2xl6GjJB4V9vkOoU2Yty/5BOYrpZ4/juDKESEgqduxrX6JM7Z74
w25DKH2W49CU3itUlcDgfMl5CCn0ets5DFej4Ul1HUeHIeSQp9TksPEGhZlP
Zj2wGELb8cm/pyLeoqiwXv0p4yHUQdxMKo2uQ2W1T6PmjHbjJc2bFHjrEXPO
PYmj2kPoIIFu1Gu8Hq361fQnaezmM1f/Ln3SgNRFa548VR9CKX94pRRVmtAa
3UsrUfkh1PJ+KFrxTCsaYVEWP8U+hJz9P7dYHGhDkS+qswTphxCN+DBFGHk7
mrMTulRINoROBn4J6ivrQHf/UipvLA6i9/vHvHw4ulBHrMtLx/ZB5NY/VnTv
RxfKGbmmTKgbRBHg+dvOrht9iXK+ebtiEO374akYo9aD9ET0fjy7P4icNb2e
D899RMX50dITnoNINX2545dxL+K4QaUe5zCIaH55zZE39CJuzjucWyaD6GnG
lX0ymX3I9cj1DgI+iOaWvB9c0/2E1vW/cPpR79bP8bsr8GwIZUTqDZPGDyDi
7/WyQzyfUZgEp/li0ABi0PP/qBX2GWXVy/7Ncx9Az9f9md0th1HQZF2Z+6kB
9FP/6q1ahhH0fMXqtS/NAKoKqq0tUhlHsqqXM796f0Jqsu9KDVO/opCSJ+VH
D/Qj5b5PKbVtX1GR92xXE1c/Ohj446rM1lfk9NoyUYqsH0m2cWvS2E6hwLVg
8fjBPsR+wb33rfQ3dMt4/5FfoX3oRxZhVa52GnnTWdN79fei+wy+yozfZpEA
CfNxTaePiMyX84sD7yJ6p8CT9KalE5mfL/hYpbSISDKV9QcTO1HpSdTGYLiI
ZiOrTNesOpGdkEtlecQi0vce5FZf/YDqW1/foVjdNenQN06RDyiU4KD1qHMJ
yY3ePkt1vQNRvCt98TV0BamsZ3OpabUiy0Ltx4fvr6Dyj0Ifa9haUfndL5kx
1SvoeKvi8vnxFuTgSnVLcWkFxYTotPBca0FN7Ob2odarqEIzeOFcRTOKcCTl
ETuyhqqFGo0r5JsQNYNhiN3P3+jfZR7t0RP1yHSfeZ0K7TqyvxRgRCNQjwqO
OuzQia+jzH/9O85L75B+gP/1MrN1pKc5Rt2d8Q6lTOcEUDSto4iOvPOwWIck
3y1dzsvcQFz5XYl/dd8iLd8ku7kTm2j1UdPZX9erUUrCvQe19puo7lzTXSXl
ajTz7Ml4YtCu45YyN368QrFfa6zVyzfRvRNXP2xbvUJ9hlPmsUJ/kXGWxV3S
41XI4YDyGbnff1HY/VCMSq4ShY5/0vR6uI0cU/Oix6xK0egr3Uv+r7dRoGc5
6bhUKVJLqksJ6t9G7yguBp5aLUGLWgWz0dT/UEIESbh7bAmyLrwe//DiP5Qd
7Nv57l0xUvMVH+5T3EHGFSaXhoJfoBSDdIphvR1k4WISoir+Ai1JMclNXNhB
v88jcufW5yh/eD14IXUHyasGWSizP0dcGh2SVFs7CPdhG7tSWoj+UB55RbAj
gUKSZdk2rqcoz2vlQ7Y7CVg8+aPT1ZyPzo49nxQJJIEZnY/X0vzyUXGVKINU
MgngKb9cPIefIMeLDDZKzSRg0j1cSHiWh/q6xyhOSZMCu4x30U3PR+gmlsHb
rUIKehkFWloyj9DBgrNyZzRJwSPYdqt65iGKCW0zMbMkBXfiTEyN/UN0VKWs
4EIcKUgO7kis2Oai4swIw6BlUjiylFimHZSDOtgjvjOTkMG16i69bygHTceE
Bz1gJIMPujOdQJaD+K+FPWuUIoMw2uspJmz3UZTlTRp6GzJo6A01Oo3uofMC
QXWpHWRg0Rb3dn04HQXevW6yf4gMvEnoWJN90lEK4/Wf1dNkIMsZXnydJR29
3w7kHyUlh5o/lQdlT6Yh1dEAf3FVcviWXfam8H0KYrnvc7DkETnwZFUUZNMn
owPcPi1HS8mB0LlDXV6VhI7He1v3vSWH96In4mcck9C1G1di1z+Tw1CH6IeH
zYloxubyDMZKAe+dn9pyJCWgOuFLOe3XKUDklc3jyeo4NJzmdtgyhgJSVpoK
jFXi0G8Wt86FNAqYCXu5Ulx2G8mQXtxiKaeAsQYDEfLyWJQ24WxqMkcBjZP9
0jHt0cgj14FlypgSGGufszw7GYniAtKz4uwpwercwtLOTAR6YdgpdcSTEj7o
+M6XR0Wgn/8Oa8TdooTXL1L8Fd6HIzcLei/V15TgcrI8ndk+DMUqwL/JVkpo
9aUq3qEPQ89ofaJv91MCA+VTKYXKUDT/cjR38icleKf62RkwhSJXjtLeWBEq
mN/oN6f4EIKi56dtDstRQfu31Zc5N0JQQT3hx4QaFfR+r3WxUwxBs57hFIfP
UoH16YEm7exg5PzBVHkiggpG7Er8rpDdQI4ROynKP6ggNlsiPG3pKoqwUhIb
36CCkpJYNQP/qyhPyaUompIa/JdKX06TXEXfJj+2jAlSg2T8mYD73AHIAeVt
3DKihlUeE9V4cz8UxjUcpmRNDT/bJWZyf/miRwvMrGOu1EBR417gFOGLvmYG
7FcKowbK9E9JC1U+yG5Dz3y0khqQnAdR/5A3utkVMh3VQA3FlzRtT/VeQbl5
lV6K3dQwLyVk1uN7BU2cFY6JmqWG59kDj0/Xe6HzJSs1Cvw04L6dOPnU9TKy
ds0QiAyhAcW3n8/lbFxCf4doO5du00CYBI2f/sVLKE0nIMgygwbMLiNbo3E3
1CNlOnaojAYONQpuKPZcRMe+cz74MkUDv8iGeSI+uKBx43Aj7SUamKpQaV4x
ckHXm1dJS7dpwPPglr3PoDOqfNxrF8lFCyWPF8rvzjuh/Q4J4gonaMG50OaC
/35H1NxL0p91lhZUZe4Xl765gOw0PcOpbWlh2ma5pOnMBZQlajD9JYAW/oxd
7TcLd0BMEwz5kYW04MH1VyFw2w6tWkUdGGGiA9XaWP859fPozu49S5tAB7pN
9bUS/TZIFnOKLd1HB1v44E1zZRvkyH98IRLo4NAwvqLxzwoNfSYvUvCiA+bY
lNrOYgvke/KKzb0gOohoa7pOIW6B2KonmWli6ODuxrutpnRzpJf+znPkIR3w
fPnUUR9rhmpNbihE9dMBK2rXvBVvgixafk4uT9ABU9d0FimXCdpQsU6y+kkH
0mHLxpXZxugQF7aqQE0PsprmNUWV59Cjvs2KEVV68Aga+jW1cwbdMvI9ophF
D5kif+r7fhmixPfSbs+e0kPgmcG/jnGGKEt7LFviJT2UvRKs/ytniIqxExQ8
H+nhVmigNtMPfTS4n69ri5oBYhqGXHWU9dDko05SX04G6OMJCUu6o4t+CIUq
/RJlAI9L/Zunf51EJFw/0icwBohWLfX9VamDpMhqHZqvMEBKgufisJs2Urju
lYpCGEAnkv0Yw+RxRNyQbK+KY4DLD3tqFc2PI8Of8fKFTxmg3GHqq+wZLeT3
2XYzfowB5N/eCj7mqImCz3HJ0i4wQKTq3fEHS0dRdHe7zc1NBjje1k0VdeMo
ym5WbPLmZATLmn8fanI1UHMp5R0zXUbo5Znzd6EE1C1bXf/RlBEeXZA87aSN
0Od89zVdR0bQzT69oBeFo5/ZA+Z4CCP433rlVcaFIa6YpxJiLxmBiYHiSZq9
GhKmsjbNamQEh7UHm9Z1R5B0CFsM50dG2CkVze0SPoJwv8BF6gVGSDh4w9H+
x2F0wf5UzQ9RJnAu9jxu+EwZuY+S/rxwkAlEFAuO2IkrI3+zSuExjAkeOaUp
xd1XQrEGQhE9pkxQarOML2cronL1JcPKOCZgkZuIlK07hGorH4fKZzFBG7es
vaHBIdR6yLwy/ykTKJDob7FMHERf9jUQMhuZQOq4+XMFhoOIguPu9I1NJsgp
2apc+SeD2H4GMbFRM4Nm2cdtH0MZJNLqrPKInRkumuYxdD4+gPBrxIhWGWaw
UNN3K7aQRgFTXyVYbZhB4kD9VanlfSiq9sOphxeZoa7tzws4vw+lpL30UfZn
htQrC/HpPZKoXC+mySyBGQyVJsTa3kign+UKF3IbmCF95vqTM9ViaDuO/7ZS
NzNsHFSjewhiiMGFqqL5CzOweScVlraJov0Cnynm15ihO7yAevCrCCqth4+8
HCzwWj6YqVhFGL0qUpUmdyhVBdlvRmoTALJB2xJOMcEURdvhyi
uCwL3L1MJbVmLYB+SM9ctjvOAm8Mn1PIpfChVe6R8EI9Fngpw/Ne9icv+kvx
MX31NAtUMUM1x0leRDdW8y7ChgWuB1fJHGXkQfuS4lkL/VlgYTujYqiWE8kF
h0msBrHARn/L/AdFTqRyKeAIFs4C6baNcjTPONAxbXvbrgQWUPDNeEmZx47s
/qqUrBSwgMmxbpEjtazIZeZAE7GEBf5umJ/30GVFnv3CQ+EvWSAn+8w9u2EW
dKOIjpSnkQXyqmZ+a5CzoCz7UUPiCAtIyf/+Ej7JgB4Z9jqEf2WB9w4tsoES
DKgQa/XvnGWBkxKi26SX6FE1d2nO+d8sIAH5C+a0dGigI3wxjJkVjjuJSvp7
U6Nk/J7WOS5WILvdvnn6PRU6XVKeISHACm4sYvO5UlSoM+XrsWZpVpiYfWF/
6CcFarbVSKc+zgq8ggHq3AVkKKzP9OeAHitEB62/eiRKho5qe2rmn2GFdxas
1J+ySVGtzP2FE7ascLne407zAxJUub6lEX2NFcxWaEVHs7dxb1eOVPNQVqgm
M7p4qmkLVxg58EM6mhU07vrlPV36i7+oN0/pSGWFe7dF3eMsNvG821VzDGWs
sPM3VpvMcx13IOlGI69Ywf7ie6eOd79x0Svfk5/XsUKS7Vsbe57feLYpF9Lv
ZIXtKY6U4N5VPEXMOyl+lhXeyv9pEApaxs+mxMzYLLICeVJwLu3KEs5G+xA7
uM4Kf6wY6AcuLuFxP3u+d1Owwfjxctpy50U84pU8kU2YDWaYHogF8S7gx2S0
EyYl2aBKee4lK/EHTnbferpUlg1oVpWezDnM40Fht++cUWeD6dt0te9aZ3Ff
g/mpZGM2YL2d+DapbxpXqidTu2DFBpmPizWGxKfxZSW+eGUHNqhZOcqw/+o3
3J1P58iny2yQ7LSsYqk4hTt+y7vNfZsNbDqPvff6MoGLm9ZOfk9ig8nr8PuC
0QQ+2d5/uCqDDc4JMc3btY/j1sUUk6b5bNDyuUWM7c4Yfi7QTiWjgQ0qWvtU
ZUeH8ZR7HFTrbWzQnkGnwMc6jH9629x/ppsNhCPU65/qfMaNKQ74MI6wgc7x
szSEjkHc9PZKWfBvNlgtMrSxpf+EpxU9Dh3ZYoOuma9hfk79+GCPyRk1cnYg
/ftmnNDah5txvV5eYWYHdcH0t8kpvbj5/bBDTvvZIePIhRLuCz14xjsV0kZ5
dhgg2wpznezGh7/OdAursMNQ1YkEF/tu3FLqlOfno+yglnmvnGW8E7cq4Sw6
ZckOnQZ3ZG3sOvDs3pagAjt2SBOunY5NbMdH1wL0qV3YQZMyNj63tQ23Vhtd
qPNhh7dS3SuTWq34+YY8GaV4dhh5KKcQFNyE53wz3bpzlx3sgkm/Px1uxCeo
6d8vZLLDQlDG7wT1RtxOz+Pik3x2eLKQzslO24Db9x8u4KtnhxAvOTK3gTr8
0fpsgF8rOzS1qsxTnavDp3izdPo62QHXuPLs07O3uIM1yeztYXYQ0SrJ1219
gzt+b91HusYO9L0v6FSNqvE82sB1q7/sMH7Krtkz9BX+/YBsSzUpBzxIvbhY
VlOFO3smOHozcYBksC7fc+wlnp+oqdLDwQHpr11eM0dW4jPla5RyBA7I+FdH
9qm/Anf5Y/b4+z4OmHvb9nr5ZjleQGDwOSbHAWtLZY7/xsvwOaz22AMlDqA+
/It9ULMMd70pOmWuwQEvJR5WunKX4m7086Kd5hwwy3o1eW6qCJ8PqKagt+WA
27lJlbfnX+CuM7emtZ044I/K1aTwP89xpyapgndXOMCRsTTwgfQzfFpxI+Zf
AAf4JAxQnz9ViDvktlxSD+aAPJpTeL5vAW53w/FQRSwH8NjmmvJ+yccnFpTZ
lxM5gD+0A/vOnY+ft6Rck0vngGor87dRZk9w6yOPqvIfc8CZyjuf7i08xs1W
JlBWLQfciXb/W3L2IT5oWyIy1MgBsmeKliuqc3Hj7mByrg4OeL6RYGcqkYuf
fS7UEj/AARyD5R5L1A/wXsKv/PcjHEClRvs270YOfjq6Npp2igN2ekrf/Pp9
Hzd0stIPXeSAyL6z+Oz2PbyrX+Zg3W8OCH5kWtXBcA/XP7bFur3FAfOrjPJb
olm4rkhmvy8tJ3AeODbj7pCBHx8etHQV5YTn+wjfKVRS8SadfPyJFCcsOOaE
VQSk4Meq/ISn5DhhtlH8t1TDXVzjLteUlTonJGMhtM8ck/E68ummDA1O8CQV
jXauS8Jxr4onA9qcENU/EKMhlIQTDc5eNDq7W6/mq1PRfAJe80bsVJw5J8y8
3BTZNE3A1WRW5DrOc8J33hbGD+138MO0icvHLnFC4mgdLaVfPK7Q0BWgGsEJ
zicz3bQyY/CSQ/ctfGI5Yac+gwN7GY0fzHHHShM5gW/Lx8Po8y1c9jojqcx9
TtBIKeZcV4rCn81/mXR+zAmtNbolQm6RuLT5s8bHhZxg8MQtOulpBC51WDdK
qIoTPP4tv89UCcefPOZztazlhJNCxgK94WG4JMecbnojJ+xPzLiQ+TkUF1+K
Ymbv4QTm68UHFJNv4kKFzSlUc5xAPSFKZNMMxs/er3rVvsgJ3V6nXq5Y3cCj
kwq+xK1zwt99zA1rKAhfDYwT5abkApJjbofURK7h0p7BWsP0XCC/FXt+QCgQ
t3Hwcr7PxgVXW1bbLfddxdv1jF/sE+aCUr9UhWUDf5xE40TPvCQXXGq9LnXZ
0w9XVlZbLZLlgvYONYnKNF88R0BQTVWdC+TO0wnc2vHGfX9+azphzAVaiPNa
lJAX/mxyYIbBigtI+9wkrfwu4xOf2uh77LmgLMdTlK/fE9d7+9zI7DIXMMpX
zZFpeuA3y+57C/hzwbbo8WPJQu74yycJqRNBXIBgwN6D6hIuesdnxCWWC2x+
OIZkL7nipmFOJHJJXKBzQzJOe80Fv+1vJraczgXrpdkGU6Qu+MZ5zOXqEy5Q
/Zwv9U7JCf9wiHItup4LCn144pj+2ONkkuvcBm1cQCvFa3GCaI+r8s2qsXdz
gZuIqIVWhB2eS/YhOHOECzB2wmaGrC0++Lv2oc0UFxx6wRAXEn0eZ5wvbhab
54IRkTNY3Gcb3L83meHZBhewNR/hRJFW+IuWCHnPnV0HFXbeu2SJf63xP61E
xQ1ykh9PyVhb4PqPLNNes3PD0QoZb3dLM1zcR1z8gxw3uB794a3deA43d+HS
TlDmBu547qgPy2fxeCsa13NEbpCR8R7+I3UW39T6UTSiww2fq2OiFQpP4wfV
Rj8+MOQGP4Lx+ZrfRvgFue61Cya7+1vraX49YYR3c5Wr/3TghlecuooiJIY4
FX2edelFbhimJnt1q00fV99JDfH14oa+nAwjrexTeN73wJZ/N7jhPOHPpwBn
XTywSvMMcyY3MF9jL0E+2riCZfeizQNu+ONfzBiWfRyf27GMK37CDV6iAhWo
Sws31/ZtMyrnBrfAvkMCx4/hbPNkTrnV3DDaV2bVGKOJt8fFU6zUcYMnn/b5
hYGjuNqnfJT8YTf+Rjz1t5sa+HKA8shULzc0VD3XPTEBeIFA/VXlz9wQfO1r
pLEW4LwXhis+TXODssss1Xl1HN9YYZThJeGBEcT36wmHGl6cmtHmQsUDBSXh
1TsiR3Bn9X1O1Qw8QHmCeeTHYdXdr1LIteDlAT6btPcW11TwO5If0DMhHoj3
uyygX6CMn2g3G9mS4AFSdOtR5ZgS/pL1Ck+2Ag+43FVfmLJRxN0rdip+qvLA
fsG3LrIFCrikWewZhHhArOOW+9LmITwl53HcuC4PzE4sLVMXHcR95QcpxC7w
wLzgRKjySxlcrtch98pFHqht/kRb/eQAPu27hBov88Ci2ukeslxp/FwtXeCF
IB64GkF0jiiVwhnsUnkqw3jgm+mOFKF1H95IKV5JFcMDMvS0I/umJXGlU9jS
k1QeuNtOlAhUk8B/LLbFbdzjgS0pTdFDnuL4o2RjGZ1HPPB+8/gr7LkYzvHF
w2mumAceNdBMnSGK4iuuuSMy7TzAoEiREWQghBcwyQde7+aB2/jEm1ZRQdyu
tIan8xMPbOQefMJGKoB//NN3xuMrD2DnXN15Rvjw6Hu2S29neSBcv2kf12de
/KjGzziWRR74XnxILHWcBy+Nom4v2eKBdu/qmjYabtxVJtmJjJwXYkquHvm0
nwsX7RamPEPLC1Hq1yMJZzjxBG41WOXkBd8sq23xN+y4Z55bpYo8L5DasLfc
+c6Cj3YR7jKp8ILX0PnN/cos+Kk/7VemibywoyH0fZydGZfW238o5SQvVMke
o+2OZ8DTfAaZ3Y14wYNAjBC1pcep70f+1DLlBfeMpw1FOB0+tfStcO0CL1z+
cVg3kZ8GP024G/3BjReyGWK5dwjU+Ltjx1weX+GFU4Rew34JKjw7NVfyXAgv
XH8+HsJvQoGbYDYPyrN4wdqW/k24BCne7MgUHPuQF0rUywLjL5HgSnfeWDsU
8MKGgkaZxtUdjOUrgZ+jihcU83siznzdwoIYOjbna3nh46kvucLP/mILyleH
Gpp4wfghw92qkE2sPWow5UovL9yfWaPRMNrAVEsjfXQ/88LxfRYyaifXsSfD
KmfFJnjh0vOP1Mz6v7EwubusvT95QanQKv2O9yqG9xnFKtDxQU+ha2DdoSXs
2TbJRTpWPtAsvten6buIEfYV60xy8wErZ2yXdPgvbCOAiTpRgg/KzckDGyZ/
YI4P33xzkeEDrRYpo8i8eaz/vVujhiIfbJPLvAv1m8NKhTpCloAPSl3u3SBH
M5iwztXzbdp8MCdjMHRT6TsW77UfPdDngxzLUX8F5WnMrSlyy9CSD0ZPviow
Mp7CJC4e8yv244OmJXLNT/QTWHLyyrmoID5Ioyqj+as/jpHV5iqdD+eDSM3q
v0SlMWyUhXSZOYkPHNN9usTjvmB6asXd39P5wCMt3yvScBirsbcpepvDB6vH
BO1chT9jaZVv3Dxe8MHJ5Pkp/+kBjGrcTVe7gg+oDvx9mDL8CfOh5ZcWes0H
+7Xbkni+9GOnLa9+72zjg9Dvr8OctnuxuvD9zXndfCBL+23RQKAXky8afBQ0
wAduj2+Q9h7/iDGQHbaT+8YHXHzIlrWiG3vlR35mep4PLuoaWHZsdGGOC12a
2ct8oMKZz8uS2onVDTpLMJEQoD/juvH4Tgd2SV+Zq5mKAKkB2rbKbe0YXyMp
dRAjAVhK6MRe3W/DrhRlzCzwEWBUnDtY1KsFE5ZwGnosQoBf5FnfSS41Y+8z
FNutpAiQrmYit+PVhElGvC/8oEyAGwVXnoZnN2CfLf+5PzckwMKLKMlppzos
8mO7zQUTAuSGSSun2LzFlE6kGgpYEwDdmoqS33mDxSkeVLh9kQCrtFne8hdr
MPWnW6JaXgTwUzcoN1apxmYE29i3/QnA2MMn1sn0CtOgs1tziyBA0NDjWO9v
ldjPG3LT4rcJ8NJVPvXuZAWWsbb56UsSAVTjKAPm5sqx1fGkKr0HBNi0Y6Ax
IJRhD4zPP6XIJ0Cp9KWyq0dLMf33MhmvXxBgyPn1e9YrJVj+y6ZAmdcEGDuK
jQ+OFGHnZBPdpuoJYLziyTzm9QIje2htldVGgGR/o4evuJ9jlnHrOMMAAZzC
kw6juAKMlqJRvnGEADEpYamPrZ9ilQF3hK9NEWDqS1ukMTEfY76wn+zHEgF+
tpwYNhbIw15/Xlt+uEGAfy9c8pKFHmPOhvVfLXYIcE1Z5+wfmUdYvbpFUwcD
P3QZ0fMYOeViHiX7KkPZ+YEY+q3BKukBxr9vNU+djx/kT02xN7bmYL5st6MK
9/HD2KXEPJqsbEwsyizAXo4fHtbYVKiq3cO6tyVcCcr88FEq+SX7TCYmPVur
G3OUH86xh9LyeaZjA9YxRE0dfmD1FT2ycyINC+szkf1rwA+v9W7cJJNPxUbf
LjJdtOIH4Uv9ecLCd7EY5Tc7og78MMqr77NfOhlTLby1+NmVHwYyPesPoCQs
MUX040l/frBg3mhSiUrAEMOverIb/JB574+VWc0d7EdITVl1+G6/lI5JRr/i
Ma1LZ+9KJ+3OU1p62o3jNuadWEPikb6bP0k53N0fgz16KepWdp8f7oSfr015
FI2RkS0dJT7jB0cnP10e5yhMYZ/pi+BSflglUWpvt4jEbPXe8jZV8cPUrUcj
HeYRWF3K7cVTTfzQJ3jkxLh/GParZtUisYMfZBhsWtlSQzHBCYuWTz38oOas
3tVTexO7fkA622aUHxrdpSUd9odganXNupfX+YHbw/71tXfXMJdvsi8rtvlB
+dkHAeWbgVga3V3RTXIB6KI0+h5ueBVbP2v/5yaLAJj9Zj5Rwu6PSV5td2jh
EgB9rq62q9R+mPH9Q930AgJw7exJ1moqX6x8dicveb8A8HSWy5dJeGNfmZzY
huQFQDc7kCXi2BWMTanzuoCKAHQ8nHUgueSFXQ7KOpt3VAAUPCdnDYY8sZyH
5HVzJwSgs0x6ypbfE+tudT0gbyAAVT0dAvu73DE59iNkVRYCEB70J5tE2g2z
Us25tGUrAPxjGWT7F1yxWCvqIXAWgM1Mu4f/3rhg80/6i9q8BSDmEnmCY4QT
xveBSGAKFIB5yZPXJq85YieXH0acDhEAy0Yah9GgC1g+0ctq+LYACASk9Tk+
tMcGbYdahZIFwCfzVThNkx1GHQlKDhkC8OulGu/ZRVvMsYeJfiFvt77inyPa
duexu799fA89FwDrSwvJRoY2WCNhZMKnTADchEw+GvywwsQcC6v+vRUAu2Tv
Iuy0BXY6hk1cs1kABo1Di8f4zLGbxQHxke8F4Lh062/hJVNsfFPbkWVIAAiF
sdcONhpjLMJFPWfHBKDoxMm+b2/PYUiLC0v/JgBaAyJCNC1nsez4KXbRZQF4
m9WTmbN2GvtQrnvDcUMAfjqtu0vzn8a2hkrnCv4JQPA2L+0JPSPMQjzknSK9
IFwwtuhVjjfAonVmZPxZBSFnO+oTm7g+Vu1ukPaaWxDog5+m/W3Vw3heCXho
iQtCmr3/sBycxP7ZPyGwHhCE9LpwJbRxAptiOtT65ZAgqF4pqKGv08aKHY6J
eCNBOM9RnzMXqIWlMHd+QMcF4eq+RcVM92PYtWqTq/SnBOGtrVGaprsmps1y
sTfXXBB4ZJ5PMiVqYDI1qzfcbXf3K+BTYawAjM0xSEbNWRB6qL4KXmlC2GhN
QniPjyDcMMuXV6kiYo2OBIV71wRB0v8+5ZtT6lgB6+NR51BBCHmtVz+wegTz
dao6TJIgCB7IaV+A92HMku3oVEeqIDB3Z8Z46qpgR9903EnNFoT7bx87fTmo
jDGxj83KPROEUAL10DlxRWz1jXPKZqkgtM7Hb/MeUsA+Oy8fbX61O4964Uat
ziEsr5Yyy6pFENaYb3/uU5XHYl3iT+zvFISWW2xx9QWymBcH79pqnyAM/IVD
CgdlsN0Lnn7spCDUe1lojF/ej4lzVm6azAqCfx0PwUZGCqOrQ0/EFgVhcudB
xdhvSayf8wxJzbYgnNQH+oEqcay67suzCAohSCxGeiMvxLCci45mp+mFIG2/
SxB5qSjm9i6gdJZHCKREZA0OjAhjp93IbSqEhEDH5V/HNrkwpsp9mz5EUgh8
z00Hi14UxCgu5TjwKAnBeKTYxY+XCNgctzTrlJoQOLgcpXeh58O668veFGkI
gVhSY0FmNQ+WxdPCpW0gBD4LDw67n+TCbjYYNrAZCwGN84V33vs5MWf3zx6j
lkLg3vr+1lcuDkypcaHVx1UI5J3ltuT42DA+Dz8fjcu7/nMkq0aOFSPhIxVl
9BeCyWfZacwGLNh7D47AR+FC0Pj1vXmELSNWype9zzN2d15hDl3BSXosrWlf
n3rSrkv7BNZ86DB7grpsb44QWJvG9t/rpcZONDcOZT8RgsNSPnOFmVSY3GX9
CNcXQkCmNbfP8wolttlsO0b6Wggqbt+ypzYgx8Yvz8d8qBeCuSprU2cjMqyZ
30c1vU0ImGbDr2acJ8USvaISDg4IwTWhoLnPWjvEzffPqqJGdvNLxsquNG4T
7fb1jI1/FYK/pi/HTp/bIip+4ZVLWBQC52I3kvCCP0SKBLtrGttC8IRekZsD
rRPncs9926AQBvt77rrKjGvE09sBDEb0wtBwjF7xIfMKscYkW/EpqzB4vIgi
T9RYIoqX1puT8ghDhPS7JB3sFzGW4XuImaAwFOElEi1aP4irjvRPS8SFQdDZ
ftTh7izR8p18N+0BYVh3ehuSKPGd2Eg4u257SBh+ZrEFmy5OEWV9/QWrDwuD
ViqV4cnFSWJKd5YWGy4MtuL3/wYITxD/Sb9zcz0mDGepw2KGNkaJjuHfkupP
CkNcFUuOCMkXYucYbQ2fkTCcqjY852QwRMxOPk3bYSUMnh636p4V9hE9dDJN
Al2FwazO04p8rJsI/74+PuAnDM37lxKXwjuILGUyq8OhwrAYVENs8mgmHhuv
paaJFN49DyoOKxo1Ef0ZjQhK0cJw6yqbdzU0EsedfI7G3hEGrzlzgq12PbGE
v/YO8Z4wuGe39bc2vCFO6xg+cs4RBoeNdD8HrddEPr/Jl8kPhYH6S+rBhaFq
4s0eqrEfT3fnHXzUK6RaRTwdYSB7r1IYiFnfZ0dKyoh5Zos6r14Jg8xRmXWo
KiX+kUlw7H+9Wy//cVZfewkxp/fjfcYGYdBMop9SZysmLggbswV1CcM3/IXi
XZUCYlSN5br1jDBwLFPqHXN6QKxddHknzCcC8kfUrHv84ohsjXSjRAERoBkO
qZ/7EUu8kFq4aSosAk3H24XrfGKIDPiCYoKkCIg8elDWXBtFNIvxzCNVFIED
eS0vxjnDiKsSfjGTuiIwSMucdv7iVaK0Rdi5R9dFQDtN5lRUiSPR7HIlG0WI
CNibSgayuV0gRkXOdNmHicAQmqrKVnUgfivTOykWIwLtLQ9fDZPbEXMYOFFu
mgiI8XVF8t61JHLWPpbKKROBO9di0yVXjIgkIi1/M2dFgK/f6OIIB5H4aZo2
N+mcKJz5oEnhkM1C7LT7psEmJAYhg7K+5cXV6hl3WakC/ojBsY3HtOdczdUn
I+pFknYdm8YRPWVprr7f/wr2fNdLGh5dVw3M1avM+70ndl392zWzRslc/ZNQ
+ledTTEYWXP+fHvHTJ29QPgd318xiHA8TeuVYqYeWyt/7fWWGFQa8u8TbTNV
7ysaT/20a3+mfcOhr03VCQ8SyhZ3rV+vNz9fZKpeELoyJ74tBkfZ1di7UkzV
W0+8NLu96xL+A/snHEzVKXrxw9b/xKDZc+3FITJTdb3GX6f9d/1+2bFwfc1E
Pakixz1x1yQ353saZk3URdPI8pp3TR8zcce9x0QdrJo55HfEQDy6LpjxgYl6
lL7fQZ1d11Hv+FHcNVHvQlJ69rv+d2ksmPSWibq1aHRo6q4Ff7vUMF42Uc9j
V79fsmuHT7Tf+S+YqP+k+FHdsWtWvsM8CmYm6iq/sz5927Wv2aLuqVMm6v/3
/zU4PFW+4a5hov4/quq8qg==
{RGBColor[1, 0, 0], Thickness[Large], LineBox[{{0, 0}, {0, 0.5}}],
{PointSize[Large], PointBox[{0, 0.5}]}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.8948],
Axes->True,
AxesLabel->{
FormBox["\"Number of Bars (C)\"", TraditionalForm],
RowBox[{"f", "(", "C", ")"}], TraditionalForm]},
AxesOrigin->{0, 0},
PlotLabel->FormBox["\"Consumption of Chocolate Bars\"", TraditionalForm],
PlotRange->{{-10, 10}, {0, 1}},
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02], Automatic}]], "Output",
CellChangeTimes->{
3.365*^9, {3.854*^9, 3.6157`*^9},
3.253*^9, {3.445*^9, 3.2685`*^9},
3.048*^9, 3.648*^9, 3.619*^9, {
3.2646`*^9, 3.2646`*^9}},
ImageCache->GraphicsData["CompressedBitmap", "\"]]
Cell["\ 0 and is continuous unlike the spike at zero.\
\>", "Text",
CellChangeTimes->{{3.265*^9, 3.2643`*^9}, {
3.2647`*^9, 3.2645`*^9}, {3.875*^9,
3.125*^9}, {3.25*^9, 3.75*^9}, {
3.*^9, 3.75*^9}}],
Cell[TextData[{
StyleBox["The CDF",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.5, 0]],
"\nIt is also worth taking look at the CDF, which is shown below:"
}], "Text",
CellChangeTimes->{{3.2445`*^9, 3.9502`*^9}, {
3.912*^9, 3.613*^9}, {3.2645`*^9,
3.2645`*^9}, {3.6507`*^9, 3.414*^9}, {
3.375*^9, 3.125*^9}}],
Cell[BoxData[{
RowBox[{"plot1", "=",
RowBox[{"Plot", "[",
RowBox[{"CDF", "[",
RowBox[{"NormalDistribution", "[",
RowBox[{"0", ",", "1"}], "]"}], ",", "x"}], "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{"plot2", "=",
RowBox[{"Graphics", "[",
RowBox[{"{",
RowBox[{"Thick", ",", "Red", ",",
RowBox[{"Line", "[",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",",
RowBox[{"PointSize", "[", "Large", "]"}], ",",
RowBox[{"Point", "[",
RowBox[{"{",
RowBox[{"0", ",", "0.5"}], "}"}], "]"}]}], "}"}], ",",
"PlotLabel", "\[Rule]", "\"\\""}], ",",
RowBox[{"Axes", "\[Rule]", "True"}], ",",
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"{", "\"\\"", "}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"-", "10"}], ",", "10"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], "]"}]}],
";"}]}], "Input",
CellChangeTimes->{{3.0275`*^9, 3.813*^9}, {
3.1823`*^9, 3.0274`*^9}, {3.653*^9,
3.7277`*^9}, {3.0223`*^9, 3.171*^9}, {
3.1763`*^9, 3.7265`*^9}, {3.4576`*^9,
3.1086`*^9}, {3.72*^9, 3.5506`*^9}, {
3.1037`*^9, 3.39*^9}, {3.1103`*^9,
3.309*^9}, {3.235*^9, 3.048*^9}, {
3.688*^9, 3.1394`*^9}, {3.4686`*^9,
3.309*^9}, {3.1325`*^9, 3.5613`*^9}, {
3.149*^9, 3.171*^9}, {3.312*^9,
3.781*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Show", "[",
RowBox[{"{",
RowBox[{"plot1", ",", "plot2"}], "}"}], ",",
RowBox[{"PlotLabel", "\[Rule]", "\"\\""}],
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\\"", ",",
RowBox[{"P", "[", "C", "]"}]}], "}"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.378*^9, 3.7536`*^9}, {
3.2647`*^9, 3.2643`*^9}}],
Cell[BoxData[
GraphicsBox[{{{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxF1Hc4lt0fAHDr4bGfZVSIKCuUjEo53wotJFkJIcooab2ppKJSoigrJBWl
MspIJCEjI6MkRZKMrOe2yfydu/e9ft3/3Nfn+l7nPuc7zi3nfNjclYuDg+MB
JwcH+b7j58y70uWafmZjtioHRxsq+ShrbC3rjrzKxmV5BdrQfFlBgKzsKST1
gZ8mxGpDdwpDFlNkr6KL9kSxhFIbOrj+xKGJxbfR+qQ3NWpmbejjtFv44OLH
KNI+WmJHQhvia25XHFici4SGN1vowQ90r/Lukb7FFYhvxwIj17PtKC39avNB
9a9IqjfidhirEx1A9bf7j/5EmV2fG86bdiOvTuWfWWk9aKxDJzNSvwe1OXyh
FlX0IM3ExjJXox60q+mK+vuOHtTVEhWkYdqDVld1n+pc2Iu0fSsWZtr3IO7n
STTxwF50ybVb+bRvD4r2ldM/ubcPvXKXPs+b24OKmAtur6ENoJItbm+F1XuR
gNxFxe+rB9GqSy/TEvj60Lt1YRp+hoPokWjnykThPnTZJl5X2nwQDTbN/rzP
7ENcoS837/EcRK4vrnwKW9yHpub6D3y+M4iEYM+Itm4f6muxTK7lGkJTv9Ks
o1z7UHW0onJh9RDKLuT5WlTQh4KytFbu/TKEDHxesVVL+tCWug1r5jqHUGvG
+w1hFX2ohM9u67r5IXTZyOGhSUMfyv8n1P3lymF0dOPbCyE9fSjV4vfjZ5HD
qIv51UqF2Y+u06pU7jmOIE3htcvanPtRrq50tqnXCBorCzFa5NaPOhwOo5kz
I0h78dFps0P9SC+VaWEdNYK68tarpJzsR7+22p0VrhlByp9c6+SC+9GmgIHa
U3qjaIuF4bhgVj+aHBM9YS4+hlauOhLYO9+P5KWd5+flx5BnduEKX54BZGqQ
dTV15Rjy21CbSeUfQEk3beKpJmOobEhxJ4MxgMw17pUXBIyh3geFGr/kB1Cq
m+ZC1aExtMl40dsEowHk3Gzxhrt6HK1L3Gtpc2UACcT+OHTkyzjSEX0yrxs8
gDJsvaS+d40jVrgylRk6gLi/Bp7K45xA1zOWoFdRAyixKW/VEd0JZDkmH9Hw
cAB1fZJNbr0/gQ6b6h1UKxlAHnX9obmnJlF4nd/T4OkBxAg9hRQDJ5HCwaj6
b3MDKG8HLzs8fBK1TXdnq3CxkWDt4u3e6ZPoSW51aQ6VjVLem1MUOydR0GKz
PXfF2Ihd+fJUuNlvtHqti9IjdTY6UnrR+bDiFLI8pD+Wbs9GMh1GvOOrphBv
aGiXqSMbVXHxP/GFKfSr6MPZXmc2WgohQ1d3TyHJ6cFkCTc2+pIXcT7x2hRy
dF+7fttRNtrw7GH8F2IKPTw7lM+4zEb02HdfN72cRv0hN5YaPGWjgtwgv8qS
aaR81UXibCobeTYZL9lZP43e2OvzZqazUalYvbtD7zSSv0R0imWx0anQL5M+
UjNIhuP975x8NvpxqVc87fwMEnio+/nwezZ67i20S3LrLBKhHj9d1M9G1THM
U6lWs8j9eMSlcjYbdZUsvLvRZRbt6Hx7sHKQjRYuUO47eG4WeZhyfSsbZaOL
RYYBRdmzqGZmIDFmho2sGOcyPZbMoZSA9JpnggSayhxivp6eQx4X4jTTFQnE
ap1cY84/j3YdvmFurUwgdSqHY7f4PIpXt8mbUSHQPjuRFLrmPGIcDfFC6gSq
5lE12O82j2SvyZUmahEo3tLluOgnvD74BtcwEOjeGc/eFdYc0DHRuiTVmkAr
CvknA+05gF1l9XrAhkCFPMmU7/s4QPJy+s7ltgRqC+mQDfHmAB3VmSMP7Agk
k2Bv3XOVA/QdfBpPOREopmRHyb18DrA9FGVZ4UGgm8Ja8YwlnFBYaS/M40ug
JeYfnrorcQJvXWgM9SyBnkd65xaqc4L5Pw5egn4Eqluc2uClxwk0ytCw4HkC
iWguE6yy4IQupaT0yQACBVlJ+gQEckI8N4vwv0Yg/7szO0f7OaHJJqrL/TaB
zFa8PKI6wgkHVM19dGPw+YqOhTn/5gTppr5E7lgC5bX31tVRuIBrmX9jVByB
hpd+2ZEqwwVWOpvr0+8SyDkl22S/GRfcFx+qvZtEoA25XlubMrngyo2q/uBn
+DzbVNxF87jAaLj57MrnBGr52nnFqJALBJdmdDRg+8zYvcuq5gJ9k+i1kpkE
eoa2bw7r5AJxEwPdsGwCyZYpGm6T4AZOQWW2SR6BOD62Qf5pbnA47lA+W0yg
iz0F905f4Ib7cMzy2lsC8XPc4VpzhRvaTxUVSZQQiKG2uyQ7ghusnhWuUysl
0NLA+s3pz7ghe8vboW3lBNqmV2x6v4sbggR7p82rCFSzMyHdcYAbJrdLmtVi
73Lzoy0e5QYpy60J26oJZBex9kMsJw8cDGjQ039PIC8iwzJCigdcbo2ELqgl
0K0HD+yumPOAQuqwzv0PBJLMu/DaaDcPVIa5SIl+JFBc3V4ZiiMPxAyZLziD
/XB2UduFQzxAddByNGsg0Evr8H1nrvDA+qyTOwY/4XoJXvLwKuCBbWbLJfm+
EGjZ8f0+FioUKHOx4IxtJZDa2u+77q6gAEWmweIXthaHjUavDgXam3/waX8n
0MbgrV3nNlHAaLV0WDW2Q+Jyi6d2FDh5Zcx0tI1AkQ3DGlw3KLBpn7aH4k8C
3YnxFDSJoMDmLO01ntiJjh1dUbEUMG/q8UnDzuj/dEctmQJ8zv6mqzpwvXhy
BXcXUaDraqaXTieBKNrnutNHKPDecbOjfDeBhKYniqd+U6D+Nvu5AzajyDve
kIMXkteMBtzGljVxtmwW4oWTrh9ThH8RaJ2r4VveZbyQdzZBdRD7eITgXXsb
XuC61PswvpdAHWNRVoKvecFGwer2owEC3d+w6ti3t7yQsz3Xqwl7b0jNjfRK
Xlipt7KGyibQVwVKxa4mXmhzMtRww67fdVQvboQXlJJ6wuUIAhU8N5ZVU+ED
Xk3OwnODBPKd7V43v4IP9J8tT36MvWZrwO56XT7g5jRQ/oid1ZZ784QhH0hp
ZP5WGCLQE1FFSoEjH0zFPep7ix11iLPXNIoPJpeeqiWGCWSRG8crF88HXIaN
T5kjOH/KavmRRD7w2+Wkrot9Pc7LLiqDD5Yck1Y+i32xqrnm+3s+YLjeF6CM
Eshb+UWmNw8VlDS/KVDG8Lx2epy9eYQKsXUCD6vGCWR0Vj7FwIcKF6e1dDqx
N4q1fB33o0L9Vbg0h73W0GT1nmAq1HIbO6+YIJBKksaI/CMq+MspKoVhC7qO
umW3UCEr9pfD5kkCUWdTog78pELcqKGsPTZPhGvZgl4q7PA1enwUe6akUd5v
ggpUz3WsO9j9CrmtRgx+2C3MsCOwqzvOWjRt5od/DtTJBv0m0DtfnYAgU35Y
PZcQFYddwiKer7PkB52Cmm9p2PkGjqL3nPnBLFTk6wfslMSNle5n+SGn4lK8
5BSBQlz4YDqDHzZq3siJxTbtCFWVkRGAI/rH5vyn8X6qHQ12CgJww3vG+Ab2
9mO6frEqAnBKZatvLPYWrtY6SV0BOGtv7JeJvVFW9R+mmQBkbM6SaMfWtist
pPoLwJVckZY1M7i/DyQ9Nl8RgGjqTmsDbM0+T+bl6wJgnnMrxxRb/TRjP3es
AHxoEFfah60UvVdwLlMAIkXbaoOwpRp+W/4E3bMIpP5lf0C4LJA
0roVe8G+hGTvYQEo3Zyi2I0tPmw0PTAnAAGfWwMmsWm08IRfEoJgf8ZZfeEs
gbiN1fu+bRWEgsZFp3dj9751Pv8uVRCWXcjZXIG9OKzJ43qWIMRetVlVh23h
YGpp8UoQnmdXC3zGLphco9L2ThCoTRS/DuybavSGiZ+CMPjd/8wctl7UG0XF
hUJw3Xn7vPocnjcXbcaArBB0tVgXamE/XPl0JkNRCC5n2nmvxaZVR9brawsB
8wI13hC7g8PrjJUZjlt+19qDHewhVXvpshB82Nn0TwB2ke7N3O0hOJ6nve4K
9jgPNZEejm2iPxKM7Xh3xOfOPSEQ2U/oRGJrNVQuyc4XgjRe+oJk7G/rT/3T
MSwEzxaIuVdgMwQJxye/heCFFmH7HntLk8t2bw5hMJB7C/XYGUfNZGeEhSE9
+fuvJuzLjxQrmcrCsN/wWlo3tjq9UXrTXmF413ZblXueQF0hXf4RrsKgsJqp
zYt9R2Ciu9tTGCYyyrX5sYV4JDOCfYQh/AWSFsXuHd9t1BgmDPqixOWF2Ekt
37zcS4QhXy69SQPbbjf746tKYeBZ6OSoic1qnFstUo/PN/i0TQvbv3Yxd+Y3
YVjia1e1Btux2ClqZlwYviqbbd+ELZXc+eaGsgiwRqR4LbEbFMYV2jVEIKnM
UdYa+9o93iAtHRFw7nDT2o09FaNo8WWjCKTFCmyzx24Kcf+1xE4ETn73UHPF
vnVsgPbiugjMlFa3H8PeNjh7ghohAn5B1HsnsLkOiTTbxorAcV2q7Uls7/0a
SfOPRGBHWUj+aWzT3UfWbC0SgdODGw0vYAugMaeWERFYZu12JATbZ4MS9cWU
CJziEOe8QdZzI6IvxaKXbylaGqjqCjwlF4Iu4V92jzk1mMVUeiO
1HO+jd3nurT0HydRCNhyQiER29bNxtPMTRTGJ3+6JWG/87hGVzksCj2KEo8f
YiceHrL/5isKyWXzUo/Jep96Pb4pWhTMVTc1pGJXB1sq0WtFwa1q37UX2Gtv
XKnp/SQKDIPZsBzs5LBXx0taRKG5WTriJfbFSLmik72ikGIvG5aHLVM3vpzg
ogGXnbVTAXbjl+JSSxkaOOiFeJZiC+9piS6Wo8Gnl36oDNugZcxTYykN8nVv
08qxM1qVGPzLaQAvDz15h33953WH/DU0uGt6/XUV9uYB24klljTwcVZwr8eO
ZwV8PGdDgx9+CbQP2KN6T9Nb9tBgGfNHNumEoOkDkc400Flb/fsj2W/FuCZ+
bxqocIm4NWKnOH/LHQyigaedZMdXsp9BlEiT6zRoHxXwbMa2ea529EkYDZJV
VQdJUzj8VFyiaaApIzTWgu1wRyb2cxJe3zTU04pNa9rrW1BIAy205FI79v75
QJtFJTSoKQodIp2/7JmWTzkNZqoD7H5iu5/gGFhZQ4Nn3ILqHWS/Gffsk5pp
UGwnX9iJfdykXT94nAZf3p1M/IVdeVxgUc9vGtwMsJ0mLRunOWE4S4NvLvw7
e7Df9/qnz3PTIetJ8yTpZVfkZY/R6fBk7M3aPnK+i104bZfToTHhfdAA9uCG
rwvPatBB9FVMFWm+oh1aCZp0qOu5LsjG1nmz9kDXajqor524Qjr8Fe39UUM6
xP2gnSawd2TlR19zoMN5hdu6Q2S+qzQz0pzo4NxCPUjaL+NRVb0LHa6Llt8l
nfLs5pyEJx3My3Upw+R9SHVzSTxJB6tliu9IlyWxVrwOpYPAoPCKUexWhaCt
bbfo8GGlsy3psQfzztxRdDh6belF0gr3eyO23qHDxWaORtL+8YXTnx7ToUBo
3bExbP2og+XsYjpoCBpEjGNbibe30cvw+kjbHNKHIqyntCro0KQw3UQ67tZG
tTO1dDCzals4Qc7LDclbfC24flYut0lnXylxkB2jw+DR6/6T5H3YViUZOEmH
BzJ6CaRjhD58GJimQ5XBydekz4d+N3rFxYCj5onjpI2jp9StaAyIuzyz7zc2
suXsyWcyQAbM/EhrSlEfyEswwPcGiiYtkSAmMSTNgLm48UrS7Y9WzF9TZUCa
3IDqFPYnd93cYXUGRO8x2ET6nar+sd2aDDAQ2GhLOjV9e/eyNQygtWoHkvbJ
2V9bZMSANtaSb6RFyuPuTjgxYOMz1ulpbM6rD3Y7uDLAznhfMOnRbU+YpW4M
WNfiEU/6S01O4M3DDDAjkotIJzZ+OKx2lgFP3s7wzGBHRX9RDj/PgHeT6mKk
g2zbfk4F4Pi43FLSh1sHrN8FMYAyYWJAem0XFfZFM6B3rvEcabVk0amKWAbo
X1a6TlrWQzxrxV0GDDdtiCNNYcsrzSUxoF2xNod03Zg+7XYmzr/Ao5/0fsqJ
tpoa7J07jGexFy6u+Dxdz4CuH6+tSNeslq5V+sQAjrcUJ9I6B0tf+zczQChG
/gRp3o9isTq/GLBa+WEs6aSEF5bxnExIvKPdTtomT8CkiocJzc9P9JIWanAw
mORjQkdz5DDp43x8q8xFmCCj6sc1R/7fvKxpvIuYcMunX5Z0h95k5SEtJnRt
v2dDOtrSuDhGlwmpt+T3kjY+nJBbvpYJIrohrqSz7m9JltvAhORRiaOkL/Lf
vvTJhAm8pawg0qvlB3y5djKBcrD5Bun+dRuOa1gwwUAyOIK0hXeP81VbJrS8
SUkgrfB5Daw/wISSypFs0k2DIboeHkzoWcJ8RTpYoF096hATAn/KFJIeXR8k
PXSMCS75MxWkSxK/TiWeZ4K4x5cW0vuOnskWimFCZ4TZPGkdzdZs5TtMqJzb
wD1P3u9heGGUgPc/qcBH+tkR3pzzD5nQevS1COkZ77CXoxlM4DE1lCZdu2L0
Jf0FE7bNl8iSvj9olauey4QPDroKpLd6S+W5vcH17B1VIR15+NGrliomFNo3
6ZJ21xDI/13DhBdpw2tJryMO5ot/YAJVjlOf9E8vzddmTUzwl5jeRHqF1+uC
kg4mjPQe2EG64uDHopRZHN+2xYV03HKd4goOFtS15uwn7d0fXdzFzQJnARl3
0uIHHd7KCrDgn4yaQ6SdPXtKwsVZ0P275B/S2qrGpc8XsGDdfL8PaWpfWmmN
FAuGkoTOkE73OF5GlWfB8K5V5/7Uw32+3FeDBVYX5AL/5N9T8u6FNgtefOoN
+pO/e1DFoB4LHBojr//J302symULC65ATARpjQOqNcZOLGApud4nHXyQSRNx
YwH96e0k0j1HpnfWerGgmjczmfQD36pPO31ZkJETlUaawz9TghnAguJMl+ek
7QNjdzdcZcHrxgVZpCVuen6zimLB19sol/TxqF2LJeNZYJH+/BXp+jg9py+J
LChrFCkgfe2RYOeeDBY8oIYUk57Pf9rv+J4FJWFPKknnlp/x/vmVBdObd9WQ
PvZh+6jrLxYo572uJ632bZHPrzEW+HcPNJDu7u6b9uAWA1po92fS94ZfnRug
icHR1WlfSe+ZvcbtLSMGtmqG3/7ME2O54Ik1YpClOviDtHGXzuxTczGQXFjQ
SboydwPR7ikGBXqsHtJbQox/LLgkBm1NHP2kSx2tP5rFi0FheCibdCHfoZyC
OjFIri0ZJv0qzT92Obc4lEROj5FeZNN4wtdbHJQ8QqdIn+FUMav+Jg5damKz
pIu9zI2lt0rAlimvuT/3o+X0Fq8sCThNjjP5f95gyr4sKQnh1Gt/3PlQLvyu
ryRQnAr/OP+AtPHyHkk4fer7H4crLeDJtVwAKSHEH9/88cZV+NUCWO888ceh
MfvLnWQXgnfg9B+fkGjflhOwEIafzv6xbbh9jVA3jlfP/fHjg5wujeaLINhz
/o8nDZJ+3y1YBDK5/9pLbHT1SnkpqGz51z87N/oUB0pBCvtfF9PzKspHpUB4
8l/fX79y0XsnaXCd+dfJTrvEY8qlYfvcv069dIJ+QE0GtOb/dcyhg+raYTKQ
8J8DLfdt5x6TgY//uTXa/7Sh02Lo/8/aLfceB75fDJP/+YugTtGWBbIw85+j
lWNT32+Xhbn/fML3t8fZ3X9tXmutpHZAFub/s9AJ1oNgf1ng+PMMonOFIdHb
c//aZJFlUqWC3P+9wat8D/3qX9+VclaoHvtrhbePIk33LPm/Q9WKVT4U/PX+
EZ76ChX5/9v5+bDs1Rt//a6SGpA/89ebvkvoO8z9dcHIst/z83/9P0UiTJ4=
{RGBColor[1, 0, 0], Thickness[Large], LineBox[{{0, 0}, {0, 0.5}}],
{PointSize[Large], PointBox[{0, 0.5}]}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.8948],
Axes->True,
AxesLabel->{
FormBox["\"Number of Bars (C)\"", TraditionalForm],
RowBox[{"P", "(", "C", ")"}], TraditionalForm]},
AxesOrigin->{0, 0},
PlotLabel->FormBox["\"Consumption of Chocolate Bars\"", TraditionalForm],
PlotRange->{{0, 10}, {0, 1}},
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02], Automatic}]], "Output",
CellChangeTimes->{{3.9246`*^9, 3.7793`*^9},
3.904*^9, 3.2897`*^9, 3.555*^9, {
3.265*^9, 3.2647`*^9}}]
Cell["\", "Text",
CellChangeTimes->{{3.598*^9, 3.33*^9}, {
3.5376`*^9, 3.84*^9}, {3.2646`*^9,
3.2646`*^9}, {3.5*^9, 3.125*^9}, {
3.75*^9, 3.75*^9}, {3.*^9,
3.375*^9}, {3.5*^9, 3.125*^9}, {
3.375*^9, 3.*^9}}]
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["Case 2. \[Mu]>0 and \[Sigma]", "Subsection",
FontColor->RGBColor[0, 0, 1]],
StyleBox[Cell[BoxData[
SuperscriptBox["", "2"], TraditionalForm]], "Subsection",
FontColor->RGBColor[0, 0, 1]], "Subsection"],
StyleBox["=1 ", "Subsection",
FontColor->RGBColor[0, 0, 1]]
}], "Subsection",
CellChangeTimes->{{3.2645`*^9, 3.2643`*^9}, {
3.2646`*^9, 3.2643`*^9}, {3.265*^9,
3.2644`*^9}},
Background->None],
Cell[TextData[{
"For this case, let's assume \[Mu]=1.99 and \[Sigma]",
Cell[BoxData[
SuperscriptBox["", "2"], TraditionalForm]]],
We can plug these values into the general function at the top to get \
the specific density function.
To find f(C) when C=0, we evaluate the \
integral."
}], "Text",
CellChangeTimes->{{3.845*^9, 3.232*^9}, {
3.0817`*^9, 3.6402`*^9}, {3.1245`*^9,
3.9504`*^9}, {3.443*^9, 3.475*^9}, {
3.298*^9, 3.7007`*^9}, {3.1695`*^9,
3.2014`*^9}, {3.4573`*^9,
3.2733`*^9}, {3.379*^9, 3.1887`*^9}, {
3.832*^9, 3.598*^9}, {3.2647`*^9,
3.2643`*^9}, {3.2647`*^9,
3.2647`*^9}, {3.265*^9, 3.265*^9}, {
3.2644`*^9, 3.265*^9}, {3.2644`*^9,
3.2646`*^9}, {3.265*^9, 3.2645`*^9}, {
3.2644`*^9, 3.2647`*^9}, 3.2646`*^9, {
3.8353`*^9, 3.6813`*^9}, {3.406*^9,
3.9837`*^9}, {3.105*^9, 3.536*^9}, {
3.125*^9, 3.5*^9}, {3.875*^9,
3.75*^9}}],
Cell[TextData[{
StyleBox["P(C=0) = P(D \[LessEqual] 0) =
FontSize->14],
Cell[BoxData[
SubsuperscriptBox["\[Integral]",
RowBox[{"-", "\[Infinity]"}], "0"],
FractionBox[
SuperscriptBox["\[ExponentialE]",
RowBox[{"-",
FractionBox[
RowBox[{Cell[""],
SuperscriptBox[
RowBox[{"(",
RowBox[{"x", "-", "1.99"}], ")"}], "2"]}]}],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(", "1", ")"}], "2"]}]]}]],
RowBox[{"2", " ", "\[Pi]"}]]],
RowBox[{"\[DifferentialD]", "x"}]}]}], TraditionalForm]], "Text",
FontSize->14],
"=0.0232955"
}], "Text",
CellChangeTimes->{{3.336*^9, 3.2177`*^9}, {
3.5183`*^9, 3.7348`*^9}, {3.1615`*^9,
3.744*^9}, {3.637*^9, 3.651*^9}, {
3.2644`*^9, 3.2643`*^9}, {3.2644`*^9,
3.2646`*^9}, {3.2645`*^9,
3.2646`*^9}, {3.2647`*^9,
3.2648`*^9}, {3.2646`*^9,
3.2645`*^9}, {3.2645`*^9,
3.2645`*^9}, {3.2646`*^9,
3.2642`*^9}, {3.2645`*^9,
3.2645`*^9}, {3.265*^9, 3.2646`*^9},
3.055*^9, 3.375*^9, 3.875*^9}],
Cell[CellGroupData[{
Cell[BoxData[
SubsuperscriptBox["\[Integral]",
RowBox[{"-", "\[Infinity]"}], "0"], "
FractionBox[
SuperscriptBox["\[ExponentialE]",
RowBox[{"-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"x", "-", "1.99"}], ")"}], "2"],
RowBox[{"2",
SuperscriptBox[
RowBox[{"(", "1", ")"}], "2"]}]]}]],
RowBox[{"2", " ", "\[Pi]"}]],
RowBox[{"(", "1", ")"}], " "}]], "
RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",
CellChangeTimes->{{3.2646`*^9, 3.2647`*^9}, {
3.2644`*^9, 3.265*^9}, {3.2646`*^9,
3.2644`*^9}, {3.2645`*^9, 3.2646`*^9}, {
3.265*^9, 3.2645`*^9}}],
Cell[BoxData["0.21176`"], "Output",
CellChangeTimes->{{3.2646`*^9, 3.265*^9},
3.2648`*^9, {3.2643`*^9, 3.2645`*^9},
3.2643`*^9, {3.265*^9, 3.2646`*^9}, {
3.2646`*^9, 3.265*^9}, 3.2643`*^9, {
3.2646`*^9, 3.2647`*^9}, {3.2643`*^9,
3.2643`*^9}}]
Cell[TextData[{
StyleBox["Graph the PDF for a mean above zero\n\n",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.5, 0]],
StyleBox["Now we can graph the PDF for \[Mu]=1.99 and \[Sigma]",
FontColor->GrayLevel[0]],
Cell[BoxData[
SuperscriptBox["", "2"], "=", "1"}], TraditionalForm]],
FontColor->GrayLevel[0]]
}], "Text",
CellChangeTimes->{{3.2645`*^9, 3.265*^9}, {
3.265*^9, 3.2643`*^9}, {3.1907`*^9,
3.443*^9}, {3.25*^9, 3.875*^9}, {
3.75*^9, 3.875*^9}, {3.25*^9,
Cell[BoxData[{
RowBox[{"plot3", "=", " ",
RowBox[{"Plot", "[",
RowBox[{"Piecewise", "[",
RowBox[{"{",
RowBox[{"{",
FractionBox[
SuperscriptBox["\[ExponentialE]",
RowBox[{"-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"x", "-", "1.99"}], ")"}], "2"],
RowBox[{"2", " ",
SuperscriptBox[
RowBox[{"(", "1", ")"}], "2"]}]]}]],
RowBox[{"2", " ", "\[Pi]"}]], " ",
RowBox[{"(", "1", ")"}]}]], ",",
RowBox[{"x", ">", "0"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"x", "<", "0"}]}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{"0.0233", ",",
RowBox[{"x", "=", "0"}]}], "}"}]}], "}"}], "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "10"}], ",", "10"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{"plot4", "=",
RowBox[{"Graphics", "[",
RowBox[{"{",
RowBox[{"Thick", ",", "Red", ",",
RowBox[{"Line", "[",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "0.0233"}], "}"}]}], "}"}], "]"}], ",",
RowBox[{"PointSize", "[", "Large", "]"}], ",",
RowBox[{"Point", "[",
RowBox[{"{",
RowBox[{"0", ",", "0.0233"}], "}"}], "]"}]}], "}"}], ",",
"PlotLabel", "\[Rule]", "\"\\""}], ",",
RowBox[{"Axes", "\[Rule]", "True"}], ",",
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"{", "\"\\"", "}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"-", "10"}], ",", "10"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], "]"}]}],
";"}]}], "Input",
CellChangeTimes->{{3.0275`*^9, 3.813*^9}, {
3.1823`*^9, 3.0274`*^9}, {3.653*^9,
3.7277`*^9}, {3.0223`*^9, 3.171*^9}, {
3.1763`*^9, 3.7265`*^9}, {3.4576`*^9,
3.1086`*^9}, {3.72*^9, 3.5506`*^9}, {
3.1037`*^9, 3.39*^9}, {3.1103`*^9,
3.309*^9}, {3.9824`*^9, 3.7248`*^9}, {
3.375*^9, 3.25*^9}, {3.2647`*^9,
3.2647`*^9}, {3.2646`*^9, 3.2646`*^9}, {
3.265*^9, 3.265*^9}, {3.2643`*^9,
3.265*^9}, {3.2647`*^9, 3.2644`*^9}, {
3.2643`*^9, 3.2645`*^9}, {3.2643`*^9,
3.265*^9}, {3.6777`*^9, 3.348*^9}, {
3.436*^9, 3.585*^9}, {3.873*^9,
3.076*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Show", "[",
RowBox[{"{",
RowBox[{"plot3", ",", "plot4"}], "}"}], ",",
RowBox[{"PlotLabel", "\[Rule]", "\"\\""}],
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\\"", ",",
RowBox[{"f", "[", "C", "]"}]}], "}"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.2656`*^9, 3.555*^9}, {
3.2647`*^9, 3.2644`*^9}, {3.374*^9,
3.946*^9}}],
Cell[BoxData[
GraphicsBox[{{{}, {},
{Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxFmnc0V3/8x23J3nyMz6oISUKSe9+vpBCpzCh7hjKKrGQ3zGREkhBNsyHJ
HlFkZYTIriQzm5/fOb9f3/vHvedxzvve1/P1fD3Pved9ziVbu+rZ0dHQ0Hzd
Ov3v9er4idnNTWoFzf8dY34CC71r/7Eu18Dim+X/mHTQbd117j+uuhW3bXDs
P94m2yVe0fQfx1+21A689x8/o72URXPgP2a005AXNqP8Y97uWpeM2+R/rFed
YrO7kfSP/f5gLrHDxH9cfCXFKe+k+H964wxJG8mi/1jj/ntdzUnCP86u9+m8
dFb4H5uHxvN/fiz4jwMs6XNZeQX+Mc0eYvmRML5//DUi+fqzLzz/WHS745N5
Ne5/7KwoxdgryvmPbQ58e1xdzfqPpbxVNi9mbfvHD/v1a3wOM/7j8SB+VQ0h
un9ckiB5dMJovfz/We5Hz/ze+3//sXpJL8u60fQ/dnuSt8TNO/yPjeypD9v8
G/5x/aeeW/v1PyBzphhBd6WXyNH7a/1Z6QbknLONSrn8Em3b0csQSt+IrBzL
PAwKX6Ljfn0BHUUfEZ3hqDMm9wp92j3g4cn3GanM91ZS5V8jxyMeL3p/tiGp
+osndXSLkUv6lQSx5z1oX9CfY17jpUj172LRPqGvSHqWie2I4nvEpuPddjT0
K3LVesURFfIevVj05rx4rhfV0X6mSyKXoSld35tlbP1ofqZl+rJNOSoOKCvL
UxpEXTrrsZMbFUhlT2XhqaRhRHeYso29phopdnQmljUMox2OjoXsf6qRnN+k
r8zaMCKO4RsHCTVoV4PgkW1WI2gmayae170G8dpdbC+XGkXdB5b/lpJq0WSq
yLxs2Rgak5fo8rhehx6weSmyj/5AoQ30T49dbEB0Xvx9tsLTqPnR9AcDn8/I
1PJpW7HCNPqyIcCnlPsZFR5HDWynptERtG8f7/BnZE08//pl+DQSqx38a7ar
BVV9KI1lmJ9Gyjrtcm0xLShExPZoVvMMSvH4+cDEqhUxVBbmDofMIZWrqxWa
K23o3DONRwcezCG56O3airzt6GVC372IkjkUfykkY7tMO7J1Yrq5f2YOmV5r
WnUxa0e1vKY2IebzqFtXb8d6WTsKt6cVoh5cQDkPnUYL/DsQM9upIOupv8j7
05W4vP4v6IyEaYUSyyLKeC0SwzD7BT1Vs93cvmMRjamoh8sydSJdH++rRSaL
6KxSJM3mnk6UOJbuw1C7iErxsAdBfp1oV+WMe/a9JfQrtCY/kr0Lefet5vu+
XkIvpgKKf4l3ocZFxmnd1iXUTTmcJSDXhS7KEi4uMi0j8tW3rM2nu9Dre2pO
mh7LiPe8R8bLuC501OuO9U/NFTTC5bs4w9KNEm/ff1hms4Iemrj+bhPsRhPP
cwbjAlZQw0IVrffObhQ5/M780MsVRJt29hMbdKOOUyOmkcRV5BF7RNXQoxvt
cplKtlRZRZP75Fy0A7qR9/WlbgXDVSTN1OJFd6sbiZaxGfffWkVOHSH3C9K7
ka20or7s31V06fTzXds/dqPXx1AcHfca8i9b4Vvv6EbbrLVaO6XXUGNcGm/u
t270/K7ZyWtWa+hu8ACd1kw32ihyiNb3X0NfVXeZyK90o1Of3ZskktbQxRmx
iG66HjTPGK7d8mkNNRXE2Zry9qBj5NhbWeNr6KdUWrCiSA+6q5rS4E23jqQm
A85/ovQg1Uu5GmTldcR+IjNRZl8Pio4uDl/QW0e/T7baLhzoQYNPqmobLqwj
6o88Vh+8B4UMdh7xyFxHB149Z80/3oO+vdW+4F26jsyC15jpT/UglTsViQFf
1pGg3xNpYcMeNH306Y9bzBtolnrGKNq8B+kQiby3SRsoE2kI/bbuQTlLd1ST
Dm6gqmz3KxwOPcj82dWYTOcN9JXslHj3Yg8qCZ0tfhK6gf7IcxJpPXoQv7nD
UN79DaQlld4p7dmD3A70sb5+vYEuWk8+EvLuQZ+4TiuWft5Aw+3hV+p9e5Dk
z1rzqokNVEKoP6B8dUt/tcqND7SbKM2+scPp2pb+1LyCZsIm0jO8jFsEben3
2tHbsX8ThbxxtecP6UGJJ5MZenU20TzaC1GhPWhGkkP2u90mGhCdqqgL2+qH
LsR4PGATPfHLH6gM70GPexcDfydtoqd/jyQEXO9BDK9cns7lb6IDv1Hf2hZb
RH9vX27YRFW1jAWqN7b6czBa3xzaRERCJTe+xQKHP+5iWttEw00OGzRbrMxO
kgzfTgOjHCXeYVv3j/l8VWURpIGPSC3041a9+LH405FUGqj/ZLCrfUuPmv5J
e045GrD9yWmfuqV3upzFL06VBoLwszoSW/2kydTE8GvRgPOl8eFLW/3qJAdk
3TWkgf2v9hwM3vJjmfHgWxFrGlAWdjXV2/Ir22OuKe0iDcz+KTIe2fLTYODF
ENmPBvhoP6opb/lNp+O4mHWdBpgKNffqbs0jv5jCJhm/pUcgXH7X1rzMd/aT
nqXTwOnfD2wqtubJGpekKPuCBsJCPHtFnXuQvTObhUIdDUxXJ7KK2fQgvu66
S2/a/petNyq28lKlHnRDZYAGyPYTzyVMe5CY+N8CWKIBXV+sFtvKW+Ot/Lpq
BlooV3a+8nsrj96LTr3HuGmhq5LVy/JoD+poGWA4IUUL9E8V1mIP9qBgLEW4
RYkWirWqenT39yC5pway+kdoQYLckNci04MiQhqMTc7RApfRB3oycctPpaKn
dtG08MGB5tsyzZafGRfKJ1JooYVzk7F/qRulcUp2OOfQAk3Hieaw6W60PJG6
7l5BCy7St+R3D3Sj/HvhpwJmaeFSopN62dtu9JE3fJyThg5Y0r7fXMvtRmMR
YQEP2emgJbIwZSlz633hH/q8RpIOhGxG70hHdaMb54K3sVrQwUAvbdT1c90o
syPoQaoLHVTQctaXnexGZTpBSrK+dHDv2Ztfr9W60bxqoO3pBDqA4cgnvyS6
kaVYQEXSRzqYqBI4delPF/JLuGq8u4cO/tqekiob7EKJ7FenSsbooIaJ70ZT
axf6tO4n+o2WHjqDZEsPFXUh5W8+3juU6UFKeu+ozaUuxPXAU64gix5yifxG
xj86kbSgZ71aIT0ERvAlSXR1omMxl807yunBme1ufU1NJ/K/dily8Ss9PBDV
POL4oBNNWLhPYNwM0OIYs26j14kqSBfSG68ygMrusKGXeV+Qa4Yt14gRIwyu
fckj6nSgaJ/k1GgbRjA/1Dqso9SBck81Sx50YwTa/RkEC1IHmto4cDj6JiOM
/B4rVZhvRy5nWT2USxlBqmyW+2VKO3LiK2yPJDNB7my9ytXhNmQfvpmoOMkE
F+y0tFgcW5G5U4rY9aBtYD/6rFXi1Se02sPSPBO1DbQb06hnwz6hu1o+AedS
tsFZ65WGZMNPqFXyzMC+om1gyvrwrOrfj0h9nP9h38g24FaSlNij/BHttr29
Q16TBQZc9ERdyhvQvNkN6X6O7eBMtR91H6xDsU2LvRoi20Hy9sf0kKI6tAdz
iCyU2A6BFk1Gb8LrkL3osd/XYTvMTOvRXN9Th3q+0ufJe2yHQxSX2U7/WlRm
fE3+xpft8DZ2d2oepQbdPO11cH8qK1xx2NsdFl2J4j5JuTx/wgqKdOQ1F5tK
lKoxkLbzDSvcFR7gjlKuRPmYJoNQGyso3L+Y7TNcgbp3Ez6vMbNBcDZ3P4dq
BZKkK7Otu8QGLzusGMen36O6QsZYE2120G04IfoJvUUte0qq2s6wQ7fR/sX5
pWL09fHFBW17dpjVeB2aVliMptK6TPEgdpjQwVUvSxQjgYgnO6lv2GGf3Y9S
GcE3yM7mxLtJCgcczNZw6+Z4hRj4EsaurXDAGyWl5cvmBYhnKoCDh5kTyH8K
3mhLFyDyB0elLF5OYGhgPRyzlI9wf9XwDzKc8CwtNPZsfD7yGRneyW3BCY+2
V+nTZuShqZfydhnVnND++g+bbelztB4tGqXQwgkP77+LM7N5jtjOM72q6+OE
y+eTc3ayPke7xb4y/FrghDfLCQfEzZ6hwipoE+bjgjLoOJa8/SmalJpwtz7G
BXUlkWV/buWgecH+sGc6XKAnjTmdx3PQKkNb8rweF4QbFuzOnM1G2wfeVYZb
cIFhsvKEnlk2krgTw/3MmwsYTjYxXz/0CFmvKhXMPeUCtsud3mcImej8hHSt
agEXqEZpFRr3ZCC3L6SesDdc8LYjVo4pOQNdy9tOK1TDBT0+4rEuhAyUavPt
lGo/FzTNzD1GOx+iro9h06Gc3EDXMNDH8DINxeP3jxoKcMOTe0uMFVga0it4
mbJTjBvsF5P0Jz/cR82Jw+p1UtxwzzkvMXI4FdVZHU5mPsYN338U7UzefQ+9
Xlw7fMufG5yPqV7R+ZuELjvxJZmGcEOdzkDJm4QkJN8vPSl1ixsepOb+sFVK
QrlVpokfk7hBKLBT08cvEWVHFf9kK+KG4zXSvMp8CSiRevlOzA9uGHg7ByFX
45BBYsSExTQ3nMp83pm3Nw7xsGRicovcUNMlLjg9dBtFT7WOtzDwQNYTK4N0
ndso/O1eVR4SDyxc4wh2l4lFXid/jcQb8YDhjhGTfqVIpFBFp2JnxgNNfgJa
fO8i0KwCIUbRlgfu5p1TFjkcgS4StA52uvPA4IqqfKjeLWQ/mh0lGMUDxOan
G/tu3UCGftZKKdU8QHOIPTBOMwwl3udjWmzggbqpCs/G36Gos7zui34LDwSx
BsSejg9FRgzSnuz9PCDMF9+HjYagM1FzRYF/ecC960T/jsRgdDfvUUj/Gg+c
zpz+6nw0GHW3Guur0POCrOXc2vBCEDIRKJ2d4+SFGpKKnIlpEDJ9ELrPYTcv
LPkanZ+TC0QplUq0NXt5YW+z4reytmuod3iihaTEC4sHJrIrjl5D5yRPuH1V
4wWv8eeKu+QDkFkBf96Jc7zQxvH503uqP7KszpZRiOEFlzNzRe623ih99Mxa
bAIvRO66KN82fwV9Z2b99PseLzj6Ri0uhF9B1jquzjmPeWEq89ET13wvZPPl
wFNCFS8sTHly3hT0RFmLP3yufOCF1ICRSstXl9GIcKpWRzMvVDOItzYZXEa2
5jQ/onp5QVWTLKJ39xKyH/8gQbvAC2+OXFt22eeBsln8Fs1WeSH3gM+nM73u
aFx6T30JLR+c1/GNygt3R45ut+0vc/BBvS5H9s3vbuj8ssmjcQk+KMwv8fyo
64pcWH9Rmk35oFeaJ1VqwAn98ilhYLXig/Q+Pj9HcyfkNHFzTMOBD4xU1a1b
Bs4jh1rJp5WX+MCwKO7MxoQjsr5mv+9VJB8QJYYMlngd0PffiryzcXwgMtd5
+FmmPbI8x7ggm8wH361bHh1XtEfmB7OKHz/iAzu6gqJ95nbIZO47Si3bWs/1
oLWn1gZ1WxWQe2q26q+H1Era2iCjlkB6gY98YKastUOGwQYZvCDWx3TxgYWy
V56iljU65WCmGzLNBzxpr40fjFmiY73d55wo/LBzcF2vve0cqtV6jOdI8oP5
NPEwEc4h9eIrpBFZftjNOxrOk38WHU4QGDE7xA+eqybz1UmmSPWkgfNpA34Q
2uulJBN2Br17Tz0RbcoPxZ6EsgimM0hFZk72oyU/dFxvn0W3jNEBlrhZ9Qv8
IFfhknntrhGSr/7soxzOD5ZnaOQNPhuggn0PznpG8sM4j5jaKWsDJJd+ESuM
44e/gdBrtKiP9lxlp5V5wA8Fgq9XLCX0keQB7RvEYn54ENcx5Z92GhGf1SUy
/eQHBR/c41n1CWTwoPht4zQ/BDjX2Q7yn0C37jzti17kB4Pg3sYSZx007xdN
EWQUAD3j1RlhijZq1DHKlSAJwIUmH5OcN5qI5rBm669dArBoVBklvVMTKSqq
zOftEQCcc8WqJUEDpYuJqygfEoBpXq7beOAx5DU1WqtpJADxZrRl7N7q6PlQ
1wSbmQCE3Xj/eWHtCPre2cDaaiMA6sblx26FHkE65S9Om7gLQNOOtM7ge2qI
EuvZfz5SAO4z1+pqjgM6E+pAI3tHAF6nPX4pEQgoytuEOpssAKIuzvt0RQAt
WWLnfXMEgNDx511IPo6a9jEu3KoSgBXr9XKerkOIbtei4MkGAZC4fqysUeoQ
Uib8UOFtEQARDQUaq2AVlEHXFHivXwCEaF897FI9iLzb49meLwnAg9r9DZ/6
lFBuffhet00B0Hpsl69/QgkNv/PWU2ASBLOmupekSkWkm3XubimvINwNHPDS
KFRAOzx37GiSFQQd3Ru2s8XyyPS8gMZtRUFQ1/5t03ZYHsWYbXMyVBUEzgQJ
B8+mfWjl6GRev5YgUJruP/gwKYdaBF4emrIVhO99D5XJ8bKIiTXbvNBZEAq+
eX4ba96DDm0mBXl5CEL8MW3v0xx7UPa4X/3GNUEwTfeiy0uRRn7FR/Q57wnC
1Ikuw54xSSR/rmXa4qEgZNuYDn3SlUQ/N89F5+cIgrHIr4KdJRLIVMOr4fRL
QWCa4m4pT9mFVDofo/gmQZgU79Z9FbQDzfoo9o+0C4J4ZHDHH7od6KlYla/i
V0FIKA22ZLlORcJ2va86xwRh7L3kkdQkClqaY5cRphECct/YsaxuEspPSmk4
zyQEGqPsSwdcScjxkIRDCZsQwLXTrge2kVB3MGScFRYCtdxPZ24Fi6M33JeE
0uSFoNcu4f7lVBF08dXmqyllIZCqPhR9+zcB7TKJ1EdICGwTL1RXqBFQYvqj
6EFtITDJTVFbWxJCXnu7Gah2QhAa9fVvRJwAkm23zbjkLARFqzTKfbQCaMxr
BtW4C4G9jKFz4mV+ZFi23c8uQAh8WRbRmg0fUjiBzeQkCcHjh93LEY48aHK6
IXrpvhCoksNNJWa4UVa8kYxWlhC0RYcF3ffnRnx9rg4/84UA1d870nOPC805
ZfTLNApBrDzDs1dz7Ogpx16/qy1C0HeL5YrMXnZkXfhOqLlTCA7KtGzaubKh
tuUOfddhIVijP3SlaH07KrzB3FiwJgQnGPq+d+puQ04y8Q509MKwmCVyIuAF
M6K0kBj1WYQheEF+rwgXM7otqALz/MKAD9m+6B5kRG7ZLq+V9grDqp8b88IL
evTts0gCh5Iw/GIzyv8jTo9OLDdeGlMVBvNH1ZbVd+iQlM7ufYnHhWHo5ovZ
uBu0aGRm9NmCnTCMQl23v/ImrieScKvJRRi0LtOfatXbwCvV1c8/uiQMcjmW
oucvreNpSRm7DIOEQfpDOJTXreLGmMXDl6nCW/ufUPHqgiW8zp4jMDJTGOr4
18Imlhdxhdj35rZPhUF7DdIoGos417CIKF+xMPROvjmmO72AN97oTrzULgym
yRcodL5zuHLhdU/tr8LQH2FdcXR8Fs/pVTKgfhcGbi8+mUdnZvFQ2QTu9ilh
oJOL+KupMYPjHacj5bcT4CyVSepmxhT+fJ3GeTs3AW65yb+nf/sbF5HI1xoS
JMD+ZaUVsc5JfMmHgzluJwHen4Baf+ovvJD4MWgGCHCMGKW0j2kCJ2n5WjZo
EMC+9LDZlM44HuOxGz3UJQDLE2bajbtjuEvt9bVT5wjQRgm+FgSj+E5n9Sv5
VwhQl2Aqf6xhCI+PnzO8EUCANb4RhfdKQzhdWYaCZRgBxhpfhl95/B3/xkU7
y3mHAOZd1AD87iCuo5LfMp5MgDOn/NS5BQbxdzYWeeXpBFhZUtzhsHcAv/v6
vYtr7tb62yHKf7X7caZBF22NVwRgbw261W3bh3uyiEoRSwlwri0r4mZoL653
zne8uYEAE6JOKwldPTgb3QFr2VEC8Fq3S+rXd+Jvr9Drj/0iQEWseeAAXydu
//vzkbRZAmh1Ffs+cviCV3Q77uSgEYFDX0Ttjot24Bd0FQXqmESgg/dm3fer
7TihhpY5gF0E7iz7PqSOtOGX8lImfhNEIJQU+oFc1oqTdjr0PCKLwK1LB+vv
72vFP6XsbzSTFAGYeJ585EkLviv807MmRREoK25NkNL6jH89t3HxxSkRUNMY
4neP/Yhfb2u0sDMWAe2GvZMNRY24gmbSKTFzEQi+fZ9Y0d+AR++Xk49yFgGv
j1Lna9Q/4IeerFGOeojABZOGdM+genxCvIF33VsE2A07HLbX1OGHt1svuISL
QG9JqKu8aS0+dU12bEeUCCQXfgv0eFGDpyysdPbdEYGYtb6iP4w1+PzgnWKd
hyJgE8ptyFxXhT9+U+snUyoCDmL+53MDKnDDPXEuI1UiUMTxSvXRn3KcLtPc
LLVBBDZ//E3Y/7MMPxe9iLN1iUCKNF2C9GIpzsJQs7emXwSER1cxcZZS/LVP
LMl/RAToHYXqHCnvcE673XSTMyLg2Lf9xG6nt3jp14XZzCURKOkt4VC8W4w7
nqoaPrspAv5DD0g1n97gVYfO1n5kE4WH3WYVOZqvcS+eqBvPJERhmLO23D28
CKfeMPGxkRUFqtHrO77DhXjL+k4nEUVRGDuozpJ+tBCX+lGmHaEmCvZZMfVZ
QgV4l3mE6hEtUWhKFGlWvpmPh3YY71k9KQre1vK1j9by8G/l0xzOZqLwPaHl
puivF3iE4vtNiq0ovFIqkO2Zeo4rP7s5/dVJFL4cNh5LWHmGxyVS2o57i8LJ
wffmQruf4kcvGCRI3RGFZwVBxt97s/HLce9oXJNF4eYVMzLPrmw86w3FpeiB
KMQW8Ku/9HyE09HNqKk+F4WXkWcyXuzIwuUlzuQGFopCVvQAoTgkE7fSKReu
LRaFiYjvxinjGXhFYtT0iVpReO9/+Lfx+4f4n3fzZ+M+igLjJYH7U7IPcfHv
Z+s7W0WhqFWvqD0rHb8qLZVm8U0Uok5TxnhVHuAqFXXa7oui8CvXOrjkyj38
/OieN6/WRWEgaLuabHIKfnd7AmWFXgyWmkZHL1Qm44sGNsvBXGKw1hnPEb7z
Lr7Lt9G2XkAMuOTVitcsk3CjB/taWMXEwF8mzt8vIxF/+WMzO363GGi6ldv3
KSXgwxwOPD17xcAyT+iIw814nEeh+aqYkhjEiD1K0P5+B3cPSDXIVhMDXf1x
nWvpcbgs70G64rNiUFL6LdPxTCxuppx+Yc1KDMof/XgulBmDR5ox94Djlp77
DDp196PxXzlf8houi8Hcz2QNg2eROKFJVYTDTwzq2ibxt+8j8OOzmeF6QWJg
2mEYGdV1C3+s6mHWGyUGWs5prumkm3i3Vc8HYvyW/vpr4H7yBs58HRRsU8Rg
BvzqvoRex+1bOVh/Z4vBm4sBnjF04TjV/lnxRrkY3Bd6kxapHoLrRfDsOFIn
BqrtFNc3GcF4cL5PzPVPYkDiWDnMyBSMD65o2HP1iEEj321pp95AnIuU12ow
IAa1yuo6CicCcXRUAEseFYN5L+oox/VreFrMCC9lVgwUsdcCXr5X8aaX2tfs
l8Rgik31Qm6gP77WU/jz6YYYSBM54sej/fCzO4Iq97OKw447liOWVT640Fsx
16M7xOHdH93hhQAvfMMmR4RbWhzCGqfnK3I98RGOfR/69onDW6nwt52jl/F8
W3XyZSQO+qVGf8YdL+GJnM1N6Jg4BH93PuT80gP3LzH2ZT0hDpYJy581mTxw
DS7n9gxTcUiwDvE/UOqGy7ybv3bRShzcC/ktB4huOI99gIyKozgwsd1gF+dx
xb+9ux3W6ikOZTu2n47odMG9HIoP0NwWh1ftls0nOhzxczxqIx+TxOEX9Wjg
3p8OuNr7j7FJaeLweNgDv7jNAefgHfgh+1wc9pP1Q/vP2eHz7x0TVwrFQegx
o3tQnC3+1XFWre6tOGybcWU7/9kGzy5jTDWrFweimt4eenNrPPJ8jObuZnHo
W+j4q5JnhXvwCS/Md4hDRY9sRwWTFY47yehGDolDqljU09wYC/wLvz7Nu3Vx
GNk8xDEvdBYvqeh7Hs5ABJPIteH3fKZ4urO9iR4rEfjdE7fREUxwl0qfwh9C
RHCfevH9ETLG9VzoLV4RiWC/b0PAxsIIVxaMYg3aRQTnHR0uhtcNcYYL6bZC
CkTYVXSAUDilj/8UlOIeUdl6nsBF1pg9+nhLVdH7vK2dWe7g1qfjkh6eKlQv
oHGSCA3x9guVvKdxhZrfHzydiGCXs4O+FjuBE1yveB52J0J3tLjzKFEHpyHQ
Uti9ibBbPicqg00b/+TK55cVRoTrFq66rgxaeCEhTcItkggLnexetRya+N1a
iY5Dd4jALXp/31GKBm4jcmhPezoRrOkcNtxsjuKadTU9aTlE0LAt2+Mfq47L
uuuGO+USIUt+cuVi7RF8pc5qgLaUCA61kXXjR9XwOI8bt+W6iHDDZYHLfT/C
Vz49L77RT4Smwyo3cG4ct5ZoHRgcJkIJsVxRd1kV398nLHt7mgh185kVzWMq
eKoSbvjjLxHi9Wg14n8dxBluW/sfXifCIq3uzqPLyvjPDMPRJQYS2PIcL5aT
PYCLt4wv7dhGAr0rFz5/MVDC9dZ92E6zkkCk6GO3Sogi/s44bf8TbhJksNw5
pvB3Px7JNh5kIk4CX6cszqk9+/CKgz4JYWQSDP86QIyIkMPn7VmfFOwgwdKd
LN6N/r34ucq9LSzSJCh4a31bOWoPHjtVOawoS4LXic6fai7L4DUiBotW+0gQ
yqvy2N1eGt/j5S1ecoAEN0dlrGrsd+PWmdvlx1RIIKo64/b+siSe2JJ6lAcn
gUKVl/7VCAl8Q6rSxUmdBHOv+l0F23bizQMs7winSTAkX9SS/46C07GnNh8z
IMFjYgrpAzMFV1KRHfIwJsH95t2Jl0zJeFq8HstHMxKcou06n8xDwtsqR0QX
LUnAZNZxUP2POM70x0uOakuCIyMZy69rxHBXrXvGfk4kqD7m+IUaK4Jnee1x
zrlAgn42iWtnwgh4d2Z5QLsbCRbLJaxsQoVx2Bh+JH2FBHtmRG4lpAniXEUy
870hJDiaNLSopcKHqw+WMW+7ToJffIaBi5d5cW/20yIKt7bq/dzdtfKaBx90
8FSLjCXB6e5a34WT3DhfArNR8R0SiJWJzzhnc+GaVcnnRxJJsK2I2VKJngsv
EC2LVb1Pgu65IId399nxMa1TWY7pW/VuxW4k+LLhhCtDb+Izt/wwXegxsWbF
g1uZBiafkCCJ8484y2kWXC/85J77r0kw33rz+7t0RjzbZFrr7VsS+IQ4Ft5v
ZsCXZW7bfyklQeSfS+6aDAx4envbA/ZqEuyK+uHWG0aHz2VfKt1dR4JoB22N
Q620+DFfvp6jDSR45uLPpk+lxX+TjHgCPpOgLoXJ2P7VJgbzf2VT2kig+T7q
6fZrG1h8fZL26y8keLuR9/mowTqmcrEndKqXBE817Sw6iKvYjXfnFs0nSPDF
1OKQi9wi1he9zuv3iwSlL6TVa7T/Ynut0+SSpkiQTBNAfuO6gHVuGzz/eZ4E
fLw6XTItc9juvsDwX4skCKo+HSXANof555EzmVdJENITmu54chajGtn0IVoy
bH/s1in3axrz2s2wfJaBDL98bTMpR6axxrUsfm9mMtQUMk2Oq/3B3DLHdPPZ
yaDo8LU8YnASK5s+X0kikMH/VXEy5eEExlOz/ZuqGBmEO3ZJFT0dx+ySnq2c
IZFBYtkzOPf9GMaG/95/excZBtEwMWhjBLPgjj71YjcZFoiHsVzpEaxwRPZC
gwwZttFO3p2xHMZMItyyafeTYcC4per60HfsuTl3tZjS1v2B9aMast8xGvnC
gYMHydCbz1i2FDiIZXfPCXmgLT1jOvc0Ln/D5ndeiRjSJkP+zsmuTz96MM1l
wccbumSwXuH8VTnUjd37VFxD0CMDU9is/q/RLkzt0sq63hkycMd2tuuxdGIJ
x+4RXM+SYf31u5ovkl+wCWHVAxHmW/U81/0FTndgMRVX3aptyVD3xWXoWkkb
NnRHPGrAgQyVTb45zKutmJJD+ZNVJzK4vlKXYj3SivWx0w7vdycDeVZ+qq7l
MyZ1NtQw6yoZZPWPx6zTfsRM3F/zMASR4fjLJL7PHQ3YjesTn21CybDHau+i
98sP2GiRznFqBBlaAk4vKt2tw/gaA5hDorf0atZaat2rxdQG82uGbpPB6uOx
U3JParB0Nn6UcZcMd1q7JfOHq7BmisYabSoZyl3/zFzkrMLWlX3eWj0gw119
yDihXomZ2vXvJ2eTAe/a3vYxphy76cc5E/iEDP0/bzA2S5dhxbcP5w4+J4PR
ap7Hnq5SjL/skWR6ERlMJd6kepiUYOodXaObr8mQ0WQUTNr7FvP4yZJpUUKG
izUrju+4i7EWgYtixEoysDssTUWuvsI2ZNK/BtSQQW+pVL6U9hW250hb0rd6
MiTVPDzewPMSu+WqxJPWTAZ7Gw30WL8Qexvm+Hm9lQx0JV/67gUXYBP3UiLN
vpABPAac80vysaMfNpjE+sjA6HyT1fpmLnb5m1yN/wAZIhUNT1RLv8Ay5q2D
+oa25pOVQ/Tuf4bRkOtX7/0gw/VRHhY1lyfY3gPLxauTW3kVeqUhovkYMz8h
7XV2mgxIf7Tjs1wO9s4nZpqwSIYJrfqE5F2PsJ8xlS98V8iw1ibUlSWfhQll
zzl9XSdD3LtNpitamZhXm/FoMgMFGD8YdSUlPMSyJm5mLDNT4O2T5SKmxnSs
feOdhQkrBSyeb0T7M6djctKkr0I8FGge0mMZPHAfszisl+TNT4FsCeUV65F7
WLRxqEG3EAX2hT16QZeegv0KmWhOIlLA/LhM2drhuxghhRC5SKHALYrKOkEi
CdPM19Ey3kUBAxVjmX6hRCy7L79aYA8FLp4uKBclxWMds0OBXnIUkLAUqYxV
uIPRs/DjnfspEJgafyFBPw6zVPQpTlChQKjzZyvfvFgsRvuZ5wJGgTfHObmW
OmOwMqt+ecPDFBgXmjF4aBmNiUQffsGnSQHpzcvzLY8isONZl5wua1MgoqSW
Y8jiFuZd8kiiQ3er/tnHP19I3sQ6x1gy7hhSwFlvZG1wOByrM7iZ+vYMBap/
kvk/jIVhr6u2JQ2cpYCcTFzl+flQLDGNOVLaeqsfUueUkGwIFs52Pfy0HQWq
BAwmTpoEY16+TEFXHCmQu5G6PT4qCDM0YvSqvkgBIW5DqVrOQEy9JtTthzsF
NiQLRJbfBmAK8gzOnJ4UEL5vLvvM5irGx0FvedaPAj/d8Nenh3wxBv9g06CA
rfn0BP7gee2Dzf+gNcwJokDf7WSz/ERvrKOW5vjcdQqsTHkHn/P3wmr2B6oL
R1BAnY/ezSHQE3v5cBNH0RTIe/En61jMZSz+6sb+iHgKPIpbUyz66IGF/roq
W5BEgfVybYLdkjt22WRdsiuFAqM/Peb3y7pj+oprYtSHFJDXv5xyxMEVU8v0
E9LK2qpnVrDKwXgRk+de5XHNocC95cXzsoUuGM/vZeZ3Lyjg1rZz5MsBJ4zu
rA/d93wKyBKNlHdynsdmPyytMb2kwJU/bqlGcw5YW9bijF7JVj9qO0/tH7TD
qniuTHq/35pHW+Fk57gtVhj4dyytggIhsU9LdFZssLhzC70/67a44wL7V8wa
C2683MnVSIEjn86b8F60wjyU51uUmrbyajW9YZVjiZ3mm6sNbt/KT1hHo6OD
OQbBHhWPOynwuOELzQqrGSY3PVPS3EOBhLX4rA/lZzGuT9N5hMGt+rUmWmF6
JhiNittTGKZA7Ie8o8pyZ7DpnD9Z9mNbz1NQ4i0kGGMtIVPJhZMUuMaLVzfy
GmIVMxfiu/9QgEnCN9+SbIDlW/yO3pilwPu3D5ifHdTHYg9NhhxfpsAuXsXc
8BunscAnzgFua1v5qu3SOFh2CnMT/OWduEmB7qvakzXLJ7GTcz8uDDFS4dB7
twmCxAkMtzrvuI2FCqd/PbZ4/EUbk/08YS3LRoU33dVrineOYxzPxo19eaig
00UrWaKsiW0IOeil81NhnuXnfS+iBjYVPqZTJ0SFc+doPcp4jmHN1qOHeYhU
eLStwrNaVB1L5v3b50ehwnuvTDUd4hHMtobJe3QnFcxVLC8QZNWw1Z2SucUy
VHhsFkFWvghYXaeyFkWOCkf1cnqGVBEWd11rJGI/FaZTMubCCjBM8ocTwUKF
CqsztAej21WwuWS/Vx8wKlS9e8Qiee0gVnY88pT8YSqU7tyXZnpIGTN4/iKc
UZMK4jnLGnZDihjRrIzsqk2FBP4276qPCthP9s+l3bpber6m1ldW7ceCXKdn
nxlS4eNrK3XOrn2YDok2mt+ECt+69SR3zslhQq3cu6+do4KUit03Z4Icliu/
30LPhgq3bEQt2rj2YD7DR1be2VNBbva6LJYqjanHGyTsdKICB+FhJr2KFPZ1
wfPjkhsVAkQ5HxOfSGCPssPtrS9TYba/d6DJexfmZpxE++kKFQ5bH+S+YbwT
Y35bfOBBABUaD/5WVEVUrO18Q9u2YCrQ3D7B+PUYBUsjfL3gEUaFKe/El42m
ZEzBfzXzaCQV+utf5tw4TsQ2ZdhQXgwVxIb3mZm/EsMa+0W/Ct2hgmiAJMVS
QRSzQjjXZDIVdrNioTTOwpjMtO4zw/tUSNT+pNtAEsKW0i2OladToZ1d1ZZ7
XACLpgvyj8uhbu0vVY79esiHmRTdFlx7SoWY7ZV3VuN5sR22GYV2uVRgnbOC
6wk8WElt9YTyKyo4W2qJuJVyYWFeHSEZxVSoNRN3o1RzYqckRsXZSqmg94Ml
+TyVAxu/wWQ4UEWFjIOyJsVkVqzwoOC0Zh0VbjpXs5S8Z8ECfkpEFDZszSOf
crfIeRvGp6NVGdZChfW/VqnMK4zYwJrJuT/tVPjR7sRX0s2APX3htHimiwrR
e5lseOvoMeCM3CPzjQrBTIZDXQ20GGtF6oeE71v+XTh4cOIbDdbp9sJmc4QK
hsF8L1o3N1UvtDUnt/3ayvfm3Z/v69ZUlUMGFFT/UIGvJrfPXWtVlUFh+vOj
WSpkHy9pThxYVk1J4GbyWaaCI9vElzNqi6qRZXv9S9eocNKQpuYU4a/q//2P
DbkSqaEfaBZU/wds4T1l
{RGBColor[1, 0, 0], Thickness[Large], LineBox[{{0, 0}, {0, 0.0233}}],
{PointSize[Large], PointBox[{0, 0.0233}]}}},
AspectRatio->NCache[GoldenRatio^(-1), 0.8948],
Axes->True,
AxesLabel->{
FormBox["\"Number of Bars (C)\"", TraditionalForm],
RowBox[{"f", "(", "C", ")"}], TraditionalForm]},
AxesOrigin->{0, 0},
PlotLabel->FormBox["\"Consumption of Chocolate Bars\"", TraditionalForm],
PlotRange->{{-10, 10}, {0, 1}},
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02], Automatic}]], "Output",
CellChangeTimes->{
3.365*^9, {3.854*^9, 3.6157`*^9},
3.253*^9, {3.445*^9, 3.2685`*^9},
3.048*^9, 3.648*^9, 3.619*^9,
3.2643`*^9, {3.2646`*^9, 3.2647`*^9}, {
3.2645`*^9, 3.265*^9}, 3.2645`*^9,
3.704*^9, {3.036*^9, 3.1237`*^9},
3.645*^9}]
Cell["\", "Text",
CellChangeTimes->{{3.265*^9, 3.2643`*^9}, {
3.385*^9, 3.0598`*^9}, {3.25*^9,
3.875*^9}, {3.125*^9, 3.625*^9}, {
3.375*^9, 3.125*^9}, {3.5*^9,
3.625*^9}, {3.875*^9, 3.125*^9}, {
3.625*^9, 3.125*^9}, {3.875*^9,
3.625*^9}, {3.375*^9, 3.5*^9}}],
Cell[BoxData[
RowBox[{"P",
RowBox[{"(",
RowBox[{"0", " ", "<", "C", "14],
StyleBox[" ",
FontSize->14],
StyleBox["=",
FontSize->14],
StyleBox[" ",
FontSize->14],
RowBox[{"P",
RowBox[{"(",
RowBox[{"0", "<", "D", " ", "14],
StyleBox["=",
FontSize->14],
SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], "
FractionBox[
SuperscriptBox["\[ExponentialE]",
RowBox[{"-",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"x", "-", "1.99"}], ")"}], "2"],
RowBox[{"2",
SuperscriptBox[
RowBox[{"(