projet2.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     84947,       1742]
NotebookOptionsPosition[     82686,       1702]
NotebookOutlinePosition[     83026,       1717]
CellTagsIndexPosition[     82983,       1714]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.7325557960450506`*^9, 
  3.7325557960606503`*^9}},ExpressionUUID->"fe064255-c7b1-4104-b245-\
a0caafbc7e12"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SubscriptBox["T", "air"], "=", "261.15"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Alac", "=", " ", "18500"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["T", "fond"], "=", " ", "281.15"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["T", "init"], " ", "=", " ", "281.15"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["T", "cible"], " ", "=", " ", "277.13"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A1", "=", " ", "1.946*^4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A2", " ", "=", " ", "2.188*^4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"C1", " ", "=", " ", "1.549*^8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"C2", " ", "=", " ", "5.420*^8"}], ";"}]}], "Input",
 CellChangeTimes->{{3.732482033779036*^9, 3.732482326934894*^9}, {
   3.73248238122204*^9, 3.732482413830618*^9}, {3.732482450238843*^9, 
   3.732482493430601*^9}, {3.732483484696266*^9, 3.732483494009212*^9}, {
   3.732483651666356*^9, 3.732483683135902*^9}, {3.732487759046638*^9, 
   3.73248776154195*^9}, {3.7325551995173244`*^9, 3.7325552151867695`*^9}, 
   3.7325580036135063`*^9, {3.732564661705139*^9, 3.732564670341289*^9}, {
   3.7325651769084682`*^9, 3.732565185124406*^9}, {3.732565247468502*^9, 
   3.7325652667964563`*^9}, {3.732565508532868*^9, 3.732565509596507*^9}, {
   3.73257038604897*^9, 3.73257038784781*^9}, 3.732571668714395*^9, {
   3.73270098678039*^9, 3.73270098706778*^9}, 
   3.732701945168194*^9},ExpressionUUID->"6476e618-9beb-4b17-8959-\
10bf1757d37b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"solq1", " ", "=", " ", 
   RowBox[{"DSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Q", "'"}], "[", "\[Tau]", "]"}], " ", "\[Equal]", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "Alac"}], " ", 
          SubscriptBox["T", "air"]}], "-", 
         RowBox[{"\[Alpha]", " ", "A1", " ", 
          SubscriptBox["T", "fond"]}], " ", "+", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SubscriptBox["T", "init"], "-", 
            FractionBox[
             RowBox[{"Q", "[", "\[Tau]", "]"}], "C1"]}], ")"}], 
          RowBox[{"(", 
           RowBox[{"Alac", "+", 
            RowBox[{"\[Alpha]", " ", "A1"}]}], ")"}]}]}]}], ",", " ", 
       RowBox[{
        RowBox[{"Q", "[", "0", "]"}], " ", "\[Equal]", " ", "0"}]}], "}"}], 
     ",", " ", 
     RowBox[{"Q", "[", "\[Tau]", "]"}], ",", "\[Tau]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Q1", "[", 
    RowBox[{"\[Tau]_", ",", " ", "a_"}], "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Q", "[", "\[Tau]", "]"}], " ", "/.", " ", "solq1"}], " ", "/.", 
    " ", 
    RowBox[{"\[Alpha]", " ", "\[Rule]", " ", "a"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"solq2", " ", "=", " ", 
   RowBox[{"DSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Q", "'"}], "[", "\[Tau]", "]"}], " ", "\[Equal]", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "Alac"}], " ", 
          SubscriptBox["T", "air"]}], "-", 
         RowBox[{"\[Alpha]", " ", "A2", " ", 
          SubscriptBox["T", "fond"]}], " ", "+", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SubscriptBox["T", "init"], "-", 
            FractionBox[
             RowBox[{"Q", "[", "\[Tau]", "]"}], "C2"]}], ")"}], 
          RowBox[{"(", 
           RowBox[{"Alac", "+", 
            RowBox[{"\[Alpha]", " ", "A2"}]}], ")"}]}]}]}], ",", " ", 
       RowBox[{
        RowBox[{"Q", "[", "0", "]"}], " ", "\[Equal]", " ", "0"}]}], "}"}], 
     ",", " ", 
     RowBox[{"Q", "[", "\[Tau]", "]"}], ",", "\[Tau]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Q2", "[", 
    RowBox[{"\[Tau]_", ",", " ", "a_"}], "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Q", "[", "\[Tau]", "]"}], " ", "/.", " ", "solq2"}], " ", "/.", 
    " ", 
    RowBox[{"\[Alpha]", " ", "\[Rule]", " ", "a"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7324801132586393`*^9, 3.732480163202737*^9}, {
   3.732480648675475*^9, 3.7324807913808603`*^9}, {3.732480822461804*^9, 
   3.7324808525883493`*^9}, 3.7324808972611637`*^9, {3.732480968133569*^9, 
   3.732481003204982*^9}, {3.732481346502798*^9, 3.7324814565829697`*^9}, {
   3.732481542294064*^9, 3.732481710518855*^9}, {3.73248175234464*^9, 
   3.732481756998513*^9}, {3.732482341934484*^9, 3.732482362327203*^9}, {
   3.7324824264297323`*^9, 3.732482463399428*^9}, {3.732482504711339*^9, 
   3.732482521119055*^9}, {3.7324825750246696`*^9, 3.732482647759707*^9}, {
   3.7324827165362253`*^9, 3.73248272036648*^9}, {3.732482865711583*^9, 
   3.732482874112094*^9}, {3.732482922664604*^9, 3.7324829448714037`*^9}, {
   3.732483014857136*^9, 3.7324830203995237`*^9}, {3.732483050704015*^9, 
   3.7324830520628653`*^9}, {3.732483531457082*^9, 3.732483643236483*^9}, {
   3.73248369744269*^9, 3.732483699752798*^9}, {3.732484994163755*^9, 
   3.732485005746048*^9}, {3.732486620846352*^9, 3.732486624500194*^9}, {
   3.732551929001195*^9, 3.7325519771990056`*^9}, 3.7325529783819127`*^9, {
   3.7325652726760073`*^9, 3.732565276148876*^9}, 3.732565447382701*^9, {
   3.732565750896143*^9, 3.732565753990143*^9}, {3.732568316156741*^9, 
   3.732568357531644*^9}, {3.732568424461479*^9, 3.732568550143835*^9}, 
   3.732568657717703*^9, {3.7325687014866543`*^9, 3.732568738140353*^9}, {
   3.732570879738523*^9, 3.732570893570414*^9}, {3.7325709238409643`*^9, 
   3.732570934418742*^9}, {3.732570978971039*^9, 3.732571031506751*^9}, 
   3.732571097163965*^9, {3.732700693060817*^9, 3.73270070898805*^9}, {
   3.7327008677169847`*^9, 3.732700931812664*^9}, {3.7327011724778967`*^9, 
   3.7327011943316917`*^9}, {3.7327012278853903`*^9, 3.7327012422531*^9}, {
   3.732701290381257*^9, 
   3.7327012915333567`*^9}},ExpressionUUID->"490fb5ea-441d-4d88-8ce1-\
9cbe5d323240"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"T1", "[", 
   RowBox[{"t_", ",", " ", "a_"}], "]"}], " ", "=", " ", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    SubscriptBox["T", "init"], "-", 
    FractionBox[
     RowBox[{"Q1", "[", 
      RowBox[{"t", ",", "a"}], "]"}], "C1"]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T2", "[", 
   RowBox[{"t_", ",", " ", "a_"}], "]"}], " ", "=", " ", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    SubscriptBox["T", "init"], "-", 
    FractionBox[
     RowBox[{"Q2", "[", 
      RowBox[{"t", ",", "a"}], "]"}], "C2"]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.732485628723701*^9, 3.73248568323466*^9}, {
  3.732485974555949*^9, 3.732485974931242*^9}, {3.7324860264842377`*^9, 
  3.732486033314391*^9}, {3.732486325156145*^9, 3.732486340716222*^9}, {
  3.732487030709338*^9, 3.732487031589484*^9}, {3.732487619889255*^9, 
  3.732487629798195*^9}, {3.732487688119419*^9, 3.732487688815033*^9}, {
  3.732487774697287*^9, 3.7324877805592613`*^9}, {3.7325415659638186`*^9, 
  3.732541566073019*^9}, {3.732552126709546*^9, 3.732552130770155*^9}, {
  3.732565319014558*^9, 3.7325653246121187`*^9}, {3.732568369549473*^9, 
  3.7325683717085733`*^9}, {3.7325684441881857`*^9, 3.732568449083314*^9}, {
  3.732568616781865*^9, 3.7325686476525497`*^9}, {3.732568710031205*^9, 
  3.7325687169248123`*^9}, {3.73270071249424*^9, 
  3.732700714971753*^9}},ExpressionUUID->"935aba3a-2ec2-4537-b6ee-\
6ae758ba7ddf"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"281.15`", "\[VeryThinSpace]", "+", 
   FractionBox[
    RowBox[{
     RowBox[{"-", "19.013360739979444`"}], "+", 
     RowBox[{"19.013360739979444`", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "0.00011943189154293093`"}], "-", 
          RowBox[{"0.00012562943834732086`", " ", "a"}]}], ")"}], " ", 
        "t"}]]}]}], 
    RowBox[{"0.9506680369989723`", "\[VeryThinSpace]", "+", 
     RowBox[{"1.`", " ", "a"}]}]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.732487032527685*^9, {3.732487622529952*^9, 3.73248763429806*^9}, 
   3.732487689573493*^9, 3.732487734369728*^9, {3.7324877670866117`*^9, 
   3.732487781051125*^9}, 3.732541509299652*^9, 3.7325415686242247`*^9, {
   3.73254160949434*^9, 3.732541611764547*^9}, 3.732551937489117*^9, {
   3.732552134236063*^9, 3.732552136040167*^9}, 3.732552185253886*^9, 
   3.7325540160807533`*^9, 3.732555218404177*^9, {3.7325553148084283`*^9, 
   3.7325553323036804`*^9}, 3.732555373796986*^9, {3.732555627660862*^9, 
   3.7325556703645773`*^9}, {3.732555800361663*^9, 3.732555833994749*^9}, 
   3.732556158657606*^9, 3.732556237848009*^9, 3.7325563037953815`*^9, {
   3.7325563373008738`*^9, 3.7325564176402826`*^9}, {3.732556506610114*^9, 
   3.73255654464502*^9}, {3.732556585868931*^9, 3.732556632333059*^9}, {
   3.732556699415638*^9, 3.7325567291917195`*^9}, {3.732556769901226*^9, 
   3.732556794031098*^9}, 3.7325569794920053`*^9, {3.7325570873327017`*^9, 
   3.7325571100433636`*^9}, {3.73255718998578*^9, 3.7325571981710005`*^9}, 
   3.7325580146927366`*^9, 3.7325652797862873`*^9, 3.732565327619132*^9, {
   3.732565395680276*^9, 3.7325654030566196`*^9}, 3.73256546383111*^9, 
   3.732565520951489*^9, 3.73256565666398*^9, 3.732565724028736*^9, 
   3.7325657561429873`*^9, {3.7325683475599833`*^9, 3.7325683720893383`*^9}, {
   3.732568536860792*^9, 3.732568569726939*^9}, {3.7325686196291227`*^9, 
   3.732568661628118*^9}, {3.732568721761952*^9, 3.732568739887828*^9}, 
   3.732570303207643*^9, 3.7325703919479017`*^9, 3.7325704548069572`*^9, 
   3.732570494117776*^9, 3.732570529049522*^9, {3.732570639335002*^9, 
   3.732570647973152*^9}, {3.732570696099125*^9, 3.73257074548387*^9}, {
   3.732570776149424*^9, 3.732570845293047*^9}, {3.73257104521717*^9, 
   3.732571062282371*^9}, {3.732571099330339*^9, 3.732571127392653*^9}, {
   3.7325716731175003`*^9, 3.732571678948304*^9}, {3.7325717141523933`*^9, 
   3.73257175106882*^9}, 3.732571818181591*^9, {3.732572144605991*^9, 
   3.732572200967709*^9}, {3.732572343522987*^9, 3.7325723540625343`*^9}, 
   3.7325725608610687`*^9, {3.732572612102536*^9, 3.732572638565859*^9}, {
   3.7325726778176813`*^9, 3.732572768695868*^9}, 3.7325728657838163`*^9, 
   3.732572960924868*^9, {3.732573253227028*^9, 3.7325732832156754`*^9}, {
   3.732573336193273*^9, 3.732573362584557*^9}, 3.732700387542019*^9, 
   3.732700727002553*^9, 3.732700934769553*^9, 3.732700988851523*^9, {
   3.732701294503965*^9, 3.732701340484618*^9}, 3.732701685346087*^9, 
   3.7327019483695498`*^9},ExpressionUUID->"ec1ee200-f3df-43d2-a76e-\
2e1a021b290e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"281.15`", "\[VeryThinSpace]", "+", 
   FractionBox[
    RowBox[{
     RowBox[{"-", "16.910420475319924`"}], "+", 
     RowBox[{"16.910420475319924`", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "0.000034132841328413286`"}], "-", 
          RowBox[{"0.0000403690036900369`", " ", "a"}]}], ")"}], " ", 
        "t"}]]}]}], 
    RowBox[{"0.8455210237659964`", "\[VeryThinSpace]", "+", 
     RowBox[{"1.`", " ", "a"}]}]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.732487032527685*^9, {3.732487622529952*^9, 3.73248763429806*^9}, 
   3.732487689573493*^9, 3.732487734369728*^9, {3.7324877670866117`*^9, 
   3.732487781051125*^9}, 3.732541509299652*^9, 3.7325415686242247`*^9, {
   3.73254160949434*^9, 3.732541611764547*^9}, 3.732551937489117*^9, {
   3.732552134236063*^9, 3.732552136040167*^9}, 3.732552185253886*^9, 
   3.7325540160807533`*^9, 3.732555218404177*^9, {3.7325553148084283`*^9, 
   3.7325553323036804`*^9}, 3.732555373796986*^9, {3.732555627660862*^9, 
   3.7325556703645773`*^9}, {3.732555800361663*^9, 3.732555833994749*^9}, 
   3.732556158657606*^9, 3.732556237848009*^9, 3.7325563037953815`*^9, {
   3.7325563373008738`*^9, 3.7325564176402826`*^9}, {3.732556506610114*^9, 
   3.73255654464502*^9}, {3.732556585868931*^9, 3.732556632333059*^9}, {
   3.732556699415638*^9, 3.7325567291917195`*^9}, {3.732556769901226*^9, 
   3.732556794031098*^9}, 3.7325569794920053`*^9, {3.7325570873327017`*^9, 
   3.7325571100433636`*^9}, {3.73255718998578*^9, 3.7325571981710005`*^9}, 
   3.7325580146927366`*^9, 3.7325652797862873`*^9, 3.732565327619132*^9, {
   3.732565395680276*^9, 3.7325654030566196`*^9}, 3.73256546383111*^9, 
   3.732565520951489*^9, 3.73256565666398*^9, 3.732565724028736*^9, 
   3.7325657561429873`*^9, {3.7325683475599833`*^9, 3.7325683720893383`*^9}, {
   3.732568536860792*^9, 3.732568569726939*^9}, {3.7325686196291227`*^9, 
   3.732568661628118*^9}, {3.732568721761952*^9, 3.732568739887828*^9}, 
   3.732570303207643*^9, 3.7325703919479017`*^9, 3.7325704548069572`*^9, 
   3.732570494117776*^9, 3.732570529049522*^9, {3.732570639335002*^9, 
   3.732570647973152*^9}, {3.732570696099125*^9, 3.73257074548387*^9}, {
   3.732570776149424*^9, 3.732570845293047*^9}, {3.73257104521717*^9, 
   3.732571062282371*^9}, {3.732571099330339*^9, 3.732571127392653*^9}, {
   3.7325716731175003`*^9, 3.732571678948304*^9}, {3.7325717141523933`*^9, 
   3.73257175106882*^9}, 3.732571818181591*^9, {3.732572144605991*^9, 
   3.732572200967709*^9}, {3.732572343522987*^9, 3.7325723540625343`*^9}, 
   3.7325725608610687`*^9, {3.732572612102536*^9, 3.732572638565859*^9}, {
   3.7325726778176813`*^9, 3.732572768695868*^9}, 3.7325728657838163`*^9, 
   3.732572960924868*^9, {3.732573253227028*^9, 3.7325732832156754`*^9}, {
   3.732573336193273*^9, 3.732573362584557*^9}, 3.732700387542019*^9, 
   3.732700727002553*^9, 3.732700934769553*^9, 3.732700988851523*^9, {
   3.732701294503965*^9, 3.732701340484618*^9}, 3.732701685346087*^9, 
   3.73270194839005*^9},ExpressionUUID->"f4ca0e0f-e3e0-4308-bf20-\
986079401625"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"target", " ", "=", " ", 
   SubscriptBox["T", "cible"]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"findEnd", "[", 
    RowBox[{"f_", ",", " ", "a_"}], "]"}], " ", "=", " ", 
   RowBox[{"t", " ", "/.", " ", 
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"t", ",", " ", "a"}], "]"}], " ", "\[Equal]", "  ", 
        "target"}], ",", "t"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.732541615193755*^9, 3.7325416373998146`*^9}, {
   3.732552037593543*^9, 3.732552037946744*^9}, {3.732552158737623*^9, 
   3.732552159276825*^9}, {3.7325521970831127`*^9, 3.732552197865014*^9}, {
   3.7325523015167503`*^9, 3.7325523018699512`*^9}, {3.7325530456134872`*^9, 
   3.732553142476942*^9}, {3.732553173582625*^9, 3.732553175549629*^9}, {
   3.732553496399641*^9, 3.732553569062228*^9}, {3.7325553120888205`*^9, 
   3.7325553290370717`*^9}, {3.732555370800177*^9, 3.7325554133884935`*^9}, {
   3.732555603969593*^9, 3.7325556672063675`*^9}, {3.732555819183111*^9, 
   3.7325558308473406`*^9}, {3.7325561278657255`*^9, 
   3.7325563008733745`*^9}, {3.7325563343894663`*^9, 
   3.7325564145806727`*^9}, {3.7325565038929033`*^9, 
   3.7325566297266517`*^9}, {3.732556670131559*^9, 3.7325567555419893`*^9}, 
   3.7325567915956917`*^9, {3.7325570817462845`*^9, 3.732557107460354*^9}, 
   3.7325654011588917`*^9, {3.732570407865902*^9, 3.7325704418968267`*^9}, {
   3.732570475929891*^9, 3.7325704761610126`*^9}, {3.732570516986508*^9, 
   3.732570526656785*^9}, {3.732570636482254*^9, 3.7325706438738823`*^9}, {
   3.732570693017721*^9, 3.7325707436335363`*^9}, {3.7325707738020897`*^9, 
   3.7325708434026337`*^9}, {3.732571037620131*^9, 3.732571041266371*^9}, {
   3.732571104729993*^9, 3.7325711086122217`*^9}, 3.732571676331028*^9, {
   3.732571711524919*^9, 3.732571749340588*^9}, {3.73257181503858*^9, 
   3.732571815483842*^9}, {3.7325721772688932`*^9, 3.732572199036894*^9}, {
   3.732572339735091*^9, 
   3.732572374911008*^9}},ExpressionUUID->"01e11bc4-d9ce-48ea-85ca-\
4f3fa631e97f"],

