nihao99hsjsbsv:qs
点击联系发帖人
时间：2016-04-01 10:31
一站畅享原生态云南美味_美食_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[CellGroupData[{
Cell["APPENDIX D", "Text",
CellChangeTimes->{{3.6846`*^9, 3.2752`*^9}, {
3.669*^9, 3.846*^9}, 3.01*^9},
TextAlignment->Left,
FontSize->16,
FontWeight->"Bold"],
Cell["\", "Text",
CellChangeTimes->{{3.6846`*^9, 3.2752`*^9},
3.669*^9, {3.1217`*^9, 3.394*^9},
3.687*^9, 3.9887`*^9, {3.203*^9,
3.958*^9}, {3.287*^9, 3.466*^9}, {
3.528*^9, 3.938*^9}, {3.232*^9,
3.4938`*^9}, {3.077*^9, 3.2587`*^9}, {
3.6272`*^9, 3.153*^9}, 3.8553`*^9},
TextAlignment->Left,
FontSize->16,
FontWeight->"Bold"],
Cell["\", "Text",
CellChangeTimes->{{3.0127`*^9, 3.8176`*^9},
3.573*^9, {3.45*^9, 3.077*^9}, {
3.465*^9, 3.072*^9}, {3.125*^9,
3.535*^9}, 3.963*^9, {3.131*^9,
3.708*^9}, {3.5757`*^9, 3.7687`*^9},
3.68*^9, {3.1413`*^9, 3.5053`*^9}},
TextAlignment->Left,
FontSize->14]
Cell[CellGroupData[{
Cell["\", "Text",
CellChangeTimes->{{3.519*^9, 3.7483`*^9},
3.0217`*^9, {3.628*^9, 3.944*^9}},
TextAlignment->Left,
FontSize->14],
Cell[BoxData[
RowBox[{"k1", "=", "9."}], ";",
RowBox[{"c1", "=", "0.01"}], ";",
RowBox[{"c2", "=", "0.05"}], ";"}]], "Input",
CellChangeTimes->{{3.542*^9, 3.283*^9}, {
3.317*^9, 3.1188`*^9}, {3.894*^9,
3.4937`*^9}, 3.0303`*^9},
FontSize->14]
Cell[CellGroupData[{
Cell["\", "Text",
CellChangeTimes->{{3.6894`*^9, 3.778*^9}, {
3.21*^9, 3.718*^9}},
TextAlignment->Left,
FontSize->14],
Cell[BoxData[
RowBox[{"tCycle1", "=", "39."}], ";",
RowBox[{"tCycle2", "=", "35."}], ";",
RowBox[{"tCycle3", "=", "31."}], ";"}]], "Input",
CellChangeTimes->{{3.405*^9, 3.8223`*^9}, {
3.2306`*^9, 3.7935`*^9}, {3.284*^9,
3.068*^9}, {3.303*^9, 3.738*^9}},
FontSize->14]
Cell[CellGroupData[{
Cell["Define and plot the three temperature profile functions.", "Text",
CellChangeTimes->{{3.6807`*^9, 3.077*^9},
3.168*^9, 3.183*^9},
TextAlignment->Left,
FontSize->14],
Cell[BoxData[
RowBox[{"T1", "[", "t_", "]"}], ":=",
RowBox[{"22.5", "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Exp", "[",
RowBox[{".9", "*",
RowBox[{"(",
RowBox[{"5", "-", "t"}], ")"}]}], "]"}]}], ")"}]}], "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Exp", "[",
RowBox[{".9", "*",
RowBox[{"(",
RowBox[{"t", "-", "37.5"}], ")"}]}], "]"}]}], ")"}]}], "+",
"10"}]}], ";"}]], "Input",
CellChangeTimes->{3.4093`*^9, 3.952*^9}],
Cell[BoxData[
RowBox[{"T2", "[", "t_", "]"}], ":=",
RowBox[{"31.5", "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Exp", "[",
RowBox[{".9", "*",
RowBox[{"(",
RowBox[{"5", "-", "t"}], ")"}]}], "]"}]}], ")"}]}], "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Exp", "[",
RowBox[{".9", "*",
RowBox[{"(",
RowBox[{"t", "-", "33.5"}], ")"}]}], "]"}]}], ")"}]}], "+",
"10"}]}], ";"}]], "Input",
CellChangeTimes->{
3.9696`*^9, {3.8208`*^9, 3.3475`*^9}}],
Cell[BoxData[
RowBox[{"T3", "[", "t_", "]"}], ":=",
RowBox[{"40.", "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Exp", "[",
RowBox[{".9", "*",
RowBox[{"(",
RowBox[{"5", "-", "t"}], ")"}]}], "]"}]}], ")"}]}], "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Exp", "[",
RowBox[{".9", "*",
RowBox[{"(",
RowBox[{"t", "-", "30."}], ")"}]}], "]"}]}], ")"}]}], "+", "10"}]}],
";"}]], "Input",
CellChangeTimes->{
3.016*^9, 3.699*^9, {3.2713`*^9,
3.004*^9}}]
Cell[CellGroupData[{
Cell["\", "Text",
CellChangeTimes->{{3.249*^9, 3.0507`*^9}, {
3.465*^9, 3.3043`*^9}, {3.794*^9,
3.816*^9}, {3.006*^9, 3.868*^9},
3.271*^9, {3.7433`*^9, 3.383*^9}, {
3.769*^9, 3.679*^9}, {3.109*^9,
3.478*^9}, {3.909*^9, 3.416*^9}, {
3.657*^9, 3.4257`*^9}},
TextAlignment->Left,
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"tCycle1T1", "=",
RowBox[{"T1", "[", "tCycle1", "]"}]}], ";",
RowBox[{"Print", "[",
RowBox[{"\"\\"", ",", "tCycle1T1"}], "]"}]}]], "Input",
CellChangeTimes->{{3.173*^9, 3.3723`*^9},
3.01*^9, {3.711*^9, 3.854*^9},
3.148*^9, {3.529*^9, 3.6383`*^9}, {
3.164*^9, 3.291*^9}, {3.734*^9,
3.906*^9}, {3.768*^9, 3.994*^9},
3.399*^9}],
Cell[BoxData[
InterpretationBox[
RowBox[{"\", "\[InvisibleSpace]",
"14.076`"}],
SequenceForm["T1[tCycle1]=", 14.076`],
Editable->False]], "Print",
CellChangeTimes->{3.217*^9, 3.4617`*^9,
3.468*^9, 3.6973`*^9, 3.2607`*^9,
3.0883`*^9, 3.291*^9, 3.311*^9,
3.022*^9, 3.407*^9, 3.1703`*^9,
3.557*^9, 3.962*^9, 3.6903`*^9,
3.654*^9, 3.0687`*^9, 3.706*^9,
3.783*^9, 3.172*^9, 3.4877`*^9,
3.617*^9, 3.058*^9, 3.276*^9,
3.111*^9, 3.408*^9, 3.737*^9,
3.4794`*^9, 3.65*^9, 3.824*^9,
3.2517`*^9, 3.8077`*^9, 3.0327`*^9}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"tCycle2T2", "=",
RowBox[{"T2", "[", "tCycle2", "]"}]}], ";",
RowBox[{"Print", "[",
RowBox[{"\"\\"", ",", "tCycle2T2"}], "]"}]}]], "Input",
CellChangeTimes->{{3.37*^9, 3.8713`*^9}, {
3.794*^9, 3.871*^9}, 3.274*^9,
3.48*^9, {3.524*^9, 3.646*^9}, {
3.365*^9, 3.204*^9}, {3.956*^9,
3.078*^9}, {3.937*^9, 3.7627`*^9},
3.6036`*^9}],
Cell[BoxData[
InterpretationBox[
RowBox[{"\", "\[InvisibleSpace]",
"16.652`"}],
SequenceForm["T2[tCycle2]=", 16.652`],
Editable->False]], "Print",
CellChangeTimes->{3.007*^9, 3.984*^9,
3.484*^9, 3.557*^9, 3.942*^9,
3.1453`*^9, 3.443*^9, 3.4608`*^9,
3.826*^9, 3.575*^9, 3.407*^9,
3.207*^9, 3.9132`*^9, 3.511*^9,
3.6387`*^9, 3.222*^9, 3.42*^9,
3.865*^9, 3.4783`*^9, 3.795*^9,
3.771*^9, 3.62*^9, 3.364*^9,
3.8017`*^9, 3.324*^9, 3.509*^9,
3.364*^9, 3.413*^9, 3.804*^9,
3.035*^9, 3.595*^9, 3.493*^9}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"tCycle3T3", "=",
RowBox[{"T3", "[", "tCycle3", "]"}]}], ";",
RowBox[{"Print", "[",
RowBox[{"\"\\"", ",", "tCycle3T3"}], "]"}]}]], "Input",
CellChangeTimes->{{3.523*^9, 3.147*^9}, {
3.063*^9, 3.031*^9}, 3.475*^9,
3.8827`*^9, {3.7243`*^9, 3.577*^9},
3.907*^9}],
Cell[BoxData[
InterpretationBox[
RowBox[{"\", "\[InvisibleSpace]",
"21.518`"}],
SequenceForm["T3[tCycle3]=", 21.518`],
Editable->False]], "Print",
CellChangeTimes->{3.9107`*^9, 3.349*^9,
3.531*^9, 3.895*^9, 3.467*^9,
3.4067`*^9, 3.205*^9, 3.323*^9,
3.946*^9, 3.5583`*^9, 3.6247`*^9,
3.028*^9, 3.731*^9, 3.239*^9,
3.788*^9, 3.018*^9, 3.528*^9,
3.06*^9, 3.1427`*^9, 3.7218`*^9,
3.915*^9, 3.785*^9, 3.697*^9,
3.479*^9, 3.944*^9, 3.0237`*^9,
3.29*^9, 3.308*^9, 3.326*^9,
3.728*^9, 3.559*^9, 3.1674`*^9}]
Cell[CellGroupData[{
Cell["Define the three growth functions as function modules.", "Text",
CellChangeTimes->{{3.267*^9, 3.341*^9}},
TextAlignment->Left,
FontSize->14],
Cell[BoxData[
RowBox[{"GF1", "[",
RowBox[{"k1_", "?", "NumericQ"}], ",",
RowBox[{"c1_", "?", "NumericQ"}], ",",
RowBox[{"c2_", "?", "NumericQ"}], ",",
RowBox[{"tFinal_", "?", "NumericQ"}]}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{"{",
RowBox[{"k21", ",", "sfn1", ",", "t", ",", "T1", ",", "y1", ",",
RowBox[{"y0", "=", "1."}]}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"T1", "[", "t_", "]"}], ":=",
RowBox[{"22.5", "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Exp", "[",
RowBox[{".9", "*",
RowBox[{"(",
RowBox[{"5", "-", "t"}], ")"}]}], "]"}]}], ")"}]}], "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Exp", "[",
RowBox[{".9", "*",
RowBox[{"(",
RowBox[{"t", "-", "37.5"}], ")"}]}], "]"}]}], ")"}]}], "+",
"10"}]}], ";",
RowBox[{"k21", "[", "t_", "]"}], ":=",
RowBox[{"c1", "*",
RowBox[{"Exp", "[",
RowBox[{"c2", "*",
RowBox[{"T1", "[", "t", "]"}]}], "]"}]}]}], ";",
RowBox[{"sfn1", "[", "t_", "]"}], "=",
RowBox[{"NDSolve", "[",
RowBox[{"{",
RowBox[{"y1", "'"}], "[", "t", "]"}], "\[Equal]",
RowBox[{"-",
RowBox[{"Exp", "[",
RowBox[{"-",
RowBox[{"k21", "[", "t", "]"}]}], "*",
RowBox[{"(",
RowBox[{"-",
RowBox[{"Log", "[",
RowBox[{"(",
RowBox[{"-", "k1"}], "+",
RowBox[{"y1", "[", "t", "]"}], "-", "y0"}], ")"}], "/",
"k1"}], "]"}]}], "/",
RowBox[{"k21", "[", "t", "]"}]}], ")"}]}], "]"}]}], "*",
RowBox[{"k21", "[", "t", "]"}], "*", "k1"}]}], ",",
RowBox[{"y1", "[", "0.", "]"}], "\[Equal]", "1."}]}], "}"}], ",",
RowBox[{"y1", "[", "t", "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0.001", ",",
RowBox[{"tCycle1", "+", "1."}]}], "}"}]}], "]"}], "[",
RowBox[{"[",
RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"sfn1", "[", "tFinal", "]"}]}]}], "]"}]}]], "Input",
CellChangeTimes->{
3.003*^9, {3.637*^9, 3.933*^9},
3.392*^9, {3.7776`*^9, 3.6225`*^9},
3.059*^9, {3.44*^9, 3.0365`*^9}, {
3.7537`*^9, 3.206*^9}, {3.1327`*^9,
3.72*^9}, {3.1447`*^9, 3.948*^9}}],
Cell[BoxData[
RowBox[{"GF2", "[",
RowBox[{"k1_", "?", "NumericQ"}], ",",
RowBox[{"c1_", "?", "NumericQ"}], ",",
RowBox[{"c2_", "?", "NumericQ"}], ",",
RowBox[{"tFinal_", "?", "NumericQ"}]}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{"{",
RowBox[{"k22", ",", "sfn2", ",", "t", ",", "T2", ",", "y2", ",",
RowBox[{"y0", "=", "1."}]}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"T2", "[", "t_", "]"}], ":=",
RowBox[{"31.5", "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Exp", "[",
RowBox[{".9", "*",
RowBox[{"(",
RowBox[{"5", "-", "t"}], ")"}]}], "]"}]}], ")"}]}], "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Exp", "[",
RowBox[{".9", "*",
RowBox[{"(",
RowBox[{"t", "-", "33.5"}], ")"}]}], "]"}]}], ")"}]}], "+",
"10"}]}], ";",
RowBox[{"k22", "[", "t_", "]"}], ":=",
RowBox[{"c1", "*",
RowBox[{"Exp", "[",
RowBox[{"c2", "*",
RowBox[{"T2", "[", "t", "]"}]}], "]"}]}]}], ";",
RowBox[{"sfn2", "[", "t_", "]"}], "=",
RowBox[{"NDSolve", "[",
RowBox[{"{",
RowBox[{"y2", "'"}], "[", "t", "]"}], "\[Equal]",
RowBox[{"-",
RowBox[{"Exp", "[",
RowBox[{"-",
RowBox[{"k22", "[", "t", "]"}]}], "*",
RowBox[{"(",
RowBox[{"-",
RowBox[{"Log", "[",
RowBox[{"(",
RowBox[{"-", "k1"}], "+",
RowBox[{"y2", "[", "t", "]"}], "-", "y0"}], ")"}], "/",
"k1"}], "]"}]}], "/",
RowBox[{"k22", "[", "t", "]"}]}], ")"}]}], "]"}]}], "*",
RowBox[{"k22", "[", "t", "]"}], "*", "k1"}]}], ",",
RowBox[{"y2", "[", "0.", "]"}], "\[Equal]", "1."}]}], "}"}], ",",
RowBox[{"y2", "[", "t", "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0.001", ",",
RowBox[{"tCycle2", "+", "1."}]}], "}"}]}], "]"}], "[",
RowBox[{"[",
RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"sfn2", "[", "tFinal", "]"}]}]}], "]"}]}]], "Input",
CellChangeTimes->{
3.4846`*^9, {3.189*^9, 3.4413`*^9}, {
3.019*^9, 3.8195`*^9}, 3.816*^9, {
3.8675`*^9, 3.811*^9}, {3.837*^9,
3.48*^9}, {3.867*^9, 3.7393`*^9}, {
3.898*^9, 3.568*^9}, {3.219*^9,
3.922*^9}}],
Cell[BoxData[
RowBox[{"GF3", "[",
RowBox[{"k_", "?", "NumericQ"}], ",",
RowBox[{"n_", "?", "NumericQ"}], ",",
RowBox[{"Tc_", "?", "NumericQ"}], ",",
RowBox[{"tFinal_", "?", "NumericQ"}]}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{"{",
RowBox[{"b3", ",", "sfn3", ",", "t", ",", "T3", ",", "y3", ",",
RowBox[{"y0", "=", "1."}]}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"T3", "[", "t_", "]"}], ":=",
RowBox[{"40", "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Exp", "[",
RowBox[{".9", "*",
RowBox[{"(",
RowBox[{"5", "-", "t"}], ")"}]}], "]"}]}], ")"}]}], "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Exp", "[",
RowBox[{".9", "*",
RowBox[{"(",
RowBox[{"t", "-", "30"}], ")"}]}], "]"}]}], ")"}]}], "+",
"10"}]}], ";",
RowBox[{"k23", "[", "t_", "]"}], ":=",
RowBox[{"c1", "*",
RowBox[{"Exp", "[",
RowBox[{"c2", "*",
RowBox[{"T3", "[", "t", "]"}]}], "]"}]}]}], ";",
RowBox[{"sfn3", "[", "t_", "]"}], "=",
RowBox[{"NDSolve", "[",
RowBox[{"{",
RowBox[{"y3", "'"}], "[", "t", "]"}], "\[Equal]",
RowBox[{"-",
RowBox[{"Exp", "[",
RowBox[{"-",
RowBox[{"k23", "[", "t", "]"}]}], "*",
RowBox[{"(",
RowBox[{"-",
RowBox[{"Log", "[",
RowBox[{"(",
RowBox[{"-", "k1"}], "+",
RowBox[{"y3", "[", "t", "]"}], "-", "y0"}], ")"}], "/",
"k1"}], "]"}]}], "/",
RowBox[{"k23", "[", "t", "]"}]}], ")"}]}], "]"}]}], "*",
RowBox[{"k23", "[", "t", "]"}], "*", "k1"}]}], ",",
RowBox[{"y3", "[", "0.", "]"}], "\[Equal]", "1."}]}], "}"}], ",",
RowBox[{"y3", "[", "t", "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0.001", ",",
RowBox[{"tCycle3", "+", "1."}]}], "}"}]}], "]"}], "[",
RowBox[{"[",
RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"sfn3", "[", "tFinal", "]"}]}]}], "]"}]}]], "Input",
CellChangeTimes->{
3.176*^9, {3.064*^9, 3.6623`*^9}, {
3.528*^9, 3.802*^9}, {3.2398`*^9,
3.048*^9}, {3.4974`*^9, 3.4417`*^9}, {
3.5935`*^9, 3.568*^9}, {3.63*^9,
3.495*^9}, {3.923*^9, 3.5412`*^9}}]
Cell[CellGroupData[{
Cell["\", "Text",
CellChangeTimes->{{3.0146`*^9, 3.1983`*^9}, {
3.915*^9, 3.6677`*^9}, {3.36*^9,
3.124*^9}, {3.22*^9, 3.288*^9},
3.925*^9},
TextAlignment->Left,
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"gfCycle1", "=",
RowBox[{"GF1", "[",
RowBox[{"k1", ",", "c1", ",", "c2", ",", "tCycle1"}], "]"}]}], ";",
RowBox[{"Print", "[",
RowBox[{"\"\\"", ",", "gfCycle1"}],
"]"}]}]], "Input",
CellChangeTimes->{{3.715*^9, 3.613*^9}, {
3.401*^9, 3.0543`*^9}, {3.597*^9,
3.874*^9}, {3.203*^9, 3.645*^9}}],
Cell[BoxData[
InterpretationBox[
RowBox[{"\", "\[InvisibleSpace]",
"8.206`"}],
SequenceForm["GF1[k1,c1,c2,tCycle1]=", 8.206],
Editable->False]], "Print",
CellChangeTimes->{3.859*^9, 3.264*^9,
3.625*^9, 3.823*^9, 3.427*^9,
3.901*^9, 3.977*^9, 3.0918`*^9,
3.5473`*^9, 3.6472`*^9, 3.172*^9,
3.807*^9, 3.0443`*^9, 3.863*^9}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"gfCycle2", "=",
RowBox[{"GF2", "[",
RowBox[{"k1", ",", "c1", ",", "c2", ",", "tCycle2"}], "]"}]}], ";",
RowBox[{"Print", "[",
RowBox[{"\"\\"", ",", "gfCycle2"}],
"]"}]}]], "Input",
CellChangeTimes->{{3.76*^9, 3.715*^9}, {
3.397*^9, 3.5393`*^9}, {3.053*^9,
3.353*^9}, {3.076*^9, 3.7707`*^9}}],
Cell[BoxData[
InterpretationBox[
RowBox[{"\", "\[InvisibleSpace]",
"9.442`"}],
SequenceForm["GF2[k1,c1,c2,tCycle2]=", 9.442],
Editable->False]], "Print",
CellChangeTimes->{3.073*^9, 3.2537`*^9,
3.046*^9, 3.127*^9, 3.0667`*^9,
3.079*^9, 3.667*^9, 3.4456`*^9,
3.432*^9, 3.6697`*^9, 3.807*^9,
3.2217`*^9, 3.758*^9, 3.348*^9}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"gfCycle3", "=",
RowBox[{"GF3", "[",
RowBox[{"k1", ",", "c1", ",", "c2", ",", "tCycle3"}], "]"}]}], ";",
RowBox[{"targetGF3", "=", "gfCycle3"}], ";",
RowBox[{"Print", "[",
RowBox[{"\"\\"", ",", "gfCycle3"}],
"]"}]}]], "Input",
CellChangeTimes->{{3.4384`*^9, 3.2003`*^9}, {
3.794*^9, 3.978*^9}, {3.8187`*^9,
3.656*^9}, {3.944*^9, 3.798*^9}}],
Cell[BoxData[
InterpretationBox[
RowBox[{"\", "\[InvisibleSpace]",
"9.404`"}],
SequenceForm["GF3[k1,c1,c2,tCycle2]=", 9.404],
Editable->False]], "Print",
CellChangeTimes->{3.35*^9, 3.989*^9,
3.485*^9, 3.278*^9, 3.207*^9,
3.241*^9, 3.621*^9, 3.544*^9,
3.486*^9, 3.627*^9, 3.071*^9,
3.9727`*^9, 3.474*^9, 3.063*^9}]
Cell[CellGroupData[{
Cell["\", "Text",
CellChangeTimes->{{3.9617`*^9, 3.4623`*^9}, {
3.164*^9, 3.865*^9}, {3.4487`*^9,
3.089*^9}, {3.048*^9, 3.3693`*^9}},
TextAlignment->Left,
FontSize->14],
Cell[BoxData[
RowBox[{"k1St", "=", "8.5"}], ";",
RowBox[{"k1En", "=", "9.5"}], ";",
RowBox[{"k1Inc", "=", "0.1"}], ";"}]], "Input",
CellChangeTimes->{{3.2595`*^9, 3.163*^9}, {
3.64*^9, 3.8973`*^9}, {3.5184`*^9,
3.318*^9}, {3.5615`*^9, 3.5904`*^9}, {
3.9615`*^9, 3.4416`*^9}}],
Cell["\", "Text",
CellChangeTimes->{3.19*^9},
TextAlignment->Left,
FontSize->14],
Cell[BoxData[
RowBox[{"tol", "=", "0.0001"}], ";"}]], "Input",
CellChangeTimes->{{3.731*^9, 3.947*^9},
3.637*^9}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Do", "[",
RowBox[{"Clear", "[",
RowBox[{"c1", ",", "c2"}], "]"}], ";",
RowBox[{"frResult", "=",
RowBox[{"FindRoot", "[",
RowBox[{"{",
RowBox[{"GF1", "[",
RowBox[{"k1", ",", "c1", ",", "c2", ",", "tCycle1"}], "]"}], "==",
"gfCycle1"}], ",",
RowBox[{"GF2", "[",
RowBox[{"k1", ",", "c1", ",", "c2", ",", "tCycle2"}], "]"}],
"\[Equal]", "gfCycle2"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"{",
RowBox[{"c1", ",", ".005", ",", ".015"}], "}"}], ",",
RowBox[{"{",
RowBox[{"c2", ",", "0.04", ",", "0.06"}], "}"}]}], "}"}], ",",
RowBox[{"MaxIterations", "\[Rule]", "2000"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"c1", "=",
RowBox[{"frResult", "[",
RowBox[{"[",
RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"c2", "=",
RowBox[{"frResult", "[",
RowBox[{"[",
RowBox[{"2", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"trialGF3", "=",
RowBox[{"GF3", "[",
RowBox[{"k1", ",", "c1", ",", "c2", ",", "tCycle3"}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"Print", "[",
"\"\\"", ",", "trialGF3", ",", "\"\\"", ",", "k1",
",", "\"\\"", ",", "c1", ",", "\"\\"", ",", "c2"}],
"]"}], ";", "\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{"Abs", "[",
RowBox[{"targetGF3", "-", "trialGF3"}], "]"}], "{{3.9664`*^9, 3.9743`*^9}, {
3.4897`*^9, 3.9276`*^9}, {3.351*^9,
3.3083`*^9}, {3.299*^9, 3.799*^9}, {
3.279*^9, 3.686*^9}, {3.1617`*^9,
3.0927`*^9}}],
Cell[BoxData[
InterpretationBox[
RowBox[{"\", "\[InvisibleSpace]", "9.838`",
"\[InvisibleSpace]", "\", "\[InvisibleSpace]", "8.5`",
"\[InvisibleSpace]", "\", "\[InvisibleSpace]",
"0.250563`", "\[InvisibleSpace]", "\",
"\[InvisibleSpace]", "0.08406`"}],
SequenceForm[
"trialGF3= ", 9.838, "
k1= ", 8.5, "
0.250563, "
c2= ", 0.08406],
Editable->False]], "Print",
CellChangeTimes->{3.4943`*^9, 3.222*^9,
3.3997`*^9, 3.781*^9, 3.894*^9,
3.653*^9, 3.855*^9, 3.132*^9,
3.491*^9, 3.2827`*^9, 3.855*^9,
3.637*^9, 3.996*^9, 3.162*^9,
3.27*^9, 3.669*^9}],
Cell[BoxData[
InterpretationBox[
RowBox[{"\", "\[InvisibleSpace]", "9.13`"}],
"\[InvisibleSpace]", "+",
RowBox[{"0.`", " ", "\[ImaginaryI]"}],
"\[InvisibleSpace]", "\", "\[InvisibleSpace]", "8.6`",
"\[InvisibleSpace]", "\", "\[InvisibleSpace]",
"0.324829`", "\[InvisibleSpace]", "\",
"\[InvisibleSpace]", "0.41053`"}]}],
SequenceForm["trialGF3= ",
Complex[9.13, 0.], "
k1= ", 8.6, "
0.324829, "
c2= ", 0.41053],
Editable->False]], "Print",
CellChangeTimes->{3.4943`*^9, 3.222*^9,
3.3997`*^9, 3.781*^9, 3.894*^9,
3.653*^9, 3.855*^9, 3.132*^9,
3.491*^9, 3.2827`*^9, 3.855*^9,
3.637*^9, 3.996*^9, 3.162*^9,
3.27*^9, 3.789*^9}],
Cell[BoxData[
InterpretationBox[
RowBox[{"\", "\[InvisibleSpace]", "9.761`",
"\[InvisibleSpace]", "\", "\[InvisibleSpace]", "8.7`",
"\[InvisibleSpace]", "\", "\[InvisibleSpace]",
"0.315522`", "\[InvisibleSpace]", "\",
"\[InvisibleSpace]", "0.33495`"}],
SequenceForm[
"trialGF3= ", 9.761, "
k1= ", 8.7, "
0.315522, "
c2= ", 0.33495],
Editable->False]], "Print",
CellChangeTimes->{3.4943`*^9, 3.222*^9,
3.3997`*^9, 3.781*^9, 3.894*^9,
3.653*^9, 3.855*^9, 3.132*^9,
3.491*^9, 3.2827`*^9, 3.855*^9,
3.637*^9, 3.996*^9, 3.162*^9,
3.27*^9, 3.343*^9}],
Cell[BoxData[
InterpretationBox[
RowBox[{"\", "\[InvisibleSpace]", "9.872`",
"\[InvisibleSpace]", "\", "\[InvisibleSpace]", "8.8`",
"\[InvisibleSpace]", "\", "\[InvisibleSpace]",
"0.499078`", "\[InvisibleSpace]", "\",
"\[InvisibleSpace]", "0.44752`"}],
SequenceForm[
"trialGF3= ", 9.872, "
k1= ", 8.8, "
0.499078, "
c2= ", 0.44752],
Editable->False]], "Print",
CellChangeTimes->{3.4943`*^9, 3.222*^9,
3.3997`*^9, 3.781*^9, 3.894*^9,
3.653*^9, 3.855*^9, 3.132*^9,
3.491*^9, 3.2827`*^9, 3.855*^9,
3.637*^9, 3.996*^9, 3.162*^9,
3.27*^9, 3.726*^9}],
Cell[BoxData[
InterpretationBox[
RowBox[{"\", "\[InvisibleSpace]", "9.408`",
"\[InvisibleSpace]", "\", "\[InvisibleSpace]", "8.9`",
"\[InvisibleSpace]", "\", "\[InvisibleSpace]",
"0.716471`", "\[InvisibleSpace]", "\",
"\[InvisibleSpace]", "0.95164`"}],
SequenceForm[
"trialGF3= ", 9.408, "
k1= ", 8.9, "
0.716471, "
c2= ", 0.95164],
Editable->False]], "Print",
CellChangeTimes->{3.4943`*^9, 3.222*^9,
3.3997`*^9, 3.781*^9, 3.894*^9,
3.653*^9, 3.855*^9, 3.132*^9,
3.491*^9, 3.2827`*^9, 3.855*^9,
3.637*^9, 3.996*^9, 3.162*^9,
3.27*^9, 3.3963`*^9}],
Cell[BoxData[
InterpretationBox[
RowBox[{"\", "\[InvisibleSpace]", "9.651`",
"\[InvisibleSpace]", "\", "\[InvisibleSpace]", "9.`",
"\[InvisibleSpace]", "\", "\[InvisibleSpace]",
"0.513947`", "\[InvisibleSpace]", "\",
"\[InvisibleSpace]", "0.39932`"}],
SequenceForm[
"trialGF3= ", 9.651, "
k1= ", 9., "
0.513947`, "
c2= ", 0.39932],
Editable->False]], "Print",
CellChangeTimes->{3.4943`*^9, 3.222*^9,
3.3997`*^9, 3.781*^9, 3.894*^9,
3.653*^9, 3.855*^9, 3.132*^9,
3.491*^9, 3.2827`*^9, 3.855*^9,
3.637*^9, 3.996*^9, 3.162*^9,
3.27*^9, 3.151*^9}]
Cell[CellGroupData[{
Cell["Plot the three temperature profile functions separately.", "Text",
CellChangeTimes->{{3.6807`*^9, 3.077*^9},
3.168*^9, 3.183*^9, 3.565*^9, {
3.2307`*^9, 3.0247`*^9}},
TextAlignment->Left,
FontSize->14],
Cell[BoxData[
RowBox[{"tempCurveT1Plot", "=",
RowBox[{"Plot", "[",
RowBox[{"T1", "[", "t", "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0.", ",", "tCycle1"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0.", ",", "40."}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.", ",", "60."}], "}"}]}], "}"}]}], ",",
RowBox[{"AspectRatio", "\[Rule]", "1"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"Thickness", "[", "0.01", "]"}], ",", "LightGray", ",",
RowBox[{"Dashing", "[", "None", "]"}]}], "}"}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"RotateLabel", "\[Rule]", "True"}], ",",
RowBox[{"BaseStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontWeight", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}],
RowBox[{"FrameTicks", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40"}], "}"}],
RowBox[{"{",
"0", ",", "10", ",", "20", ",", "30", ",", "40", ",", "50", ",",
"60"}], "}"}], ",",
RowBox[{"{", "}"}], ",",
RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.8864`*^9, 3.3537`*^9}, {
3.1277`*^9, 3.7456`*^9}, 3.086*^9, {
3.4898`*^9, 3.779*^9}, 3.3793`*^9, {
3.2977`*^9, 3.959*^9}, {3.6903`*^9,
3.764*^9}, 3.7564`*^9, {3.509*^9,
3.796*^9}, 3.2354`*^9, {3.7238`*^9,
3.433*^9}, {3.516*^9, 3.417*^9},
3.239*^9, {3.404*^9, 3.544*^9}, {
3.707*^9, 3.835*^9}}],
Cell[BoxData[
RowBox[{"tempCurveT2Plot", "=",
RowBox[{"Plot", "[",
RowBox[{"T2", "[", "t", "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0.", ",", "tCycle2"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0.", ",", "40."}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.", ",", "60."}], "}"}]}], "}"}]}], ",",
RowBox[{"AspectRatio", "\[Rule]", "1"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Gray", ",",
RowBox[{"Dashing", "[", "None", "]"}]}], "}"}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"RotateLabel", "\[Rule]", "True"}], ",",
RowBox[{"BaseStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontWeight", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
"\"\\"", ",",
"\"\\""}], "}"}]}], ",",
RowBox[{"FrameTicks", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40"}], "}"}],
RowBox[{"{",
"0", ",", "10", ",", "20", ",", "30", ",", "40", ",", "50", ",",
"60"}], "}"}], ",",
RowBox[{"{", "}"}], ",",
RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.8864`*^9, 3.3537`*^9}, {
3.1277`*^9, 3.7456`*^9}, 3.086*^9, {
3.4898`*^9, 3.779*^9}, 3.3793`*^9, {
3.2977`*^9, 3.959*^9}, {3.6903`*^9,
3.764*^9}, 3.7564`*^9, {3.746*^9,
3.4*^9}, {3.931*^9, 3.859*^9},
3.322*^9, 3.267*^9, {3.712*^9,
3.6387`*^9}, {3.749*^9, 3.8743`*^9}}],
Cell[BoxData[
RowBox[{"tempCurveT3Plot", "=",
RowBox[{"Plot", "[",
RowBox[{"T3", "[", "t", "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0.", ",", "tCycle3"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0.", ",", "40."}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.", ",", "60."}], "}"}]}], "}"}]}], ",",
RowBox[{"AspectRatio", "\[Rule]", "1"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Black", ",",
RowBox[{"Dashing", "[", "None", "]"}]}], "}"}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"RotateLabel", "\[Rule]", "True"}], ",",
RowBox[{"BaseStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontWeight", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
"\"\\"", ",",
"\"\\""}], "}"}]}], ",",
RowBox[{"FrameTicks", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40"}], "}"}],
RowBox[{"{",
"0", ",", "10", ",", "20", ",", "30", ",", "40", ",", "50", ",",
"60"}], "}"}], ",",
RowBox[{"{", "}"}], ",",
RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.8864`*^9, 3.3537`*^9}, {
3.1277`*^9, 3.7456`*^9}, 3.086*^9, {
3.4898`*^9, 3.779*^9}, 3.3793`*^9, {
3.2977`*^9, 3.959*^9}, {3.6903`*^9,
3.764*^9}, 3.7564`*^9, {3.746*^9,
3.4*^9}, {3.153*^9, 3.736*^9},
3.8773`*^9, 3.837*^9, {3.618*^9,
3.982*^9}, 3.14*^9}]
Cell[CellGroupData[{
Cell["\", "Text",
CellChangeTimes->{{3.939*^9, 3.419*^9},
3.0152`*^9, {3.961*^9, 3.7233`*^9},
3.449*^9, 3.5197`*^9, {3.0647`*^9,
3.514*^9}, 3.43*^9, {3.78*^9,
3.845*^9}, {3.8*^9, 3.312*^9}, {
3.656*^9, 3.733*^9}, {3.584*^9,
3.118*^9}},
TextAlignment->Left,
FontSize->14],
Cell[BoxData[
RowBox[{"tempPtsPlot", "=",
RowBox[{"ListPlot", "[",
RowBox[{"{",
RowBox[{"{",
RowBox[{"tCycle1", ",", "tCycle1T1"}], "}"}], ",",
RowBox[{"{",
RowBox[{"tCycle2", ",", "tCycle2T2"}], "}"}], ",",
RowBox[{"{",
RowBox[{"tCycle3", ",", "tCycle3T3"}], "}"}]}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0.", ",", "40."}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.", ",", "60."}], "}"}]}], "}"}]}], ",",
RowBox[{"AspectRatio", "\[Rule]", "1"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"PointSize", "[", "Large", "]"}], ",", "Black"}], "]"}]}],
"PlotLabel", "\[Rule]",
"\"\\""}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"RotateLabel", "\[Rule]", "True"}], ",",
RowBox[{"BaseStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontWeight", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
"\"\\"", ",",
"\"\\""}], "}"}]}], ",",
RowBox[{"FrameTicks", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40"}], "}"}],
RowBox[{"{",
"0", ",", "10", ",", "20", ",", "30", ",", "40", ",", "50", ",",
"60"}], "}"}], ",",
RowBox[{"{", "}"}], ",",
RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{
3.592*^9, {3.659*^9, 3.245*^9}, {
3.579*^9, 3.631*^9}, {3.0812`*^9,
3.772*^9}, {3.649*^9, 3.3063`*^9}, {
3.297*^9, 3.597*^9}, {3.262*^9,
3.6737`*^9}, {3.995*^9, 3.287*^9}, {
3.195*^9, 3.87*^9}, {3.7927`*^9,
3.185*^9}, 3.0922`*^9, {3.762*^9,
3.027*^9}, {3.087*^9, 3.461*^9},
3.8552`*^9, {3.132*^9, 3.483*^9}, {
3.707*^9, 3.8647`*^9}, {3.068*^9,
3.6607`*^9}, 3.283*^9, {3.671*^9,
3.997*^9}, {3.621*^9, 3.94*^9}, {
3.173*^9, 3.409*^9}, {3.5573`*^9,
3.066*^9}, 3.0103`*^9, {3.9343`*^9,
3.761*^9}, {3.443*^9, 3.93*^9},
3.7*^9, {3.9733`*^9, 3.956*^9}, {
3.999*^9, 3.764*^9}, {3.993*^9,
3.1517`*^9}, {3.1248`*^9, 3.685*^9}, {
3.825*^9, 3.7143`*^9}, {3.1787`*^9,
3.555*^9}, {3.475*^9, 3.202*^9},
3.967*^9, {3.263*^9, 3.9607`*^9}, {
3.847*^9, 3.0602`*^9}, {3.695*^9,
3.126*^9}, 3.3373`*^9, 3.599*^9}]
Cell[CellGroupData[{
Cell["\", "Text",
CellChangeTimes->{{3.939*^9, 3.419*^9},
3.0152`*^9, 3.961*^9, {3.167*^9,
3.209*^9}, {3.454*^9, 3.475*^9}, {
3.742*^9, 3.973*^9}},
TextAlignment->Left,
FontSize->14],
Cell[BoxData[
RowBox[{"tempProfilePlot", "=",
RowBox[{"Show", "[",
"tempCurveT1Plot", ",", "tempCurveT2Plot", ",", "tempCurveT3Plot", ",",
"tempPtsPlot", ",",
RowBox[{"ImageSize", "\[Rule]",
RowBox[{"Scaled", "[", "0.6", "]"}]}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.441*^9, 3.884*^9}, {
3.407*^9, 3.367*^9}, {3.739*^9,
3.766*^9}, 3.511*^9, 3.872*^9, {
3.14*^9, 3.967*^9}, 3.511*^9,
3.958*^9}]
Cell[CellGroupData[{
Cell["Plot the three growth curves separately.", "Text",
CellChangeTimes->{{3.6807`*^9, 3.077*^9}, {
3.092*^9, 3.3497`*^9}, {3.913*^9,
3.013*^9}, {3.7307`*^9, 3.5*^9},
3.955*^9, {3.696*^9, 3.375*^9},
3.048*^9},
TextAlignment->Left,
FontSize->14],
Cell[BoxData[
RowBox[{"gfCurveGF1Plot", "=",
RowBox[{"Plot", "[",
RowBox[{"GF1", "[",
RowBox[{"9.", ",", ".01", ",", "0.05", ",", "t"}], "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0.1", ",", "tCycle1"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0.", ",", "40."}], "}"}], ",",
RowBox[{"{",
RowBox[{"-", ".001"}], ",", "10.0"}], "}"}]}], "}"}]}], ",",
RowBox[{"AspectRatio", "\[Rule]", "1"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"Thickness", "[", "0.01", "]"}], ",", "LightGray", ",",
RowBox[{"Dashing", "[", "None", "]"}]}], "}"}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"RotateLabel", "\[Rule]", "True"}], ",",
RowBox[{"BaseStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontWeight", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\\"", ",", "\"\\""}],
"}"}]}], ",",
RowBox[{"FrameTicks", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40"}], "}"}],
RowBox[{"{",
RowBox[{"0", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10"}],
"}"}], ",",
RowBox[{"{", "}"}], ",",
RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.411*^9, 3.162*^9},
3.88*^9, 3.6255`*^9, 3.187*^9,
3.01*^9, {3.43*^9, 3.1437`*^9}, {
3.0293`*^9, 3.907*^9}, {3.5913`*^9,
3.8743`*^9}, {3.0003`*^9, 3.39*^9}, {
3.5567`*^9, 3.715*^9}, {3.472*^9,
3.671*^9}, 3.0617`*^9, 3.638*^9, {
3.866*^9, 3.387*^9}, {3.063*^9,
3.988*^9}, 3.872*^9, 3.108*^9,
3.805*^9, 3.3168`*^9}],
Cell[BoxData[
RowBox[{"gfCurveGF2Plot", "=",
RowBox[{"Plot", "[",
RowBox[{"GF2", "[",
RowBox[{"9.", ",", ".01", ",", "0.05", ",", "t"}], "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0.1", ",", "tCycle2"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0.", ",", "40."}], "}"}], ",",
RowBox[{"{",
RowBox[{"-", ".001"}], ",", "10.0"}], "}"}]}], "}"}]}], ",",
RowBox[{"AspectRatio", "\[Rule]", "1"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Gray", ",",
RowBox[{"Dashing", "[", "None", "]"}]}], "}"}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"RotateLabel", "\[Rule]", "True"}], ",",
RowBox[{"BaseStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontWeight", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\\"", ",", "\"\\""}],
"}"}]}], ",",
RowBox[{"FrameTicks", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40"}], "}"}],
RowBox[{"{",
RowBox[{"0", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10"}],
"}"}], ",",
RowBox[{"{", "}"}], ",",
RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.411*^9, 3.162*^9},
3.88*^9, 3.6255`*^9, 3.187*^9,
3.01*^9, {3.43*^9, 3.1437`*^9}, {
3.0293`*^9, 3.907*^9}, {3.5913`*^9,
3.8743`*^9}, {3.0003`*^9, 3.39*^9}, {
3.5567`*^9, 3.715*^9}, {3.472*^9,
3.395*^9}, {3.3014`*^9, 3.704*^9},
3.1897`*^9, {3.1016`*^9, 3.263*^9}, {
3.8513`*^9, 3.024*^9}, 3.127*^9,
3.723*^9, 3.321*^9, 3.337*^9}],
Cell[BoxData[
RowBox[{"gfCurveGF3Plot", "=",
RowBox[{"Plot", "[",
RowBox[{"GF3", "[",
RowBox[{"9.", ",", ".01", ",", "0.05", ",", "t"}], "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0.1", ",", "tCycle3"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0.", ",", "40."}], "}"}], ",",
RowBox[{"{",
RowBox[{"-", ".001"}], ",", "10.0"}], "}"}]}], "}"}]}], ",",
RowBox[{"AspectRatio", "\[Rule]", "1"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Black", ",",
RowBox[{"Dashing", "[", "None", "]"}]}], "}"}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"RotateLabel", "\[Rule]", "True"}], ",",
RowBox[{"BaseStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontWeight", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\\"", ",", "\"\\""}],
"}"}]}], ",",
RowBox[{"FrameTicks", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40"}], "}"}],
RowBox[{"{",
RowBox[{"0", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10"}],
"}"}], ",",
RowBox[{"{", "}"}], ",",
RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.411*^9, 3.162*^9},
3.88*^9, 3.6255`*^9, 3.187*^9,
3.01*^9, {3.43*^9, 3.1437`*^9}, {
3.0293`*^9, 3.907*^9}, {3.5913`*^9,
3.8743`*^9}, {3.0003`*^9, 3.39*^9}, {
3.5567`*^9, 3.715*^9}, {3.472*^9,
3.439*^9}, {3.284*^9, 3.02*^9}, {
3.172*^9, 3.114*^9}, 3.457*^9, {
3.3926`*^9, 3.414*^9}, 3.0363`*^9, {
3.2913`*^9, 3.4367`*^9}, {3.2177`*^9,
3.411*^9}, 3.757*^9}]
Cell[CellGroupData[{
Cell["\", "Text",
CellChangeTimes->{{3.939*^9, 3.419*^9},
3.0152`*^9, {3.961*^9, 3.7233`*^9},
3.449*^9, 3.5197`*^9, {3.771*^9,
3.333*^9}, {3.359*^9, 3.448*^9},
3.125*^9, {3.191*^9, 3.6723`*^9}, {
3.722*^9, 3.906*^9}, 3.7697`*^9,
3.7002`*^9, {3.0283`*^9, 3.408*^9}, {
3.384*^9, 3.448*^9}},
TextAlignment->Left,
FontSize->14],
Cell[BoxData[
RowBox[{"gfPtsPlot", "=",
RowBox[{"ListPlot", "[",
RowBox[{"{",
RowBox[{"{",
RowBox[{"tCycle1", ",", "gfCycle1"}], "}"}], ",",
RowBox[{"{",
RowBox[{"tCycle2", ",", "gfCycle2"}], "}"}], ",",
RowBox[{"{",
RowBox[{"tCycle3", ",", "gfCycle3"}], "}"}]}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0.", ",", "40."}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.", ",", "10."}], "}"}]}], "}"}]}], ",",
RowBox[{"AspectRatio", "\[Rule]", "1"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"PointSize", "[", "Large", "]"}], ",", "Black"}], "]"}]}],
"PlotLabel", "\[Rule]", "\"\\""}],
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"RotateLabel", "\[Rule]", "True"}], ",",
RowBox[{"BaseStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontWeight", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\\"", ",", "\"\\""}],
"}"}]}], ",",
RowBox[{"FrameTicks", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40"}], "}"}],
RowBox[{"{",
RowBox[{"0", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10"}],
"}"}], ",",
RowBox[{"{", "}"}], ",",
RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{
3.592*^9, {3.659*^9, 3.245*^9}, {
3.579*^9, 3.631*^9}, {3.0812`*^9,
3.772*^9}, {3.649*^9, 3.3063`*^9}, {
3.297*^9, 3.597*^9}, {3.262*^9,
3.6737`*^9}, {3.995*^9, 3.287*^9}, {
3.195*^9, 3.87*^9}, {3.7927`*^9,
3.185*^9}, 3.0922`*^9, {3.762*^9,
3.027*^9}, {3.087*^9, 3.461*^9},
3.8552`*^9, {3.132*^9, 3.483*^9}, {
3.707*^9, 3.8647`*^9}, {3.068*^9,
3.6607`*^9}, 3.283*^9, {3.671*^9,
3.997*^9}, {3.621*^9, 3.94*^9}, {
3.173*^9, 3.409*^9}, {3.5573`*^9,
3.066*^9}, {3.007*^9, 3.67*^9}, {
3.137*^9, 3.1817`*^9}, {3.262*^9,
3.779*^9}, {3.0223`*^9, 3.2858`*^9},
3.779*^9, {3.493*^9, 3.439*^9}, {
3.785*^9, 3.062*^9}, 3.139*^9,
3.297*^9, {3.993*^9, 3.901*^9}, {
3.499*^9, 3.766*^9}, {3.024*^9,
3.179*^9}, 3.576*^9, 3.77*^9, {
3.7803`*^9, 3.309*^9}, 3.56*^9, {
3.887*^9, 3.926*^9}, {3.7103`*^9,
3.284*^9}, 3.132*^9, 3.959*^9,
3.321*^9, 3.2547`*^9, {3.083*^9,
3.9343`*^9}, 3.695*^9}]
Cell[CellGroupData[{
Cell["\", "Text",
CellChangeTimes->{{3.939*^9, 3.419*^9},
3.0152`*^9, 3.961*^9, {3.167*^9,
3.209*^9}, {3.53*^9, 3.6643`*^9}, {
3.835*^9, 3.5233`*^9}, {3.4677`*^9,
3.83*^9}, {3.288*^9, 3.156*^9}},
TextAlignment->Left,
FontSize->14],
Cell[BoxData[
RowBox[{"growthPlot", "=",
RowBox[{"Show", "[",
"gfCurveGF1Plot", ",", "gfCurveGF2Plot", ",", "gfCurveGF3Plot", ",",
"gfPtsPlot", ",",
RowBox[{"ImageSize", "\[Rule]",
RowBox[{"Scaled", "[", "0.6", "]"}]}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.441*^9, 3.884*^9}, {
3.407*^9, 3.367*^9}, {3.739*^9,
3.766*^9}, 3.511*^9, 3.872*^9, {
3.657*^9, 3.361*^9}, 3.074*^9, {
3.158*^9, 3.041*^9}, {3.984*^9,
3.4857`*^9}, 3.7033`*^9}]
Cell[CellGroupData[{
Cell["\", "Text",
CellChangeTimes->{{3.939*^9, 3.419*^9},
3.0152`*^9, 3.961*^9, {3.167*^9,
3.209*^9}, {3.53*^9, 3.6643`*^9}, {
3.835*^9, 3.5233`*^9}, {3.231*^9,
3.633*^9}, {3.606*^9, 3.407*^9}, {
3.816*^9, 3.99*^9}},
TextAlignment->Left,
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"figure8", "=",
RowBox[{"GraphicsArray", "[",
RowBox[{"{",
RowBox[{"{", "tempProfilePlot", "}"}], ",",
RowBox[{"{", "growthPlot", "}"}]}], "}"}], "]"}]}]], "Input",
CellChangeTimes->{{3.451*^9, 3.58*^9}, {
3.292*^9, 3.851*^9}, {3.0687`*^9,
3.62*^9}, {3.812*^9, 3.0083`*^9}, {
3.7357`*^9, 3.012*^9}, {3.991*^9,
3.6303`*^9}, 3.9913`*^9}],
Cell[BoxData[
GraphicsBox[{{}, {InsetBox[
GraphicsBox[{{{}, {},
{GrayLevel[0.85], Thickness[0.01], Dashing[None],
LineBox[CompressedData["
1:eJwdmnc81W8Ux+0yIyJlu7Zr3st1r3u/xypFRqQiEpEWhYqyV0iRJJQREQ1U
yE9LRklkJis7hCSSyPg9X3/1er98x/Oc55zP+Zzvba+Xi7QbExMTCxMTawj+
L+NBydBaG80HCEHXPzdvysWig6OtspgfASF4Kltr7iOWErx3tJuFAwihZtvY
u7Wx/GCK5gKLNhAiBLW+d5Gw8mDlL5Fhu4AQ0yKZkNqE1QUTlM2rbIGQzDN6
8+I9rH6DMIsEy0Ug3LpP/HWoFfsYv6Hrp2EWEFJN3q+aAPYpYzLmetUUEO4k
SGdebMNaDx/0PXmkCgg59kX7/YexzmCptmIXeyA8aSkzXLTDuoxE36SynAbC
s7LnrQXRWPeGzQ9Ds0OAUJrVxD/3DeuJZwvfO5QHhP8ifIJy72B9GeNa8y6z
QHh7hdeV6y02dHj/B3HNWiC03n3B7DGKjQdLKrpoOQJh0bFkunweG/9+MPks
XwUQlqlFdb1Z2HebJLbgya1AWJMccbL9jk0obhxIz2kHOXZW2wXKODbZPJvS
tWU3yAlofLlTzoz9lHnHafmXAnIqNL2WsGjs51WmC07tySCnlvflqWck9nOB
+u108RzIaYlpTlF3YzNuXwZqS76AnB6KqIM19otq/nL4dCLI7SyMkQy+j80O
65yT6OcEOfdKjWr9bmxuq80j+T3o+Sfa96fvr8Dm9pwZJr5wBznPucUb7VnY
3POH1vq3akDugp0CVVAY+x0nRbS3CgG56IIw/6Kv2B8y57ebb/+A3OP73Sb+
+dhi1Fc7nnsjIM/8Yzg7mQdbLD8XcOsUD8hvsPDmt/bBFid4c2S0SSDP8/J5
wxcjbGkPfUb3bTjIi1SNJroKYP8EM2Jd+mRAXs1/t1pkKLacdfj1fyJHQN7p
wa3mA77YcsvCN6O+aJA/Ol8m6s6KrbAmcH/KLQb5k1Yp5L9e2Ip75YEREhPI
++lodox8xVaJUnObrLJAPrEm9pFHOLb235CCW0wfyH/kmbT9TwBbm7y4Z8aa
HeRbj7ZUVtgBE18MlR4nDPJdn8qfWNwAJpB2rrNhgPx4l/ju41uBKcf68dfB
a6CwocHJOI4bmI8/Nd24qgYKuyxkIh3YgeWPT8Bh3VOg0NMcZH36C7DyVXMG
GtuDwrfQU8SR88CqsDn5trUpKPw0ddxkaQ2s+58UfzlJAEXWrYNMIlRgLf/5
zTKjBxRV6rKLJlaB7dIpC+DYDYqhEanHKt8D240XPU6CFFCMu/84+VYTsD3i
9giQkgfFW8NKJkmtwNb7IKycygKKhTk/t5uwAjt9/LnG6QpQ/Gr1ZfkfC3Aw
uUlJfVYCJcxvqFlrBDi2ljxmDAmDkjmJy7HEETg02aiHfrKB0kHOqefHxYDj
SI5t6sYBUPLhOGv73AY4qgZjBPRTQCl/h8OmaA3YEOk4y3xvIyiLrE2NUJ4C
J5dd9ZD3KKjw6jMxHRMETkJp0waZ76AiMeuV08oEnJhQt0rrFKhoNEy3OBwE
Tp/WmXNas6BiO32LPnEEOL9aim+YXQWVjLGacVsX4CreeZ7oswVU9eouDJ6Q
AB47iqKfjzEQr9Rhv4IOAM+ZW9rpsjuBmK1yxt+nCXhi/zDetu0GYnnJS6eF
w8DzpmQft7YVEEf10p6HxQGvkkZo+twhUDPibpdr7ATeZcXuah9fUGetu2d0
SRw2ZYte5fPJAQ2r8E9vlE7CpoqyTb+bZUDDUXKbmf1T2NS2N7FHNRs0jn+4
tfpiDvhZTBpsZptBI9ysrUHEGPi1g1qlHjaBxnOWxpFTj4D/5szXCvFG0JQm
PHAQ+gAC9u2/fzDXgeba0Uhiwl/YPJIuu/fDG9DuUUtXfSoFwlRxmH1pARSW
1nqfVAYI7ySt7kuoBcrmw/l3t7aDsK35i3I3faBID/LmWPuCsGeAThCfClCg
8kZOSzMIZ/eocjpvBErgVEPMiwAQ4U4VkWKtAsr8JyvhB54g8lXoxx4zHdDr
DhNv/vkDRCZUHxRLPga9cZNQa67DILJg7LH5NwH05v/KK6ebw1YBn6HOdEGg
CihX5fvIwVaT1k7X6Rmg7qhy3GI/B1sLE6ovJj4AamFe5Mp1dhAN4Um93y0O
tDN1j5NVmEA0zmjzZEQr0C5dtswvzQLRFP84dfVooEWRsz+94QbR4tGgsohZ
oN0+Yr0JRkF0sNK1Vr0OaDW/08Yl9sM2I1/iUKQv6G/hmhTQq4btHD1V4hoN
oF/Ad+y/2XHYLriZ5twTBvpP3t1g45aE7ZKmJfeidEG/wvNX16ANbNctva/S
kw36HxN8DQsfw3aP+DhqlB/o/xCpnsnIhO31Rnb7ewlAJxpiLDyHQOzqg4nE
ywFAzz6u23pEHMTSvst0hb8EekG755o3CcTyFRykgpeB/kRdw2XZFMSqcj4W
+qHr3zx7CDHbQWzhzqP644h7lpZniypA/Mg1LxazAGAI3Do231gC4p4N93ft
fAmMrRx8wdhBEA/g6k8wWgaGhFtp3A4SiCdftpLQR9cr/3UPLpwE8Y8hmlQi
YiNPprhlD5Agn53z3oT4bFH2FVlekDAsVvmPGz3vgl5bcpI5SFhOH2XagJ4X
UBbv0/sQJE6caL/GhK6/HM3VmDsDEpmupQW/EN+5Wmv1TxkkOfddGGxDXKP3
1fTzCkh+pSxb3woAjOt17tFD20Hy+80Z/+NLgPFFCuyPiAPJ+dmRu/p+gG02
dP4tXA9SG+zc/c5UACZ6d36f81WQkuK3qNvyHDCFP/P+u7lAyjpC8tjhYsCM
NsreExkGqf1PUy+Z/gRsh4ll54ZPIOU4KBivpQbYrotBz5/FgdQJxobnbI8A
s2xUktXoBamwhRmOggLADm2J41lcBamSk5W5c9mA+RhsgR2sIFWRRv2vdxCw
8xwmbxVtQaqyrqTxnRRgfjUhwXNFINUolz+fkgFYkKqNpsYUSH3rv25Cvw1Y
9ENxwq4WkBaxOTJyOQmwO96nDw+OgfRFGqvs9ijA3sTxVhtzgXTIbofH6mKA
vY1oeedsAdJRB0t0DZ8AVu2X/DxjCKQT/dzMjvcC9tH6Qel7n3Jt
ZETq2saVGtsBwHq7PrlsvQTSg9iIhcd5wPou/zpZ5g3SY5b6nQHc
gA1ovms4sAjSc6d/TOXoADbs92QyohxkuB9aCf26Ctj39ryj3p0goy8v5HaN
Cth8Y8HxwPcgY0g+9fNuM2ALtIxcEivImBrX+pe6AfY3d0jCRwdkbF3PX+1N
AOyf14Uln2KQOZXVWaY8BsB0ckorphlk0renc7xPAmAPu3hfWBNkVgXk8pmm
Afgi4iUEZ0GW7Z7js1e7ADYJ5sW5PwFZbt2bb/zvIb6rYLj4DmS3OrF3zNoD
8D8/N2lIBlmtB6Psw7UAm1ve+Eo8Bdljxnmu7+4ACFemvd8nAbKnv/R5hS0A
iFConIedQNb3pPAlbC/iwnAL12qQDb0elVi+EWDrLZlHX+xB9naf+9sCH4Bt
B5a0F/eAbLOfgmTcbgDxbNH7TWh9X7gPq5jmAkhwMMcNSoPs14xbuuxMiD3q
z1qygexE7QaLwDIASRXuqtABILALjAV6SQNIZWcHTsUCQe/h/R7rvwCyzqVF
RspAAEb/GJ8N4hKhP0YeQNjRKjJbXwhA4AivDTYHgs3faC6jo4jz05Ku9AHB
08RDj9QEIDc4f1UuEQjZ/Yq3RPIANfBrqxWGQChgfn0Dk0J86tzZgiQgFBFs
493TED96lPTnHBBeHA+5XHoNQElFSG36ChDa5jr9bM4DKEsuBZpqIF+4Mfpg
/A4AlckcjaQRkONWkdhXVgmgKuMmwE9CPnFPiXUfFfGBxFySAsiJJw7sJqoh
rtYVKmUCOR1xCvWjMADxetOxRx0gd0xzXIxjFEB9S/j0/VWQO20btFXNGbHR
U+InJ5DzuSAktK8b8VlXoUYBkAt+CTz3PiH+uFdkpATkUnbcWjFE8dTwjx4q
lQW5Dw47+4KiADQrPXU3+YFcU+DX7jwUf80xx512wSD3Ocuno/EigBbvkN80
8rWD3zKbxDwRH3z2xL0T5Ja8Ft4g3wVaU/E/xutAXiXiftYfeQAS07aNyZ0g
r6UiLvHODbHs/U6jJpCntCTeSUb5R9rR8FqlGuR3SASm6MoivjJw86g8yDuX
28T7oXiTBazVTS6C/M3JtcClbQA6XNZE8QMgfyfR91/9QcQKXaxiMyCfQ5nw
T0tBbMKZLNYL8sWRn8/RRBAHeczkAPKJkg9PBQgh/kF7x8sGCkw2++1X+QB0
X7Jav2oABY7Fhs5PexC3R4/JRoACb5ahXUYc4qnamV/o79t+EPdi3AAUseOl
TIqgQL7MuisE5TfFz/ONvCEonKgoorCwAOgRxE0+F4LC2SOE0lYDxBR/XiFH
UPDbkKaN5hHQM0+JnToECpG2keqGa4h95bzkY0Ehc9pBPnwZcWVM/UsDUPgs
s2ELO6ovqiXvypwD8qEFDpxMaD3Uw7mx/X6gMKRRuPxPBvEZnubLUciHYnYj
MxaIE8xLdNRAkfNQXkk3yl/qp6wPCkdAkX5rh22RLQDNiCc9ZisoGkukmRZM
ILb6utzZAYq7c6f176H10ZwuS6UZg+L+kmRC6kPE/i6XtU6C4tmWb78j0P5o
j3cbyxwFxTyeyKQDxQD6fPqLE8WoDG50Rdug/NYXfX2zBPGz7cSAPb2I5SQe
7bwBipVKn48abUBMu/QJQ763e6ccieiE2L1kZ4c3KPGF1rSz8CB+fvrZuQhQ
2sK59f1yNuK3LFbdraC0PeHUiwUK4vpLLEwfQEkxUyhnyhXxV9HhsyWgZPjy
qE9HBQCdWdjMMACUzi+wCT70QGxsLhAXDUqBvKV/BcQRm71S9uUGpXDCsd7z
rYhttrFLJoJSvPXHXEN9xEdu9WzUBqX7j27odG1CHFgw1rEKSp0uMvYcqF7o
T23zLYJBqc+vnXHqJOLyNPfblaA0Eh8l04rylf66SbD4JSjNvPw+mR6L+CP7
nGoIKHOKPAkkOSIeKnwhvAzKeo2Q5cIGwNi0ObR9CpSx4dmI9/8hFnLoVwoE
ZZOle8eJqL4YosldQudBea/iRs2/nYhlhxhPf4PyibCm6nh0Pgzd1lVjY1C+
TXEafYX0l+Gof9JXBZTvWvJ/lEXxZhx5soH3ESjfd6sqin6J2F00NHcDKD+7
Ie9ni+qT4fnulnM8KH/8Mc05sYQ4OKn+mQsoL+cEErfeRZwp5ibnASqsDL4b
CmKIc9QiEreBCmdn5iI5GfF9Uub3ZVAR4a2q3Yv2yygS319sDiqafhsd47wR
vz6a6JAEKu7mN64xGSPuHiPIngGVU2OE33yvEfeZVsW5g4pPaJm9ODpfxmCW
23k7UAkp65KnqiIeR67iPKjclpZ47bsF8e+hn4IaoNI0XzA9hvQP47mud18G
VDoSaLZ/kP5hm5x1fmOg8lW54QUb0j9ss/x3h4ugMnH452VppH+YyO0mflNQ
ZasnSzo8Rywjr4f0QVUvo9KyKRoxuSXqvACogp51aR/Kd4wiX5rbC6o72oa3
TwUgpp5jdtkMqrac7OOcZxAzVrCbq6Dq6WMWYoT0CNv5OvS6HKjm7Owofq6M
+IBQaXISqBacfbdBoxrxweHOOnlQLbpd6vjgEGKHx6uor6u++JnElR6P+LB2
bPReUG2/ZX00/Ddid3aRp5pAZB9t2GqF4oV5N1q9QXMTD/8Lz/r9iH331kjn
A3Ez9UGt0Qzic+3s4b1AlLgW443rKeZXL3XCHoi6OjsaxPH9BUXONqYC0SPy
bfAEyhcsxiTKqxKInkXFHa6TiGOvsuw+DETfrizVrxGIrzT/WWQAMZQY1NWM
x+uaxdmsWSCmftbXfo7yAbshVTrOAcSPhLKxcPw87ij71qQDscUij74SjDid
3u69CMQvfjeTLmxFnGGhfzcCiMMNvgYnzBBnue+U5gPisq/mbSukJ9g9X4KO
CKgRqx9Zil9C/Ii35OgfUCOdvaSA4ef5eGOwoAuo0SR3rbmgfMEKmQ7FBYGa
6cWxorw/iIvGvCvaQc1VS5ZfAz+fZzeWjlWBWkpWagve77GK0yn+UqCWaeFR
4FaF+AX9bNFvUMtd1g2NRn4Ce8n1dbYc1J7t/6zZ0If4VUZcSDOofdrEn2h3
AHHlgw02iWjODLxsc9wc8bv9h/q8QJ1LxU7lygPE71kzUlNAnb9LjrWQE+fH
XwvTQF2CVPVs9h3iuuWTncOgTplcFULpBNjHsJO/DoG6p73v53gS4madQcgG
9XMbjR4/ScS5NsdJC9QvlW2ObPuFuGVvxS9zUI8RKNbZivwM1nps1fooqOfU
TSZnKyJuD3Z8hp7XpeuyvxTpHdbpds0pCNT7323KY27Fueu/M4dBfdT25W8L
PB+6zOMf84P6nLdIwtgs4m61PXpoDubocHfjRfqK9QxdUIkCDWmB7Rmgi7if
v+z3UdAgHPA2ccfX13/WWsIWNBQy66bipnBubvqsBhpqauepXUg/sIG4y18Z
oEEza/7ig/onNrhAnfkAGvuiovhz+xGP3LFV0QeNA429zxuoOE/ll/8BjUNb
tJ1mkZ/FvukLXPkLGi45A4+xXTh3Kr/fDhpeb2m7Op8hHmOvxaZBI+bfTDj3
ZcTfKZ++jYLGVaOdyppDOF+6LWkKGgmx6S0H9HF+lWM+CBq3RM0k7+HxnMDO
+MeBxj2d3JcMB8STVJpjA2i8Pms/f1Yd8Q8+j34m0Hgb4pzUuA1nQ4x5ADRq
4t1JSmw4n7ssPQka9Y/Peg904tztcywDNDq+X56xQv0Um07/FhkNGj+PlEyq
NyOe4fEcNASN2TMVsVcqcKZs1jADjfngSqWxezi70ifQ9f/SP3pk+uFcrv1f
LGhu6Boc3YTn569DLwpNQVNqL9/ANNJXbPb6Lgce0JQ9IhSyG9eT2TJ2c0HQ
lD+zTTJvB87dh2LlQVP1mpyTE77+OelB3e+gSamn9TTi+T/3yLlSFDStDT06
Hgsi/l28zVcfNG2tPc9vXMW5iYNPAzT3O/tuOTqO84873dqg6RgUbCuG+gk2
r9SUKwyaxytutsTh9TWf4VK7CzTDtKoaTpYg/uO3cugPaEaGl6veYcb5pqbe
EmhGtz+Oa7DA+YkAiQSa8edT9qiO4TzW5XQTNO9UnG6cxte7YH1vzQI0nxtu
bTqD68lf4d9810Cz4gafelYDzmoHeNH1r0ZY41twfflrct4dXV8TOW2l+RRn
72/2RNBs+VDdPDuCc322Pg00p6w9W8+h+QNb9MR+lYLmz+yjWrm3cA7N5fgB
mrNzBxM/49cvJjUbq4Hm4k1jG51AnCsu9TeAFkeXaNsCrldLrHoNzqAl7Vzz
+aIwzrE99TygRXhSQX6A189S2k+KLmgpshTd7F6//kFrCidoqd1Ls6Ph+bxU
z31EDLRo414dy3h/+cdhq5oPWnZntnUGDeJ8vmx7DbLZ0W80RnD9/xcuf8MJ
tA7ddY3ZnYZzvK9mL2i5tD6iCuN6/u9+vnMGaHmR6bcf1+DcEVS2DFqXl5yd
epEfxJbVNK/uBa0rgmzPDcNwpmSyo+dfUynYlO+Es+FPZAu0kg79qvQVwXk/
JQP9PetNuAw3rhfLQX6Lh0Hrv4jcb9QTOL+fmWKA1sv03fQsPN+Wmx8lZoHW
m9LpZA4ZnLssA6tBq3ZMd0dLD84T5sQm0GrdVZe/rp8r3IpojtCa5Js8maKG
s+nd7VygNa0QX73KhbPl9KQjaP0Ckpgr3l9W9iv0ZoPWwtmARvVMnN0OMf8H
2qztfGrv+XEOabO2B22xVI1f87ierZSojDeDtmS2ceSZJZwr5I01QFvm4YGt
U3g+rlRuKmADbcVXwdjQ+v0fi7GNoE0abLz6aX09Q0RrC9Deo3xCKQ/f7yoP
TcUQtK20A19J4/W3KqBXLQDaNvrXre744yysNK0F2gctyi8k4vFaley/7g3a
bj4ctUF4/Fe1chY7QDvwRc4RO1yfVvcVeaPnhdSU/W6ZwPngl3tioB3eWB9t
juvTquPcZQZox/T/KjJiwtmdo6cQtJPZsBV1CZzPZTKXg3aheW/qBnucEwt3
RoD2k30zqmEuOCdLEnlAu+Qw65uV4zinRkZWgXbFWeXROVxfVrO05vtA+91N
f1J/Ms6PBSMOgHZf35bm520416ytpYD2kJKo3AYGznX85nKg/c1XzN8uH+eP
W1Beak9xyUrP4/m72sKMzkl7UUfDR5uAc++hE2g9y6Ha78Ou4dwvOhEH2msN
uttb/uI82BiyBCQOF3rNmUacx0QsM4EkeM1sS+F5nH/pLngDSbjL4vjKAM5z
+cXngbSNYP16D16/q3/4Sb5Akqo44D61Ho+l6l+XgUQcdStXeo94jbXy0kcg
mTJC7HNxfVgTkniCnmcWE174G8//NWH2fVNAsmi/zGqE9681keE5LSDtO3H1
4VAlzttjDsYBySU5bUUKj9+azPkEMpDcBjOsvdpxJkg8rwDScdW7uW/w+KzJ
vbEZApJXVb6F02acFSdkOYEUMF2aeRvX+zW1sTt9QArRK5+bxOOzpmE7GQSk
8IiXplQ8PmuaL7axASl2W9VMF35+ayTvnU+AdGtHs6EI3j/X9K6qof2mXW9L
dsfjs0atevcDSOm9HROleHzWaL/SxoF0z/vrDVtcf9cYNIkXQHqSMTGSiPeH
NcOgB6ZAKnmSrilih7ORp8leID2vsQy8Y4Wz8QH6NJBefS8RzjPCecd21wdA
qicFmlbgfnZt12HqKSA17lS/ia2vf7dMgB+Qmg8ODtaIr/OA5SEgdQTvuPgJ
r6c1c7PX+kAaqt/0aHABZ4sh22Ugfet9u+iO+9U1y4vP8oE0/tPXZBLP/zUr
3gZ+IP0U6uybx/3XmjWBFgKkWYUrKhc71/l+Wi+Q5qn0C2stOO+Vq7kFpH+H
swU4cb1bs9kcJQakVW9bx2uv1zmU8AfIzJEcDwTL13nijj2QNzw4aST+EGfb
Qml5IHO9Eo/Pxvvv2r6NJHcg8zY19SpkrLOjSi+QBedJ5zQT13mh5RSQRTaM
vi2Lw9mOHkEA8rZtqXy0qHUOIlgBWZxoZl8Zss7/PesDshS2ct/Ef51nSMlA
lndzActTOO+32NQPZNXYd10Hndf51lv0fsrnBO7TO9d5+v1fIJtIHaSHqq3z
/NlJIJuZvOq4IrPO3Xn5QLY+KeN1c8s6P6zyBPL+hMsbMzeus8ebe0B2LJ28
m7+8zgLJxkB2rkufJv5ZX0+f1zyQXXusqE9/rnMebRzI7tMsl3XH19nj7xkg
n2AqaXs5tM7yOeVAPi14TMqgdz0e/bR3QD4jL3rqXcc6J74+D+TzZkHszR/W
4ztxEd3vnyUlqCy/zlFvrwM54HeVVPh6/dmKs84COTyDg6ZDXT8f3ZMngRw1
m28an7x+vi+ivYEcu3P3vvG5ddZLuAPkhJlrZ24/Ws8HWcshICeZaATOr+/X
6tqKHpBvpbZesTi6nl+/w1SAnGEknMe8np8Wj5Z/A/nhzYwe9/V6M2vjTwNy
4QSMv1nPPzOejtdAfsoY+iO6Hv/dYLgM5PJxBf4GXH/XTG/MdAH5HbVoh+bZ
9Xr5UY/y40O8tU3sp/V6mpvSAHLD8JzzyHq9GM75oL+3XdW9lLweP+i7jt4/
0P+meNkWZ33XVZRPI6Qjr/cVr9cvaZcBkMdiWD8W8a7X+8rDZiBPa+0cPYLP
D2u6l+KMgPwvonn7e9yPr2nJ+FcCebXLW0kqaV1PKowOgw6LmpCO/3p9qe9+
lww6G78csFbF9XpNdV/tD9ARVhqISsT91Zr8ZrVu0BENCrsxua4nBM89UaAj
1ka4a9y6rndVz81BRzbA48XCFZwlbdU7QUfj08yvQ+v5tFVk7QzomPkyH1LA
/fzaRqHgJdCx+G/zvWR3nNkXGmVAx3pV9gfb9Loet96bBZ0D0TsCB3F/ubrm
WbAIOm53rmTeEVvXc/pPCdAJrt0yzI/PW6tDCsnOoBPOpaAStK7//Re1EkAn
ypLi8+PYen+p5tkMOnFdDmz16/3iiy6ai3RSf2TJR9xc70+5MxmgUyKsfPwv
vp/Vp9FU9P7nDrSnx9b7ZZHWtwHQqcgyX/qM+63Vh62qG0HnrbLXlad4/Fbv
TQtlgs4nRsnj05vW+2kKtxTojB9jzAzi/mX1QkpXNuhMPrLSs8T7wapPUFY0
6Ez/OhL6Gp8nVr3sVu6AzvyliM231/2De9/3KdBlif9A2rfuD/btDIoFXbFy
mwsfanFWP5jFCbqStYLlp/H6WlV+XOgEujItbYsC+PeAVbm5qTrQVZy0vWiP
1/+qmN1JLtAlS+wLmAjCeaOXpyXo7onYH8aNz8crX5s1pEDX6rpIVZElzp3k
u/Wga5PeyWqDn89Ka2wHBXQPPj8QcRvPn5X3rL3CoOs2cfCyCu4/VopUrheD
bpCVQ5w5Pt+uBCg9JIFuqOP2hpm3OJ87j/ycbsTxXt4kXJ9XPIuukEE3NvzQ
ta8cODuPc94B3eQyx+uncT+8YnzCYTfoFokdTr6Gn/fKhojrZaD7VEnyi5Y2
4uW1yBgF0C0lD4h04P19ecFrqB10X1g6p0rgfmV5dK0uGXTfhx25XfgZ51r2
mEDQ7R93zWrC63k5wGsGxXNYVzDbFNeDZW/R2iXQHY2szqlc97vH7om7g+4P
Wdm8J+dw3nug7zjoLjkOP7qB98dleQpwAUWozbV8P16//95fQOumbJUR/K8J
7w//Kv6dSQXK9jPVL0xxv/Gv8GCmLVBk+GRf6wngnJT9+hBQ1E2Ha7bh/ubf
YYczsUDZ9dq1qQ/3I0tTKxGhQNnDK9iyH5//l75OoXmWYuVQ3dqE+4OlT4XX
coFityj7uRKf75eK7l97ApSj2sM92bgeLnk5K7QBJajAdcwd17fFb6cmaoES
+ldwvA/vl4ttBvGeQIncUT2xH6+fxcr+ICugXBmR/WGKf29ZvO372BkoqRLD
c8paOO+Z5dAGyrMk19VpXN/+3s8sHQdK2YOqv3dw//33hrr5R6D891Z6djc+
H/4NikxgAsqbH/3f8nA9/2sbfjsMKA07HRqc8OcvrDwbWQLKyJJN6id8vQvG
VppmQBnnf3ojAPfrCyr/ml4CZVJB4KoyrkcLgq4mFkD5ZdMUEvUC8Z9Bl5fq
QFl5bHaMgdf7n4t88e2gJ+xsRCpSQTyf7uHyE/REz2erOeLfS+ZDfCqaQU/s
KrMiN+6/5l3V2KVBT+a/N9uP4X5mXuHhaAboqQvSWCRxffj96Fm0FOjtfKfV
FI/7u7k8SWkr0PNXlTlxBvdDvyzpWt6gF6A1k6kdi7MCz9gX0AvWe9325w3i
mVVP3xDQi9zpQA/Ev7fMPByyXwa96y5J/DH/cGY+mXoX9ApS2ctyshBP35x4
5gl6jzLbJt1xfZh2NzIXAL2ivGwpZfz70LSOKCpLvdISRkwxPk/8aNddlgG9
t00XDr0yxplLZOw76HWzf2fp+I540kEoLxf0vvIsabP6A3IBh5
yhGf/ya++/EQQG9UWvrzMD6fT5w7njoMerP69vkzeH18j3wrJAFULu8GSy78
/MeiyhjCQOX1TwtvxPVgzOh5fhlQ+UM8yhNu48zEHB8LVOFr7DIi+PeO0fPu
c9pAlSmgz8t+QfzNHmvQASq1v+g2Hff/Q8v7pBEzFE8nfMbzZShvm0YCUA3O
qkSdwvVjyKKv+xtQTVnun73dhXgw3WHTGlD3yWXuXNJBPED84EMFqtfJa7/L
cP39Kvrs0GegepeYT1jg33d6n/ztyQPquRWu/lF8/727OOfPATXgWtTHLXsQ
9/iEpPsCNeZJ0F0f/H1d/x3oNQVqzoKnhQauPx3sB+2qgHofVI3e4/Pg5+jE
1yxAfRA9oXcY93efuQ5qjwL1yTZ3wjU8P9o5A9h3A/U13XHpB65XLfPpgRFA
7Qzfc78A9zuNoSb3HgO1p4E73eA04oZJNTn0vH6hD4ldeLwabA5cWAXqtzyT
oI24vn2UcPz0CqizH+i27gmI6zKS3ayAxruJyCyL61214bBzBdD4JVOnZ3B/
UZUWSuQAmqAGR++rFMRvZ8wVJoEmajVQvv8b4srkfUf1gSaXmOQVh/vNVx9z
Fp2Axtjy7+t8GeLnHf6JRkAzkPf4WPUVZ75TAuh5xjqf/0vA11dmrP33D9B2
7y+6qWyNuKRA5edLoNmlupo74fPQkwP81OtA8xKrr6jDvyc/MN5EJgHNm6ib
fxNfb4Gdy3b0vHP0e8ku+PfWfHcZuUtAu+QUdHYZ9995gY28UkC7nKWlpIn3
2+yrzLF+QMuSTb2Vhu8/jaAf/BRoOSSOyGP49+VUzq+cSUDLM/bxIeF6dmvK
swfxI7c9Fk14/d/MNz5UCbTy+8wcrLgfSlisrvkNtBZlD99TuB+JWlYhOAKt
PaBWlg/345EJ+7TtgfalSbqlGO/fEVJ6UTVA6/PpUZvD+2eo1op/GtAmX+35
7o/7vUuyzIF1oM9hpe0UieeDp9RUfBPoc2Yn8OK/f2CnTjhl+oE+z++pF3W5
iE8UPvBigL5gap4oNz5fHFO4TncDfanhrW3X8fUf7uxrGgB92rlV0wwlxFbK
c4n2oM+os1/A8O9TFtv2n3AAfcNtz3MH8e+T5qxR3g2gb/rmLCsB/z62s+rf
rm2gb7dx+NUDX8SM34pbRkH/zO0PWvjvx5gqH28BE+j7TMsNHsDPQylhnPkl
6F+AsPhFfH5X4NkZ/hj0A7/Rfujj30+kp2hDZaB/Ra3wfjU+T4pY+GJJoJ/7
NkmsCdc/pss86Nj083syq/O8ABgrFbQwXtB/OP/wRCDyK4ylb/HFaH1PlarK
VVC/YswTrNjQ+19f/2UTjeqR8R0rb4sC/S8uFrGA3sdo6kpjtwD97gB7TZE1
xA0RhjoE0P+a7PblJ5rHGR/krpO6QX+4PlAuHa2fUWVWEYvWN6P1sHIR9T9G
iezuySigc7JuXHiK+jXj5uj3E4eAziMulBGD9Ixx/Sf/dCrQN+lKmTjnIb46
JfL3L9C3nNS9wYf/XhZZs/OOC9Cl29zVTqL4Mny/F76eBzo1p9qNgP/+ZjUZ
pHsA6KeMA1tvIv9DX/2kct4U6F4Wf0tC0f30RbOtGRSgex/0SfZE50+fKx/I
DwO6n+dx+x3o/Onj7vYv2YAekWI7uID/PtjCZikbAfQ7Uyq/DuL3Z8qdE0hA
//zJa9uB359yOym0COg5zNKlWmjeo19fe/W7GOgFwiL+XEjf6RHXjx+sAHop
sDK9QPpE92hPT7MDeuONbn6J7YiJj2LZrYDenGE7y4XfLzfJcgbtpy2/qe0P
8id0CSG1kPNA73pVe6tJFTGf3HPvWaB/G3siGYL2r/8DY6lpRdukRasN4b+/
3hfizaQCg3kHK/8n/PfW9IF/jvrAYLMKnK1A56eflJR/GIWJy82n7AbKB/3Q
IuXPAcAQjj/MMEZ6o29fsPlUCjDUhnX25OH3b/CaWhAFhpZ61syxXQC0fynv
OFiAQQ7gvqGA9Jz2M8OxYB4Y+kIDnQWoX9O+MAjvK4Gxa8cV14eoH9Du1ey9
kwgM14IB/yf8iCkxG6TuAcP9j5nYWaQPNOVdS68PA+OEYekbLbR+2vaBGHMC
MM70XGF7huZ56mpcUO8QMIJ4yfFlOxC/bSk6mQmMlDOxuS8CEWO3TdtPAOP2
y3nTAAJitQvPklaBkcl5eFK/HrG4tPy1rcDIzSZrvEb5qbfY+f7BODCetvW/
qCxBXFzPwXEAGI26pJZaNC/qCckvbUHxag7P9I26DkBZi9E7UAKMtmYukZ3I
f1MmCnUe8QOj26P/UB3SI0ol/SZTMjDG0mLGPkoj9nC8mvQCMOaVvpVm5Nd0
H/79z9AKMHaBvynvUH7rJnX04WW5UX6z9ks0H+gG+s41aADGZ2FyvAD1b909
06qZ8oBty3j4OQzVs87k2y1qYYBpY36PtVEh62wztlZrAEzHJtFUCc0P5NX6
ZK0hwPSOPRyWQnpKHmbrRn0Hw+L7RXlQfyE/SBS95QeY2YBJxDfkR8jkv1uS
+wA7Grr50C05ABJd/ThXEZK5myoLV5FfJoldqzWaQDJYYJIYjvRS+9+N1RtJ
gJ1p8avzQvOddnmc8q5PgAVK95NMUT1oq4lUcughGa96xL0UB6DFUdpycS9g
KR21eTNVAJr9i27WS4Ddnug3GF1EXN4qbb4VtQ3BzRfakD/RPM4IfjkAWKGr
3/AjDECjZki1QwWw92wmLxxnAdTdTa429ABWb28poojmVXXS6VtpKD6NxQe8
59B5q7Mw9Yb/QG390EnlaBRYtdsuFAFvZENKElKfIj0jvutnYUPxWD7a47ch
HEBlTd7e3xiNrRUjba2oflWqlfYkIV/PHH1B5BOa71Si/HNeovey9YX4pKD4
qnAtGWkiHeGOvaGihvyxMjdc0UR5uHWoPO0A8pMKowvqrmgO3nb1lSkd+QeF
jMaQsYsAYpS3f2RRf1XY13iLhnyx5LWP1j+Qf5N/a2Dqj/YtT+3jDEP3yV0t
LslFPkv7BqvfY+T3ZJaO/dNDcSMzNsonZiDOyTO0QHmp852n/cIkYrPhkV2V
eN4LaxhGAEinWt/kRXMlTCqOfUF6JaWQc1wSnbOFkcV+lm0A4ptOepE3A1iO
xmafRf1UrGCbgAPSXeuYdz8GUT8TM8jqcDgFYNuMRbxF9b7dS6miCfV1B0eN
p6Eon0RffLx7uQbA44IgHxPSG+Gtpux2qK5ObLM8eAb1hy3pfcVJyNecfHXl
3gCaN7bIbCEaIt32YmOjvUH3CcnvpY6jOfZcwvzxYOTnNotntNcinx324EvN
Kqp33upfycfGASIshPg90TZ4NbP789C5RP6ycuhD/Zwn/cl7H9RXY3TrZl8h
/eI+03GSbR4gvqZCKhDpFydLhfkutO47fXcuLSP9Ym2udDmWBpAR2vn+lAti
GeGbGcMAWXJbNvci/81yNuD3BZT3OSevFrxEfp2Zy03VWhig4G/Ql0uJKE9M
t81Wo/U933xEaykHsJ/DNUf3SQKUp/ouRZoje3/Yy2Efem+FVHTVpj+ATX2R
tOTcB/BKrdhaDuXZ9wr3u9roPdW717wsZwEbtvQ/exn56qbw9Ie5hsiOPrhj
z4vi1cL1xEd9CrC2wfdDBij/Wq/XUiuSAWsVstrHi/rC58ypD02oDj+d3D1q
h+bknpe0saXrgL3rz5OqiAcY+91NsER1U/Yl50U/ypPvl35Mdsciu/dGzpsL
5eUkK/MzNxJgT++aEHnQ3D4toGR4MRrV2T6V8rcoHr+Jfs65SHdyL6psOqIH
BkzuwneWggFLfLxXp/cZGGz9YrMlVwIwDztqCqcOGGwLdnqVugiYG+VJUR8b
GIgpnHC71g6Yy+ZXfElHwUDyQmip3xX8vz/A5vsiYCAvUrzP7C+yQ/4vNZz/
AwPtA7xJs62AaTmZeXXEgAGZSVR/7DFgasU2ZWxqYKCTTxjpRetT/puZqpkD
Bnp/9UnvMMBkTxb07jsPBpByoj31EWCCXSLpKjZgsKezTgiigDH7yi+xmR0M
LEPaXpKPAGP6uPzElm9gYK3Yf1QZ6fgE50OKWwsY2Pr9KRGcA8agYsefjMNg
4CAqZzPmDIxPXyW3dIuDgcfBsBvXUN/M37ivUCocDMK66Zt7fiA78SpfeWMC
GES4S+lMJgDDTG/EhtsPDCJnWe3/kYBhUvAi4vNBMIjh/JCz7SIwqK4TYdFb
wSBez077IAcwZEF06ydOMLid4mXTIQH02SgL84uZYJBO2Hvh21ugT2kNEv1W
wCCjmHx7/ijq6y2tLst1YHD3/b8RoQdA7xwNZ75+DAzuL0T72ugA/fVxTqEE
PjAosbub1GwB9Kiq46HCsWBQOhRR3v8L6MFx4hx8hWDw3PNY788k5Gt2cvpd
eAUGFVFqcnzdQD+eYDq9NgMGlaUVpXvcgW7meW1tkwcYNAq1fa4PQj7MfNe3
JUEw+NbGIVxTCPphSvXGM/fBYGy/VKcT8qn+qpK/lH+AwXgPLXVREvlWibwV
j1owmBw+K05MAH3HduXz1Hww+DXXK5vsA/qUEGN2TTkwWBV6quFBAdrEl6lz
3fVgKGzntJu7CmhGvpfdYsXBUKTbnzt3CdmDc5VDM7fAUNTpRiNoA414jOWQ
ZDkYirl/sPK9BzQR0fJ9d76BocwFkt3Xy0D9XtkQ+rAYDNVSuFyLzIEaJ2G+
MhQMhju6ygL3ojm/9hLrjxf9YGga9EFyP2rvzwNYbi6MguFu2Z63Dg/QXH8q
vOJYNhju8WRmPxoEelfFrj+uqQRDWxazq+flQc/mZcGs9Q4wPKI8kJ56Hih9
Epy8KA8NLwVwvRoQBt3x27s/HD8AhsUSTqunbYE8cLc28yC6/8n9XWJxUUBu
kXmRsn0MDJ9paFMflgP57d0Y8aoCMCwz3HB+YjuQs1NvLo1MgOFLt6Kf7kNA
Puo/0ZqCnlf3mGnA+QyQxtUtC5DfNBykZVfZxIH2Ly5mxvtZMByqiRvwfg3a
g+WbNjmRwHBkz/nV6zOg3XrSoCXuMhiOHTajNtuA9rPB30kiKD4/wuae7dkG
2heEr7d8TQHDxXrjezvyQWv1Y6JLRjEYbT4wGqVXDVpCtdcoKN5GQix1EdXy
oMW+W/NYSR0YbXn0INw8FjTne8VzM13BSJTJM+SwFWh+UcwM+S4FRpL3/1yM
6AXNtOOv0qLPgpHqAodn02/QlC1lvH/nDkY7b8rvdyeAhmHMaiCxBIwCWtwV
E6OA6Mn18WBEGOI+qXO0g0A87cz9qDUR8UT32xFVIJ4qtR0olwejQDZLB3Ir
EE86M09ADWJdytUucSB6lL6LYBNDnM41J1kCRFeXxaYlDTAK8ih69WgYiAdq
Nj7TSkF87gTXvjLE29wES+4gDiPYrUYDcf+ZeltXZcS3U2as1IBoJ150XjsV
8acwmbmLQLS5MEKT4gOjYJJtNHUzEC2IC7W9TIgN+NqHvgFxT8SQ/AgX4j0f
pK+UA9G85/OxOrTf4GP0iq9OQDSL6YjZdBtxmvyPkAIgmo4amS5sRJw3SFUK
QEz3zTfAn//sdlSrBRB3JhWOUd4ibuSXkv0NxB1GDLatBoi76k81vAeiSVri
4Bxaf/BoxH/n0oBo/Gsm0xXtL3gO45A4jXjXfv0j6LyC1xb3vkf2xyjrXflY
"]]}}, {{}, {},
{GrayLevel[0.5], Thickness[0.01], Dashing[None],
LineBox[CompressedData["
1:eJwl2Hc81P8fAHAhIinKJuvsde7O5u7FnbJSCdmhhZCvJBoyKpKsIglFVkiS
ZJOEUGZGWYlsyshMv/en318ez4cbn/f7/VrvMzvvLHqajo6Ono6OQRj7S85a
yRmLV2wC3EtC9OhgOOXmpolzUqkJ4Ap/7JJ32UOJ2xS8cGBOBHBFybkJhz9S
MjYZryTtCAdcCZ8v3piV8npj9Xp9XDXgqmk2oQpClPcbC0Ff+60B98nLnVFf
mtJg+9KIfy4McG1un20yxyiN5V6cNnQlgOtw2xF+P5vSfHk2rVeCG3DdvmvP
xq9S2q4uOU2pTgJusMWgBU+lfN6YD/5xPRNwPz23TjuvU7pzP40z7agC3EL5
LXslN0qPbb6xRMxnwC3vSigOy6L0lnvsPZXOCLi12mgHYwLl6+WppyONJ0GC
4T/tk/pFlOGrCyPnw6JBgmfWgy8ERxnbmGM4134IJPTrI2V2MlF+2FL1Hca6
QcJQ7HXMwQDKj7KE0KPrDiBhEhqhb3mLMu5P3aku7gUSx84lx9lkUCZ+J+xl
vBgLEk6Piy5V5VKmf+mJJfOh919v9qceH6LMHHlwKloRvT+kkn2lNoQy82Im
M0RvHCRCS2qPp3pTZj0fyLqeWwWJqE+j6Y4plLnpGYJKlQBIPPHravI4Sfm5
aCwyrowHiXd9W+YzwpRfYstvh8t9QKLR3/V9qCLll9kT5y/6JSDxERd3iVpG
+fVyOf2jjS5IdKckd5HbKAteT6RfhZiBxBQu+tz4AmVxdhl//bMPSO6NyYnt
vkD5PfEYeP1LQdKriVxVSqGscIlqmbRFgqRvQaap1AvKiu5T1SApZ5C8ml5O
jXlCWUnMkp/8zAaSYcVOjAenKasmL/jK8Y4gmRrcmi0dSFkrqFq0H98Bkp+/
eMc9H6GsDcBcrM4ASPY/e2x1aQ9lnaV2sv5+IUh+D7P3wKlR1p3rh5X07EDy
10W2pVkqZWPfp490yQUgxc5eHSm3Rtn0G8x8am4FUkaOWuJ/+CibGY6pPbkK
IGWm1kwwDKRsto8ks9HTg5SNyF+BgtOUP7I/7vm8yAMpN+mBo+valD/9c4EH
dtKB1B1OgycGypS/sGU98TYLpNrOce64XgHbGKOYHvBcAWk31YAOxirYxu9I
ffCxBqR9zD/x3VWDbXjlwIQbTCAdEHYrlTUKttl2rj/8GQ3S9/CNu4dWYNsr
3rmkD+kgXRmW5q+6B+id0rrTrrSADLfvK/syT6C/5LP3KYEDZET/EE/97AD6
u/pHnk5YgozCI/9UqWigLxlvyjAfBhl94YVQul5g2CNfla2wDDIXTT5e2OUN
DFXFmc+H94PMF6ttGzL+wNAV+j0//iTIjHvQ3XF7CwxT1iIvTLJBZikJ75vd
AoxcG4kFpQSQ3W1YffN1MDB6QOSr2IMgqz/W46gmB9sFmnxLaV4gW0It2hcQ
D0x+gwfqst+CXOGTkxY79gFTdNh4FZEJ5OoK8Atn24Apmxj2ptII5LpH7Ws0
BYGpJ6wpp70D5DbKwvKs/gCzKtE0en0U5A+KbUxc2gvMi2GW9oeYQH6MZSLj
Zh+weBJOL/8yAkWyPm7mrA2w3Bxgmr8SCYoWeD2/0y+BJTk0a3J7Byi6026W
HTQDlpb+yX5+W1BMnJhrMFcFVrlQj1qqOyiu4zQ2WJOAdaL/YmRcJCjV+AcK
SNcA28lbN6U0OgFfHP6CjasT2PyTOsmyjoB/V6T18zk3sEW9ErXgnwF828+A
atZTwFY+VBm8yQT46VSR/i0e2LVPfXmwSh2URUcS2Kdvwq666TPxekmgHDNS
M8hMB7sljxhsNz4DhOtPfO4KdMOepbvb/8u/BqTIoGqnlBfAQXdj0D+6Fkip
Ximv7vAAB9vVN0EXdgCpyIvn0YQJcODcXWPU7gPpyxOehfQnwGFu/LGgJg9U
pKoWqT0dwFHEGjff0Q8qdU0PLCclgfNCmKTHiiao7Qid2V94F/YuhBx0o6yA
Rja/wV47Pdi7RQWJszmgUTG9XKheD/tYGdSHoxxAo70yn3PxIOwTDZG1HKwD
jQ1HQX6hKdh3JGQX9Vo0aJomrH39kgv78oM7BctlQXPpkXMJXR9wuQU7tKo6
gLb2L6kwAQbgHgnyJcm/B3KBT+wn0Ubgnr2kH8CcBOS3P51OrbgB96rHvoYR
HyB3OgRy1/4GHnarV7YJYkD+zSFwc58h8Ggq/QxhCASKZvNk3yIOeGIG3dq/
aAHl7eXStFlm4NXVOnE+9CWAk99WBEUWeE2UFUudwwBcdb5Ulu4D3uOSWww6
jgBe66KnFIaA14MzKX6RHSDQ6kN2QR7wJkz2VTm4A6Q8f8De9wl4fyaY71KR
AujLf3DJzR/4Hi8b5Iwkg67B+JSqXwDw5fZ8+CXlA7pHBGuWDO8D35syYzV3
I9A9fuDdO+PHwNd6/dC75VXQPX3ZMPd+MPD9ZTEbYDEH3aATJom9psDvIGS/
G88Gum9Ee78f0QUBQf3/Lly7Cnr8SbVzrl0gIC21UFp7DPRELj9K2tMEAiRW
HzpmWdCTNGU2NNEHAeNW34joXtBT/lwkbd8PAlesr2Skk0DPwFWV3cYABL54
3OxpmgG9C1l/1CPGQTAhLlGb1xb0at8n/njmBoJPny9w7LEEvQZecs+VaBDM
rzf8scMM9JqdO1P6HUCw7vda1KoB6HUOLeVtDwDBX1ZW33vR549e4e/IkwQh
IwGeOwnsQGXUMUtxNQMhC+J5x2gWoO7Ye1FaCQ9CjsYNKmGMQN05IqZaOQNC
vld9hy6tA3WvK/V5uD0IpQ10E4+PA1VMuGJPfA4IbTy5/5WnBqhkVQvBnhrY
z1QyU7C7HKi6Dz+3lXXDfo522k3mYqDSfgfHdzfBfultS4oreUA1fnRbln4Q
9pufPBbc8xCoVnEuFFMm2P9cklP2gTdQ/ztqq3VsAIQdcqMu8+CAmqLMMHhZ
GoRdI5jpzSOA+qTmQY1LGQj7uAeExywD9alRu/8pTRAOV/B4xFYP1OzDtiTu
NhB+/cK4gt4FqIV8DaljZBBhsg7Z+t0N1Lryqcad7SCy80P1O65woNavCyxP
hoMIh8ZGKIkM1A/E4Mxvp0BEkP/C7v+ygPoxYe8JsykQUf7qLDzjB9RuGWL7
YCSI2NsDjPAB9Yf3UF4uG4g4f7y6ne4TUCdc3ERuILvovPkgHAzUKeuXvAzb
QeTCfqWjdlNAnVO6v1XXCyJhQ/udesqAuvwszuN6CYgUOW4Gf7QDGsOAvYjs
TRDdeaqkruQJ0IT86b+UJ4Eoh/GhUDZzoAlzqRBdEkCUR3nE0HEH0ESeX8OX
7wVRsb87PzF7AU28w6vMPQBENR869FgC0GTmPitNHAFR10+Mk4vDQFPx68eh
fBQ9X/Qw7+B9oKl+sZqZQr74SNHzkQHQ1NXPS/lFgGiQy/FFvQKgaU7d+qGs
CqIP6XM2YwKBBlLqW1JHQbRR7ehuJRGgGbHgTDSvgOgnobH24C6gGauVTag5
gWgX4+V73WFAMznpeBB/A0SH2tN5r/0EmunLhRLJYhBdObci2lIDtGPyi0cv
4EBM8kkyyc0RaLZP9mePzIPYTZZJ64xUoLllGn8TmQWx8DuuJ80mgHbOx/x1
PIBYNNukB50i0NzBt6yUDsQe7Z4MtCkDmkcnz1UFExB7yTWZtbsDaF4juqvL
LiA2IDq5dJkeaL65re+XNUFs5KnrlhRa7yV7O90NVhCbwE0xd0UCzW+X3rNY
AogtSk0JKPEDzd9F3sitCsRZFKZ0R4lAu8r6JbhFBMRVNKaiTE8BLYipYXth
MIhrlrslbOQgP85YqGIDcdCeSstG6w1W47lLPwzixpSpYoarQAtxqv4djuyk
P9VfEge0m5mBhwN7Qfzu0WlZsXqg3f4ZwEAvBeJjrtN1K1JAi3nEKo8PBPFp
p7qWPnegxXLde2E9DeK/rJO7yguRIwd06tDz/TE8PBpIBtq9a5WkDxWA45Iu
YmSxBFrcIeZJ6VXA0cavUgVuAS2hyK2fngQ4oyELoz8tQHsoeFKswQVwR3oU
zYY5kUOM1o4nAM6uftg5PQVoiYeWyB8vAc4nkxas8Bpoj7pX977HAS79NNtb
yijQUsqYBi4VAS7HbuyDmCzQHnMqj0aQAVdgXtXOiOLxsetFAmsN4CpoXsON
m0B7wnXotz2a87vEP9OZ7QVaqnOYZmsXmstHkimn9ID29POuRZZskDjpqFAZ
huI/W7p0N88ekHDV5n68Kwn5zKhn8BWQOM/zNzD2IXK6Z2rib5C43NpOTYoF
2jOhjIUwS5CIpfh8KLgBtJwdLR7BqFe+3V/+udcVaLnvDgWsDoBE/Xr6G/sz
yKvCfCEXQaKl+27CiDPQ8uTPhnJFgkRv5AnbGZSPefecbUpGQWJ+i36EzhRo
z20lHhsHgeT+AcM5aQLQ8ju333xLD5K4UkLrcxSP+X9HDN8MgaRsnMBLghzQ
Xsgb2d8KB0lVk1kfbRxyyFuJ4BSQPFQRvX6EG2gFCq5nw3+jufpRLxOqt7SX
7kmdmUwg+cXmzP6Gd0B7lVqbIlwMkkPtmgczzZCr55XfF4HkmAG71w2Uz68G
Ohy700Hyp0pxre4W0Ip4qy1MG0GKiYP5dIU68p0DCeamIKXckJ1XkA+01yeT
zeycQEqNfPVzlDbytRBasxJIab8+suXRjPxAVk5+GKQOpq0dkUX59vpDpQr/
S5CyDzBczBAHWrH8jgcRiiB1mzSt+TABeaxwpDMcpCJzq0/6SSJvzCS3jIPU
fbF7EZYoXt5w/CSaNYHU4z1ag3tRPr7RsVznDgCpoumIoMhdyDEvmWLjQWo4
TaExOBhoJcoMb6JWQVp9t5flORTvpYcO3TLMAWmdzeRrAWh/Sk/s1PxVANLU
yab02NvIXonbA4ZB+nAdbqE0E/me/If0MJA+69cXxYz2p7SbpB9YB9LxI3oN
6ceAVmaOb1HvAumk1vNzb0aQT6pJH0wA6bSKZK5mFK9l3lzvBoNAOj9+5eRC
BHKUvR1vIUjXG+fRAcrPskbRA2YKIL38mkt9QBNo5YSOQzxNIL2RpnfiZyMy
5c6NfnqQ2RZ1PpTxOLKJ+G6FBJDZ5frhs5wP8qm5AANVkJHYH/CfPzqP8ji6
g652IGMeOp7DLYo8b5X//RjIvLIpEziM6ntF5PoGRwfIlIx03K6QRn5w/da1
IpCpcptalTFEfjy/7SgJZD5cEfjMEI5cEHW/yAdkhh5diyxhQ27rf3c8DGR3
9uvSi+4BWuWuDhJzMMhynLL2isQjcwkxC02ALPfMf4MbR5EFLdpMvoCs6GZa
+WeUT5WyMb+r3UBWXYjxYvg+5AMaVpUxIHvKvmFikRf5sqvOqQqQdR0bPu6I
4q0yMOvcuD3InvdYff/RGvlWt7RiEcheDpBJy0pEvrd9xGoBZKNT7tjZCSLn
FHp3/wLZiiHT1veon1T2nLj9/iLIcTl+Ln4gA7QqySVd5lqQEzhxUFzDCFlu
ouNwJciJ2pdEfXVDxrfxl3GCnILNI1dhVH+rNC85/OAGOX1zJ4FseeRD8kFx
/iB38eBMYCnKzyovUw/rOyB35YD9rC3K5yqfAPMBdM8JorVa//FE9ntKr5sL
cnd1C4m6L5ADmyVz7EEuQ+vSWBPar6rohy3evCD3WYnB6CvqB1X5hnrT3iD3
VcHnzTXUn6tedqzo64HcN7kfOGF03lWvjynWtILcrHTjn5NFyBVqEaElIL9d
LPLFjCryh9iyEGQVbv59f9D+VY1kvVu7D/L3/+CHhHWAVs0+jvNiBfnEoUKJ
U2j/qzmc/kIjyD+pJZ7LnkLe23306w+QzwtVWSWgfKzmzX3K2A3ydRxaHPpL
yGKszY4jIL8ooU91z0MmPrMSqQL5Neb62y9DkFXeOQReAfmtqYOtv22Q1Xq+
XgoDBdYXRnaBKP6qtX5eMMkABTGNwxfvoX5XTf32TMEWFI4ess4qQ+dXbdYm
K4gHheNKX2a3FpHNE4TkckDBntOORG1CtrR1aPEABZceh5qPfsjWnX+Z1kEh
0Olk3zCaF6odo7ZrxoLCi4uebMwo36o9VI/qaYPiruRgL/MN5JA4RWMAxb38
c38Wse+/UV92PRgUeRNs78R8Qr65bDm+ExTF75EyP6F+UR1mOLDvCShqhP0Y
MKAhR7SNXjgFiqd9jI20sM+Ps+vMUwVFt19vevqWkeOdU5IMQNHrPO60nwPy
g9NjkmRQvOL6J/A1Ou/qh6f+5N8AxZgTL94oYs+bfGB7lyAoVhrvw4lh609P
iMhBrm0MfFlzEznDr9vkLig26s9SHOaQMy1XojJAsRPqbR6heac6m62bux4U
J1X9Yriw9eSeuK90BJS4RPu3djxHfplxIVcQlNxXM3rmUT+vrug85CACSt4z
507WZiFX3nzWkAJKfsP4+XiUz9VVqjLHLUDpRkMFszaqZ9XVMRlPnUEpKb5D
NRx7nloiv5QGKLWQtuIkUL+vbsAxiLuBUod0nciaCuayBjNOUOoVvJ3Xgvp9
dePhla8LoDTKuK/uAqqH1R8u5udLgNJGp+ziW9Svq5vzxxKJgOcqyX2mqIDc
+nW8NwHwvIWR53mw72+zPfz4EeAF8v5T2RaPuc8pjR3wok9Ua7pQf6pub4/1
qgK8Qujb3ittyJ2FoS2BgNe37GX+gPKlukcj2zsf8D7LjGdOlSMPeGtKbgD+
UoVd64Y65gYeKz/AXw55rRFTjDwosD9UFPCBnGfYqgow17xi8wf8HaWGV7yo
H1QP08tPFwI+1S38bwuqZ9UjjlyHzwA+Xfm760ls/0ayrz19DfjMNa2OtbuY
fyr6o9fnhc5kSqL5tfr7Na8sL8C/yTA1CQxAHo3K3OwE/MdhjockVH+qf9w/
JNUH+LYsN/qmCcwdTIeDAd/pWevudBp5fLfo3zbA9/65QIl0xBx6a34v4Ef5
u8Ym0HxWPfGf0lgJ4NctEghJaP6pnpLRELQEZcnm/S2MfMizKkYPy0BZ5sZ1
sXMLmJ32NYWDsrzOkF8nll+zEed340BZueCJxNOrmL/1fDcHZe140et6qP9V
z4XG388FZTMnHCEI24/56pQmbVC24L8RNnkd8+hgJysoH+8cHTpqhfyTpWoX
IyjbH8iIEGXBbGYf9gKUXeQlx2rcMQ+pH7YB5WsrMgl/0fxT/Wtib8AsKAcW
3J4/uxN5gflZYTYoh7hO6X8axSw5PUcPymH9OQspcZhPXXKVBeV7tfImOquY
v1aFoOd7dlfx79Vq5MXyrPxboJx3IMpiFKtni91m+m9AOf/vfJ4JFo+LP1+9
Resr8i6wFhRDXsIlD54B5Wor5cLyW5hvCycTQPmzOOn0ugnysr4tSQSUe3ne
al3NwGyf3B4Pyl/ZTPdsYfG4fDGOFAHKw8tnKxheYE5Pn2cH5ZmGR5y7ODH/
tYEHQGB031Yl3IP8OytTLA0IzI6R99Kw+vC7PFDRDwisFgKuOCxefrfy5vQD
YQ9ZZZ+MJublUKFlIAjucXEjoPm1eoXiknkGCMSiVm59Z8wN+RbIqs9spxuw
eF/pyYvGA0EjeeKtEVbvV8b/46oFAiWU3t30PfIqk2nlRyAYW6vUWklj1nU5
mg4E00O1D74EYT6cXvkHCEf1DnvYfcFsn/O+HgjH5Vx5ne5g9ucibALB+U+S
pxtWn1afe9JpA+H0ggx19iDmsm2fFoDg8qOY7zxWT1frnWVuAMGztbXO5yjm
wdtDTEC4nMbAj+YQWvUaW8AtXyDEHnCtj/bHfEJP4C8Q4na4}
您现在的位置：
&&&&&&&&&&&&&&&&&&
一站畅享原生态云南美味
作者：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[CellGroupData[{
Cell["APPENDIX D", "Text",
CellChangeTimes->{{3.6846`*^9, 3.2752`*^9}, {
3.669*^9, 3.846*^9}, 3.01*^9},
TextAlignment->Left,
FontSize->16,
FontWeight->"Bold"],
Cell["\", "Text",
CellChangeTimes->{{3.6846`*^9, 3.2752`*^9},
3.669*^9, {3.1217`*^9, 3.394*^9},
3.687*^9, 3.9887`*^9, {3.203*^9,
3.958*^9}, {3.287*^9, 3.466*^9}, {
3.528*^9, 3.938*^9}, {3.232*^9,
3.4938`*^9}, {3.077*^9, 3.2587`*^9}, {
3.6272`*^9, 3.153*^9}, 3.8553`*^9},
TextAlignment->Left,
FontSize->16,
FontWeight->"Bold"],
Cell["\", "Text",
CellChangeTimes->{{3.0127`*^9, 3.8176`*^9},
3.573*^9, {3.45*^9, 3.077*^9}, {
3.465*^9, 3.072*^9}, {3.125*^9,
3.535*^9}, 3.963*^9, {3.131*^9,
3.708*^9}, {3.5757`*^9, 3.7687`*^9},
3.68*^9, {3.1413`*^9, 3.5053`*^9}},
TextAlignment->Left,
FontSize->14]
Cell[CellGroupData[{
Cell["\", "Text",
CellChangeTimes->{{3.519*^9, 3.7483`*^9},
3.0217`*^9, {3.628*^9, 3.944*^9}},
TextAlignment->Left,
FontSize->14],
Cell[BoxData[
RowBox[{"k1", "=", "9."}], ";",
RowBox[{"c1", "=", "0.01"}], ";",
RowBox[{"c2", "=", "0.05"}], ";"}]], "Input",
CellChangeTimes->{{3.542*^9, 3.283*^9}, {
3.317*^9, 3.1188`*^9}, {3.894*^9,
3.4937`*^9}, 3.0303`*^9},
FontSize->14]
Cell[CellGroupData[{
Cell["\", "Text",
CellChangeTimes->{{3.6894`*^9, 3.778*^9}, {
3.21*^9, 3.718*^9}},
TextAlignment->Left,
FontSize->14],
Cell[BoxData[
RowBox[{"tCycle1", "=", "39."}], ";",
RowBox[{"tCycle2", "=", "35."}], ";",
RowBox[{"tCycle3", "=", "31."}], ";"}]], "Input",
CellChangeTimes->{{3.405*^9, 3.8223`*^9}, {
3.2306`*^9, 3.7935`*^9}, {3.284*^9,
3.068*^9}, {3.303*^9, 3.738*^9}},
FontSize->14]
Cell[CellGroupData[{
Cell["Define and plot the three temperature profile functions.", "Text",
CellChangeTimes->{{3.6807`*^9, 3.077*^9},
3.168*^9, 3.183*^9},
TextAlignment->Left,
FontSize->14],
Cell[BoxData[
RowBox[{"T1", "[", "t_", "]"}], ":=",
RowBox[{"22.5", "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Exp", "[",
RowBox[{".9", "*",
RowBox[{"(",
RowBox[{"5", "-", "t"}], ")"}]}], "]"}]}], ")"}]}], "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Exp", "[",
RowBox[{".9", "*",
RowBox[{"(",
RowBox[{"t", "-", "37.5"}], ")"}]}], "]"}]}], ")"}]}], "+",
"10"}]}], ";"}]], "Input",
CellChangeTimes->{3.4093`*^9, 3.952*^9}],
Cell[BoxData[
RowBox[{"T2", "[", "t_", "]"}], ":=",
RowBox[{"31.5", "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Exp", "[",
RowBox[{".9", "*",
RowBox[{"(",
RowBox[{"5", "-", "t"}], ")"}]}], "]"}]}], ")"}]}], "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Exp", "[",
RowBox[{".9", "*",
RowBox[{"(",
RowBox[{"t", "-", "33.5"}], ")"}]}], "]"}]}], ")"}]}], "+",
"10"}]}], ";"}]], "Input",
CellChangeTimes->{
3.9696`*^9, {3.8208`*^9, 3.3475`*^9}}],
Cell[BoxData[
RowBox[{"T3", "[", "t_", "]"}], ":=",
RowBox[{"40.", "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Exp", "[",
RowBox[{".9", "*",
RowBox[{"(",
RowBox[{"5", "-", "t"}], ")"}]}], "]"}]}], ")"}]}], "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Exp", "[",
RowBox[{".9", "*",
RowBox[{"(",
RowBox[{"t", "-", "30."}], ")"}]}], "]"}]}], ")"}]}], "+", "10"}]}],
";"}]], "Input",
CellChangeTimes->{
3.016*^9, 3.699*^9, {3.2713`*^9,
3.004*^9}}]
Cell[CellGroupData[{
Cell["\", "Text",
CellChangeTimes->{{3.249*^9, 3.0507`*^9}, {
3.465*^9, 3.3043`*^9}, {3.794*^9,
3.816*^9}, {3.006*^9, 3.868*^9},
3.271*^9, {3.7433`*^9, 3.383*^9}, {
3.769*^9, 3.679*^9}, {3.109*^9,
3.478*^9}, {3.909*^9, 3.416*^9}, {
3.657*^9, 3.4257`*^9}},
TextAlignment->Left,
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"tCycle1T1", "=",
RowBox[{"T1", "[", "tCycle1", "]"}]}], ";",
RowBox[{"Print", "[",
RowBox[{"\"\\"", ",", "tCycle1T1"}], "]"}]}]], "Input",
CellChangeTimes->{{3.173*^9, 3.3723`*^9},
3.01*^9, {3.711*^9, 3.854*^9},
3.148*^9, {3.529*^9, 3.6383`*^9}, {
3.164*^9, 3.291*^9}, {3.734*^9,
3.906*^9}, {3.768*^9, 3.994*^9},
3.399*^9}],
Cell[BoxData[
InterpretationBox[
RowBox[{"\", "\[InvisibleSpace]",
"14.076`"}],
SequenceForm["T1[tCycle1]=", 14.076`],
Editable->False]], "Print",
CellChangeTimes->{3.217*^9, 3.4617`*^9,
3.468*^9, 3.6973`*^9, 3.2607`*^9,
3.0883`*^9, 3.291*^9, 3.311*^9,
3.022*^9, 3.407*^9, 3.1703`*^9,
3.557*^9, 3.962*^9, 3.6903`*^9,
3.654*^9, 3.0687`*^9, 3.706*^9,
3.783*^9, 3.172*^9, 3.4877`*^9,
3.617*^9, 3.058*^9, 3.276*^9,
3.111*^9, 3.408*^9, 3.737*^9,
3.4794`*^9, 3.65*^9, 3.824*^9,
3.2517`*^9, 3.8077`*^9, 3.0327`*^9}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"tCycle2T2", "=",
RowBox[{"T2", "[", "tCycle2", "]"}]}], ";",
RowBox[{"Print", "[",
RowBox[{"\"\\"", ",", "tCycle2T2"}], "]"}]}]], "Input",
CellChangeTimes->{{3.37*^9, 3.8713`*^9}, {
3.794*^9, 3.871*^9}, 3.274*^9,
3.48*^9, {3.524*^9, 3.646*^9}, {
3.365*^9, 3.204*^9}, {3.956*^9,
3.078*^9}, {3.937*^9, 3.7627`*^9},
3.6036`*^9}],
Cell[BoxData[
InterpretationBox[
RowBox[{"\", "\[InvisibleSpace]",
"16.652`"}],
SequenceForm["T2[tCycle2]=", 16.652`],
Editable->False]], "Print",
CellChangeTimes->{3.007*^9, 3.984*^9,
3.484*^9, 3.557*^9, 3.942*^9,
3.1453`*^9, 3.443*^9, 3.4608`*^9,
3.826*^9, 3.575*^9, 3.407*^9,
3.207*^9, 3.9132`*^9, 3.511*^9,
3.6387`*^9, 3.222*^9, 3.42*^9,
3.865*^9, 3.4783`*^9, 3.795*^9,
3.771*^9, 3.62*^9, 3.364*^9,
3.8017`*^9, 3.324*^9, 3.509*^9,
3.364*^9, 3.413*^9, 3.804*^9,
3.035*^9, 3.595*^9, 3.493*^9}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"tCycle3T3", "=",
RowBox[{"T3", "[", "tCycle3", "]"}]}], ";",
RowBox[{"Print", "[",
RowBox[{"\"\\"", ",", "tCycle3T3"}], "]"}]}]], "Input",
CellChangeTimes->{{3.523*^9, 3.147*^9}, {
3.063*^9, 3.031*^9}, 3.475*^9,
3.8827`*^9, {3.7243`*^9, 3.577*^9},
3.907*^9}],
Cell[BoxData[
InterpretationBox[
RowBox[{"\", "\[InvisibleSpace]",
"21.518`"}],
SequenceForm["T3[tCycle3]=", 21.518`],
Editable->False]], "Print",
CellChangeTimes->{3.9107`*^9, 3.349*^9,
3.531*^9, 3.895*^9, 3.467*^9,
3.4067`*^9, 3.205*^9, 3.323*^9,
3.946*^9, 3.5583`*^9, 3.6247`*^9,
3.028*^9, 3.731*^9, 3.239*^9,
3.788*^9, 3.018*^9, 3.528*^9,
3.06*^9, 3.1427`*^9, 3.7218`*^9,
3.915*^9, 3.785*^9, 3.697*^9,
3.479*^9, 3.944*^9, 3.0237`*^9,
3.29*^9, 3.308*^9, 3.326*^9,
3.728*^9, 3.559*^9, 3.1674`*^9}]
Cell[CellGroupData[{
Cell["Define the three growth functions as function modules.", "Text",
CellChangeTimes->{{3.267*^9, 3.341*^9}},
TextAlignment->Left,
FontSize->14],
Cell[BoxData[
RowBox[{"GF1", "[",
RowBox[{"k1_", "?", "NumericQ"}], ",",
RowBox[{"c1_", "?", "NumericQ"}], ",",
RowBox[{"c2_", "?", "NumericQ"}], ",",
RowBox[{"tFinal_", "?", "NumericQ"}]}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{"{",
RowBox[{"k21", ",", "sfn1", ",", "t", ",", "T1", ",", "y1", ",",
RowBox[{"y0", "=", "1."}]}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"T1", "[", "t_", "]"}], ":=",
RowBox[{"22.5", "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Exp", "[",
RowBox[{".9", "*",
RowBox[{"(",
RowBox[{"5", "-", "t"}], ")"}]}], "]"}]}], ")"}]}], "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Exp", "[",
RowBox[{".9", "*",
RowBox[{"(",
RowBox[{"t", "-", "37.5"}], ")"}]}], "]"}]}], ")"}]}], "+",
"10"}]}], ";",
RowBox[{"k21", "[", "t_", "]"}], ":=",
RowBox[{"c1", "*",
RowBox[{"Exp", "[",
RowBox[{"c2", "*",
RowBox[{"T1", "[", "t", "]"}]}], "]"}]}]}], ";",
RowBox[{"sfn1", "[", "t_", "]"}], "=",
RowBox[{"NDSolve", "[",
RowBox[{"{",
RowBox[{"y1", "'"}], "[", "t", "]"}], "\[Equal]",
RowBox[{"-",
RowBox[{"Exp", "[",
RowBox[{"-",
RowBox[{"k21", "[", "t", "]"}]}], "*",
RowBox[{"(",
RowBox[{"-",
RowBox[{"Log", "[",
RowBox[{"(",
RowBox[{"-", "k1"}], "+",
RowBox[{"y1", "[", "t", "]"}], "-", "y0"}], ")"}], "/",
"k1"}], "]"}]}], "/",
RowBox[{"k21", "[", "t", "]"}]}], ")"}]}], "]"}]}], "*",
RowBox[{"k21", "[", "t", "]"}], "*", "k1"}]}], ",",
RowBox[{"y1", "[", "0.", "]"}], "\[Equal]", "1."}]}], "}"}], ",",
RowBox[{"y1", "[", "t", "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0.001", ",",
RowBox[{"tCycle1", "+", "1."}]}], "}"}]}], "]"}], "[",
RowBox[{"[",
RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"sfn1", "[", "tFinal", "]"}]}]}], "]"}]}]], "Input",
CellChangeTimes->{
3.003*^9, {3.637*^9, 3.933*^9},
3.392*^9, {3.7776`*^9, 3.6225`*^9},
3.059*^9, {3.44*^9, 3.0365`*^9}, {
3.7537`*^9, 3.206*^9}, {3.1327`*^9,
3.72*^9}, {3.1447`*^9, 3.948*^9}}],
Cell[BoxData[
RowBox[{"GF2", "[",
RowBox[{"k1_", "?", "NumericQ"}], ",",
RowBox[{"c1_", "?", "NumericQ"}], ",",
RowBox[{"c2_", "?", "NumericQ"}], ",",
RowBox[{"tFinal_", "?", "NumericQ"}]}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{"{",
RowBox[{"k22", ",", "sfn2", ",", "t", ",", "T2", ",", "y2", ",",
RowBox[{"y0", "=", "1."}]}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"T2", "[", "t_", "]"}], ":=",
RowBox[{"31.5", "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Exp", "[",
RowBox[{".9", "*",
RowBox[{"(",
RowBox[{"5", "-", "t"}], ")"}]}], "]"}]}], ")"}]}], "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Exp", "[",
RowBox[{".9", "*",
RowBox[{"(",
RowBox[{"t", "-", "33.5"}], ")"}]}], "]"}]}], ")"}]}], "+",
"10"}]}], ";",
RowBox[{"k22", "[", "t_", "]"}], ":=",
RowBox[{"c1", "*",
RowBox[{"Exp", "[",
RowBox[{"c2", "*",
RowBox[{"T2", "[", "t", "]"}]}], "]"}]}]}], ";",
RowBox[{"sfn2", "[", "t_", "]"}], "=",
RowBox[{"NDSolve", "[",
RowBox[{"{",
RowBox[{"y2", "'"}], "[", "t", "]"}], "\[Equal]",
RowBox[{"-",
RowBox[{"Exp", "[",
RowBox[{"-",
RowBox[{"k22", "[", "t", "]"}]}], "*",
RowBox[{"(",
RowBox[{"-",
RowBox[{"Log", "[",
RowBox[{"(",
RowBox[{"-", "k1"}], "+",
RowBox[{"y2", "[", "t", "]"}], "-", "y0"}], ")"}], "/",
"k1"}], "]"}]}], "/",
RowBox[{"k22", "[", "t", "]"}]}], ")"}]}], "]"}]}], "*",
RowBox[{"k22", "[", "t", "]"}], "*", "k1"}]}], ",",
RowBox[{"y2", "[", "0.", "]"}], "\[Equal]", "1."}]}], "}"}], ",",
RowBox[{"y2", "[", "t", "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0.001", ",",
RowBox[{"tCycle2", "+", "1."}]}], "}"}]}], "]"}], "[",
RowBox[{"[",
RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"sfn2", "[", "tFinal", "]"}]}]}], "]"}]}]], "Input",
CellChangeTimes->{
3.4846`*^9, {3.189*^9, 3.4413`*^9}, {
3.019*^9, 3.8195`*^9}, 3.816*^9, {
3.8675`*^9, 3.811*^9}, {3.837*^9,
3.48*^9}, {3.867*^9, 3.7393`*^9}, {
3.898*^9, 3.568*^9}, {3.219*^9,
3.922*^9}}],
Cell[BoxData[
RowBox[{"GF3", "[",
RowBox[{"k_", "?", "NumericQ"}], ",",
RowBox[{"n_", "?", "NumericQ"}], ",",
RowBox[{"Tc_", "?", "NumericQ"}], ",",
RowBox[{"tFinal_", "?", "NumericQ"}]}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{"{",
RowBox[{"b3", ",", "sfn3", ",", "t", ",", "T3", ",", "y3", ",",
RowBox[{"y0", "=", "1."}]}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"T3", "[", "t_", "]"}], ":=",
RowBox[{"40", "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Exp", "[",
RowBox[{".9", "*",
RowBox[{"(",
RowBox[{"5", "-", "t"}], ")"}]}], "]"}]}], ")"}]}], "/",
RowBox[{"(",
RowBox[{"1", "+",
RowBox[{"Exp", "[",
RowBox[{".9", "*",
RowBox[{"(",
RowBox[{"t", "-", "30"}], ")"}]}], "]"}]}], ")"}]}], "+",
"10"}]}], ";",
RowBox[{"k23", "[", "t_", "]"}], ":=",
RowBox[{"c1", "*",
RowBox[{"Exp", "[",
RowBox[{"c2", "*",
RowBox[{"T3", "[", "t", "]"}]}], "]"}]}]}], ";",
RowBox[{"sfn3", "[", "t_", "]"}], "=",
RowBox[{"NDSolve", "[",
RowBox[{"{",
RowBox[{"y3", "'"}], "[", "t", "]"}], "\[Equal]",
RowBox[{"-",
RowBox[{"Exp", "[",
RowBox[{"-",
RowBox[{"k23", "[", "t", "]"}]}], "*",
RowBox[{"(",
RowBox[{"-",
RowBox[{"Log", "[",
RowBox[{"(",
RowBox[{"-", "k1"}], "+",
RowBox[{"y3", "[", "t", "]"}], "-", "y0"}], ")"}], "/",
"k1"}], "]"}]}], "/",
RowBox[{"k23", "[", "t", "]"}]}], ")"}]}], "]"}]}], "*",
RowBox[{"k23", "[", "t", "]"}], "*", "k1"}]}], ",",
RowBox[{"y3", "[", "0.", "]"}], "\[Equal]", "1."}]}], "}"}], ",",
RowBox[{"y3", "[", "t", "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0.001", ",",
RowBox[{"tCycle3", "+", "1."}]}], "}"}]}], "]"}], "[",
RowBox[{"[",
RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"sfn3", "[", "tFinal", "]"}]}]}], "]"}]}]], "Input",
CellChangeTimes->{
3.176*^9, {3.064*^9, 3.6623`*^9}, {
3.528*^9, 3.802*^9}, {3.2398`*^9,
3.048*^9}, {3.4974`*^9, 3.4417`*^9}, {
3.5935`*^9, 3.568*^9}, {3.63*^9,
3.495*^9}, {3.923*^9, 3.5412`*^9}}]
Cell[CellGroupData[{
Cell["\", "Text",
CellChangeTimes->{{3.0146`*^9, 3.1983`*^9}, {
3.915*^9, 3.6677`*^9}, {3.36*^9,
3.124*^9}, {3.22*^9, 3.288*^9},
3.925*^9},
TextAlignment->Left,
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"gfCycle1", "=",
RowBox[{"GF1", "[",
RowBox[{"k1", ",", "c1", ",", "c2", ",", "tCycle1"}], "]"}]}], ";",
RowBox[{"Print", "[",
RowBox[{"\"\\"", ",", "gfCycle1"}],
"]"}]}]], "Input",
CellChangeTimes->{{3.715*^9, 3.613*^9}, {
3.401*^9, 3.0543`*^9}, {3.597*^9,
3.874*^9}, {3.203*^9, 3.645*^9}}],
Cell[BoxData[
InterpretationBox[
RowBox[{"\", "\[InvisibleSpace]",
"8.206`"}],
SequenceForm["GF1[k1,c1,c2,tCycle1]=", 8.206],
Editable->False]], "Print",
CellChangeTimes->{3.859*^9, 3.264*^9,
3.625*^9, 3.823*^9, 3.427*^9,
3.901*^9, 3.977*^9, 3.0918`*^9,
3.5473`*^9, 3.6472`*^9, 3.172*^9,
3.807*^9, 3.0443`*^9, 3.863*^9}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"gfCycle2", "=",
RowBox[{"GF2", "[",
RowBox[{"k1", ",", "c1", ",", "c2", ",", "tCycle2"}], "]"}]}], ";",
RowBox[{"Print", "[",
RowBox[{"\"\\"", ",", "gfCycle2"}],
"]"}]}]], "Input",
CellChangeTimes->{{3.76*^9, 3.715*^9}, {
3.397*^9, 3.5393`*^9}, {3.053*^9,
3.353*^9}, {3.076*^9, 3.7707`*^9}}],
Cell[BoxData[
InterpretationBox[
RowBox[{"\", "\[InvisibleSpace]",
"9.442`"}],
SequenceForm["GF2[k1,c1,c2,tCycle2]=", 9.442],
Editable->False]], "Print",
CellChangeTimes->{3.073*^9, 3.2537`*^9,
3.046*^9, 3.127*^9, 3.0667`*^9,
3.079*^9, 3.667*^9, 3.4456`*^9,
3.432*^9, 3.6697`*^9, 3.807*^9,
3.2217`*^9, 3.758*^9, 3.348*^9}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"gfCycle3", "=",
RowBox[{"GF3", "[",
RowBox[{"k1", ",", "c1", ",", "c2", ",", "tCycle3"}], "]"}]}], ";",
RowBox[{"targetGF3", "=", "gfCycle3"}], ";",
RowBox[{"Print", "[",
RowBox[{"\"\\"", ",", "gfCycle3"}],
"]"}]}]], "Input",
CellChangeTimes->{{3.4384`*^9, 3.2003`*^9}, {
3.794*^9, 3.978*^9}, {3.8187`*^9,
3.656*^9}, {3.944*^9, 3.798*^9}}],
Cell[BoxData[
InterpretationBox[
RowBox[{"\", "\[InvisibleSpace]",
"9.404`"}],
SequenceForm["GF3[k1,c1,c2,tCycle2]=", 9.404],
Editable->False]], "Print",
CellChangeTimes->{3.35*^9, 3.989*^9,
3.485*^9, 3.278*^9, 3.207*^9,
3.241*^9, 3.621*^9, 3.544*^9,
3.486*^9, 3.627*^9, 3.071*^9,
3.9727`*^9, 3.474*^9, 3.063*^9}]
Cell[CellGroupData[{
Cell["\", "Text",
CellChangeTimes->{{3.9617`*^9, 3.4623`*^9}, {
3.164*^9, 3.865*^9}, {3.4487`*^9,
3.089*^9}, {3.048*^9, 3.3693`*^9}},
TextAlignment->Left,
FontSize->14],
Cell[BoxData[
RowBox[{"k1St", "=", "8.5"}], ";",
RowBox[{"k1En", "=", "9.5"}], ";",
RowBox[{"k1Inc", "=", "0.1"}], ";"}]], "Input",
CellChangeTimes->{{3.2595`*^9, 3.163*^9}, {
3.64*^9, 3.8973`*^9}, {3.5184`*^9,
3.318*^9}, {3.5615`*^9, 3.5904`*^9}, {
3.9615`*^9, 3.4416`*^9}}],
Cell["\", "Text",
CellChangeTimes->{3.19*^9},
TextAlignment->Left,
FontSize->14],
Cell[BoxData[
RowBox[{"tol", "=", "0.0001"}], ";"}]], "Input",
CellChangeTimes->{{3.731*^9, 3.947*^9},
3.637*^9}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Do", "[",
RowBox[{"Clear", "[",
RowBox[{"c1", ",", "c2"}], "]"}], ";",
RowBox[{"frResult", "=",
RowBox[{"FindRoot", "[",
RowBox[{"{",
RowBox[{"GF1", "[",
RowBox[{"k1", ",", "c1", ",", "c2", ",", "tCycle1"}], "]"}], "==",
"gfCycle1"}], ",",
RowBox[{"GF2", "[",
RowBox[{"k1", ",", "c1", ",", "c2", ",", "tCycle2"}], "]"}],
"\[Equal]", "gfCycle2"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"{",
RowBox[{"c1", ",", ".005", ",", ".015"}], "}"}], ",",
RowBox[{"{",
RowBox[{"c2", ",", "0.04", ",", "0.06"}], "}"}]}], "}"}], ",",
RowBox[{"MaxIterations", "\[Rule]", "2000"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"c1", "=",
RowBox[{"frResult", "[",
RowBox[{"[",
RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"c2", "=",
RowBox[{"frResult", "[",
RowBox[{"[",
RowBox[{"2", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"trialGF3", "=",
RowBox[{"GF3", "[",
RowBox[{"k1", ",", "c1", ",", "c2", ",", "tCycle3"}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{"Print", "[",
"\"\\"", ",", "trialGF3", ",", "\"\\"", ",", "k1",
",", "\"\\"", ",", "c1", ",", "\"\\"", ",", "c2"}],
"]"}], ";", "\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{"Abs", "[",
RowBox[{"targetGF3", "-", "trialGF3"}], "]"}], "{{3.9664`*^9, 3.9743`*^9}, {
3.4897`*^9, 3.9276`*^9}, {3.351*^9,
3.3083`*^9}, {3.299*^9, 3.799*^9}, {
3.279*^9, 3.686*^9}, {3.1617`*^9,
3.0927`*^9}}],
Cell[BoxData[
InterpretationBox[
RowBox[{"\", "\[InvisibleSpace]", "9.838`",
"\[InvisibleSpace]", "\", "\[InvisibleSpace]", "8.5`",
"\[InvisibleSpace]", "\", "\[InvisibleSpace]",
"0.250563`", "\[InvisibleSpace]", "\",
"\[InvisibleSpace]", "0.08406`"}],
SequenceForm[
"trialGF3= ", 9.838, "
k1= ", 8.5, "
0.250563, "
c2= ", 0.08406],
Editable->False]], "Print",
CellChangeTimes->{3.4943`*^9, 3.222*^9,
3.3997`*^9, 3.781*^9, 3.894*^9,
3.653*^9, 3.855*^9, 3.132*^9,
3.491*^9, 3.2827`*^9, 3.855*^9,
3.637*^9, 3.996*^9, 3.162*^9,
3.27*^9, 3.669*^9}],
Cell[BoxData[
InterpretationBox[
RowBox[{"\", "\[InvisibleSpace]", "9.13`"}],
"\[InvisibleSpace]", "+",
RowBox[{"0.`", " ", "\[ImaginaryI]"}],
"\[InvisibleSpace]", "\", "\[InvisibleSpace]", "8.6`",
"\[InvisibleSpace]", "\", "\[InvisibleSpace]",
"0.324829`", "\[InvisibleSpace]", "\",
"\[InvisibleSpace]", "0.41053`"}]}],
SequenceForm["trialGF3= ",
Complex[9.13, 0.], "
k1= ", 8.6, "
0.324829, "
c2= ", 0.41053],
Editable->False]], "Print",
CellChangeTimes->{3.4943`*^9, 3.222*^9,
3.3997`*^9, 3.781*^9, 3.894*^9,
3.653*^9, 3.855*^9, 3.132*^9,
3.491*^9, 3.2827`*^9, 3.855*^9,
3.637*^9, 3.996*^9, 3.162*^9,
3.27*^9, 3.789*^9}],
Cell[BoxData[
InterpretationBox[
RowBox[{"\", "\[InvisibleSpace]", "9.761`",
"\[InvisibleSpace]", "\", "\[InvisibleSpace]", "8.7`",
"\[InvisibleSpace]", "\", "\[InvisibleSpace]",
"0.315522`", "\[InvisibleSpace]", "\",
"\[InvisibleSpace]", "0.33495`"}],
SequenceForm[
"trialGF3= ", 9.761, "
k1= ", 8.7, "
0.315522, "
c2= ", 0.33495],
Editable->False]], "Print",
CellChangeTimes->{3.4943`*^9, 3.222*^9,
3.3997`*^9, 3.781*^9, 3.894*^9,
3.653*^9, 3.855*^9, 3.132*^9,
3.491*^9, 3.2827`*^9, 3.855*^9,
3.637*^9, 3.996*^9, 3.162*^9,
3.27*^9, 3.343*^9}],
Cell[BoxData[
InterpretationBox[
RowBox[{"\", "\[InvisibleSpace]", "9.872`",
"\[InvisibleSpace]", "\", "\[InvisibleSpace]", "8.8`",
"\[InvisibleSpace]", "\", "\[InvisibleSpace]",
"0.499078`", "\[InvisibleSpace]", "\",
"\[InvisibleSpace]", "0.44752`"}],
SequenceForm[
"trialGF3= ", 9.872, "
k1= ", 8.8, "
0.499078, "
c2= ", 0.44752],
Editable->False]], "Print",
CellChangeTimes->{3.4943`*^9, 3.222*^9,
3.3997`*^9, 3.781*^9, 3.894*^9,
3.653*^9, 3.855*^9, 3.132*^9,
3.491*^9, 3.2827`*^9, 3.855*^9,
3.637*^9, 3.996*^9, 3.162*^9,
3.27*^9, 3.726*^9}],
Cell[BoxData[
InterpretationBox[
RowBox[{"\", "\[InvisibleSpace]", "9.408`",
"\[InvisibleSpace]", "\", "\[InvisibleSpace]", "8.9`",
"\[InvisibleSpace]", "\", "\[InvisibleSpace]",
"0.716471`", "\[InvisibleSpace]", "\",
"\[InvisibleSpace]", "0.95164`"}],
SequenceForm[
"trialGF3= ", 9.408, "
k1= ", 8.9, "
0.716471, "
c2= ", 0.95164],
Editable->False]], "Print",
CellChangeTimes->{3.4943`*^9, 3.222*^9,
3.3997`*^9, 3.781*^9, 3.894*^9,
3.653*^9, 3.855*^9, 3.132*^9,
3.491*^9, 3.2827`*^9, 3.855*^9,
3.637*^9, 3.996*^9, 3.162*^9,
3.27*^9, 3.3963`*^9}],
Cell[BoxData[
InterpretationBox[
RowBox[{"\", "\[InvisibleSpace]", "9.651`",
"\[InvisibleSpace]", "\", "\[InvisibleSpace]", "9.`",
"\[InvisibleSpace]", "\", "\[InvisibleSpace]",
"0.513947`", "\[InvisibleSpace]", "\",
"\[InvisibleSpace]", "0.39932`"}],
SequenceForm[
"trialGF3= ", 9.651, "
k1= ", 9., "
0.513947`, "
c2= ", 0.39932],
Editable->False]], "Print",
CellChangeTimes->{3.4943`*^9, 3.222*^9,
3.3997`*^9, 3.781*^9, 3.894*^9,
3.653*^9, 3.855*^9, 3.132*^9,
3.491*^9, 3.2827`*^9, 3.855*^9,
3.637*^9, 3.996*^9, 3.162*^9,
3.27*^9, 3.151*^9}]
Cell[CellGroupData[{
Cell["Plot the three temperature profile functions separately.", "Text",
CellChangeTimes->{{3.6807`*^9, 3.077*^9},
3.168*^9, 3.183*^9, 3.565*^9, {
3.2307`*^9, 3.0247`*^9}},
TextAlignment->Left,
FontSize->14],
Cell[BoxData[
RowBox[{"tempCurveT1Plot", "=",
RowBox[{"Plot", "[",
RowBox[{"T1", "[", "t", "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0.", ",", "tCycle1"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0.", ",", "40."}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.", ",", "60."}], "}"}]}], "}"}]}], ",",
RowBox[{"AspectRatio", "\[Rule]", "1"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"Thickness", "[", "0.01", "]"}], ",", "LightGray", ",",
RowBox[{"Dashing", "[", "None", "]"}]}], "}"}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"RotateLabel", "\[Rule]", "True"}], ",",
RowBox[{"BaseStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontWeight", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}],
RowBox[{"FrameTicks", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40"}], "}"}],
RowBox[{"{",
"0", ",", "10", ",", "20", ",", "30", ",", "40", ",", "50", ",",
"60"}], "}"}], ",",
RowBox[{"{", "}"}], ",",
RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.8864`*^9, 3.3537`*^9}, {
3.1277`*^9, 3.7456`*^9}, 3.086*^9, {
3.4898`*^9, 3.779*^9}, 3.3793`*^9, {
3.2977`*^9, 3.959*^9}, {3.6903`*^9,
3.764*^9}, 3.7564`*^9, {3.509*^9,
3.796*^9}, 3.2354`*^9, {3.7238`*^9,
3.433*^9}, {3.516*^9, 3.417*^9},
3.239*^9, {3.404*^9, 3.544*^9}, {
3.707*^9, 3.835*^9}}],
Cell[BoxData[
RowBox[{"tempCurveT2Plot", "=",
RowBox[{"Plot", "[",
RowBox[{"T2", "[", "t", "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0.", ",", "tCycle2"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0.", ",", "40."}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.", ",", "60."}], "}"}]}], "}"}]}], ",",
RowBox[{"AspectRatio", "\[Rule]", "1"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Gray", ",",
RowBox[{"Dashing", "[", "None", "]"}]}], "}"}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"RotateLabel", "\[Rule]", "True"}], ",",
RowBox[{"BaseStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontWeight", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
"\"\\"", ",",
"\"\\""}], "}"}]}], ",",
RowBox[{"FrameTicks", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40"}], "}"}],
RowBox[{"{",
"0", ",", "10", ",", "20", ",", "30", ",", "40", ",", "50", ",",
"60"}], "}"}], ",",
RowBox[{"{", "}"}], ",",
RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.8864`*^9, 3.3537`*^9}, {
3.1277`*^9, 3.7456`*^9}, 3.086*^9, {
3.4898`*^9, 3.779*^9}, 3.3793`*^9, {
3.2977`*^9, 3.959*^9}, {3.6903`*^9,
3.764*^9}, 3.7564`*^9, {3.746*^9,
3.4*^9}, {3.931*^9, 3.859*^9},
3.322*^9, 3.267*^9, {3.712*^9,
3.6387`*^9}, {3.749*^9, 3.8743`*^9}}],
Cell[BoxData[
RowBox[{"tempCurveT3Plot", "=",
RowBox[{"Plot", "[",
RowBox[{"T3", "[", "t", "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0.", ",", "tCycle3"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0.", ",", "40."}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.", ",", "60."}], "}"}]}], "}"}]}], ",",
RowBox[{"AspectRatio", "\[Rule]", "1"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Black", ",",
RowBox[{"Dashing", "[", "None", "]"}]}], "}"}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"RotateLabel", "\[Rule]", "True"}], ",",
RowBox[{"BaseStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontWeight", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
"\"\\"", ",",
"\"\\""}], "}"}]}], ",",
RowBox[{"FrameTicks", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40"}], "}"}],
RowBox[{"{",
"0", ",", "10", ",", "20", ",", "30", ",", "40", ",", "50", ",",
"60"}], "}"}], ",",
RowBox[{"{", "}"}], ",",
RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.8864`*^9, 3.3537`*^9}, {
3.1277`*^9, 3.7456`*^9}, 3.086*^9, {
3.4898`*^9, 3.779*^9}, 3.3793`*^9, {
3.2977`*^9, 3.959*^9}, {3.6903`*^9,
3.764*^9}, 3.7564`*^9, {3.746*^9,
3.4*^9}, {3.153*^9, 3.736*^9},
3.8773`*^9, 3.837*^9, {3.618*^9,
3.982*^9}, 3.14*^9}]
Cell[CellGroupData[{
Cell["\", "Text",
CellChangeTimes->{{3.939*^9, 3.419*^9},
3.0152`*^9, {3.961*^9, 3.7233`*^9},
3.449*^9, 3.5197`*^9, {3.0647`*^9,
3.514*^9}, 3.43*^9, {3.78*^9,
3.845*^9}, {3.8*^9, 3.312*^9}, {
3.656*^9, 3.733*^9}, {3.584*^9,
3.118*^9}},
TextAlignment->Left,
FontSize->14],
Cell[BoxData[
RowBox[{"tempPtsPlot", "=",
RowBox[{"ListPlot", "[",
RowBox[{"{",
RowBox[{"{",
RowBox[{"tCycle1", ",", "tCycle1T1"}], "}"}], ",",
RowBox[{"{",
RowBox[{"tCycle2", ",", "tCycle2T2"}], "}"}], ",",
RowBox[{"{",
RowBox[{"tCycle3", ",", "tCycle3T3"}], "}"}]}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0.", ",", "40."}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.", ",", "60."}], "}"}]}], "}"}]}], ",",
RowBox[{"AspectRatio", "\[Rule]", "1"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"PointSize", "[", "Large", "]"}], ",", "Black"}], "]"}]}],
"PlotLabel", "\[Rule]",
"\"\\""}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"RotateLabel", "\[Rule]", "True"}], ",",
RowBox[{"BaseStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontWeight", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
"\"\\"", ",",
"\"\\""}], "}"}]}], ",",
RowBox[{"FrameTicks", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40"}], "}"}],
RowBox[{"{",
"0", ",", "10", ",", "20", ",", "30", ",", "40", ",", "50", ",",
"60"}], "}"}], ",",
RowBox[{"{", "}"}], ",",
RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{
3.592*^9, {3.659*^9, 3.245*^9}, {
3.579*^9, 3.631*^9}, {3.0812`*^9,
3.772*^9}, {3.649*^9, 3.3063`*^9}, {
3.297*^9, 3.597*^9}, {3.262*^9,
3.6737`*^9}, {3.995*^9, 3.287*^9}, {
3.195*^9, 3.87*^9}, {3.7927`*^9,
3.185*^9}, 3.0922`*^9, {3.762*^9,
3.027*^9}, {3.087*^9, 3.461*^9},
3.8552`*^9, {3.132*^9, 3.483*^9}, {
3.707*^9, 3.8647`*^9}, {3.068*^9,
3.6607`*^9}, 3.283*^9, {3.671*^9,
3.997*^9}, {3.621*^9, 3.94*^9}, {
3.173*^9, 3.409*^9}, {3.5573`*^9,
3.066*^9}, 3.0103`*^9, {3.9343`*^9,
3.761*^9}, {3.443*^9, 3.93*^9},
3.7*^9, {3.9733`*^9, 3.956*^9}, {
3.999*^9, 3.764*^9}, {3.993*^9,
3.1517`*^9}, {3.1248`*^9, 3.685*^9}, {
3.825*^9, 3.7143`*^9}, {3.1787`*^9,
3.555*^9}, {3.475*^9, 3.202*^9},
3.967*^9, {3.263*^9, 3.9607`*^9}, {
3.847*^9, 3.0602`*^9}, {3.695*^9,
3.126*^9}, 3.3373`*^9, 3.599*^9}]
Cell[CellGroupData[{
Cell["\", "Text",
CellChangeTimes->{{3.939*^9, 3.419*^9},
3.0152`*^9, 3.961*^9, {3.167*^9,
3.209*^9}, {3.454*^9, 3.475*^9}, {
3.742*^9, 3.973*^9}},
TextAlignment->Left,
FontSize->14],
Cell[BoxData[
RowBox[{"tempProfilePlot", "=",
RowBox[{"Show", "[",
"tempCurveT1Plot", ",", "tempCurveT2Plot", ",", "tempCurveT3Plot", ",",
"tempPtsPlot", ",",
RowBox[{"ImageSize", "\[Rule]",
RowBox[{"Scaled", "[", "0.6", "]"}]}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.441*^9, 3.884*^9}, {
3.407*^9, 3.367*^9}, {3.739*^9,
3.766*^9}, 3.511*^9, 3.872*^9, {
3.14*^9, 3.967*^9}, 3.511*^9,
3.958*^9}]
Cell[CellGroupData[{
Cell["Plot the three growth curves separately.", "Text",
CellChangeTimes->{{3.6807`*^9, 3.077*^9}, {
3.092*^9, 3.3497`*^9}, {3.913*^9,
3.013*^9}, {3.7307`*^9, 3.5*^9},
3.955*^9, {3.696*^9, 3.375*^9},
3.048*^9},
TextAlignment->Left,
FontSize->14],
Cell[BoxData[
RowBox[{"gfCurveGF1Plot", "=",
RowBox[{"Plot", "[",
RowBox[{"GF1", "[",
RowBox[{"9.", ",", ".01", ",", "0.05", ",", "t"}], "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0.1", ",", "tCycle1"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0.", ",", "40."}], "}"}], ",",
RowBox[{"{",
RowBox[{"-", ".001"}], ",", "10.0"}], "}"}]}], "}"}]}], ",",
RowBox[{"AspectRatio", "\[Rule]", "1"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"Thickness", "[", "0.01", "]"}], ",", "LightGray", ",",
RowBox[{"Dashing", "[", "None", "]"}]}], "}"}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"RotateLabel", "\[Rule]", "True"}], ",",
RowBox[{"BaseStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontWeight", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\\"", ",", "\"\\""}],
"}"}]}], ",",
RowBox[{"FrameTicks", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40"}], "}"}],
RowBox[{"{",
RowBox[{"0", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10"}],
"}"}], ",",
RowBox[{"{", "}"}], ",",
RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.411*^9, 3.162*^9},
3.88*^9, 3.6255`*^9, 3.187*^9,
3.01*^9, {3.43*^9, 3.1437`*^9}, {
3.0293`*^9, 3.907*^9}, {3.5913`*^9,
3.8743`*^9}, {3.0003`*^9, 3.39*^9}, {
3.5567`*^9, 3.715*^9}, {3.472*^9,
3.671*^9}, 3.0617`*^9, 3.638*^9, {
3.866*^9, 3.387*^9}, {3.063*^9,
3.988*^9}, 3.872*^9, 3.108*^9,
3.805*^9, 3.3168`*^9}],
Cell[BoxData[
RowBox[{"gfCurveGF2Plot", "=",
RowBox[{"Plot", "[",
RowBox[{"GF2", "[",
RowBox[{"9.", ",", ".01", ",", "0.05", ",", "t"}], "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0.1", ",", "tCycle2"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0.", ",", "40."}], "}"}], ",",
RowBox[{"{",
RowBox[{"-", ".001"}], ",", "10.0"}], "}"}]}], "}"}]}], ",",
RowBox[{"AspectRatio", "\[Rule]", "1"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Gray", ",",
RowBox[{"Dashing", "[", "None", "]"}]}], "}"}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"RotateLabel", "\[Rule]", "True"}], ",",
RowBox[{"BaseStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontWeight", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\\"", ",", "\"\\""}],
"}"}]}], ",",
RowBox[{"FrameTicks", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40"}], "}"}],
RowBox[{"{",
RowBox[{"0", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10"}],
"}"}], ",",
RowBox[{"{", "}"}], ",",
RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.411*^9, 3.162*^9},
3.88*^9, 3.6255`*^9, 3.187*^9,
3.01*^9, {3.43*^9, 3.1437`*^9}, {
3.0293`*^9, 3.907*^9}, {3.5913`*^9,
3.8743`*^9}, {3.0003`*^9, 3.39*^9}, {
3.5567`*^9, 3.715*^9}, {3.472*^9,
3.395*^9}, {3.3014`*^9, 3.704*^9},
3.1897`*^9, {3.1016`*^9, 3.263*^9}, {
3.8513`*^9, 3.024*^9}, 3.127*^9,
3.723*^9, 3.321*^9, 3.337*^9}],
Cell[BoxData[
RowBox[{"gfCurveGF3Plot", "=",
RowBox[{"Plot", "[",
RowBox[{"GF3", "[",
RowBox[{"9.", ",", ".01", ",", "0.05", ",", "t"}], "]"}], ",",
RowBox[{"{",
RowBox[{"t", ",", "0.1", ",", "tCycle3"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0.", ",", "40."}], "}"}], ",",
RowBox[{"{",
RowBox[{"-", ".001"}], ",", "10.0"}], "}"}]}], "}"}]}], ",",
RowBox[{"AspectRatio", "\[Rule]", "1"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Black", ",",
RowBox[{"Dashing", "[", "None", "]"}]}], "}"}], "}"}]}], ",",
RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"RotateLabel", "\[Rule]", "True"}], ",",
RowBox[{"BaseStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontWeight", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\\"", ",", "\"\\""}],
"}"}]}], ",",
RowBox[{"FrameTicks", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40"}], "}"}],
RowBox[{"{",
RowBox[{"0", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10"}],
"}"}], ",",
RowBox[{"{", "}"}], ",",
RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.411*^9, 3.162*^9},
3.88*^9, 3.6255`*^9, 3.187*^9,
3.01*^9, {3.43*^9, 3.1437`*^9}, {
3.0293`*^9, 3.907*^9}, {3.5913`*^9,
3.8743`*^9}, {3.0003`*^9, 3.39*^9}, {
3.5567`*^9, 3.715*^9}, {3.472*^9,
3.439*^9}, {3.284*^9, 3.02*^9}, {
3.172*^9, 3.114*^9}, 3.457*^9, {
3.3926`*^9, 3.414*^9}, 3.0363`*^9, {
3.2913`*^9, 3.4367`*^9}, {3.2177`*^9,
3.411*^9}, 3.757*^9}]
Cell[CellGroupData[{
Cell["\", "Text",
CellChangeTimes->{{3.939*^9, 3.419*^9},
3.0152`*^9, {3.961*^9, 3.7233`*^9},
3.449*^9, 3.5197`*^9, {3.771*^9,
3.333*^9}, {3.359*^9, 3.448*^9},
3.125*^9, {3.191*^9, 3.6723`*^9}, {
3.722*^9, 3.906*^9}, 3.7697`*^9,
3.7002`*^9, {3.0283`*^9, 3.408*^9}, {
3.384*^9, 3.448*^9}},
TextAlignment->Left,
FontSize->14],
Cell[BoxData[
RowBox[{"gfPtsPlot", "=",
RowBox[{"ListPlot", "[",
RowBox[{"{",
RowBox[{"{",
RowBox[{"tCycle1", ",", "gfCycle1"}], "}"}], ",",
RowBox[{"{",
RowBox[{"tCycle2", ",", "gfCycle2"}], "}"}], ",",
RowBox[{"{",
RowBox[{"tCycle3", ",", "gfCycle3"}], "}"}]}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0.", ",", "40."}], "}"}], ",",
RowBox[{"{",
RowBox[{"0.", ",", "10."}], "}"}]}], "}"}]}], ",",
RowBox[{"AspectRatio", "\[Rule]", "1"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"Directive", "[",
RowBox[{"PointSize", "[", "Large", "]"}], ",", "Black"}], "]"}]}],
"PlotLabel", "\[Rule]", "\"\\""}],
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"RotateLabel", "\[Rule]", "True"}], ",",
RowBox[{"BaseStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontWeight", "\[Rule]", "\"\\""}], ",",
RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\\"", ",", "\"\\""}],
"}"}]}], ",",
RowBox[{"FrameTicks", "\[Rule]",
RowBox[{"{",
RowBox[{"{",
RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40"}], "}"}],
RowBox[{"{",
RowBox[{"0", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10"}],
"}"}], ",",
RowBox[{"{", "}"}], ",",
RowBox[{"{", "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{
3.592*^9, {3.659*^9, 3.245*^9}, {
3.579*^9, 3.631*^9}, {3.0812`*^9,
3.772*^9}, {3.649*^9, 3.3063`*^9}, {
3.297*^9, 3.597*^9}, {3.262*^9,
3.6737`*^9}, {3.995*^9, 3.287*^9}, {
3.195*^9, 3.87*^9}, {3.7927`*^9,
3.185*^9}, 3.0922`*^9, {3.762*^9,
3.027*^9}, {3.087*^9, 3.461*^9},
3.8552`*^9, {3.132*^9, 3.483*^9}, {
3.707*^9, 3.8647`*^9}, {3.068*^9,
3.6607`*^9}, 3.283*^9, {3.671*^9,
3.997*^9}, {3.621*^9, 3.94*^9}, {
3.173*^9, 3.409*^9}, {3.5573`*^9,
3.066*^9}, {3.007*^9, 3.67*^9}, {
3.137*^9, 3.1817`*^9}, {3.262*^9,
3.779*^9}, {3.0223`*^9, 3.2858`*^9},
3.779*^9, {3.493*^9, 3.439*^9}, {
3.785*^9, 3.062*^9}, 3.139*^9,
3.297*^9, {3.993*^9, 3.901*^9}, {
3.499*^9, 3.766*^9}, {3.024*^9,
3.179*^9}, 3.576*^9, 3.77*^9, {
3.7803`*^9, 3.309*^9}, 3.56*^9, {
3.887*^9, 3.926*^9}, {3.7103`*^9,
3.284*^9}, 3.132*^9, 3.959*^9,
3.321*^9, 3.2547`*^9, {3.083*^9,
3.9343`*^9}, 3.695*^9}]
Cell[CellGroupData[{
Cell["\", "Text",
CellChangeTimes->{{3.939*^9, 3.419*^9},
3.0152`*^9, 3.961*^9, {3.167*^9,
3.209*^9}, {3.53*^9, 3.6643`*^9}, {
3.835*^9, 3.5233`*^9}, {3.4677`*^9,
3.83*^9}, {3.288*^9, 3.156*^9}},
TextAlignment->Left,
FontSize->14],
Cell[BoxData[
RowBox[{"growthPlot", "=",
RowBox[{"Show", "[",
"gfCurveGF1Plot", ",", "gfCurveGF2Plot", ",", "gfCurveGF3Plot", ",",
"gfPtsPlot", ",",
RowBox[{"ImageSize", "\[Rule]",
RowBox[{"Scaled", "[", "0.6", "]"}]}]}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.441*^9, 3.884*^9}, {
3.407*^9, 3.367*^9}, {3.739*^9,
3.766*^9}, 3.511*^9, 3.872*^9, {
3.657*^9, 3.361*^9}, 3.074*^9, {
3.158*^9, 3.041*^9}, {3.984*^9,
3.4857`*^9}, 3.7033`*^9}]
Cell[CellGroupData[{
Cell["\", "Text",
CellChangeTimes->{{3.939*^9, 3.419*^9},
3.0152`*^9, 3.961*^9, {3.167*^9,
3.209*^9}, {3.53*^9, 3.6643`*^9}, {
3.835*^9, 3.5233`*^9}, {3.231*^9,
3.633*^9}, {3.606*^9, 3.407*^9}, {
3.816*^9, 3.99*^9}},
TextAlignment->Left,
FontSize->14],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"figure8", "=",
RowBox[{"GraphicsArray", "[",
RowBox[{"{",
RowBox[{"{", "tempProfilePlot", "}"}], ",",
RowBox[{"{", "growthPlot", "}"}]}], "}"}], "]"}]}]], "Input",
CellChangeTimes->{{3.451*^9, 3.58*^9}, {
3.292*^9, 3.851*^9}, {3.0687`*^9,
3.62*^9}, {3.812*^9, 3.0083`*^9}, {
3.7357`*^9, 3.012*^9}, {3.991*^9,
3.6303`*^9}, 3.9913`*^9}],
Cell[BoxData[
GraphicsBox[{{}, {InsetBox[
GraphicsBox[{{{}, {},
{GrayLevel[0.85], Thickness[0.01], Dashing[None],
LineBox[CompressedData["
1:eJwdmnc81W8Ux+0yIyJlu7Zr3st1r3u/xypFRqQiEpEWhYqyV0iRJJQREQ1U
yE9LRklkJis7hCSSyPg9X3/1er98x/Oc55zP+Zzvba+Xi7QbExMTCxMTawj+
L+NBydBaG80HCEHXPzdvysWig6OtspgfASF4Kltr7iOWErx3tJuFAwihZtvY
u7Wx/GCK5gKLNhAiBLW+d5Gw8mDlL5Fhu4AQ0yKZkNqE1QUTlM2rbIGQzDN6
8+I9rH6DMIsEy0Ug3LpP/HWoFfsYv6Hrp2EWEFJN3q+aAPYpYzLmetUUEO4k
SGdebMNaDx/0PXmkCgg59kX7/YexzmCptmIXeyA8aSkzXLTDuoxE36SynAbC
s7LnrQXRWPeGzQ9Ds0OAUJrVxD/3DeuJZwvfO5QHhP8ifIJy72B9GeNa8y6z
QHh7hdeV6y02dHj/B3HNWiC03n3B7DGKjQdLKrpoOQJh0bFkunweG/9+MPks
XwUQlqlFdb1Z2HebJLbgya1AWJMccbL9jk0obhxIz2kHOXZW2wXKODbZPJvS
tWU3yAlofLlTzoz9lHnHafmXAnIqNL2WsGjs51WmC07tySCnlvflqWck9nOB
+u108RzIaYlpTlF3YzNuXwZqS76AnB6KqIM19otq/nL4dCLI7SyMkQy+j80O
65yT6OcEOfdKjWr9bmxuq80j+T3o+Sfa96fvr8Dm9pwZJr5wBznPucUb7VnY
3POH1vq3akDugp0CVVAY+x0nRbS3CgG56IIw/6Kv2B8y57ebb/+A3OP73Sb+
+dhi1Fc7nnsjIM/8Yzg7mQdbLD8XcOsUD8hvsPDmt/bBFid4c2S0SSDP8/J5
wxcjbGkPfUb3bTjIi1SNJroKYP8EM2Jd+mRAXs1/t1pkKLacdfj1fyJHQN7p
wa3mA77YcsvCN6O+aJA/Ol8m6s6KrbAmcH/KLQb5k1Yp5L9e2Ip75YEREhPI
++lodox8xVaJUnObrLJAPrEm9pFHOLb235CCW0wfyH/kmbT9TwBbm7y4Z8aa
HeRbj7ZUVtgBE18MlR4nDPJdn8qfWNwAJpB2rrNhgPx4l/ju41uBKcf68dfB
a6CwocHJOI4bmI8/Nd24qgYKuyxkIh3YgeWPT8Bh3VOg0NMcZH36C7DyVXMG
GtuDwrfQU8SR88CqsDn5trUpKPw0ddxkaQ2s+58UfzlJAEXWrYNMIlRgLf/5
zTKjBxRV6rKLJlaB7dIpC+DYDYqhEanHKt8D240XPU6CFFCMu/84+VYTsD3i
9giQkgfFW8NKJkmtwNb7IKycygKKhTk/t5uwAjt9/LnG6QpQ/Gr1ZfkfC3Aw
uUlJfVYCJcxvqFlrBDi2ljxmDAmDkjmJy7HEETg02aiHfrKB0kHOqefHxYDj
SI5t6sYBUPLhOGv73AY4qgZjBPRTQCl/h8OmaA3YEOk4y3xvIyiLrE2NUJ4C
J5dd9ZD3KKjw6jMxHRMETkJp0waZ76AiMeuV08oEnJhQt0rrFKhoNEy3OBwE
Tp/WmXNas6BiO32LPnEEOL9aim+YXQWVjLGacVsX4CreeZ7oswVU9eouDJ6Q
AB47iqKfjzEQr9Rhv4IOAM+ZW9rpsjuBmK1yxt+nCXhi/zDetu0GYnnJS6eF
w8DzpmQft7YVEEf10p6HxQGvkkZo+twhUDPibpdr7ATeZcXuah9fUGetu2d0
SRw2ZYte5fPJAQ2r8E9vlE7CpoqyTb+bZUDDUXKbmf1T2NS2N7FHNRs0jn+4
tfpiDvhZTBpsZptBI9ysrUHEGPi1g1qlHjaBxnOWxpFTj4D/5szXCvFG0JQm
PHAQ+gAC9u2/fzDXgeba0Uhiwl/YPJIuu/fDG9DuUUtXfSoFwlRxmH1pARSW
1nqfVAYI7ySt7kuoBcrmw/l3t7aDsK35i3I3faBID/LmWPuCsGeAThCfClCg
8kZOSzMIZ/eocjpvBErgVEPMiwAQ4U4VkWKtAsr8JyvhB54g8lXoxx4zHdDr
DhNv/vkDRCZUHxRLPga9cZNQa67DILJg7LH5NwH05v/KK6ebw1YBn6HOdEGg
CihX5fvIwVaT1k7X6Rmg7qhy3GI/B1sLE6ovJj4AamFe5Mp1dhAN4Um93y0O
tDN1j5NVmEA0zmjzZEQr0C5dtswvzQLRFP84dfVooEWRsz+94QbR4tGgsohZ
oN0+Yr0JRkF0sNK1Vr0OaDW/08Yl9sM2I1/iUKQv6G/hmhTQq4btHD1V4hoN
oF/Ad+y/2XHYLriZ5twTBvpP3t1g45aE7ZKmJfeidEG/wvNX16ANbNctva/S
kw36HxN8DQsfw3aP+DhqlB/o/xCpnsnIhO31Rnb7ewlAJxpiLDyHQOzqg4nE
ywFAzz6u23pEHMTSvst0hb8EekG755o3CcTyFRykgpeB/kRdw2XZFMSqcj4W
+qHr3zx7CDHbQWzhzqP644h7lpZniypA/Mg1LxazAGAI3Do231gC4p4N93ft
fAmMrRx8wdhBEA/g6k8wWgaGhFtp3A4SiCdftpLQR9cr/3UPLpwE8Y8hmlQi
YiNPprhlD5Agn53z3oT4bFH2FVlekDAsVvmPGz3vgl5bcpI5SFhOH2XagJ4X
UBbv0/sQJE6caL/GhK6/HM3VmDsDEpmupQW/EN+5Wmv1TxkkOfddGGxDXKP3
1fTzCkh+pSxb3woAjOt17tFD20Hy+80Z/+NLgPFFCuyPiAPJ+dmRu/p+gG02
dP4tXA9SG+zc/c5UACZ6d36f81WQkuK3qNvyHDCFP/P+u7lAyjpC8tjhYsCM
NsreExkGqf1PUy+Z/gRsh4ll54ZPIOU4KBivpQbYrotBz5/FgdQJxobnbI8A
s2xUktXoBamwhRmOggLADm2J41lcBamSk5W5c9mA+RhsgR2sIFWRRv2vdxCw
8xwmbxVtQaqyrqTxnRRgfjUhwXNFINUolz+fkgFYkKqNpsYUSH3rv25Cvw1Y
9ENxwq4WkBaxOTJyOQmwO96nDw+OgfRFGqvs9ijA3sTxVhtzgXTIbofH6mKA
vY1oeedsAdJRB0t0DZ8AVu2X/DxjCKQT/dzMjvcC9tH6Qel7n3Jt
ZETq2saVGtsBwHq7PrlsvQTSg9iIhcd5wPou/zpZ5g3SY5b6nQHc
gA1ovms4sAjSc6d/TOXoADbs92QyohxkuB9aCf26Ctj39ryj3p0goy8v5HaN
Cth8Y8HxwPcgY0g+9fNuM2ALtIxcEivImBrX+pe6AfY3d0jCRwdkbF3PX+1N
AOyf14Uln2KQOZXVWaY8BsB0ckorphlk0renc7xPAmAPu3hfWBNkVgXk8pmm
Afgi4iUEZ0GW7Z7js1e7ADYJ5sW5PwFZbt2bb/zvIb6rYLj4DmS3OrF3zNoD
8D8/N2lIBlmtB6Psw7UAm1ve+Eo8Bdljxnmu7+4ACFemvd8nAbKnv/R5hS0A
iFConIedQNb3pPAlbC/iwnAL12qQDb0elVi+EWDrLZlHX+xB9naf+9sCH4Bt
B5a0F/eAbLOfgmTcbgDxbNH7TWh9X7gPq5jmAkhwMMcNSoPs14xbuuxMiD3q
z1qygexE7QaLwDIASRXuqtABILALjAV6SQNIZWcHTsUCQe/h/R7rvwCyzqVF
RspAAEb/GJ8N4hKhP0YeQNjRKjJbXwhA4AivDTYHgs3faC6jo4jz05Ku9AHB
08RDj9QEIDc4f1UuEQjZ/Yq3RPIANfBrqxWGQChgfn0Dk0J86tzZgiQgFBFs
493TED96lPTnHBBeHA+5XHoNQElFSG36ChDa5jr9bM4DKEsuBZpqIF+4Mfpg
/A4AlckcjaQRkONWkdhXVgmgKuMmwE9CPnFPiXUfFfGBxFySAsiJJw7sJqoh
rtYVKmUCOR1xCvWjMADxetOxRx0gd0xzXIxjFEB9S/j0/VWQO20btFXNGbHR
U+InJ5DzuSAktK8b8VlXoUYBkAt+CTz3PiH+uFdkpATkUnbcWjFE8dTwjx4q
lQW5Dw47+4KiADQrPXU3+YFcU+DX7jwUf80xx512wSD3Ocuno/EigBbvkN80
8rWD3zKbxDwRH3z2xL0T5Ja8Ft4g3wVaU/E/xutAXiXiftYfeQAS07aNyZ0g
r6UiLvHODbHs/U6jJpCntCTeSUb5R9rR8FqlGuR3SASm6MoivjJw86g8yDuX
28T7oXiTBazVTS6C/M3JtcClbQA6XNZE8QMgfyfR91/9QcQKXaxiMyCfQ5nw
T0tBbMKZLNYL8sWRn8/RRBAHeczkAPKJkg9PBQgh/kF7x8sGCkw2++1X+QB0
X7Jav2oABY7Fhs5PexC3R4/JRoACb5ahXUYc4qnamV/o79t+EPdi3AAUseOl
TIqgQL7MuisE5TfFz/ONvCEonKgoorCwAOgRxE0+F4LC2SOE0lYDxBR/XiFH
UPDbkKaN5hHQM0+JnToECpG2keqGa4h95bzkY0Ehc9pBPnwZcWVM/UsDUPgs
s2ELO6ovqiXvypwD8qEFDpxMaD3Uw7mx/X6gMKRRuPxPBvEZnubLUciHYnYj
MxaIE8xLdNRAkfNQXkk3yl/qp6wPCkdAkX5rh22RLQDNiCc9ZisoGkukmRZM
ILb6utzZAYq7c6f176H10ZwuS6UZg+L+kmRC6kPE/i6XtU6C4tmWb78j0P5o
j3cbyxwFxTyeyKQDxQD6fPqLE8WoDG50Rdug/NYXfX2zBPGz7cSAPb2I5SQe
7bwBipVKn48abUBMu/QJQ763e6ccieiE2L1kZ4c3KPGF1rSz8CB+fvrZuQhQ
2sK59f1yNuK3LFbdraC0PeHUiwUK4vpLLEwfQEkxUyhnyhXxV9HhsyWgZPjy
qE9HBQCdWdjMMACUzi+wCT70QGxsLhAXDUqBvKV/BcQRm71S9uUGpXDCsd7z
rYhttrFLJoJSvPXHXEN9xEdu9WzUBqX7j27odG1CHFgw1rEKSp0uMvYcqF7o
T23zLYJBqc+vnXHqJOLyNPfblaA0Eh8l04rylf66SbD4JSjNvPw+mR6L+CP7
nGoIKHOKPAkkOSIeKnwhvAzKeo2Q5cIGwNi0ObR9CpSx4dmI9/8hFnLoVwoE
ZZOle8eJqL4YosldQudBea/iRs2/nYhlhxhPf4PyibCm6nh0Pgzd1lVjY1C+
TXEafYX0l+Gof9JXBZTvWvJ/lEXxZhx5soH3ESjfd6sqin6J2F00NHcDKD+7
Ie9ni+qT4fnulnM8KH/8Mc05sYQ4OKn+mQsoL+cEErfeRZwp5ibnASqsDL4b
CmKIc9QiEreBCmdn5iI5GfF9Uub3ZVAR4a2q3Yv2yygS319sDiqafhsd47wR
vz6a6JAEKu7mN64xGSPuHiPIngGVU2OE33yvEfeZVsW5g4pPaJm9ODpfxmCW
23k7UAkp65KnqiIeR67iPKjclpZ47bsF8e+hn4IaoNI0XzA9hvQP47mud18G
VDoSaLZ/kP5hm5x1fmOg8lW54QUb0j9ss/x3h4ugMnH452VppH+YyO0mflNQ
ZasnSzo8Rywjr4f0QVUvo9KyKRoxuSXqvACogp51aR/Kd4wiX5rbC6o72oa3
TwUgpp5jdtkMqrac7OOcZxAzVrCbq6Dq6WMWYoT0CNv5OvS6HKjm7Owofq6M
+IBQaXISqBacfbdBoxrxweHOOnlQLbpd6vjgEGKHx6uor6u++JnElR6P+LB2
bPReUG2/ZX00/Ddid3aRp5pAZB9t2GqF4oV5N1q9QXMTD/8Lz/r9iH331kjn
A3Ez9UGt0Qzic+3s4b1AlLgW443rKeZXL3XCHoi6OjsaxPH9BUXONqYC0SPy
bfAEyhcsxiTKqxKInkXFHa6TiGOvsuw+DETfrizVrxGIrzT/WWQAMZQY1NWM
x+uaxdmsWSCmftbXfo7yAbshVTrOAcSPhLKxcPw87ij71qQDscUij74SjDid
3u69CMQvfjeTLmxFnGGhfzcCiMMNvgYnzBBnue+U5gPisq/mbSukJ9g9X4KO
CKgRqx9Zil9C/Ii35OgfUCOdvaSA4ef5eGOwoAuo0SR3rbmgfMEKmQ7FBYGa
6cWxorw/iIvGvCvaQc1VS5ZfAz+fZzeWjlWBWkpWagve77GK0yn+UqCWaeFR
4FaF+AX9bNFvUMtd1g2NRn4Ce8n1dbYc1J7t/6zZ0If4VUZcSDOofdrEn2h3
AHHlgw02iWjODLxsc9wc8bv9h/q8QJ1LxU7lygPE71kzUlNAnb9LjrWQE+fH
XwvTQF2CVPVs9h3iuuWTncOgTplcFULpBNjHsJO/DoG6p73v53gS4madQcgG
9XMbjR4/ScS5NsdJC9QvlW2ObPuFuGVvxS9zUI8RKNbZivwM1nps1fooqOfU
TSZnKyJuD3Z8hp7XpeuyvxTpHdbpds0pCNT7323KY27Fueu/M4dBfdT25W8L
PB+6zOMf84P6nLdIwtgs4m61PXpoDubocHfjRfqK9QxdUIkCDWmB7Rmgi7if
v+z3UdAgHPA2ccfX13/WWsIWNBQy66bipnBubvqsBhpqauepXUg/sIG4y18Z
oEEza/7ig/onNrhAnfkAGvuiovhz+xGP3LFV0QeNA429zxuoOE/ll/8BjUNb
tJ1mkZ/FvukLXPkLGi45A4+xXTh3Kr/fDhpeb2m7Op8hHmOvxaZBI+bfTDj3
ZcTfKZ++jYLGVaOdyppDOF+6LWkKGgmx6S0H9HF+lWM+CBq3RM0k7+HxnMDO
+MeBxj2d3JcMB8STVJpjA2i8Pms/f1Yd8Q8+j34m0Hgb4pzUuA1nQ4x5ADRq
4t1JSmw4n7ssPQka9Y/Peg904tztcywDNDq+X56xQv0Um07/FhkNGj+PlEyq
NyOe4fEcNASN2TMVsVcqcKZs1jADjfngSqWxezi70ifQ9f/SP3pk+uFcrv1f
LGhu6Boc3YTn569DLwpNQVNqL9/ANNJXbPb6Lgce0JQ9IhSyG9eT2TJ2c0HQ
lD+zTTJvB87dh2LlQVP1mpyTE77+OelB3e+gSamn9TTi+T/3yLlSFDStDT06
Hgsi/l28zVcfNG2tPc9vXMW5iYNPAzT3O/tuOTqO84873dqg6RgUbCuG+gk2
r9SUKwyaxytutsTh9TWf4VK7CzTDtKoaTpYg/uO3cugPaEaGl6veYcb5pqbe
EmhGtz+Oa7DA+YkAiQSa8edT9qiO4TzW5XQTNO9UnG6cxte7YH1vzQI0nxtu
bTqD68lf4d9810Cz4gafelYDzmoHeNH1r0ZY41twfflrct4dXV8TOW2l+RRn
72/2RNBs+VDdPDuCc322Pg00p6w9W8+h+QNb9MR+lYLmz+yjWrm3cA7N5fgB
mrNzBxM/49cvJjUbq4Hm4k1jG51AnCsu9TeAFkeXaNsCrldLrHoNzqAl7Vzz
+aIwzrE99TygRXhSQX6A189S2k+KLmgpshTd7F6//kFrCidoqd1Ls6Ph+bxU
z31EDLRo414dy3h/+cdhq5oPWnZntnUGDeJ8vmx7DbLZ0W80RnD9/xcuf8MJ
tA7ddY3ZnYZzvK9mL2i5tD6iCuN6/u9+vnMGaHmR6bcf1+DcEVS2DFqXl5yd
epEfxJbVNK/uBa0rgmzPDcNwpmSyo+dfUynYlO+Es+FPZAu0kg79qvQVwXk/
JQP9PetNuAw3rhfLQX6Lh0Hrv4jcb9QTOL+fmWKA1sv03fQsPN+Wmx8lZoHW
m9LpZA4ZnLssA6tBq3ZMd0dLD84T5sQm0GrdVZe/rp8r3IpojtCa5Js8maKG
s+nd7VygNa0QX73KhbPl9KQjaP0Ckpgr3l9W9iv0ZoPWwtmARvVMnN0OMf8H
2qztfGrv+XEOabO2B22xVI1f87ierZSojDeDtmS2ceSZJZwr5I01QFvm4YGt
U3g+rlRuKmADbcVXwdjQ+v0fi7GNoE0abLz6aX09Q0RrC9Deo3xCKQ/f7yoP
TcUQtK20A19J4/W3KqBXLQDaNvrXre744yysNK0F2gctyi8k4vFaley/7g3a
bj4ctUF4/Fe1chY7QDvwRc4RO1yfVvcVeaPnhdSU/W6ZwPngl3tioB3eWB9t
juvTquPcZQZox/T/KjJiwtmdo6cQtJPZsBV1CZzPZTKXg3aheW/qBnucEwt3
RoD2k30zqmEuOCdLEnlAu+Qw65uV4zinRkZWgXbFWeXROVxfVrO05vtA+91N
f1J/Ms6PBSMOgHZf35bm520416ytpYD2kJKo3AYGznX85nKg/c1XzN8uH+eP
W1Beak9xyUrP4/m72sKMzkl7UUfDR5uAc++hE2g9y6Ha78Ou4dwvOhEH2msN
uttb/uI82BiyBCQOF3rNmUacx0QsM4EkeM1sS+F5nH/pLngDSbjL4vjKAM5z
+cXngbSNYP16D16/q3/4Sb5Akqo44D61Ho+l6l+XgUQcdStXeo94jbXy0kcg
mTJC7HNxfVgTkniCnmcWE174G8//NWH2fVNAsmi/zGqE9681keE5LSDtO3H1
4VAlzttjDsYBySU5bUUKj9+azPkEMpDcBjOsvdpxJkg8rwDScdW7uW/w+KzJ
vbEZApJXVb6F02acFSdkOYEUMF2aeRvX+zW1sTt9QArRK5+bxOOzpmE7GQSk
8IiXplQ8PmuaL7axASl2W9VMF35+ayTvnU+AdGtHs6EI3j/X9K6qof2mXW9L
dsfjs0atevcDSOm9HROleHzWaL/SxoF0z/vrDVtcf9cYNIkXQHqSMTGSiPeH
NcOgB6ZAKnmSrilih7ORp8leID2vsQy8Y4Wz8QH6NJBefS8RzjPCecd21wdA
qicFmlbgfnZt12HqKSA17lS/ia2vf7dMgB+Qmg8ODtaIr/OA5SEgdQTvuPgJ
r6c1c7PX+kAaqt/0aHABZ4sh22Ugfet9u+iO+9U1y4vP8oE0/tPXZBLP/zUr
3gZ+IP0U6uybx/3XmjWBFgKkWYUrKhc71/l+Wi+Q5qn0C2stOO+Vq7kFpH+H
swU4cb1bs9kcJQakVW9bx2uv1zmU8AfIzJEcDwTL13nijj2QNzw4aST+EGfb
Qml5IHO9Eo/Pxvvv2r6NJHcg8zY19SpkrLOjSi+QBedJ5zQT13mh5RSQRTaM
vi2Lw9mOHkEA8rZtqXy0qHUOIlgBWZxoZl8Zss7/PesDshS2ct/Ef51nSMlA
lndzActTOO+32NQPZNXYd10Hndf51lv0fsrnBO7TO9d5+v1fIJtIHaSHqq3z
/NlJIJuZvOq4IrPO3Xn5QLY+KeN1c8s6P6zyBPL+hMsbMzeus8ebe0B2LJ28
m7+8zgLJxkB2rkufJv5ZX0+f1zyQXXusqE9/rnMebRzI7tMsl3XH19nj7xkg
n2AqaXs5tM7yOeVAPi14TMqgdz0e/bR3QD4jL3rqXcc6J74+D+TzZkHszR/W
4ztxEd3vnyUlqCy/zlFvrwM54HeVVPh6/dmKs84COTyDg6ZDXT8f3ZMngRw1
m28an7x+vi+ivYEcu3P3vvG5ddZLuAPkhJlrZ24/Ws8HWcshICeZaATOr+/X
6tqKHpBvpbZesTi6nl+/w1SAnGEknMe8np8Wj5Z/A/nhzYwe9/V6M2vjTwNy
4QSMv1nPPzOejtdAfsoY+iO6Hv/dYLgM5PJxBf4GXH/XTG/MdAH5HbVoh+bZ
9Xr5UY/y40O8tU3sp/V6mpvSAHLD8JzzyHq9GM75oL+3XdW9lLweP+i7jt4/
0P+meNkWZ33XVZRPI6Qjr/cVr9cvaZcBkMdiWD8W8a7X+8rDZiBPa+0cPYLP
D2u6l+KMgPwvonn7e9yPr2nJ+FcCebXLW0kqaV1PKowOgw6LmpCO/3p9qe9+
lww6G78csFbF9XpNdV/tD9ARVhqISsT91Zr8ZrVu0BENCrsxua4nBM89UaAj
1ka4a9y6rndVz81BRzbA48XCFZwlbdU7QUfj08yvQ+v5tFVk7QzomPkyH1LA
/fzaRqHgJdCx+G/zvWR3nNkXGmVAx3pV9gfb9Loet96bBZ0D0TsCB3F/ubrm
WbAIOm53rmTeEVvXc/pPCdAJrt0yzI/PW6tDCsnOoBPOpaAStK7//Re1EkAn
ypLi8+PYen+p5tkMOnFdDmz16/3iiy6ai3RSf2TJR9xc70+5MxmgUyKsfPwv
vp/Vp9FU9P7nDrSnx9b7ZZHWtwHQqcgyX/qM+63Vh62qG0HnrbLXlad4/Fbv
TQtlgs4nRsnj05vW+2kKtxTojB9jzAzi/mX1QkpXNuhMPrLSs8T7wapPUFY0
6Ez/OhL6Gp8nVr3sVu6AzvyliM231/2De9/3KdBlif9A2rfuD/btDIoFXbFy
mwsfanFWP5jFCbqStYLlp/H6WlV+XOgEujItbYsC+PeAVbm5qTrQVZy0vWiP
1/+qmN1JLtAlS+wLmAjCeaOXpyXo7onYH8aNz8crX5s1pEDX6rpIVZElzp3k
u/Wga5PeyWqDn89Ka2wHBXQPPj8QcRvPn5X3rL3CoOs2cfCyCu4/VopUrheD
bpCVQ5w5Pt+uBCg9JIFuqOP2hpm3OJ87j/ycbsTxXt4kXJ9XPIuukEE3NvzQ
ta8cODuPc94B3eQyx+uncT+8YnzCYTfoFokdTr6Gn/fKhojrZaD7VEnyi5Y2
4uW1yBgF0C0lD4h04P19ecFrqB10X1g6p0rgfmV5dK0uGXTfhx25XfgZ51r2
mEDQ7R93zWrC63k5wGsGxXNYVzDbFNeDZW/R2iXQHY2szqlc97vH7om7g+4P
Wdm8J+dw3nug7zjoLjkOP7qB98dleQpwAUWozbV8P16//95fQOumbJUR/K8J
7w//Kv6dSQXK9jPVL0xxv/Gv8GCmLVBk+GRf6wngnJT9+hBQ1E2Ha7bh/ubf
YYczsUDZ9dq1qQ/3I0tTKxGhQNnDK9iyH5//l75OoXmWYuVQ3dqE+4OlT4XX
coFityj7uRKf75eK7l97ApSj2sM92bgeLnk5K7QBJajAdcwd17fFb6cmaoES
+ldwvA/vl4ttBvGeQIncUT2xH6+fxcr+ICugXBmR/WGKf29ZvO372BkoqRLD
c8paOO+Z5dAGyrMk19VpXN/+3s8sHQdK2YOqv3dw//33hrr5R6D891Z6djc+
H/4NikxgAsqbH/3f8nA9/2sbfjsMKA07HRqc8OcvrDwbWQLKyJJN6id8vQvG
VppmQBnnf3ojAPfrCyr/ml4CZVJB4KoyrkcLgq4mFkD5ZdMUEvUC8Z9Bl5fq
QFl5bHaMgdf7n4t88e2gJ+xsRCpSQTyf7uHyE/REz2erOeLfS+ZDfCqaQU/s
KrMiN+6/5l3V2KVBT+a/N9uP4X5mXuHhaAboqQvSWCRxffj96Fm0FOjtfKfV
FI/7u7k8SWkr0PNXlTlxBvdDvyzpWt6gF6A1k6kdi7MCz9gX0AvWe9325w3i
mVVP3xDQi9zpQA/Ev7fMPByyXwa96y5J/DH/cGY+mXoX9ApS2ctyshBP35x4
5gl6jzLbJt1xfZh2NzIXAL2ivGwpZfz70LSOKCpLvdISRkwxPk/8aNddlgG9
t00XDr0yxplLZOw76HWzf2fp+I540kEoLxf0vvIsabP6A3IBh5
yhGf/ya++/EQQG9UWvrzMD6fT5w7njoMerP69vkzeH18j3wrJAFULu8GSy78
/MeiyhjCQOX1TwtvxPVgzOh5fhlQ+UM8yhNu48zEHB8LVOFr7DIi+PeO0fPu
c9pAlSmgz8t+QfzNHmvQASq1v+g2Hff/Q8v7pBEzFE8nfMbzZShvm0YCUA3O
qkSdwvVjyKKv+xtQTVnun73dhXgw3WHTGlD3yWXuXNJBPED84EMFqtfJa7/L
cP39Kvrs0GegepeYT1jg33d6n/ztyQPquRWu/lF8/727OOfPATXgWtTHLXsQ
9/iEpPsCNeZJ0F0f/H1d/x3oNQVqzoKnhQauPx3sB+2qgHofVI3e4/Pg5+jE
1yxAfRA9oXcY93efuQ5qjwL1yTZ3wjU8P9o5A9h3A/U13XHpB65XLfPpgRFA
7Qzfc78A9zuNoSb3HgO1p4E73eA04oZJNTn0vH6hD4ldeLwabA5cWAXqtzyT
oI24vn2UcPz0CqizH+i27gmI6zKS3ayAxruJyCyL61214bBzBdD4JVOnZ3B/
UZUWSuQAmqAGR++rFMRvZ8wVJoEmajVQvv8b4srkfUf1gSaXmOQVh/vNVx9z
Fp2Axtjy7+t8GeLnHf6JRkAzkPf4WPUVZ75TAuh5xjqf/0vA11dmrP33D9B2
7y+6qWyNuKRA5edLoNmlupo74fPQkwP81OtA8xKrr6jDvyc/MN5EJgHNm6ib
fxNfb4Gdy3b0vHP0e8ku+PfWfHcZuUtAu+QUdHYZ9995gY28UkC7nKWlpIn3
2+yrzLF+QMuSTb2Vhu8/jaAf/BRoOSSOyGP49+VUzq+cSUDLM/bxIeF6dmvK
swfxI7c9Fk14/d/MNz5UCbTy+8wcrLgfSlisrvkNtBZlD99TuB+JWlYhOAKt
PaBWlg/345EJ+7TtgfalSbqlGO/fEVJ6UTVA6/PpUZvD+2eo1op/GtAmX+35
7o/7vUuyzIF1oM9hpe0UieeDp9RUfBPoc2Yn8OK/f2CnTjhl+oE+z++pF3W5
iE8UPvBigL5gap4oNz5fHFO4TncDfanhrW3X8fUf7uxrGgB92rlV0wwlxFbK
c4n2oM+os1/A8O9TFtv2n3AAfcNtz3MH8e+T5qxR3g2gb/rmLCsB/z62s+rf
rm2gb7dx+NUDX8SM34pbRkH/zO0PWvjvx5gqH28BE+j7TMsNHsDPQylhnPkl
6F+AsPhFfH5X4NkZ/hj0A7/Rfujj30+kp2hDZaB/Ra3wfjU+T4pY+GJJoJ/7
NkmsCdc/pss86Nj083syq/O8ABgrFbQwXtB/OP/wRCDyK4ylb/HFaH1PlarK
VVC/YswTrNjQ+19f/2UTjeqR8R0rb4sC/S8uFrGA3sdo6kpjtwD97gB7TZE1
xA0RhjoE0P+a7PblJ5rHGR/krpO6QX+4PlAuHa2fUWVWEYvWN6P1sHIR9T9G
iezuySigc7JuXHiK+jXj5uj3E4eAziMulBGD9Ixx/Sf/dCrQN+lKmTjnIb46
JfL3L9C3nNS9wYf/XhZZs/OOC9Cl29zVTqL4Mny/F76eBzo1p9qNgP/+ZjUZ
pHsA6KeMA1tvIv9DX/2kct4U6F4Wf0tC0f30RbOtGRSgex/0SfZE50+fKx/I
DwO6n+dx+x3o/Onj7vYv2YAekWI7uID/PtjCZikbAfQ7Uyq/DuL3Z8qdE0hA
//zJa9uB359yOym0COg5zNKlWmjeo19fe/W7GOgFwiL+XEjf6RHXjx+sAHop
sDK9QPpE92hPT7MDeuONbn6J7YiJj2LZrYDenGE7y4XfLzfJcgbtpy2/qe0P
8id0CSG1kPNA73pVe6tJFTGf3HPvWaB/G3siGYL2r/8DY6lpRdukRasN4b+/
3hfizaQCg3kHK/8n/PfW9IF/jvrAYLMKnK1A56eflJR/GIWJy82n7AbKB/3Q
IuXPAcAQjj/MMEZ6o29fsPlUCjDUhnX25OH3b/CaWhAFhpZ61syxXQC0fynv
OFiAQQ7gvqGA9Jz2M8OxYB4Y+kIDnQWoX9O+MAjvK4Gxa8cV14eoH9Du1ey9
kwgM14IB/yf8iCkxG6TuAcP9j5nYWaQPNOVdS68PA+OEYekbLbR+2vaBGHMC
MM70XGF7huZ56mpcUO8QMIJ4yfFlOxC/bSk6mQmMlDOxuS8CEWO3TdtPAOP2
y3nTAAJitQvPklaBkcl5eFK/HrG4tPy1rcDIzSZrvEb5qbfY+f7BODCetvW/
qCxBXFzPwXEAGI26pJZaNC/qCckvbUHxag7P9I26DkBZi9E7UAKMtmYukZ3I
f1MmCnUe8QOj26P/UB3SI0ol/SZTMjDG0mLGPkoj9nC8mvQCMOaVvpVm5Nd0
H/79z9AKMHaBvynvUH7rJnX04WW5UX6z9ks0H+gG+s41aADGZ2FyvAD1b909
06qZ8oBty3j4OQzVs87k2y1qYYBpY36PtVEh62wztlZrAEzHJtFUCc0P5NX6
ZK0hwPSOPRyWQnpKHmbrRn0Hw+L7RXlQfyE/SBS95QeY2YBJxDfkR8jkv1uS
+wA7Grr50C05ABJd/ThXEZK5myoLV5FfJoldqzWaQDJYYJIYjvRS+9+N1RtJ
gJ1p8avzQvOddnmc8q5PgAVK95NMUT1oq4lUcughGa96xL0UB6DFUdpycS9g
KR21eTNVAJr9i27WS4Ddnug3GF1EXN4qbb4VtQ3BzRfakD/RPM4IfjkAWKGr
3/AjDECjZki1QwWw92wmLxxnAdTdTa429ABWb28poojmVXXS6VtpKD6NxQe8
59B5q7Mw9Yb/QG390EnlaBRYtdsuFAFvZENKElKfIj0jvutnYUPxWD7a47ch
HEBlTd7e3xiNrRUjba2oflWqlfYkIV/PHH1B5BOa71Si/HNeovey9YX4pKD4
qnAtGWkiHeGOvaGihvyxMjdc0UR5uHWoPO0A8pMKowvqrmgO3nb1lSkd+QeF
jMaQsYsAYpS3f2RRf1XY13iLhnyx5LWP1j+Qf5N/a2Dqj/YtT+3jDEP3yV0t
LslFPkv7BqvfY+T3ZJaO/dNDcSMzNsonZiDOyTO0QHmp852n/cIkYrPhkV2V
eN4LaxhGAEinWt/kRXMlTCqOfUF6JaWQc1wSnbOFkcV+lm0A4ptOepE3A1iO
xmafRf1UrGCbgAPSXeuYdz8GUT8TM8jqcDgFYNuMRbxF9b7dS6miCfV1B0eN
p6Eon0RffLx7uQbA44IgHxPSG+Gtpux2qK5ObLM8eAb1hy3pfcVJyNecfHXl
3gCaN7bIbCEaIt32YmOjvUH3CcnvpY6jOfZcwvzxYOTnNotntNcinx324EvN
Kqp33upfycfGASIshPg90TZ4NbP789C5RP6ycuhD/Zwn/cl7H9RXY3TrZl8h
/eI+03GSbR4gvqZCKhDpFydLhfkutO47fXcuLSP9Ym2udDmWBpAR2vn+lAti
GeGbGcMAWXJbNvci/81yNuD3BZT3OSevFrxEfp2Zy03VWhig4G/Ql0uJKE9M
t81Wo/U933xEaykHsJ/DNUf3SQKUp/ouRZoje3/Yy2Efem+FVHTVpj+ATX2R
tOTcB/BKrdhaDuXZ9wr3u9roPdW717wsZwEbtvQ/exn56qbw9Ie5hsiOPrhj
z4vi1cL1xEd9CrC2wfdDBij/Wq/XUiuSAWsVstrHi/rC58ypD02oDj+d3D1q
h+bknpe0saXrgL3rz5OqiAcY+91NsER1U/Yl50U/ypPvl35Mdsciu/dGzpsL
5eUkK/MzNxJgT++aEHnQ3D4toGR4MRrV2T6V8rcoHr+Jfs65SHdyL6psOqIH
BkzuwneWggFLfLxXp/cZGGz9YrMlVwIwDztqCqcOGGwLdnqVugiYG+VJUR8b
GIgpnHC71g6Yy+ZXfElHwUDyQmip3xX8vz/A5vsiYCAvUrzP7C+yQ/4vNZz/
AwPtA7xJs62AaTmZeXXEgAGZSVR/7DFgasU2ZWxqYKCTTxjpRetT/puZqpkD
Bnp/9UnvMMBkTxb07jsPBpByoj31EWCCXSLpKjZgsKezTgiigDH7yi+xmR0M
LEPaXpKPAGP6uPzElm9gYK3Yf1QZ6fgE50OKWwsY2Pr9KRGcA8agYsefjMNg
4CAqZzPmDIxPXyW3dIuDgcfBsBvXUN/M37ivUCocDMK66Zt7fiA78SpfeWMC
GES4S+lMJgDDTG/EhtsPDCJnWe3/kYBhUvAi4vNBMIjh/JCz7SIwqK4TYdFb
wSBez077IAcwZEF06ydOMLid4mXTIQH02SgL84uZYJBO2Hvh21ugT2kNEv1W
wCCjmHx7/ijq6y2tLst1YHD3/b8RoQdA7xwNZ75+DAzuL0T72ugA/fVxTqEE
PjAosbub1GwB9Kiq46HCsWBQOhRR3v8L6MFx4hx8hWDw3PNY788k5Gt2cvpd
eAUGFVFqcnzdQD+eYDq9NgMGlaUVpXvcgW7meW1tkwcYNAq1fa4PQj7MfNe3
JUEw+NbGIVxTCPphSvXGM/fBYGy/VKcT8qn+qpK/lH+AwXgPLXVREvlWibwV
j1owmBw+K05MAH3HduXz1Hww+DXXK5vsA/qUEGN2TTkwWBV6quFBAdrEl6lz
3fVgKGzntJu7CmhGvpfdYsXBUKTbnzt3CdmDc5VDM7fAUNTpRiNoA414jOWQ
ZDkYirl/sPK9BzQR0fJ9d76BocwFkt3Xy0D9XtkQ+rAYDNVSuFyLzIEaJ2G+
MhQMhju6ygL3ojm/9hLrjxf9YGga9EFyP2rvzwNYbi6MguFu2Z63Dg/QXH8q
vOJYNhju8WRmPxoEelfFrj+uqQRDWxazq+flQc/mZcGs9Q4wPKI8kJ56Hih9
Epy8KA8NLwVwvRoQBt3x27s/HD8AhsUSTqunbYE8cLc28yC6/8n9XWJxUUBu
kXmRsn0MDJ9paFMflgP57d0Y8aoCMCwz3HB+YjuQs1NvLo1MgOFLt6Kf7kNA
Puo/0ZqCnlf3mGnA+QyQxtUtC5DfNBykZVfZxIH2Ly5mxvtZMByqiRvwfg3a
g+WbNjmRwHBkz/nV6zOg3XrSoCXuMhiOHTajNtuA9rPB30kiKD4/wuae7dkG
2heEr7d8TQHDxXrjezvyQWv1Y6JLRjEYbT4wGqVXDVpCtdcoKN5GQix1EdXy
oMW+W/NYSR0YbXn0INw8FjTne8VzM13BSJTJM+SwFWh+UcwM+S4FRpL3/1yM
6AXNtOOv0qLPgpHqAodn02/QlC1lvH/nDkY7b8rvdyeAhmHMaiCxBIwCWtwV
E6OA6Mn18WBEGOI+qXO0g0A87cz9qDUR8UT32xFVIJ4qtR0olwejQDZLB3Ir
EE86M09ADWJdytUucSB6lL6LYBNDnM41J1kCRFeXxaYlDTAK8ih69WgYiAdq
Nj7TSkF87gTXvjLE29wES+4gDiPYrUYDcf+ZeltXZcS3U2as1IBoJ150XjsV
8acwmbmLQLS5MEKT4gOjYJJtNHUzEC2IC7W9TIgN+NqHvgFxT8SQ/AgX4j0f
pK+UA9G85/OxOrTf4GP0iq9OQDSL6YjZdBtxmvyPkAIgmo4amS5sRJw3SFUK
QEz3zTfAn//sdlSrBRB3JhWOUd4ibuSXkv0NxB1GDLatBoi76k81vAeiSVri
4Bxaf/BoxH/n0oBo/Gsm0xXtL3gO45A4jXjXfv0j6LyC1xb3vkf2xyjrXflY
"]]}}, {{}, {},
{GrayLevel[0.5], Thickness[0.01], Dashing[None],
LineBox[CompressedData["
1:eJwl2Hc81P8fAHAhIinKJuvsde7O5u7FnbJSCdmhhZCvJBoyKpKsIglFVkiS
ZJOEUGZGWYlsyshMv/en318ez4cbn/f7/VrvMzvvLHqajo6Ono6OQRj7S85a
yRmLV2wC3EtC9OhgOOXmpolzUqkJ4Ap/7JJ32UOJ2xS8cGBOBHBFybkJhz9S
MjYZryTtCAdcCZ8v3piV8npj9Xp9XDXgqmk2oQpClPcbC0Ff+60B98nLnVFf
mtJg+9KIfy4McG1un20yxyiN5V6cNnQlgOtw2xF+P5vSfHk2rVeCG3DdvmvP
xq9S2q4uOU2pTgJusMWgBU+lfN6YD/5xPRNwPz23TjuvU7pzP40z7agC3EL5
LXslN0qPbb6xRMxnwC3vSigOy6L0lnvsPZXOCLi12mgHYwLl6+WppyONJ0GC
4T/tk/pFlOGrCyPnw6JBgmfWgy8ERxnbmGM4134IJPTrI2V2MlF+2FL1Hca6
QcJQ7HXMwQDKj7KE0KPrDiBhEhqhb3mLMu5P3aku7gUSx84lx9lkUCZ+J+xl
vBgLEk6Piy5V5VKmf+mJJfOh919v9qceH6LMHHlwKloRvT+kkn2lNoQy82Im
M0RvHCRCS2qPp3pTZj0fyLqeWwWJqE+j6Y4plLnpGYJKlQBIPPHravI4Sfm5
aCwyrowHiXd9W+YzwpRfYstvh8t9QKLR3/V9qCLll9kT5y/6JSDxERd3iVpG
+fVyOf2jjS5IdKckd5HbKAteT6RfhZiBxBQu+tz4AmVxdhl//bMPSO6NyYnt
vkD5PfEYeP1LQdKriVxVSqGscIlqmbRFgqRvQaap1AvKiu5T1SApZ5C8ml5O
jXlCWUnMkp/8zAaSYcVOjAenKasmL/jK8Y4gmRrcmi0dSFkrqFq0H98Bkp+/
eMc9H6GsDcBcrM4ASPY/e2x1aQ9lnaV2sv5+IUh+D7P3wKlR1p3rh5X07EDy
10W2pVkqZWPfp490yQUgxc5eHSm3Rtn0G8x8am4FUkaOWuJ/+CibGY6pPbkK
IGWm1kwwDKRsto8ks9HTg5SNyF+BgtOUP7I/7vm8yAMpN+mBo+valD/9c4EH
dtKB1B1OgycGypS/sGU98TYLpNrOce64XgHbGKOYHvBcAWk31YAOxirYxu9I
ffCxBqR9zD/x3VWDbXjlwIQbTCAdEHYrlTUKttl2rj/8GQ3S9/CNu4dWYNsr
3rmkD+kgXRmW5q+6B+id0rrTrrSADLfvK/syT6C/5LP3KYEDZET/EE/97AD6
u/pHnk5YgozCI/9UqWigLxlvyjAfBhl94YVQul5g2CNfla2wDDIXTT5e2OUN
DFXFmc+H94PMF6ttGzL+wNAV+j0//iTIjHvQ3XF7CwxT1iIvTLJBZikJ75vd
AoxcG4kFpQSQ3W1YffN1MDB6QOSr2IMgqz/W46gmB9sFmnxLaV4gW0It2hcQ
D0x+gwfqst+CXOGTkxY79gFTdNh4FZEJ5OoK8Atn24Apmxj2ptII5LpH7Ws0
BYGpJ6wpp70D5DbKwvKs/gCzKtE0en0U5A+KbUxc2gvMi2GW9oeYQH6MZSLj
Zh+weBJOL/8yAkWyPm7mrA2w3Bxgmr8SCYoWeD2/0y+BJTk0a3J7Byi6026W
HTQDlpb+yX5+W1BMnJhrMFcFVrlQj1qqOyiu4zQ2WJOAdaL/YmRcJCjV+AcK
SNcA28lbN6U0OgFfHP6CjasT2PyTOsmyjoB/V6T18zk3sEW9ErXgnwF828+A
atZTwFY+VBm8yQT46VSR/i0e2LVPfXmwSh2URUcS2Kdvwq666TPxekmgHDNS
M8hMB7sljxhsNz4DhOtPfO4KdMOepbvb/8u/BqTIoGqnlBfAQXdj0D+6Fkip
Ximv7vAAB9vVN0EXdgCpyIvn0YQJcODcXWPU7gPpyxOehfQnwGFu/LGgJg9U
pKoWqT0dwFHEGjff0Q8qdU0PLCclgfNCmKTHiiao7Qid2V94F/YuhBx0o6yA
Rja/wV47Pdi7RQWJszmgUTG9XKheD/tYGdSHoxxAo70yn3PxIOwTDZG1HKwD
jQ1HQX6hKdh3JGQX9Vo0aJomrH39kgv78oM7BctlQXPpkXMJXR9wuQU7tKo6
gLb2L6kwAQbgHgnyJcm/B3KBT+wn0Ubgnr2kH8CcBOS3P51OrbgB96rHvoYR
HyB3OgRy1/4GHnarV7YJYkD+zSFwc58h8Ggq/QxhCASKZvNk3yIOeGIG3dq/
aAHl7eXStFlm4NXVOnE+9CWAk99WBEUWeE2UFUudwwBcdb5Ulu4D3uOSWww6
jgBe66KnFIaA14MzKX6RHSDQ6kN2QR7wJkz2VTm4A6Q8f8De9wl4fyaY71KR
AujLf3DJzR/4Hi8b5Iwkg67B+JSqXwDw5fZ8+CXlA7pHBGuWDO8D35syYzV3
I9A9fuDdO+PHwNd6/dC75VXQPX3ZMPd+MPD9ZTEbYDEH3aATJom9psDvIGS/
G88Gum9Ee78f0QUBQf3/Lly7Cnr8SbVzrl0gIC21UFp7DPRELj9K2tMEAiRW
HzpmWdCTNGU2NNEHAeNW34joXtBT/lwkbd8PAlesr2Skk0DPwFWV3cYABL54
3OxpmgG9C1l/1CPGQTAhLlGb1xb0at8n/njmBoJPny9w7LEEvQZecs+VaBDM
rzf8scMM9JqdO1P6HUCw7vda1KoB6HUOLeVtDwDBX1ZW33vR549e4e/IkwQh
IwGeOwnsQGXUMUtxNQMhC+J5x2gWoO7Ye1FaCQ9CjsYNKmGMQN05IqZaOQNC
vld9hy6tA3WvK/V5uD0IpQ10E4+PA1VMuGJPfA4IbTy5/5WnBqhkVQvBnhrY
z1QyU7C7HKi6Dz+3lXXDfo522k3mYqDSfgfHdzfBfultS4oreUA1fnRbln4Q
9pufPBbc8xCoVnEuFFMm2P9cklP2gTdQ/ztqq3VsAIQdcqMu8+CAmqLMMHhZ
GoRdI5jpzSOA+qTmQY1LGQj7uAeExywD9alRu/8pTRAOV/B4xFYP1OzDtiTu
NhB+/cK4gt4FqIV8DaljZBBhsg7Z+t0N1Lryqcad7SCy80P1O65woNavCyxP
hoMIh8ZGKIkM1A/E4Mxvp0BEkP/C7v+ygPoxYe8JsykQUf7qLDzjB9RuGWL7
YCSI2NsDjPAB9Yf3UF4uG4g4f7y6ne4TUCdc3ERuILvovPkgHAzUKeuXvAzb
QeTCfqWjdlNAnVO6v1XXCyJhQ/udesqAuvwszuN6CYgUOW4Gf7QDGsOAvYjs
TRDdeaqkruQJ0IT86b+UJ4Eoh/GhUDZzoAlzqRBdEkCUR3nE0HEH0ESeX8OX
7wVRsb87PzF7AU28w6vMPQBENR869FgC0GTmPitNHAFR10+Mk4vDQFPx68eh
fBQ9X/Qw7+B9oKl+sZqZQr74SNHzkQHQ1NXPS/lFgGiQy/FFvQKgaU7d+qGs
CqIP6XM2YwKBBlLqW1JHQbRR7ehuJRGgGbHgTDSvgOgnobH24C6gGauVTag5
gWgX4+V73WFAMznpeBB/A0SH2tN5r/0EmunLhRLJYhBdObci2lIDtGPyi0cv
4EBM8kkyyc0RaLZP9mePzIPYTZZJ64xUoLllGn8TmQWx8DuuJ80mgHbOx/x1
PIBYNNukB50i0NzBt6yUDsQe7Z4MtCkDmkcnz1UFExB7yTWZtbsDaF4juqvL
LiA2IDq5dJkeaL65re+XNUFs5KnrlhRa7yV7O90NVhCbwE0xd0UCzW+X3rNY
AogtSk0JKPEDzd9F3sitCsRZFKZ0R4lAu8r6JbhFBMRVNKaiTE8BLYipYXth
MIhrlrslbOQgP85YqGIDcdCeSstG6w1W47lLPwzixpSpYoarQAtxqv4djuyk
P9VfEge0m5mBhwN7Qfzu0WlZsXqg3f4ZwEAvBeJjrtN1K1JAi3nEKo8PBPFp
p7qWPnegxXLde2E9DeK/rJO7yguRIwd06tDz/TE8PBpIBtq9a5WkDxWA45Iu
YmSxBFrcIeZJ6VXA0cavUgVuAS2hyK2fngQ4oyELoz8tQHsoeFKswQVwR3oU
zYY5kUOM1o4nAM6uftg5PQVoiYeWyB8vAc4nkxas8Bpoj7pX977HAS79NNtb
yijQUsqYBi4VAS7HbuyDmCzQHnMqj0aQAVdgXtXOiOLxsetFAmsN4CpoXsON
m0B7wnXotz2a87vEP9OZ7QVaqnOYZmsXmstHkimn9ID29POuRZZskDjpqFAZ
huI/W7p0N88ekHDV5n68Kwn5zKhn8BWQOM/zNzD2IXK6Z2rib5C43NpOTYoF
2jOhjIUwS5CIpfh8KLgBtJwdLR7BqFe+3V/+udcVaLnvDgWsDoBE/Xr6G/sz
yKvCfCEXQaKl+27CiDPQ8uTPhnJFgkRv5AnbGZSPefecbUpGQWJ+i36EzhRo
z20lHhsHgeT+AcM5aQLQ8ju333xLD5K4UkLrcxSP+X9HDN8MgaRsnMBLghzQ
Xsgb2d8KB0lVk1kfbRxyyFuJ4BSQPFQRvX6EG2gFCq5nw3+jufpRLxOqt7SX
7kmdmUwg+cXmzP6Gd0B7lVqbIlwMkkPtmgczzZCr55XfF4HkmAG71w2Uz68G
Ohy700Hyp0pxre4W0Ip4qy1MG0GKiYP5dIU68p0DCeamIKXckJ1XkA+01yeT
zeycQEqNfPVzlDbytRBasxJIab8+suXRjPxAVk5+GKQOpq0dkUX59vpDpQr/
S5CyDzBczBAHWrH8jgcRiiB1mzSt+TABeaxwpDMcpCJzq0/6SSJvzCS3jIPU
fbF7EZYoXt5w/CSaNYHU4z1ag3tRPr7RsVznDgCpoumIoMhdyDEvmWLjQWo4
TaExOBhoJcoMb6JWQVp9t5flORTvpYcO3TLMAWmdzeRrAWh/Sk/s1PxVANLU
yab02NvIXonbA4ZB+nAdbqE0E/me/If0MJA+69cXxYz2p7SbpB9YB9LxI3oN
6ceAVmaOb1HvAumk1vNzb0aQT6pJH0wA6bSKZK5mFK9l3lzvBoNAOj9+5eRC
BHKUvR1vIUjXG+fRAcrPskbRA2YKIL38mkt9QBNo5YSOQzxNIL2RpnfiZyMy
5c6NfnqQ2RZ1PpTxOLKJ+G6FBJDZ5frhs5wP8qm5AANVkJHYH/CfPzqP8ji6
g652IGMeOp7DLYo8b5X//RjIvLIpEziM6ntF5PoGRwfIlIx03K6QRn5w/da1
IpCpcptalTFEfjy/7SgJZD5cEfjMEI5cEHW/yAdkhh5diyxhQ27rf3c8DGR3
9uvSi+4BWuWuDhJzMMhynLL2isQjcwkxC02ALPfMf4MbR5EFLdpMvoCs6GZa
+WeUT5WyMb+r3UBWXYjxYvg+5AMaVpUxIHvKvmFikRf5sqvOqQqQdR0bPu6I
4q0yMOvcuD3InvdYff/RGvlWt7RiEcheDpBJy0pEvrd9xGoBZKNT7tjZCSLn
FHp3/wLZiiHT1veon1T2nLj9/iLIcTl+Ln4gA7QqySVd5lqQEzhxUFzDCFlu
ouNwJciJ2pdEfXVDxrfxl3GCnILNI1dhVH+rNC85/OAGOX1zJ4FseeRD8kFx
/iB38eBMYCnKzyovUw/rOyB35YD9rC3K5yqfAPMBdM8JorVa//FE9ntKr5sL
cnd1C4m6L5ADmyVz7EEuQ+vSWBPar6rohy3evCD3WYnB6CvqB1X5hnrT3iD3
VcHnzTXUn6tedqzo64HcN7kfOGF03lWvjynWtILcrHTjn5NFyBVqEaElIL9d
LPLFjCryh9iyEGQVbv59f9D+VY1kvVu7D/L3/+CHhHWAVs0+jvNiBfnEoUKJ
U2j/qzmc/kIjyD+pJZ7LnkLe23306w+QzwtVWSWgfKzmzX3K2A3ydRxaHPpL
yGKszY4jIL8ooU91z0MmPrMSqQL5Neb62y9DkFXeOQReAfmtqYOtv22Q1Xq+
XgoDBdYXRnaBKP6qtX5eMMkABTGNwxfvoX5XTf32TMEWFI4ess4qQ+dXbdYm
K4gHheNKX2a3FpHNE4TkckDBntOORG1CtrR1aPEABZceh5qPfsjWnX+Z1kEh
0Olk3zCaF6odo7ZrxoLCi4uebMwo36o9VI/qaYPiruRgL/MN5JA4RWMAxb38
c38Wse+/UV92PRgUeRNs78R8Qr65bDm+ExTF75EyP6F+UR1mOLDvCShqhP0Y
MKAhR7SNXjgFiqd9jI20sM+Ps+vMUwVFt19vevqWkeOdU5IMQNHrPO60nwPy
g9NjkmRQvOL6J/A1Ou/qh6f+5N8AxZgTL94oYs+bfGB7lyAoVhrvw4lh609P
iMhBrm0MfFlzEznDr9vkLig26s9SHOaQMy1XojJAsRPqbR6heac6m62bux4U
J1X9Yriw9eSeuK90BJS4RPu3djxHfplxIVcQlNxXM3rmUT+vrug85CACSt4z
507WZiFX3nzWkAJKfsP4+XiUz9VVqjLHLUDpRkMFszaqZ9XVMRlPnUEpKb5D
NRx7nloiv5QGKLWQtuIkUL+vbsAxiLuBUod0nciaCuayBjNOUOoVvJ3Xgvp9
dePhla8LoDTKuK/uAqqH1R8u5udLgNJGp+ziW9Svq5vzxxKJgOcqyX2mqIDc
+nW8NwHwvIWR53mw72+zPfz4EeAF8v5T2RaPuc8pjR3wok9Ua7pQf6pub4/1
qgK8Qujb3ittyJ2FoS2BgNe37GX+gPKlukcj2zsf8D7LjGdOlSMPeGtKbgD+
UoVd64Y65gYeKz/AXw55rRFTjDwosD9UFPCBnGfYqgow17xi8wf8HaWGV7yo
H1QP08tPFwI+1S38bwuqZ9UjjlyHzwA+Xfm760ls/0ayrz19DfjMNa2OtbuY
fyr6o9fnhc5kSqL5tfr7Na8sL8C/yTA1CQxAHo3K3OwE/MdhjockVH+qf9w/
JNUH+LYsN/qmCcwdTIeDAd/pWevudBp5fLfo3zbA9/65QIl0xBx6a34v4Ef5
u8Ym0HxWPfGf0lgJ4NctEghJaP6pnpLRELQEZcnm/S2MfMizKkYPy0BZ5sZ1
sXMLmJ32NYWDsrzOkF8nll+zEed340BZueCJxNOrmL/1fDcHZe140et6qP9V
z4XG388FZTMnHCEI24/56pQmbVC24L8RNnkd8+hgJysoH+8cHTpqhfyTpWoX
IyjbH8iIEGXBbGYf9gKUXeQlx2rcMQ+pH7YB5WsrMgl/0fxT/Wtib8AsKAcW
3J4/uxN5gflZYTYoh7hO6X8axSw5PUcPymH9OQspcZhPXXKVBeV7tfImOquY
v1aFoOd7dlfx79Vq5MXyrPxboJx3IMpiFKtni91m+m9AOf/vfJ4JFo+LP1+9
Resr8i6wFhRDXsIlD54B5Wor5cLyW5hvCycTQPmzOOn0ugnysr4tSQSUe3ne
al3NwGyf3B4Pyl/ZTPdsYfG4fDGOFAHKw8tnKxheYE5Pn2cH5ZmGR5y7ODH/
tYEHQGB031Yl3IP8OytTLA0IzI6R99Kw+vC7PFDRDwisFgKuOCxefrfy5vQD
YQ9ZZZ+MJublUKFlIAjucXEjoPm1eoXiknkGCMSiVm59Z8wN+RbIqs9spxuw
eF/pyYvGA0EjeeKtEVbvV8b/46oFAiWU3t30PfIqk2nlRyAYW6vUWklj1nU5
mg4E00O1D74EYT6cXvkHCEf1DnvYfcFsn/O+HgjH5Vx5ne5g9ucibALB+U+S
pxtWn1afe9JpA+H0ggx19iDmsm2fFoDg8qOY7zxWT1frnWVuAMGztbXO5yjm
wdtDTEC4nMbAj+YQWvUaW8AtXyDEHnCtj/bHfEJP4C8Q4na4}
我要回帖
更多关于 www.nihao99.com 的文章
更多推荐
- ·excel如果计算指定周期的时间进度公式怎么设置？
- ·辐射4自己建的商店啥也没有通用原子购物广场机器人怎么关掉
- ·回族开斋节清真祝福语阿拉伯语语
- ·商丘本周明天商丘天气预报24小时报
- ·世界上有大脚怪吗真的是人类和灵长类动物杂交产物吗？
- ·妙战天下狗粮强化强化失败武器会消失吗
- ·130级音速小飞没宝物怎么糖果派对辅助爆分器
- ·王者荣耀维护到几点乃会维护完
- ·剑灵剑灵冰冻的烛魔武器器的百分之240的属性伤害是多少
- ·这些玩游戏什么台式机好哪里有？手机还是电脑玩的？
- ·网吧全名打怪兽获得的礼券礼品券卡兑换管理系统的话费怎么办
- ·想买个PSP，淘宝坑位产出怎么算的会坑吗
- ·从哈尔滨防洪纪念塔图片到绿地的距离
- ·校花打赌输了摆布故事被带到密室玩的故事
- ·王者荣耀装备大全2016维护2016年4月1日什么时候维护好
- ·怎样开现在天天酷跑用什么挂挂
- ·大唐R2000怎么刷ubnt刷机教程
- ·艾尔战记职业手游30光武怎么升级成50
- ·超级萌三国第八区陈宫第几集出来的
- ·nihao99hsjsbsv:qs
- ·关于易语言加壳工具问题，我知道做CF无视230工具需要用易语言加壳工具上的网截这个我知道，就是代码应该怎么写？
- ·王者荣耀1v5英雄孙悟空1v5神装
- ·天天爱消除王者荣耀冒险模式三星第321关怎么过 321关三星攻略
- ·推荐一款dell燃7000能玩游戏吗很好的电脑，7000以内。谢谢！
- ·玄天神魔录电脑版时空裂缝在哪里
- ·特效盐酸多西环素分散片素
- ·王者荣耀维护茉耀为什么会维护
- ·星露谷物语汉化地牢第60层送的武器怎么样
- ·剑雨江湖战骑11升126升7需要多少进阶丹
- ·求刀剑神域结衣本子的本子合集谢谢越多越好满意加分
- ·生死狙击咋盗号给个好号咋看
- ·本田摩托跑车图片3万到4万图片
- ·毛洋葱叶子有毒吗能吃吗
- ·赛尔号雷神崛起图片图片
- ·2016年4月1日王者荣耀装备大全2016维护需要多少时间