Cell[BoxData[
 TemplateBox[{
  "Solve","ifun",
   "\"Inverse functions are being used by \
\\!\\(\\*RowBox[{\\\"Solve\\\"}]\\), so some solutions may not be found; use \
Reduce for complete solution information.\"",2,249,63,21262461884997885976,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.732553270737074*^9, {3.7325535007914515`*^9, 3.7325535694566298`*^9}, 
   3.732554016471362*^9, 3.732555218419777*^9, {3.7325553148240285`*^9, 
   3.7325553323192806`*^9}, {3.732555373812586*^9, 3.7325554139660954`*^9}, {
   3.732555605961198*^9, 3.7325556703801775`*^9}, {3.732555800377263*^9, 
   3.7325558340113487`*^9}, 3.7325561586732063`*^9, {3.732556227769184*^9, 
   3.7325562378636093`*^9}, {3.7325562765603113`*^9, 
   3.7325563038385825`*^9}, {3.732556337378874*^9, 3.732556417717684*^9}, {
   3.732556507187716*^9, 3.73255654472302*^9}, {3.7325565859479313`*^9, 
   3.7325566323954587`*^9}, {3.732556699432238*^9, 3.7325567292385197`*^9}, {
   3.7325567699802265`*^9, 3.732556794078898*^9}, 3.732556979571006*^9, {
   3.7325570874107027`*^9, 3.7325571101213636`*^9}, {3.7325571900481796`*^9, 
   3.7325571982344007`*^9}, 3.7325580147395372`*^9, 3.732565279850822*^9, 
   3.732565327659783*^9, {3.7325653957502613`*^9, 3.732565403098857*^9}, 
   3.732565463875382*^9, 3.7325655209902983`*^9, 3.732565659016202*^9, 
   3.73256836073246*^9, 3.732568569765194*^9, {3.732568625073173*^9, 
   3.732568661685975*^9}, {3.732568721819024*^9, 3.732568739946596*^9}, 
   3.7325703032592773`*^9, 3.732570391994684*^9, {3.732570427876113*^9, 
   3.732570454850281*^9}, 3.732570494173855*^9, 3.732570529100247*^9, {
   3.732570639390815*^9, 3.732570648023559*^9}, {3.732570696151141*^9, 
   3.732570745525895*^9}, {3.732570776191708*^9, 3.732570845334333*^9}, {
   3.732571045287528*^9, 3.7325710623339453`*^9}, {3.732571099383436*^9, 
   3.732571127455264*^9}, {3.7325716731696672`*^9, 3.732571679001542*^9}, {
   3.732571714198675*^9, 3.732571751114409*^9}, 3.732571818227139*^9, {
   3.732572144651116*^9, 3.7325722010154037`*^9}, {3.7325723404293213`*^9, 
   3.732572354109832*^9}, 3.73257256091469*^9, {3.7325726121559353`*^9, 
   3.732572638619516*^9}, {3.732572677871582*^9, 3.732572768750819*^9}, 
   3.732572865839838*^9, 3.7325729609737864`*^9, {3.732573253280279*^9, 
   3.732573283262467*^9}, {3.732573336238204*^9, 3.732573362637849*^9}, 
   3.732700387577911*^9, 3.732700727059166*^9, 3.73270093482269*^9, 
   3.732700988906096*^9, {3.73270129455931*^9, 3.732701340548497*^9}, 
   3.732701948424906*^9},ExpressionUUID->"76774104-6ca6-4d1b-815e-\
eb30d0e629de"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"tFin5", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"findEnd", "[", 
     RowBox[{"T1", ",", " ", "0.5"}], "]"}], ",", 
    RowBox[{"findEnd", "[", 
     RowBox[{"T2", ",", " ", "0.5"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"tFin2", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"findEnd", "[", 
     RowBox[{"T1", ",", " ", "2"}], "]"}], ",", 
    RowBox[{"findEnd", "[", 
     RowBox[{"T2", ",", " ", "2"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"tFin4", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"findEnd", "[", 
     RowBox[{"T1", ",", " ", "3"}], "]"}], ",", 
    RowBox[{"findEnd", "[", 
     RowBox[{"T2", ",", " ", "3"}], "]"}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.7325566513641095`*^9, 3.7325566971488323`*^9}, {
  3.7325567348095355`*^9, 3.7325567797868547`*^9}, {3.7325571492402706`*^9, 
  3.7325571844583654`*^9}, {3.732557661035796*^9, 3.7325576795600424`*^9}, {
  3.732565675006309*^9, 3.7325656815814133`*^9}, {3.732570481353238*^9, 
  3.732570484360588*^9}, {3.732572383872302*^9, 3.7325724157880583`*^9}, {
  3.7325726732629547`*^9, 3.732572674869351*^9}, {3.732572714174472*^9, 
  3.732572766954907*^9}, {3.732572842854496*^9, 3.732572856479554*^9}, {
  3.7327013049743137`*^9, 
  3.73270131737952*^9}},ExpressionUUID->"1420b140-5bcb-4045-9516-\
20a6d30c3e35"],

Cell[BoxData[
 TemplateBox[{
  "InverseFunction","ifun",
   "\"Inverse functions are being used. Values may be lost for multivalued \
inverses.\"",2,250,64,21262461884997885976,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.732700387618207*^9, 3.7327007270937853`*^9, 3.732700934856017*^9, 
   3.732700988933209*^9, {3.732701294588024*^9, 3.732701340579213*^9}, 
   3.732701948452507*^9},ExpressionUUID->"c7ca1a42-065e-464a-a9b1-\
e53f5fcd85cc"],

Cell[BoxData[
 TemplateBox[{
  "InverseFunction","ifun",
   "\"Inverse functions are being used. Values may be lost for multivalued \
inverses.\"",2,250,65,21262461884997885976,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.732700387618207*^9, 3.7327007270937853`*^9, 3.732700934856017*^9, 
   3.732700988933209*^9, {3.732701294588024*^9, 3.732701340579213*^9}, 
   3.732701948462524*^9},ExpressionUUID->"b58e8a2d-8669-4c14-b56c-\
f713cc2baf45"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2009.9924075570664`", ",", "7096.425954944189`"}], "}"}]], "Output",\

 CellChangeTimes->{{3.7325656818746367`*^9, 3.7325656954705133`*^9}, 
   3.732568360860076*^9, 3.7325685697904654`*^9, {3.732568625095923*^9, 
   3.732568661708888*^9}, {3.7325687218522263`*^9, 3.732568739973626*^9}, 
   3.732570303281678*^9, 3.732570392058751*^9, {3.7325704319304857`*^9, 
   3.732570454915174*^9}, 3.7325704941774693`*^9, 3.732570529163006*^9, {
   3.732570639462501*^9, 3.732570648098207*^9}, {3.7325706962151003`*^9, 
   3.732570745589117*^9}, {3.7325707762543373`*^9, 3.732570845396542*^9}, {
   3.732571045311352*^9, 3.732571062397415*^9}, {3.732571099448597*^9, 
   3.732571127477928*^9}, {3.732571673232954*^9, 3.7325716790652514`*^9}, {
   3.7325717142636967`*^9, 3.732571751189632*^9}, 3.7325718183015623`*^9, {
   3.732572144715351*^9, 3.7325722010820704`*^9}, {3.732572343632629*^9, 
   3.732572354173605*^9}, 3.732572385849246*^9, 3.732572560983371*^9, {
   3.732572612222802*^9, 3.732572638684372*^9}, {3.7325726779355583`*^9, 
   3.7325727688166924`*^9}, 3.7325728659048967`*^9, 3.732572961039879*^9, {
   3.732573253345975*^9, 3.73257328333251*^9}, {3.732573336311069*^9, 
   3.732573362702201*^9}, 3.73270038766229*^9, 3.732700727130229*^9, 
   3.732700934891506*^9, 3.732700988943748*^9, {3.732701294598568*^9, 
   3.7327013405898952`*^9}, 
   3.7327019484631777`*^9},ExpressionUUID->"2a589bca-d3c6-4cc9-81cf-\
eade4f8dfb14"],

Cell[BoxData[
 TemplateBox[{
  "InverseFunction","ifun",
   "\"Inverse functions are being used. Values may be lost for multivalued \
inverses.\"",2,251,66,21262461884997885976,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.732700387618207*^9, 3.7327007270937853`*^9, 3.732700934856017*^9, 
   3.732700988933209*^9, {3.732701294588024*^9, 3.732701340579213*^9}, 
   3.732701948468317*^9},ExpressionUUID->"76c4075f-60f0-4dfe-8b52-\
e75b8c3ddcd1"],

Cell[BoxData[
 TemplateBox[{
  "InverseFunction","ifun",
   "\"Inverse functions are being used. Values may be lost for multivalued \
inverses.\"",2,251,67,21262461884997885976,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.732700387618207*^9, 3.7327007270937853`*^9, 3.732700934856017*^9, 
   3.732700988933209*^9, {3.732701294588024*^9, 3.732701340579213*^9}, 
   3.732701948473256*^9},ExpressionUUID->"b1993425-389b-4eca-84ff-\
248dad593431"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2637.765451216496`", ",", "9823.125457543765`"}], "}"}]], "Output",\

 CellChangeTimes->{{3.7325656818746367`*^9, 3.7325656954705133`*^9}, 
   3.732568360860076*^9, 3.7325685697904654`*^9, {3.732568625095923*^9, 
   3.732568661708888*^9}, {3.7325687218522263`*^9, 3.732568739973626*^9}, 
   3.732570303281678*^9, 3.732570392058751*^9, {3.7325704319304857`*^9, 
   3.732570454915174*^9}, 3.7325704941774693`*^9, 3.732570529163006*^9, {
   3.732570639462501*^9, 3.732570648098207*^9}, {3.7325706962151003`*^9, 
   3.732570745589117*^9}, {3.7325707762543373`*^9, 3.732570845396542*^9}, {
   3.732571045311352*^9, 3.732571062397415*^9}, {3.732571099448597*^9, 
   3.732571127477928*^9}, {3.732571673232954*^9, 3.7325716790652514`*^9}, {
   3.7325717142636967`*^9, 3.732571751189632*^9}, 3.7325718183015623`*^9, {
   3.732572144715351*^9, 3.7325722010820704`*^9}, {3.732572343632629*^9, 
   3.732572354173605*^9}, 3.732572385849246*^9, 3.732572560983371*^9, {
   3.732572612222802*^9, 3.732572638684372*^9}, {3.7325726779355583`*^9, 
   3.7325727688166924`*^9}, 3.7325728659048967`*^9, 3.732572961039879*^9, {
   3.732573253345975*^9, 3.73257328333251*^9}, {3.732573336311069*^9, 
   3.732573362702201*^9}, 3.73270038766229*^9, 3.732700727130229*^9, 
   3.732700934891506*^9, 3.732700988943748*^9, {3.732701294598568*^9, 
   3.7327013405898952`*^9}, 
   3.732701948473884*^9},ExpressionUUID->"b4dd0b46-bbff-40e5-8e05-\
abf20d5b5667"],

Cell[BoxData[
 TemplateBox[{
  "InverseFunction","ifun",
   "\"Inverse functions are being used. Values may be lost for multivalued \
inverses.\"",2,252,68,21262461884997885976,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.732700387618207*^9, 3.7327007270937853`*^9, 3.732700934856017*^9, 
   3.732700988933209*^9, {3.732701294588024*^9, 3.732701340579213*^9}, 
   3.732701948479021*^9},ExpressionUUID->"784cfec9-4a00-4d14-90aa-\
6e2cfe6ad3e8"],

Cell[BoxData[
 TemplateBox[{
  "InverseFunction","ifun",
   "\"Inverse functions are being used. Values may be lost for multivalued \
inverses.\"",2,252,69,21262461884997885976,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.732700387618207*^9, 3.7327007270937853`*^9, 3.732700934856017*^9, 
   3.732700988933209*^9, {3.732701294588024*^9, 3.732701340579213*^9}, 
   3.7327019484839897`*^9},ExpressionUUID->"0fc24cda-fe3e-49f9-b9fb-\
5293b6ee34ce"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3633.891640774872`", ",", "15816.708766582995`"}], "}"}]], "Output",\

 CellChangeTimes->{{3.7325656818746367`*^9, 3.7325656954705133`*^9}, 
   3.732568360860076*^9, 3.7325685697904654`*^9, {3.732568625095923*^9, 
   3.732568661708888*^9}, {3.7325687218522263`*^9, 3.732568739973626*^9}, 
   3.732570303281678*^9, 3.732570392058751*^9, {3.7325704319304857`*^9, 
   3.732570454915174*^9}, 3.7325704941774693`*^9, 3.732570529163006*^9, {
   3.732570639462501*^9, 3.732570648098207*^9}, {3.7325706962151003`*^9, 
   3.732570745589117*^9}, {3.7325707762543373`*^9, 3.732570845396542*^9}, {
   3.732571045311352*^9, 3.732571062397415*^9}, {3.732571099448597*^9, 
   3.732571127477928*^9}, {3.732571673232954*^9, 3.7325716790652514`*^9}, {
   3.7325717142636967`*^9, 3.732571751189632*^9}, 3.7325718183015623`*^9, {
   3.732572144715351*^9, 3.7325722010820704`*^9}, {3.732572343632629*^9, 
   3.732572354173605*^9}, 3.732572385849246*^9, 3.732572560983371*^9, {
   3.732572612222802*^9, 3.732572638684372*^9}, {3.7325726779355583`*^9, 
   3.7325727688166924`*^9}, 3.7325728659048967`*^9, 3.732572961039879*^9, {
   3.732573253345975*^9, 3.73257328333251*^9}, {3.732573336311069*^9, 
   3.732573362702201*^9}, 3.73270038766229*^9, 3.732700727130229*^9, 
   3.732700934891506*^9, 3.732700988943748*^9, {3.732701294598568*^9, 
   3.7327013405898952`*^9}, 
   3.732701948484612*^9},ExpressionUUID->"805b5e5a-3167-491b-a097-\
79ba63916b25"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"g15", " ", "=", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"T1", "[", 
      RowBox[{"t", ",", "0.5"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", 
       RowBox[{"tFin5", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "\[Rule]", " ", "Pink"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g12", " ", "=", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"T1", "[", 
      RowBox[{"t", ",", "2"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", 
       RowBox[{"tFin2", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "\[Rule]", " ", "Red"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g14", " ", "=", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"T1", "[", 
      RowBox[{"t", ",", "3"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", 
       RowBox[{"tFin4", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "\[Rule]", " ", 
      RowBox[{"Darker", "[", "Red", "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g25", " ", "=", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"T2", "[", 
      RowBox[{"t", ",", "0.5"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", 
       RowBox[{"tFin5", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "\[Rule]", " ", "Cyan"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g22", " ", "=", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"T2", "[", 
      RowBox[{"t", ",", "2"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", 
       RowBox[{"tFin2", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "\[Rule]", " ", 
      RowBox[{"Darker", "[", "Cyan", "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g24", " ", "=", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"T2", "[", 
      RowBox[{"t", ",", "3"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", 
       RowBox[{"tFin4", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "\[Rule]", " ", 
      RowBox[{"Darker", "[", 
       RowBox[{"Darker", "[", "Cyan", "]"}], "]"}]}], ",", " ", 
     RowBox[{"AxesLabel", " ", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[Tau]", " ", "Temps"}], ",", 
        RowBox[{"K", " ", "Temp\[EAcute]rature"}]}], "}"}]}], ",", " ", 
     RowBox[{"PlotLegends", " ", "\[Rule]", " ", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"LineLegend", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Pink", ",", "Red", ",", 
            RowBox[{"Darker", "[", "Red", "]"}], ",", "Cyan", ",", 
            RowBox[{"Darker", "[", "Cyan", "]"}], ",", 
            RowBox[{"Darker", "[", 
             RowBox[{"Darker", "[", "Cyan", "]"}], "]"}]}], "}"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{
           "\"\<\!\(\*SubscriptBox[\(T\), \(1\)]\) (\[Alpha] = 0.5)\>\"", 
            ",", "\"\<\!\(\*SubscriptBox[\(T\), \(1\)]\) (\[Alpha] = 3)\>\"", 
            ",", "\"\<\!\(\*SubscriptBox[\(T\), \(1\)]\) (\[Alpha] = 4)\>\"", 
            ",", " ", 
            "\"\<\!\(\*SubscriptBox[\(T\), \(2\)]\) (\[Alpha] = 0.5)\>\"", 
            ",", "\"\<\!\(\*SubscriptBox[\(T\), \(2\)]\) (\[Alpha] = 3)\>\"", 
            ",", "\"\<\!\(\*SubscriptBox[\(T\), \(2\)]\) (\[Alpha] = \
4)\>\""}], "}"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.8", ",", "0.8"}], "}"}]}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"g24", ",", "g15", ",", "g12", ",", "g14", ",", "g25", ",", "g22"}],
   "]"}]}], "Input",
 CellChangeTimes->{{3.732483709081099*^9, 3.7324838165695553`*^9}, {
   3.7324843645212803`*^9, 3.732484391849584*^9}, {3.732484469810063*^9, 
   3.732484502816453*^9}, {3.7324846140901623`*^9, 3.732484637793502*^9}, {
   3.732484733746497*^9, 3.732484753433592*^9}, {3.7324853976192427`*^9, 
   3.732485431130589*^9}, 3.732485537292952*^9, {3.732552099511384*^9, 
   3.7325521039158945`*^9}, {3.7325522140904493`*^9, 
   3.7325522158146534`*^9}, {3.7325523436859493`*^9, 
   3.7325523447555513`*^9}, {3.732553077592971*^9, 3.7325530866223946`*^9}, {
   3.7325531186446776`*^9, 3.732553147192353*^9}, {3.7325531821534452`*^9, 
   3.7325532186505394`*^9}, {3.7325532588592415`*^9, 3.732553284525313*^9}, {
   3.7325534466827106`*^9, 3.732553464542156*^9}, {3.732553619889165*^9, 
   3.7325536561526594`*^9}, 3.7325561317805386`*^9, {3.7325562855057354`*^9, 
   3.7325563168852186`*^9}, {3.7325567199382954`*^9, 3.732556750607777*^9}, {
   3.732557163177307*^9, 3.7325571952611923`*^9}, {3.732557296805967*^9, 
   3.7325573429860916`*^9}, {3.7325574049556775`*^9, 
   3.7325574454991875`*^9}, {3.73255749572012*^9, 3.7325574978271284`*^9}, {
   3.732570488729774*^9, 3.732570490711815*^9}, {3.7325719035007563`*^9, 
   3.732571974940414*^9}, {3.7325720212136307`*^9, 3.732572054420392*^9}, {
   3.732572095646803*^9, 3.732572159468564*^9}, {3.7325724366626062`*^9, 
   3.732572556740707*^9}, {3.732572605365744*^9, 3.732572668189129*^9}, {
   3.732572701702136*^9, 3.7325727626540413`*^9}, {3.732572837806213*^9, 
   3.732572863959837*^9}, {3.732572944001121*^9, 3.732572958318932*^9}, {
   3.732573006608923*^9, 3.7325730768157473`*^9}, {3.732573131656741*^9, 
   3.732573360728753*^9}, {3.732701333383745*^9, 
   3.7327013386299477`*^9}},ExpressionUUID->"88ea37b8-1865-4fc2-8988-\
ad85d358b77a"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{{}, {}, 
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[4, 9], 0.4444444444444444], 
          NCache[
           Rational[4, 9], 0.4444444444444444]], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwV0Hs01HkYBnCnhK2IZaRCVovF2i7MSGk8M6mjm21LpZnNZUzG2hhfNqkO
g9pSconWybUpcjmtIrU1Y0hEBv2Ojgm1GoWmslE221Ha2u/+8Z73fP56nvf9
SiTdtneGnp7eFjr/b1d2heioE9tH5eMaHp5D4BU6fe+qxBz2Jay+QOq/Cv9O
SpMswYiuaOMmal+v6F1xEndMuCd7LaN+Y/h7S4RkLUYq0zkfThOsf91xMEyy
HTbX11VnUk+IHmlCJGFwsFafUGQT3LUWpQZL4hAqjRu2zCJ4Kfrc77fyKDJN
Uiyq0wk+1i8ciJ2diQtuC0UX0wjOFM9svPggFyffs1q7fyVoO60zPm6Sj+JT
ismRVAKuUUzPsvFiuO1mr9iSTFC1IK7LqfA8bAxMuecTCZQJot6hFWUg9yvU
Sw4TjFs5LJpRUg7lBjvT8QQCqbl2ULimCuL3q3PK4wksvo8cXFBzCVe7O0rk
vxD4aFyOHbG8jAlfboMqluDxw5je3MAaWEdLv1PHELiOsg3PZtXCr9e2y1hK
IHd6d0Dx5Cqmj89v9o0i6D+xVVXjeg3Th2uaCn4muHDKwlYQch2bpAev2UUS
5Kp6btld+QP7FKvLCiIIWBkfk/Kf34CTy+sISAgaT9olLV2lwJGZBxV/7qV5
1dqthceUENuf888SEzjHGPAUqnoc0P/kFxFG4B/iTCbnNqCfrWe2UkQwa+J6
49P1jeAYK2e4hBLIygcGyw7dguFbfr1bCEG2r0zOFzfBe6hgp3MwgYtB6+Ac
vdvQmqg9+UEEu4KMbg1X3kZvQrxRwB4CXbtVWrl/M95OnTOK/5H2m6kN5r9s
Rl+qTr9WSPs8kPe9ym5Bf+y4+pmA/iveKijG7Q7YjkzYcuq3LnsYbdsdbOUt
epS2m6Bo/zmtMKoV9z03ah4FEmRm5/1ba9QG3rP2EFCb89NVlrVt4MY+czi/
i+Bpi8fJAP+7+DAW12lObRZ4iZf44i7ydIqmrJ0EmtTF+dey2rGErUoypH6S
6Pf5jqsajZOsjMwd9P550lkjGjW8l3u8MaNOrhP9M3aoAzze7a7iAIIOpzmT
3axOPJanKjnUFStqc5obOjF0cTyqazvBPeO5yBB0Qb/hplk09Y5p9z7+ZBfm
VOlGWdQxst0mhoX34DP1cVS5jfbpcQ8o4zD4VBTkGEmd71zkJvRiMPfmkbYI
6iCZvuGX3gyC6ybDJdQvXB4oZDzqL5SVYurplPjFws0M0n7qXhpMbb9MMWom
YtBZb7M5gFp6ipsiy2DgGalWcak9hsoFnGwG7202ha+hnvKc5zGWw8Ct2tLU
mzp1eFAnOMtgjW262Is6b1XKZk4pg4GM56Ye1KoXLfPHbjKQtoYccKZO4X47
UVrPQN6U4PAN9fozZzoEjQxmFzzscaTu9tmb2N7C4Erl/uVfUw/nGQyXMgxs
klhvbKkrX0WrBPcZaOpi5TbU+/h9v5lpGERttPrBmvrdWIWf7CGDfqF33QLq
+rWm9pwBBok3lGIr6uT8hOlXWgZV7BTL+dTrXj/RlD5lwLRltbOoZ6/bcFkw
wiBUqDtkQf0f7jNBVg==
          "]]},
        Annotation[#, "Charting`Private`Tag$7463#1"]& ]}, {}, {}}, {{{}, {}, 
       TagBox[
        {RGBColor[1, 0.5, 0.5], AbsoluteThickness[1.6], Opacity[1.], 
         LineBox[CompressedData["
1:eJwV0H081HcAB3AdJlNJSbOSWlxRu5QhbfEpOtdGNR3ydNeJ8zAPfYVFj9ed
SMiz0rlfvBC31rBadXSKhPU0q5RWr0uOXtXyykPLU7Pv/vi8Pq/3f5/XZ0lI
nHcYS0dHx4vm/47WzF1RKdF3nW/uKRbnEVj+kFEtVPW6/hgaKNhJ/cEUlV+p
hl1HzIp9A6h7X5UstVTpwuZcvscWan9+e4ipai7Ue8pWOFIXGApZxqqlUPvP
mtSnXhNq6z1DZQ92gZW6MpdAYjJ7/FOVG+alTNzsyyGQDlaIYrP50GS6vPY4
QeBSajIelyHA/ldCUXsWgbAxYfoy21DUK1tMtmcS3DlfZ8FLjkTHoMei6xkE
l450ZV6MiQXv/K8dnscIzn7Zf8S2n2BdhGRrYxqBtm9CMJiegOn9nSsdjxJo
svUjBP8m4XiHwchtGcFq1YdEbXUymCjVSp6UYEPXs9rZ7P1oTAoY0kgINqoF
RheKDsLVMcVHcpjAyzTUYa3iMC6+FKsMDhE8vp63L/KJBLxHQSzlAYLsWgf3
Zaul2PSsrXn1foL1+lXyMxIZhobXrW9JIfjOO8copiEVTV3N7+KSCWTPByZb
jdNgdq1DydpLYBHephfvlQ6XmFJubRJBD8f0hLLyGH7qrQh0TyQoDeLUKD5k
ILxH+6BnD8GVI83dfWsyMbFAfPxUPIHO698zr6RnoaBL4L6WEFRt9vJ93paN
stdz+9/FEZSn3fUT6eRgmrB/Y30sgcHx2tbPlDmYnOBZB8YQyDPuqZN5uWDb
jvpYRBPcVC4fWzySi1WOrL1tUQR/H4iYqJTnYXfqJ3EpkfQfr770B875CDZ6
as6NIOCsl/tt1uZjon6207iYYLNNTl24tAAvtjZdvhlGIGqPur/LshCGO2t2
nw4lmJV+yLGqvRA9m2zN/HcRvHHrtMoTF2HMnn2CE0IQvDiYf8OkGDfCpge+
3UkwNWptfKauGGNPpT+3COkfsoe5/ltOwjpcNVAmIOi0a/LxHz2Ja21TY5HB
BA7dfRWs4lPIE4ineEF0XznXYWhjCRY6ddnNCSRYuig7q+lNCXT7EyN6/Ql4
RXOI47HTKF9yaeatHQS6qzoLh+3l8LN245f6Ebxtub0p4L4cojPca6m+BA+M
frmqiCtF76BZeaIPwbaEW0k25gq8yuIUbuMTTD62agi+pMDdlRqbDdsJoqeN
WC1WKcBKF8R/Q/3UpiX7RaMC6ia9BifqqymikPBmBf5oavXkUB9cqDAkdxTw
0ZjHL6CeEs7fIetVYFBqeOO9NwHrpeF7pTEDvaqPMiV1vHG3IGYOg8ts3z8r
qV84VbevmsdAN+ihZRl1czpXfuFzBiKNR0MxtdRW6qa2ZrCL/XFYRq0XO5nb
+TWDGsXZaCF1QtGtiXwXBmH3oxoDqLXqkjDfDQzuVfNn+FK3Gjs7/8VlUGcn
P+dJfbQu8bn2ewba3PEBZ+p/ut2/Pctn4FIz5OpALWaZXoj0Y+DjZ5JrR83d
Xp82EMSgKb7Zfhn1b/skg7VCBief8VO/oGZXbAvcE8LA4cnMRxbURbctWx3C
GASEv11uTm3wfoAzGs6gXTqcYkr9H2j5OfA=
          "]]},
        Annotation[#, "Charting`Private`Tag$7256#1"]& ]}, {}, {}}, {{{}, {}, 
       TagBox[
        {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
         LineBox[CompressedData["
1:eJwV0Xk0FHgAB3Cl1WGSSsKWDisyPbxVajpe3xyzarPKUYyJhmYci/yinGkc
E2Ed07hz/561Kq0eJQmbSlGSbdjyVptxlu7dDq/N/vaP7/u+z1/fP76rfA47
i2eqqak5svzfWxvmVFnxONsNhmwlEjlBitXnC82qie2m+x1jvZgjxhTbklSf
trs7vZXvYw7ZIZrlr5oLrwKt63zmwJCOMQ+VPr7iZ5qYMI8nRT9yVq1FuaJq
wXg2gYm2q7OTigfb7kcugcy3lG0Zjqqd0J64+ktoFsG2uIFsjSkBXv2tE+eZ
QSBZMjOEO+8QZvOWycPSCYQ1Xb7BxwJxp7PBrSSVYHGd+hqNy6HYaGTmdjaF
wP4dp2nvhzAY/iPuHzpJ8JTv1PH98Qho++3++G8SwUPeZHPv22jkKslFbiKB
zunwXuW6OHDDdR3j4wmefCn81bZPit5rQu3mEwQCvzfJgsgE1N776L48jiB+
xdHfNy5KQl9jRWJGLMGBgzmek90ytFgqbEajCbxdz74bDE6GjN9u5RNFoPvg
wO1qi1M4k+A6djOCIKp420LeRCq8EoYDeccI1JcvDpwtS0fuuPZwdzjBDmPZ
9DnbDKiL+Icdwwiq/pqkWcOZMLy0584kIRDJI9uNH2bB8NPG746FEtgJs0NG
67JhwVMz0jpMcHWarrollePyTfGNG8EE6WMaYQtFpyEwzbkiCSJ4Xe17N+Zb
BR7nqfmv+ZHAbFG/951pBaxODQreBhC0tuZnJwzmwDeT01TjTzDGd+sS1OZi
33Sixgk/goBFBytLMvNQqOFTDQnBb7L4hptB+UjrcJJqiQnO9xbf19xSgLb+
GWnvfQne+c5JuWZQiOTUTy/u+hDc7Q52yHheCNenQ6XNIoKYpxM2No1F4HTS
1ksHCWSb6gdEuWfg6lS+psybYHVAVGyZuBjdL6bcyr0I9AfTr+7il2DD4/mn
5QcI6LqimTp6pUjrqrtdKCSYZdSW2DZSivtRNOacJ/uztmBvkE8ZaCNnyQUB
gcaVPSPJnWV4rpqy6fBg/46YO3hsKUc9idV84E5QINZzWFZTjqXaSvvh/QQV
ztNdIQsr4KFh1aLJ/Ido/oqI+ArENRkUGO9j/lPvvdazCrzqqZ3h4kbQft4i
MH9PJXh6H6JTXAkGSoPP97dWQir0XFDnQnDtS3V4lQnFSk9T9UlngqZZ3lNH
11LMw1DROHPjvCVSey6F+ufR9SPM9brxacPmFMFPevwGmWvMPSpWW1PYlBk/
6GHO95rbU2JH0Rd0r66B+UhLADdPRHFFPFFzgjn0xoo6iS/Fz9ff7I5lDu5U
WluLKabX2r2KZPbv22Gj9KeI+XJr/RFm75f6HotDKS5y7NoPMe827DyZGUfh
Y6n7cifzrm+kHG8pxTNes4LP7GBmLTdPoBCMn91iy2xrXVF8T8b2DPxTtzJv
/iG6XvMniikjF64F8yZXy80DGRQdlfYPucwbBKOtNVkUr3Pij5syW0qcu3Yq
KJY3KntWMZsHzdmrn0uRNPAi2pB53ZGWvvE8igXuTsZfM5tFhgsbCyhCTabu
L2U2iTMbSi6iENq+jNZh/g+4Yzfd
          "]]},
        Annotation[#, "Charting`Private`Tag$7297#1"]& ]}, {}, {}}, {{{}, {}, 
       TagBox[
        {RGBColor[
          NCache[
           Rational[2, 3], 0.6666666666666666], 0, 0], AbsoluteThickness[1.6],
          Opacity[1.], LineBox[CompressedData["
1:eJwV0X0w1HkABnBcJFuxp9jJ5mxIp0JGpvTi4dCtqLPWdt5DqFT2K6wUOQ45
sla02F68lZf9aVZuLuWcDL2YUI02uctpOrmIXui0Q3X3vT+eeebz7/PwIuMF
0TpaWlq+NP/3878CnIbFxq62Q84xMcUE456qTD/1O9fDC7JPBlNvG/6n0lat
jdXuYRXfUf9dz3EwVbPhtbz5kQv1r0sbJUvUPNh/fhhsSF3XmaDQV2+AxvhB
S6uMgGu2Z72e2g28a5vyFlMP7uDPLlD74Xynqr1VSnCyRxaoUxqJ3C84/pMF
BA3SI9xcRRzSC3s6Y38iECRMFYW4JKB/xaFh3VMESQLWmfd6EqiDso1OZROM
6kQslP5wHPoZeSHeWQQnnKTbltllQBC2dttMBoHLPfa3i4syMVWhbdKeTmDu
rcrX7fkRS3sVMx0nCB7V6Oz+vCEX91839ClTCVQvxDs1JA9jaweN+lII3FhZ
Zecv5+Nx46ShvoSglsWPdmcVwmvz6nV2SQQmqaUbEy2LEKq2nc46StAVvFfj
FSjDgOCo6jYh8LFPi4rPK8bOxMpxnphgbNYmjnPpDKw9EgvqjhBMKBnHzicl
uNdRPWN2mEA7oOPsxIdSRHaLTVvjCDJfKW8Y28ux2v5lnsdBgqdHJ3KK95Yh
0+4iebGfgP/2lzeytHK4PbmjaoglsAgK5ciuVmBc16stPIZgUats2GhAgdc3
mBHnaIK+hZydY1PnsLXEcn7lPoI5j5SUNosLODBb7qiJJNicHOPOdr2IuaH6
6TcRBMTbNKbFpRItOYr3f+wluCqw+ld/oBIJQi/rwXCCT8KUMfOIKoguhJ2b
DCP46Hu9yWm+CpuWXyAfQgl03dy6DPKrcaXbcnQF9fy6aYbFqUGtzS0H7xCC
y4ZFyYuba3Cf9elxfDBB0GRiYZ9rLRJSTZKUQXTPDq+cwt9r4aj5vOPPQIKN
p8N7DeMuYSK9qsmausS/aqxNcwlp0uU6ku8J6o0ePIstvoybEr2Qm3sIbt3x
/PoRrw6B2VZGXGp5Ur0f2uuwfWpJhlhEIOI67RoMqEfSreiI/gCCr9r1yu1G
63G9qbN0K/U54e2u7PQGGBgbONcKCSzHereeX9oIs4FrFmbUcvHHvBFFI0YN
bA6W+xN0vONc421U4nkIv41N/e7QCUerbiVMxHua5QL655rKrurbSiwy2lBR
Sv3laJeQ16OEJjk86wy1UzBLYt6vBHvfDZGUOplf0cZ5ooTym1jtXOqP1q0e
SyaV4EfJYpKp9UZmRLPGDMLGe+IDqOUVpi8TTRhEFKyK8qdeI9pybIbD4Gef
fpEfNb8vU/F2JYPKt+auvtQFbexnEzYM9gfUGHtSs8vsD4xsYbCLs77Xibra
338udDsD9f7mbkdqR0NJ/lMwmFtwqt2BWpjzW9OQJ4P5V2tV66jPJvpOD+xm
4KvvW25FbeNAsgQCBnb8yJJV1K2vSpY9FDJQHO6RWlAPRT517g9k4Lz+dC6X
+qC51l2fEAbHroxnraCeG7IMvBfGQDwiz+BQ55fumOBHMLBtkaeZUHP94o7f
jWJwnTueuoz6PzAJLDE=
          "]]},
        Annotation[#, "Charting`Private`Tag$7338#1"]& ]}, {}, {}}, {{{}, {}, 
       TagBox[
        {RGBColor[0, 1, 1], AbsoluteThickness[1.6], Opacity[1.], 
         LineBox[CompressedData["
1:eJwV0n0w1HkcB3CkU11T6x5cxW7sdXWHlGvdsa68TXrwlGe5TWJZtauNT1SI
LjbpgaIHOjKeNpLnVB5+V2eUHkmi6IGTXMLphFE30t33/vjMZ17znvnMZz7z
MZKGusu0NDQ0nFn939cHdFDCpNBG9twxOPgEwVWSd7dUrgnaQq7+zLm709sS
5boI1bkpljDf1f6sM0JuhKT6D3M3MHc7ukhC5OaQlGf/ZsG87W9lZrDcFkM2
dYLpzEttp6yD5G7wEll+ok4l8AbtZgfKA/DnHR1pbwpBLa7MfLJoJ9YVLJxh
e5zwXWyapG88GhscDymuJRMe3Q6e8G6Kg/7GOJu1SYQlqYs93u09iDrJHf/K
I4Th9FTtw8+OYH/DyVjxYcKN5zn2j88ch+ze05DCRIJTgmmMpuEJ1BofHBIc
JIRZd8emOJ6CcoFeQdUBQhZPaj91Lg12uctaTVUE7QTr36WdZ3BrwrK9IY4w
qBwYqP43A48yCvOk+wlPdsm7B72yMJbjG9W/j6DFt4nVO5CNwNGU8EOxhAwa
Gz0+kgO7NQ9H58QQRo9VxiXNz8MrXqQkO5rQvzdDlmCWD3R5mDtGEQIit5sN
S9TQfLJe2LWHEGknd3ILP4fB1I5vjuwmfG7o4rIovwB5p3s4/i7CG4ts09Dm
QszJd+muCycE6y/YcuXlecBBKNu5kyDl7du9XfcCXtuazdElwmT77JcCk2Jc
mNJvuBNKaG+bbmxvUwK/bB+XozsI5r39Xr2KUvg1vk0UKQkm9eOP98SXoa5b
/O27EEJR6eBPMZXlSHUr6MtVEC4pzq2KUVbAISrhlJec7f9KcdjyfQWSa2bO
FG4jtA6o15Ycq4RBWIBhRzBhrleEmUD/ItbpnD2vlhGUXZHTmtQXwSuriokO
IiQPv3UwF1fh3iZBhFUgIUamcfVUYxU6rctX86Tsf2Sq3HLfS3hgtTLngT+h
pCmz4vbAJdwYeqM6v4Xg6DZQwo+4jF69qK2H/Fi+uVjfeNYV8Lq1Pd03E563
al0WpV3BsKe2aIUv4X7z/fqJpdUQ9mqqPkoIPa9aascbqvGsRTnQ+jOhfmtw
14hzDdparpdzPuyeYRSu7qsBdfT6pWwktPXoirypFqbShcK93oSgHf0vVk/W
QlBlKFN6EapV5loDKXW4QQbTHT0JnRq6zkkGHPIXaixb5UGw2NDXMingsKLp
R5UV84nMavcQIw7p79I7RMzOP/j5OCzmENTYut+EuSGkOHDGcg5FeiaP5jEX
P14TfWA1h2Hf8IQxd8K+kujCGAUHi5eu2kXMz/5xNv5rOwf+9dOb1cyW64xK
N4Vy4E1oVWczj764dVEcweGsi7cijXnrV19eex/LYV5xz0MVs2t8eXtEKof3
rfHFfsylLfEb+05yqF3lpCNhnsX3fuqRxqHi9cpAL+bG6g9/fJ/JofnNr/pO
zOJh+6ERNZufJTpmxZwu5u/wL+TQ32wzJGIeTxwZaSnioFoevn45c5kwfaKs
jIM40X3aEuZPwxRRgkoOWZEf/YXM266u/JBcxaE77eE1PvPNWbq/TF3mkNtz
32A+89c+fZrKGg5HPceiv2D+D1iHQPI=
          "]]},
        Annotation[#, "Charting`Private`Tag$7379#1"]& ]}, {}, {}}, {{{}, {}, 
       TagBox[
        {RGBColor[0, 
          NCache[
           Rational[2, 3], 0.6666666666666666], 
          NCache[
           Rational[2, 3], 0.6666666666666666]], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwV0Xs01HkYBvBRW8llYyljhMphmWZou22NHA9purLUCjWuSRbFdyw1rptb
1hFSVlJENxSGrbAuMb+VLdli6IIiqZTQaimXst/94z3P+fz3nOdd6hW4c/8s
FotlS+//XJw+PVgp5Fq+LLTy8Ukn6HA1cQjjKEKnT23Slbo7voLZxGFDQTs3
xZG6J+tLxHKOMVZbfqqyoX5ukO+ix1mHnpPZ2gbUfQMfmrQ4W3DodOZ0zwkC
r+bF0ZocZ3BNR+z3UOdvKOv8huOL635iM4c0Ah67iH1CVwJViwK7xSkEz06l
DwsKYpC9dvgjO5lg/iLz71QuJKJu7Vg7N4mgcGBy6qx+KqIjNf7VSyRIZ66Y
lPyWjnAFX75VAkFStWvWwWcZ+HP8+cbNcQTXzbZKuhdlwbipxc4rhqB5fnRu
n9ZZTCYk8gt+ITibXP/rXy656A8RFMijCIoFRk+XrcxDu0LIZuNIAqOhBH5V
aT6kR7aHp4QTTAUPud+yvQh5o2l/l4SgiS9Zo/7gEsayW0//cITgn2qloTbx
Fcwp1nl8NZRgtWKF6J1qIfzq6o5ohxAEHEsMdDhehGZhVElRMIFCl7u3Ef8a
rJRi+gzFBCmeomlhWTFsXrgKmSCCwzVuoY8cS1Edu+7J9kCC2rcW7e4SKVJI
w8SLgwRVaj11E+vL8HT2oa7sAIL+JbFnmpXK4e1g+j386R53qzYzLeXgdVVq
zPYjsJB/fvAq+XesWLhtus2XQO+2zXZr0XUYSOenpB0gCN+pl8no3oDFKbdY
Px+CuXcm5REjNxArU9ZftZ8gJ6f/nWftTWwaNTiv6E1Qpur5KCCyAtsGVI9+
8iL44NNbXmpbCfbDDJ3HngRSl1F3tloVzH66qNLqQSC5qv7m2t9VcBbW3m93
JyCvV+2TnPsDMbKILXfcaP+agRJ/t2rsaN3n1OFKkBBxfjDDrAYXdrgPt4kI
LnS8nXg5WgOZ+VL+670ELcet+z3LaxE3rKw/h9pwxblbC2PqsLdzTtjCPQQT
/kkBIxtvofGN4VuBC8GXLRbxLOV6eMi2Ru9yJohX3mCtL67HzwmhRSFOBHc5
Xw3Yt9VD6YaR/9Xd9P+5tgk5ggZ4zOjrdjgSIMhDdSa7AW72G3PVqXvfS2JC
phqgpmTE2/0jQeYrzffz9slQ2ue4P3UXgYqJRFjMyBCfL1jauZPAbvyXVlGj
DKORo6xH1GlMokilSQZe8USvnFrT7bTY/64Mqa/H8lqodU5W5Ji0yqD7/uK3
DdTcz2Pjl57JsCD4oVUB9dZW8ZWcCRnuRdmXhVIn5YSttJuSIevyizPB1Pf8
Y2o/T8ugYdwYF0RtPzddLmIxYGkHu/hRO5uXzXDmMRA/kcx1o/a9NOKUqcmA
rcoL3ERdJP7YJ1zEIJCf52pN/c5y5uC4FoPk5d47LKmDOr+Oc9RhIMiXc9dT
H15gKtVYxuBwntMgj7qye405Y8BA5bGg24R6stDittiQQV2Jf4sRdZSNbXer
MQOp7k3pEup6dccDR7kMUi/fz9elntUjGl3BY9AkXZvBoba55h3Zy2dQtHrw
mBZ1giRAMc2MQRJ3KEyT+j/Smz3M
          "]]},
        Annotation[#, "Charting`Private`Tag$7420#1"]& ]}, {}, {}}}, InsetBox[
     TemplateBox[{
      "\"\\!\\(\\*SubscriptBox[\\(T\\), \\(1\\)]\\) (\[Alpha] = 0.5)\"",
       "\"\\!\\(\\*SubscriptBox[\\(T\\), \\(1\\)]\\) (\[Alpha] = 3)\"",
       "\"\\!\\(\\*SubscriptBox[\\(T\\), \\(1\\)]\\) (\[Alpha] = 4)\"",
       "\"\\!\\(\\*SubscriptBox[\\(T\\), \\(2\\)]\\) (\[Alpha] = 0.5)\"",
       "\"\\!\\(\\*SubscriptBox[\\(T\\), \\(2\\)]\\) (\[Alpha] = 3)\"",
       "\"\\!\\(\\*SubscriptBox[\\(T\\), \\(2\\)]\\) (\[Alpha] = 4)\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0.5]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0.5]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0, 0]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0, 0]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {20, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 1]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 1]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 
                    NCache[
                    Rational[2, 3], 0.6666666666666666]]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 
                    NCache[
                    Rational[2, 3], 0.6666666666666666]]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[4, 9], 0.4444444444444444], 
                    NCache[
                    Rational[4, 9], 0.4444444444444444]]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[4, 9], 0.4444444444444444], 
                    NCache[
                    Rational[4, 9], 0.4444444444444444]]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[
                    0.6666666666666666, 0.33333333333333337`, 
                    0.33333333333333337`], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  "RGBColor[1, 0.5, 0.5]"], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0.5]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0.5, 0.5], Editable -> False, Selectable -> 
                False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[1, 0, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    Rational[2, 3], 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.4444444444444444, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  "RGBColor[2/3, 0, 0]"], Appearance -> None, BaseStyle -> {},
                  BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[
                    Rational[2, 3], 0, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[
                 Rational[2, 3], 0, 0], Editable -> False, Selectable -> 
                False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0., 0.6666666666666666, 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  "RGBColor[0, 1, 1]"], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 1, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 1, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 
                    Rational[2, 3], 
                    Rational[2, 3]], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0., 0.4444444444444444, 0.4444444444444444], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  "RGBColor[0, 2/3, 2/3]"], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 
                    Rational[2, 3], 
                    Rational[2, 3]]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 
                 Rational[2, 3], 
                 Rational[2, 3]], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 
                    Rational[4, 9], 
                    Rational[4, 9]], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> 
                   RGBColor[0., 0.2962962962962963, 0.2962962962962963], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  "RGBColor[0, 4/9, 4/9]"], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 
                    Rational[4, 9], 
                    Rational[4, 9]]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 
                 Rational[4, 9], 
                 Rational[4, 9]], Editable -> False, Selectable -> False]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.8, 0.8}], ImageScaled[{0.5, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{
     FormBox[
      RowBox[{"\[Tau]", " ", "Temps"}], TraditionalForm], 
     FormBox[
      RowBox[{"K", " ", "Temp\[EAcute]rature"}], TraditionalForm]},
   AxesOrigin->{0, 277.1300000189131},
   DisplayFunction->Identity,
   Frame->{{False, False}, {False, False}},
   FrameLabel->{{None, None}, {None, None}},
   FrameTicks->{{Automatic, 
      Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
      Charting`ScaledFrameTicks[{Identity, Identity}]}},
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImagePadding->All,
   ImageSize->{603., Automatic},
   Method->{
    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
     AbsolutePointSize[6], "ScalingFunctions" -> None, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotRange->{{0, 15816.708766582995`}, {277.1300000189131, 
     281.1499997796452}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[{{{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            AbsoluteThickness[1.6], 
            RGBColor[0, 
             Rational[4, 9], 
             Rational[4, 9]]], 
           Line[CompressedData["
1:eJwV0Hs01HkYBnCnhK2IZaRCVovF2i7MSGk8M6mjm21LpZnNZUzG2hhfNqkO
g9pSconWybUpcjmtIrU1Y0hEBv2Ojgm1GoWmslE221Ha2u/+8Z73fP56nvf9
SiTdtneGnp7eFjr/b1d2heioE9tH5eMaHp5D4BU6fe+qxBz2Jay+QOq/Cv9O
SpMswYiuaOMmal+v6F1xEndMuCd7LaN+Y/h7S4RkLUYq0zkfThOsf91xMEyy
HTbX11VnUk+IHmlCJGFwsFafUGQT3LUWpQZL4hAqjRu2zCJ4Kfrc77fyKDJN
Uiyq0wk+1i8ciJ2diQtuC0UX0wjOFM9svPggFyffs1q7fyVoO60zPm6Sj+JT
ismRVAKuUUzPsvFiuO1mr9iSTFC1IK7LqfA8bAxMuecTCZQJot6hFWUg9yvU
Sw4TjFs5LJpRUg7lBjvT8QQCqbl2ULimCuL3q3PK4wksvo8cXFBzCVe7O0rk
vxD4aFyOHbG8jAlfboMqluDxw5je3MAaWEdLv1PHELiOsg3PZtXCr9e2y1hK
IHd6d0Dx5Cqmj89v9o0i6D+xVVXjeg3Th2uaCn4muHDKwlYQch2bpAev2UUS
5Kp6btld+QP7FKvLCiIIWBkfk/Kf34CTy+sISAgaT9olLV2lwJGZBxV/7qV5
1dqthceUENuf888SEzjHGPAUqnoc0P/kFxFG4B/iTCbnNqCfrWe2UkQwa+J6
49P1jeAYK2e4hBLIygcGyw7dguFbfr1bCEG2r0zOFzfBe6hgp3MwgYtB6+Ac
vdvQmqg9+UEEu4KMbg1X3kZvQrxRwB4CXbtVWrl/M95OnTOK/5H2m6kN5r9s
Rl+qTr9WSPs8kPe9ym5Bf+y4+pmA/iveKijG7Q7YjkzYcuq3LnsYbdsdbOUt
epS2m6Bo/zmtMKoV9z03ah4FEmRm5/1ba9QG3rP2EFCb89NVlrVt4MY+czi/
i+Bpi8fJAP+7+DAW12lObRZ4iZf44i7ydIqmrJ0EmtTF+dey2rGErUoypH6S
6Pf5jqsajZOsjMwd9P550lkjGjW8l3u8MaNOrhP9M3aoAzze7a7iAIIOpzmT
3axOPJanKjnUFStqc5obOjF0cTyqazvBPeO5yBB0Qb/hplk09Y5p9z7+ZBfm
VOlGWdQxst0mhoX34DP1cVS5jfbpcQ8o4zD4VBTkGEmd71zkJvRiMPfmkbYI
6iCZvuGX3gyC6ybDJdQvXB4oZDzqL5SVYurplPjFws0M0n7qXhpMbb9MMWom
YtBZb7M5gFp6ipsiy2DgGalWcak9hsoFnGwG7202ha+hnvKc5zGWw8Ct2tLU
mzp1eFAnOMtgjW262Is6b1XKZk4pg4GM56Ye1KoXLfPHbjKQtoYccKZO4X47
UVrPQN6U4PAN9fozZzoEjQxmFzzscaTu9tmb2N7C4Erl/uVfUw/nGQyXMgxs
klhvbKkrX0WrBPcZaOpi5TbU+/h9v5lpGERttPrBmvrdWIWf7CGDfqF33QLq
+rWm9pwBBok3lGIr6uT8hOlXWgZV7BTL+dTrXj/RlD5lwLRltbOoZ6/bcFkw
wiBUqDtkQf0f7jNBVg==
            "]]}, 
          "Charting`Private`Tag$7463#1"]}}, {}, {}}, {{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            AbsoluteThickness[1.6], 
            RGBColor[1, 0.5, 0.5]], 
           Line[CompressedData["
1:eJwV0H081HcAB3AdJlNJSbOSWlxRu5QhbfEpOtdGNR3ydNeJ8zAPfYVFj9ed
SMiz0rlfvBC31rBadXSKhPU0q5RWr0uOXtXyykPLU7Pv/vi8Pq/3f5/XZ0lI
nHcYS0dHx4vm/47WzF1RKdF3nW/uKRbnEVj+kFEtVPW6/hgaKNhJ/cEUlV+p
hl1HzIp9A6h7X5UstVTpwuZcvscWan9+e4ipai7Ue8pWOFIXGApZxqqlUPvP
mtSnXhNq6z1DZQ92gZW6MpdAYjJ7/FOVG+alTNzsyyGQDlaIYrP50GS6vPY4
QeBSajIelyHA/ldCUXsWgbAxYfoy21DUK1tMtmcS3DlfZ8FLjkTHoMei6xkE
l450ZV6MiQXv/K8dnscIzn7Zf8S2n2BdhGRrYxqBtm9CMJiegOn9nSsdjxJo
svUjBP8m4XiHwchtGcFq1YdEbXUymCjVSp6UYEPXs9rZ7P1oTAoY0kgINqoF
RheKDsLVMcVHcpjAyzTUYa3iMC6+FKsMDhE8vp63L/KJBLxHQSzlAYLsWgf3
Zaul2PSsrXn1foL1+lXyMxIZhobXrW9JIfjOO8copiEVTV3N7+KSCWTPByZb
jdNgdq1DydpLYBHephfvlQ6XmFJubRJBD8f0hLLyGH7qrQh0TyQoDeLUKD5k
ILxH+6BnD8GVI83dfWsyMbFAfPxUPIHO698zr6RnoaBL4L6WEFRt9vJ93paN
stdz+9/FEZSn3fUT6eRgmrB/Y30sgcHx2tbPlDmYnOBZB8YQyDPuqZN5uWDb
jvpYRBPcVC4fWzySi1WOrL1tUQR/H4iYqJTnYXfqJ3EpkfQfr770B875CDZ6
as6NIOCsl/tt1uZjon6207iYYLNNTl24tAAvtjZdvhlGIGqPur/LshCGO2t2
nw4lmJV+yLGqvRA9m2zN/HcRvHHrtMoTF2HMnn2CE0IQvDiYf8OkGDfCpge+
3UkwNWptfKauGGNPpT+3COkfsoe5/ltOwjpcNVAmIOi0a/LxHz2Ja21TY5HB
BA7dfRWs4lPIE4ineEF0XznXYWhjCRY6ddnNCSRYuig7q+lNCXT7EyN6/Ql4
RXOI47HTKF9yaeatHQS6qzoLh+3l8LN245f6Ebxtub0p4L4cojPca6m+BA+M
frmqiCtF76BZeaIPwbaEW0k25gq8yuIUbuMTTD62agi+pMDdlRqbDdsJoqeN
WC1WKcBKF8R/Q/3UpiX7RaMC6ia9BifqqymikPBmBf5oavXkUB9cqDAkdxTw
0ZjHL6CeEs7fIetVYFBqeOO9NwHrpeF7pTEDvaqPMiV1vHG3IGYOg8ts3z8r
qV84VbevmsdAN+ihZRl1czpXfuFzBiKNR0MxtdRW6qa2ZrCL/XFYRq0XO5nb
+TWDGsXZaCF1QtGtiXwXBmH3oxoDqLXqkjDfDQzuVfNn+FK3Gjs7/8VlUGcn
P+dJfbQu8bn2ewba3PEBZ+p/ut2/Pctn4FIz5OpALWaZXoj0Y+DjZ5JrR83d
Xp82EMSgKb7Zfhn1b/skg7VCBief8VO/oGZXbAvcE8LA4cnMRxbURbctWx3C
GASEv11uTm3wfoAzGs6gXTqcYkr9H2j5OfA=
            "]]}, 
          "Charting`Private`Tag$7256#1"]}}, {}, {}}, {{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            AbsoluteThickness[1.6], 
            RGBColor[1, 0, 0]], 
           Line[CompressedData["
1:eJwV0Xk0FHgAB3Cl1WGSSsKWDisyPbxVajpe3xyzarPKUYyJhmYci/yinGkc
E2Ed07hz/561Kq0eJQmbSlGSbdjyVptxlu7dDq/N/vaP7/u+z1/fP76rfA47
i2eqqak5svzfWxvmVFnxONsNhmwlEjlBitXnC82qie2m+x1jvZgjxhTbklSf
trs7vZXvYw7ZIZrlr5oLrwKt63zmwJCOMQ+VPr7iZ5qYMI8nRT9yVq1FuaJq
wXg2gYm2q7OTigfb7kcugcy3lG0Zjqqd0J64+ktoFsG2uIFsjSkBXv2tE+eZ
QSBZMjOEO+8QZvOWycPSCYQ1Xb7BxwJxp7PBrSSVYHGd+hqNy6HYaGTmdjaF
wP4dp2nvhzAY/iPuHzpJ8JTv1PH98Qho++3++G8SwUPeZHPv22jkKslFbiKB
zunwXuW6OHDDdR3j4wmefCn81bZPit5rQu3mEwQCvzfJgsgE1N776L48jiB+
xdHfNy5KQl9jRWJGLMGBgzmek90ytFgqbEajCbxdz74bDE6GjN9u5RNFoPvg
wO1qi1M4k+A6djOCIKp420LeRCq8EoYDeccI1JcvDpwtS0fuuPZwdzjBDmPZ
9DnbDKiL+Icdwwiq/pqkWcOZMLy0584kIRDJI9uNH2bB8NPG746FEtgJs0NG
67JhwVMz0jpMcHWarrollePyTfGNG8EE6WMaYQtFpyEwzbkiCSJ4Xe17N+Zb
BR7nqfmv+ZHAbFG/951pBaxODQreBhC0tuZnJwzmwDeT01TjTzDGd+sS1OZi
33Sixgk/goBFBytLMvNQqOFTDQnBb7L4hptB+UjrcJJqiQnO9xbf19xSgLb+
GWnvfQne+c5JuWZQiOTUTy/u+hDc7Q52yHheCNenQ6XNIoKYpxM2No1F4HTS
1ksHCWSb6gdEuWfg6lS+psybYHVAVGyZuBjdL6bcyr0I9AfTr+7il2DD4/mn
5QcI6LqimTp6pUjrqrtdKCSYZdSW2DZSivtRNOacJ/uztmBvkE8ZaCNnyQUB
gcaVPSPJnWV4rpqy6fBg/46YO3hsKUc9idV84E5QINZzWFZTjqXaSvvh/QQV
ztNdIQsr4KFh1aLJ/Ido/oqI+ArENRkUGO9j/lPvvdazCrzqqZ3h4kbQft4i
MH9PJXh6H6JTXAkGSoPP97dWQir0XFDnQnDtS3V4lQnFSk9T9UlngqZZ3lNH
11LMw1DROHPjvCVSey6F+ufR9SPM9brxacPmFMFPevwGmWvMPSpWW1PYlBk/
6GHO95rbU2JH0Rd0r66B+UhLADdPRHFFPFFzgjn0xoo6iS/Fz9ff7I5lDu5U
WluLKabX2r2KZPbv22Gj9KeI+XJr/RFm75f6HotDKS5y7NoPMe827DyZGUfh
Y6n7cifzrm+kHG8pxTNes4LP7GBmLTdPoBCMn91iy2xrXVF8T8b2DPxTtzJv
/iG6XvMniikjF64F8yZXy80DGRQdlfYPucwbBKOtNVkUr3Pij5syW0qcu3Yq
KJY3KntWMZsHzdmrn0uRNPAi2pB53ZGWvvE8igXuTsZfM5tFhgsbCyhCTabu
L2U2iTMbSi6iENq+jNZh/g+4Yzfd
            "]]}, 
          "Charting`Private`Tag$7297#1"]}}, {}, {}}, {{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            AbsoluteThickness[1.6], 
            RGBColor[
             Rational[2, 3], 0, 0]], 
           Line[CompressedData["
1:eJwV0X0w1HkABnBcJFuxp9jJ5mxIp0JGpvTi4dCtqLPWdt5DqFT2K6wUOQ45
sla02F68lZf9aVZuLuWcDL2YUI02uctpOrmIXui0Q3X3vT+eeebz7/PwIuMF
0TpaWlq+NP/3878CnIbFxq62Q84xMcUE456qTD/1O9fDC7JPBlNvG/6n0lat
jdXuYRXfUf9dz3EwVbPhtbz5kQv1r0sbJUvUPNh/fhhsSF3XmaDQV2+AxvhB
S6uMgGu2Z72e2g28a5vyFlMP7uDPLlD74Xynqr1VSnCyRxaoUxqJ3C84/pMF
BA3SI9xcRRzSC3s6Y38iECRMFYW4JKB/xaFh3VMESQLWmfd6EqiDso1OZROM
6kQslP5wHPoZeSHeWQQnnKTbltllQBC2dttMBoHLPfa3i4syMVWhbdKeTmDu
rcrX7fkRS3sVMx0nCB7V6Oz+vCEX91839ClTCVQvxDs1JA9jaweN+lII3FhZ
Zecv5+Nx46ShvoSglsWPdmcVwmvz6nV2SQQmqaUbEy2LEKq2nc46StAVvFfj
FSjDgOCo6jYh8LFPi4rPK8bOxMpxnphgbNYmjnPpDKw9EgvqjhBMKBnHzicl
uNdRPWN2mEA7oOPsxIdSRHaLTVvjCDJfKW8Y28ux2v5lnsdBgqdHJ3KK95Yh
0+4iebGfgP/2lzeytHK4PbmjaoglsAgK5ciuVmBc16stPIZgUats2GhAgdc3
mBHnaIK+hZydY1PnsLXEcn7lPoI5j5SUNosLODBb7qiJJNicHOPOdr2IuaH6
6TcRBMTbNKbFpRItOYr3f+wluCqw+ld/oBIJQi/rwXCCT8KUMfOIKoguhJ2b
DCP46Hu9yWm+CpuWXyAfQgl03dy6DPKrcaXbcnQF9fy6aYbFqUGtzS0H7xCC
y4ZFyYuba3Cf9elxfDBB0GRiYZ9rLRJSTZKUQXTPDq+cwt9r4aj5vOPPQIKN
p8N7DeMuYSK9qsmausS/aqxNcwlp0uU6ku8J6o0ePIstvoybEr2Qm3sIbt3x
/PoRrw6B2VZGXGp5Ur0f2uuwfWpJhlhEIOI67RoMqEfSreiI/gCCr9r1yu1G
63G9qbN0K/U54e2u7PQGGBgbONcKCSzHereeX9oIs4FrFmbUcvHHvBFFI0YN
bA6W+xN0vONc421U4nkIv41N/e7QCUerbiVMxHua5QL655rKrurbSiwy2lBR
Sv3laJeQ16OEJjk86wy1UzBLYt6vBHvfDZGUOplf0cZ5ooTym1jtXOqP1q0e
SyaV4EfJYpKp9UZmRLPGDMLGe+IDqOUVpi8TTRhEFKyK8qdeI9pybIbD4Gef
fpEfNb8vU/F2JYPKt+auvtQFbexnEzYM9gfUGHtSs8vsD4xsYbCLs77Xibra
338udDsD9f7mbkdqR0NJ/lMwmFtwqt2BWpjzW9OQJ4P5V2tV66jPJvpOD+xm
4KvvW25FbeNAsgQCBnb8yJJV1K2vSpY9FDJQHO6RWlAPRT517g9k4Lz+dC6X
+qC51l2fEAbHroxnraCeG7IMvBfGQDwiz+BQ55fumOBHMLBtkaeZUHP94o7f
jWJwnTueuoz6PzAJLDE=
            "]]}, 
          "Charting`Private`Tag$7338#1"]}}, {}, {}}, {{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            AbsoluteThickness[1.6], 
            RGBColor[0, 1, 1]], 
           Line[CompressedData["
1:eJwV0n0w1HkcB3CkU11T6x5cxW7sdXWHlGvdsa68TXrwlGe5TWJZtauNT1SI
LjbpgaIHOjKeNpLnVB5+V2eUHkmi6IGTXMLphFE30t33/vjMZ17znvnMZz7z
MZKGusu0NDQ0nFn939cHdFDCpNBG9twxOPgEwVWSd7dUrgnaQq7+zLm709sS
5boI1bkpljDf1f6sM0JuhKT6D3M3MHc7ukhC5OaQlGf/ZsG87W9lZrDcFkM2
dYLpzEttp6yD5G7wEll+ok4l8AbtZgfKA/DnHR1pbwpBLa7MfLJoJ9YVLJxh
e5zwXWyapG88GhscDymuJRMe3Q6e8G6Kg/7GOJu1SYQlqYs93u09iDrJHf/K
I4Th9FTtw8+OYH/DyVjxYcKN5zn2j88ch+ze05DCRIJTgmmMpuEJ1BofHBIc
JIRZd8emOJ6CcoFeQdUBQhZPaj91Lg12uctaTVUE7QTr36WdZ3BrwrK9IY4w
qBwYqP43A48yCvOk+wlPdsm7B72yMJbjG9W/j6DFt4nVO5CNwNGU8EOxhAwa
Gz0+kgO7NQ9H58QQRo9VxiXNz8MrXqQkO5rQvzdDlmCWD3R5mDtGEQIit5sN
S9TQfLJe2LWHEGknd3ILP4fB1I5vjuwmfG7o4rIovwB5p3s4/i7CG4ts09Dm
QszJd+muCycE6y/YcuXlecBBKNu5kyDl7du9XfcCXtuazdElwmT77JcCk2Jc
mNJvuBNKaG+bbmxvUwK/bB+XozsI5r39Xr2KUvg1vk0UKQkm9eOP98SXoa5b
/O27EEJR6eBPMZXlSHUr6MtVEC4pzq2KUVbAISrhlJec7f9KcdjyfQWSa2bO
FG4jtA6o15Ycq4RBWIBhRzBhrleEmUD/ItbpnD2vlhGUXZHTmtQXwSuriokO
IiQPv3UwF1fh3iZBhFUgIUamcfVUYxU6rctX86Tsf2Sq3HLfS3hgtTLngT+h
pCmz4vbAJdwYeqM6v4Xg6DZQwo+4jF69qK2H/Fi+uVjfeNYV8Lq1Pd03E563
al0WpV3BsKe2aIUv4X7z/fqJpdUQ9mqqPkoIPa9aascbqvGsRTnQ+jOhfmtw
14hzDdparpdzPuyeYRSu7qsBdfT6pWwktPXoirypFqbShcK93oSgHf0vVk/W
QlBlKFN6EapV5loDKXW4QQbTHT0JnRq6zkkGHPIXaixb5UGw2NDXMingsKLp
R5UV84nMavcQIw7p79I7RMzOP/j5OCzmENTYut+EuSGkOHDGcg5FeiaP5jEX
P14TfWA1h2Hf8IQxd8K+kujCGAUHi5eu2kXMz/5xNv5rOwf+9dOb1cyW64xK
N4Vy4E1oVWczj764dVEcweGsi7cijXnrV19eex/LYV5xz0MVs2t8eXtEKof3
rfHFfsylLfEb+05yqF3lpCNhnsX3fuqRxqHi9cpAL+bG6g9/fJ/JofnNr/pO
zOJh+6ERNZufJTpmxZwu5u/wL+TQ32wzJGIeTxwZaSnioFoevn45c5kwfaKs
jIM40X3aEuZPwxRRgkoOWZEf/YXM266u/JBcxaE77eE1PvPNWbq/TF3mkNtz
32A+89c+fZrKGg5HPceiv2D+D1iHQPI=
            "]]}, 
          "Charting`Private`Tag$7379#1"]}}, {}, {}}, {{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            AbsoluteThickness[1.6], 
            RGBColor[0, 
             Rational[2, 3], 
             Rational[2, 3]]], 
           Line[CompressedData["
1:eJwV0Xs01HkYBvBRW8llYyljhMphmWZou22NHA9purLUCjWuSRbFdyw1rptb
1hFSVlJENxSGrbAuMb+VLdli6IIiqZTQaimXst/94z3P+fz3nOdd6hW4c/8s
FotlS+//XJw+PVgp5Fq+LLTy8Ukn6HA1cQjjKEKnT23Slbo7voLZxGFDQTs3
xZG6J+tLxHKOMVZbfqqyoX5ukO+ix1mHnpPZ2gbUfQMfmrQ4W3DodOZ0zwkC
r+bF0ZocZ3BNR+z3UOdvKOv8huOL635iM4c0Ah67iH1CVwJViwK7xSkEz06l
DwsKYpC9dvgjO5lg/iLz71QuJKJu7Vg7N4mgcGBy6qx+KqIjNf7VSyRIZ66Y
lPyWjnAFX75VAkFStWvWwWcZ+HP8+cbNcQTXzbZKuhdlwbipxc4rhqB5fnRu
n9ZZTCYk8gt+ITibXP/rXy656A8RFMijCIoFRk+XrcxDu0LIZuNIAqOhBH5V
aT6kR7aHp4QTTAUPud+yvQh5o2l/l4SgiS9Zo/7gEsayW0//cITgn2qloTbx
Fcwp1nl8NZRgtWKF6J1qIfzq6o5ohxAEHEsMdDhehGZhVElRMIFCl7u3Ef8a
rJRi+gzFBCmeomlhWTFsXrgKmSCCwzVuoY8cS1Edu+7J9kCC2rcW7e4SKVJI
w8SLgwRVaj11E+vL8HT2oa7sAIL+JbFnmpXK4e1g+j386R53qzYzLeXgdVVq
zPYjsJB/fvAq+XesWLhtus2XQO+2zXZr0XUYSOenpB0gCN+pl8no3oDFKbdY
Px+CuXcm5REjNxArU9ZftZ8gJ6f/nWftTWwaNTiv6E1Qpur5KCCyAtsGVI9+
8iL44NNbXmpbCfbDDJ3HngRSl1F3tloVzH66qNLqQSC5qv7m2t9VcBbW3m93
JyCvV+2TnPsDMbKILXfcaP+agRJ/t2rsaN3n1OFKkBBxfjDDrAYXdrgPt4kI
LnS8nXg5WgOZ+VL+670ELcet+z3LaxE3rKw/h9pwxblbC2PqsLdzTtjCPQQT
/kkBIxtvofGN4VuBC8GXLRbxLOV6eMi2Ru9yJohX3mCtL67HzwmhRSFOBHc5
Xw3Yt9VD6YaR/9Xd9P+5tgk5ggZ4zOjrdjgSIMhDdSa7AW72G3PVqXvfS2JC
phqgpmTE2/0jQeYrzffz9slQ2ue4P3UXgYqJRFjMyBCfL1jauZPAbvyXVlGj
DKORo6xH1GlMokilSQZe8USvnFrT7bTY/64Mqa/H8lqodU5W5Ji0yqD7/uK3
DdTcz2Pjl57JsCD4oVUB9dZW8ZWcCRnuRdmXhVIn5YSttJuSIevyizPB1Pf8
Y2o/T8ugYdwYF0RtPzddLmIxYGkHu/hRO5uXzXDmMRA/kcx1o/a9NOKUqcmA
rcoL3ERdJP7YJ1zEIJCf52pN/c5y5uC4FoPk5d47LKmDOr+Oc9RhIMiXc9dT
H15gKtVYxuBwntMgj7qye405Y8BA5bGg24R6stDittiQQV2Jf4sRdZSNbXer
MQOp7k3pEup6dccDR7kMUi/fz9elntUjGl3BY9AkXZvBoba55h3Zy2dQtHrw
mBZ1giRAMc2MQRJ3KEyT+j/Smz3M
            "]]}, 
          "Charting`Private`Tag$7420#1"]}}, {}, {}}}, {
     DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
      AxesOrigin -> {0, 277.1300000189131}, FrameTicks -> {{Automatic, 
         Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
         Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
      GridLines -> {None, None}, DisplayFunction -> Identity, 
      PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
      DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
      Axes -> {True, True}, 
      AxesLabel -> {$CellContext`Temps $CellContext`\[Tau], 
        K $CellContext`Temp\[EAcute]rature}, 
      AxesOrigin -> {0, 277.1300000189131}, DisplayFunction :> Identity, 
      Frame -> {{False, False}, {False, False}}, 
      FrameLabel -> {{None, None}, {None, None}}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLines -> {None, None}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}}, 
      PlotRange -> {{0, 15816.708766582995`}, {277.1300000189131, 
        281.1499997796452}}, PlotRangeClipping -> True, 
      PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        RGBColor[1, 0.5, 0.5], 
        RGBColor[1, 0, 0], 
        RGBColor[
         Rational[2, 3], 0, 0], 
        RGBColor[0, 1, 1], 
        RGBColor[0, 
         Rational[2, 3], 
         Rational[2, 3]], 
        RGBColor[0, 
         Rational[4, 9], 
         Rational[4, 9]]}, {
       "\!\(\*SubscriptBox[\(T\), \(1\)]\) (\[Alpha] = 0.5)", 
        "\!\(\*SubscriptBox[\(T\), \(1\)]\) (\[Alpha] = 3)", 
        "\!\(\*SubscriptBox[\(T\), \(1\)]\) (\[Alpha] = 4)", 
        "\!\(\*SubscriptBox[\(T\), \(2\)]\) (\[Alpha] = 0.5)", 
        "\!\(\*SubscriptBox[\(T\), \(2\)]\) (\[Alpha] = 3)", 
        "\!\(\*SubscriptBox[\(T\), \(2\)]\) (\[Alpha] = 4)"}, 
       LabelStyle -> {}, LegendLayout -> "Column"]], {0.8, 0.8}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{
  3.732571975649787*^9, {3.732572024224629*^9, 3.7325720551594343`*^9}, {
   3.7325720988792887`*^9, 3.7325722011462727`*^9}, {3.732572343694087*^9, 
   3.732572354234601*^9}, 3.732572434824538*^9, 3.732572561309928*^9, {
   3.732572612633668*^9, 3.732572639000207*^9}, {3.7325726782423677`*^9, 
   3.73257276905028*^9}, 3.732572866135355*^9, 3.732572961268325*^9, {
   3.732573009069524*^9, 3.7325730776527452`*^9}, 3.73257316054172*^9, 
   3.7325731985977077`*^9, {3.732573253685295*^9, 3.732573283623548*^9}, {
   3.732573336558159*^9, 3.732573362947281*^9}, 3.73270038803082*^9, 
   3.732700727372913*^9, 3.732700935128992*^9, 3.73270098908248*^9, {
   3.73270129499778*^9, 3.732701340741395*^9}, 
   3.732701948601759*^9},ExpressionUUID->"357d3200-ab0d-41f8-9111-\
4e9bb68b4188"]
}, Open  ]]
},
WindowSize->{1074, 1091},
WindowMargins->{{3, Automatic}, {71, Automatic}},
FrontEndVersion->"11.2 for Linux x86 (64-bit) (September 10, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 204, 4, 31, "Input",ExpressionUUID->"fe064255-c7b1-4104-b245-a0caafbc7e12"],
Cell[765, 26, 1635, 37, 216, "Input",ExpressionUUID->"6476e618-9beb-4b17-8959-10bf1757d37b"],
Cell[2403, 65, 4467, 104, 138, "Input",ExpressionUUID->"490fb5ea-441d-4d88-8ce1-9cbe5d323240"],
Cell[CellGroupData[{
Cell[6895, 173, 1439, 31, 89, "Input",ExpressionUUID->"935aba3a-2ec2-4537-b6ee-6ae758ba7ddf"],
Cell[8337, 206, 3160, 52, 56, "Output",ExpressionUUID->"ec1ee200-f3df-43d2-a76e-2e1a021b290e"],
Cell[11500, 260, 3157, 52, 56, "Output",ExpressionUUID->"f4ca0e0f-e3e0-4308-bf20-986079401625"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14694, 317, 2158, 40, 55, "Input",ExpressionUUID->"01e11bc4-d9ce-48ea-85ca-4f3fa631e97f"],
Cell[16855, 359, 2596, 40, 22, "Message",ExpressionUUID->"76774104-6ca6-4d1b-815e-eb30d0e629de"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19488, 404, 1374, 31, 78, "Input",ExpressionUUID->"1420b140-5bcb-4045-9516-20a6d30c3e35"],
Cell[20865, 437, 473, 10, 22, "Message",ExpressionUUID->"c7ca1a42-065e-464a-a9b1-e53f5fcd85cc"],
Cell[21341, 449, 473, 10, 22, "Message",ExpressionUUID->"b58e8a2d-8669-4c14-b56c-f713cc2baf45"],
Cell[21817, 461, 1471, 23, 35, "Output",ExpressionUUID->"2a589bca-d3c6-4cc9-81cf-eade4f8dfb14"],
Cell[23291, 486, 473, 10, 22, "Message",ExpressionUUID->"76c4075f-60f0-4dfe-8b52-e75b8c3ddcd1"],
Cell[23767, 498, 473, 10, 22, "Message",ExpressionUUID->"b1993425-389b-4eca-84ff-248dad593431"],
Cell[24243, 510, 1468, 23, 35, "Output",ExpressionUUID->"b4dd0b46-bbff-40e5-8e05-abf20d5b5667"],
Cell[25714, 535, 473, 10, 22, "Message",ExpressionUUID->"784cfec9-4a00-4d14-90aa-6e2cfe6ad3e8"],
Cell[26190, 547, 475, 10, 22, "Message",ExpressionUUID->"0fc24cda-fe3e-49f9-b9fb-5293b6ee34ce"],
Cell[26668, 559, 1469, 23, 35, "Output",ExpressionUUID->"805b5e5a-3167-491b-a097-79ba63916b25"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28174, 587, 5800, 133, 216, "Input",ExpressionUUID->"88ea37b8-1865-4fc2-8988-ad85d358b77a"],
Cell[33977, 722, 48693, 977, 399, "Output",ExpressionUUID->"357d3200-ab0d-41f8-9111-4e9bb68b4188"]
}, Open  ]]
}
]
*)