Project1.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[    245167,       4984]
NotebookOptionsPosition[    237772,       4879]
NotebookOutlinePosition[    238148,       4895]
CellTagsIndexPosition[    238105,       4892]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Unprotect", "[", "$ProcessorCount", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$ProcessorCount", "=", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"LaunchKernels", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{"SetDirectory", "[", 
  RowBox[{"NotebookDirectory", "[", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.7261731706603975`*^9, 3.726173183361403*^9}, {
   3.7261732351221*^9, 3.7261732489368944`*^9}, 3.728982590620778*^9, 
   3.72918358388756*^9, {3.729185046167271*^9, 3.7291850464784536`*^9}, {
   3.7292492466051235`*^9, 3.7292492467144995`*^9}, {3.730401847944811*^9, 
   3.730401848413143*^9}, {3.730402202770866*^9, 3.730402236113575*^9}, 
   3.730403987612914*^9, 
   3.7306585089338317`*^9},ExpressionUUID->"d9fc87b0-f31b-4a04-bb6d-\
a731a326d745"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"KernelObject\"\>", "[", 
    RowBox[{"1", ",", "\<\"local\"\>"}], "]"}], ",", 
   RowBox[{"\<\"KernelObject\"\>", "[", 
    RowBox[{"2", ",", "\<\"local\"\>"}], "]"}], ",", 
   RowBox[{"\<\"KernelObject\"\>", "[", 
    RowBox[{"3", ",", "\<\"local\"\>"}], "]"}], ",", 
   RowBox[{"\<\"KernelObject\"\>", "[", 
    RowBox[{"4", ",", "\<\"local\"\>"}], "]"}], ",", 
   RowBox[{"\<\"KernelObject\"\>", "[", 
    RowBox[{"5", ",", "\<\"local\"\>"}], "]"}], ",", 
   RowBox[{"\<\"KernelObject\"\>", "[", 
    RowBox[{"6", ",", "\<\"local\"\>"}], "]"}], ",", 
   RowBox[{"\<\"KernelObject\"\>", "[", 
    RowBox[{"7", ",", "\<\"local\"\>"}], "]"}], ",", 
   RowBox[{"\<\"KernelObject\"\>", "[", 
    RowBox[{"8", ",", "\<\"local\"\>"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.73079437399872*^9},ExpressionUUID->"ca2be3ce-e229-436f-bc18-703109921740"],

Cell[BoxData["\<\"D:\\\\Study\\\\UCL\\\\PHAS2443_Mathematica\\\\project \
active\"\>"], "Output",
 CellChangeTimes->{
  3.730794374014344*^9},ExpressionUUID->"03a07354-c4fc-4dd6-9d97-\
dfb0e7bfa152"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"createArrayPlot", "[", "trafficin_List", "]"}], ":=", 
   RowBox[{"ArrayPlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"trafficin", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "j", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"Length", "[", "trafficin", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", 
         RowBox[{"Length", "[", 
          RowBox[{"trafficin", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"PixelConstrained", "\[Rule]", "1"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"createArrayPlot", "[", 
    RowBox[{"trafficin_List", ",", "pixelsize_"}], "]"}], ":=", 
   RowBox[{"ArrayPlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"trafficin", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "j", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"Length", "[", "trafficin", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", 
         RowBox[{"Length", "[", 
          RowBox[{"trafficin", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "600"}], ",", 
     RowBox[{"PixelConstrained", "\[Rule]", "pixelsize"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"createMultiPlot", "[", "trafficin_List", "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"createArrayPlot", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", "trafficin", "]"}], "[", 
      RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", 
       RowBox[{"trafficin", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"createLaneAnimation", "[", "trafficin_List", "]"}], ":=", 
   RowBox[{"Animate", "[", 
    RowBox[{
     RowBox[{"ArrayPlot", "[", 
      RowBox[{"{", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"trafficin", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "j", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", 
           RowBox[{"Length", "[", 
            RowBox[{"trafficin", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], "}"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "trafficin", "]"}], ",", "1"}], "}"}], ",", 
     RowBox[{"AnimationRunning", "\[Rule]", "False"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"createMultiAnimation", "[", "trafficin_List", "]"}], ":=", 
   RowBox[{"Animate", "[", 
    RowBox[{
     RowBox[{"ArrayPlot", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"trafficin", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "j", ",", "k", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "1", ",", 
          RowBox[{"Length", "[", 
           RowBox[{"trafficin", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "1", ",", 
          RowBox[{"Length", "[", 
           RowBox[{"trafficin", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "trafficin", "]"}], ",", "1"}], "}"}], ",", 
     RowBox[{"AnimationRunning", "\[Rule]", "False"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"numberOfCars", "[", "lanein_List", "]"}], ":=", 
   RowBox[{"Count", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Transpose", "[", "lanein", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"u_", "/;", 
      RowBox[{"u", "\[NotEqual]", "0"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"numberOfMultiCars", "[", "trafficin_List", "]"}], ":=", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{"numberOfCars", "[", 
      RowBox[{"trafficin", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "j"}], "]"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", 
       RowBox[{"Length", "[", 
        RowBox[{"trafficin", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"totalThroughput", "[", "trafficin_List", "]"}], ":=", 
   RowBox[{"N", "[", 
    RowBox[{"Mean", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Total", "[", 
        RowBox[{
         RowBox[{"Transpose", "[", 
          RowBox[{"trafficin", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"Length", "[", "trafficin", "]"}]}], "}"}]}], "]"}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"totalMultiThroughput", "[", "trafficin_List", "]"}], ":=", 
   RowBox[{"N", "[", 
    RowBox[{"Mean", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Total", "[", 
        RowBox[{"Flatten", "[", 
         RowBox[{"Last", "[", 
          RowBox[{"Transpose", "[", 
           RowBox[{
            RowBox[{"trafficin", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "3", ",", "1"}], "}"}]}], "]"}], "]"}], "]"}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"Length", "[", "trafficin", "]"}]}], "}"}]}], "]"}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"averageSpeed", "[", "trafficin_List", "]"}], ":=", 
   RowBox[{"N", "[", 
    RowBox[{
     RowBox[{"totalThroughput", "[", "trafficin", "]"}], "/", 
     RowBox[{"numberOfCars", "[", 
      RowBox[{"trafficin", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"averageMultiSpeed", "[", "trafficin_List", "]"}], ":=", 
   RowBox[{"N", "[", 
    RowBox[{
     RowBox[{"totalMultiThroughput", "[", "trafficin", "]"}], "/", 
     RowBox[{"numberOfMultiCars", "[", "trafficin", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.7253547825056343`*^9, 3.7253548072238607`*^9}, {
   3.725354842926157*^9, 3.7253548978639746`*^9}, {3.7253550150531855`*^9, 
   3.7253550329625444`*^9}, {3.7253550649562635`*^9, 
   3.7253550754948916`*^9}, {3.725355182717922*^9, 3.7253552835639725`*^9}, {
   3.7253557527908936`*^9, 3.7253558940185084`*^9}, {3.725356203668746*^9, 
   3.7253562139722633`*^9}, {3.725356277062217*^9, 3.72535631778162*^9}, {
   3.725356384656572*^9, 3.7253564379395294`*^9}, {3.7253568013685102`*^9, 
   3.7253568233169823`*^9}, {3.72535707737122*^9, 3.7253570775274677`*^9}, {
   3.7253593630841675`*^9, 3.7253593704366255`*^9}, {3.725360633736551*^9, 
   3.7253606546771827`*^9}, 3.7253611704542894`*^9, {3.7257906394463015`*^9, 
   3.7257906480374026`*^9}, {3.725791147375047*^9, 3.7257911605654325`*^9}, {
   3.725791541750155*^9, 3.725791543962743*^9}, 3.725805492295481*^9, {
   3.7258055417352376`*^9, 3.725805557398652*^9}, {3.725805961239803*^9, 
   3.7258059613676476`*^9}, {3.725874399092204*^9, 3.7258744003194723`*^9}, {
   3.7258744819941216`*^9, 3.7258744954899955`*^9}, 3.725875305970897*^9, {
   3.7259764966426277`*^9, 3.7259765251123905`*^9}, {3.7259766842516117`*^9, 
   3.7259766854406333`*^9}, {3.7259767537665205`*^9, 
   3.7259767548933935`*^9}, {3.7259770597730722`*^9, 
   3.7259770614696817`*^9}, {3.7259771114785357`*^9, 
   3.7259771143312254`*^9}, {3.725978946440374*^9, 3.725978947705478*^9}, {
   3.726050911353366*^9, 3.7260509128894577`*^9}, {3.7261427759330397`*^9, 
   3.7261427760580425`*^9}, {3.7261437657193546`*^9, 3.726143766078738*^9}, {
   3.7261439493284655`*^9, 3.726143950703429*^9}, {3.7261441737779465`*^9, 
   3.726144181431546*^9}, {3.726144328956597*^9, 3.726144330237981*^9}, {
   3.7261447206171837`*^9, 3.7261447410754633`*^9}, {3.7261450244239516`*^9, 
   3.726145027189556*^9}, {3.7261454636044474`*^9, 3.7261454764457493`*^9}, 
   3.7261473305720778`*^9, {3.726147382615588*^9, 3.726147399352193*^9}, {
   3.7261474439869785`*^9, 3.7261474574227057`*^9}, {3.7261476119791584`*^9, 
   3.7261476817801623`*^9}, {3.726147718818577*^9, 3.7261477538453875`*^9}, {
   3.7261478639741306`*^9, 3.7261479340735927`*^9}, {3.7261483133556166`*^9, 
   3.7261483232395964`*^9}, {3.7261485608111897`*^9, 
   3.7261485729373455`*^9}, {3.7261499198797035`*^9, 3.726149920332924*^9}, 
   3.7261499867274814`*^9, 3.7261501134941177`*^9, {3.7261553126053147`*^9, 
   3.7261553165428624`*^9}, {3.726157141485247*^9, 3.726157156866184*^9}, {
   3.7261572794066505`*^9, 3.7261573022731504`*^9}, {3.7261676850679846`*^9, 
   3.726167693592549*^9}, {3.7261682314550943`*^9, 3.7261682958674917`*^9}, {
   3.7261685583350587`*^9, 3.726168655225646*^9}, {3.726168900687622*^9, 
   3.726168903823835*^9}, 3.7261694748791504`*^9, 3.7261695075773745`*^9, {
   3.7261695872126784`*^9, 3.7261695883887753`*^9}, 3.7261696408523273`*^9, {
   3.726484762641866*^9, 3.726484852751377*^9}, {3.726485814497802*^9, 
   3.7264858189047947`*^9}, {3.7264860098476334`*^9, 3.726486011646686*^9}, {
   3.726487487840624*^9, 3.726487515355708*^9}, {3.726487647200633*^9, 
   3.726487649901394*^9}, {3.7264880401055603`*^9, 3.7264880454995036`*^9}, {
   3.726488101094204*^9, 3.726488104456012*^9}, 3.7264891107705126`*^9, {
   3.7264894113197217`*^9, 3.7264895657663193`*^9}, {3.726489661168707*^9, 
   3.7264896701772776`*^9}, {3.7264898345394416`*^9, 3.7264899393557096`*^9}, 
   3.7264926159093885`*^9, {3.726502708405712*^9, 3.7265027250405264`*^9}, {
   3.7265028005521584`*^9, 3.726502815243594*^9}, {3.726502849612006*^9, 
   3.7265028722060523`*^9}, {3.728845034843175*^9, 3.7288451043365316`*^9}, {
   3.7288454193367825`*^9, 3.728845430918008*^9}, {3.7288455336779933`*^9, 
   3.728845576450391*^9}, {3.728845615206918*^9, 3.7288456578922286`*^9}, {
   3.7288457502658277`*^9, 3.7288458871510677`*^9}, {3.7288459187094655`*^9, 
   3.7288459433469644`*^9}, {3.728845979253485*^9, 3.7288460264079757`*^9}, {
   3.7288463898429546`*^9, 3.728846391602205*^9}, {3.7288466580534515`*^9, 
   3.728846707392496*^9}, {3.728846797076212*^9, 3.7288468552565217`*^9}, {
   3.7288469186175175`*^9, 3.728846962459672*^9}, {3.728847004570569*^9, 
   3.728847006680067*^9}, {3.728847502583182*^9, 3.728847580912816*^9}, {
   3.728847628568681*^9, 3.7288476924160123`*^9}, {3.728847881271165*^9, 
   3.728847911695759*^9}, {3.7288480067232685`*^9, 3.7288480420003242`*^9}, 
   3.7289788191055346`*^9, {3.728979305893031*^9, 3.728979305893031*^9}, {
   3.7292778241632423`*^9, 3.729277825737954*^9}, {3.729317774796554*^9, 
   3.7293177748590937`*^9}, {3.7293178213548255`*^9, 
   3.7293178214440393`*^9}, {3.7293179558014154`*^9, 
   3.7293179861327686`*^9}, {3.7293180325485525`*^9, 
   3.7293180357494535`*^9}, {3.730289693746627*^9, 3.730289693887255*^9}, {
   3.7305416130288506`*^9, 3.7305416443456583`*^9}, {3.730634788437731*^9, 
   3.7306348123487496`*^9}, 3.7306351216225586`*^9, {3.7306352633634663`*^9, 
   3.7306352818269167`*^9}, {3.7306353834074383`*^9, 3.73063538945551*^9}, {
   3.730635563109441*^9, 3.7306356342287483`*^9}, {3.730635672540723*^9, 
   3.7306356846015615`*^9}, {3.7306380987406816`*^9, 3.730638109412754*^9}, 
   3.730638383522916*^9, {3.7306400595500617`*^9, 3.7306400823300533`*^9}, {
   3.7306402525483513`*^9, 3.730640261721162*^9}, {3.730640568438463*^9, 
   3.7306406052989097`*^9}, {3.730640650048052*^9, 3.7306406952537684`*^9}, {
   3.730640759939231*^9, 3.7306408558477297`*^9}, {3.730640897378403*^9, 
   3.7306409016920347`*^9}, {3.730640973294361*^9, 3.730641080801586*^9}, {
   3.730641134219573*^9, 3.730641157580594*^9}, {3.7306412595503826`*^9, 
   3.730641318627732*^9}, {3.730654423992216*^9, 3.7306544999294863`*^9}, {
   3.7306545429604845`*^9, 
   3.730654579239031*^9}},ExpressionUUID->"4423e740-b635-4a2b-9820-\
dfec0c3cd19c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"generateSeed", "[", 
    RowBox[{"frequency_", ",", "vmax_", ",", "track_"}], "]"}], ":=", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"ncars", "=", 
      RowBox[{"Floor", "[", 
       RowBox[{"track", "*", "frequency"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"cars", "=", 
      RowBox[{"RandomSample", "[", 
       RowBox[{
        RowBox[{"Range", "[", "track", "]"}], ",", "ncars"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"road", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", "track"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"road", "[", 
         RowBox[{"[", 
          RowBox[{"cars", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", 
        RowBox[{"{", 
         RowBox[{"1", ",", "0"}], "}"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "ncars"}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"road", "[", 
           RowBox[{"[", "i", "]"}], "]"}], " ", "\[Equal]", " ", 
          RowBox[{"{", 
           RowBox[{"1", ",", "0"}], "}"}]}], ",", " ", 
         RowBox[{
          RowBox[{"road", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
          RowBox[{"RandomInteger", "[", 
           RowBox[{"{", 
            RowBox[{"1", ",", "vmax"}], "}"}], "]"}]}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "track"}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "road", "]"}], ";"}], "\[IndentingNewLine]", 
    ")"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"generateTypeSeed", "[", 
    RowBox[{
    "frequency_", ",", "cvmax_", ",", "tvmax_", ",", "truckratio_", ",", 
     "track_"}], "]"}], ":=", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"ncars", "=", 
      RowBox[{"Floor", "[", 
       RowBox[{"track", "*", "frequency"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"ntrucks", "=", 
      RowBox[{"Floor", "[", 
       RowBox[{"ncars", "*", "truckratio"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"vehicles", "=", 
      RowBox[{"RandomSample", "[", 
       RowBox[{
        RowBox[{"Range", "[", "track", "]"}], ",", "ncars"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"trucks", "=", 
      RowBox[{"RandomSample", "[", 
       RowBox[{
        RowBox[{"Range", "[", "ncars", "]"}], ",", "ntrucks"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"road", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", "track"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"road", "[", 
         RowBox[{"[", 
          RowBox[{"vehicles", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", 
        RowBox[{"{", 
         RowBox[{"1", ",", "0"}], "}"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "ncars"}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"road", "[", 
         RowBox[{"[", 
          RowBox[{"vehicles", "[", 
           RowBox[{"[", 
            RowBox[{"trucks", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "]"}], "]"}], "=", 
        RowBox[{"{", 
         RowBox[{"2", ",", "0"}], "}"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "ntrucks"}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"Which", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"road", "[", 
           RowBox[{"[", "i", "]"}], "]"}], " ", "\[Equal]", " ", 
          RowBox[{"{", 
           RowBox[{"1", ",", "0"}], "}"}]}], ",", " ", 
         RowBox[{
          RowBox[{"road", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
          RowBox[{"RandomInteger", "[", 
           RowBox[{"{", 
            RowBox[{"1", ",", "cvmax"}], "}"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"road", "[", 
           RowBox[{"[", "i", "]"}], "]"}], " ", "\[Equal]", " ", 
          RowBox[{"{", 
           RowBox[{"2", ",", "0"}], "}"}]}], ",", " ", 
         RowBox[{
          RowBox[{"road", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
          RowBox[{"RandomInteger", "[", 
           RowBox[{"{", 
            RowBox[{"1", ",", "tvmax"}], "}"}], "]"}]}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "track"}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "road", "]"}], ";"}], "\[IndentingNewLine]", 
    ")"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"generateMultiSeed", "[", 
    RowBox[{
    "frequency_", ",", "cvmax_", ",", "tvmax_", ",", "truckratio_", ",", 
     "track_", ",", "lanes_"}], "]"}], ":=", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"generateTypeSeed", "[", 
       RowBox[{
       "frequency", ",", "cvmax", ",", "tvmax", ",", "truckratio", ",", 
        "track"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "lanes"}], "}"}]}], "]"}], 
    "\[IndentingNewLine]", ")"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"generateTypeMultiSeed", "[", 
   RowBox[{
   "frequency_", ",", "cvmax_", ",", "tvmax_", ",", "truckratio_", ",", 
    "track_", ",", "lanes_"}], "]"}], ":=", 
  RowBox[{"(", "\[IndentingNewLine]", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"generateTypeSeed", "[", 
         RowBox[{
         "frequency", ",", "cvmax", ",", "tvmax", ",", "truckratio", ",", 
          "track"}], "]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"generateTypeSeed", "[", 
         RowBox[{
         "frequency", ",", "cvmax", ",", "tvmax", ",", "truckratio", ",", 
          "track"}], "]"}], "}"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"generateSeed", "[", 
          RowBox[{"frequency", ",", "cvmax", ",", "track"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"lanes", "-", "2"}]}], "}"}]}], "]"}]}], "}"}], ",", "1"}],
     "]"}], "\[IndentingNewLine]", ")"}]}]}], "Input",
 CellChangeTimes->{{3.726169226226227*^9, 3.726169229366439*^9}, {
   3.7261704664739947`*^9, 3.7261704673540525`*^9}, {3.7263325454250703`*^9, 
   3.726332632047872*^9}, {3.7263326810161724`*^9, 3.726332854552047*^9}, {
   3.7263330296340446`*^9, 3.726333049384073*^9}, {3.72647838704266*^9, 
   3.7264784752031727`*^9}, {3.726478521906503*^9, 3.7264785514758053`*^9}, {
   3.7264786911942787`*^9, 3.726478780945851*^9}, {3.7264795192011766`*^9, 
   3.7264796059191637`*^9}, {3.7264796463648105`*^9, 3.726479729680299*^9}, {
   3.7264799310271945`*^9, 3.7264799552849994`*^9}, {3.7264799929482703`*^9, 
   3.7264800167463064`*^9}, 3.726480076417917*^9, {3.7264801697295055`*^9, 
   3.726480233683052*^9}, {3.7264802819467006`*^9, 3.7264802839602127`*^9}, {
   3.726502737269212*^9, 3.7265027386742096`*^9}, {3.726503135686572*^9, 
   3.726503135704588*^9}, 3.7265039842171335`*^9, {3.726504208583033*^9, 
   3.726504266497036*^9}, {3.7265043957179956`*^9, 3.726504454566843*^9}, {
   3.7265047497975984`*^9, 3.726504749800601*^9}, {3.7265048793532176`*^9, 
   3.7265048818731613`*^9}, {3.726504995735983*^9, 3.726505004602256*^9}, {
   3.7288408287790318`*^9, 3.728840883369806*^9}, {3.7288448851138287`*^9, 
   3.7288449042214003`*^9}, {3.728982328806823*^9, 3.7289823440366573`*^9}, {
   3.729250843910028*^9, 3.729250875204338*^9}, {3.730749447734557*^9, 
   3.7307495984600544`*^9}, {3.7307497067624445`*^9, 
   3.7307497569154587`*^9}},ExpressionUUID->"0239c7e7-ff1e-4fce-9d54-\
0a7197761d5b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"upd", "[", 
    RowBox[{"lanein_List", ",", 
     RowBox[{"{", 
      RowBox[{"vmax_", ",", "track_", ",", "brakeprob_"}], "}"}]}], "]"}], ":=",
    " ", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"lane", "=", "lanein"}], ";", "\[IndentingNewLine]", 
     RowBox[{"output", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", "track"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"lane", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "1"}], " ", "&&",
           " ", 
          RowBox[{
           RowBox[{"lane", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2"}], "]"}], "]"}], "<", "vmax"}]}], ",", 
         RowBox[{
          RowBox[{"lane", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}], "+=", "1"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "track"}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"lane", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "1"}], " ", "&&",
           " ", 
          RowBox[{
           RowBox[{"RandomReal", "[", "]"}], "<", "brakeprob"}], "&&", 
          RowBox[{
           RowBox[{"lane", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2"}], "]"}], "]"}], ">", "0"}]}], ",", 
         RowBox[{
          RowBox[{"lane", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}], "-=", "1"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "track"}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"lane", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "1"}], ",", 
         RowBox[{"Do", "[", 
          RowBox[{
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"lane", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"Mod", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"i", "+", "j", "-", "1"}], ")"}], ",", "track"}], 
                   "]"}], "+", "1"}], ",", "1"}], "]"}], "]"}], "\[Equal]", 
              "1"}], ",", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"lane", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "2"}], "]"}], "]"}], "=", 
                RowBox[{"(", 
                 RowBox[{"j", "-", "1"}], ")"}]}], ";", 
               RowBox[{"Break", "[", "]"}]}], ")"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"j", ",", "1", ",", 
             RowBox[{"lane", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}]}], "]"}]}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "track"}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"lane", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "1"}], ",", 
         RowBox[{
          RowBox[{"output", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"Mod", "[", 
              RowBox[{
               RowBox[{"i", "+", 
                RowBox[{"lane", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", "1"}], ",", 
               "track"}], "]"}], "+", "1"}], "]"}], "]"}], "=", 
          RowBox[{"lane", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "track"}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "output", "]"}], ";"}], "\[IndentingNewLine]", 
    ")"}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.7253567103673787`*^9, 3.7253567989070635`*^9}, {
   3.725356843354786*^9, 3.7253569198509073`*^9}, {3.725356960919469*^9, 
   3.725357037359496*^9}, {3.7253571593283615`*^9, 3.7253571597033663`*^9}, {
   3.725357201924659*^9, 3.7253572749155245`*^9}, {3.725357865683086*^9, 
   3.7253578800078015`*^9}, {3.7253579213142395`*^9, 
   3.7253579586813917`*^9}, {3.725358123619851*^9, 3.7253581332032557`*^9}, {
   3.725358173312832*^9, 3.7253582360035286`*^9}, 3.7253582955406103`*^9, {
   3.7253583602727256`*^9, 3.7253584119443164`*^9}, {3.725358489798004*^9, 
   3.7253585305773363`*^9}, {3.7253586988629475`*^9, 3.725358722002119*^9}, {
   3.725359259833717*^9, 3.7253592641422577`*^9}, {3.725359303075001*^9, 
   3.7253594977539196`*^9}, {3.725359667837347*^9, 3.7253596843962855`*^9}, {
   3.725359769085823*^9, 3.725359774723226*^9}, {3.7253598867587504`*^9, 
   3.725360090119934*^9}, {3.7253601911478004`*^9, 3.725360201610921*^9}, {
   3.7253602509488735`*^9, 3.725360338316792*^9}, 3.7253603946600647`*^9, {
   3.7253604280476933`*^9, 3.7253604623676414`*^9}, {3.725360523612981*^9, 
   3.7253605546502037`*^9}, {3.725360608089106*^9, 3.725360608870366*^9}, {
   3.7253609972104635`*^9, 3.725361027326471*^9}, {3.7253613723330755`*^9, 
   3.725361398535841*^9}, {3.7253614361316347`*^9, 3.7253614680868683`*^9}, {
   3.7253615338839464`*^9, 3.7253615603067007`*^9}, {3.725790788052837*^9, 
   3.725790835837775*^9}, {3.7257914178521547`*^9, 3.7257914179832487`*^9}, {
   3.725803211811166*^9, 3.725803213091075*^9}, {3.725804801698896*^9, 
   3.7258048320650606`*^9}, {3.725805194800896*^9, 3.725805273040206*^9}, {
   3.7258056080197487`*^9, 3.725805614472619*^9}, {3.7258059454180155`*^9, 
   3.72580594639954*^9}, {3.725806002384939*^9, 3.725806016576393*^9}, {
   3.7258060555282793`*^9, 3.7258060566716547`*^9}, {3.7258729497406845`*^9, 
   3.7258730063350925`*^9}, {3.7258730799921894`*^9, 3.725873084710993*^9}, {
   3.725873173010481*^9, 3.7258731740574703`*^9}, {3.725873271539382*^9, 
   3.725873328080553*^9}, {3.7258735493859158`*^9, 3.725873549557793*^9}, {
   3.725873585899628*^9, 3.7258736007952075`*^9}, {3.725873667781858*^9, 
   3.7258736687038116`*^9}, {3.7258761743331347`*^9, 
   3.7258761806325655`*^9}, {3.725876317786642*^9, 3.7258763306937723`*^9}, {
   3.725976612643123*^9, 3.7259766131720304`*^9}, {3.725977667922711*^9, 
   3.7259776738775177`*^9}, {3.725978540535078*^9, 3.7259785436316776`*^9}, {
   3.725979936995655*^9, 3.725979965136605*^9}, {3.725980329609564*^9, 
   3.7259803296720643`*^9}, 3.726050105821583*^9, 3.7260501402399845`*^9, {
   3.7260502182673044`*^9, 3.726050290147246*^9}, {3.7260503879243946`*^9, 
   3.7260503882526455`*^9}, {3.726050496547405*^9, 3.726050513987771*^9}, {
   3.7260508690577884`*^9, 3.7260508732827835`*^9}, {3.7260510642066784`*^9, 
   3.726051069674574*^9}, {3.726141209576623*^9, 3.7261412209516525`*^9}, {
   3.726141642878484*^9, 3.726141648144153*^9}, {3.7261417184418573`*^9, 
   3.7261417213481765`*^9}, {3.7261424451482143`*^9, 
   3.7261424543135595`*^9}, {3.726142843912047*^9, 3.726142844099619*^9}, {
   3.726143054597003*^9, 3.726143055081335*^9}, {3.726143110611637*^9, 
   3.7261431159206033`*^9}, {3.7261431470179787`*^9, 
   3.7261431685112715`*^9}, {3.7261432135730267`*^9, 
   3.7261432205363703`*^9}, {3.726143317766942*^9, 3.7261433540951104`*^9}, 
   3.7261437254928827`*^9, {3.7261439800800977`*^9, 3.726143983201419*^9}, {
   3.7261446859720154`*^9, 3.7261446936060414`*^9}, {3.7261494655566688`*^9, 
   3.7261495761066523`*^9}, {3.7261500720059958`*^9, 
   3.7261500917775564`*^9}, {3.726150135657588*^9, 3.7261501623033557`*^9}, 
   3.726155043987031*^9, {3.7261550774868608`*^9, 3.7261551119239225`*^9}, {
   3.726155680532975*^9, 3.726155689017646*^9}, {3.7261557335736785`*^9, 
   3.7261557338080387`*^9}, {3.726155764578431*^9, 3.726155764578431*^9}, {
   3.726480878783015*^9, 3.726480879807556*^9}, 3.7265049896176596`*^9, {
   3.7265058299477015`*^9, 3.7265058319175787`*^9}, {3.728982410804063*^9, 
   3.728982417302678*^9}, {3.729280890387351*^9, 3.729280895305423*^9}, {
   3.7292810272435794`*^9, 
   3.729281027929741*^9}},ExpressionUUID->"f329640b-e1b8-4c16-b7cb-\
1d005409fc6d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"typeUpd", "[", 
    RowBox[{"lanein_List", ",", 
     RowBox[{"{", 
      RowBox[{"cvmax_", ",", "tvmax_", ",", "track_", ",", "brakeprob_"}], 
      "}"}]}], "]"}], ":=", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"lane", "=", "lanein"}], ";", "\[IndentingNewLine]", 
     RowBox[{"output", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", "track"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"Which", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"lane", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "1"}], " ", "&&",
            " ", 
           RowBox[{
            RowBox[{"lane", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2"}], "]"}], "]"}], "<", "cvmax"}]}], ")"}], 
         ",", 
         RowBox[{
          RowBox[{"lane", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}], "+=", "1"}], ",", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"lane", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "2"}], " ", "&&",
            " ", 
           RowBox[{
            RowBox[{"lane", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2"}], "]"}], "]"}], "<", "tvmax"}]}], ")"}], 
         ",", 
         RowBox[{
          RowBox[{"lane", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}], "+=", "1"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "track"}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"lane", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ",
           "&&", " ", 
          RowBox[{
           RowBox[{"RandomReal", "[", "]"}], "<", "brakeprob"}], "&&", 
          RowBox[{
           RowBox[{"lane", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2"}], "]"}], "]"}], ">", "0"}]}], ",", 
         RowBox[{
          RowBox[{"lane", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}], "-=", "1"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "track"}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"lane", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[NotEqual]", "0"}], ",", 
         RowBox[{"Do", "[", 
          RowBox[{
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"lane", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"Mod", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"i", "+", "j", "-", "1"}], ")"}], ",", "track"}], 
                   "]"}], "+", "1"}], ",", "1"}], "]"}], "]"}], "\[NotEqual]",
               "0"}], ",", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"lane", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "2"}], "]"}], "]"}], "=", 
                RowBox[{"(", 
                 RowBox[{"j", "-", "1"}], ")"}]}], ";", 
               RowBox[{"Break", "[", "]"}]}], ")"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"j", ",", "1", ",", 
             RowBox[{"lane", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}]}], "]"}]}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "track"}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"lane", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[NotEqual]", "0"}], ",", 
         RowBox[{
          RowBox[{"output", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"Mod", "[", 
              RowBox[{
               RowBox[{"i", "+", 
                RowBox[{"lane", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", "1"}], ",", 
               "track"}], "]"}], "+", "1"}], "]"}], "]"}], "=", 
          RowBox[{"lane", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "track"}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "output", "]"}], ";"}], "\[IndentingNewLine]", 
    ")"}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.72648041891625*^9, 3.726480481335976*^9}, {
   3.726480516813945*^9, 3.7264805679256277`*^9}, {3.726480669859609*^9, 
   3.7264807086091943`*^9}, {3.7264808926443768`*^9, 3.726480942273508*^9}, 
   3.7265045273948603`*^9, 3.726504603358471*^9, {3.7265058360796556`*^9, 
   3.72650583760428*^9}, {3.728982432001135*^9, 3.7289824372418404`*^9}, {
   3.7292809842597513`*^9, 3.7292809846495385`*^9}, {3.7292810393484*^9, 
   3.729281043545608*^9}, {3.7292810743066783`*^9, 
   3.729281074794729*^9}},ExpressionUUID->"2731a75d-e0bb-4bca-85c5-\
3e6a926bdc4c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"howManyAhead", "[", 
    RowBox[{"road_List", ",", "l_", ",", "i_", ",", 
     RowBox[{"{", 
      RowBox[{"track_", ",", "lanes_"}], "}"}]}], "]"}], ":=", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"output", "=", 
      RowBox[{"{", 
       RowBox[{"\"\<null\>\"", ",", "\"\<null\>\"", ",", "\"\<null\>\""}], 
       "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"road", "[", 
             RowBox[{"[", 
              RowBox[{"l", ",", 
               RowBox[{
                RowBox[{"Mod", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"i", "+", "j", "-", "1"}], ")"}], ",", "track"}], 
                 "]"}], "+", "1"}], ",", "1"}], "]"}], "]"}], "\[NotEqual]", 
            "0"}], " ", "&&", 
           RowBox[{
            RowBox[{"output", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "\"\<null\>\""}]}], 
          ",", 
          RowBox[{
           RowBox[{"output", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "=", 
           RowBox[{"j", "-", "1"}]}]}], "]"}], ";", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"l", "\[NotEqual]", "1"}], ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"road", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"l", "-", "1"}], ",", 
                 RowBox[{
                  RowBox[{"Mod", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"i", "+", "j", "-", "1"}], ")"}], ",", "track"}], 
                   "]"}], "+", "1"}], ",", "1"}], "]"}], "]"}], "\[NotEqual]",
               "0"}], " ", "&&", 
             RowBox[{
              RowBox[{"output", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "\"\<null\>\""}]}],
             ",", 
            RowBox[{
             RowBox[{"output", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "=", 
             RowBox[{"j", "-", "1"}]}]}], "]"}]}], "]"}], ";", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"l", "\[NotEqual]", "lanes"}], ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"road", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"l", "+", "1"}], ",", 
                 RowBox[{
                  RowBox[{"Mod", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"i", "+", "j", "-", "1"}], ")"}], ",", "track"}], 
                   "]"}], "+", "1"}], ",", "1"}], "]"}], "]"}], "\[NotEqual]",
               "0"}], " ", "&&", 
             RowBox[{
              RowBox[{"output", "[", 
               RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "\"\<null\>\""}]}],
             ",", 
            RowBox[{
             RowBox[{"output", "[", 
              RowBox[{"[", "3", "]"}], "]"}], "=", 
             RowBox[{"j", "-", "1"}]}]}], "]"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", 
         RowBox[{"road", "[", 
          RowBox[{"[", 
           RowBox[{"l", ",", "i", ",", "2"}], "]"}], "]"}]}], "}"}]}], "]"}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"output", "[", 
           RowBox[{"[", "k", "]"}], "]"}], "\[Equal]", "\"\<null\>\""}], ",", 
         RowBox[{
          RowBox[{"output", "[", 
           RowBox[{"[", "k", "]"}], "]"}], "=", 
          RowBox[{"road", "[", 
           RowBox[{"[", 
            RowBox[{"l", ",", "i", ",", "2"}], "]"}], "]"}]}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "1", ",", "3"}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"l", "\[Equal]", "1"}], ",", 
       RowBox[{
        RowBox[{"output", "[", 
         RowBox[{"[", "2", "]"}], "]"}], "=", "0"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"l", "\[Equal]", "lanes"}], ",", 
       RowBox[{
        RowBox[{"output", "[", 
         RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "output", "]"}], ";"}], "\[IndentingNewLine]", 
    ")"}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQA2IQ/Z757yfGE68dz+Ve/gKivz2N+gWi/fjWg+kY/dj/
IHqmIQ8nE5BeuqCVH0Q/NKsUBNE+HfdlQbQfs58iiJbb/S/JCERnWqWAaJ3D
DSUg2jX5RgOIfvnkURuINu78Ph1Eq/kyzwXRFqoiYJpR9vRqEC06k2ktiD72
Ys9mEB2x8+1WEM2ftu4AiG748uEoiLbbe/8uiPZpqXoAoi+d03gKoh+ZXgPT
6eUvXoPoif2Sn0A0n1rkNxCdcK7kO4g+zzxZ2gRIm8t80wTRu6xYjUF0PB+X
OYiuulwYAaLZj14F06svNcWD6JKps8D0/aXJ6SBaLLqgDkRzf69pBdF9y1f1
gGgAh7y3wg==
  "],ExpressionUUID->"2bdfc504-0598-4843-b0a3-dd699b4fe45b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"multiUpd", "[", 
   RowBox[{"roadin_List", ",", 
    RowBox[{"{", 
     RowBox[{
     "cvmax_", ",", "tvmax_", ",", "track_", ",", "brakeprob_", ",", 
      "lanes_"}], "}"}]}], "]"}], ":=", 
  RowBox[{"(", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"road", "=", "roadin"}], ";", "\[IndentingNewLine]", 
    RowBox[{"output", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", "track"}], "]"}], ",", 
       "lanes"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"distances", "=", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{"Which", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"road", "[", 
            RowBox[{"[", 
             RowBox[{"l", ",", "i", ",", "1"}], "]"}], "]"}], "\[Equal]", 
           "1"}], " ", "&&", " ", 
          RowBox[{
           RowBox[{"road", "[", 
            RowBox[{"[", 
             RowBox[{"l", ",", "i", ",", "2"}], "]"}], "]"}], "<", 
           "cvmax"}]}], ")"}], ",", 
        RowBox[{
         RowBox[{"road", "[", 
          RowBox[{"[", 
           RowBox[{"l", ",", "i", ",", "2"}], "]"}], "]"}], "+=", "1"}], ",", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"road", "[", 
            RowBox[{"[", 
             RowBox[{"l", ",", "i", ",", "1"}], "]"}], "]"}], "\[Equal]", 
           "2"}], " ", "&&", " ", 
          RowBox[{
           RowBox[{"road", "[", 
            RowBox[{"[", 
             RowBox[{"l", ",", "i", ",", "2"}], "]"}], "]"}], "<", 
           "tvmax"}]}], ")"}], ",", 
        RowBox[{
         RowBox[{"road", "[", 
          RowBox[{"[", 
           RowBox[{"l", ",", "i", ",", "2"}], "]"}], "]"}], "+=", "1"}]}], 
       "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "track"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"l", ",", "1", ",", "lanes"}], "}"}]}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"road", "[", 
           RowBox[{"[", 
            RowBox[{"l", ",", "i", ",", "1"}], "]"}], "]"}], "\[NotEqual]", 
          "0"}], " ", "&&", " ", 
         RowBox[{
          RowBox[{"RandomReal", "[", "]"}], "<", "brakeprob"}], "&&", 
         RowBox[{
          RowBox[{"road", "[", 
           RowBox[{"[", 
            RowBox[{"l", ",", "i", ",", "2"}], "]"}], "]"}], ">", "0"}]}], 
        ",", 
        RowBox[{
         RowBox[{"road", "[", 
          RowBox[{"[", 
           RowBox[{"l", ",", "i", ",", "2"}], "]"}], "]"}], "-=", "1"}]}], 
       "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "track"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"l", ",", "1", ",", "lanes"}], "}"}]}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"road", "[", 
           RowBox[{"[", 
            RowBox[{"l", ",", "i", ",", "1"}], "]"}], "]"}], "\[NotEqual]", 
          "0"}], "&&", 
         RowBox[{
          RowBox[{"Length", "[", 
           RowBox[{"road", "[", 
            RowBox[{"[", 
             RowBox[{"l", ",", "i"}], "]"}], "]"}], "]"}], "\[Equal]", 
          "2"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"distances", "=", 
          RowBox[{"howManyAhead", "[", 
           RowBox[{"road", ",", "l", ",", "i", ",", 
            RowBox[{"{", 
             RowBox[{"track", ",", "lanes"}], "}"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"distances", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "<", 
            RowBox[{"distances", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"distances", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "<", 
              RowBox[{"distances", "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], ",", "  ", 
             RowBox[{"(*", 
              RowBox[{
               RowBox[{
               "Contains", " ", "preference", " ", "to", " ", "keep", " ", 
                "to", " ", "the"}], " ", "-", 
               RowBox[{"1", " ", "side"}]}], "*)"}], "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"road", "[", 
                RowBox[{"[", 
                 RowBox[{"l", ",", "i", ",", "2"}], "]"}], "]"}], "=", 
               RowBox[{"distances", "[", 
                RowBox[{"[", "3", "]"}], "]"}]}], ";", 
              RowBox[{
               RowBox[{"road", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"l", "+", "1"}], ",", 
                  RowBox[{
                   RowBox[{"Mod", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"i", "+", 
                    RowBox[{"distances", "[", 
                    RowBox[{"[", "3", "]"}], "]"}], "-", "1"}], ")"}], ",", 
                    "track"}], "]"}], "+", "1"}]}], "]"}], "]"}], "=", 
               RowBox[{"AppendTo", "[", 
                RowBox[{
                 RowBox[{"road", "[", 
                  RowBox[{"[", 
                   RowBox[{"l", ",", "i"}], "]"}], "]"}], ",", 
                 "\"\<moved\>\""}], "]"}]}], ";", 
              RowBox[{
               RowBox[{"road", "[", 
                RowBox[{"[", 
                 RowBox[{"l", ",", "i"}], "]"}], "]"}], "=", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}]}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"road", "[", 
                RowBox[{"[", 
                 RowBox[{"l", ",", "i", ",", "2"}], "]"}], "]"}], "=", 
               RowBox[{"distances", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], ";", 
              RowBox[{
               RowBox[{"road", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"l", "-", "1"}], ",", 
                  RowBox[{
                   RowBox[{"Mod", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"i", "+", 
                    RowBox[{"distances", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "-", "1"}], ")"}], ",", 
                    "track"}], "]"}], "+", "1"}]}], "]"}], "]"}], "=", 
               RowBox[{"AppendTo", "[", 
                RowBox[{
                 RowBox[{"road", "[", 
                  RowBox[{"[", 
                   RowBox[{"l", ",", "i"}], "]"}], "]"}], ",", 
                 "\"\<moved\>\""}], "]"}]}], ";", 
              RowBox[{
               RowBox[{"road", "[", 
                RowBox[{"[", 
                 RowBox[{"l", ",", "i"}], "]"}], "]"}], "=", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}]}]}]}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"distances", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "<", 
              RowBox[{"distances", "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"road", "[", 
                RowBox[{"[", 
                 RowBox[{"l", ",", "i", ",", "2"}], "]"}], "]"}], "=", 
               RowBox[{"distances", "[", 
                RowBox[{"[", "3", "]"}], "]"}]}], ";", 
              RowBox[{
               RowBox[{"road", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"l", "+", "1"}], ",", 
                  RowBox[{
                   RowBox[{"Mod", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"i", "+", 
                    RowBox[{"distances", "[", 
                    RowBox[{"[", "3", "]"}], "]"}], "-", "1"}], ")"}], ",", 
                    "track"}], "]"}], "+", "1"}]}], "]"}], "]"}], "=", 
               RowBox[{"AppendTo", "[", 
                RowBox[{
                 RowBox[{"road", "[", 
                  RowBox[{"[", 
                   RowBox[{"l", ",", "i"}], "]"}], "]"}], ",", 
                 "\"\<moved\>\""}], "]"}]}], ";", 
              RowBox[{
               RowBox[{"road", "[", 
                RowBox[{"[", 
                 RowBox[{"l", ",", "i"}], "]"}], "]"}], "=", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}]}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"road", "[", 
                RowBox[{"[", 
                 RowBox[{"l", ",", "i", ",", "2"}], "]"}], "]"}], "=", 
               RowBox[{"distances", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], ";", 
              RowBox[{
               RowBox[{"road", "[", 
                RowBox[{"[", 
                 RowBox[{"l", ",", 
                  RowBox[{
                   RowBox[{"Mod", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"i", "+", 
                    RowBox[{"distances", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "-", "1"}], ")"}], ",", 
                    "track"}], "]"}], "+", "1"}]}], "]"}], "]"}], "=", 
               RowBox[{"AppendTo", "[", 
                RowBox[{
                 RowBox[{"road", "[", 
                  RowBox[{"[", 
                   RowBox[{"l", ",", "i"}], "]"}], "]"}], ",", 
                 "\"\<moved\>\""}], "]"}]}], ";", 
              RowBox[{
               RowBox[{"road", "[", 
                RowBox[{"[", 
                 RowBox[{"l", ",", "i"}], "]"}], "]"}], "=", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}]}]}]}], "]"}]}], "]"}]}]}], 
       "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "track"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"l", ",", "1", ",", "lanes"}], "}"}]}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Length", "[", 
          RowBox[{"road", "[", 
           RowBox[{"[", 
            RowBox[{"l", ",", "i"}], "]"}], "]"}], "]"}], "\[Equal]", "3"}], 
        ",", 
        RowBox[{
         RowBox[{"road", "[", 
          RowBox[{"[", 
           RowBox[{"l", ",", "i"}], "]"}], "]"}], "=", 
         RowBox[{"First", "[", 
          RowBox[{"Partition", "[", 
           RowBox[{
            RowBox[{"road", "[", 
             RowBox[{"[", 
              RowBox[{"l", ",", "i"}], "]"}], "]"}], ",", "2"}], "]"}], 
          "]"}]}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "track"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"l", ",", "1", ",", "lanes"}], "}"}]}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Return", "[", "road", "]"}], ";"}], "\[IndentingNewLine]", 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.726504889351117*^9, 3.726504959460001*^9}, {
   3.7265050310791116`*^9, 3.726505094445981*^9}, {3.726505141864297*^9, 
   3.7265052056576333`*^9}, {3.7265052756075854`*^9, 3.726505336592636*^9}, {
   3.7265053710476165`*^9, 3.726505408349532*^9}, 3.726505843785757*^9, {
   3.726506091243373*^9, 3.726506092455451*^9}, 3.7283789654755793`*^9, {
   3.728379418250642*^9, 3.728379427567762*^9}, {3.7283796044957757`*^9, 
   3.7283796182800736`*^9}, {3.7283796726210785`*^9, 3.728379775406513*^9}, {
   3.728379849352269*^9, 3.7283798847486086`*^9}, {3.728379930496123*^9, 
   3.7283799483030806`*^9}, {3.728380069939682*^9, 3.7283801598193817`*^9}, {
   3.728380469958152*^9, 3.7283804927865047`*^9}, {3.7283810665886188`*^9, 
   3.728381080325712*^9}, 3.728381121145562*^9, {3.728381187055047*^9, 
   3.7283812226802635`*^9}, {3.728381464255355*^9, 3.7283814897192917`*^9}, {
   3.7283815337707624`*^9, 3.7283815843284025`*^9}, {3.7283816558086805`*^9, 
   3.72838166731221*^9}, {3.7283817524627447`*^9, 3.7283818231178265`*^9}, {
   3.728410729796359*^9, 3.7284107563622084`*^9}, {3.728410837848953*^9, 
   3.728410966179084*^9}, {3.728411021485383*^9, 3.7284110396592717`*^9}, {
   3.728411207119212*^9, 3.7284112181450615`*^9}, {3.7284116185695763`*^9, 
   3.7284116367794905`*^9}, {3.728411731101502*^9, 3.728411892161877*^9}, {
   3.728412015680626*^9, 3.7284120536616025`*^9}, {3.7284120943684964`*^9, 
   3.728412096696149*^9}, {3.728412181473363*^9, 3.7284122388161097`*^9}, {
   3.728412292364143*^9, 3.7284123165082903`*^9}, {3.728479909257481*^9, 
   3.7284799119286366`*^9}, 3.7284814568211365`*^9, {3.728481535077636*^9, 
   3.7284815812283545`*^9}, {3.728481955457037*^9, 3.7284819889357357`*^9}, {
   3.728482060507373*^9, 3.7284821121130934`*^9}, {3.7284821595230045`*^9, 
   3.7284822280379505`*^9}, {3.7284822696691046`*^9, 
   3.7284822906229424`*^9}, {3.728482478885442*^9, 3.7284825362110195`*^9}, {
   3.7284825729624176`*^9, 3.728482595878955*^9}, {3.728482767691744*^9, 
   3.728482780788122*^9}, {3.7284828201988277`*^9, 3.7284828334412374`*^9}, {
   3.7284828884743705`*^9, 3.7284830170469313`*^9}, {3.7284830474394293`*^9, 
   3.728483052183221*^9}, {3.7284830829387383`*^9, 3.72848308730091*^9}, {
   3.728483164855609*^9, 3.7284831908258257`*^9}, {3.728483244652974*^9, 
   3.7284832911737213`*^9}, {3.728483404271734*^9, 3.7284834086962204`*^9}, {
   3.7284837662886515`*^9, 3.7284838956391134`*^9}, {3.7284839799763923`*^9, 
   3.7284839801094866`*^9}, {3.7286354404591365`*^9, 3.728635442863244*^9}, {
   3.7286362582880697`*^9, 3.7286363248163285`*^9}, {3.7286363602211313`*^9, 
   3.728636399042618*^9}, {3.728636442810043*^9, 3.7286365933806963`*^9}, {
   3.728636648015727*^9, 3.728636684553645*^9}, 3.7286367189913826`*^9, {
   3.7286372261752396`*^9, 3.7286372778572073`*^9}, {3.728637311761671*^9, 
   3.7286374022670135`*^9}, {3.7286382303370895`*^9, 
   3.7286383344730406`*^9}, {3.728638388039098*^9, 3.728638480116479*^9}, {
   3.728638774396494*^9, 3.7286388020881624`*^9}, {3.72863883737224*^9, 
   3.7286388423757935`*^9}, {3.7286395498208385`*^9, 
   3.7286396171826825`*^9}, {3.7286396646888437`*^9, 3.728639747027332*^9}, 
   3.7286398015404015`*^9, 3.7287153468033004`*^9, {3.7287377244534707`*^9, 
   3.7287379246946774`*^9}, {3.728737979827836*^9, 3.728738010382983*^9}, {
   3.7287380686673803`*^9, 3.7287380719036665`*^9}, {3.728738118708922*^9, 
   3.728738327452183*^9}, {3.7287383579558315`*^9, 3.7287383610440245`*^9}, 
   3.7287384005571065`*^9, {3.72873913853935*^9, 3.7287392685246897`*^9}, {
   3.7287393493360715`*^9, 3.7287393586967354`*^9}, {3.7287394435137033`*^9, 
   3.72873958674045*^9}, {3.72873965588456*^9, 3.7287397100470123`*^9}, {
   3.728739745521225*^9, 3.7287398267836337`*^9}, 3.7287398624259233`*^9, 
   3.728740124567111*^9, 3.728740472567281*^9, {3.7288409551199255`*^9, 
   3.728841177655966*^9}, {3.7288412241450014`*^9, 3.72884122936471*^9}, {
   3.728841574239642*^9, 3.72884158213927*^9}, {3.728841753286829*^9, 
   3.728841843884107*^9}, {3.7288418799447374`*^9, 3.7288421007315493`*^9}, {
   3.728842279807726*^9, 3.7288422968108196`*^9}, {3.7288423304597015`*^9, 
   3.7288424089724655`*^9}, {3.7288424539224043`*^9, 
   3.7288426301946077`*^9}, {3.7288427302681007`*^9, 3.728842751643265*^9}, {
   3.7288428017298555`*^9, 3.728842816579403*^9}, {3.7288439696645236`*^9, 
   3.728843971726005*^9}},ExpressionUUID->"43f2ebbf-b55a-4d52-b9ef-\
486550832a0b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"generateTraffic", "[", 
   RowBox[{
   "seed_", ",", "frequency_", ",", "vmax_", ",", "brakeprob_", ",", "trac_", 
    ",", "iterations_"}], "]"}], ":=", 
  RowBox[{"(", "\[IndentingNewLine]", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"track", "=", "trac"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"ListQ", "[", "seed", "]"}], ",", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"road", "=", "seed"}], ";", 
          RowBox[{"track", "=", 
           RowBox[{"Length", "[", "seed", "]"}]}]}], ")"}], ",", 
        RowBox[{"road", "=", 
         RowBox[{"generateSeed", "[", 
          RowBox[{"frequency", ",", "vmax", ",", "track"}], "]"}]}]}], "]"}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"traffic", "=", 
       RowBox[{"NestList", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"upd", "[", 
           RowBox[{"#", ",", 
            RowBox[{"{", 
             RowBox[{"vmax", ",", "track", ",", "brakeprob"}], "}"}]}], "]"}],
           "&"}], ",", "road", ",", "iterations"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", "traffic", "]"}], ";"}]}], "\[IndentingNewLine]",
     "]"}], "\[IndentingNewLine]", ")"}]}]], "Input",
 CellChangeTimes->{{3.7261460764631395`*^9, 3.72614609711519*^9}, {
   3.7261461982613287`*^9, 3.726146200995734*^9}, {3.726147060859245*^9, 
   3.7261471591777143`*^9}, {3.7261472571391172`*^9, 3.726147287922369*^9}, {
   3.726147509539319*^9, 3.726147518223955*^9}, {3.7261491568863955`*^9, 
   3.7261491620361137`*^9}, {3.7261492771212254`*^9, 3.726149294212901*^9}, {
   3.726149373355793*^9, 3.726149373558923*^9}, {3.7261549066572695`*^9, 
   3.726154935351883*^9}, {3.7261549786933584`*^9, 3.726154988330369*^9}, {
   3.7261551508949137`*^9, 3.7261552118895874`*^9}, {3.726155286188565*^9, 
   3.726155288938651*^9}, {3.7261553374196343`*^9, 3.72615533984603*^9}, {
   3.726155846075816*^9, 3.7261558777634726`*^9}, {3.7261559124796047`*^9, 
   3.726155970509078*^9}, {3.7261560030864325`*^9, 3.726156068499673*^9}, {
   3.7261561156270585`*^9, 3.726156131924241*^9}, {3.7261561823852487`*^9, 
   3.7261561904577923`*^9}, {3.7261562298818483`*^9, 
   3.7261562305380898`*^9}, {3.726156492080737*^9, 3.726156493783886*^9}, {
   3.726156536333841*^9, 3.726156538037279*^9}, {3.7261566514074955`*^9, 
   3.726156694672679*^9}, {3.7261578785009747`*^9, 3.726157920379667*^9}, {
   3.7261649167900543`*^9, 3.7261649241575828`*^9}, {3.7261651881313715`*^9, 
   3.7261652266579905`*^9}, {3.726169246231587*^9, 3.72616927202534*^9}, {
   3.726170231526024*^9, 3.7261702602239695`*^9}, 3.726170503984544*^9, 
   3.72633302962702*^9, 3.726480029504977*^9, 3.7265039842216377`*^9, 
   3.72650585988883*^9, {3.728982461543106*^9, 3.7289824677044744`*^9}, 
   3.728982508696598*^9},ExpressionUUID->"e1a0b683-dffb-4faa-ab6f-\
ea9bdedf6032"],

Cell[BoxData[
 RowBox[{
  RowBox[{"generateTypeTraffic", "[", 
   RowBox[{
   "seed_", ",", "frequency_", ",", "cvmax_", ",", "tvmax_", ",", 
    "brakeprob_", ",", "truckratio_", ",", "trac_", ",", "iterations_"}], 
   "]"}], ":=", 
  RowBox[{"(", "\[IndentingNewLine]", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"track", "=", "trac"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"ListQ", "[", "seed", "]"}], ",", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"road", "=", "seed"}], ";", 
          RowBox[{"track", "=", 
           RowBox[{"Length", "[", "seed", "]"}]}]}], ")"}], ",", 
        RowBox[{"road", "=", 
         RowBox[{"generateTypeSeed", "[", 
          RowBox[{
          "frequency", ",", "cvmax", ",", "tvmax", ",", "truckratio", ",", 
           "track"}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"traffic", "=", 
       RowBox[{"NestList", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"typeUpd", "[", 
           RowBox[{"#", ",", 
            RowBox[{"{", 
             RowBox[{"cvmax", ",", "tvmax", ",", "track", ",", "brakeprob"}], 
             "}"}]}], "]"}], "&"}], ",", "road", ",", "iterations"}], "]"}]}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"Return", "[", "traffic", "]"}], ";"}]}], "\[IndentingNewLine]",
     "]"}], "\[IndentingNewLine]", ")"}]}]], "Input",
 CellChangeTimes->{{3.7264811264052477`*^9, 3.7264812881312666`*^9}, {
   3.7264813427246485`*^9, 3.726481391429507*^9}, 3.7265046033619957`*^9, 
   3.726504680115556*^9, 3.7265047498031025`*^9, 3.7265058663538866`*^9, {
   3.728844089900939*^9, 3.7288440918653355`*^9}, {3.7289825289760113`*^9, 
   3.728982535235458*^9}},ExpressionUUID->"b0b4308a-fb9a-45ad-9188-\
65770fa365e4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"generateMultiTraffic", "[", 
   RowBox[{
   "seed_", ",", "frequency_", ",", "cvmax_", ",", "tvmax_", ",", 
    "brakeprob_", ",", "truckratio_", ",", "trac_", ",", "lane_", ",", 
    "iterations_"}], "]"}], ":=", 
  RowBox[{"(", "\[IndentingNewLine]", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"track", "=", "trac"}], ",", 
       RowBox[{"lanes", "=", "lane"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"ListQ", "[", "seed", "]"}], ",", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"road", "=", "seed"}], ";", 
          RowBox[{"lanes", "=", 
           RowBox[{"Length", "[", "seed", "]"}]}], ";", 
          RowBox[{"track", "=", 
           RowBox[{"Length", "[", 
            RowBox[{"seed", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ")"}], ",", 
        RowBox[{"road", "=", 
         RowBox[{"generateTypeMultiSeed", "[", 
          RowBox[{
          "frequency", ",", "cvmax", ",", "tvmax", ",", "truckratio", ",", 
           "track", ",", "lanes"}], "]"}]}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"traffic", "=", 
       RowBox[{"NestList", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"multiUpd", "[", 
           RowBox[{"#", ",", 
            RowBox[{"{", 
             RowBox[{
             "cvmax", ",", "tvmax", ",", "track", ",", "brakeprob", ",", 
              "lanes"}], "}"}]}], "]"}], "&"}], ",", "road", ",", 
         "iterations"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Return", "[", "traffic", "]"}], ";"}]}], "\[IndentingNewLine]",
     "]"}], "\[IndentingNewLine]", ")"}]}]], "Input",
 CellChangeTimes->{{3.7288440971380796`*^9, 3.728844356783476*^9}, {
  3.72884440335157*^9, 3.728844537480938*^9}, {3.728982540328074*^9, 
  3.728982540845423*^9}, {3.7307501045745277`*^9, 
  3.7307501059999685`*^9}},ExpressionUUID->"33ab8977-79f4-480f-879b-\
20853bd08edb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"testSeed", "=", 
   RowBox[{"generateSeed", "[", 
    RowBox[{"0.2", ",", "5", ",", "300"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"testTypeSeed", "=", 
   RowBox[{"generateTypeSeed", "[", 
    RowBox[{"0.2", ",", "5", ",", "3", ",", "0.2", ",", "300"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"testMultiSeed", "=", 
   RowBox[{"generateMultiSeed", "[", 
    RowBox[{"0.2", ",", "5", ",", "3", ",", "0", ",", "300", ",", "4"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"testTraffic", "=", 
   RowBox[{"generateTraffic", "[", 
    RowBox[{
    "\"\<random\>\"", ",", "0.2", ",", "5", ",", "0.1", ",", "300", ",", 
     "300"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"testTypeTraffic", "=", 
   RowBox[{"generateTypeTraffic", "[", 
    RowBox[{
    "\"\<random\>\"", ",", "0.2", ",", "5", ",", "3", ",", "0.1", ",", "0.2", 
     ",", "300", ",", "300"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"testMultiTraffic", "=", 
   RowBox[{"generateMultiTraffic", "[", 
    RowBox[{
    "\"\<random\>\"", ",", ".2", ",", "6", ",", "4", ",", "0.1", ",", ".2", 
     ",", "300", ",", "6", ",", "500"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.726333910535424*^9, 3.7263339118380666`*^9}, {
   3.726478026810833*^9, 3.726478029703041*^9}, {3.7264850595602612`*^9, 
   3.726485084434621*^9}, {3.7264851190903044`*^9, 3.7264851950060053`*^9}, {
   3.726486419129594*^9, 3.726486460833873*^9}, {3.726486523632987*^9, 
   3.7264865297776456`*^9}, {3.726486594098403*^9, 3.726486613269822*^9}, {
   3.726486720516347*^9, 3.7264868236232862`*^9}, {3.726487862787107*^9, 
   3.726487863028833*^9}, {3.726488280064027*^9, 3.72648830965098*^9}, {
   3.7265029409881015`*^9, 3.7265029533578887`*^9}, 3.726503984224141*^9, {
   3.7265046319331207`*^9, 3.72650464559115*^9}, {3.7265046801130543`*^9, 
   3.726504718606142*^9}, 3.7265047497930946`*^9, {3.728844546952665*^9, 
   3.72884469572132*^9}, {3.728844760360239*^9, 3.728844780862784*^9}, {
   3.728847299556979*^9, 3.7288473054501843`*^9}, {3.7291851425466623`*^9, 
   3.7291851525331817`*^9}, {3.7291851856878667`*^9, 3.729185207075999*^9}, {
   3.729280967009641*^9, 3.7292809671128235`*^9}, {3.72928114585812*^9, 
   3.7292811459856873`*^9}, {3.7306357219533167`*^9, 3.730635741690784*^9}, {
   3.7306357848992977`*^9, 3.730635785447688*^9}, 3.730635881872697*^9, {
   3.730658623557573*^9, 3.7306586773608465`*^9}, {3.730745441106179*^9, 
   3.730745449104168*^9}, {3.7307454855169477`*^9, 3.7307454904855137`*^9}, {
   3.730750320682124*^9, 
   3.7307503538812156`*^9}},ExpressionUUID->"fa7460a8-f321-4f02-a843-\
f53adba05a9f"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"throughs", "=", 
    RowBox[{"Parallelize", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Mean", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"totalThroughput", "[", 
           RowBox[{"generateTraffic", "[", 
            RowBox[{
            "\"\<random\>\"", ",", "i", ",", "5", ",", ".1", ",", "200", ",", 
             "200"}], "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"k", ",", "1", ",", "20"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "0.50", ",", "0.01"}], "}"}]}], "]"}], 
     "]"}]}], ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.730289610089161*^9, 3.730289620636256*^9}, {
  3.730388832774274*^9, 3.7303888340461736`*^9}, {3.7303889320318522`*^9, 
  3.7303891738718357`*^9}, {3.73038938492894*^9, 3.7303893857494955`*^9}, {
  3.7303901443722615`*^9, 3.730390275557568*^9}, {3.730395124199992*^9, 
  3.730395350435871*^9}, {3.7304002540832644`*^9, 3.730400257311559*^9}, {
  3.7304012701329217`*^9, 3.730401333138725*^9}, {3.7304744387145233`*^9, 
  3.7304744469582753`*^9}, {3.730547271430382*^9, 
  3.7305472730586104`*^9}},ExpressionUUID->"72ed6a49-b78d-4634-ba7e-\
f671a1eeef96"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"speeds", "=", 
    RowBox[{"Parallelize", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Mean", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"averageSpeed", "[", 
           RowBox[{"generateTraffic", "[", 
            RowBox[{
            "\"\<random\>\"", ",", "i", ",", "5", ",", ".1", ",", "200", ",", 
             "200"}], "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"k", ",", "1", ",", "100"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "0.50", ",", "0.01"}], "}"}]}], "]"}], 
     "]"}]}], ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.730474449524891*^9, 
  3.730474452524932*^9}},ExpressionUUID->"42ce4ba7-8ef2-47de-8dc9-\
3100e8a1606b"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"brakes", "=", 
    RowBox[{"Parallelize", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Mean", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"totalThroughput", "[", 
           RowBox[{"generateTraffic", "[", 
            RowBox[{
            "\"\<random\>\"", ",", "i", ",", "5", ",", "j", ",", "200", ",", 
             "200"}], "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"k", ",", "1", ",", "20"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "0.30", ",", "0.01"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "0.03", ",", "0.30", ",", "0.03"}], "}"}]}], "]"}], 
     "]"}]}], ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7304013517929907`*^9, 3.730401360392105*^9}, {
  3.7304014363041058`*^9, 3.73040143687251*^9}, {3.730474454625724*^9, 
  3.730474458163272*^9}},ExpressionUUID->"6ca88c3e-7a1f-40fa-933a-\
f0ff38132aeb"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Mean", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"totalThroughput", "[", 
          RowBox[{"generateTraffic", "[", 
           RowBox[{
           "\"\<random\>\"", ",", "i", ",", "5", ",", "j", ",", "200", ",", 
            "200"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", "20"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.01", ",", "0.30", ",", "0.01"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "0.03", ",", "0.30", ",", "0.03"}], "}"}]}], "]"}], 
    "]"}], ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7306346404144807`*^9, 
  3.730634644099177*^9}},ExpressionUUID->"2f4e4d0f-c791-4bde-a64f-\
ba0b18f2ba05"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"typeSpeeds", "=", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Mean", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"averageSpeed", "[", 
          RowBox[{"generateTypeTraffic", "[", 
           RowBox[{
           "\"\<random\>\"", ",", "i", ",", "6", ",", "4", ",", ".1", ",", 
            ".2", ",", "200", ",", "200"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", "50"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.01", ",", "0.50", ",", "0.01"}], "}"}]}], "]"}], 
    "]"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.7306587735331163`*^9, 3.7306588768814554`*^9}, {
  3.730659392558123*^9, 3.730659392712858*^9}, {3.730659477103223*^9, 
  3.7306594827563004`*^9}, {3.7307047347632694`*^9, 
  3.730704738503453*^9}},ExpressionUUID->"25a0593f-7b96-4d01-bca4-\
e39b698a67ec"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"typeTraffs", "=", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Mean", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"totalThroughput", "[", 
          RowBox[{"generateTypeTraffic", "[", 
           RowBox[{
           "\"\<random\>\"", ",", "i", ",", "6", ",", "4", ",", ".1", ",", 
            ".2", ",", "200", ",", "200"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", "50"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.01", ",", "0.50", ",", "0.01"}], "}"}]}], "]"}], 
    "]"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.7306592413609595`*^9, 3.7306592524863524`*^9}, 
   3.730659475868428*^9, {3.73070474223624*^9, 
   3.730704747998979*^9}},ExpressionUUID->"8fba05ce-e704-43b7-8003-\
9279faa7c014"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"ratioTraffs", "=", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Mean", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"totalThroughput", "[", 
          RowBox[{"generateTypeTraffic", "[", 
           RowBox[{
           "\"\<random\>\"", ",", "i", ",", "6", ",", "4", ",", ".1", ",", 
            "j", ",", "200", ",", "200"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", "30"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.01", ",", "0.30", ",", "0.01"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "0.01", ",", "0.30", ",", "0.01"}], "}"}]}], "]"}], 
    "]"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.730659654745223*^9, 3.730659745358452*^9}, {
  3.730704761297041*^9, 
  3.7307047648896933`*^9}},ExpressionUUID->"fb079055-e281-4777-b1f1-\
c99d7f96cdae"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"Export", "[", 
    RowBox[{"\"\<type_traffic_dendsity.csv\>\"", ",", "typeTraffs"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<type_traffic_speed.csv\>\"", ",", "typeSpeeds"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<type_traffic_speed_dendsity.csv\>\"", ",", "speedsTraffs"}], 
    "]"}], "\[IndentingNewLine]", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<type_traffic_ratio_dendsity.csv\>\"", ",", "ratioTraffs"}], 
    "]"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.73066207130093*^9, 3.7306622367379236`*^9}, {
  3.730662267973957*^9, 3.7306622750317287`*^9}, {3.7307047935097218`*^9, 
  3.7307047970481954`*^9}},ExpressionUUID->"bc10527b-6709-4515-aa8e-\
237b3d3d2be5"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7307336577244186`*^9, 3.7307336970832577`*^9}, {
   3.730733747159599*^9, 3.730733750850443*^9}, 
   3.7307339115093546`*^9},ExpressionUUID->"aed0f1fe-a890-42a4-9ea0-\
378e5ca0c1f4"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.730733735130397*^9, 3.73073375779086*^9}, {
  3.7307338932003384`*^9, 
  3.730733915823821*^9}},ExpressionUUID->"8e5702bc-3609-47c5-9a0c-\
aabad6c7fb98"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"speedsTraffs", "=", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Mean", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"totalThroughput", "[", 
          RowBox[{"generateTypeTraffic", "[", 
           RowBox[{
           "\"\<random\>\"", ",", "i", ",", "v", ",", "5", ",", ".1", ",", 
            ".2", ",", "200", ",", "200"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", "30"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.01", ",", "0.30", ",", "0.01"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"v", ",", "1", ",", "8"}], "}"}]}], "]"}], "]"}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.7307345990678186`*^9, 3.7307346090934277`*^9}, {
   3.7307350220360966`*^9, 3.7307350240544367`*^9}, {3.7307368512052507`*^9, 
   3.730736901138568*^9}, 
   3.7307369387635174`*^9},ExpressionUUID->"9a0055e2-bd0c-48bf-9862-\
d728e3ced876"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"nunu", "=", 
    RowBox[{"Parallelize", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Mean", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"totalMultiThroughput", "[", 
           RowBox[{"generateMultiTraffic", "[", 
            RowBox[{
            "\"\<random\>\"", ",", "0.15", ",", "5", ",", "3", ",", "0.1", 
             ",", "0", ",", "200", ",", "n", ",", "200"}], "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"k", ",", "1", ",", "20"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"n", ",", "1", ",", "6"}], "}"}]}], "]"}], "]"}]}], ";"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.7307390000474677`*^9, 3.730739119311959*^9}, {
   3.730739154144188*^9, 3.7307392035007496`*^9}, 3.730739310063058*^9, 
   3.7307453803340597`*^9, 
   3.730745410769953*^9},ExpressionUUID->"00435052-2f4c-4b83-97a9-\
fe2c2312a83f"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"nunuu", "=", 
   RowBox[{
    RowBox[{"ListPlot", "[", 
     RowBox[{"nunu", ",", 
      RowBox[{"Joined", "\[Rule]", "True"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<number of lanes\>\"", ",", "\"\<throughput.\>\""}], 
        "}"}]}]}], "]"}], "\[IndentingNewLine]", 
    RowBox[{"Export", "[", 
     RowBox[{"\"\<nunu.jpg\>\"", ",", "nunuu"}], "]"}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.730739381302496*^9, 3.7307394213692026`*^9}, {
   3.730739463443296*^9, 3.7307395004466977`*^9}, 3.73074538145319*^9, 
   3.7307454121120343`*^9},ExpressionUUID->"967c550d-2087-462c-8199-\
fedf9a1d4c18"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"pupu", "=", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Mean", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"totalMultiThroughput", "[", 
          RowBox[{"generateMultiTraffic", "[", 
           RowBox[{
           "\"\<random\>\"", ",", "i", ",", "5", ",", "3", ",", "0.1", ",", 
            "0", ",", "200", ",", "n", ",", "200"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", "20"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.01", ",", "0.30", ",", "0.01"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", "1", ",", "6"}], "}"}]}], "]"}], "]"}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.730739453015837*^9, 3.7307394553381977`*^9}, {
   3.730739515807319*^9, 3.7307395618840523`*^9}, {3.730740900040497*^9, 
   3.7307409178675985`*^9}, {3.730741999480421*^9, 3.730742015064739*^9}, {
   3.730742929454732*^9, 3.730742961553345*^9}, 3.730745384040495*^9, 
   3.730745414758282*^9},ExpressionUUID->"ffb78a9e-eccf-47c2-bdab-\
bd6f87ae3025"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"pepe", "=", 
    RowBox[{"Transpose", "[", "pupu", "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.730740832913726*^9, 3.730740840091157*^9}, 
   3.7307414057953463`*^9, 3.730745386132927*^9},
 EmphasizeSyntaxErrors->
  True,ExpressionUUID->"3622cead-4c36-405f-bac8-d69855393a6c"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"trrr", "=", 
   RowBox[{"ListPlot3D", "[", 
    RowBox[{"pepe", ",", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
     RowBox[{"ViewPoint", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.8"}], ",", " ", 
        RowBox[{"-", "2"}], ",", " ", "1"}], "}"}]}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<density\>\"", ",", "\"\<number of lanes\>\"", ",", 
        "\"\<throughput\>\""}], "}"}]}]}], "]"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.730740843950467*^9, 3.7307408477223167`*^9}, {
  3.730741410950636*^9, 3.730741567128862*^9}, {3.730741643443577*^9, 
  3.7307416758929615`*^9}, {3.730741721030631*^9, 3.730741738874483*^9}, {
  3.730741784167323*^9, 3.7307419327734566`*^9}, {3.7307421113103757`*^9, 
  3.730742165474347*^9}, {3.7307429745854445`*^9, 3.730742976386201*^9}, {
  3.730745387411194*^9, 
  3.7307454159501543`*^9}},ExpressionUUID->"271224d8-b923-48b0-bb6e-\
fd0126a9dcb8"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Export", "[", 
   RowBox[{"\"\<trrr.jpg\>\"", ",", "trrr"}], "]"}], "*)"}]], "Input",
 CellChangeTimes->{{3.730742052316863*^9, 3.7307420765826173`*^9}, 
   3.730742981605819*^9, {3.7307453898265495`*^9, 
   3.730745419048793*^9}},ExpressionUUID->"ee4e8288-761d-4868-86aa-\
6a93eeb11ed5"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"tn", "=", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Mean", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"totalMultiThroughput", "[", 
          RowBox[{"generateMultiTraffic", "[", 
           RowBox[{
           "\"\<random\>\"", ",", "i", ",", "v", ",", "3", ",", "0.1", ",", 
            "0", ",", "200", ",", "5", ",", "100"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", "10"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.01", ",", "0.30", ",", "0.01"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"v", ",", "1", ",", "8"}], "}"}]}], "]"}], "]"}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.7307430070896635`*^9, 3.730743010553235*^9}, {
  3.730743515076518*^9, 3.7307435429572554`*^9}, {3.730745390756209*^9, 
  3.7307454204275975`*^9}},ExpressionUUID->"27c30691-4f00-4be9-ad42-\
acd4c689aef4"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"tnn", "=", 
   RowBox[{"Transpose", "[", "tn", "]"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.730743435463395*^9, 3.730743445070289*^9}, 
   3.7307453921743703`*^9, 
   3.7307454224156313`*^9},ExpressionUUID->"74e364c9-e069-425a-99dd-\
55d1dee1615c"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"tntn", "=", 
   RowBox[{"ListPlot3D", "[", 
    RowBox[{"tnn", ",", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<density\>\"", ",", "\"\<maximum speed\>\"", ",", 
        "\"\<throughput\>\""}], "}"}]}], ",", 
     RowBox[{"ViewPoint", "->", 
      RowBox[{"{", 
       RowBox[{"0", ",", " ", 
        RowBox[{"-", "2"}], ",", " ", "1"}], "}"}]}]}], "]"}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.7307434477419744`*^9, 3.7307434603443794`*^9}, {
   3.7307441452712617`*^9, 3.7307441838186665`*^9}, {3.7307442228736353`*^9, 
   3.7307442406370025`*^9}, {3.730744271733137*^9, 3.7307442758780165`*^9}, 
   3.7307453939326334`*^9, 3.73074542432621*^9, {3.7307460774004135`*^9, 
   3.730746090936385*^9}, {3.7307463014591303`*^9, 3.730746307016491*^9}, {
   3.730746489394066*^9, 3.730746490947237*^9}, {3.7307472593524723`*^9, 
   3.7307472622576447`*^9}},ExpressionUUID->"615f2e31-36cd-4702-a00a-\
cecc53d0493e"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Show", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"ListPlot", "[", 
       RowBox[{
        RowBox[{"tnn", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"Joined", "\[Rule]", "True"}], ",", 
        RowBox[{"PlotLabel", "\[Rule]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "2", ",", 
        RowBox[{"Length", "[", "tnn", "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"PlotRange", "->", "All"}]}], "]"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7307465082653666`*^9, 3.730746571732151*^9}, {
  3.7307466028204618`*^9, 3.730746612192149*^9}, {3.7307472684337153`*^9, 
  3.730747270875388*^9}},ExpressionUUID->"7cc964fd-9ef7-433d-9ac1-\
12b4d2d19e91"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{"\"\<tntn.jpg\>\"", ",", "tntn"}], "]"}], ")"}], 
   "*"}]}]], "Input",
 CellChangeTimes->{{3.7307442805506773`*^9, 3.7307442908191233`*^9}, {
  3.7307453961933317`*^9, 3.7307454261578417`*^9}, {3.7307460962213235`*^9, 
  3.7307460980563574`*^9}, {3.7307463103201556`*^9, 3.7307463136439705`*^9}},
 EmphasizeSyntaxErrors->
  True,ExpressionUUID->"e4eacf29-ffa6-4ee7-8d6f-7f91aad0371e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tmt", "=", 
   RowBox[{"Transpose", "[", "testMultiTraffic", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ppp", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"ArrayPlot", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"tmt", "[", 
         RowBox[{"[", 
          RowBox[{"l", ",", "i", ",", "j", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{"Length", "[", 
           RowBox[{"tmt", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "1", ",", 
          RowBox[{"Length", "[", 
           RowBox[{"tmt", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}], 
      ",", 
      RowBox[{"PixelConstrained", "\[Rule]", "1"}], ",", 
      RowBox[{"PlotLabel", "\[Rule]", 
       RowBox[{"\"\<lane\>\"", "+", "l"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"l", ",", "1", ",", 
      RowBox[{"Length", "[", "tmt", "]"}]}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.730744933257841*^9, 3.7307449488595476`*^9}, {
  3.7307449881914325`*^9, 3.7307450067639074`*^9}, {3.730745061299229*^9, 
  3.7307450622037673`*^9}, {3.7307451503766923`*^9, 3.7307451643055787`*^9}, {
  3.7307463258676767`*^9, 3.730746359468147*^9}, {3.730750297183578*^9, 
  3.7307502997552357`*^9}},ExpressionUUID->"dd00f728-8476-45cd-94b7-\
aae1d51b9901"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[RasterBox[CompressedData["
1:eJztnVuSJLluRJOxE/1rNVrC3YBWr3/pdldlEIA74CAZWTVmotlUxYMEyBN4
kd0z8x//+u//+tf1er3+Z7xe//l//1x3G//+MT9wr8L1QK//Psg6YRVA7giv
0RTdbRx0PyOaw6tAxcyAcxroklMqOiWznXsO8FjgFCXdgvqcwEqoqLOUCk6E
0td9h1Og1OcEKY0/N9kijlBKVeSUOpw8pSSoRCkvNwlgKaUVB+WkE10zV8Hk
Os0CJ697FJr9K3OnrAn03qRUx/GcksAp6O7G8fkuWxNXLVJCweF9m8fxilLJ
iVJa4hQxJRmpS2mOurGHFgLxLEEItbcJpQVOKaUyhWiUXC/lq1aUoEGiWEK+
Z5NTRinJC2coKXG8mGUVS6jVr8Xxt6AqUppOu5SEetzdBZFkTanLZZoTmXAC
SRynqnuUqiqGDckM8mU7JCF0jRN2uUQeKhpqSpq1MqFQpPDtcYWznu8QJd3v
ECVqTIK1+vEYvLJphZiW8x2mpPpdi5JWxUiU6k0rprRfj/urqi6gL6RYLOzv
roxSEaD4LDfr8Xilxie3FjFjKXVBRkkLUPW45F1qo7lnFJmukdfruiChBCyS
bVpjkzmFglyP47656KRXP6X0ipK2aUUt1YwMKsckcIIxHNyjNUv74LQIKQpN
2nLNL3KNs1Etj7gYiFJ+zXmWIEKQUloY5G2JE6ZUZaSroJS8ybPE3KOgtMJJ
WBfmBF1OqJgFSgO9qesnmZKrLfV9UNHzFS8zSvr+jlPy13qAEih17UlYl3/t
D1aw82l1ZkWJJAm10EweFacgdHzfnoII4YMv2VK9SqqBju9wEhOUD19w0yhl
JBs9VI8b6FZPUCzTq5yyuBY7Qk4ojMgZCdmKSknnxOshjVMR10LXNI6jPFMo
RsZUU5qanslJkzgBAaDn9MlpfJql0TLO9xQpZf16J5qgCZyggNCThWXf0VMq
A4hKCd3ma+/0rDkp8T/Jw7ijHJ8qSknIklOPxLMooLT4n0R5tL/rxiehrMzv
fDBASoqWctLif5w45pREWyU+MWXlXRGjNOdMOGnxH00ccUpzklq4LVAqfFsN
YWYd/QMDPPHIqcjcWuG2Q6kTfFGz31sGlUeyoh7X6gzfc49SxwhQO8XJMEjr
ca3O8D1XMp7i20t+t8xp2IukHifzKhSrlAim3tpgO8Fp+AvlvCCR59smpbqW
Fdo+p0CprJ9yeb7JlEAtIKoQmo0fC5yKcggBTeW5tkQJqjrFqSUsDztJ/aRN
Aw7KklzucifjU0/Yy0yo3rcklLjeQ5QeiE9te5pmg99WAotNhdcxzB2YAKN0
iFNXGN63xLeqxLyXs1upYgrz+nB8snYXKQU3kuYn1QXImBRKJ/zOtVKY8RNg
S2BOSg0p1AXImHRKJzjp4eQ9gSI/neN0itInOU0TKPKTzqmI4wP9ijc1pc9x
MhMA/fichFMT5aBui9JhTrQlJRJ4r2WHyj5NLxq+IzEf70/F8XpVaYkE3iuc
Kvs0vTpJzmF6JI4rAkPgrTed+bFeorNfCjiwD8VxQaC3YrglKURW9pn0JjcV
pZ/mRDZuXkZ5DCXE+uSmprTJCRUvDb8jlCpOwgCjrLjBblllnkbDxYtUkxed
TnECsQhnM3/X8+y0seJF27vkvcLbSqi6YfL5D+/9kJ2vcqKZ4MQOvw1K2zDl
lHARcUkftlCMfEgQOBbW3TRApy7+YtaDKa1xct6tbjMavQ5yalEKmIqtUdZC
DGxxQqVfbOc4GX3LlPqcQKZocDLzzXo2A5R0YLBMqR+gYD7VOdn5nuFUL4LU
jy1KlQ4iyghtH4MIimVOpWkeopQrKcfG8VJpXOoVOZXfWqPEqfW3eIySxqlb
up2JTycplXPIx4bhSBhObyqnPAKV8cl/4FVKetWPxobh5WGRpPYcp9XAZN8o
KW/Ay6m96A0dIqi1InLPquLTJiWhkKkppZzSgrJVlOf+nIs6QkmyWiD1bpRT
v+zGbxODEkQdopQpyQMTHm6Xl7ZOElvltJnkkkqxHOsbXlBJqcVp0TTblED4
LpSolDAngVKfU9JfjbHoXqQElUiBCQ5vbBg/w+kUJaCkQ+kxTo0iStpWDnt7
odv8+Yv2WXCfc5zm96uc8mq8RSmJmBImP0cd1Ac4zcM3KcX5VP2T8eFOH5e+
PxHHNZdLVl3ku7J9gFPVXz+BuuBt8ZgqkSmBDy2DOmhPtLUoFXKyfCfN4mXu
f4pTsgXUAhNvcL/dpeRrcImTsGc7wWmaFrutW1hnT4rfrgv7ajdYX/gGpyMu
5zWsUFqIT9COY7v9eZlTUY3XDa1zgdJKHId2DFvLoRU77mKyG+nG3tX1RAvQ
z0dFgxIduua0R6mbcONJQoOTnapsUErvStguJUEF1oYCXC7MT7XneAf8Tm/w
6EpWEY8e4grU/CzpfU1DP+h3fv+s6wCDCCciDE1SUDuFqM/5HTAmvTYMejqc
8CQ/yGmBEooxejJ3zyRObJLC0s5wOkSplczdQ7AD4Qd/rglLO8HpDKV6DlgP
H04P/nz7iN8dpNRK5vZpUWnmkzzKabswqCm1kvn8dKHS1Ds249MmJ4WSutnm
IjuFs9rxs5xmpfZy/i1ttrGkRqXpm8xJErvNKVbR8fdSSd6rNGOT45PUe5OT
AUIoyUoCpQc5fdSe8E5FDlBEWBD8NCcaGxa0MlXsUXcrDCk9x8lUHI8eGGSU
/P+co7VxibZ5nJOrOB7klFNqKqGUPhTHHysMFEpzH3m3jY8NupyUYwofn57g
FDGllOTdNsP/iTh+nlNCCaQ6XRgaVGzw8lYH8gc5LVMqDtg4pec5PVAY4AAy
XzFbSg/YMkpPcHL7hNMJb51S/3Bl3D/zk7q+xrBPOMzJr6cVl3qHK0bgWU5g
n3CU0xal5ongMK9OcoL7hIOcNikxPZkxsaEbnAbqQT5HLa2Uv1IJ6P4dyvNT
nMIkOwmiuUe193qhJPvdiHd9TmgYmOvLvNt0vCOUVL8DlOJQcefyio+YoH1O
nsoipZX9UUjfuqiwbjLZU4Gcx6EmJZ0T2CH2OfluVfG7x+kUJWn/ZAXD9M3u
K4118bvD6SgljVPhHfwBFDTvckkzKM/E8T1K+rERuI1DpTnrB3XSACmO71Jq
p9X59h/AaSvJpUEm6SqoKRg8wakO5GvG5I9N9AODtNSBt1CgfqB5JJCfoaQf
GGA1pzm5k4jtQvMUJeWYI1OzsMfr9NnkdI6ScsyhVDqZsHwI1v2K1215Jykp
xxxSpaM3aciLXDfkwdq4bDQ3VsccuRowyYpDh9PJjbDSICUXM6HcSs0v53SM
Un7MUav5BZzkjF20lJK23+btF3M6Skk/0MRtgVMnKe7Zk94gG5svtQNN1h7m
JPXf5iRQwlp0k0WjT6zrg/YkUUJaOo79j+ckUopaeuFvhVND7tOcZEp7asjg
zd3LBOdZTh1Kv4/TXP4+ygmVApgSrMhb7TgnW/4+yQkgySj9ECdxNzIEcUvz
zygZTEpFXrejnMb089hGGLYFSr+IU3y9/h8PyZpMyZ7N/CJOt0XNJ5pnOfUp
/TZOyMhPG1RKibrcD3GCavGnVFKyvoA1Sj/FCa0dnQ++7FVvElTv1aZ0aXk3
awucUDkC5zXVUCc45WVSSmm/0GxzQuUI2FI6K9rnBJA0KX2SE43UsOPryroo
+pCAER5plM5z0k5iU62AE++vxUNzvUDpU5zk/fe4jnI6Relz9iR2Gt8/TnAC
1cYipQc47Z2svDmpxaYWD6Mx9Sj9Ok5/2glOZyn9Ok6H7GmHUni0UUBlk98/
qZull5NEr9LwvURpjVM6+Q1OIREvTfIJSt05zGPZQEFgzila6+KhwUFKGxHq
PKe/5ROw1iVOu5QOVFBpcN3gdNeZ25zSsrJPaYlTEVxriXW+G0cO685ReiA+
HeF04lDzHCVlErRRaz/H6StWLduTEeuu+CMSzlcdL46TBTbsSZFY+N0RSgc5
6dXOx/0O3qNH2Zg+KDT5W+Jv4WTF7lI6xakj8MOc0Ma2R2kxkFfDKomNenyf
0wgX4QY9iCny85zyDkc5iZT8E1RI/CJOp/0OUyobLrfOc1p0vNN+l1FKwLF9
4A9wQh2G+X0wjp+h9DOcph6uGHRBc5vTOiXf74c5Rcnz+01O5ygtF+TpsMVI
HovVQ3E8eaKOXLWn4wHqW/D5etzKFzrAKqHLSSkoViuD9w7jCU5blLqctIJi
h5Px6nOceiUUGNbhJGfKna3LzOYUp8VCc61+8soWOSVZ4CFOy+V4Tw0bvsYp
i4qekxRB184LxO7djQtUtnC2QrPAsD8aB5rieYHW+IZY4dQ2xfqM8YVeHOd0
jpJ4Hghbk9PQenQLg06dmbaUUnf03Fqciu0S8bstTq1WUcpnkkJtcKq2S9N2
+Ec4SZSUeIKazAnJQYN/ipNISYknqKmcZBv+GU5lXEqLciGMaZyY3l/CSaZU
npLQpnBqpYHPc9Jtide8B/yO6SXLB/VT/RU3OHUp0TnnrV+Pm6MLkhQjp81D
Qdb6lEg5UzUe/dP8yb8NElAa1CKnNiVlT45bm5Mw/PJkSnlLU1+jdJKTlBfS
xT/veKuUjnJS5OmceJpRdWH59PZKKJ3lpBrUT3GKyvCTSOk8px2D+ljCg+lq
2N/Dvji56T7L6bGEt0BpQ5cZmBaRcT4/mfBw6ePwxALqDKdJqnIaeyjhnSgM
5mec0o7fse2scBz7c5wWKR3lpHtyWrU/yKlDyfE6ak/p80l5eur1WMLboHSa
UxGgsg1ejJhnOSWU4v3BOL520sCVviuLRzhtUnoiPhVSmcnFCuzRQrNHaSe3
LkZYNvaznJqUnuKUvMRjB3j5HCcaIBAlYaOZiuuvoN7cfITTAqVFXf9kTmuU
Psrpz7ifjU+rlJ7iVASoH+JUFy6MUltX7Tu5XBoVn+e0Q6mpC6Ul0jJOtOp7
kNMepTVdRzi9yhfZLqiZrXcodQsDt0n8DCdxz5y3FiXXu1sYzC73w5zuhUhz
71GiNx1d2/FpkPFQcFq6J0p4/7oDvxGUwd3QOifm8MONpGZXKOH9qw4JpVoZ
GJxF2Fzqu9QMHW6T4gmvO/UeppRSpQ0OXi00J/cakJNB6LVsZutkQkE65Cuc
QCKhbU52b/BC70x5BaKVoKXRWpTKQxAqqQfKT0rYKk9foz31ujGfpL6a13Jw
cJtTTXnYH9+vX0A7U9JpbUp5CoejfWIqpSLlGqciEJ8+qUvVIWU1JZ1TUN6w
p8Jwnzqpg89pJYMGyxWqye5A/I9xWqSURtyE0voJVFJodzn1QS1TqiMuFbV6
6JFsSMb1KCcEY7AX/jmNuDmlIlGucwr1wClOlJI4gITcsvZa5YQHwwBVilo5
F8qf8Zcw5AoV6j+JE1xBD1NZGDBxZzndQzuctNanhN7mhQEX91s4tU480of5
26wwyMSxLdrH7Uk/8UgfVm95YbCxbcjeDfp+0e+0rXz+UHjLDnkKTKuOx7YB
13FOC5TIazeRhjFdi5zYNuB+eYrTYUr4MKymtMSJbQPm12c4HadU7oRp63Ma
yvuT8Qlob76enqY74aTR6ZFAPebfH/e7XUrpTjhtKaeE/nFO2UfBt0Vv/LQ6
e2StwylkiGc5dZbBGt3gdcX37EkZ7DklpZY2Ey9bb6j74g5qldO/X4c/wMOj
jwXyA5R+hFMSex/gtE9pZ0f+EKfZ2Y5wOmBLyR6ibg9w8gZ1gNMxSh/nxAeP
+1crkCc9epgySsc5VUbKMA7QQTOo/IvpLcd0llNtpGTtsBDd4nSQ0uk4rhhp
xmmt0syceKsN8+scp2qjm70+y2mJEt7sJAcGWmPbhY9zWt7KZ4M8pWOcUBym
8xHjE9IjTGW/RUqHOA13ecaeTu7w+i05MOi0NM0c5HTuqK7TRrg5ymmvLvg1
nJzfHeckFAb/AE4oOv0/JzgTT2k8wClf3GFOWy7B5AFK68IOchrTPy1Oe6Uy
lUcptRTByU21eJuTrZ1Ch3qfe4hTRqlK40wYrp8ETkDfiD8ETgdKZSQvodRR
hCO1SaBr9oQDFBW1+pmLllJqc7IrGbuc3FCB07C/T3EqKDU0TWEo7oNnwT1O
NJBjRe734fhkbpaKqLQ+HVf29v2C5TsHi3Ma4eJQfJqRYEqaJv8Zmxthbm1j
fn+FQE70HI7jCiVFU/yMKJC/r3Vri7HNdXnFvotRgzeNUkMT+YoFJ25tbuUp
J0Jpn5NKSVM1sq/o18AgWghhggknSmmXU4OSoCoOpcHYvkRZ5AVE5pwSSnuc
WpRKVT46uVAb+yGLybTNUYrHp92oQdVO1xklZVMeZKxthIUo76TDOG7aKqc2
JWVTTspV8KzPyb6t47hra5wWKCmbci+Dp7VnOCVrWOG0RKnelEcZfME5ivSl
5/SOgxtRg+oB12XLNuVEVB7Lz3ESKDQ5LVNKN+VIFEhLrnOX0xTaZsHsY5Ty
kuar3k6j603iNRxXvsAv5xDhOdUYOpx2KCmb8vCaLmElPn2K0x4lVsylosgS
FrNG4ncHOe1igsVcLgmH67ISpS/wvuUop434zTVVgvK0lq+PZtcnOR2gVNgF
10v+xvzAQqm2e5BPpOfj+LVICdmFLkjaDEujnOPNG+mzfrdBKTkvKkamEXmH
U8ug2n7XbKgOEsUx1zJ7JTb/H+B0hNK6h6fx6WOcyg6HKK1V/vkGry/1PfY0
p2OU1ip/uIShWmliiWc5HaIkbO/JWLQE3Uo/xOkoJWUqZCze8AjrEzntFQan
KS2lVo8ibp7anKYKZ+bUTngbldIsIF6vpFa6AslI+cCxy2mDT5SQx5l06NzS
jWHf765gi+cKTb0NflVogpRQ6EiT4dzSymv8JKeEUqGJ2FISyOssmjisGfxp
TimlVBN197CE4X43ORlMsmEq7+VWUKrDBX0Vd4ZaPc4CW+CjFAaH4xOlRDWl
qcNyspgW4tNdOwUBn+Y0wkWqKU+wLgYZc1iKTyPMcI5RWTvLiVPKwkUhzHIa
+B1oLI6juLSYPNdaRokfJFXCXAK3vpMlf5rvxiRj7vQZTjQwYU0ypQVOiU/e
BtWsDQ6Bqijx/WwqzIwc4EdSJHFT+/tPy+/OgKopWUV1kptvjnKaQE2dPsJJ
ogTyeyHsvp0XI3BKc+HtdH/++RwnkZKmKIi4FzDXAwWnmuFbwKc4DXi5qCh4
XFyAW+bWQd0kQOC00xqU6mlACUlFvlrzvINTn9MayRpNQwkQ9l5QKJq37QnK
foZTk1KuBAnzRZI33sWaBxdgmkH1ObUpZUqwMOgb+FVHI04Ez3DqUkpnkVBi
Ixc5JYXFE5yWKPUOVkzAbtdP382+TAuL85wWKXUOVoZ/OTleh1OxxXuS0zIl
/WBlxLe+gFrkNIVwmEuPcdqgpB6s5NF6dOrM7GjFdznJaYuSdrASK3KzgF6d
WXF6Pt9JzYOoD1YGuIOFgcqJ27Dzu6FxUkE1LCp2rc5VECWb8OxLaWlpkp2K
8JOc1im5IFOPcLHcJfhgaUlLDqiC4x3htGNL5ZIIJTg0tTRB64AdDgWoLY+r
dHBKV/zQw3Rqr8zn07OcdEy4Z2bVlBJ2L5vX11eGithNTruUslkUlDJOUkhh
gRxm0y1OB1yOciopkRwgJbz0PTbWxfR5tSg15lNoYkGkVWgWgf5PBeWrs1VO
Zygpk8gorXAqA70XscHpFCXRRZLHxwtNIEIJUFk1tty8XdSpxz25n/OTpHPx
ScGeVWObrfz0jFIx9KvTGidT7+9wOoNp1J+eU0o51QVUxhEGhBVORzB5IZJz
D38Np69nUc5pJZBD/99rxnlIkMyMiZui+e8eVo73IKcTmIb7jeagUALTt2+W
AtRv4YQoebENSvP85rpoK+H9vN9BSvXXz/T7OnMStMzpb0V+d1mOdmstUDK1
UOugC5aC1yRIAFG9vmPYRzkRSsZdNAkojh/jhALUh+3prXK6YIV1PdJN3wui
GW3qTNPsT3PilNSDLvPvAONh+mEIT7M2QP1QfEKUFg66WPhf5RSS6tskPxuf
XIDy02qeGfCwtm5PVrjLGh/ixClp88DS9jjlRwaw5GyLaraBfpmX6lndfUuG
bXMKwfzTcZx4XNfvjJjjnGwU/QFO8x9k2CkJuwj6FAzTQOHCwQWlH+AUjEmL
kzmlTU7+fZicZu+VqkZjlIrvhSm9h41lTsVmyZg+c3CqdaXNKZZ8LsqJUTJS
H0548r5qi9OA1zD5BT2cUoixtlWbV8GZgPwHOTUoJaGCSmY+m3NSkoeP4Tjm
u7YKSqHUCZRBNuA03WGZUvJYKqAWOTUoHeR03XdQpi9KfpwTqJIYpXGUk/XX
xJm7fvcEpwYlPVBiLcDvvp7EoBJtvD6keJATpOSeOHxtg8Ijb6kv8yvMRUn2
XU7N+fcoPcDJx3Ki8ipV3qDOc2pRagYAL4r4nZjzBJWPFQZNW9rkBD61WxQS
28mxbwVHQa1Q2uZkVuAtpcxplUpitqRJC9igdKowmDBNT7Dfaf8+BjFb0oQF
bFFqcyKmOKZ32iZP5iQ5XrkAhRJ40k0oUErKiSxPVNmNDEK0i5f1k+F+tjhZ
i4ycktOVQd8k89zmlFKKjxyl5QDlpMedC3O8Qa6x7FYgr05Pa6Wxz7D3LU5f
Yyli74p0+5eZsTHOI36HJpB1crmqG6BcDkABedzrNySwdVeHeQcLgwYlAktS
44VMg4HNhBKKxEqkNnin9iGlvCA1s8Dm5+KU5rEWnfdBII8ees7+vc9phdLl
I6Q0DUzJO54td3LB6VsTQnc5dSgFl2ulE2BE0x3g9OeZIDjlZLQuc1qglMBS
rBZT4pyylKZY2wlO65S6cTyl5JYAOOXfuTbj1xanVZe7H4jxCVOyIh/iZIPf
EqeF+L0Un1JKZXw6wQkVH7jhrWSzMVjvq+xrYH1CfCIBapqFxulV9PTTcPOT
2wC/Sr/LPU6KT7Wp6pzq1t6iwhkVsLwSZkuxsPFHmpMVZSxWOK3VGHVz0Sj8
opxySj4xQMbvAorV3E2/q3rv29NbnadUBYqU0jTY71vqQP5G8Ls4ITOw6U7I
FgPemXXgoJVxKs+NPsipcDnCCZcC/m4ejIJWZlC/i1NC6eLzzSiNER6zE4MN
x0O2+RynmtIF5tuxJTPF6e8VF4VBYVBWyUfyXUUpzpdwsYONUHsYNz3LfYsa
1LBX8t5lqeWU2Fy8k82/g8d937/AiDSQFwY17A+dU59kQWlOfihnwWHkFkPO
7QmNdW8/wSmsxN1Giq84ADvqALJffsglcSoyXjC505yi9bjbMd+bRM6FYAN1
a/XglzmNuY/EqSoz8ICrpGRhlTsXhBYwRik0z/1JIO8Y1Kg6wP4hTWUuB+aA
/dajRYzdH5GQlDYJ4tErzq2qtmROqi0Bm4qFwSxkuN72dYhPt0QEysgvTnR6
AUrkJIZvmL/wWs31BAufQL27TU8jKC0utjnJAapJKdcQKRlzwmudQfKSHPWi
ao9z6lLyJmJqRSMFRKUsBziRUbidIX/V9TsSC1lXdOv/jfMkBngpOJbbKxLb
Ek5IL9TUtCcFVL0i8hvHJygzLJNZ+/vjYr+LY6Omu6NcFwicvN/1KPm9LLjB
iEj4uZ8TkJ4BwHQrkOuCmpOLGFFEAAhjDAjf7kHByaiBlYEN46WNzApY32mm
dQi7ECZKyfyPHl00wbJmHYzTcN2RQdU+G3umnMxMM06UUpAUMHhOVBZLRdR3
LHtvUOc4uZmWIYxRGsCopjG585AHA3ICKEEkRybHp15xiqsuYhjBFNCEKbxh
4YSHHgQPdJzcCyN9+J87nNCiibzU54C/Xd7uXSCnVILGymVNIEcl+zBq2fSV
OD635PxBpDRHbgQLZmhGzfx+RfkskIcP9AFOIO7El1kvHFGZr0JZYWTkdN0X
wWPrBLXNSaP0beNu8QN0uldLzJRQcnsPYGnX7IFmCpdmUOucRErxgb+k9iRT
ipO7XxNOM6iqyJ7mJu1yweZAo+RtCYiw394ZG9bI/90NKJSmxCJBmU59TlZr
/pDEGx/V3c4dhvNoS9goGCckLi2yrXMucSqSHHjgQruPU65mJqZnrt5P1jih
oWGKU6cFTpgSDSpXoBRh4cMPhZLAiYeNhJMPgG1Opyh5WL63T1/wAqwWcLL7
ojI+wRzT5HSY0jWBYs4dKcFAa9yFcoIjkeItTiWl4bthCwgJb7CZgL/xFACy
Mphyop/G9VnlVIVvGk380oLnMVACJV4GA061xusAJyp0vmpSwo5CBGBRbHav
eOk4JTvXs5w2KI3Yq54LJI2GMccbb9WF453ktE4pGhOe9oB3DjH1VxagKk62
k8apMM/5CoRvQul7pT7sk40kHsxG3e9gYfD9Pvkw6OutcupQ8itDthX14KxR
jZpbygk9D6LvTmucsvRDKDEbI+ECURp6HGfxaRLTS3grnDqUwt8VzO5d/kZT
ATKanOrUgThVoKpwZzSXtlTckzptgK6rcdxToJCPceKU/AOZWqYHxzg+7NI4
Uco6p1rWtUUpSigrchCexk9zmubC4zjHRFzQDzDdSj1/J+9F9zi9gzjjNE1s
7sG08JQiUGJdGSYpXwz8lulO4/gbFtksTRoLTqArlJjMNHM55EekfgIRKvwt
YjTD5GBlgFdBicgpdo0C7RXp4f3E+T+M40AoGsFygJt1OBiifmeVyJwG+VoN
SiSee1hGDRSKRjC7gJyGex85Df926pHbE+ZUxoaKEoYlTIX+AHbhOGGvRzZs
RZec3j0H+FheM+zARhAPPMgJPPLm5MbBOSqOp8dxZT7zBflwpznBsf633wMk
Iawut9M4Tp8P/AaGiXqt0FOzsffjt4WA6EbzncYJhnz/mg2zl9aoQpSQbQKN
0Dih+ZCBgGTNyYf8qIk+94EchvM2p+F/ZnGcupWdBOPUsCc8C0YpsAmveKiU
OBnWOWP8hf1fG0pjyiandUrEEydYSoky4l1mFrB0HfPNAU5X6LpCyWMCZqFz
GuA2dR838zHP44A9ub5V5ABB0j3xcRx5oprv7gc6Jzc6CYrDX6ecKmmJevDq
TQdRU74G+BDvYSqnAGAgpdE9C05D5JS5nHueeGCqZRZAAhSwGytyxA4X0AlW
I9WZJafE5XCHxAOxFi94ClRwrBGMzcVFIKgqfD5ebfe+tNbhK2RDWnlGMXMK
sMhGDdcLaRK4SOxjkWyeYfGlm5SCTVFOkBL4joCTwxe1UU4uWRBOnlL9pTcp
8e9KKNm04DlZLaTygwYDhlNO0ZaqL92lhD9E8V2ZxhtUMBz7mIXxYnWEU6D0
PY9zJ3UZNbL54Bq/PnpijMlRhxx9A6c5LrpLXK9tU+JxXKYUHe+6vy/4M8Ha
jv88nxR5TgETFlVSCj0SG/rWoHxX6D1vmRhy5QgrfjdCjxx5fMSnEn97WFiJ
0QNsDBNh847A0+9jGxQ1fSwsihoTFMSj+NuaUBi8Ckpghn9E4Xl7UQN1ikq+
u0y9XlckBEWdoWQtAoFSKEVO8PvieHLZTk47s5PXPX4OHr7fJiUbWezCsv09
EW/jOOHEXFaIiyBGeV138NBcOMq/+H9hxXRCc8bhG1P6HljGC2cAGSdgraDk
NLA6nOCq3l+dUvKKiDFBSpBwFldH3ilqKPbC2B+yZhc13IX55S0ihJlqCFwK
hRfEpEZg9CFOxqNrH0bSwx0PTGTOZGQizYciDy+OvEXS+ikEqMipdvTYKkr+
Y8Y7EsgRJbZaK5BsXgu/A98zcIqRVOQ08K3HBX0ujeOYErF4YmRIGfe76QtY
4IgT8X7SKkqIDxqTFrTgOuHk46pTOt6wEk7OXCOnEETUSD6Lb0Tj70jvAopB
OeJltPjxHga5u3A4/NoG+4E5gXVJoJJIIsDyWjRKkRONPWEG3x1f8X3Fadq9
eCuumolFqcu5ATAQtigpnFhQ/O44wpuU098xpdbQRriIs4PxCZlFl9JlAgac
MVc6aMeU05hIjdgZt5uSCTjQvYiBMRUSJZETFvANatwTx4JiWHhNncZVcVqI
RfEVViFSsoGcijNrs7+meGOnVHGycxm+G1qK+0wziwRWsjBACUS6MOM3LG9Q
aG1fv15msHe+nNOYVslAMUoAAqFEOTUouQ0ecIF7hN0cvWf2CoM7nKyOLJIT
CP4/vkcoAU5+rmgsmJqJF47TrWPE52FwKMSo332NePfnZxCpqQR3B1bIvn9u
jt5Kgirw+GVu7fMx+LsLfMZQjuD44Rql5E3Du1GQ7zoIsAgnZgO3sBGf357n
pKSc5ivMCfkGeBI4mV/A30EHa45hZNRilgZ4eB8NBsU4mQfeQvJIDiNHZRqm
H4gdFJb91bSnIOyiDjm5L7OnMJ/IKa7CmK1sGpETkJxg7nMiyT8wmhYeyvbw
AKr1k3UrZ5TCgpB4BCsbb0cSv5t7RvKupLcXducSvo43kWIH7vX/vYAG4r8m
iDKU0og/QKTA5E0MBP9ZQCvWyg9pJvfhOKWpz5j1+7WR3m6q0LOwJGgNaMJw
CXaWcOtjgBth4MNCM86tyL0kloFDRNQdKQmc4uPL6niLjg4ZYU0GNU2pdHfk
cs4OUkOYL+hnsLqtMPIFPduYeSpfIY53G1T01bhKGwSxMWF3CRaH4KLPMK4o
zIoLLqtwGjMDTDo63nyscD+MxpfEJ8jOx6mbjbcyY/pxkPv0TunbL2J3xgm4
72uaGfhxlwb+MxDjC4ugt96GXECYtI55Ddc04TANIN8yBlZgGkv/iT05g5oU
vWK/YN0XA0HcEsDzfobqNj/dK9waTsO+LzlhpAqnt3xqfG4pePqYEvSz4e6D
yLdk69XfQ2a38RMhew2+NtmeLCjUGazbXnFKhqV5GBcbxfydkNH8tvyX7xg4
Td/CWV1BcH4NuY/pH+x4JGY4DjPBW6Bb6L9/oI2w6m4v/w5/WBdSjnAyoMAH
D5Si3fsJJY4B/82zaKVGjvGWF+iNOfmPBU2v5DS5qwcVrXu+wiukJjbP7v16
WGnkU7wfO05kddN4tz1Bf8yebT5j6eLAj/up9wdICb68f7qFzpjiFOPFe+aB
E+hjdMLtybRgN+XS767vv74+LCxf82Dr+b5BCC2s8fKjzBL8N5m1+T1XwmlY
j/AQ5n/9w2pMOBGvmb9IXEFYD3iI/YnkuHlt0armddnSAFrBPIyH67B9A+Ng
EHP/cevJ9d4uYuTJlJhnIBmzl1qafl0Fp9mi4PZkGo9sBRXkjqf1ldn1UGe4
bAQ0roTJwO53B8vXe2LOCNG63CZtzFKM/eacqLmP2aTCZ56XmP83Rt9PX84q
OOkvH/R25apxUPXB4Pzd6+U62+rafzZckM8cnNXcJjVQZ+AmwJjudcfMAMb+
u1v0vle4CNNHWy1TxFvXni3grW8K8yGOz+aOvOv1l/fkemFlkHNkYr0ljrR6
7Ud+O+1rfjaPBgsLw4aZ/st9elPTevu0czc+ZVc3Lrfjmn8BOwoSp8KA2OEt
6WUWZKc0VQCv0OOqhs0f4K+V/bEiYyu3Qb2csPF3at8ivv78/Y/F3mlqhjXe
n8YZyPe8wB8xTPfz/6XtFf8/8l9L+F8ZR19a
     "], {{0, 0}, Offset[{300, 501}, {0, 0}]}, {0, 2}],
    Frame->Automatic,
    FrameLabel->{None, None},
    FrameTicks->{{None, None}, {None, None}},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImageSize->{300, 501},
    Method->{
     "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
    PlotLabel->FormBox[
      RowBox[{"\"lane\"", "+", "1"}], TraditionalForm],
    PlotRange->{{0, 300}, {0, 501}},
    PlotRangeClipping->True], ",", 
   GraphicsBox[RasterBox[CompressedData["
1:eJzNnVuW4zBsRE3tJP9ZTZaQDWT1+U9m2pYIVBUeFOVpnTO2xBfASwCUKLrn
P/77f/7rv4/X6/W/4/X6z///dxzHOP4e7y/4/nu8jvaRVBlwEtUY7JxqSnMG
+2Jt+RJSJSG7x2mkVWhfdY2gZ1bTMSfdpuRVGp9MMsisfHZknFRfRZUmpcoX
awtLWI202V7nOznpvtIqWyjlbXFHujQaeEZa28cp6mss5UlKWMHaB6FEG25x
Ckww7msk5VFKUMOauKQ0fFqDU8UEhaJ5IB/fpeRUYpTsUeZUMUGpqKoiK8zn
dymlJq4pjeuzBqpkgqBPHMfvUwpjcEhpUonFJZJT4aSmClqI+XzvlgtFckpE
VImSsQ+JydXIOfmWwjguImPHV1HkYIlEVp3SqZHCxMJkeGCZ0lOIU7keoFBk
1Zj0xMkaf/kM3ra5KD1X5KWDaFENUIfv5RCU8jktG4JipyuRmeNOH0KIhkVf
hTQRhLUxVSkVO22bSUbbHclDCNWwuWKgbEQKU1g5paDTXI6NaUIXf9Qmr2Ic
DygpY9pCqcAJm+k95PXieFinQGk8Q2llGW2H3wllwjpMwHdsSaoE5Uy7W/xO
UBqqzhZKn1mRJ4eK7VlG05jKcXy+gDo7KYVhnykWx3FFqdiL8yjGcXPxCkoJ
rYTJbKKUB2UyWoVeTEdpXcWdR6sYVCsBQ+DoU6quHWpXTShVb2RtM3oVg2r1
PKXacOtZO6VUaJ2chqsYihI8s9ylpE081AerlCklkV+oFlJStoMdXqVkW8ye
W4iuyRoDOVBIrKWPxVhU2Y5O4NnuHE/jABVQWnkpXIvlH83AMqCosp3nKIV3
jULTnZykar+BUhKgMk33cbpBqeGCPJuL0RJ8H3JN+6DSJ8I2Jd+ZhBLFBGJM
WPQ1cIsBPYz87mu82sP2r6Dk5xAexxUmV639Gq++UPIrKLGWCneNIKjIqe6p
9TnuUUpRS2wrRiaoxCmeLFK9hOwnKNkU0VLyBo9OK53FYiMkKEnk1ymJggMz
Fil9utCh1FksNkKCkqTj2LUmJWZMKGCwK4KusVDHY39Q7zySG6hHKBHT0PMG
tSlzUV6oq8YbZprhfKcd7/g1lMr73azY3ivhClftECj9NqXUyYi40n43L7b3
Srgen1jKeIgSGY6gWLg2JCiV7hvNoR4iK5RUDpRYoaSZpTE5p9R4wRYLAe18
EyA7oCTV1RajwxSmqLcCAaXuq6nmAlSqSyD0KUrJ8x2n1H01VYv7VUq6Ri8u
1SlBHHeCGaWf8+7KSh73v0zJFU4p0ee7wS7N6V1OXrs+JdlYx+PyuQHjeEG1
6/QeJ0mlrsp1rdxnLyV8vuNNuow7C3VbKfGipejdohQPtaDUX6jTizcbKD3t
cT+HHmpJqb9QpxZvluNSIfCymsuUgqEO6rQX6vjiTTZj9SmNYKxvUZJDLetA
vBFH4NxJjTuUAh1uUUqHmmd0F+oaXO9Toi1JM5DNuoRwF6HEV1vwPo8y1353
fE3eQuCNvFnIDPZICEqZ5wXOndTYTSlODZplmcmDsBCqzTDwbn6sU4pb+KDc
Qslt0ylS6mxLSMzvaUo2aQrWMKqaEnRBYUJVqit1Iyy+QqnjW2rsSE5aRj4I
K1W0gVCXc0KChmUzkhL/nbCm9FlD7lPSD8L+UtGNZJ1H4wVNw5bC2YxREu1W
7M1vIyxRaq3UDVZc1XueUspPtFxZ0CT1ivuBPlm1NzRfs6VIpvDKYMOKqyDx
ppQKW8VYMzklF65Ubarg4DkqdsltzhGlwj4Xm9XeuvEVSjKZxK54mzPTyJhh
idLC1o2nKA1IxLI0wndvlfWEJypXikdz5X5KAhO0bE56t8p6whOVK8UXKAX2
tkhJS1CWYU1TtLpvxWCFkoZxixKtLKYiPQcZQZu29nybUhTfpyJMVHADJSnt
3dpTamcLJd6KuWZxz8xcqhBUOHwtVWk+upwqlKS665R4uHGc0tGZaFVuHOej
x+n3UELLsGViSgfteBRrOpwkJUlj6tcjlNAywME4JagXU+pw6lPSDAiltIhq
jMSnAqXGkzAprY/fSom0kVOK4z89apxuUfKdpiGZ140pjfODLhqElIpPwudR
4bSVEnOBxA7j6cLEqDKl7maM5vNgjRLr2UOURDe8IRIb7m3GaD4P/jpKkePF
tHqbMVrPg7+Qku/0JDOxqd7SW+l50MZfeWovv0Jp2E5jFFJqdJfeCs+DMB1U
KPmkZ2xJ9JpEI5TfWHozU0WhvBBOL8EGeQF/gfsOA0rvBBduiJ+RUaovvVX8
9B6lChh70aPEOKmoBGfFpbeKn/5qSsN+uA1jvinUXPZbCC2V9yl1SsT/1EXQ
N06J+51uqe539fINSnl0lpiIgZIgLAUOykm0NOs/Htl86KXo9nJKyndd2Qql
z6nlpHh74+pOYKX58RdS+kE0DstJUQFnJpOC0PN9VOY7GjJ8gmNJAtNuSnM2
X05KKHVWyQvznRwDTYnV2OhxOEmw5aTUljqr5Ol8V6FUmKTi8N2LS9ZWHacy
pWRXtTvWNv2qHgmb2UrJOzaN46W41HmZULoff4aST1HVaa0Z1uHjeDF6d96i
NOITZHBlque6ekZpkA+8gcoo9baztrf2qDksDtNChS6lKTIpTiqukv5v87ug
nssuUAqIBzBJFoUlbqAUJW+DSsUzbXlrz7FOyc5XVUrMkKnfFSnVtv1+kro7
XEjuEqXKJJdRiuNTRinZE+SO/o4V12hzkttMaRyeU5lSsqnaZbQ5WaeR8Zdn
7KDE1zzdQl2BUripupJTOEBVTcn1Z07QkxynZIbIR/PgyUVJkZuqRZXFXVCl
bu6mJGHpFXIhJdtUjU0t7YJ6jBI3RmavphdqhVxJOfJ++6YWYvlzlGieRzcw
lz65aClTFXGg8MVYzhR4ltIPng8oyom2qjyr9BJFTZDp8SAl1hYPUJ+zE5je
qKOlFF6iqAkyP0Qbu2zJhh5FaZiPP//UT1aisUhX6tQEmR+yDZ6jeh3WJ8GY
4rYfL9ZojClZqVMTZH4sUaJT0A1Kxoymj+YeXl4loLT15dR3KE05AaeMUrjr
l1VuxvGgl9Lun6B0OTXjlFMKdv3yyi2/C0LANylhWu2x1hziZkJVbvsdTVyi
xNSLKbGpwdtTjVJv5VcVD6pH4ejwPalSggoBJS/McqpS6r2ZEsV17YQS9Q6u
wSolmOpmTnVK1ZXfM7nzMiFxvpuU3HUwZaJUfgMVHsF8R5PL+35pf1SHH6P0
cWxuUI2jG3CKq+QqBLGytynJMMes6jlORlph3y/RNMK2Ssn/ERshapL4KCen
XYurUl00H+YqhCVKPn07J9CuwTWkFNsVpNQouVlOz3oLy0Pd13LVQF6gFItq
UKJUsIU1Tu9WSgFnOmpcy5REmG9Q4rZDwtMSp7PVzpa6WMQypVD4IiU/AGtx
fBLe2VJXE1H3OIEjItmi5KudsBYeU7uhv/iKpkepQow0nn1fF8MmN+8aR7XK
dJTiODfHCiVZHhqHPwJIbWy+aPkdDHQTVCGO36Y0WHLPlpi0BifiDts4baWU
NF6jZGM5//FGrGwayOWRvMnaSUlPoDE1+mWqFve8mXY3+l1sC9mFS9AIVymV
7ElQ2suJYVqjhGZwl1KNkzfZB+ITpbCLkjsrUfLVck6a0v44bi5k3zuUVHhK
KAHdjFPc/tb4ZAU8Qkn1RlP6EEo4CfqL8WnlwWU/JeWImpIxquDFufp+/sGF
hlNxXbSlM7lLSXFKKbFK8dF+cHmOUnw9Xzj7Ey/OI0oPPriQGS/CpLJqcxqn
ZNJEfKpReuzBRetLE25R0s3wUoXfJGBDeye8PZRiHpzpiClRe6pTeiQ+/QNK
qhEaxZLfJFDc3cXitYWVb1HiXTzc/2PyCgTIJpp7CVcWVv4RJR++z3y2mykI
GFgpOJiMoFiYpCenEE8S63UXP7CwD40mmovF9xYMTEJGyVrBCiWfZ/wO8iNK
7S0GpbWbIK1OKWyHuliuj/2byNYbY0zdLQaFrflBWpuSmEBHcMUSWXzqGNPR
DjiNF6M6MMkcbiaxMRVsadjz4D5TH82AU34xuhC+v0JpBPeZ4dHbYlDc0fkL
KV03CG6DZolSd4tBaUdnQEl1fAMlEssGHR0SugpHb4tBdweeTynxWKckykij
KlPq7iHv7sA7CpR45yQlNgfWKM1V25vqglXQWum4ap1SeDvjHYj5To2S47Tu
d2HN5ovOLqXYERuUPtSB0nj/6/gdM8CkZmuj4hcpcWUopffRcDzklPNd2LRX
jEs7KTlOdl3l5+sGp5IV9nej3bkVWKQ0Fxi80jKnYkTr/obh31CawhO5Kfhz
1Dj5G4kbcV80zpv1HSYOgXUXKdHWoeOFo30jcU0UWatwOl97ALSwj8GrlI75
d0BrnI5m8UoAXKUkr4gx9SiRSl1OJfvwgoq3Bv+WEhjhAMnP2VOjQpUS8SkE
sUqJDkozkFfE8sILj8JDfJdCzzZKfye/S2I74DRNpP0onFCKQdynJAej//uN
So2qvf4uSuNzPsMaZcfwNTs20lopXqSEJhAHiHiSo7CWNge2bKT/iLdEKZo8
QzG+HoX15+hvDmzZSNevb1OqYSIe5z8uWH+P/ubA1uvL3pPwlyi5K6jPYLU3
B1ZfXzbiXxwxvkWJGVXNnhil3TcG0LynJELPI5QCWK3NN5kFYtf23UA9QUmI
7XDSmrS2Dey6gaKatCc51vjAtDqnaLxE18WIdRbJg8D0FCV6WeUUW3XhZWda
GmocSGkq8DilP2dOXMop8f2RbhuI9VZHKzAJhlXNCCX4SjjlETJ72YmKNya9
f05pCFi2D4QSqBK/7GRmXp70NlOio12xJWJZZENrzzpSSuVJ7xuUZCNjvrKh
0nGqUYpednJKxSfCX0DJwjpPDacqJb6lGkvPV5V7A5T/PUpMhelz4sScU6mC
W6qxtL3K7w1+GyWEha/CmWX1lEkjv2iJ9mErJRd5rpM0mPc3kqO1xZRSv1Mz
0Hz6LCV7Qb9eQR7TIvQQUbe1pP4FStjuFYcUiey+gIpqUWouGgS9STHVKBEU
FycG688B8WkvJR8Ds2a/QIlILcAS8Umr0aZUu38SbX2P0hHC4vFpRRupS+Nd
RSBhE6UwBp14PKxD3zU2tQkotTb+zn73lC3ZDO/pClZjj5xUJ6TUWNRkZ7lm
0SxQp4TeZmHVN0er8U0old/4qRgea8ZVSeIIt6UTjLOlmVOOKVMtSGndQMGf
3eurooyFhqfDjotzt/PjVVUpVk2lWN8uNEopCf14jJSUQg9Ff1EBqnRk6lPV
64Gc2xLHRMuQB4YapTmJOV97c6rQkySdV9VtmkRnLkeK6lKSxvQ5WeGktWcB
d7qqvZz6HZRkcG9vugQ92eRiO9J5fV4JTFqXW5RUDL8Cee9oUPo5qz8Jlynx
SNagBNnz9f1AvkBp6U6zRsklsOos8hxEcVP+mQlPBKYrubq3TPQp1IHb4iql
TZyWKFX3li1R4g4YYBqaUhifbk54BUrdFc0nKAkopMnbnJYpNVdWIkz3KUGC
U3rc5LRI6ee8sbJylxIr7KHgT4H9ySqnW5QyGdspCc2wisxa5BRMFUNJNufV
TcIak8ghtYllmPSc0iKnYMQoNFKrtllxByVlZ5/cgJJP6nFiKg72xSnVApSU
FGUUKQ1Uh1AipTqctlBa+oFZltGgBBeU0nHBmjy2xGmNEklc8e0wo00pGkaM
+5d1FTjpcNGk1LsxKKQb8SJWHpTSiCg5M6r53S5KhRjYpES1KFEi2dwFGSza
h62UetvICyqAFj1KCcHDwDrPsg28kZo1Sp1t5DUVtlDi0X6ojxsLdUVKfSEL
lBIrUdqNg3VjDyc2TQAd29Ubi1w1JWqUgqBvSuzgVKLkNVhe5Kop0aQ0xWlV
4rjNCdrLKS0vconcm5R8nBbeuS8+CT1IV5cWuWpyi5SwsvS9OeMGpz6lpUWu
mtxlSkok8811v/MeHlNaWOSKc2uUBKYpVVKy38ucVICQXe2t/Ca5myiRRgme
8/v2fUFMqSZkgVIUh1Vi6fww0Mjftq8dC5RWH/BIbgSnZUs0HafT6/zWfUGN
0toDHsm9RSl1v0G+JljLjscihVBrbbJoUMonORGZQkozp3g4ydGkdHtSDcSF
5syDctKAL+w4NfrBp05R6HNyY1INxEUquLw41jMu/nptvMse93Pc8G1zWaUk
q6W2NEjxZU4dSvfGwVxtpIQvqOZvGdFb/WhTurn+tItSNEu6UpP7mRI34hPN
9JfF9iHkHs9SYoZz6WBjVY/TEqUbLzq/TYnDOr+b6x5NSssvOhcpYZEyJZjh
fmB9clvrHm1Kiy86b9nSSChJGYN8nMfddY+Y0tImBhKsGrYUWdB1zRpknM6P
e88VIB/K7XhZsZsSadBGb/axtODI/ZD14/7LiruUQEtO6Uhgra+SFyh159Pn
KZEWbYKCteWBXvdj4T3CVygJ39Ow1lahipQW3JqdFjAtUgrmOwfr7tspps50
NO8z/x2leWZisFYfVPNulJuXgxs2T8qGdnk6WkCJh6a/R/OFLY/hqnTnfQu9
P2wFptB7g8B0lZnLbolPwZVNKr9vWaXESgeUPsYlbekqYj9ux6eIUnO9wJ6W
KDHzAGBBAmlg+M9b8YleYVJ3vaBJiXT8JiXEtMQppeSPtT+y8iQlUhrImdC/
wGnIC5XRWDD4BiWWRDqFc9bOn+ezjP5PXx+lpOc9RDOnrCz8+nNZqNH+IiUa
H0VkpknS85rjjZoJ7ZKMYtv3KWE3A6ticm1ad8K7RWnlJqpQ/AlK9PagzOmm
LRU3rXyXEmsIfvA5Opxm4V1KqYidlDymJqUgfB11pwj7EVEq/SqhR8kXH3Pi
EqWBV+6r5hQ3KBV+mdWk5MpTk+hTEsU+VxWnuEUp/WXWKqXh0qerCiWBjQXy
P0fuFDcpLfxyNCrmtGKYWpSok5HyqhO10Q7j6XlkMtKjQyma7aqUXNU//+7s
NOXZmMhllIN4HL7d1QqlKPmM8M3fCWfZLJGJqE91wrKXKfEGyXrwsB+LXlGm
xCSUPW47JfX3J5XRZZz2UUIR/46SiGyZa4b2FBwNSqsi5hZ9y0zS+T+PdikN
kuzbWOwE1TMqu2dPP71+d6QUhQQlfyraWNwrkabdEBG0LKao9xX0FRUTlIJ4
v9SJHqX3sWkXQzKR6728vAHSGPsTUccCpz6lDfFJdJ/OTFiMNEhyRRvzANxw
CqoMyb8Tn1T3xSULMySBGyb/fl/d4ZTP8DenVNVZRUkbU05JNH5mL4MqUtqw
28NfDlHsFiXe7JV/8+6mUmJprhCUdFwa9ps3KIzlShwk73b0KJbYt83K2w6Z
oFQRbTmu/JiRXh+7bsiDEje3MchwVaDEqir/Gu76/F7j1KV0++/RPE9JCDdb
orb+UR1eYul3We46T8a7RF2GNToZ0nDt/TludSIt0h2KRUpjLrJkS+horsEb
nUjLfC5W/9CKcg6XfJ68oE5Kic4Hm+K4PiilqpAWJbUCKavaeU97pvrYyElR
WvqFWWxLON3PtuuNBIoLYzq+wUlTWviFWWxLmtIlqkpJuuZDnCJM3V+YrdrS
JWqJEvHJ3ZxCSvWXnWaiicO3Wm96uZK+NRafWNbPyV5OCaXq66+0mcP1gn1T
x+M2Rc2YTH33OemAaY/2L0dzSj+9ILanHU+63PCf5GPj6rWOKN35TsXv8zsI
Ml7WWSamZMyJGNWW5Wtux9fRnO9oQ2g6PNxbWaHtuNrDZm8J5Go25Udxvgtw
4xxHpEJ/+FQnZkofuTdwYt4fYKrNd0EDpAgbHNcfQYnYkg9Qezh1KZXmuw4l
Gkm8rJjSAErQ7E1OfUrNH7qoLPgeh6s39SelhJJ9aHKw1t90Vik1NpHneYra
eU7iUxqmfJlhc9ucgnEIj/X9aDklXzuNT9D01Aj/bzp3zHcFSuubNN10pG1p
6l4Sn3xbbOwprBW/61Hace9xYMdx3srjEzRNeiJ+Kdz5jQv398Jx/60On/RI
VhCfoGp+0uM06FUd0+23OmVKJD4tUHJeWeR0m9LdtzoNShCf1m2p6XcbKBWk
aIkyauMJxidQE03HJYxjhjNdr/SgRenGrEpFslmOzHfHCiXf5ARrzw7NrPC2
zawDMpV/LFAy05WDtWOHZl5402ZWQekg/iEDE/gk5+fKNwPNGqV7qxIkfLu+
junfC8qSy7h1a6Gt33UqadXCGzbVhZSmjBcIt1fGPGgYH1CsxWmd0noU1OHb
l9CjrvVmlEySin3BcYfSchRUTnGd2EvSm0Bvb1Qmiq9yahxEtbXVmyiQU3vr
9Ea4nmn3SU50ABeeIguUbnCKAtT1+RwnYeY7niJZ02veIf+8iP7ay0kHg8VX
U5nHLXGStwTMnuelu02cOKWf1NZWjIrHTRc9TpISxzRfbeEUUWotaSIlNu8d
7hVekZOmZN2MTrgbOMWUqlsxpsvBShBjQjeMekO7T3IMzlFpuXRklNq3/GVK
JopkLg6Ne70ZpQnWTU45peYtf50Sk61ELVLaNeGJOc4lN24MArOBC3cWdCag
NGiBK3UHpxqlxvLyEqWRdQb0CSfQ69QV27G5J04uLi/TmS/syVHoTE7JTHLT
6bAf//rBZQMl3ZkiJVpkG6dACXN0JmuZGNmS6kyPkrersOn6UaXUmqxVIqE0
X54Rl+0UIwl0dmNBadoZs+XFdnisPLcoSrw0EyVmfhSBfnadTEXvbqrLkyuO
JyZof8UziHOk1i4mgoDarrdT2sSkBPFHdGqBidXlbxISGkysc8UVz+tS0hLW
KNlLS4C8SIAypO6Hx6nQTPOEtb6tLkv9HOFtsh7UnBKUIJJqlIynYRDoGtQK
peQ2WUbpFiXVFaCkxJ9s7Lb8pbW6JUqjvLJiBrowyZFkJ6lJiQzN/HXrljyz
pVCApJRPcrz2ixetUZoD9yAZNzhVKMlCHUpvRW0VF3cPcQPluHA6TtQwJW5y
6lAKIkfBZAa0we2K3EBFbqpPHKw7nHq2VF79lZTU7TYJIXcoTVa3g1PX40ox
KqTEb7eZxUUUsnwfmW5yagcmcW/QoEQ3OLmAxuO4i9MyQPkGb9vTQvguCEko
6WU4YnGB0cBcgZg4rEf21flC8T05P/VdEctwU0BBz2xRMvMcwNrx4JIWSpau
Y1uic+YgxaVL5ZQmOALWjZ3LpULCGEhTQ3TMchqQ7wYfMFQpxbDqzy3rlIJH
CpbAKcibMMGhS8lg8bA279EUlOQjhUtgtnKoEaU004AEKlCVPSyUfufw2kzS
6quarCnyNz8Dz4PLyHpJICewvPQ7B6eUctKB219O05njYK3I7zmh0ZpJ4g7Y
jU/xoSglnDQlNI3xCkvw6C9dEXSm5UTkWD00pViKjEXCn8idZBKRckoC68uF
8gf2QJFxolJSStDg+CyCK2tZpESamR4W93DKbElJKVIa5KI0Wx0ahs7w3raP
kwi60+UIpFQpjUnll7I7bhsdSjOYrX4XU8rC4MBzZj5iUqhR8jamBUpEtzkl
lBIxhFKcZqI5H5Lc5XT6U5xqlCpiWpSIIBm/i5Qmxts5pZRsVmHlt0aJtWdL
+aU4bjMC6kPxySvK0hMxBFNEibTHuShKBy19fIFTSCkWwzZjZB4nOKWU4mlj
TniGk8BkNanekAfr1yantLujTelBTiVK3RvyMHpztQcWVi6XUHqCU5FSJT4d
NUpc7WHKAqYWpbn6Hk5lSvr+Sf35neBEcPIyCQimG9iSaWoHpyKln5Nk0bZO
KeBkuki1q9rS1aQSWD5alLJF2w4lxt04mtDsKpYKeSKOE0VYWCntFsspce4D
Ps+zgTm5tIc5aUr6ba7XztaTXZP3T1R4T+zcjQc4RZTk29wVSl5thgnjucCY
JGznpEf+58jmJxFHZVHPidNQZlUQ/winjJKIuyuUCpywFdtUSumivZeTc7lB
cslza5/SZC1sN1SoBwydDOMQzTdxKlAycrJIEVOyas9m5iKLpnT+n1uRHv5P
j256vksowTYv7VcxpTFzokHJWysoRXOUPpscL3ahWaMXKV/4n21Jr6fmoGS0
TqNEBfrP0m9s0EwCjVEweEXZpETjkzSZjBL1QWaiC5yovScmIAwgehCOEFg3
tgr1KNGy8x/vdhLLBwQM9g0K+G2ooGnN4z6X1I19hTol8GvMaXJqU3pfvKLy
eUOeAboxihb4Anefi85/asNJzI+YkjSmg95AdSmZHvP5U1HC0JO5+1xvMT4t
UNLxSSqq2jXhYpGSFm4vXxOzxY3RWS99Udgm/8lU9XkHWLjoUyoKMd9LG6Mb
lIwYqJcEOm0wwY3BTUp42ea0QokOR6xhZZhfNEs3ibxK7n4jPnUoKTE/6SuU
xtzeCqWSsPPsUnQxPmmVQBhwUgACxaGfOC8ElaD3BWHDVuzeFyQeQ5TynGjN
DiXT3oCclFJmwJ6TJ1Y4Umtl7TH3LkQgaUtTe47FcKe2djLELHstRnUoecVp
HOdficf9JPF5wcokCpVp3eAUDjpVaoKV7mRt2JJtcEjJjWdsET8WOGX8kzCg
Xkz1KTFOLIIFFJJ8574dTjcpyRfnLpjQFkDErPNZ9spNAk8pMAH+Eqc+Jehr
FMdtnYTSMDoj5z2UVuKTsNKIEupvX3TbGoRMQAkbnFqr0sjK9TmtUzKdZesq
cunRU3IZXmfXm6vcqm1ZSY34dJcSv38WlIQxjYNzwngiXKlqUz6p6Xco+EA4
sgzeP1cpCYvmD8LEjYVDRBQHlmj7XUyJjegkIjBsDGms6asX4QKpVr9ma1hl
ze9kouns/MVFCFhExtyYa5BRsgEKjD2nRIEmnKhPBSGKdZndj2Nxh2n4olMx
9QIH9FixpVOQLVqLT8K6RWRy9PRGMQ4fW5jO0ZNnk04wlCjNgq6sYHc3bL5x
2qeUFCdePrBST5LeQPFKqGdKiWqiH1KDBtnYE0qCk3k9NnfCOy3roG0RFdFT
fjY6TBAR6UWXKMHv5Flj4rnFnEs4TnHTIrM2heFMGDQbC8ecklEg6tNC5iAb
dJnu7sx8X4pfSrO+ZpTEKNHSFhbthG82pKT9nIiYWqrYEljMT4J4g+f+Jtgi
JTBf3wnpYdROYocjXiJ0r5CfhND4hGGKSmpQss5MRGKNOqVrwE1jcmP8QZ+G
dWg5P+mDyyBpPEyALUstwO+0s0t3CkzKtlbYaF+ghCbKwYjK1OWgrvR3HWS1
0xHkXLf3Ga771/Rz0ofX2oWRw6VRAURIoAUPHnxIlCcLY2J0uQyQEP5BQpvm
nvAGvaRd0D+1hgxTIrhlY0eT0o/xMBldW5qaOwJORAAL3/mGe98V3I0dUBJ4
sp5GAcqDTyhZrT+pJDbQdtIh0W6Bk7amxNuQwmVTGkGBEo0WXhBrJzdcF5dM
unz5r46WLV0fl+8RjsPlBLbkosU5thRIlFi2JesUmylBACKLvzzW0UYuS7ec
WLgIbakcKyBd7CaKjgKlY/rpt/eUORn1kpSOCZRfSn5nDPZntCoay7jEAtRW
Sv5EiXExMaMErU0Z4+DKrFI623OB46gcct2Z63XK4ZtZlZGzpLlssPVs2Fou
g7TsJQhY7MZAHwVKYpiS3ThHjRI0JrxXtqSouSaw2ZctHR4VSi4u+fHwFUoe
B5nJVnu/fKjpiBMGq7z7sEGJiKUBKjJHipAZp9Arj0PalBFWd0dd9MqZ4bkk
ytfCV0tjzlY/qLPQ0RWyOBT9sQejkot0JU750JBE7niuYwHv4TOuBOp4KrRw
hTUl4IQ2zI91SszxWCXzrQxsVonc9gXtosFElBY5KY9jkUaMoxWUB5CoRa81
GxYKkAUd2pclTkFflMFyDfE93vsrbPljUl6Wg05Mqm5teNbmFI249nSuodpX
By1XDDddD5KUQr+Y89bjU+RocAIaBu9d4qc6JhVv+yx4I11fYMUpzcJa2tmT
UvKB4GB3UNHQBhbM1Lb1mDEZN9dxfPo8f1LdiU9hZ9SJ6WwexzMPpq3xBqCN
wRLV8Frtf85K8alLiSksln/hB0YRJerFBUrOtBJKEJsSg2JsanAmRWxI0UIS
St6fKpvqYlqaUo9TzZa4NDbEfGuMH+Faz4JNdQOLdyl17ck3UKXkc3++3MqK
wVodf+piXLMblOaQVuV0g9IszssZpIhaMWddM5onnq/kYSmiRo1TjRKXDuxk
SBksUTj0bFTiDl8J+PM9SC53AjCqu3E8HP75QoQU7hBmhH0CqO5KCOsB4iAJ
ckfOqbSTS/aP2Ahf+qXG55of8wkOse8p14yLwrpkVGJOXGd7lvfv7ycIUrFH
yBkHheWfXsAIpaqB3EmGKRtyIj8gLVPyQyO2CzrdtUQDi+lOiAlVvUNClYGl
ajfkHUpnDncTKMZ119RFi8KF/pSivkYxwQhfpfJAHuzI1ZTMpQ5QQnc1LhaW
Xiif3w3TTYOe6sC8ZJgvSYnOCaW3BC4oGWEi26s9Dj/hGe2n8/D1DIYlUjDk
BBJ7tmRUd4KalHxPvO7K406/O5OTTim/STmxqOpkVSmpNaPclrgbRLoTHUiD
5EyU0LJkvOhQcpEgsv9UUJeTM53XJVFT+vPl/S+UJbXvU5oyshuDSODR5mTr
k1VCZcEfWLms4Rq6QYkKUu1ElKq6Kw3hpgSlSt/jshSVJUqzbP6A16EEsDgn
xv8SPiCPiCWrBvy2RtBqUrL+bp4zMtcjlAxZyUkMFX0YFJQ8BpCV0CGd0JSY
o3jXy1wbzl1Vued6QIa7heB/fttFC5NMtty4ALVOCWC9/5NbYUwFW7KXfDGZ
kuXrqX/zlE3bL3JTa1xY1LbqhPYBsGxHpOthni8SLbpHRcmADFcNRBLHnZzl
FqVjGi/r6Wj/BUpTG5zTsPZh6pK7EmEYc970Bff+2uqXKB0AK9qVQ4RTIyV+
dxVnaqqnJpYQOB7tpYwbbUoH6x2+4ySWgA1PViUWDMj/XAZbXKJghLVNCyBN
dUIPRQDwAqVevjF/UUPk7MlWfXeWFRUyJy2ZLRm1D4apvA9GVPcpp6fbpfpj
hdIZM+gkz4tymdS1fS9eV0MSQYcSN92zoUFHxgAtUqLrKhb/RXAqmlMy2lvS
HhRVLFhncTmDpE1f3guIv1M7c9lTaHU/RYBxkg94rCNjatGR/gTFLMLoxo12
bODs14uIQqGCEoSMwUrNie5lX2Kr47C1z3AhpXT+IsP8NXyy150sM9Yp2ZBh
RcCPcGam1kfD4fbdrD90iyTaOR+lAkeQLsyjwNQ/O3Py8TDyYhOABvzA4+G6
RSKUH3NpCgDLOk2b0nT2me+04pPk7CGcwrrUdo4+CyaY/ImmNMwJGetX1ICm
NDdFVmr82M/tvHw5FMxgKU47KNEar0xrRQmVA060gy4cTSpwzQnyc4+M5yQY
BJS46MnBB0o50O/omdfLlrk4OVjofYwI/+WCQH4JJK0S3RU/bhJjTmKczj4h
XtPS8OfWoBCWbYWOaWTLCEs6XocStusCBY5G4T26O0VYdtI0QANKBKvvqYKl
XxqdXiPyVBfcJY7GC2tMFREYQ0luoJh/uQYw7yxBfM7Uzt66EEWlI3s6MSeU
GUq3Ori7bKnpcahb8MD3QoGk/HuYQkrzmf/Vd8ppmH7A4HpVprbtXOAqsjEG
A30rZ1We6nOBrimUpyn5IpE94YWKITTxynFqi1LgcfPQCF9lrRz0xoBUq1D6
sC36XUKJhAjeIHYVDV03Pn40J1Yle+CHkwyvpkSLCE70af+tOh1g8sUehNXv
8j8nL5v9OtXTYlQPJCW624Mq6p2bjYZfAA6NiX6x+GRVhN+ECIjSqlQPZome
DnToYAlgHUTKfBk4uvsESyZhVejoGtWXTAnBKXO9GNssOrZaOltRC5aw5CKA
pSwGPOpQ6neu9yAjHjjQt+B3geZgkmfOi5gk7xvRdJAevaY6DjfpQUqDgPBd
mTNHIOW6jCkhrLOyfmfqYZW7MgOG4Y5DxTWFhObt9YFyTgpdtk2G6uzFxIk0
grAUJdD9akfuglLuKweA8AENuXfjpTBgNiRXYzw+KVik+QNZqHacymo1U9mS
zVUaOk6ALabkneg0KLZCHsCaoFg+Xg5h6yKHtx1ppsrXvN8NKAxC0X0Tuzir
k5v6ABZXkNYZ9CS7z0zuoKT7WUmfz+GForaeidVoWMcjZAJy02AQgzGyx5RK
OKU2FVACy5iSfVYcnxgsk00DFPEYoRH1q1NPhAWchKexN54o3/d2OM2ps5N6
p0DntnO5y/FA11nh4TPMwguZ1AJYGCqAFhgVXMyVYRA/UjgndBC2YO6M8jIo
6kBEUeVgNsuOioVVvJehTuYveSUD6ifHL9VhI58K1Kqs4/FmTKqBRQdlHhVv
XWZwWVPqV8cxpUE0vqYnA4o4yFzAuIGvLVb2wVO96/EeKb+7LnFZf7jaQhLL
oyf2/K9g9a7TaSVAzZz8H61NHMIZAvNLAQs4wYgwSaII9HdO/EiyBodj4LRC
DpaTPYg7+Q6CtoYegXWpP7zi0welRcTMp8OXvPp+lVBLJ9PeO1FimvCsIkpX
YiNQDhi4GnT28eY1KSDtDYfe5UDodSNm7wimO0nfJXF37MQz50IDpV8M1jzj
KQ+1doMDbPUaU4I3A1PFj7Ef0ZfoU7QKK80G++a8wSviWrH2ZOozWEw4PZvk
DyPJe8UgH9zUh21IibNmg2IiN9Sw/KPLcCVIg8FOKWJ0jC+Y+Yspiab+c+gb
+lkxaS4v06+rxjA10bhB6rCNGDND3TQlB+sFVeZi5NZS3GZNv0egRmPKck6f
FDQCCQsHZxbmYXkG88lVkdi6EcXecJNbS1g9EX+i6KO3sFXftbPZYb48nsFq
gdqD/ENY0dZyVDdYUPGDc5VHy3tX8PKoLbM082gIsGxdaoXTmX1d6tBGtnSq
ZLMcp5nG3Pd3F951rw6hoccuZyh5O3MvIT4VJljGhL0Vun4amWiRR3xCbZM8
dFtYPnLbCsyFhGBmTFeiuTWzvTOWZWzFWiFBY1xuVlhblVFzunq/LCGm6Th5
MWhUdhdRZFRWzXFMP8J9sSrXlG9VITe+BpYTcqpOMAXXl+0SyuPTmuX0Vzuq
mrV6NGI9nMZG5r6/TGPnlD8br26M6QXIuXoHSZ3mVtgv8tHWG9BbDbpKaYwK
fNAMLbZ5OpMdw48DImqcVuz5pLd9wzOjh074jp6SQI+5H7hgP65T27rbyDMC
bXyfr9NL3rWcMRmCGQl+Z2AerqYbl6nb7zb9VgTXpcmcYTFkQAWyDjCMYp/T
16n9MLlnky9jmJ8evEwnLlLD2NOnir1hg5cX/hwvXrO0n0asv7mlcj8iPzVe
gZS/CeNcrfrz/X8MgFxj
     "], {{0, 0}, Offset[{300, 501}, {0, 0}]}, {0, 2}],
    Frame->Automatic,
    FrameLabel->{None, None},
    FrameTicks->{{None, None}, {None, None}},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImageSize->{300, 501},
    Method->{
     "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
    PlotLabel->FormBox[
      RowBox[{"\"lane\"", "+", "2"}], TraditionalForm],
    PlotRange->{{0, 300}, {0, 501}},
    PlotRangeClipping->True], ",", 
   GraphicsBox[RasterBox[CompressedData["
1:eJzVnVuS5DqPpJPaybzPamYJvYFZ/bx326mMEC7ugIOU6vwjs8qQKF7Aj4CT
oiKz/td//d//81/Xz8/P/1s/P//7f/5d/Fh1Grrt02GOBc6LWv9cZzN9vpUa
TVXfOao+04MWaigxTG9QAlYuctVTepbT36NUYKIusE1pgcq0Axb6j6Bkr3/Y
jTml5zj9R1HK+lQ331La5CSV+pcpWSNx8yvgKSg9yol49r9Eqe2aTGlPn2ip
fsonye9Qarqm+xJbZDQH4TSkhCdfWAoBFShJXYvCxHE9w+k/jZIUKlGfnhQo
OEsyGm3IvUlpqk81pRknOEtSSl0l71Ka6VNHacQJTSUdJdIvOlej0y1KI30q
cA1qc2Vd6P8HUxroU0tpCbVFIwariaFuHVMK/RT1KVMKTWlyB2ubrsddaqfu
z1DqjKQChSmJnEItfZkWRt0APXPXC6TNOiZTmsndJXJqKKXb0EwqZgt8gKrb
jqUFVEFp7BsCp2cpIVFtPv4c6mBKlAa+Ier4w5Sw8YjLrGMDSmtQnTeNl2EC
BDtWGwYKYEoL5Ly0wZQpqb6hTbl7lIj+pFsVJVD3SHjhlODOFd+IluMyp5SS
X+iUUOW9jpcNxfPeN7Llk/0nFhZFKyChdiJYubrOxBNnqrbzDTS++v5T7UyF
JgmUvgKLKy8FhVAqZtzaN3BP1P0nmVLlV12oUR4DRWkpyXO84IOs+CalRq97
gZUVRaBU9pkO8uRZp6cE+p6Kka6syhhRUSRK0kvw1FX90ekJSgsiv1WMWSMp
Cqg6GvSRQXwg8ysLYOlByHFK2I4dTqkNmVL7ZYGdKZfrOrWKRhwBbpNlTsms
7POMUhPFrMPS3nN/d0gpu9aEk+BMnFIZxbzDkvh3d1VKhTljfUr1KJRYKy2m
2Teg8N0pJabiU057lHgUlz0efAMK332AUmfM7FsQzHe/JziK6x7r34DCdx+j
tBV3rJ6roDR8pv3cFL8Bhe/KlOCg0VLpkHddBUqoupbSbiFkVC67RQkxGT6R
FT4M3bbqcROtrU09pXKS46VmnApKfLUgfqnC39t7cgEe/QilISfQOm8XuoZI
ae8N3nuUsEHtpMwoYQO3XoLPn1wK88L1gNL6/lA57VBavDpae2VDkf89Ss3i
AJuxxpQ2X4IPH/Aypsco1Zy62JMirqyKF2hKVZQgh5RM1gmY0ganMSXBY5my
66/w/galCacc+KlhaMLGS3Ba6q9T6tRDcHtOabmr+UtwVkqhRJYCMBULEyY2
1CeVUl8VpbQ1S25Qws7E/GrEiVPCklXoE/UlIVppZY9S8hfjuIPtE0GnnDpK
I05/gdKYU1l/8lnCqac04FRTwro9pnQYd9ii5X/IWySKn7NChBLuPLpbU6IG
lcFibWNtU07VJGcybOlTvH6IUiGzRbCgEcxtE04ipQmn9TKlEadypkM3ISeZ
0oY+lW3IlEDxcgImm2u0lmzMF9YPyIoPm2H2lRV67ROBp3WUGoNgsDCXrPn9
tCagslu7VholPN3B4veQC5woi3THKHu1LqiP0s9RTnKJbPPZcgDgshMdVynl
pmecvpVMt60OKZFZ7j4Z6nhMKZRRdwzUzGzb6j1K9QwsviTpKY1mePs52bb6
C5QETgeUdEVONejbVn+FkuRP0BBUW6Y0PQQ3FKp9ntIup57SlpY3bn79a5Qm
D3ilTcSCarJIddkyw22r++bzlCYTXmUZMCoYItW2P02iJntKCVNF6YQTpRRH
drBo3JgmUXFu2ialvR3N2pTs1fMo3tpYeYQSOaWvoNQFTE1ppE/zIqDFdyjx
R5S9r0Fhmzd2uzcD7y1K/BGlsFOV75mOB+MO37g8SQnEl2Qom1NoAKjzXaMH
sj3PUyrs6b5bI1Pq60p1j8qkeeMFSrucRpTUp39fx+aGDKcUjZpQ2uQ0oyRO
nkO20J63KG1xmlIaf2nln3cT8w2ZFyltcBpSarQGUmosa+t6gFK7Lmhu7FCa
Pf0Xblker1IacppHXNlK4UxjMad0HqFUWcJfJkwoLdpKT2n+ZPgWpQEn4sYK
Jf4UCZOU2bi2oZEBf1pQMusVkdMWpcIvYIFl7nA/ZEfq+TOUZpzKWnvJVb61
ssD5weKgoNSNOqpwwslzmUxMs9eW9/n2/nNFiVhOKI059dIIj6YVUoDY0JV4
gdKQE8PRYBoHkA+JrYe8iO2MUiuVystOkdL8izrj9ROlJGDqLuohu28cUxJf
TGR5Heu4RomoYXnRc9rD5O9OXuDMBSo3+jClVZjSbdSN7sqvpoJT7WytEzlH
wyD6ErOlN3FGafCeK3zuBF5JCeDsLqgtjcDPKdW13WXA33o93tb0V/uU6GKZ
WjilJHvnqUBBASLpY0rsQW76lRGwVrEpvXd+PuYTQLCLUT+j5EyxTYy+MgI1
wSZorxJcFTMhD1jogMV7KiW0AOAWYkwoYMK1+B4+d2a2QsWU1iklB6QfyW1K
s9c37mxHoEq3YHcaSvq64IDS5PXN5b3iYOuXVY8SWkoqpyNK+uubVOf21i+p
FV4LlPbWmZVtkKn2+gbUubuAwrXCa4nSPqcBJe31zXW60FQpFYUgJubZE2GQ
KGmre/h/6+1s/fqrUjFkSsgU3cBaHM2hrO7h3D7f+vVXxCCYXFJiij3Qp7r5
inr/p7p39Cmzh9niOSpGXVs3UKPUeGcwKEfDE1uarE1gAEmLfdg0sDBKjGKE
aU+fukmumOpCWiSHdy53txJxer1fgGzf06d2KUCn/Wp9UA7Z/ow8rcxpZhj1
0XA9RGmlu89wopTujkvrglBmaMVjvsQm8UNOhS9JnEI1y/+Yv/l7itIy/67C
lOnLWHar766xxn4MdZxYdEAp3D3g1FMaxF0ss8XpYUq2gs03U7V6h5a6fRWr
SsJv4okWrZws6VLk9edjl5OE6XOibGiC2Dt5kXBMCU3E4JhLQ2rJ1N3vaK6z
hQF2giLkVEr2ElqzCQpREjiRwdsUqGNKvobPVPMcJ0ypqm1ZiUr9O/luz1OU
GnM2OBFK1XSx0MXehPc0JdGc/UdhaFb1pss5U2tY2Xor32NKVjIf4EQUsFJk
NIcs/2Oo469R2ph/4dFRat90ZX0axx0KuUcpHSw2izbrGQ924El9oo2E84pS
8NJDTgol+oUPkPMRfcrV4jt0koNVHnASKMUeI12yQ9cIZ2HFC5RcRQ885BW+
5HtcUMqwNjfq3qG0zUmLuL7H0agllaLGwCmdZ5IpbXJqKS17KW/U7G0YcEqY
zZhSac78dSeMKq2q3K2jjbrnKZ1xwtOt9SbJM2aC0Bozo5TKkcHf51RSGnDK
9g3XBa4wqY0l1pTM1eE6M9Xt25M5rdSbg426hynVnZAXUJyS2ON7jrNVbLwe
K04OKZ1wyrqNJvm6pqBkiqP39rxAaZ9T9iJCafSiS49Was+QEpxrQeJJ3BUt
SE34Unf4zTm9TemcE571tCZC9i+oKaf3KZ1yKjT8PhU5BVgHm8/PUzrkBAwy
n8OZy8q5XopbcD1I6YhTTUmt6deNrIUnOv4OpQNOEqW2x7DoEzq+TSljqs15
/n1HW3T3CwalfD9C6QFOhNLyP9p3U6ns2Rd7GheXKfUiO/oaFDGr5BScKJY9
+WJPKZc5oaf0zLqgosQ4NZRUA2J9hTkwb5XNpZw/B5P2/Ad5N5VsPFWolyg9
8RwMfSqqAK6NCdSQ0/uUHntuqT5gdUHnryv//ZD5k9OQEtZ0nLLJ6deJVErF
S2EWevMnpxcpbXIS8KS2fH2sT3Zfc0/IX6FUWMOtHFNCarNgbpews/M7pNTm
u48pJ9hg6PDKOYpvrfiJ4D6b7/y+R6kwp1pCh8vCmSq1WU7HP/ln+nT9JUoj
TvuUil5bJXZdGD0RyFM8yhc9Gh4yJ1xPT6lSm2XLhC6c6FO+w/NRRfeHygnW
UwhTuIWagb4nmm1L5jVF3QRYTfTNHXwTQ6eEqlMojXZVVUpsgq2PDU5VD1nz
tXuyq8FTpkwpgdVcd8xJdeVwDy80wYW1fviUqbSwR2nMqaWU2oeyTK3zpcXd
5/cpnayfJEpYauL/0/z5HY5YWuL0NyiNnvDKlYG9QJJZbq2Q0jvfcniH0oCT
TInMQHxlAJ2p16foTIkypkSuu0PkdEqp4OT75z6Vt4gAbzbglJLKCdY7oVQI
nvWLELHit2YirHh+RulPbm7Kfad3ppZSt1PjIvD7Q1jsQjEklEBktgech/zx
k5sv68IWh9qqwlaoOk453LAD1UZ1RzcPdbdAXYVBRZ9zwGg6zuQaV4aMEg5b
5pRT1F9CqX4SNo7kYkPiFFi8QumUk0ypqo761OwtYqHWG5hikRNOE0r9k9Dy
PyQLYEvcrXZq602RZ2VWu+C5cDISJzzc0vlSaTQN1bdQnZ2BxZcx7vMtToRS
mATVAxd5Rp+akMN9zlN76vFoo46uoEYHKfeEPjWUlIWBc6eJP7WUhrzAgqOz
RNSnllLRUtS4GIHiBlRs80lKx5yoKSSBb9SE+dLAUr7mkM63pzpI6SFOKqVW
ny6HSeD0lyj1lox0vE/AG1opRD7JzSj+XUpP6ThLsdf1+smftNa1aJ6lVMPQ
1QGn+OvqTXw8+cJqX2eYs/1VQe+cB5yqxlCCEENgkdC8SMYz2+OUiCH9rbIx
nEA3oMi0xzhhCNshR2qRza9v0fpZQhtCxKnGrzN2KFEbzPEAJ4VSo+OE0vx1
xgamA/PbW7NmmNLUOi7a8CglXsEhJ2kwMCfD5Fe4A6ViwgPN/TxI6fG4q5cC
Lu0Hptq5bYEb+uJkNjvH0ldN6eGFJmjhm4RfCH7ZBDy4WNncFNTCl8Qrn9gw
4C10421diPz3EnL0Hy33GkqPrZ9KSo2Or3DhXeolTsiQSuHeWmemRVu3X/CR
qEng1Q2oh0CpPA7WmWBpi3U8ZAMmK0J+wqmWb3eQFrbXmbjNn3w/raP/wOri
NTWzz2lA6ZCTRMkvhRb4oCuDN+NuROmAE1zbkfX4XV/U7fsTxd57nIaUjjjx
xnMKWEFFPVrpjrQ62eE0pnQSd/3jPFFk6FMm9S728nynUiqaGHMqKQGBcrL9
pdOtJ8CxzUn3pbOlB5jDeMpPSk7z3fdsFk7HOi7m5E00u7XZRQojflK6QRLo
DGXHz6fiMVhXtnNK88Yju0hhRMkJXUucdoV8TmnPn8rbC10SqJyb0vvzBXl3
SM8GW5ziUCWvXe4mDbm+926mfIcTmYrCscGJO3T15LLDKXriC6DIVJSOMSdC
CfXj/nWgZf7JnFa6eJyT3kQzmtprI9ZIXI1DWM37rKr+wyNT2uKU7xdTCOEU
5jq04izfZ4XLJ0EteLXFCVcF8tWDgVbhN6z+GfK+fI4T69pm3N15Ol8ilX0Z
IWnChfiy4jFO3AHGnKRVhcmJJ+6wvBR0vKD0GCckTE0LiormdTbIiWMo+E6r
42RlRuvfOQpKQ05q4VSiWJYiRY9955Se41RSGnHSC6cScFkaYo/qeEXp9+KY
U0NpwGlSOJUoqOs6zu045dRSkjmRWU17tqioQ6eS10+P+JO0ytldZz6UbcWf
JSdC6YiTuBZ8kVO/glj5o+BUrNS2Oakr5vc41XF3XfHvEiVZ1yL/aMKTKb3G
qWzTZ2FOpT1BlgsPzYCuibKBI07KnOQxBd8K+Xvqc07lakNv4ICTNifldQFb
Zwq+OeY0pPQCJ3lO+mWDlk4jydnQpzGlxzlRSgRpUiWwHq+P+QJqg9LDnApK
wppUW48rdlTHFqVHOeUW+7WB8R9pPY7rGGYurulxyGmgttX6Wn5uYXVombcp
PciJHML6Os98OqfJg8sBpX+RE15mzjhNxOyI0r/qT9877kOf72xZeSeMXLcH
beCZDQOj0N0elLV9qTVrZhxTepmT49DpU1g+Pbcu2KAyaEB0e2mnTtenle5r
h7hvsX+85k8rnuPnf/oYPNPyg30L8XhnY2Xlq+KRGfnWSMvVXeKD429srJA+
F5TGj7fKLvHRcRh4BacuhlDIhUt9+TjZJd463uCkPa+F515zqa+h6IL8QUzN
hLXNSXgOQf4Wfmg2EH160plWY8omJxRHkRP0N+RZ+lqz3rjYP+qJorxR5Qpr
argeJ/7258e6Zn9XLOd8hdLxQhOvir4XvKG0BkBOpT8Lz18kyFU3DYw5ZUqX
7b0+Mw796ZrlVI/gl7uc4jiClaW/GnLSbRgS1Y4UvZuc2HwMG3nVn55eKIE6
S1u2OQHDF63vqbib5+ZHnIxOOFH9RMNbrNT+8zglSs1Cc2O+qyj9f8IpU3pm
Qc7XBSlN57Suf4kTotTaMuVUU6o2Vnbnu1DDKSdI6WvRQ5zgtNOs1Fz8b8Wd
W6adcap86UTIfaYaU9VOBaszQWpAOipKV+1QA054DROct1pq5eX7rOeHnBpK
DzhU+x6h7DRaz/19Ti2lNznlcCqWWvc05wv+DU4dpWcEqnuPYCawDqm7aIrA
KnY4aRF3wqlbZJvTstNOmsL/Lvw2J5HSwYq86klqXUAaP3sLciUH851AaYdT
tRJEY9TpOKCke8i30BandYmU5pwqpSWeDKurfGmoTxu5U5P+OlGacvIV0Pcc
WZzJI/OKCdf9qwov6xNUa3umqUCjPSkP9SVF8mHhV/UpUeEZmvrrSAlj2FCC
UoYoKTMxrH/GCVMqZGP+JIz0iS1kJedAhTciaZB7g9KUk28iP9/RVSObGkGB
5g8fkGOmZqltEn1C/c0TWaXO7gLrE9DKmPQKJ5HSSdy5ikHvC0pkauSUbm9V
j5maTSnpnLKK+zwlJTg1opBzd0aglMzFzFEl1PVDXwldxBuawZwYoUCYXNpe
4PWZTyhpnOiq8AfUnTJ5TnARBzE9y6mjhEZvr2E2DDUlz6mg5D7mCwNlf+Nq
KHWYYBvVXGYVBLacTCBLd1DmBU7PUFI4ha4t0PuKElq6Y0ev11zFISxkDyn1
nEIVd8PQSwAlGsXRtVzqI5wgpbxAkIQJLpabAQojXlNinMIIB2NVToXzdQum
CSVNn2DV6QGPUGLPLci+qT4VzvcspX6fGyWDWYxQIn1ODmWTdE5ZALMJz1Ai
FkFTA5EfkIYNI0+Lqyo0WmLzvdXHKEGTygkNFCsp8afq+B/h2fd4gyU2t/Qp
Sni4UfdAjKDnFmxYt68SceEyxEpu6bOU+Gg0k17eqAOGVX0O7H09DSc2URQq
6c50TJgHn86JgmBKUPHdrYAl/5+kJSiyiOgozZ0J8+DTOYDgdBxTAl3OluaS
HScile9R8vrElRrUvBwnRAl2eaXs35RVeTMwnud9hVK/uwIp0StfextCNnsR
rKRlNBM9HXG9YOdXBb7N7Bwpc81pOZyX+y7GZKHZLlGeoDTlFNpEs+/dec01
PHCdU4oIZMxTlDpOMMgKXcoCVT0aLf+jhasa+jylnhN14JV+phPSZ6Biy6Zv
cQL1P0ip5ZRb4z6Fg4luIxOnqoyqDQ1GPEapdPGwYECdI7oZctF5+w8b6FQH
nKChylFSEvUJNw4web8o+5z98gFOb1FS4u7bJY1STC73G13Ne5zoDvyTlARO
GE9NaZnLYr+RKtUWpzcpTfUJ2MDBsQYwpUNO71GqwgLr05ASaYBK3nHcvUdp
pE+5wp4SM8xjihWc6dMGJTxf2zOFkymxR4lJLYB2rE+vUOIym5ZvfsqXKZF+
m9o+FQmTCzycPr1ESX/jElQlT3L5rNWblXI/pE/90VNqpyN049uJcq7Ct2gj
K/28zji9R0n0J9QXe1JQov3OXlfnpwfdkmXHBqUJJ0qn9KWm39Y/5+sCk/ld
Svw9ZI47EnKltJf9vsEbfx1w+i3v32loZVIRMI/7g2574DdTcXLK9aNRajfr
QvHJfuYkSrcpFdseyNFi6IH6oTMLceeK9y8f+lmCthWLt5Ty0NWtp68E5JIk
5Jv3TEn5Wq7uahSlqRKJEntdgZrfptRxysJX71nFq1mUblGqVh94oTmlVOmN
m+ysazW6Xxtal9yjVDWChJxPctiASp/o7IiB8MSO0wOUhpy8T9m6qAFNI8ud
8XedxJcETo9Qqlph+zrh2ybcgLvTVG+Sgt/n0mNby4nRmFJSH/BM2dS3Qpgk
fYJotWhqOD1HSecU+xIpUQFjbRBKF+x9slyQ2CcpDTcM0CReJf+ets/BYpls
TjIUZjmj1Pg3WlkF52lo3RftywSgeupisxwF9ZynfVJ0feqcB1BaF3aOlBWc
yY9t3FD1nKfdKerCYJMSqitH5zdFkJ3YCn1wSBkXSadpNkXkdEApOlTvTINp
LGV8jpKiguFOEKiZL4Ver3A/2d/oU+oQW2lNKDXOVJjTi69GCXNCs1wgOHvI
q03Aw1LVWo5GfceLyIhSck5UKjoa3Woltr5JafogHCtpKSHvyDoeE7FAFb5U
rUqP5Ju0QO8UgQIplc4Rb941FUJeRpx9mfA0pWVa4G3zSlpKxu4FOg08lAt5
SUkS/SNKQ0652ZYSco5/KKWXpsUM01Bq3nqwGgaUdjnplDInHBcu5LA+FUfj
e8eUtjbqBEo2gnynfUhmXzrmlGeHByiV1uTG/zQL5BKF2oU6vVB2e33KiU69
wNwqKV4rnNAkVig6isBqvsvVb3MilOgUmJOYE2j+ZMtapzLpFSW0fvrcB6L7
52LOCbl4lZ7TgKJMOVWzWUcJxDAptxl41ZpUdyZOSeZ0RilzWih/KLnPSRKp
eJ86NmoBN65RKqZDzCll9DXtcmrCDN+uKUmcaiw9Jd9pUyooXfQCjVNE+gol
hdNvx2rnKXxpgXYirGiV7FBRPSaUUmpZuDFmFHKUUrEwCE5lU1tOUT3mlJje
u570xsRpSPEtLKKZ08rnIVUcQphzRmkVlHpjUs3Ya2ph+j20xb3/3H+HN6WE
boSxo8YQSkGvBEpIx9FHWnLqQ9jtVSmUmKTUg1ZTIpVDX3LNAAXjqPUhrPYz
Z5TSZT1oUFcTlmYIWDPQJkBcHcKy9g1KcLhrsYQKjX2qogSf6MEIePLQNNBt
tl9AsmuUVrihiCXyKZ0S6fNKPwXphJTY+qmmVFaZEwWxLHqk+BLss6sgV405
EUqDl31TSrdlrVgCnxpFHOpzyLdsGuVEKaXXFCz72JfMaSOWKNjY/JTPCt9I
reUmlAe8P9mlCO0orZi4eF5ckxCAqIFan+7cVjnFMqFNIUI1Srg/jUGVFkX4
mX2tT9nejL/jdLfZRugJpSYoMKVPd7ykAA+9u133OVpovEp/vmteTI0p5WHv
BttiSTXm+oMX0RGPVvhiXZmYcbjQHFGSBLP8axgrwbhidwWX9Y7py/fB+j3Y
CqrFJlFqOP1m+vGC860ZhQwwpQntOzSTOghfG/gc6M2UcJ0GCFOSBBMHmflE
uu2FjLSx3I/sEvoDHnoz1V83I5z0pOIEtdpWjPkld24EymRpyiBKxTDw6+xD
rIuXwClkbVrgejbkxMpgSsqO5gmlSdxd+ZsFy6VTX6raAGYUnBilfkeTUgJC
fgF2PScChwkS+CjaQNMJ5cQpRR0/pESGWtgzuD+aF1R0dBqt+Wbhfl5h8jrO
sYRLQilmrOYiUCA3IFMijQQvjS8bqtVjONibzgcpzdYFRUtlpDcO1XLqDrKA
4hEoUrKRLK0LQvVrRqndSwuxucnpJUqtPhFK2afAjXBB/AkoeaP9+BDWECol
UKLVcZc9fRKZglYoT/9mxqPaT452DXFASeKUv/HG6LhLawV2DpMv/N+c6/Nj
AKpZQ5xQGvk3kHEHBMKy54oIKitycriHnhd8SRs2SinAAu0HBqVN55xCheFy
m5JmTmooniAtjyOrbJLYyX2b05OUTC9kHfgaT2KvgSWsC/Kqes7pUUryYKfi
hkhsu4ElrDPdk4tqmM/pMcwpAWea6AAQf/wBYP0e0rvIn2jdnkDF2ldKIQel
JJkDhwVu3BFYOIR8BbcdrRfCo1hAqZgQJZ+gTNr2dMF0ButCTUAhCQvNgxXU
EaUwbytxxyiZ2qQwpPrq7LKz1jDu2MpgQ7+hyNXm5GHBWo2tirDaSSm9S9jj
dDTL4amgdu/oQrHl8FDTeVb1UO/H68t2Q6DOQg7aVg8bcCZIAhDBWaqHepBh
Fnnpdc0BJRYywmZjLl/JVPJ34C7+k/jTmFMyusFEKaEPbb5DJNpYs9nSkMcD
vA7Y43ROKfahMSZVVHCpQk6Ku7UZdzHjA5Ss2b0xuaIprMZtQ4+SB0qcls+o
UiqlzJrdiUAncD2zVscXu/iet5w+OeOi4ylKA7GEo97DSjaUm9gEmbzn48Xv
YUq/n5pYZsGBnfOUxGZM2c+/fX06ogRHfmyNv6L+RVJIM/n7dEecHqCU3EBW
S65QFf9wVb1MMBXOXf3K+sSOciAbldU3oJgHEf6/yVFrs8nUSl0S8i4fychb
w0PeB0TM2ChUzJfGC68FYSHXSHuIIcomGNeZ0C9ngbQg/1QJ0QiUyDM9yW3M
FQHou7KYkuWUlatpInPFStdRqqMomeUSHuHUU/o9xcGi2c8xoBEB7YjzBfYq
ca053JUtVdwHvbqxAqOBjX5xX+O0or3iWnO0K0spmS7m4Cs3VpJXlD50IDWS
/FMzB0+pBSXnCTYbMZ9TCjElUuo5QScUC10821bEfS+DstO3IYzS50KmNJMa
LxHC9j3LJlHyt3JHW0s4pdKncKAOOE3h/jnK7Qjm/iDR9831oX6r3TRC7wK9
0SS58XZoY/mKEBoOsnbqLu144P5/LhpKAx2/Hom7ISXXjbjc4esCldIHFssV
q5RcI6pqqwr1PSBIJGvQqcyXPqASUYOwuPyPXMNXskih9J00GxgDSnx4UCyS
B1TksEZoYWTR7JprxNElpTAlqlEzSpcF5TpVPKBe2XYPi8p4yFlwuklju5sv
cYDAwANJ26WB0es4MgoILa4PNd/rOLWPKnS6Bq/m55QsZu9U0pTS1kso2bYG
8505EUuBnFzrS19aMAe3pKJ0XeSrPSFb4RmkrSR44gIq5eRxJ0RclAxuf0Mp
ptRx2HgGaKsdRTBjgLcu3KVyW1bFTRSougEpERlHzbeeAWaKrDpVqTwOZ5Qu
C0fkVFAa+RJvJ1oTK+y8/b4Kb10OKWVYM90I0wD+ZfRIqY3vaJO52y2gvldu
vpMo+cwdrMk6uXQm7ku9DgL/i34CWnRX9UIQNO3b7mDJuoHHnEDxeQu/jaBz
NfyNlnfm/K0VfixoJoZ1qV+sTVWkIV3JuJXzduOxHChYjvqSyadRiucUFhmv
ulLEKXrYYpf9HvZNCupaQekrZBNKCRcXkdahUrvLJwbfzPLXc2JVBX2qfKkR
2rK5OCxIYDohh5SuCNvU6m4Ep6qfQLiglxuJ9phwWuAsx72PFeGljk/4LR67
FJ/4JX8iYmDaLjYSfcqAU2onyitSY3HPMFRZNIWDr3gnEsDXf5yVDp/OKQ3s
fVLJRz9jgxD7rRY0lT9IKyAnSKh3VvrxpgWo6UxrBzsGtUCxDIJfpMZg95Ew
TWcKohpk2FbRg285EmKREvtrBn7vpfKLlS7ulPR8m8y8JE65jaswPeaj9Yuu
UmQoposomzl/7j2mpHKypWVfCneLmZf+4Ysc00RmUPzELidAOV5LSrmFIhfv
A5cn0sADvuSzLtsIkeIkmxMvkfQJGBYbi5d3ousCrAAUIm3mG7+ndTdipPk6
pN7LnFgfcE9Cv+AjuamJOeKyt0nbSJCR7TgWq2Ipc59zJkzhIwRvkBXiiDkl
l7jPq+FO8abiDRbrT5CifOPusWkb1xHrab4JrArNFicxp0gpuE8SUzdtkze9
voUFblyIUsuJ1aur81DxzQmRVuAXsBGUG2kdU19fR9kNLmuPccqUOA4y/LiR
dXcvNkadKtSchkLcON3g9Fuw3+mHhqJupuGH5gBpxpRChbjx1qG8hdGpVLw9
J2QykRbEacVGkjR3f0lbEylNZ5Oh8izWxV0vIqHrcHKiXx8CvsoVJd6/1B7D
Tgy8sMlpVORrckq7Uk/An0mrv8aw2iBH929TNJ2FH9J7jrp+U+GyJSotAXeY
Pn1dk+uOyVD4atOPipL2zZ4kHSCPyWsYgZOsMpgTpYrdp9C+5X/oPbYffbQy
6Sgq/sCAWywrJsBOMGfM5WLGcMPerzitu/a4CJbC6Xu0O/B5xKELoCzfvn23
eZyp5PecC2PDdbtvmn1cDFdXkGQkoRw7h/pAipKvO8SaUjBGLBfsMtWP1APv
5CpeXH9NSRl54OZRx63aUErMMGyh+uBynzJOSv0NpcshIOW8DARrTPJKJcMZ
siB8UpdNleVqMSc2enzKZpRom/bn9xRaE4eWXLbe3OgTa6Yo5gcZjkOjSwWl
Glay5ltRFJziAplGXBaUX+hGp09eIMKbmdaXkJLaKwgLvzZa8BpWDXKFlOKb
ApDS7yfnBOuvRsqU8w4Au7JQOfQ+hPMqrrKXpxZ4GXvx+Wx0HNZfUTJJIDmm
sl5QSjGqS5kymQtOYGCBLzY6Xow0HDJXJHUk1x59q3uJVwxNfw9HUBCZ3Ghh
GBi0ONLEKk8rUAJe5E7yyykwagEvsQf6Hegxcu/fJFeDsiy6M3aUSvEANttx
JFGRG2Nxjj6zDeWehOlIqEFYFtGMNaWFEr6faQBxUOTGRpRWuFioidBRqxtc
EHp90ildAATsn/CLwge+tMy/3AT2vJZTGOeccUjpc1ZRMmfEHIESGOAY5svl
5/aHspwT8kSv4wNfImGWPA2Yg1sRKeUusGauRCmX5YYtlHGlbLFqlGdZY2Nn
na/UchkdIhkAzFuh6S6KbFVs2bVwqZgxYEKUIFDkWXSggWfYiEi3YgJt2jdj
01csAA0LYkADtKTE+cCvQyffCK1ASpBgP0A2W/NUaxM/13EEQXO2aoVSZSuO
vStag23+/IjxV7YSHBBzMrt6VilMWTiCoDmgT2RIka3Bp2JHv6fsiz339V1D
Lh8ai3UUnGKDOYSRn6Dh4PoEk1HIheTwI7bCOrGuaAH0G+ySfdwlk4puoXbo
KyPYGHZ8ULXOKSJncgXd+W6q9CdbDetCIyFYn3ArtakVLDD9mu5dGUfSkc/n
CjeXTSHrp7gahm8buSukHkiUiD741iIs6T1+ripRTBV748qnEDIky3WbOlh+
vsN9WPgSy0eCVb0NyX8khjkT6MW3CtAMdP87EXTMu7cvmLYaeVsVJeJIBaeV
r3ws3ubnxl0ofQvwzQ8cgHiUc9B969YopZBLZ6y1Yl/F9hs4I04Hrfp2qv7T
cI5oSN2kJ9HrQRSAAXddLPZVMuDkjJfxKpsvkDbtYJNDmKcI/JxmaBWnXUpw
7NjmEAyOlGAaQJ5lLqsvMkCfWqnAYtZI3/RglNi3K++fuY1UKfB6wCNU+RkA
Vxt//KfkYR7rVrAPqIXqb6DhYUnxUuo4cKp86lq4uxEfJ9j2LICFQsM12MUd
951oMvEl4NtpZUNrv3/GAQ33o/HuOtt6BR6YUvIEyil5SBxQGoulAtRPwjxG
IrFQHnPKfg/rZqn2JuGULEoxGG6Y24UCLPjimThg6Vm2Le+od2eQGMAmCglz
paHrJptAh9jo4La8S7HMkYYllEMwRl5y2yrIoHn4HvCn7N2xBzzkfDPUmh/S
4xzX9ubKFtzV+ICOr4+8P+bOE9dC9+iDC7eNxQcwzhvc78ZjeAt2+B+f8lV6
fapMAec1LPLg4ti7HLyy34FKnvU9Eb/mR1NBh5NdzFQU3jDkoum5WD4aSkQF
QtN3d5SvhxCfyjx+q80ei+uzY1i056yOP9izS9QOkdINxreD/mdDFGO8pXsD
3dyweZCQo9grKI05sZFENXtkX+uLdnwtPzDWYkvRlO/95LJ3EeRBPSWdU7Kx
96UcKbwdGHKF9dcHR/wBAi+bFr0JDgezpI27ZARuAPbKqDlqx5XHlLj35B/3
nTAU0MJiyBH6+4zvGXyqgsOfct/GeQ9L7RSYs43IW0PFoC8x/euP7XjEGBL8
aVU9ui80EY6cUEg0lPy4maK8L2QTxS5sudUap68dOMjjBcPD2kmwWkp0ACpO
/oM7E7W64XQ3kAh/Sjl+FaWGE1OFmpJ19tyXOsZWygW/KdRzSkOWYcGdhrLL
bF2wbFaNEmjCtVH5KX6YzJb0nJphSJyavqzUTsC6rtAzjiUVDC7gHvH8AFSu
jl/5wLpJJ5gcrNRr0se7XJzvgPfXNbIGUxsBur0gURxz8rrl+rCVNn8Ylk9q
qR3J0jgw8YatOcVG8I7mj+o594NhGP2JhD92qdtO1EUMK3YWNARWa6hk7qHt
yzckvXdwe5BdlBPhEcfXnC3wYUpJsKAspBELJYFh69OX9Kc2Gn8s74ExQCWT
4dy5UCRhWMiokBIrKyLF5bRbK8WoxLa5r0dOcQBhbzFMyDHcR+O6Qva7ivUt
xPnGX9a+OeG+UFhlRhh3sR5XZt2mMSjOE8IVY81tzW4Bhjv2IXcGfLslNsW+
6OBvtPvWqTjxsgXSgkGpWvar9sveBa4QQvTrRnmhidqsMiEHt1XXlFDxHHPX
TcO0scg96zTBudI1dqP7/leX0ku8NL7AzeyAxEIp8IBPog8gqSh2Upq5abcg
0UDf17Ewsu6furxD2aphHISaXDMI1j8HWMSSYMg1/5Dhqjzkz7/v9QrxlduN
dQLr/Khno0w5cPOTtKxR1geMqzLW0VobC3c7yFtXKlvCIniMD3dDaXpjO++7
nLoPeFu3AjUzcz/1Bxh49nMw8aen88trBbNdl5J1vOkfUJB4FYJlCpmxDpyM
iYlSHo7QrZVuEQ8JpW252LAfWeS0qRmjIrYgdM1cVbqysHxIR2LBfNTn2G/f
rP+bA9mfqTeFgWU2ehPchEfHIJttPn5CA586UkhT3uQRLmRbvhLwd9lCB6KH
o84QWGkA87d7VjDX1YJqck9ysacwkfjj5xIWDzV8i95mGGELBJcpx1wYD6gP
gD+3fifjj/x9C3xrAb79j4HX3T3bc+P3DDG0KY39SskARAgK71I/C1Rvqdhu
gvqBfWacECxf3T9H3hU1v0rzE0v4sj6d2RbImf+GxVjnDxuV6/quf9aF1t4r
lgicvGN83Ml+4HDxhf0CIHnDz8dH/xw/OQrY1d0A4+Lbsx5lu/4bLt/qsxea
cPGwsj9/XMCPoK/5u4JznhVRfk/Xh5Ptyu80mD0AeYXpY0hMgRG/HOGQfw12
kRGEMAQcOjMmrXRu/cF7IOzbd1iyEyzzCGZ/xev2gFQi2JpZRDv+VP7f00he
FA==
     "], {{0, 0}, Offset[{300, 501}, {0, 0}]}, {0, 2}],
    Frame->Automatic,
    FrameLabel->{None, None},
    FrameTicks->{{None, None}, {None, None}},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImageSize->{300, 501},
    Method->{
     "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
    PlotLabel->FormBox[
      RowBox[{"\"lane\"", "+", "3"}], TraditionalForm],
    PlotRange->{{0, 300}, {0, 501}},
    PlotRangeClipping->True], ",", 
   GraphicsBox[RasterBox[CompressedData["
1:eJzVnVl27DyOhE3tpN97Nb2E2kCtvt+7bWcqCSACAwnKf+mc6xRn8GMAyqsp
/+tf//6ff11fX1//O76+/vv//13XuO5tiI/P/te1tY1cPquGykHdpJFD7eg0
KMJ2Dpu3xekBSvnF3KI0UMM5scHpES2VRb9MCZnwSSxzesbjqpzylCAmacGc
WuT0lMfVOMWUAjHBXq6KCbCrIHuf0mvLGdlKSW8rnHoooXnYdDU+tVKayZdB
PUmpelA+Qem1FTk1UXKsnUqqB2XwraiH0ihyepJS/aBsA/B6XIqOwwk7ouyC
y8WU8rHhFKXqejV9FcBBRKfl1BL2cUq2aJFSxY4o/wSlhH2LlAYyhFJKGNJG
CYVakzZTC8yzwxYoKYs8SguGoOwjlOL4FFPyvi4MnMQdVw1B2b2U5Kdj3mOU
6oag7DOUwi9Qe5SQdFnHwQElR6mwlbX0s2H7NrVUplT9Un6GkucLyL6ntcTs
iM0pbmOBEuXkGaHn3kVp7T/k1a1CSZcY+xwrzlFChvhGLGxe4MeUxufvFyrx
hmmiZHI2L7uE2yolxGmPkqyDDHFHqp/iqWyDp/DXhSH32k5obrjc71a9RFba
+KphSmaGmyc0GwLTezvoeGVKorjICXWJKUG50Yz3dozTMqUVTk2UHLc5xGmD
Up1T/iC3SukQp31K9fh0lNIRTh2UXp9r34ObKdVXLLO1aOldZeVbix7GHuTq
lNo5NWrpe0vGp+OU0qYsbNVjnPqKmVf7E5T6OYHvchUtleM4YkC/Vi5T6uaE
hi1RkrVj4wzfM5RStqQ3JKKaltS089eDTlNq5MRjuP/lBEz2SnEKKZGuQ5Ng
UROn+EgXtRs2f+3CVDel8ne5ZN9gwswwPpWQE5nOOqXBi67ImNy2Ssn4iy4q
nL/voeQuZ+e95C2UxhVx2qDkHZN90ffdS+6tFM0mc/7eiGV/QqnvXvJonFRx
/P0poOQ58w6lrnvJ65QG+CbwCqaDWvZnlHruJV+ixJL3fnj9zszS+p5rTJZS
/C2FbW2UhkyKRHD97ilK68e7XkqqgHCKjgceJYdcwnoeBQpbEyWolS9e/spt
pzT4aP3PmG1QGrOovkBVv7OkOT4la9l6fCqZhcpg4FYGfvkdPkVpl9MxSu+d
L7dDXf0Ypdma+nacktuZ7SAXmBYpLQuqTCmYPnM9xzgRclso8aVc5HSMki0O
/i/Mj0+UEj62Uis++1VOG18FgqagOHNOkx/3Qc4SpQU91Sm5IYRT+k0mztVx
JrEJSS2VOdUoDWwKbAopxfEpJaZdj6tyWtBSsimhdEU329uj0gFKCWmjfhe2
ZUqFiwlEX/uU3onibUb1bYNSwvFE4hylzecVV1tmKLlyF2DSlIabD3pJRADW
tLTtUvKfcmFTEmlDw8Uke5lT2ecmF7YsJTvrz77zlMs8vaOUMoH8KUoAEzsc
kwMbGMQiMINlKRWvu6a3bUovjbCz5PT471GiVXkVX9nElvS2T4kcjmNKIKdC
iYX6ynOT2a2BElY7o2QPCFuU8DjZ5yazWwclKHdKyTlK0UNqldITN9Vh80za
mC4CFKeEu0QVNyg1c4LTqFISQeJrLl2hRJWM8vA47Mi7vGUX0aR5JA8vT6E+
kQN7h8GY0tUIyp1HldKll3GPEuveNmMR7cjNh7xwqDTf/92Cy1O2LaeEw/2A
SZDqv/mQFzrhA/TynfQvT5mmnpbm/BIlEwFWtxOURiV+FimRZq7g9jkdovTa
MuZpZ85QGjVKSUv41kMJMqsdj0NMcFlSlPYdr4kSCuY1vS9R0oc8lVoyJByb
F+5Qql7Eq1Nih0WjtFVONUp8Li6l2omfdUpaWm3x6QlKQYA6Rwlqre1WDF64
piU/fJpRsE0VSr4lTbdi8MJUYCKU0id+EpRkMCOUUGxfO949QumzOZcSeIYO
7yYzoAR03nIrBi3cocSW0TWB9icy8YgoOmUPvAUTez2OLeMWJagpWMWauHsr
Bi1c1JKqK83roORi4gfollsxKoVpSmYZGyl5XgkojZZbMbxCfbG2RglcSQjN
wJS8yJSglNv+SEvf2xco9EZyKUGXK1DauHq+SMnmQErqSkI4FKHkiEnnYbLC
GM+AlUJqNcghlK7VM3UXFwYYilLSnaQfx80XUqtBDqe0fDw+QSn9OG6+MKKE
3rSDO106Hp+hlHwcN18YagnZQDpdOB63UAI7zf/J66RUOUPOOk9QSomJG0Nw
VCi5gSmmVHtzj0xQTDElBrty28oyJX3ozlCqvLnncmEgN4qrqF5SZy+cXFae
sTvotPDdDhwb6IxtIy6vT0nidQE8k5Y3UKp8t7MT9XyeGkQoYceLgMDtAKX8
CXIv2rzTCUqaset4ju28aLAkD5s+JS908uGc+BdZeEWU0qcv0kVdlJKHmICS
OYSQmhGl5OmLP6CUO8QEBzWXYkQJx6c1SsFKbVDKnCAPKM0TdgzKUNp8gOMQ
pdwRpkApswddzlf30masRUTylKIjTC4wzfV2KG1zonTQ2lYoBW+k8cQSFFcp
YXWXNjNxj1ImBJIV3A7fu5Q637RClnaRknMkDlzuBKW+N62wqORFK78GORKX
KTlwcpTGbE11i44tfn6mBryQgBwN7TZT6rkL6gQl/7/oASWX1wolbE604TVm
NNYo8WcVC5Q+I+xSWuBUoeQEb48SiggLlGybZUplTklKwy21NoEi/P1phdJr
14jKP8apPndugwo8jpfGlPD3pzVKctWWKO3cBpWhZM6QYVvQCPaRqUVKUNyY
kp0TWrZgW9CSh8KnZB+Z2qP09j2Rl6e0ehvUMiWnSGXJR6Y2KQldL1Dauj16
lRIsMJnkTOu6luR+gdJCHJ962KUEJzRt8P/BS5RAHgnblNL696f6QU4WgCVW
m/0P3hqlaVmXKa1+f+qkxDb9HzxINkkJFVUoFTkdo4Ta8BOaz1IawBp3e5QS
v2TmUNKR03S8Sqn+4ORTlNiJujg486EIJdTCzrZ0P9ZTlL5z0Ym6ODjHlN5t
05Tyjve4lr43e6Iu7ihBSTlnklLhfqxFStaiRBtYhjoSk85TcgKTKrnzk1c6
+yll+gNfNoHAovDdQCnklBFTzGCNEjhpQCnlA5NNJSgFnP6WEj+peeUpmca/
wb9CaQBTQM9/Rsm52FnT0ki08CkV7xctFSZrkNpyEaX5ZE7M41h84pTAzsaz
QDGEPUrmZN1AtfOUdMAvUNp4Fug8JedmDH7LpcqwaA3XmNLQpvhD17Zic3hY
J/GJH9JUBnJXFcdzlC4K6h9ACV1MuOzMcloCsEDNaoD6R1DyLp47I+CAJdqR
gx/1SWLMP4ISDApkZq7cbCY8agaUmu61X27uULrIyTp+nIeUyDvENGGP0rC2
bG5VyHjtYFBIUIJGQErsOwJaNj+QL22rYsKULhvJY0rYBBy4NR2HUiendkr3
WagqJXioo/HbOYJOHXVxOkCJnSX/A0pdnPop6eDJJ+bmN1Hq4bQavgNKFzhN
XqOEB3Q6I18Krg5O5yiZ0+QrlKi/ZiiN+88up5OU8H+F2YgupaHFlKbUwukc
pd9PG6AqlOzVJxanHEoNnA5q6bXDv0AlLDHD6QwQtEGAMitW3FYpiYYuJX2q
jo7omJI4h+IQ/ez3PJNQqJ+mRL8ZVEYlWnJc/TIEN/zuAS2pZVyh9OlL9T6v
RETptW3celivX/C416ZvaK2M6h/AiDXMG+ucWiiFRr5SXzZ7ddjBKA1fS4vx
qWj0MqW9+MkPYDpAYTcz5XuPbqSrL1Ja5ESP7ubUg/2KgJpV7Xic0t4jXWE4
xDEcaq1+62G9ehy+Ycu1+IkpjQ+C8cbBfVOmana0UOLIQPYKp0DCs16sy4lq
Kjtpx8GDHB2ozsl1YzB5mLNzPDkXmPg45eMdm+h8iJPhHKoed1O4QzO74eoJ
Sih/IS6Yw/vQufqoh74RiKyx+ZKVfHX8NcVrWdMTUoGY8pQYqqJPKWfIY5TI
wWb9+50ip45xMdh7L4HgrymtP5qrx5w1hI56F6M01++5ayUdm6O2c2Lt0Vw7
poHFdj86A0uHrHmQklNr5dFc1BvghF43jLV0BzXv/RNFI2n2CqWVR3Nhb2MO
T/RwRyh98rveBMWz65QqxzsSAW2sRjgjSnGAym2J4/wqpfL3O5/S7T/guOdq
qQHUUUqFJ3BoF56E0h433vu758NW6sSU4jttWyiZHeh4gT3Olor1CcHxIxS1
i8ZisQ+L7TcA3KluvKqnBygxu/hUcaawQkWoJKVVTo9Q8r/ZrVPiffiUzpwn
36fk3Y8MKfHAjBoFbztC3fWfJ++gxO9HzlJyy/0k7K71vt/LQRkcoPRS4hcZ
kJkYOVQo0YPcTnwKFFWlZPNQHKc+JT56KelvpJ1+10cJvsjADyp4DH2mt6ql
e7/v+lQnJX6HJsODe4lEQ8aQZtY4NVBClcjxidyhidSDexmfhLl6AIMbo1Tj
tEopwMSlJm/EYLrQSeo2/JMeImQHKU4BpVxDl5IpdeJ4hRLVUhCw5lSWU4qS
H3kClwOlNo5jSoHbEM9LimlyzJ7LU92UaBw3rRJ6uKHQIOcHrgynZUpBuUdp
touKCfEgLqk0laSkxsq8GcPfTlCK7rQvUCIuZj2N+3ckqAymsE4tfN9p7077
dUr0fjE3UvmcWij5TSilxKOKOvjgrmAQS1CyI+5c68xhYmQcSvxOe3xkcrsi
DuhRygbyRkosGPlTE3l/Q0klVy911il52S2UkJM1UeJvC/C3VUoDZsPedFU8
E5PrYCpR0sM7b6Wi2x6lVHdUABVKsDJ79gUNN8Gib8fh22ItEp3WKZFpieSd
RelElCynfwolXVSkBJ2b0YkpaU5/QSnTBfGtYFryb4ESGMX6Xdr4Wi2XEjy+
WHdhRy6dBDANFYIWFC1xeowSX+8SJVUKolfUnMVxb3uOko0whJJf7Xd/m1KN
0wOUdAlxkyB8t2lJddx44tetlaM0zwfiKVGKwniKUp5TjpJbrUZpSiYpGRcE
lRYpZTmdoJSoBTw2ouRhyr95nPTT81zCIUpD76M0pqS61QGqSKnjxK9fb5eS
rsCgVCgloJvU5nnfoN7GAUAH0nkvR0m7HMUVU2q4secMpdn2O0YXKNljwL0H
IhTMkPXOveCohxILT24PUIsy3IX9KLynXnDURElpwNYvUnrDMnUIpVuXZ15w
1EsJf5AeEpTCiAe6PfGCo386peDoqbvd0xOF0UxJ+oXfeTelaej2BzdSmKqU
cBDhpQ4lvRNR2uH0N5SwQ4BUgRLHpAZrfRFUM6XA5WATVU9php86IJ2M95/G
G8i7KU1WBpSmLKQPI6YSpd1ArrZDlEhD/1Anc/Sso9BnKfYJaoMSQbNMiRzW
iJaMUyOtdQmqiRIOxfHPkbAY/k5P/qg0FVP6uP7J/wmHlUJKRY9jEUdlkAME
9rgeTs9SAoURpVsROpzr5oxSB6cdSniGblAHhcTlLBQcoMyxEOxsc3qYkpsj
h0HRGBWQoI8G6/8fXqbSX1Ay1R1KbZweo0TDUCow2X6MB0JKstX3nz99ND8R
vUm4XaPkhTzbjfy1nEPvsE1QSouJHKvsOEFcGuIDdeyMWuV0gBLzql5K5JDH
7NK9rL67a6FSmhJsBOxH+wEl+P87N/ot6Ok/lxI7+LnZwk1X3t21UilE41Gy
Rz3YlFKSmNmbNOGR8J1Zf3fXSqUOSpEi+cFsoA/3WHfv3KnGd7M+RwnM0Xah
MJE4xfDr+NX2blZeCZrUQynhcjLYmGJ8qAOiOvfwqymJgPF6u2LCEcg/FoxL
0D378OtJSjxuMTn+wkpTEjVOPvzaQWmUKbEAruYeU8rqKUUp1fxBLVFKRFRg
LDXMKxm8DW5166RknCBPCXflHQrwmKP9LVDMjk1KNOigJk2ULvkTCye3dUoq
Sd0J5JE2dUpz9vefI5q6/lmUuCEZSnE0X992KYWvRkF5fptlSuc4/aO0ZGaf
DWAfvGc41SlpMekdRAlXgdOEY4Vh/hOafrdmTllK3OX0ToISmu00zRVKppdW
Tn2UVEaBkpmhGYusgKp3jtMCJXZEegmhQAnOfgxSQJO6g/tPG6dtSmEI9gbD
tNjfmNJcvZMTmsxfU/qo8pYV7hsssRFVC6dGSjK9Q0lHceapnFIzJ0gJ5XKH
xJgQyiIl7T/88jmgNDc+db+Yza5SgjE+EgXO1sEmR0nsn/+REpMTUELZlBKM
zri6tSD0uC6/O0EJuByjxMSBAxNNOyHsk+i/X2zL44DLrVEC2hrzCB4cZW9X
HBdbg5bOUEr2xwJUs9+xqYOyLUrStwwlBjFPaai/rX63RglPGWSBiALLCaWC
lgCtVVBblJjxHZQYd6W1BKX37gYnEsNJlSQl0ATASVGy3HHgAjlW+MucGCWM
husM+BopwJTs3JIuV6H02vru03ycEqvYTmklkCcoebleMBAZy5SMy6mgvKCl
uuOlKQXYKCWTn6ZExERh1Ci1vKvOi+rIBfspjXdi2HzawBkAWLD9rroqJR6Y
VE18Iw7ogIXDTwWCL0upEKA8GqU2WUqRlvTnS1JACVpldS2lA1QLJbbssA64
OVckAaXXp47jsqX3jjGZ0uaWfj00v+lGwynj+WVKZI/95hTzVLCoEaclSvzw
kWqiJqcqBJSGDW37lCJOhyi5OThO5ymZNhL7EqXrxB2IzOXDnPHZ1/ED46Gx
eUrhFlVKm7++ETfz4rnMQSHMVY8bk6V87BA4YDoHm51f3wibZcQE8nPqUSmY
PZBGFygduxcDD0Yo4WYblN4+bB1a101SOvhWGjAYxuTyyFEiOn5HcMEppITN
PHAvRqkCi7MoN0kJxy+hMKcD4gUn78UQZbAGxgO8xtSKKOkPJ0YlKJ28F0OW
oSqwSGOBxz5OKXNEQHtkMe+Mw+/ucShB0yAV8MmGFtrQlIAyXbef00ff3RNT
Is40UJKXI1vq72rX+bL7U69n3aAk7LSvk0msPqeT+D0PnHHm9az7lHRihVLi
F5PiRdgO5KuUUHM/rtrDVEpLjsvpbuKAf+LlPU2UVOkIw/kAqR5KJ17es01J
xmNeDbcKHKpASQzU/fKeBCXCAVDyAgwpUMeqMP7kKC1xaqTkTEjss9mQ+KzK
4994iygtcIr9aZ1S8P8vtgqmT+yCq5R+EkVOCQb1wJTTEsY09Hi3oHSgCiix
APhK9P3MW+xzeoYqF64no0TWJBuH4jivEl0/8/YXlGThcOrrQOWMjjE1/czb
M5SY53E7MN4spVm0LZfOw8CUp2TjSZ6StmNM0cq2T1J6fTT8zFsopoKWeLjI
UgI1AaxAyZ/UO2/7Z94aKTlBNY7iuh+rS6dfamc+jj9PKfQ4MCjbxyQAJVea
1+YrjoqUTO6Sx+UpEWAhJVU1juP/wZSGrqs75pSqnB6jVI1LVDSJ4BxTEsHt
/rN4g8EiJVfz2bi0SmlktAQc0OXkYgopBWL6Cy2NINeOIbSHOWXEVKAkG7iz
Yze/LVCahiW3xXqUVBJxana5gT7k/l0WUApVYTEiMHChydCvzXL6M0rcVCum
LKUZifeODbBkMsNwygQmXmmH0ntOjZSEcqyKwpWadhQoD1OZkjQtmh2u7Oxc
4LIlqjl/kPgGbRHnAL9wRbuFlHwxJTUgNeVTSmkJeSDYGaBn0cGXKmTb0cB0
KUy04ialWyI8HLFRvlCh2VYp1cSENdVHiX1mjP2yJphtkxIOCjQ8+A6iMwuU
mFPT6c056Uc3TlOSfN4fkBLsR+9ZSjgfTW+YnOyjG8uUgjnhcaIAlejb2I3z
KSWdTD26UadE7cRGwUk4rsd8k4Ua8vqHgNKYkh6npyhBlXgBaog5gL4HLoBq
9Ch9to0TvyuUYDR2NOVpRscRFonweqcpZfzuOUoQVuhZY6AJx7JxM5nxzpbG
xDtmSnZCUpYSqhrFujAT7/3s1E/WnaRkZhFSAl+iiBMPkMmnYCzYu2vljymJ
Fi9Byg/PHl4F7O38MtcRSsCfgIfB9Jw1bAp25iyKaLb+y1zLlGDcbqU0pn/E
1IGSbO9a/2WuXUoQ1iqlgaqOi3ZP8/m01n6ZC6ylLYkpkVWNKYkM2ZcaYA5d
qoUVE1/8pV/mWqeUcblFShmZesNaK0Wi870YISUxC09hP3smB/Rtpmb1My5k
WZbSO9X3+Cs0H1oydBXHbDPDmBKC5UsYdaVSbb+IR8QUeRH5/pfnZncsLNJH
SGlKNvldmpIT6vYo3e7FVKv9GAVtblzL+2jylHDgklNapXTNsYgpdI3S1fGL
eKRK2pLVSMU6GvNusnNqxr27G8h3Kb3X/6WpSAdiH0knxunHOFrj7Eu2c5So
mTEl+RHjXKR04keUNij9+MxdiiCypjbGQY4lSsVI7m5GUZuUbD4yHNS0aKZ9
JzDlKHU/d/4IJRiYZlB3vcCf85SanztH46fchkXj0E+UpPhg6A6XPKUzz52z
ESNKOhpD2gCF9r/KYJHN72Tfu8jf2XBNp/3IcDAPlxKeeHIw0C8uaX0XOQ9X
5yld8ibPWWnOY9lKwWaMO9X4LnJtzcOUQDXix46h1Bnb3kVOoiOyx1YduDyM
YbbFVODfp1Ki1PYucrzqcE50cp7dXgzyYbJ4XqK0d2UqqMD8xMSE2eQplviU
wPshBioRPPirbB1KP/vrV6aCCnCfBJs5IxKJygUzBbEQu2m0qPP+6pWpoAKJ
4R+j/dDkaWmYv7CeqbBDafXKVFCBUJpzgLF3MqZkEkSNgOkSpbYz5GlKYsJq
7U2oZZRUJPMpeQ6o97ntLWfIWQVGSZqGg0f4S960V04JmJuj1HOGnNTIzYdQ
ss1Z4MngWaWUj0+HKb0TofJgM5sfUkKh3yTAYLtvbPcpMZ/Bi9pFCUVx20GF
Uuq234UaZJ4OpUHf3LhHiblZnlIUx7cpBfNARd97jBLDRHq3YrKUeB0z6NLz
1G6VdUpouSNKaq6O5zG9glHBoCvPU3tV9imNaTdJCQbsQHB5Sj8f9eepvSo5
SoMXYUepUXrJp4kSjU/rlJSFvonQOCskNByc6xkthfHJ23wxpSgNp4ra0XFF
jo4DUoaSDVic0tX3gsg6pchITMRrWxFRgRINUM7WSmmwTJxjChN4fGkhq0gs
6HhBpBsiXEpm16OEf89sPUyhLI3rTu+/IBJaSIL5DiVoRp0SuhkjpLT/gkhs
oe8SASU0KPYOrhM69gKl38+tM3WNlEQnQ+ZkeJyltHWmjrhJEyUS4IKkN/YG
pY0zdTY7nmuGkhJTFOhAMtRbndK1ei9rJyXeNHp9lqwE6qDLfEuU1l59eIyS
G6AxJWIH7Ah0wiiZOdZffehTIuOnKIkIV6BEIqXqqKAlMKPqqw9JtiznBmXk
MMGqUCIFGl6d0k+y9tuKKUrewAmnobCwEk2PsiB8o32KEuH055SgANHwRDos
UsWU1Ch3CnBapERi52OUYNXAfbOUqq/08zZnNU2/mJKVBaGEVsRWHWTQBUp9
jyTkKFn/uIz9wGwYcnIOdSdsPOOrAozs4VShRBRrZJFqTsQUX4Pgq4LxdXCC
lKhF0IUcF4CUgLLQEFQ8ASVbc58TpsS8CfrcGqWg6wvy8sebGiiwnc/gLVIy
iRIl7M2E/xypXErGkr5HgVBAxLEWNUb+mlKPCSdmfBipM5Tm9l2PAnFKJHxj
LUXRmwQcIkxsjyd8ldHB6QClpMf97pK6YCDuqJHHbXKah7gIMb7eLZTMvhOm
RDkIAkBnQ/89dLyLlhgkWMRwKTn3zrvuhVzQWj+Ft12/w97niKlIyQ6DOkhS
encGgxGy5ZPafAQP2u+IKTkTDmCDUnyKBeSOLb9jcW/aC4z3ZxKrzh8INWEu
Rxxa5ezdsmLf7L1BaW7kuTOyhYVAEwoylMDPhm89gsetMTYUKGnyuAeZRcTE
9eFSUplrfmd1nAlMNEFihXNHq218gpIuW76zx3bII3aVEo0lwntSlKaaS5Te
e6uPKtK3eY6p1BjkRmIzESJUFnqBOcAMh5KbsXVrD1sIZoVHiXvaKiWuqTKl
wqarg7c271DSCkhQyric54Cmhyhj5fc67eJRStYHIjHxw/cwf7U9kCumW9XS
xpcD59IvDQihy1FKQhZeJM4o3GR6lH5215/Pf5bSmP6Bir76iOXERpX+3V9+
Pv9lRwcl3Zed5NQQO3TAf5fS8m2/NMIWKNG6WdFxFyOcr1VKi98NWiix/IQ0
fiNVQAn4ZpHSnFi57Teng5DSQAV5ByqqEU5BY2KU0nf9tlBCkoZxhgSwOeNB
Sj975d+FFzMpUSJGXxST+QwjFmvpLBE2yTQsx6ehdsHITL3gfaK/+2ja8U8H
pitUKaEriklOQxoxhxZu96Uomby7m6Hqeq2ylNCARS1Nu2W/+0zsNTllFqF0
F2MRDlib/3TgI5Tm9av8/25edQELW4BikFW08WbQWZ4Sbwo8WZtk2k0V8j/L
RdZlHoxTYp3JkIQ6GzElbONPGvhQZmW11PMPJTgDqh6hwVaMzGQNS9MAoyOD
sIVmQnhlh62SeyjBGqWcCvqNbzFZWPjh5LOg41vthgmk58xDCXQ8vDi+wYSS
WkMSzbKUlLxLlGxs+t5qP2sa8MC5YQQwn2Re3FcAJR6IMpQM6trPmiLSn5Jh
s4nHEUoqNOlWrENI6W3sGqW558jvTKdjQgEwAZtLWlKuBw1Hqy2G/HTmMc9R
ynIynb4oGd30U1JqiOOTSSBMqBfTxOwEnFigmWCR7r3ZBJQwkJASm/KwCdrZ
lFHghHxeOJy5D0Ni7KSEZsurm+7QJeSoyZxyOCFKdtFEEgULvwqROalmR89N
mcvMaWKVEb/fyPcmxyXkrOlpWmibrzCvoIXSz8yEx4TvNzKd2/6xAnK0YXyQ
HrNDCUWMqImeAeTkUnrtKQ6en6g9Tgn5HPPTKiXLKUPpthdwylDCtlC5zzsY
sOkFwdqm5GmYUJo/v1ANYLvZg9YyE6cM+PId5HO4Y+LOKUpsPi6l1+4XqAKT
jJf9QDlcZqQX6HnakRa05JhEC4Wg9inpJgmjp+QAVQPaCfVS411KqtrEaZuS
7TzgCY9lny4AJ2Yj1yoNHElKcweJp85hcJCztTawNJw0YY6mwcZlgQXAqVFi
nBxKC/EA54sxgNlvTHRq7FPOPeO8ap9OUXHilIgxl5iPb5NDCf5EHemGUyKT
ByZFccl0LTg5lNCDFcoHGCVuoW/1K0FffE/ssaabgbJamrKcL1CFKAdoqYAC
Qo4nM1Og+/MpISeGFWFzlanikyemaPzoRw3EkLiGGUOD/rGWNvLEJEyM6pEp
Jk5ABcwvYDaYx0/CdoV5mq7kcqjFuejsHSdlsyEm5i8Ib1AaOhVR0umBaoeB
ycAOKBkzp530D0owSgwTvi11gBZhiPFXJfa+nMcNXPm1k/xBCW+Vfv4EYrok
pwlXRAmFqYzLEUpsUKV9uxrV92ji8WkcQAUW1hVQ0rAil3PuscaDuqKKHM/z
arhKwCeoGUTmqLkWURiYzO5sH/+/FgmAvx+F1/kFN0iyaTg3Hg0VsdT+MH9B
96SVtZNEHjzcvfdOFl7nR7CDNZv3iDqQqi40dwiL7zNKaHRkF6uQ/eWN8L8n
ShgEJmo2VCe0X+u2xlhXTPwlWu6seHwCmEh/KM4MOqwTETBmoAlXn9bpQQIo
jPj2VDH3CyVSDS4l0I0KTOEjF6Bfa3kwNeCujh8KxtC81C+UoOH4+ETjrhmv
XWcgKRe2JNeQHZruECXom8qI4ArelKnHUR2R/iuUrNVifODPqIcBZ2zu0SOm
ID1+b+4VPJE/TM7UX5GSTX4omQlpoyAlWwkGA+vj0Cms6rwreHPBEGP4WEJK
yjMd843/ul97udrvIV0TEaxXIn+n/UDmAGtzlBAbUWfoDD2y83/Ku/bQVV3T
OKzyE51TV8DjQf/JlSZZRKjf2xcfwXSIIhVbXwTrWnmiEz43cBuBTeAs/BJi
9EUQiDHvJFYNNoQm6k90Yl16YeNTZ84YqCp0MDOA9is0uqaDYJvaHFb1h1zk
zgCzKCnm1YuuIx1FDeBpSXfNbFGicvi8t9IJKLgzLgTDCRu6gKkMajRDCfSL
drBD2kTS8biJU0fEDfUC/v4dtsTCUpWlAoKr31NPzGZXUwBW/dEyMuKwNTAL
MTU5bwbrrVlXrJ6jGXckl08BrNdWfbQsdgBGCawVXswpAZaXnDeFCSgZXkGv
+7zVHi0LKfEHoHkUwHIb8o8zaZYIYoH+cn7n63X6+VN5tGxbS55vQBqTsQm0
zojg7HOIUfyJT5DHlJjO3ZWVd4yRpVUWxzpMa+n1oU1Vkww5VSiRSQY280ly
Tw1huSNy1d/9K9+LODmUjGbSS4c+hVdARYjxksoSzLhkzAJ4zufdeUgpUS1F
lAgmbZT7SFleWTOCzCOLRAOEk6NOU4QWndumZY0ElPDAISbgU1IOxSmhPcaJ
W4+zcv5vqsNY8k5xD7S9Ulgsn6mcmIY5WZ+ElIx/r7mcXGfVFzIBjYZhmcbY
kk+SqWxOkjt+Z0vBGJ/eqZcSMSn5oMr2CzmjhWDZ3rElVOZ4SHzHrx7SzlLa
gCkwOq5jeXcISpBzu3EFgweqp6a+k/iOX2/VlYWoOeZASEBNOW7BzxoJc5Qx
KfU7tdGjQAO6HKN0LycWMPt27sQCPK7fQHmeUeNgbYJ2xu/0YrA++XShyJiu
X6NDaY3ZAmKH5KMlZw2wMqlQMj59iSkjL0DdUBWw9hSPrDJIA0eFMolcXJuM
/QTZP/senL9PaS70Zq77dZEqp9Vqh1ZoR3c83ROT9tN7Xuhu+3GPyG8bEjK1
mgJzBJhwZclloPkQ9wkqMneCSymRgu9QCD12C2AL92yLKaZ016MaBi2ttPWo
0n4CV/0hNxlAuUC/lIqHjgNMNd1QSvZ0AZoV6kC0x6OSOd8gESdk4vxX26NH
/CS5ycxgTmn6nD3QO6lwIU3BNYb3g8wTtZzUfG3XEIvj2nbNkrDkTHT3ngpN
IxcWMhHaNHGygh7w/3BmqnpIMLKehJGcXQE2YQUL2jZ/hieWA+VPBclrU5FT
3kX3fIhxrDHwAMsSd2ktRP3hhRyTTbZP4HdoFKBPrF2o58kEoC2tKjMW4PwS
+mU/tI2iFRYtWCPNcO4F3XwI1lwlkWNrPU9TkzWwOdR5VBXobII0koNWpa0R
nPWPrk2pZaPWAZwSlhWdXUbtPAieXWric+qLYGAs0vz86Z2rIx96sMtONYJl
9+REfvPhUmmHJdrDdaARzow/VfHN0dAAYf1MRs4OjK9giR26FHippmjzhXWK
+3uZgJZ6Uihq9dqi9/l5F631vuTBYCFVfT7d4aiosKaQLxkh2HXXe7+rcuHN
MxQ6hNUz8LmBG7D/dWNnFWFdCBv5AVKJQWy4mWbuxXPiDZFG9ZoBWLKBzODz
s8Xz//7k8lHYaNFNX2Zw7+I5gAXdipghW+mk5SoF4lOyF6kUD9XOOJMclohq
sjG8eD5snpm8pTRkhQsnwUywCljEoQsHhxSj2mENrFnxzlNTwGnnXu+CeQ5G
fKA3pQw56stCsDrWDDkq8EBoIhl9OCt5uU9NUb7IBQEsMKb1OwgE+14gCiOq
+2NoVekady8W1l0PXcVD9bDVH+9WTWSCwNJDma7R6jJRYFHNi+uvxt12hnV9
OjGn6swMIn3c3RLRov/CDVpiOkAoxa4RPuxN2apVOn+OucG9I8/VMVjvWUEW
Q/0TG5URWgBZNN6jWvp6FhCWDFU/c78LpT1qLhOpKUJMZ+ug65hMWXWAQrte
TI0DNVOra4yzY8+1pn25akJWgL84dL/qiAuy40taq2djFllP7C4wuaI3q5wv
uMCfZR5gZQglKn+zSgNYPxk/M75lBNzHGmxyVJSFNV8VtXqRchRFcCIcrj7c
8a+wfDAJXmpqKk9X/RqqY9GL1T5bF7L/PX+lHDlnpRzpI+PNT3mUhqksVYfk
u2zMcrWm3As2TNGQdpm2UPt6vYZckGH2JCilTtlQ8bawpn7tikJBWSuuoYZW
yzDlXW+0ZnLvMjru7woNMEk52Me+8UYp2Ggsd817lHtCOlvaI5pJK2cN/srk
Z9ZD9A2kfEtKGqnmPFk+8aLVpTTx9n+fRGIe
     "], {{0, 0}, Offset[{300, 501}, {0, 0}]}, {0, 2}],
    Frame->Automatic,
    FrameLabel->{None, None},
    FrameTicks->{{None, None}, {None, None}},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImageSize->{300, 501},
    Method->{
     "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
    PlotLabel->FormBox[
      RowBox[{"\"lane\"", "+", "4"}], TraditionalForm],
    PlotRange->{{0, 300}, {0, 501}},
    PlotRangeClipping->True], ",", 
   GraphicsBox[RasterBox[CompressedData["
1:eJztnVuWIkGORNNjJ/Pfq+kl9AZm9fM/XZkQ4ZLMTPJHAFndnFMQ4Q+5dN0k
SIiC//nX//7zX8fX19f/ta+vf/z733Ec7ehv9uw6de2uufkGNtAP8cPZdNjV
t3zlw3feCKaPpvR98EU6d96YaBIxBYjv0dLP0Rfu3HhjariBEiOmpsOuaOcL
du67pdHdQ4lKV1sILefhF+jcd/NaKoa/TEk/eeiuSAkVqJ23kHG1XNhNSWCq
aeleTppSK1MaLd+7Kd3LKYapnorE4NsKU5XSnZyKlFgefg6ldt7dwOl2Ssuv
mIYy7iZOk5RA++CQPZSY/5s5kWdV38tq+AdSehxu5VT0QT/TiSEvp3RL4m2h
xEvv8SZKmzntpjT4vK0mVixySls5TWS9NPJBlDZyCj60l1NqsU96WKTUzrt1
TvdriS3ms7lQ/UFLWNq7vIXTbkpsYAt9MJzEuFwu0t7GSfuQlW/QyQzG1PZH
im9lOZ5yy5xeRklk2E2UNj7fJZTQk702UqZUXWOB0nnWFjnJ6I/7KbV0jTVK
ftgcp0+gpH0BreQ5lWI6t+LP3QynN1JquFkZj005JVvE5xLv7ZTCCt7AFkrH
mqC2UGJum5aNlOLzI1yIng4L6j+KUpfjY6CqlMopt52SXq9QvePgi1aR02+h
1NiZXNo1+7FlQb2AEnsyexUloryFpzy+wjIlhmOGEu7JKbHjbe8ZvIwSXonX
8JySNR04bdDTp1ASdtUQ7N90fUrt30YpPjVVxeRVUaZkmnZw+k2Uxvxr1oMl
ThspFTNvlRKvYPawX3a1ju+k5E7v0pIeSQJay7thSmAgqbKfRal7whzn9HdQ
QgOVwkc57aBEHHo5JVuC8N49P46cfGvlb6EkzizFIU43UHJcdlOirlqSueQG
ON1ByW7bmyhxn9rEE14F0xwle/ImSuGo2bvRd6AEph2UkoU2UFJsghvtrFQl
Tq+nxPOBt22g5BuungKnDZS4K6A+VU0c45RQLOSZ5Tqs6el+SuF4glJWml1P
qqVgOuG0gxLdsRdTAuuyDezCfh4qUMlzT+iZpdQ+ltJ1wDm9ilKi2j2U4hBc
h5CLPwd5JS88eRQpwfZhSgSNpOTLTpznxNQ9NjdBrZB0/ApKcC2MB6ZeLflE
xy+jBI6wpp6H7Ug43UwJV6ui2Q2UMB7S/+cOcypRqscY2l9IqZBymhIX1H8p
gan1b8fYRAk4pi28X0s88fjS1MkPphSPKKXHcSnxgBM4cQo3P7TBVmoUP2vs
pQQk4LyEnO6nlC8BGl9DqSfkJqZfS7ObUroEaNxAyfJRlAqcMgq3UErTcDsl
ImyptIH36wYoERfWKEkHdlP6c9hrr/5+3cDtIynB5zI3iM4qv18HjVfmrFAq
YhqgFHmQ5kfD1VJ7vy5zlbrQwoE0B/deLw1WiEcy5WIzGjf1UrPYvURJzVYr
LFPCA2ucligxneM29qhWuJnS9/HIR1Qj3VwOsi45N19CSadcrZTPPeX9bkrw
CWToKa84iKfcfZRi2wZK3bHmVMHEJXMTJbnvOyk9ztL69HpKLC40B+07fqxT
skNr12pOUaI976CEMQlKDlP/OPxhQj6mfRQllEkHYQPMNslpjVJl5C5KtK5t
oXTdEKcdlMj6bNgAJbLrcMweSmkhp7fPpKQL07yWZjkNUFLjVikFGtJgaKxr
aY7TMCW9rYuUiuKMjfhJjj8B7fk+g4+htJRy0Y123k1ddM+aE0q+9S5KcPAE
pUlOWygFxz6Y0hSn8eotnurO8ljC9HpKxrchTjqDxiipaYltUuDuoGRPVt7R
HKNEY6vb5lQApp2UVr4cYxMlaHwfJWhqmNIx/Y6mEkVSmHBDZlvwjZVObt0M
pZxTfb/zphsp6eeuNUqFQq4p1TCtU/IzJKVodlFLP8crf7hUKtMQJWznnZTO
T4Xn/3C5iRKLgOeXwoT7BrX05zb7h8vdlByWd1Iq1Cdmr1KYYiApJvb8UDN1
l5bGOL2QknP3nZTaMcapTKmZBuAgw8Qo8ZE0RmpjWEuD9UlTio7Uqok0AWax
LYhmcR/VPD9u593YlRhIS7dRAoZkm7IxRWmI07u0hKZt1BKLC0yvcBql5JIj
dCgbRUrW0F5KrJQnnCYpTZXvQUphP6gNnXI1SitvQL2DEtaUsrGH0vwbUFzK
MfYqJasRkbso0lspzf6X6rh68HeSUuF5YI4SLZzhBGp25v0n0EZjScs3xkOT
OquZkhKbnFJafP+JpcpLKDnjvDjC2DWx6PfSB+ckVVBQ0MZ2SrBhA6WlD84/
lJJfNxSmCUqjnGjKrVLiaTNNCfs3R+mY/+S8hftjgBIubOsZhyvjIqXv1rlP
zo1dFRQ2AVNuhhLhYSbsoDT3ewnQ7tsppRMWKI2/AfUbKeHSLoeE1sn/CjRL
CZbXSAm5v4FSww05pckPzrHLZUoQ1vEiSsk0Nnr9StZhSgYTiGMjJbQJz+MR
SutXsmYpRyuPxyQKk6SksGIbqNq6W2xdu5J1kVLINB1hUCAwhIxyYCVK36fz
L8hHKGE8M5SgGnCKAl6yXOH2x+nCD5g9tneYktfFNCUgsGFK3nuW43VOY+Wb
U3LRrVKSE3ZRmr6SdZhSsUC9hFLmPbQy/oL8PJ+nRFLvAyjRJ4GZTxIkpjIl
dgqcfDulmU8SaitxteynBOJbooSaRj9JeD0lu9arKPlBg58kqJTrIkwocUwJ
JbC+pASIDVJqIwWqslRdS6uU1FKjlPC+I2PDr6AySkmKvYUSacERYauDr6BS
Lf2dlKq3US25CSml6FVGKQ40M0hlFdOJsb6/+KSXgt1PqZEJiVxSMc1QOmrX
Qb2NUnriG7ZRCpYEp/9S6o4ppw+n1ELvnZQop9spUToDlCB11pJQwoWpO84T
rzIAVt2bKYlqspfS9+P8VxyFVWwuEE/RkM+nVL/wl/fBlCNSAw7gJL+dEoCj
tnLXz8NrSiAsiTnb+JdT2vTz8HspMTG9kdKWn4cn5XuWEvR5iRLTZ53Shp+H
L1MKLUREoBq9nlJonOZkKsk8JV+RICUuTTiaGYQWtHqvw8Xfh4dLgjpDcPCU
ez0luMB5tPqER1MCbJQfOlKYdlJCGwn3qGvbk3gqrmJyTlNKC1DiD+l24yY5
JYIuFyakPpHAL6TkHFuuTyK/QEuSemjsOykt1idcEH8nJVW+l+pTo/EmXv0a
Sqj2LlyAGD1TObibEsudJKUKlCymx8Msp/hfFGUOEgSfSMlgWqtPfVAiB2Pb
L6BkBl89M5zANYeREs/PV1Py0pArWE+uu+ULyb+zjIbXKpRY7dpJqTQtdCxw
YtuCKfkmlQElSsmKybrJCsHeNCe8Xq8pVbE+lVJITOPMOCdOKT3Fhf5eSrow
lWviKKclStDn4CJmCRrrlEhhqlGa0FOFUqjn2BuWmJ9GaYKT1O4YJSa591FC
2d5FVueEs8ViGqSUjOLrL1PiG0OGVDmVIpuh1OJhHdMLKPWno/+xU8YfXhKQ
OubnfCylsp4SSq4wszWV73QbY+PrtVTk5D0nsdnl2EXkyPcoQOEBHruBEtuA
Iqec0iPQBvs5JfqKPdDKIKAat49Sny3l33iDsQAZwIx0irNDIH/YoCihEjBN
KbpZvAAqo9RwzN73OINrKZNKypFTUgfEi9JvvKVaqqUcgDdCaawwbaVU+o03
rkx71gYoZZi6UWSMVpugJLgF+1dP/fVTQsmdEWeQ8OLboyjN6JL3UephVV8/
pZRsgaqIiVSdQiQ6JxXDIUr93tZePxUpOdVspiSQDFISZRHMyzjNUnIpJhn+
Ekr5/0igbgBPoJhg7zQlNfhGStn/SKBuAE+gmLB3TnByLF1Yuccp0QY47xoF
Ocnipi1iTCgxMzHllNo2Sljl/SjAaZlSKfVI+DErCvJB44cpYWeft8CpQMnn
zRClazKIeZyST+F7KAVOdUrnwwylxwEZm1PCmryP0mFBDVDyp5gS6V7UEqIE
E3IfpZ7TBCWMZ4BS/uFxPIlDkcGdlP40ffHulJJtfqmWUgGllLAcOYYv2j9D
iT1upgTHkqKFGwcpTX7S6Zs/kVK7Ttcpbfnx14+lBCwWrMbeLvHkTYqpSgkc
RSfnKAXZbKVU5lQR0/spKd1iuRYpFTltplRMuQ+iVOK0QGmhMN1Dqb8NUCpw
qhSmlBI6elgYoFRCkVMiTqMxrqH8USdsnqKk6u4CpXhEKJFT1vjTMvhdD9OU
wuE5mFHSlT6i8KMkpUp4pqX0UadcarTmcO0PUxKKK1FKBXa1FD7qLC2lw8bs
6PBhSr4J1xg+Hc4xLZHT6yiRnw8Zp+TwSEpkkKa09Bsl4XxQSywX30Ap3vyA
6d8oOU83U4okXkQJV9Pnyejfd2NagsG6852USuV7jFKV02+gNFK+U0q4a+E3
AD6NkhTTGKVYLab/i4v0/BihxOx9EKXp/+Kyk1LrT19IqcFW0jD3xu92St7p
/ZRICLLwd+cLP5WwnRKfeRelDJPKV+kimTxGyXuZU1L6uodSu87P1qH36l5L
KdQQokTo7SKlcDz+nFenRAO1XipKeb4iX3ZQavZu9DmPUAIu0ECnKBElFn1R
zURLc5z+HkpiblxvkNMNlH48gDF9FqU6p4QShZJRwnHfQamQcpRSldMspbiF
c5TUaOLXVkqPo/GLDFBcAgreHuz8Fkos5VYojb8mJ7tPgyeUHo/oAxeukNdT
ug4Xfocyz7i0dEkfaWGK1G6i1B2PvC6o1dubKFFqeymBIL/vpv4W/ksoyVS4
zqqcKHQdKfYERcXz6AMoPW4j75FHWdkOEXpKSaXAPkow5TJKFT1RSp2ZPAdf
TKmubrBMPMs5FSgVKtUnU8KDwdnMxawx/95IiaTcNkojnBo98Q1ZgCuUZNpQ
o2JCidIAJwQiLNaOnFI8uoUSy0S4HjHhm8au+aX7JDQFnATvp1AqtCG4cw+l
x23kmt8CJR646sq1U6fEQ08pMUx/muufIwxQaorS4xBcyTpEiRTN/ZTyxJPl
G2SXSDTu5MC3k76UUrvuNacSpd6c7SEJ4sa/i1JWmMwwxYkkP/asyyQXXYPx
0SJ9CyVZGdFpt3hBT6kZF0t5015BCYppmFLfMPq9h8QcisQ+kurFXyO8hhKj
Vq5PxCxsVpRImDFBcQenVIg8p6RNdrDGvh9SGof+/GJKpnfiByjXKLXz8FWU
UG2omDQHwz/8uk7JNnwYJWq79gIqMY7sVyjFgwFK/kBRSsq3pqQKVIGSdKek
JT5knFJx6ZJJFOfsFxwtU3qqoNFIvUzgCrdT0noKt7wWzFDKI4fKotJEUPn+
IpOge4DTbkqdmPCIbZRESa1RGuGUYQK/OnXklLx3Av40JdKKx6juhT/wBotD
gPs4iUaimO6kJLvbUeV0EyUWJ7L2VkqPh+T1E6fkB0xRYnVqQ10iRsAZ664k
HqijB6CkAitQ0tpqxEqNEjkMZ8zEaf5xIF5ApZREwV2mJKsqWgd7yA3hFl5M
iv+f+n2UUP4klEj2xVNM0S8OE+9TKTUtOYxsjBLII8bpwyhl5KDbs5Qcpmbv
Rr4hUlFq/cNxE6WhCpQUJu8g9IfnHbWmilxsI1SgH2iaMNWn4FGkRLQTbrAA
5pxupvT0Q9nkttXZhpRzp2MfCYvqc9Cwo/epmHJKQBCLlIK7pnvoI2FeffgY
MLTHpL5Wo0QpI1ilxDA9zivvaFYo5avy3JfjEhKiHEAHy5RcAuXfA1Wj9H1c
+eJes77P1ElK7HyVUteQfQ/UiJbI6mA6gIVn1ilxadMGXuxaaNZ/twxRogWH
lKzgzA5KWexqCnbz51H93TJBiUsYUwLjPowS5PRqShHGUsbRUrBKyXGKrhTr
UqYROuDnMP2JTzBnth2t4ntAiF9h0KDpYB2F1vCAqsjeS8nmnaIEHKfWuQKd
QvOZKKJRSsTbES0ZTmIDlI1RSrSdd6xrideBMIlQAj8AgPciaAFaH6f0NHwj
JR77yMjKT7l8t7bD/s/naH2a0hYtZVl9tQ5T+vNAn++UT+bY01qgxHOxqBkO
HJ6KkX2LKVAppYb84BA+mRKwzDCdV9TIn3IhpsnPJoHxn0iJexOHXx38l1zQ
Gg1Y/0xKLiREibdYIy7v+C0s3eHi2/Q7KEGFgEDr/wnPWzTaYrL/HZTg+DO+
EidCqXX/kCu+/RMo4Z1m47t9/nNX+094eIXzySArTO5ghFIyY52SzLxu9cIn
LnofGvGdUaLiG6ARZoD8hwbDOaIEf64+/cQlpaTb/YACjDdTcos9HrNPXEBh
6q08T0kINMYPpxRt6mvIa5RYCB9BKUkI0WVMqx/JfTeldAnmai6mPOO6M8Kp
tMIbKFFLN1AKIwe/lfU/hJLTFJwCb2aJa3qQqLP6Syk9jp4zns2D15FrMcWP
wSm2vINSwpgaOYYWgn9htne/eLUY1qI75xLhYn4rJTG78/f7rnS1GJYxpZY2
JLzfT8nMyzhpSrwy/X5KJ51C3r2cEhm4m1KKqX/Ltph3v4sSIVAVE+3K8+7l
lOiEAiXcNUGpy7iCnjwjOxd58ndQCoR+bsPfpBmTmLhWpuRa1inhwjRCyUgi
r0/1WP4SSjZlWiXvUOZZl+NV8q+iVGA2RSnK6Dyo1ycaLDuYpiRkGs8KlFIw
/KQdmhPTUoyABkeC30sJBzomn3DyDafZtrHve/AJl4omp8Q24G2UeodK9Sla
CfnEKJHgOV9K5wZKjfbgQWVOKHj4S8Ak+BjC2ymZrnhszBU5wZhimvwVlHoy
h4l19MNzoymRgi+khIJfoQRdGPzw3KgJmEspubQN+DAlWk3iRD4+pXRFN5N3
MRibgTEFCV3l8iolMYRTIpia6xqsT6RCUelwSr7GvZsSSpJ2tQ7VJ7kiuBxR
UHKn7HN3dHofJTihO6i+X0BWhNqK9cq7Qw1LSjjQnZSCss4crL1fICm5QoUj
JmfTlPJ6U6pLfEa9QBUpJZryVRG4+VGUULVSgmr4nFBymmKhu6bG45RnKHxV
ZuqF6XkUNJV+QyTACzzAwgCFCvqj3I5nt1LqI7Fj1dU9JGUJD6Ip75Sdk2ZQ
gRJCBoFgSmaKl1M7GCdCidLBlYlSCk75OTsoQTFpSkFJbmX6/6ZKlHCoaU4Y
z/jUnZRwI64w6E6/o1mjJF4TCEpGPnVKa4WJqrV7BV7ntKKlIiXzKEOj1rdS
Cv7U9GTnFB5nKBEToG8LJepQN6srTRZW9olLMfP44vRkSQB6OB5IpsdJDZyW
/sIj9WgfpTzHliklh70j5frkrJQ0Bd8yZyeFh1FKCPkUpb6pxgnWiERTxzAl
NJDVJ25+I6VuyQqnbna0vY9SBHGEnz5j5lM9VA6TbEk4oaS6kNlUm6AkpNX8
UUoJnK5SOrqrMAQn56t32GogBMZP6pR8QgWLN1PqD/7clf430HP0z6MxDn76
j55gzooSrUtLlGQFsO2qQAmq12MIcpQSdx/u9sspdXFCToTSddy5fQ3hYRBK
LQzUuSlcHKOE95lQ6m7kDQNAqflurJA6JTUyjlDpEVfWlBzh8xErmuTd4eH4
Bfp/3o+7KVHb45TOB5Lv9lG+oQmauKr6JaM3OynJH+cYpBSyOGYe5iQpuerW
TMuAlkAsoi4RxeZouEPMD1SfECdAKWZhhCUHSu9wqcgpJThIM/HL9birJiIn
pCUe/PPkaic4Ukp5TmKcbp/2UMJrky8+rJg6Xe9+fuzAsYBm6j+npExB36R5
5vGZJ/Z04hrNuF63pi43t1Bq7nyOUp9lV1BXb/3HpqAnD7sylo2U4siQBpOU
etyIXfU/CUMtyWhpaDdRarBhiFJvxN3VLu4RWhrTFPV/WUteWHrXDk5pgpMy
/rRZ0dQLMs7JZZXSCCdQV4J44RplSm68mJtQQr4uUeo905wEpfg3EdpEQClw
8TVlIyW6pcMLKk4VLWGtp5TCfBbRBi2JglFfkHOKJEI9Yr/YAssDbLvckDqs
UhLpDWWWUXKPlY+mwGQmCgALu5yIaAclsABPD02p+AVHpB4d5PV3xEQpPce+
hBIcJDFdwwrXaFa1hDQFFw1xv5BSEw74UtJ3pj95wynhrWDRTVLCNFh7iVIY
EMtYR/PRmvzkTUpJJ840JTGPtw9Q6ooVqBnhcPT1+KAWPpkSHhd6Kpx4gfhL
KJESYoT0VF72hPfXU1Kw+t7Sxaxx9b+EUvfYY2qxSNVeaf42SnAsp+QaXHPC
ScHvzl5OCYeOpw5RsuetPxh5pQk1RXYkp5TMn6DEVQLnE0qRvOIEViilHHdV
wb6HkjxKKD0LlK5PKP9RrjlPhaubKGFgZCqXdFaXkCBLP65oDd1EididodTV
lTolXjL+HMgfVxQl6UWUkjSCpuBGp5R8XK5b/Cg8FBPGxGWv94w6HZbZRCnL
dXDaixPdhJgI0N2UYKGwHu+hpL+Z/4RV/49TbmLi4i5KVEy3ailqunTBfbSX
uQgTP3UarIJkpSwcGyn1eVe84D6aRf8jWKbcx1MC5lJOLOWoy2CATrlPp9Ts
3Ux9uk62U0KYXkJJFAyZd7LSAGX9ckquNpjHQt6JiTYAuExCSQWtKakZC5TU
Zsu8I5E108aWuY8SD1TZnaTEOXlD3j8vpwolbpTHbClVZqDJsiDkDj+P2HXk
0Z5t0tcGjFICWVOnpCavU3oc4r+F0TTYA08zSiLlPpQS+VvYZVaYdi7sToGp
OyjplEtEPEXJcsLzQhjEEck4ssj5kQlaTFmqswmC0vdDUp+EI15bYvbLKFHx
zFPCnIqUWvCkhfv3U8od4QWm6wKcWL3h2L+P4FeprVAi/s9R8tYYPmD9ahr4
DC9oSYlpnZKYsTQbU0J/qj5V8OeO/d2SapQTQW1cGtU4MaZNlJiWMk6JRps7
XKdES8kUpao1ZJzoQX+GRzR63QNYkRzx/nZKPmRNiYXyc1i5WgwnWLN3B4mG
UqK/cLKXUqYxKgF7kv/vDUwJcbrGRDGVtcTVNzR7gZKHRfMus9A3NBcJTPYF
Ou+i5HO29NX2jBLoiFmJ4kviKFJi1qrW0WAKS7yAKlLqEg16QoPeoaU2TalV
z34eqldpUq2LnsJhnjN6rYzSfMq5+JMP8NK9vg5ifFjoTwdaN2mWUjZ7lVK3
knqlmUZBKw6fDEDIlCtQwitQSlAwBM9VIMQrzWR3IiXVgpKtUxa2UqBULUze
aA2W4sSUR/wYptSgj0KkcAnfYUcUv5gROoJnkKvFbqRUW2iIErNGKbVwLwQG
ODEauynRQJSqPCa6JslnhYRm3vNefBNUTin1WFLijDdQ4tarsOwp/SaoMiX0
5YdosA7n0HAYpZZ87TCjmcLqukDebdESHix28/thhhKznlGqVqbOAvomqPw9
D+DxGiVgEZgOp+3H3Uyqql+71M67CxSvLVaRyOMdlIyqqOmYylVKoyo6/bGc
IEq4cBbKNKWCaS+mM6giJQwGOe9MkMvI30YJ80oo8UwupxzOJpR3d1AqFQFm
bZ0S6WnhPngfbKEXUM09hgH8CFFSsNKjuyhZWH6yGQvyDg32mAI2NrSwfci3
MBN3VimRvOonMEr9VP6VyNY+cNg3YkoA0yil/qMJGH1KiaLoOAGHKackjxQl
21dyqEqJdjKN4k2itH+YIKIq78jS6BwsidyEKsdZRSmBpREsOJltDy8McWz+
Rl1cPhtLakG2uSVKmIFKZZJy+f8xfNw3oqd7KR1W5dspDRUmMgwpS79RFx3M
xpJIQqw5FHGQr79AicBS14oxBzMvuYPWQ/oXd4FS3ICw7FDGwbLQ38dX5MSj
zE0eNUuyfFxCyXaPaQkLm8L69wP9Wxg46Bt57SjUGSuqWUqt0he2BI8DmM49
OLMPuYUwmXiDs+k+yvjGtWT3HoqEOiNNmTlAsDQU36aOqKfQRfD0h4wDLyTz
ZMswJYOpPY+uBb7YxpG2a3VOKVUb2jqyDPICUApvb7LHyqmDdeVe55+kBH86
KVN50cWUEqOMZ9bWhBLrOztVfYEhyD3gBVg5k/smSsgr3lSiRAYfhhN1EC2+
jxKIEVYBetlFtNwmKVnL18Opqq9rgXC7V0tVSmjt1IUaJVWgnK0v7MGRUCq8
AEoEXaVEveAueJMZJcSnP7kEFTlpLfGuig9omKbUuiYikapmUAnijjpOwkuh
+jKlTP4VSnAq/3iWnSeiswLsT7/CvKKW8h3FKuIXleBTTqmsJUWJYmp2WHjC
u5dStK24uDMrovMho3Sd8hC7zA6lyehJuM8p5W+SEHnPUCqWOvyo0yWgiSo2
b7EUKaW+MkrS6eQMgyb1CGuK5LfX5+EC8ZwmKRUudQaeAOsFSi7grB6RdRua
A4dey/k3oqJBd1vU0gZKRFNJfcJBMS4xx8MLgxlK5Cc5qCfItbiKO1dbPqal
8xDK82qMnKKLd2iJzqxj0pT8ArS74orliH9ocQ8l4u0MJQSrarhCCWzD8y58
mrdGCWQQlABNCbg0GuvaWMxsl8TOkhD+3MVCvkIJeEM6JihJTbHgqV9Mbky/
rpC/hhJeza2t4mAiXaYUJYWiQpS8GimlaLBICfiW7PZDk8ynLVryc643yQWl
wOJakReAYFVQwkWCVo4+d6uU6KsXifUaBN4z8NFQSlxL0dwAJbwsHES+6Qys
qaSpJdUjLogpyBzl6xAlktPaddyMyM5S8tly2flCmKgnzOocpdLOJigzUUxS
ig9jV0X1lJOf/A4NQZWVvCkF5jaUb5+kej7CbvLfqCClo1dV8GYnpZHtZ7mc
DKhp6TqBl48pTA9Y2HB3j4pEidJQkmDLnQPKzzgbdf/cQ0HhJIgs8IPfWK9o
TUlmB8nHKIvnMR6AEYKciGNtT1SvYoG1Knc8o/QME25/8hilDQfqlEPXDYkr
Ekneclh42jVqhBLefhIf/M8nCrNFWJEx/C9CnSQKWRYVj5wY0pJeR7sGAI/8
qD1xM/vW7dwIopTkRcBEoMJ1/BpCMRozFBVa68+9+IWX6L8krijRUNEouZxM
T1kiSjuFZvyc4o9fHrCFkTBFaEm6GCmZc0K4kCz11IVZ4+JBH79gI3HEiJZ0
ORBS7sYSSlLnFdqOmj/uOUVKLTjhlt5AqVZ0YDRRpsRgbud5GvLJpRWkRNfl
LdsoCVhal8yTBoYQamDsqSeWUP1UJyIlpkFKbDwUgbTVG/LgnDaCFmOS2DHp
zyfExY35ACyGb0+HKOG5xFZspd4x+fWndkzy5SvKa3hI0mKOknV1iNLRp0H3
2HpvkEH7V9c5Un/5CnB0iBKOlFKCm1PKZkzpeDIh/ghfg0DUlxtITZUp+bNk
GLQZCklpVBhGcXaGbdJdZ+AVFMAk3ldnKrFWqpTAjlPPkv3p2smOa7DWXvjw
RdWI3lJDvhLVjFFK1sYi0ompQvFdRkbteYA/HiZhknhpv0yThJKPCzaXKdEN
9XMcx/MOXr9C8luPogdYAAklrURtMmqJLCYtWk78v7y4U4rHd2OvRXEQ3XLD
Jig94mcpFzQFOPWd7QhxCFfFbzRoUfuz0K3SdkZLAYNSPNUTjGHA1VYdOETp
6cEuSkZPLdy7Ps4JUKq4Kn6jco5SutVcKJASWM58ZIC1xjhxStXgZeIlSxwh
1hxWbOjmBGLdUPPzBTIlA6dJSi20FL5NTvYiTWUWES2sOJQlGGvXjp/vCh8h
AJnjMJOcAgzROiS19JLPB6LOhnVrrAVBRc25U0kpaqqI0StQbgoBz5+NG2w9
XIRnj9Js5BSIdasFE/6ULaWTSmvJkSVj08wMncYckegV+xfqjmYjLLQ2lR7N
FNSplQlBK0qXeeAeTlEw5gvMYku3MAZuEbWId1mGGrjCNGKD+f622M88MZyC
JajHdrDIvT8x8xwjf1rKR8mSUQKGoaqJph6PfYHyCgW72KAfRELdUTcSgkaY
nHJrlOLwfn2YbObkarROwLxzfl7N7bwPo88jsa8+GPLxJeatrvZxdpxiC4Bx
ArPsQXZwiYhXtbDpwQmeTs9BFrfYfZFyKBn4FCqT6+7LWdeUThOXreCc203K
+zyF+V7ILuzquSs8yaD+XKPfZ/wnnpMAMt+e/RDJcwZUo1svkGy+K4qpkQ1V
IEhnhNXiKXpPM9GUF5PbOVAYJKXDVR7gLWDmIkdp5HcyaJJh8in3fYtX92hN
eVU17kaNEjw/4yODjG/6iq/DhEwokTFdQ/hsCmsUJpc5JX7ke/7sQ0s0P1D4
hp7829Xh9OHc9UJ6TOs+RLZ/uRBKQRJxnPWDHqAHt4FeJYf7HgwLS+0vTiYQ
H/LGMe050Vh8UqHduFKwSik4FPRzPA2H2VL+xn6PHZJQTjE9BWNhfFwOn4ID
uOVh4TjEDDSwbMRCHhGxulgbXYgWPxQG4oaRkRw9yEG689eSzVLQ0xLLJJq6
vYdL5OtajbjNBJI0LrQSJepdWB0JRukiTdXeXUwJy+Gwl2s8/5ZjgTwHu1Rh
olJBUAT9syBNGJh5JMQwG2BynusLPqIqSAr6biyqfKuFdb9GIYvFA4gTVkji
8gXPyp68awwUDHyBf+HjrRYj4ct9pSLpMYizmgVonEs6Guo5LnhveyQeOBL7
mCtFqTUo1O4oxhRz62q3R/idn2sAt+9giT3GWBvppDalWkkW8IINLNqpnV2i
i3DYHE8AC288GE0HOg/7kyBokQV2/NVR39I4H8GiDmIkdnbgTXRIN8b7id3Q
CovBuqSgW0qc6JTejrBqN62B5gwWigDCikfkb4Ouq6Cp6FBxSyWs4wmL8CBe
+cVw+GHn2MaQvOjHxRhzN52oyJZisZ3D/Gr8zyrt4rXbMhuMozJEr76ulXoi
/ib07zt7TlGGrtdO8N57LUQSced40KbHeBzm4a2GKQQmgQ3rVeWX7uygOILd
bnhIlq7ZjO7F4bQdMUdwNvg4IX5KEwONeDo35aaCxLBjTcoI0YRPMYPb17gO
1pex7wIMG+Rhwa20PrYGXOnnETf9fYQR7ThXml3AhNe74rQTt9TtVhSTlzvZ
9bhMi4+9+IFGnKjMqoixHYZMBYrm7z9PpTnDwWLzXUe/QPDsDKcdNcuXi0ES
p8/JnsIXn70FZLTLnHZ5fI13TK9lHiOMMju/8K44v7weehR9Hex86b1/OtCi
Yy7yfpVnrW0hufEsE1Cg2J5PtuEFSOtgenOGGtpT5tGP2y2G2Pq960D8P8nB
W/U=
     "], {{0, 0}, Offset[{300, 501}, {0, 0}]}, {0, 2}],
    Frame->Automatic,
    FrameLabel->{None, None},
    FrameTicks->{{None, None}, {None, None}},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImageSize->{300, 501},
    Method->{
     "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
    PlotLabel->FormBox[
      RowBox[{"\"lane\"", "+", "5"}], TraditionalForm],
    PlotRange->{{0, 300}, {0, 501}},
    PlotRangeClipping->True], ",", 
   GraphicsBox[RasterBox[CompressedData["
1:eJztnVuWJDmOQ1O+k/mf1cwSegO9+vmf6YrwcBMJgNDDzM2jKs/pdjM9SPAK
VOUrIv/rX//+n389/vz587/tz5///v//PR6P9vjrx/dHfu9+NPjc+KIUJ+9i
n2Er0vX10rjklh+x7LwQzq5QUph8ShwX1dX4FNW4Qint/YcSmH1NSUoMDSwI
xhmgBKMKSkDzaZRoRpY2rz6TklDftlKCpTb0mn+8n5IqKE3ZlNAw30y9xXfm
dWOUeK0lJdFytDlYu+SsNSV0C5CdIiGIYDjh4yg5RYqEXoDfRwmF5QlBgHVK
IPwIJT/8KqWGxaK3SygBtQalPv5JlPjIP5RKNY9hSvR2+XWU2HRasJlSfzEp
j6vi8fxZlCpjka0k9wClHpZOt4ESpVblpqsNSrHGaUpZwCZKzO4bKMHzFZTo
iYU3ZV9xDfLLi4Q3KJGsMhErq9w6RmlAPuQgA51DiT4TgPOULPlK/0ZKjh/+
oXQ2JTjE/GxcTL+ZUsM5TS1zlJrFoZitrkw2ukCJacCHvc1LOym1tLLInVab
lPJNdQ6lHy8BU8EIPiWMaa+XxHVEQgiwwkv63vs0Sq26XwcoyVJRoI2UYPS0
eJ5SGT3V+WZKpZlMSoKZm3mZ0vOu/RWUso0bTzpB6QwvQUyE0nCTyYz4dsJT
Q5Tgao9SzHdXSg3mB2qTAXdSKk+HRdcvE5QKvf17viAS619KCd+NgcMmSuBK
/2hK+rCnvaSz3pBSGqkp0XvJQwlD/F5KLY2hVH97SnkdyIXly6xk8qMpQRvA
+TzbfhklvuOob4RSw4uEJCwxqyDjt6GE9hJK/bQWKdwLYn8IpX6BRQn27SQl
Xv4tKYkYrzd1u1UXFM7ykZRoR3aD+acVQttsy9Hjsyn5Jdb3EkrZyIT64xam
7f2UajMtUIKh6TV0NqV6z0LLDVLq7x+0sTZV2PIbKSVMTKx9HYj7LU97LXca
JWoSIgbk/noJOdDvlb+JEr+PRimpXsKjtCP4ymspiSuyKuJsSkgyS6Ux3YsS
bblFSmXHfSIlNVBnkGHnKNUtXWx5B6X82yMFpezR6yiF1Df2UtTKagk/HEr0
LUSmqXGSd1L6/jz8dPN8SvSAksFtSnQn1qIp5bj8ZCGlshvUG7kBsya3CN4a
hc5dlDAjlAisru6TviRBCenV097dZidIO/ABJ1rayuBVVBfb5AxK/JZxErAd
WyiZ1TEoxcU0Rgk+6parKdFZPcFfa0pZnltEfYGQ9fbF5FGiF9QSpdBrJ1Aq
FFxDiVrM0khb7pdSYsvMdh+6mE6hNHieD1IaxvRRlKSF9lCK322lhekH/PE+
SjnEFZSIS9CR+fdJRUntuYKSeW6Vl4iZZHeOUJLXy1mU4OgWLzEzobWZ4QdQ
ilcMsYVJKQbjW0WwHZSQEtHIZdFe8wxREpjaNkr61lJmWqCEO+IESvmHaHrV
OBZDSWnAGiuU2CdvMpSlpqTNNDpZUXL2DlGKFcIg96VU6HUpkdG9lFhQrffv
SWkrCBsJvCJUYHeD2rSBEuz4+1D6froNpQby4KfBG82mpAJXhwlecYlo9SAl
rhKvzJnuQenbgNJMFiXhx/YuSiLFDCXWeqmJZymp1B9AKezC0OR1waakVjI8
TCmfI4kXk+GTY3HIxAZKclfTC1FqeRtUdtWUSFnAtF/PugH3UgIvFqWy5c6m
VDTgKqXCPu+nRNXchlLXhKOUSEW/kxIVQlfOUiI8KCV5G0atl1BqKPOtKH2/
nUQJ7EcCi8fbUCKdN0Rp0FUQDSz+b0gJhUyTrRvdSanh2eIl7IsicDiid+xi
KilBwXso6RMAEp4Dw2ZapaQ24ouK6ZF3WUGJpsKUICyl6mpKLOsUJWgmn1KR
BKy/lhJ6ewelL0vRCwqvZ08nUWqsuiVK/JLKATCDaynp5cJXNiVYmMQEgbyH
kgjKL4RLKSkit6Z0eH4PJfgFLu+hVF1WpAsv8VKWfTElTYTu3E9J3UHhmlJ6
FAnxhdmPUyilpYwSJcMo4URU96299PPyoZSAZc+kFJ73Uaoupg+k5DyI525A
7dxHSW28ESV6wykzGZRcLSmiR0nfbWOU2kmUskarICviOyiBqDejxBa5QfdR
CrLeTQlhOoUS9kZJKV0r96NEY7NVSOgaJaAvjRC0MLCgpOCMUdIOsinRwiQl
1LsqGN50JiUl5WJKVO+NKCkQV1LyDvDtlMzGvDkls8QdlCyE51FSyp4vWyk1
OulREmWeTalYyDKhVB6lwRBocJQSPR9WfMJ0COlQUgfyRkp6PTXTDCU9Hgb+
5pSqiCOUtD1dvtOUmOaaEnsl529QcsXPu3Ck2+H0Nkq49TgLIGuYkpKNyh6m
FFKeTak5lExLIGmifjC7SgnValJC5Xv9xVXchdL359mUvDLuTiktJ7vSWw6p
Kb3iAwBZ/dmUlLPBtKIkXkQTExWwfqfxLSv8FkphFfw4i5JwI+sdre88SqG7
3GsMDq5TKm+Ybv5ySlreTSnRDtQv51DCtW6gFC2hZQi1qFQeQ1FqaJDmBRoe
8ZvvpC2TlNyjzZHPopSPj1MiEdj0FkrAXurkhPgNlKhShxL73EKJdyGKPEyp
MMkJlIgEuHKUEigERVbXlKDEJXiU1LliSqicvZTQs8KjQJ9HiYR4pMmdlJiZ
+pM7i1Ky40ZKYmyJEjfTdkoshEIwRQmaYDulDhMRCNLfj1JDMqVEMtjQbuEp
0bSMUmVHskxk9SnlVVBiHzDdCbKbESwUlzXjPkrijBxKAYJJCXduUQ5qR7WO
qn0npSj+ZEq85UpKcR2v8ixKacX1lFC1TkDI4CRKRBgfRZRga7yVUvDfICVo
UwEPsIPEWvr//ZToek4Jnv06JVx3jbTLjM+RLP5gSu3R19o7jJfVqaIQRimx
lruAEu4i1h6e83SHLlOqaIFYYEltbpeSdPV1lAY9BWKh1jEo4ZYrKW31EmuH
UUrU+TL2+ZQaXj10vCSoCreXktMwGyjlbddSijtuQynr+c+z8KxMOEppwkwO
JXG2k5TEsekANQSxtLL0HKXqENg+S17DS7WAw0jZUDXreUqy5TZ76QsWw3Vs
wgEv1T0ZB+5KqXWPhquQPAaBi6t2DFCCjzgcGXK89AL1w6jRomDsjZRogDVK
3O54mRbewyrCrFCqTp3LFYWMdOwspQOd1q+UYWDQeUrhjPZRela1h9KBkVMk
Xsgp0V6oWm4TJTg1Tak3VO5v0PFKyf0oqW2K0ghsRCmndSgR8WXPwryC5c/L
KqU+jEnJG+KeIOYqKRE3c8P8vIr6LEpdmHVK8JukmJSSiDlK4kI4/mH2IKUj
JwXb85LoOJOSOB8JwqDkiKKBjiGyO6y6yR2jV9uUBuxSTA4ZFVN6dKAcd9Bc
3TiNhF1/MaXawmxHtWuMki2sPB8HxHsopV/hiUA/i9UeLux8SmmcixGUICYa
eI5S48Kqg8d5h73UUKwLKQlnO2FOp9S9kmyLlOpAqh5R8/WUjm8TlNRlIFqF
bjIoNTSipUBK+ApyEJaK+eKljrN256oqSrjYN1BSigY6boZSfACJIYkRSqRW
JcNbLS1EI/lOpFvOpwR8vJESxzRBidFBFbyVklz9ZkoN7XUoNbhhhZJqq+2U
dFmIUtqqBmGYvw+lhgb5Bjka4U1TspqGUpJWdwqwOBvhvCSfQ6moq0y6Rkk1
EV9zIqU2R4kttPAMUBKYtlOKnb/uJUoJ672YktJbUoIpT6Gkw5Ajh5TIKYAc
aOg9lPgDzN1wGNYYsBIQn3bGZ1IibtlDyTA4tGdJqU5ZUTIqrKNupiQe5ijl
G6AyTdywRIkeFsuCEg4cnfQZTwVq8lqLn9IEJVo4qoTfEg4lCY6lmqbE7LBC
ybpqBKX66OAQp8S9/n5KTWTBQ1TM6ZSozp2UQqtwMaqbhJhVStzsOFP+89GC
Ik5OHMrEqCdFSWBaoSRUMOlTlIJ5TEptnZLDjQe2KRWVuZRwjxGnwe69OSXd
amOUdBByII/eVeKW2E2J3wVV5jCuW4Iu1y1HxYXnrZREYIOSWwpO7zVsU2tp
7PMosZrvQKk+wvCwRMlpuTKBS0npAMNbKTnT9DCdliudyI5jkVKIYkErKKHH
0ylVpmF0higNNaBJqd2QUvqCG5L+UkpAwgAln0G9ovTSCCWL3SgllF/FAsIp
W1LOJ1NqXiwgfBsl2rv9xLspMXX3oqR54Nf9lBAvRYkWN0sp10RqhaPqdZVS
/kqUBteDhPspFSlwXIeSMoXlJV5TfClOmsf2KbGjHzCTXrNOiZ4kVFzWAGZq
StI1C2baTokGmqeku8HoYklpwnB4hJoePclARkkiQIl1ipJuLnItnEsJPN+E
ktWt11JqXKztNqRhpJk8lnsopY0+JbKsa1C1ojZTYT7VeVXLLVKSiwEluRzP
2O6boaQtJlpnkpIwDqrrIygpFEOURA+K2CAZ3TRJqerc91JCq+mazIhXJ9R0
5/OxlHhI3qYDXuqj0PVwWlMSLD6cUuUHuapAvI+ScqVDqVj6D6XDDx52LyWT
ltGLsonyHC+jvCzQzptQikpXKSl7sSUJk2PMQUp9qklKRuuhsT2UEibDQcyR
XtPch1L+OY4BEg8fP6lAZZY0MtKAamaUUvaFERIlATshTNlM5YEMNKCauTcl
tB7BqgqVDVgxLta+n1I/BPyR1EjfEKv8Lkr9IHJJ1md46hJKPJBLqb4owpDA
FL8nlPJUeeJjlMRZvcbVLmgJhxJvqceDYCKxUM9dT0nuOoUSaqaKkoKlJk6k
pFt3FyW8maUWsHjMUyjx/TejFLu1NtkgJYWJn8X5lFinydVM5zqljOlqSt5V
M0WJmgxRQrrRMrboSkoMFulEtDpLUiTuRImfqnPVcElotZD0FkpBXE1JqROF
87uDtFwMPkQJYqopVRz0K5xzKX1/xpBEEKXEA7hPb6cUzlsEBV+Khzvz91Ii
vlCTZWNNUhItnlJxSlZBAX8M3tjcDCUqtKYE7VJTApWMUcpx0GCmhLtnhBLv
lI2U/COyjnSSUtg9QanR7fOUDDPNUeoxjVIa+KDDeeiNlBy1oilOpES74hJK
uCvuS4kVQIYGKY2aZo0SZA/fJik1ZKZbUQpFC0rGxzylOjsKjJ766mAgQq+m
JI/O6a6W/l/kZZSQy5e9VP7xuEOJVFZuVymqvBWlBhahjWiz33ETlJSoYUp6
qUkpDpIFE5RGSihjMaO0PHYeJXg91CKFxNfjZkowqtFcGynBbDJYTUkGmKak
omHbkbzTlJCeuII11iAlnNGhJFpOHchuSg2KpJTEjFJjUyJ5jM5DkxspIY3l
YVSUREbV11bt457aRglHBSz4THrZTknBshDuoRSHVylBEMKXHiXccldTAlsm
KDUWfogSJGIAuZAS+qdlxyjJlwFKqjtV5xXQN1GiY0bHseeTKFmdV3jMVgVC
osmdlI7BJig5eBYpofScUpulBPtAedagRL6L6Colx7ZYfQ62RIndDoepES9B
9mOUwEF1qaJiuNUIml9KSs5Jsn+jBqmpYVmUABGUP/uk6AO0FWa+gpKClVIK
SlXLcUo0ia6CibZuhVYtlcHPoySKHzJXSQnVXkVGp6mOoMGl51IqsXU/ckXL
lMAX8jiUWEZFqSK3SokXz4xRN/mal0pK8qCK9IuU8tCplPruugEl1TORUqs1
D1BChcHSvR5HLbefEmpYwewSSh2m8ygpBkS0R4lqW6NEUABYQ5RccidREkz2
U/I85VJSLSegLlBqFqUoAVHChhGwFPxpSqIKSAkbk8jX8akL6sDq4xaUcDBG
CTF9IyWQ6nxKNFrK3KBCWs8YJdmVi5QopilKWClSZVAyv+sAUerkllfCEKVQ
OIgAnkulYLv0kjKKpoSO+TRKERNNelReUzr0oENp/GMvJR4VWVYmTbD4Ueib
oaSknOtQKtgoSiSLT+lxsAjbpHpwgBJ0bnVCBSWpibbcLKVH10+jWcmzbCfM
BelXh3QWJd5QB0N11gLf6BLVn6WTTE4jOg1Ed1xA6ZFb0PASzMdWCTNdSwmC
IdrZ5vbotZN/WwLstSjJD5+S2HEOJX68rB+EIcEq/AdVZTcIcCgAGrEoIYsa
lGIXWJSAhPjwNkr0tPObQalUPkQpZZJ4PpZSS65SwlX/plbmFXwOJdZy4Bv3
eJTQiE0JOreOr6SUlOYKrG+POoj1l3i8ZsYiP5kS62di3H8ohQ/pqa2UuGHj
21ZKzgNLSOavpAQDSdHoIaeLh7FA6QkLn+9voMRZDFMiHhqmROODjTWlOoZR
YDZTbSoWRMIqhEqRYmPeQ8KOUBKS1in1nZdhVZY4lZKqC5zo8y02Rus/hyjB
ahEsHZEd1BspVXm5tvKaiMvwHrZv0d/pdZVSSy/QS1yS9sQBVv4tra+nUUqG
3dIrFV0ECevIrVBHy0RRlwVnEV5SQt1ygpIvQFLqTZUR+F6CYBiC+pLhv1E/
QQkI0JhYUgbdp4T41CJd+GJqDyXUqSDp0VRTlDoy8GhKSvnrB4Wt1yjxyh65
JiC00zZOKZtT/Xtu2HRw6K2U5O/3T1HqCBEh6ox0ZwxRCs5WDh/30hZKFJaf
HfWgWAxexdI5Srk2tIpt52sTrHJt4aV3UgqfBNM0Jba/opRtSBeDlbQ1nJxw
Z/DU9+kzMylKvV68cZBStx6fpzLMdkpFObz1WEu0UIwKxwtFdWr+qogip0Gp
L26FEmk2mI1oSUEGjrmIW5+MjCA7ZZ4SOS5IkhfK9V9MKRxvOESHEhUAnsqW
K2S+PoAkohb5d5iSjGJR+n6JhP8zSvZvoISEyGyw2c0IOFY0U0UJt1DppRid
LcgTsKmsM8kpJygVZtKUnhIGKYnutSk1FE5UBk5GREgZVW+XlJitZyn5XoJV
q/Mf6lkm+WeQxVaUgqfytm2UUOt5XSIpCVc4LTdESWyrFNuUZIgzKDktN0rp
+7n49jRnUZJbYSklpfZ87JsCNyKjlJYJIHDwBEqFz8cpPRKsRygchQbDGVMD
b/k/hidS4h4SlFiUCCvwmKYEwbyBkkLCN9MoP4bqfs1pUuKq0Qf/6/sLlEin
ZRdISjrKqwK8CXYQziwp6ZJKtUuU4gY4XVHqRmjDkrJMSkVJZZifp3lKsCkm
KT1hVZS8MHn7KiVel0upOdOT5bGWu9pLuyill5ISxMtaj3lrjpIbRgysUOL9
SykVaYqy5zruHpRaFaWMv5fSsJdEi1uU0n5RuIhCZ2Yp4f4til6h5B2PSYmf
nq6vUE/Ptunl+ylB+ZOUxGJY3zSlLsy4l8reLH6ysoVSA4uhcp8SWaFFz1Oi
9eteUIqVLDPNGqWiaECpyM/r308JHrROwzvXolQk2UAJwtpAyVviUpoJY1Ay
ylYOQHhnKMXN5PCo2Ph0PSXZcpsoERkkpnNGIqpzWjiRSqxa7iRKKXz/YGTH
mfri41FwLLaJq1ITFOBk0k5cVZLV/W4t+1oLFnW+5ejpFXavKYE53DdgjEcn
PiC5ZOMOUBpvIVaqaDlcvDATFRVdVsruOvQESvMtV1FCZpJ4Dq/E+6LjWl52
JiW75UxKuSCDEgmJKR0VtzjgUBoQInvtPZSMXHljAatbv04JZUI7ZyjpnqBH
bVH6/mSwZIJpSjFH3pmnAB68ZJASVM3XQVgy8ColsXOBUtDPAgK2klJfU4CF
NnwEJZKKVh8DC0ovsA0sZJlyHhRR7LgDpfLsj5mPaxpudXYTAPeZ0m9B6Vl0
yFBSOsDqt2pdMKInfY3SUCoj91/PihJIiBrKbzlVAeJbdPfxBynTpaSmyKO8
QBr7q9I+JbbBvjZ8SsVtMUZJt6F5jzQ8zEPEDXsoCdG0hTUlAhk3k3mPgKr1
NTEgmZyqyFWc8AqlnLylvJXJYSJNqfTQBCV8whsptbynPfIY0aUSMUrl/WFR
Mlpu4GDK9Fn+MVn5ZSriOHALx4m8ZITSmJk2UCKq4/wopcSEhqDvWauX61RK
cDn55pC2cqPltlEqe3ojJfP7sfJE+I0XsUIJttxGSjRE0WpGImam8yhBWIuU
dBeT4qYp+VQsSlgOgmVSem4iBYbZMYiola6k5HwAKCiF3kTLPmJiiB/wD0+h
8S+kVJyw0wn6WmZq4ybAxtt5IaWyNKflhiiFGKDPqAiWAMtZojRYGjSTd29Y
tcJKGIcmZ0uKIEFVxAol7AeTEuyf3kd6Z5mIzqc6ytgbKM15yRVQ7nQTnUAJ
hD6EDHrOpQTyIhsOfMMHFHqEkmpmTomoLkLalF77TO3vpISAoSDpP1vEXKYD
85KilDJ0ClzvGfCSSYkWvItShf8jvORS6vtUUCq+bdk7KWUbI0qw0ooO7lO2
uIybrquNlNx/16Kg1NW4QkmVpP0uDg8fQApcy9hDqYelU+ymBJS6ZnoPJdw9
rDqrXY04YDpkYJiGKTH7gkDot137Pu7FFZR0u6opwzEN7kCv8OjYZySBAtVn
UBQOKWJ5Kk5FKT/ZlFhQ7K2akuobVrhYjApapjTupe2UOhZO/dbiMyi1INyg
VNAaplTDYmZapVRZFtaSBixKxndRsCgpWKzllDw0pKWKjiP9otac46X+tT9l
fbhvoATSe5ToN+RFWbtXrL2hqUVK5nmzDrfkb/dS6DUYoHVTmyiR4ucohVeT
UuwWnL4Wm2Fhufyrz0T5XdS8k5yKoNTIWkopY/IoGWmcn08OUCItX2rh67V8
sQ6qNCIphKoGXmvlEaQOaonRUIqi8wYosbNsedJw0W5K3yMZVopGxSeNC5RY
MbZvaLFUSck3zbe8QlFKXAco6ZaTJ+1wGT8vUhJe38Iag9Lr4xpKTpMtUiIt
F1fgzjAjX0NpxFMnUXp9QmN5yk6mZDTgBZT+eup/qwAbunI7ZtMLIdX5iTxK
wPDlUcv1aGDkMjiEWabk56PFVtcCP2OyEUUyjpFTihnBKCtCkFAuopSgWdph
IzMTNaEAOHA1UEt2OkYoLbUcMstxqKRkhCa0lE6hK/cfywxPRSH8fvkzTOkJ
a4ES+1RXQxzvc7PrgBQ1+sG/FRI6NKa/f60pke5VVwMeiQMrlKy+pwfOAq1T
sq4NwYAKXqHk9b1B6dl0UOv7KbXcICOUEKb8m5s2JbzkREpAGAzPTWWYqGj8
YS/99ZEJGM28RimGYRWAAqYpUTrTXuKU6H5xF3SUvjo9xivVkS8VnFAjGqUk
2ZD2cUpSXr1PUcIzZLtQs0pJqKQ2I6aA8lRkl5K3D86eRgn1rqYkYD3wGHRf
RelVodOx+GOZEv+SM0pJ/V69bybqpeI0rUZkDXI4izEvUTUPCkAoGm+5dN6V
zglK6CdMuymRzsG/BqLby0rYNmK6RS9VlLRlUZkRE9w5TOm5j7Wclu8ZlCiu
wxd4jH+QQB7jMCW+ccQ8eM8IpTETLVICQjxKqILxrL+e0mFnv8NJ97MGt/87
KWmX25Tyzvgk8nhdvE6JV2lSgkWgkeKEOaXOVAsdd/zpBiV4LqV4fj6ltJMe
eQVrwkvvoZSLdSnVZiphieVpmGzZRqnYWVExKFUncagTu4Z89MvkVl3kUWrR
5idT6otAbwlWRSn+6LfCFE4oaOvtlEBuNvctCJgCSS0EPgN9DfyRq8NpIUzh
+VJKqvw+qQkLeKozFU5BLJZfTErsFNYo+bbOsEihhwygTCL7IyiFgoUUbg9A
6fiSVunzoc8mpaIiKgQ/6iOli46RC0rsj8P1+VDl2LqMkvfeupl9lED8RAni
Y04vzFR9DdYapcBpkBL+PkW9YHQYvfaWs4qgpOUEJVyhSQkd8aSXaGu9xiEn
tuHQtNOUSO9QKl676E0kxBNDNw20/zDqOVFKpTXEI3EDwQ2PFGzXlLBNVPdW
50r92m1grsXxByhxk/hmKlqOUWKW89YhAVxj37+5E4uDPpUS9pTnarIOfAlE
pfEApocFKekz2UMJH4Fs3jFKE17C8r5ggd4co+R6rt/jmGmSEnFmWUsmcDCU
JFlKr9ZpL+HNoXzyDR7NP/HukmLQlBKAxRaRshMlvZw9j/g2lm1R8luOU+o+
o4VNk1gFF3ot0qzlfErBnXQlSayASJtS4xeUcDdZ0NxPpECmo5SyjpZXRSww
RG1jRMnqMdkA9JiEl4YpdcU4sAYpgW4f0GtRyp+dTzdS6rC0fkVFyW32YDLY
TSuU2C82AaY1SpnQX88qtJ8aT/SIt3jJbjn2cwyP0hFW6alDUp1aUbJ4DHZc
TYlWZFJKnGJDiqgbKK15yvYSwz9ICZvquAWlQbCo+AsoHTFZgXkLxu2g8L6j
SgDRedJrJ1ICEsgW8T2nNM7+szdV/kUNh0XH70RJfeAGiXaFHZgtKYrC07ek
xLU1uK3G28kQANKEWruTUv8XAJqzBXfD4W3Iiz+GCoKomQAmIegEL4V0FiXY
Z9hUvPDjtnoxw1QeBh1doES3SIcfA3oKu9UaFghgwtpJibRclpoEks+v/xug
9AgtWFIC69QhFgZ45cHtACbN//aTVa7uNH2Yj7DCxi5gw3t0A1SacHH4T0Ep
JeF0tASbr+4RXTj4gICB1klKuPyKktOBCdYApe+P1m1i+3ortgepCYbIJcp1
ylOw0jylamjHHAWl5NTeM9X2dthzXKFzavnypyvqH2gDVGUakYx4raHBnJWJ
bUdbtYgYUOrjOA0IndPyEOpA7kcyqDsynotZweu1j0IEkaEJSv0Zd0u6v/6r
vvoSbc6/VQ9OZ55SCgUPE0/of3hEUYLaIYtqASms1x57BexWmg+jkdPxb3kT
HXEKQktuz3qkcRreI5dHnbwKiQUXhmCxKo/bvH+GEyopjdObt8yiKVVB2CfT
0sUjpqBJLEooKjAOKtGpk/z9Tx2EOSOiP3RbgHVYwX/hjwBoSj85uhZE+8iC
EUqgWeCREDiiwPZIBfFw6HwrSnAZqAC0Fl9FiuzL4kfSFxC/zuvR36QxKitB
Uipt3J8BazABrYX3R3zkDCxnElf+qCWwqGPVTzpLSlDoIZOCHg8SP1FdtJ5u
4YHW6wfbCkuAYfvlRKs2VcoETHM8P/SgKQlYRDkqM8GKnuIlyCMRZbX8/yxT
lNDiFqoDi+1h4Xpa8JWAlfPx84YnU1ICsPKxkIleqGfqmM6A9f2ZFhFiEGc+
VVC3etCeQrCCBJxfm/o4KmE9p/h+Yh4yDjcmpxVnzzzFt7wKxe4hps7qiHDn
P1YIFjNVMsJxmaBEMaVTwSDIYRJKEFOotisWepMyg5y5SE240t1riTQgAel8
lq2GJT/oqfWcv54xj5iPmQpKPb7Qn4RC4UkkODyraGyNPg6EdTB/KDHDOkxL
JxOpnAP7hQs2RCio3kSrxaY8TgF/0AQMYoQ10ATwsKrDxnmNbDAdPeUE63s4
GJ/kkSdMSUr54L/22cIdpeNPc8i6lv4/UUJBhNyWN1fuL2E9yHfClT6JOzKs
R7+UwuqRYOtmEqriJKE9jvrwgfKT63OClqHng3+u2MOKOkOw1zogLWJiQItz
bFEKhnWYY345DkSEoXniSD7sV660tVfWwwI+QFyiMgELvXdObOBAD8LROT+r
iyj6UsF+APQQLsVJSfo6kZGiW/uIFFYnpR1dlbXkoKgfwhFG0WHdg/w+APy6
mqc+aLVjUf0hxrZ5pCnwAfs9izhSbL3te8D4H4E+1t7S2CMuQQPfOnKbtKQA
FNW9v0YPdWRN3eLWxT0uUbBeg/m7NJE4L2VgXdKYovT1HPT3fxngEBzeBYd1
6ELNnELg6ISuwMjpeTgtuucA4TDZC0hyclJA6eflB08yLkQZHNDaK0CiB0El
c//AOqg9kHo8634m+j/T0FRo
     "], {{0, 0}, Offset[{300, 501}, {0, 0}]}, {0, 2}],
    Frame->Automatic,
    FrameLabel->{None, None},
    FrameTicks->{{None, None}, {None, None}},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImageSize->{300, 501},
    Method->{
     "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
    PlotLabel->FormBox[
      RowBox[{"\"lane\"", "+", "6"}], TraditionalForm],
    PlotRange->{{0, 300}, {0, 501}},
    PlotRangeClipping->True]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7307943871863832`*^9},ExpressionUUID->"8db66c54-9eea-47e4-8f2d-\
83516a514bb8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<ppp.jpg\>\"", ",", 
   RowBox[{"ppp", "[", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.730750398023675*^9, 
  3.7307504272154613`*^9}},ExpressionUUID->"de1c753a-3fbc-4418-905d-\
1515c60aff03"],

Cell[BoxData["\<\"ppp.jpg\"\>"], "Output",
 CellChangeTimes->{
  3.7307943897305717`*^9},ExpressionUUID->"bc3c7046-a019-4c81-b8ff-\
064b043b2eab"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"ptt", "=", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Mean", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"totalMultiThroughput", "[", 
          RowBox[{"generateMultiTraffic", "[", 
           RowBox[{
           "\"\<random\>\"", ",", "i", ",", "v", ",", "4", ",", "0.1", ",", 
            ".2", ",", "300", ",", "6", ",", "200"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", "10"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", ".01", ",", ".30", ",", ".01"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"v", ",", "1", ",", "7"}], "}"}]}], "]"}], "]"}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.730750727892441*^9, 3.730750788894899*^9}, {
  3.7307508249717617`*^9, 3.7307509838616056`*^9}, {3.7307939760100536`*^9, 
  3.730793981778576*^9}},ExpressionUUID->"8fd1a7e0-5afc-48fb-8f2d-\
4e5403fe3156"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ppt", "=", 
   RowBox[{"Transpose", "[", "ptt", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"pri", "=", 
  RowBox[{"ListPlot3D", "[", 
   RowBox[{"ppt", ",", 
    RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<density\>\"", ",", "\"\<speed limit\>\"", ",", 
       "\"\<throughput\>\""}], "}"}]}], ",", 
    RowBox[{"InterpolationOrder", "\[Rule]", "1"}], ",", 
    RowBox[{"ViewPoint", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2"}], ",", " ", ".6", ",", " ", ".7"}], "}"}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"ppt", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\"\<density\>\"", ",", "\"\<throughput\>\""}], "}"}]}], ",", 
       RowBox[{"PlotLabels", "\[Rule]", 
        RowBox[{"\"\<speed limit=\>\"", "+", "i"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "ppt", "]"}]}], "}"}]}], "]"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.7307527683009796`*^9, 3.730752787119994*^9}, {
   3.730752818031323*^9, 3.7307528747775364`*^9}, {3.7307532768214593`*^9, 
   3.730753324755581*^9}, {3.7307534126793113`*^9, 3.7307535108690214`*^9}, {
   3.730753571749211*^9, 3.730753584072698*^9}, {3.730753916043578*^9, 
   3.730754016381257*^9}, 3.730754879214122*^9, {3.730755327838832*^9, 
   3.7307554103130045`*^9}},ExpressionUUID->"1cc4ab02-2494-4330-b45a-\
655254fc192b"],

Cell[BoxData[
 TemplateBox[{
  "ListPlot3D","arrayerr",
   "\"\\!\\(\\*RowBox[{\\\"Transpose\\\", \\\"[\\\", \\\"ptt\\\", \\\"]\\\"}]\
\\) must be a valid array or a list of valid arrays.\"",2,58,3,
   20141218205426587064,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.730794389871197*^9},ExpressionUUID->"afe0f3f3-496c-4606-8174-\
15ccdbec14a5"],

Cell[BoxData[
 RowBox[{"ListPlot3D", "[", 
  RowBox[{
   RowBox[{"Transpose", "[", "ptt", "]"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\<\"density\"\>", ",", "\<\"speed limit\"\>", 
      ",", "\<\"throughput\"\>"}], "}"}]}], ",", 
   RowBox[{"InterpolationOrder", "\[Rule]", "1"}], ",", 
   RowBox[{"ViewPoint", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "2"}], ",", "0.6`", ",", "0.7`"}], "}"}]}]}], 
  "]"}]], "Output",
 CellChangeTimes->{
  3.7307943899649677`*^9},ExpressionUUID->"7c4a71fd-c1cf-42a6-8ab5-\
125bd4a74298"],

Cell[BoxData[
 TemplateBox[{
  "ListPlot","lpn",
   "\"\\!\\(\\*RowBox[{\\\"ptt\\\"}]\\) is not a list of numbers or pairs of \
numbers.\"",2,59,4,20141218205426587064,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.730794390021394*^9},ExpressionUUID->"a5df8e5a-0015-46d6-acb6-\
566cbeabe0f5"],

Cell[BoxData[
 TemplateBox[{
  "ListPlot","lpn",
   "\"\\!\\(\\*RowBox[{\\\"ptt\\\"}]\\) is not a list of numbers or pairs of \
numbers.\"",2,59,5,20141218205426587064,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.730794390083895*^9},ExpressionUUID->"4998739c-a583-487a-8a0f-\
108f5c95de95"],

Cell[BoxData[
 TemplateBox[{
  "ListPlot","lpn",
   "\"\\!\\(\\*RowBox[{\\\"ptt\\\"}]\\) is not a list of numbers or pairs of \
numbers.\"",2,59,6,20141218205426587064,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7307943901620407`*^9},ExpressionUUID->"95e01b1c-03bf-4d3a-b2cc-\
7734e4c3ce12"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"ListPlot\\\", \
\\\"::\\\", \\\"lpn\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \
this calculation.\"",2,59,7,20141218205426587064,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.730794390193291*^9},ExpressionUUID->"f4903467-a2e8-4d97-9989-\
12d4001ffb7b"],

Cell[BoxData[
 TemplateBox[{
  "Show","gcomb",
   "\"Could not combine the graphics objects in \
\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{\
\\\"ListPlot\\\", \\\"[\\\", RowBox[{\\\"ptt\\\", \\\",\\\", \
RowBox[{\\\"Joined\\\", \\\"\[Rule]\\\", \\\"True\\\"}], \\\",\\\", \
RowBox[{\\\"ImageSize\\\", \\\"\[Rule]\\\", \\\"Large\\\"}], \\\",\\\", \
RowBox[{\\\"AxesLabel\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", RowBox[{\\\"\\\
\\\\\"density\\\\\\\"\\\", \\\",\\\", \\\"\\\\\\\"throughput\\\\\\\"\\\"}], \
\\\"}\\\"}]}], \\\",\\\", RowBox[{\\\"PlotLabels\\\", \\\"\[Rule]\\\", \
RowBox[{\\\"1\\\", \\\"+\\\", \\\"\\\\\\\"speed limit=\\\\\\\"\\\"}]}]}], \
\\\"]\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"PlotRange\\\", \\\"\[Rule]\\\
\", \\\"All\\\"}]}], \\\"]\\\"}]\\).\"",2,59,8,20141218205426587064,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7307943902557783`*^9},ExpressionUUID->"d76d86cc-2b20-42be-af1f-\
723234a07fe1"],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ListPlot", "[", 
     RowBox[{"ptt", ",", 
      RowBox[{"Joined", "\[Rule]", "True"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\<\"density\"\>", ",", "\<\"throughput\"\>"}], "}"}]}], ",", 
      RowBox[{"PlotLabels", "\[Rule]", 
       RowBox[{"1", "+", "\<\"speed limit=\"\>"}]}]}], "]"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Output",
 CellChangeTimes->{
  3.7307943902870245`*^9},ExpressionUUID->"94aaa60c-f8eb-4ff8-ad20-\
0ddb393eab95"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<pri.jpg\>\"", ",", "pri"}], "]"}]], "Input",
 CellChangeTimes->{{3.73075401935058*^9, 
  3.7307540339917107`*^9}},ExpressionUUID->"ac72c20e-90dd-4e27-8ad3-\
ec918c6234d4"],

Cell[BoxData["\<\"pri.jpg\"\>"], "Output",
 CellChangeTimes->{
  3.7307943903651686`*^9},ExpressionUUID->"cc4e3318-8a1c-473d-b6b0-\
85001764a5ad"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"ncc", "=", 
   RowBox[{"Parallelize", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Mean", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"totalMultiThroughput", "[", 
          RowBox[{"generateMultiTraffic", "[", 
           RowBox[{
           "\"\<random\>\"", ",", "i", ",", "6", ",", "4", ",", "0.1", ",", 
            "r", ",", "300", ",", "6", ",", "200"}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", "10"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", ".01", ",", ".30", ",", ".01"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", ".01", ",", ".30", ",", ".01"}], "}"}]}], "]"}], 
    "]"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.730751010830271*^9, 3.7307510475549064`*^9}, {
  3.730751085049548*^9, 3.7307511069547606`*^9}, {3.730793943589794*^9, 
  3.7307939485143733`*^9}},ExpressionUUID->"64db88c4-14bf-49e8-9dff-\
a32a7c5e7a9d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tzz", "=", 
   RowBox[{"Transpose", "[", "nupu", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"trr", "=", 
  RowBox[{"ListPlot3D", "[", 
   RowBox[{"tzz", ",", 
    RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<density\>\"", ",", "\"\<truck ratio\>\"", ",", 
       "\"\<throughput\>\""}], "}"}]}], ",", 
    RowBox[{"ViewPoint", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2"}], ",", " ", 
       RowBox[{"-", "1.5"}], ",", " ", "1.5"}], "}"}]}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.730789691062539*^9, 3.7307896989844728`*^9}, {
  3.730789809017228*^9, 
  3.7307898916433597`*^9}},ExpressionUUID->"8f9e89a5-7c2b-40bc-a441-\
7b47d962655b"],

Cell[BoxData[
 TemplateBox[{
  "ListPlot3D","arrayerr",
   "\"\\!\\(\\*RowBox[{\\\"Transpose\\\", \\\"[\\\", \\\"nupu\\\", \
\\\"]\\\"}]\\) must be a valid array or a list of valid arrays.\"",2,63,9,
   20141218205426587064,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7307943904120274`*^9},ExpressionUUID->"4bd57ddf-5cac-4d50-acd5-\
32c634843bcb"],

Cell[BoxData[
 RowBox[{"ListPlot3D", "[", 
  RowBox[{
   RowBox[{"Transpose", "[", "nupu", "]"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\<\"density\"\>", ",", "\<\"truck ratio\"\>", 
      ",", "\<\"throughput\"\>"}], "}"}]}], ",", 
   RowBox[{"ViewPoint", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "2"}], ",", 
      RowBox[{"-", "1.5`"}], ",", "1.5`"}], "}"}]}]}], "]"}]], "Output",
 CellChangeTimes->{
  3.7307943904432945`*^9},ExpressionUUID->"585be525-60b3-4200-aebf-\
b92bcd312ba2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<trr.jpg\>\"", ",", "trr"}], "]"}]], "Input",
 CellChangeTimes->{{3.73075544658239*^9, 3.730755463533437*^9}, {
  3.73078981909542*^9, 
  3.730789825486204*^9}},ExpressionUUID->"089db8a3-5725-4c9d-95a3-\
26fd4a646840"],

Cell[BoxData["\<\"trr.jpg\"\>"], "Output",
 CellChangeTimes->{
  3.7307943905214014`*^9},ExpressionUUID->"c0822fcb-1e36-4b71-b987-\
ae6475a91a16"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
PLEASE LET ME RUN AND EXPORT.
\
\>", "Title",
 CellChangeTimes->{{3.730755625945592*^9, 
  3.730755641035192*^9}},ExpressionUUID->"c8f5f9ff-8b81-4422-9782-\
e908731ffb67"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"pep", "=", 
  RowBox[{"Show", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"ListPlot", "[", 
       RowBox[{
        RowBox[{"ppt", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"Joined", "\[Rule]", "True"}], ",", 
        RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
        RowBox[{"AxesLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<density\>\"", ",", "\"\<throughput\>\""}], "}"}]}], 
        ",", 
        RowBox[{"PlotLabels", "\[Rule]", 
         RowBox[{"\"\<speed limit=\>\"", "+", "i"}]}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{"Length", "[", "ppt", "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<nut.jpg\>\"", ",", "pep"}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.7307849380157413`*^9, 
  3.730784976700458*^9}},ExpressionUUID->"deaff90a-a431-4c7a-aa3d-\
9fa59ac23516"],

Cell[BoxData[
 TemplateBox[{
  "ListPlot","lpn",
   "\"\\!\\(\\*RowBox[{\\\"ptt\\\"}]\\) is not a list of numbers or pairs of \
numbers.\"",2,65,10,20141218205426587064,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7307943905995445`*^9},ExpressionUUID->"08d737a3-a400-40cb-bf5c-\
1bff29c3afff"],

Cell[BoxData[
 TemplateBox[{
  "ListPlot","lpn",
   "\"\\!\\(\\*RowBox[{\\\"ptt\\\"}]\\) is not a list of numbers or pairs of \
numbers.\"",2,65,11,20141218205426587064,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7307943906620464`*^9},ExpressionUUID->"08a7c7f7-3c1b-47ad-b47d-\
a9430c1aff94"],

Cell[BoxData[
 TemplateBox[{
  "ListPlot","lpn",
   "\"\\!\\(\\*RowBox[{\\\"ptt\\\"}]\\) is not a list of numbers or pairs of \
numbers.\"",2,65,12,20141218205426587064,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7307943907245483`*^9},ExpressionUUID->"eef34859-0ee3-465d-b02e-\
f3694c51c611"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"ListPlot\\\", \
\\\"::\\\", \\\"lpn\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \
this calculation.\"",2,65,13,20141218205426587064,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7307943907557983`*^9},ExpressionUUID->"e7a11b6d-f8dc-417e-9153-\
5e5c23d81ed0"],

Cell[BoxData[
 TemplateBox[{
  "Show","gcomb",
   "\"Could not combine the graphics objects in \
\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{\
\\\"ListPlot\\\", \\\"[\\\", RowBox[{\\\"ptt\\\", \\\",\\\", \
RowBox[{\\\"Joined\\\", \\\"\[Rule]\\\", \\\"True\\\"}], \\\",\\\", \
RowBox[{\\\"ImageSize\\\", \\\"\[Rule]\\\", \\\"Large\\\"}], \\\",\\\", \
RowBox[{\\\"AxesLabel\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", RowBox[{\\\"\\\
\\\\\"density\\\\\\\"\\\", \\\",\\\", \\\"\\\\\\\"throughput\\\\\\\"\\\"}], \
\\\"}\\\"}]}], \\\",\\\", RowBox[{\\\"PlotLabels\\\", \\\"\[Rule]\\\", \
RowBox[{\\\"1\\\", \\\"+\\\", \\\"\\\\\\\"speed limit=\\\\\\\"\\\"}]}]}], \
\\\"]\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"PlotRange\\\", \\\"\[Rule]\\\
\", \\\"All\\\"}]}], \\\"]\\\"}]\\).\"",2,65,14,20141218205426587064,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.730794390802657*^9},ExpressionUUID->"13c5f7f7-27b9-4fc3-8b53-\
6ac7a2a77567"],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ListPlot", "[", 
     RowBox[{"ptt", ",", 
      RowBox[{"Joined", "\[Rule]", "True"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\<\"density\"\>", ",", "\<\"throughput\"\>"}], "}"}]}], ",", 
      RowBox[{"PlotLabels", "\[Rule]", 
       RowBox[{"1", "+", "\<\"speed limit=\"\>"}]}]}], "]"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Output",
 CellChangeTimes->{
  3.730794390818282*^9},ExpressionUUID->"e1af9df1-2b00-4417-a336-\
a7bac5d82392"],

Cell[BoxData["\<\"nut.jpg\"\>"], "Output",
 CellChangeTimes->{
  3.730794390896408*^9},ExpressionUUID->"8f188d3c-18fe-4640-a023-\
594b2c31acaf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"patt", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"generateTraffic", "[", 
      RowBox[{
      "\"\<random\>\"", ",", "d", ",", "5", ",", ".1", ",", "300", ",", 
       "300"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"d", ",", ".05", ",", ".30", ",", ".05"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"kek", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"ArrayPlot", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"patt", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"20", "*", "d"}], ",", "i", ",", "j", ",", "1"}], "]"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{"Length", "[", 
           RowBox[{"patt", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "1", ",", 
          RowBox[{"Length", "[", 
           RowBox[{"patt", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}], 
      ",", 
      RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
      RowBox[{"PixelConstrained", "\[Rule]", "1"}], ",", 
      RowBox[{"PlotLabel", "\[Rule]", 
       RowBox[{"\"\<density =\>\"", "+", "d"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"d", ",", ".05", ",", ".30", ",", ".05"}], "}"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.730793908467743*^9, 3.7307939300912895`*^9}, {
   3.7307940338729124`*^9, 3.7307941707023478`*^9}, {3.7307942378558774`*^9, 
   3.73079432294837*^9}, 
   3.730794420549312*^9},ExpressionUUID->"fbd6fd0d-9aaa-4f01-b7b5-\
e5a74c8ad8dd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[RasterBox[CompressedData["
1:eJzt1luS5CYQBVDknfjf3oyXMBvw/v9sT087SpCPmwkp8UgiZrpKggs6hYDf
f/z914/fSil/XqX88e+/67r++/ez/P+h/VbET/fCXccLnVCQSlgc82xSKvfc
0zFJ4zPGuZlKU2U+JvCBgDghSO4bjkom5gN3eRmmtqokI3a+BNPthqWbuq60
G2DTSVs+j2W6TycmgZpk0IbkKRMzfd+egQmaqI8z3aaTdog7nYk+GUgJyaQk
cGctpR+4nMD00MHpeabPxQlLEMe43FZnYrofDOQEEWxCJnlZdTBhCXsxobGf
h4EjmISnlGLZ6eRh6i/nMHXxaZuyvYd3mOqzgT4uW0GmUxBT/xqeTM3/VKOF
mUaeCNST0/uL0wwHJ8N00n/VuddwgUnvXGMi37Vk4r/pk397JvFVJaokE5uf
THMzAXsslCg8I8oEZCRTXTOZ6jvTMAklgklcZto7OJO+lA5gIiMmYAKORasy
Gba61ZjIjGTCMsiVwZy1PZO3B3E707ekz1v6wWkSpmLv4VSmrrDTmOB+HmVq
jlgvrU32hTyZHGHJhIXxamcziU4g0697yaQkWpnUvSaZqqtxTMiJ4Fmmr5sL
Mo1Zw21MxMqjM9G58zFJ2ckEtRvAxAQqA00msUOoM7QEvHT6SppMTXVgz6La
n8oE9nrdp9OZTOTUogPmYuJTXma6vXtS1h5M+Npd1SKmE/OFADP3iY1JvBHF
xOWye92ZTFzw8UyO6dTNFLzVPcCETCe2eTJ5mQKdnmUC37qPm8kkJxNL+NxM
xn6GMhUTU9xehzDZOhr60vH1k+nz5g0rmbgcYiGv227IJJ4PyJrNu9es7dpI
z2EiRrMZk/SeIUytk9RBMlGtuDdSHJCnbMCkJa7IhOeW2weNiTozQN1gZTyT
YQ03MMk4clQkk3ocQTO9W11FoDBJ/JMyiRReJm0OncrEv3VWpgFO2zD1jFcv
8UzdJwJhDbcwddlNzAScnJLpqpmody2ZLiuTdojalqny2ZxJkEkm9qt0wKFz
kgnKSSYoh2diwpKJ/ZRMyQTlHMlkCK58iJU7ma7G50UmviQTlqB0i+fVzeFg
GxNznAL7QoqSuwhTu4hJo3CUt5iU5MoFZiJjk4mpL4/KUcDJ74w7gKl4OjiU
qTMukInZ6oIWJ4TJ0Msopmrr6mTqd3qNCZxOhfzatE8m6mvTXpmmySRfh/oC
yrpM3OcNmOxbXTJBQXYmKng1Jjg1maDUvZnU9E4m7q3ltj2oL6QATtZOJIr9
mMiZbouU5n8yQXeTCfrazcSeLpKJswlnAtbwCZhMb92aTEx74wpGOO3PpEYe
yCSMm422MrELldyNoeBD9Qby0wn/jV5nYkOSCQqJZPp1LZmUDrTplEyf1zq2
vNmYrL2MYyorMHmn01AmYTCFqXssUyEHMxuTsZsYpjYMZxritBATtxxdDzCN
XsMjZ9Nns2RiB8A3W46pqT6eSbgTx8SlJBOWMuhEEMmEbf/J1G5+5zI1I5GY
gBH5yoZM3Gmhqyhr+PJMsU7JxA6IvGrrZUKmQSWUSdh7HmXqp1OYbD2cxuSc
Tg8wMSN7m8nURVuXvTKYKdrpcaZfl5JJifcxCV5cC3kYtjInkzB53lnDkwkq
XIDLKYBpkhNBMkGFDfCcnA5kIsblCGOZ3CeCZCLb8Uy3iO2YnAend5n4shPT
GCcxeQ0mbcsZ4ZRMUJmPqX3qZBKj6g/JRDacncnRw8RMI5z0w5M3x83UTuZO
pgFOABPUCVGJdUKZai/6sLQtk3erSya55/eZ+Ij2mGfMSSYo5zQmqJsHTgTn
MEFbnZWpPUEgI7GVN5iUwOFMkVudkQlMDmGiFi99KKYylIn8jYkayaS0imHS
Yidjkp7k8+KeTE4n/v6mTM7Xjv2eTMoFE1PlJM1vOfcoJnG5bCDFUdkLFO1f
nISFXI+wMnHB8zNRTZU0gqmZLKszQdNJfENIjVqhbRz81r3GhPRsZYqbToMP
TgYm4JnMTExmIJO4FOB5I5mIIxWWmUxQ5kNMg51kJqox95evqY3BWl5YnACm
qkoyQSnJpMcUhEkMXZNJOTjVN4mBTMpk6Ahh+rpoZiKmVVNrPyZ0caKOAZMy
4T09wCRRrMrkXJwQJmqEydTyEOtCMiWTHMO+bPy5ALhoK68w6ScCJxMduTaT
9a2DmaDd1laSCSrJBJVkwgqXMQ/T92d8CR/hIoyHv7E+UyddMkFlUiZicTqV
ybiGA0yC/1xM2DazK5N/Og1gqh5+Zia30wim+9MXuo4SHMU0aDqNZ/Kt4ckE
BScTFJxMUPCKTMKOJPSeTFjvNYKFqdeJLckERTiZoHZWpttbtwcTtfrSVaxM
dbNDmKTQZLpGMbXtX2BydwMw6U70TlDut6ZhEoaExQUwCW9dMn38UafTi0ze
OOfiNJxpgJN1tJa4ACb1rVuQSRzzLkyuY0EyOeICmJq/Vb1kov9W9U5n4riq
eisySaeYZJIbqUxMxzsxAekvMPU7RTAV4lNzN4gpaDotx8S2X5hJuCtVInvW
mEIXpweY5HMQ3HMyQT2vwWToCmIy/0CzMrmnE+a7KRPeF9CuLMYU8dZhTNYA
kMnRHVT4iEFM9tNTMlXXdmDyruFNRaKlnYn+g0VOyYRMJwvTfTolk5xH73ht
L3xvXQVdnB5mKvXHZFJSSCa2lw2ZDMe2VZiGnggAJuZXmo9p1IlgIFOZnwnu
bRDT/WapLyUTdfO2NBWqKZ95MhNfnQXsKfZV1JoovQZw7zQTVSWZ2tlU2iox
TO9udXDvABN77Tymr78SU1mWSdp8XExS86ADwaZM1KLVVZIJKg8wCXDDmaSj
VVfhE5dkqld5vSOsbMmEbLe2kkxQsY7UERjGZFicnppOyQTdWZyp22k0E/BL
xjONd0omqCQTVOKZ+O1ZCi3UZ/1EwDJ1Or3JhE6ndZhGvnW9TNVLSDVbgElg
qb+PZ2JPBAcw1S4vMPEljKl3q3uNiYxIJigjjkl8TurWlkx13XFMFYIwav1Y
4imhTPyY92MKeet2YPJ3MyVT2FZ3v9HBxF5wMknNt2LSnVZl6kk7jQnr6jwm
17HgeCasL5wJnMYGptATwSpM9xOBxIQMwlzGMuEHp2SSW+3G5FrDddwhTNIa
nkz7MKnxY5ikfX8ZpvrhyHtcIMP09fE8Ji6RY/r6IkxGlnB+JukeMp2IJy7k
jUuaaf1OTzCJq43SmpyOhbvBtFmQyerEeJT2xupMfBIGRT93M6V4/9DFST0C
wZnYWmXL+J5ONM6Iw4wyAPY63psu/PPSP7OxUSw=
     "], {{0, 0}, Offset[{300, 301}, {0, 0}]}, {0, 1}],
    AspectRatio->Automatic,
    Frame->Automatic,
    FrameLabel->{None, None},
    FrameTicks->{{None, None}, {None, None}},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImageSize->{300, 301},
    Method->{
     "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
    PlotLabel->FormBox[
      RowBox[{"\"density =\"", "+", "0.05`"}], TraditionalForm],
    PlotRange->{{0, 300}, {0, 301}},
    PlotRangeClipping->True], ",", 
   GraphicsBox[RasterBox[CompressedData["
1:eJztm0uSJDcORFm6yexHl9ERdAHdfzdjKqk6CLg7wG8wMrPM2jJIgoDjEcCu
//PnX3/8+Vsp5fevUv77/39ff//98/PzV9yHNXEXi7Ur4FpBP+iy/wKSoGIX
uCgrtMVE9mByFB6BSYaMMdGgw5igyrMx1Q5cOFRemzGJ95mDyW/fjQl13QAm
lBcQ7OP2YoJTg8Q/CJMeFhwT6boY0/dvjKm8GSYbAZeT5jYTE88kgQlzOgAT
LL7FmBQ5PR2cXjycBCY9nHz0uMzPxcTMFSY4FNKYSMQCjzZgQpwOx6TC+mY9
EJMYTnMwYRuLKW5+HCC35c983MmY+IbQV0YwqQAoptLhvnsw1VdnYuIfoOtC
TOBrK6ZK8nRMcACBQ+ZwLib7PFCdpHiVtQAT1LcFU7qcmjG5YDEmZgJSctGU
RoUpmFdo6zmYfI9DbQKTir4VE3n8lFAiCQZvwSShtGEiNa5eJoWJchrCVBZg
ojqg10dggp8fTM7wYrEJExOFQ45jMvESFkCa9QHMPpi0j15Mqa57EUwFHH4w
OR/QbdIugwlzUgV8NiaQIT5uxATz9Ar98cmYeCxdf2DHqlBnoutw13ZhqvAr
YaKIUKUPYVJdF2C6ipmJiXjk5RRgArHuwkS6bgCTqIUeTAVHdU6djHrRjwnN
KBraJ8C6bgEmsOImI5jE1ajOq409mHCYAm8AJbx13gUTDH80JsppOaZCTdB6
EiYXFYZuwERhTKsmE3kjpih0DtMVeRcm1dusrg7HFJTTPkxYRL3chQn0ZnvX
DWGS98SsouXUgwmWKo+GbWojLyPG5MLAgDrBWzH5cjoVk9KEXC/AFCgLPHdg
kl0nxMRBGzFBThlMtDM/mHowWYkJTLjr+jDRWGswZYZTJyb/NRuTCLUEkx5O
gedBTC6xVkwFel6NyVstxkTLlEvBkVNehjBltLFXt2I5sMWYqvnxEpiQrgwm
dY/mGrN9U0zlg4neYz19KCaebw4TTbf9Hp88L4WJapHCoAIdLMQUZADUYHVr
MDkxCpP/QJ7uwvT9MY5JJqfu+YvnYtIl71r7PkzQdAWm6EHOxEQWTtl2TH6L
RLkNU/lgotZaM4iJNN6IKfOyEhPnRhbQrheTM1mFyVf2XkzgmexthSng8mqY
4F8ek/F6PyaKZQImFhgkZ21qky2YrJocJlgeAlPD+zRjYsWVwwS/b8NkHt7H
fWlMPHGsWXBqwETS2YkJH27A5Le9wQpMaFCdjkkq+/JpVq28FRM85R0BggjN
WUxukhE31TKPKeq6ZkyME5wg/lu9Y4gJ/d2GSXfdQkyKEx1QEFO1ez4mXyvN
mHiu8LgVUySjG5O50o0pOZxWYwpkjGKyfO7CZDc9oJfABHZQeI2JhWFXNSYq
ch+mjuFkkuWYivlkHXk0JtoCuXKSnIJKdZE6MfHcwJrEBlmjiLIFZmEqOzAR
LnYZ4CIR9aSAnDowaYmvjIkEEK5dgA8m5Nrl1o8JWfVhCjkx+2mYrEdXCZMx
5ag9DxMMM4BJcmJdlsQE7NCXdzEJU/l6bUyoLMhJhMnf/WBimAqw5YIKCp3B
xOJPxxQ8qVdiDNHK+slhsrFXYCLJYFXQRyMmXC8QE03/pTDZk05MSlAzJjYr
wmp2s0W1Hw94JybJ6SmYJKcWTD404TQNkwq0FRPveeJZVih3QlQ/DRPUyTHR
EH75GExEWnY4UQTFuaQ+qKYTMBEtjZgi5SB6AlMm/BRMOF1uMQkTsCwuOuf0
1phIYHBqsgqSvQVTbdqLiQvEinV9yKsqRHCTyE1hAi/4ZpgUJyKt4jQXEzLX
l3AHz8CU7jqJiQwwok1KxkMshwnGb8M0OpxSmFBWrEpcRIWJbX4wUU+oR0Q1
ZzClh9N+TNVUoxICTFqGXTwXE/ULVCN1OPBDMOn2T/kFqgs6UT928caYcBR8
7QZM+OJNmMo8TITTGkxSm/Rr7XgCCMUHUwITbp1NmL53H4SpGFMrqgdTFUGR
JMH6MWH8eUz+CLUc2F+EyeQzF5O9MgMTedhpmDrKKcTEX8DGLMjuFEy1uobp
1IaJDqegnGZg4koaMFUQGsrpYZjcGLh+pjG1Tyd4jcc9BVMJxKUwpcrpJkwh
wSwmoeGDCf7uxUREaMc3VxPxfBcmPvUSyW3BVJCdVjuICbkJyukYTPQ5wfFO
TN9beUz8bE411XKg2PswQbf2MnZhMlUi0pjo38tgsvn2Y0IU7sNUF8FaTEyp
v6a0akwon2pvBFNt0IeJC6QylmEyNqCobsYEBVIZHhhAqCOkbIo7UWMhDF1X
BBJ8KyYoWR2CYSIxwfxBTKRgBBO8PIYJek6pQKnCXIHrUzFRTrrnmjElu24n
Jud+HJOzOgOTGlzXxn4OJp/CDkxMDHSv6CSbDpf3y2MKOdkywoKgigL2mjBh
70oHjVGLCVof0BzEBCOh7O7GRB4Nu/cjZgYmG3wcE7wLciNLZInVYBXjmOK3
n4hJlFMnJu5qM6ZyACaRcwsmlLXGJO2Igp2YBKe5mAinbkxwUEE5KzCBvOhw
4i22BNP3rzEsT8SkRs0kTKSMBCbB6Q0wVUsc5oPp58vCOg8TH04DmIAdbrNK
GJ5C92EKXktkvRRTbm45n9zunTCJ0K2YuMvjMNnmyGEqr4BJTTMiqR0TDduP
yed1GiYozLiRkn4t3wLTNdU+TPgyVPE8TKKc1mGiw+m1MSGH4BbdeQlMwB+K
b89yKnCkh2NCLVUflUYVJFLx0piA1qIHx8DOnnFMQgBvOgSnF5OYc83kULiU
whFMupycgbOeiskW/zZMfDYkhpNwxGS1YwJ7czFZox2YqAa73IPJ+42H0zZM
KFksSTi5AdP31wcTNrSH8UiZj4lxsry4l7mYgCXBVNXWktnERCO3J2HiXTeO
yWtXUg7ElOm6DyZaTp5ZIyY13vAdt3MyJoSGlZN7f+8YNTG5UviKTbhDMEF9
SUx81pErGNPFy1GY+FhiMyPfdQgx2QG+3xGTGEUsiPcB3PIHeRdMwK4FE+M0
AVM1YI7ABK3OwGQVcl7e8yJM1K2agpjTS2JCZHgW7AvcnYCp6j00JZAAPdfS
mOxVmNUNmNA8Kt4gFCCvTsbEwsYqnUJsR9ua9p5oCB5+ByZYvgswgcSSmMKu
W4kJjqvJmGg8Xlr3YvJZwURhIDWcIjM2/nw57cTkg+CqwlvgkKmciglUGNWF
wk/A1NJ113BbMCl0z8DEQwCd3OwtMIGBBnVys6dhAilnMeG/HCbv/R5MZmcd
JvxAN2OqRZyLKUiGYkK0ujHxTJAOHOQYTMk6GsCkpsUwJmZKrGl8YmCzfQQm
NExGMJUpmK4jpgeTS24LJn/CxCJ31ESMk8vezZh818VVFGO6eB3BhMppCyaW
exOmVNfxMxkGMSHl9HqYgFErJiHHe52GCSpRFjScGE6qQViY4vduwOSi+fbA
U4OGE5hyApOcNmASXXcXJu+gugMWGZ/GJux9u0NbaQ2mxHD62V6IqQ6wGxM2
B/HUcHK7EaYMeiuZ9CuVtRuTeUdp9c/HOkx+m/lwgrdgynWdiPrBlArGi2oT
pvp3OaZM11U/92BqGE4zMYWcKCagrh8T6BniYzemZDkRWZhIQZvI3cth0nIg
rb2Y6HA6ARMeTcYl8EhbnXASGxEnMv8WY4IFpJuNl9M6TJyGuMnEystEF1LD
mTGPb4lJM3sUJp1/iIkMpwymlqjvgOn7B2MybrXkLkxh4KmYoq4LMaHSasTk
NByIiRhiTFHvaUzg+EUx1V1yWWhMXCnsuhMxYUuJCUhMYIJvA8tpIiZxQoVi
WVMwmbIQmJDhEzDJp2/DJDlZ3VTPAZjQMLgLU/HXyOUBTO63AVPcdbswQesW
TLTbc5gGh1Mzpng4rcQkYNyPqULD5FqXxe3EpTgXU6brkphsUkoU6jqO/gBM
CU5TMV3LKcZk+pJjYmLg7TWYnNYcJizKE4oxoZwRJpzKXkyxoZskqGZ414lS
fltMvvdyHf86mFThQKkSkymnNCa4G2CySmjGqRdldk2YfDml3sg8fYDJ2hTx
A3YaMXlJ8t0aMIHew05Zh2j1dgNimIwJ+COqkAyFCVUGid2LCReQrjbufB0m
chiXE6Hch0kJ5FLd4iZMqpzmY+IV+QhM2CuTPoypON8fTBgT9hljyhX+AzGB
TwAjjUlJnYup2j8AUxGxgHOkdQiTuY0rvFRHwOkWTF/wJLFiklRG3ZhE7I2Y
ypMxgWzcjVmYsL8sprHhtAGTu9/XdETLMzBZk35MWBDDBKoskNqM6RqxFxNk
DjU9HVPFqRtTTXsEE3y3EBN1bffGMMlySGPi2YH7EpPxkMNEaotJ6sFkygEA
ugWTi53ChLSOYlLldDomHQGFS2MivAQmW2nc6XxMqsqDCLDURjEZPSBt0fGs
GQoy9esQU7DEERZiIsVO224ZJhb6MEx1AS3GhL5nY/KbUzBVnHZi0oUMVeII
Si4595FymMgZc7oAU13WczDRdHykJkzUcQMmlUWIibb/ACb8dxomOiYSw2m0
6fB9bBNgSg2nhZjqX9Z12bZmuuKSS2EKhpOVy0Kg2wyTLqczMJGu24pJghGY
4q4DuignhlQNp2MxtQ2nHCZmexomNI5WYWKcylMwYTJDmPxk4Zj8+fXyEZhE
ASlMxs8ETMg7nI43YoK6dmECLwUXOzHprpOYhJsJmNAFWE5JTNjrC2IqJEkH
CytZiKmq8rsxuQbyhcTjbsDE6vomTLZAkuX0KEzsPpUA7H/OfZmHmGB+RM+T
MPnicUKIPHN9Lqb6VdKYdEAsbA4m80tzHcOky+kBmH6WuJy2Y3LdvxuTKZga
AEy8WqPHnoqJlNMqTOY9XECIKZxN2EzJfgQm3nUxpqtnTbMbU/WWtPe0G4GJ
Yfa2kzDhkZbpugSmaERpN0dhkkmMYuLB12Mi8bSO6y70HGNSq0mY8DwAezsw
iXd6CiZ239uuwGTxKEyaE23lSZiIRG8bYDJCWjDl/i9AJyYr4SxMWCO+yxqf
oFBn6zCB/KHxckxs3uA1LjUgaTMmkPIV3zxMJKNeTLVK0cnLMOEya8akyxJq
pivwcsS7WwaYYk60N0Q1BJiEFdWRxqSG0y5MdDr1YELjIzk93g8TGXJMqDTz
c2AWJpEMOo8w+QqBnilN1Vv8IHqkOzGBt6vNxzG5y0G+R2KCMFq6Ls5kLabL
Wjymd81tOaZ6tmzCRLaPx9Q4nKZg8klGmHjXbcd04RRhQlYTMFX1jWpdeKDR
1mBysLAAb9WFyeyku64BE8/Fx2zAdPELfIMWLeYErMyGz5liItXQgingFPYE
w/T1CxLP1mVEE/HrIGcHxisJMLVwiqvWXHe+ASg7LC4/+a4jPlX9FOqBpE+7
BxsSTJfMbOaVTYEBkV+eiFuTM/hT2WCpuk6g2Cg4CqycfKMCFYcUF5aIXSc4
0fv61P7BBsZ3SWtejlVR/nvf2PCHxc706AKVrycCTwf8GWvYWP9+8MOf5Hik
UsP6Yph+FYQIhzYqKHbg/Q9k9T+J
     "], {{0, 0}, Offset[{300, 301}, {0, 0}]}, {0, 1}],
    AspectRatio->Automatic,
    Frame->Automatic,
    FrameLabel->{None, None},
    FrameTicks->{{None, None}, {None, None}},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImageSize->{300, 301},
    Method->{
     "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
    PlotLabel->FormBox[
      RowBox[{"\"density =\"", "+", "0.1`"}], TraditionalForm],
    PlotRange->{{0, 300}, {0, 301}},
    PlotRangeClipping->True], ",", 
   GraphicsBox[RasterBox[CompressedData["
1:eJztnVuSLjuNhbOYCe8wGYZwJsD83yD23vVX2lo32c66EJyI/iszLUtLn5Y6
GqKb/vtf//7XX3+7ruufb9f1j//+19t///n1A37fH9g5io3DX9fmNCrR6+/F
Xshvp7lZGhcwta7zzY0bQFjLPqZgpHOlC59Aaa8zropV+oaYmMraMPgopXEw
ZizoReS+UBgSx5cpxQS6RnbK7BY0of2srn4+JqaSDpmZLsaEWyB+Ln1KuSV3
5baFKYYleuF2I/UjPwsvJ5iMv1ApqELvUAeTXQw8O+ZOj4kGowdldoWEN6p9
fRgThEZNZeQKTMrsCSZJpc5YFJg6dsZQNqituxlA04mHNUzaQrzZ7FuK6XJC
QnEPY2IaebPhN9fwbAYqhFr1MUx8b/S6WEzhYmhMHxqEaCa0iyl404UPYQLJ
5DzrNTfbHBOHn2MqhY0nWpiEgTAmx5iaymNC8LuYYlhjrlHSMUw2nvYNH2zu
JqYAlh+Hw4SFhvb1uj4Nk4QVZF5oWNwS2jGm6i9wKcGUbQeGlQzAEB7uTL0I
WKBg7Rt1652YYKIopKmmLtmsLSZoJ94PujxFAEyhVQNM1JGk5dQoYOAeEx+O
i4axZmNoEY5S/vItEQSoqSwmNJzXW2w4FsdfpEANHI2N1jaEe5jU2DWmYrA1
THT24DJfgAyTdIa8E/TzMCYUVMcetZlhUtrWMU21Cx0plc+f/SW2iRZA7ROz
Y4iJTg73KJ6cjxqYdFOughizvt+rcNErV82otXYwETa62RVMwhk8AnjYrMGY
UWrtY5KwqM1gBfDR3RRnNFvlOGZ7BlMpl9gpxaRhyTP0x0jDvjK8IQ4tUe+I
tpzARIegzjqYSG88wu5EMEmzKdVOFhNxrCp8ApOTtYfJbAqznMWEOTGP2r5C
TGm6OXB+iH+pvBamIZctfArT5THhV69QmorqhtCEOOCxAeQhTOh1ARNTy+zU
w8TuiwKecFXsMOUf6fd8u0pkiim1UwcTsh5oEoZtYur+LmGCMlYxVU7loXK6
1jHp0Sa/W5ioR12FEJO6OuvymHZgxd84JuBRl+0EJp0KQZQD7vhoAxP1dw+T
FffxiyInBZGddBOnMVGDJZjYLrlVAPqEF26y2jvxHCZ7cAATyMC9UIDkmyHg
P4+JPwwgfYKL2SkxVYQm9BEc1iqmaieJia5FHWJUD5rKiDW8CSY2BzfKbUxw
rM58Ll1uqnhPzICd4/HS6L6bmGg/o2AFK1uNHibXyz4m6mCOCS4JTeQ/22bm
SjobM/AxTMPQCTX+PaViMZAorEC7Ek4UdVkbwq/UThrTNZdZh4Xqekw0LrPr
EqYRdIZJfO7BgnWBJ1wpzgwqd5hshgammdYKLKgTj6QN6LthGv7vUgMqfCmo
6XjiJUzlAXt3FRPeB7A4uo/GhigFj2Oi0ikm3ibeH7Y9xGC8J1wlSP8MJpiO
YMJR4KP2TqdN57dNTPM577OPCf55f5kbWcYkqmhrtjDhACQE7FOGKdOoAe1i
6qXcxjTMZgmTXoWfiMmVvnNqYtKwktP/WUwsD0hZnUsbTLUSs57A5CZxBtPY
gaS4iymyqXhoYppBHMA0eIeZ6gwmZ9NviomCkLBUzWi5+JLwB9SKx0TSwD6W
F4LASjHRWfDpeExICNXxACa6EIZiiIn9WkzSTlUhw6Sm0seEfhnFdUzUpjuY
IIjPw5Qd9DBRToUO2ZBsEDWNYt5p9CQmmhgQmvSHmJy2xzBx6ezAY7pdpYqe
woSJ7GNKTOUwidayWrzPL8FEpRvv/D5tYtI5KSYoT3h4SnQOk8PB6sSYopz3
7+jJYsK2bGNCUzNltiiSMlEVBAxVoLuxi2mcmpuGdg2DJeU8jWmy5Ram1LTa
VHxnBLXIrduYpKEJJiuq6x3AZvygzEWqHMAEUmvjwOFmmJDogJ/cHJaN2/iG
SThf2KGBSbjRYTLeEUYCYrgOK4moI8E8XXDBdd7CZBYITPKy4/phmIx0/cnV
UJFXueQwWf2lus+ygglIN+Q03d9/SWrhgqjBBBMq0sRkem9gonS1YIbYKf5R
mOQuVUyJHykmuQ1iSDj9E5i4CGIJiSkryTpTmHQeS4EKizUTEHp/JKbLwZ2L
PI/JTzrbm9KY3p+CiR4C05YiG5joNjyIydSsMTMmkID0dxbTOgVVG3S69osx
OVfW+4LW52LqtPHVmMYx/mhMsm+e/0LhegH0dFJMVJj48zSmwQ7EBulIHaba
kcA0+tRCY23UA30qMenfs5gYrCCLw8Szkp7EtQVvomYEJiCEVFSYuJ34NxPV
63gJ0zU9WEwVtHarzCLsxBaKwmwag4ZAMwSsVzElRkWY2PrwNDGsRC68NTfk
MbXrwus+sN1NAGstMdMpO1vG5NXwo2qqwDxNTAqumvs6JtAQrgXVgKOEXGRC
dUY/ubnvYUpqDTwBQtvBHMpIK0yO3KwTN9TB5EciAjlCg0lyPYdJzl3MmkYH
mFAPqD7zBatHWp71ameW3sEMlB5UdweTdzPzhe6Q+mOMoJPDmPBUmaypbupc
kV2MifqCTUfTlWfiEiTuTA6Cz2Nyvqhj97BwejqeCJOYHuBlMXGLS6AElvFc
hagEuxY0JppjeO1icjJFhJ599OsF9zHxUc6ve5jSRkDedUy0OTCSBBOQCF4/
AxO3N2nZY4r4wzAFkWPiJchfQbS/FpJlqnVUQfsNMMEauMLTmKi1tAnVSCl5
PX+LibhLZrPKWpgiimps/8f0+n0aEx/J/CpWoI8p2SHuGnbjQUy3AnDiEyZq
+0ifgm4wiSnRKkZxHxO37oyJVr3uwWzQCjozDcVozGYd5DEpvW1MJdLaROg1
vtad72ASGeTFVUxq9iEmN+h1g9BPKkOeCx/CejdXseUQzWXt1smLJnUwtFOE
CfpPHDJM6DtvgX4x57xzwxE3iKaJLypTxuJ0UtAC/UIN3MLEriQk4PVNTFnd
aNLcs+U3xKQ2K8Bkx5euyz11jZz/fwllk04wAUdyTHizYkxifOQvEBc4Jm+B
DaPhQndRHh3ChEysME1ztCHMKT8SEzaxyPZ6cSEagQEUY2LZzmFCdmpgAhoi
HMzLISZsatGKSNnANJb1mOQgEhzMy72ScEywldSg5m+zbfHN4dBmO4Wp+P0M
JuU/lEYVBfGmjSTmDCY3Q+BDM+8AEycippBQ5Ob+MkzcTqr91MMGgaQIzZ0V
eRYTqcERmqoOlqHIfTylp249iMnX4GchpkscwQPRALCkdWss2GJSNfYxOVke
Fj+H8cuYiEdU+cOY0J3qEQ6D5+dwA0ywSoIpcMG6myYZ9S6GJfODW11MWFB9
+CxMangKVoKJI1ZINKagvDAnNUgH9yV4z7DGt4KJ2KmYAjSxjYm7hd/iplsp
xLoqzRBCGBOC9t0wAW2B6+R9cWlKzQe3gAn63BqWW9hpE7TooEazUA0xJqKl
gQnaqeMjp206MDih70M98DXDJLYAecNswAFMoLZz7RYm5WysJ8BEW1vHBDuP
XHsQEzGKGhtMkzV4GFMEaw783picqUJA4A//185TE87dHlPh72PLnWi5qKkA
zbT2CiYk5BMx8fKumVbwIUxwIVJ/Gz0BJlie9G+DxeANIIUJmH8Hk/VoDxNX
hzQ2UnbdBPrawpS6oN+TxHQLWcVE/rN3HIQ4fHwM21sevXT+zGmsRvdnjJ0w
6FtEVwtTVfcZmEBHxqEILKZVbyldKSa+BiEmOkSLiduJoZ8TU0xYAm3ihgm3
L8YrnMZeAPqYLRNiqpTIFUzQTibaV+cv/HzKTrumU2Omzd3v6k3pXDTmWZts
YRThOhvfkSn/VYVOpe140SMoZjHxcW5gMvyymSieW5jopSVMbKU+G5N6O4sJ
l3ICbRsZAZasiQk7bQkTNcASJtOfOjO2jmymIuLa+JHd3cBE+4ulahwrmK64
9vSciVzHhCVsYrpxSsegPIXmCsONlhjgp2KipooFCNn40WixZES90gw86mEq
SdcwXUh29ZDO1cHUatZyCDERWDCN4MjUDZi4db8zJmMnlkbYraoDmLJapzGx
EaWYqJ1sAiXKYkK1WhWXMJlBWUxuxEANGv5HnMXETVPPH8FEB2Ux8RE7THhJ
8DO9R/M+iIletZia5ged3F8MJu4do4gLg/k7zU6c2NEKJrU+r38yT+5iwhoM
JlqaVz2PqVWeT5Y25qU4H63sTkR+AdP41sDkVASYWH/oT9itwyS0ifiP5w6N
bFiOPO+Pmyrsz2FKp3Z/MEloFy1MXvPF7lj2TI9yBzy7XZOYwmE+golzWsBU
Gm5gQr4dn1F1qvURTKFt7bbMDRd3ACJKvugywoTYx5ioR6OiqudyZ3aHHVuM
iX7kg13ClPkIUBC6HWDkwCVMdp1WMHmXd6y1j8k2KTCFGThNh2nmRO1Csx7A
dP8sLLaGieUBgnNMrrWa9RwmymnfTW7uQp7CRE1Tv53GZAcCgmACWpHfWcOE
liHLWgluYaqcRs9ZTOFS2RNVA6hfnRGZEGrmECY38GxlFjHxps190rXbEOa/
GFOZrvifRXXpPiahsZruO2DipnoIU8WQma6Bifo2U53ZG4E5jgn04ExX8ZpK
GKxSbb+ZSR/BFG5SENXBNN+YnlJMbK7vXwxTUkNMkpVqYLpzyjA5O4WYFmZc
MDEvzgqNRX4MptqvqI8zYYlR7x09UqaydFA7xMTMEWHCEhvG1eS+HSZhjnOY
xt51Xdz1OibeYB8T/D2Bab26yKlmQDBxHdbkdaxYaLenDiZfPcRU6LQx3aQY
nzXcYHvqYFIpAfqHMBVOiftLEteZzZh9wpgGTSuY3E6hStcbucqZ+87yXNpt
Hj18izCB9kulyknuyJjs9t32lNk8+WVfeT4gPDI3/txQiv3vexKKZNR3wpTD
umNit2aJ0qVZ1KOY5IwZiS4mahaby80Xqv88TIki5n6GKd2Q74KJmruHKUlD
WV7g50lM3BulitulJUw6DVUnTAVmeQyTPPtCTNpyH0JNrkcwMTwHMCU7UjGF
S9XBxIToj5uYpuFmgr8BpiqEaUkwTd+NDnyoO6GYMqJ7mKYhK0yq+hFMyS/C
dDt5FpMkoTIRGQkm4KDEF+NYS2pqPN56g9w6Jsgnx0RjEn/RTMB4w99dN2Fn
05GTQ1G0XNTCzKSBBAwLGsGJrCfTDgUkLnV4DJPrZ3yBTrpADEueLwOy05OY
QC/KHNXqtxfc/MViXHKLCVoMDK0eprRUTD2gMVNOQchgQr8hpik1rHQWkxYe
YiLBSQW7BX1M+R+YTGGSFlKYlJ0MCBPz5ZjArINGFaYAFjNYBgun+QxMZifY
3KeU0ntJHRb50goZwN4XMc1ZpgcQFG3M+Bj0Hf+KHhYwqdAGJjrsFiZ5pTsC
rcs2mBvvBCY62lksvrK0XYmiX3+/GyZpJ4ypCUtfwpVF0z8MUwyrRqaYII8v
wkTHPD7GtsFLBE5TTKWvHBMoRDE5UWzM42NuQ5BpPtBjojKxqxAm2y540A6i
3kCPS7DYARsTrMZd9TQmuyuA2AqsyHLcTrBz2YsqvIkJDHjQ1GiS7FUOS/b3
8WcNE3WnUeyH2mySYq+frumzwkRMsYxJxXZmPYihVmnk86bqY4K9nsI0inLe
J8kIrEVMQBL8pnhIzsuYTOv3B8406L0TNLZNkzAeyo745hIm6H2WLYYFQEQs
+5je0GcMoo2JyR8x6T2pXtTmWMCEMtL4ANOc6iovHF0fE4HVsK27IAJkfIjJ
Wpei62PSC0VrG65eusSkOLCwDqYylvnbEizwYrhyCA1MOLSE9cRkmFiTt+8R
JsPV7kMD0/Tv9d2ftNmhmBAT4VGajzBRrgEmsCry7BAmmBpEYx75oTahMLpa
JYiJT14MI5zZbFASHWyONhWb0MOYoPuewxTAChxHuT6NiXbUwwQtGjhGN59g
QoN+CFP6n214CJMmoR3HjgOjH8CU9KW0jOYc852ERY+99gCT8iK7BG6uYWry
IOGOxjlM+Da9y9Pyb/OzbHnFa/RuDxM+c5iA29D/HrJHNz+ndgqMRCdFZ7eK
Cd4m6nG+NUy3urqZlGrnGGOCZ+o20Q0dtoWpwAqoGEBRENKO3wR31o6fyBqm
FQsZTEApbLSa4DCmV4UuJr0cK5+da0SjnPY+JjDPY5hWYHXQTNKE7EOYwDwz
TLrlFVgGxzlMQ88gmmJKCuFnsjVysUgcb0VfSD6KQlpBpgpnK1HN9cKwMmsB
9+OPAlPl1MIEfxmmgAQzQEAySTxh0igucRZgSpXUt9Q2yf4wUx3GRDkdwjS7
HIZ1+1u/NOv5ZpiGf072vYmpJnkIk1Y7YOIjXOr7Fr+J6Z6EYII82GcOjaiF
mILWGr3O8fmlTsQ6pqTFAdP4sg0riAeXRueIyY5dtjBxd5qO3uqLJhvAYrf0
3Px+YExAHbvpptnD9Kfi3F9sD/qirmJMwlQq0nwF/o0wcTvJVKxjuioCVo6J
4GpgMnNHVn8Db4Fj/GfYjYClBr+OaTQsx6TXZk5aJe7CQjulTPUIpjnWjBbq
KS/5egWfuTIFS6ZqYRpN0cc0oHGYhna8GaqDdVRJhrUuYeqI2cZU2tFmAH17
pMPcD2PqiNnGlMICpjI6KidO5odg8rCiBMkATmBqW/soJgVrFRNLcQBTZu0e
Jr1GMaxVg7HqAab560plpLs+Q7km2Q1We1CNC1D/U5hmf07PsWhlqsOYlH60
SA9hwpw2+mub41thqsJqVnx3yQaRGgbr/j3BNMRXTOC4IaxmVa1F/c2yIjXR
MAJME9cSyDj5cczPSjtLo2N+wQJG1sM4hQldNtrX7WTk6pgPVzFTRr+ozCIm
YieurKYVSjUmGnN3VZoGS2WscfXh2fjF2ra+oAQsZcMGH6BW0wBO0xG3AAUe
rcuYa/pCZq/xqdUYXFX/+1WICVWwvTng1aMRJjt7ho+WHf9OY5BbMLOoQ6QX
+IHiBFqoeUsimLHjgxnT2zupaQwSFkwwrRHCRLwx1/JWVpgmQd1FGUsV+R1Y
QOf1flu09v4+ewO7eAPTIKgHS2J6pbnBUquAdV5vFxE1lxrMxyQLKweY3osQ
WDS7x/RK+AGLtw11vv3CW5SBdu6gqkwMqzqw5i1vBBZdlBTT2y0vg8V0vg4n
WLCdCyj+aGwUVTi1ML23FMBqYnrPjGFRoUPOGyzSDvMdsFtiZoXpw1eo6Fyh
h+ntbYRVV0X981vIH1isnY8xlKBr0uWrA051Ua8Ca4gt+Gp+hOn93txPiOkG
C3ZzX8Ah5W1IgzBdvaaoxf6kucGqtipbPrxXuPe7f0Rftb7S/JHmukCPIwE0
/OnguvdBqyIBr5dXzd8rcpVb14wAqQL57/deS+5AoZFco7GYPnB/9GPZZFSZ
uOIai95g3XVWg9ecJX1Z3ndY/wEqOy3m
     "], {{0, 0}, Offset[{300, 301}, {0, 0}]}, {0, 1}],
    AspectRatio->Automatic,
    Frame->Automatic,
    FrameLabel->{None, None},
    FrameTicks->{{None, None}, {None, None}},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImageSize->{300, 301},
    Method->{
     "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
    PlotLabel->FormBox[
      RowBox[{"\"density =\"", "+", "0.15000000000000002`"}], TraditionalForm],
    PlotRange->{{0, 300}, {0, 301}},
    PlotRangeClipping->True], ",", 
   GraphicsBox[RasterBox[CompressedData["
1:eJzd3VF27EhuBFDSO/G/vRkvYTbg/f953E9FJoCIQCDJUo993OJTkZlI4AJS
lzTvtP/9H//9X//4t+M4/vM8jv/458d5/vOfn0u9lk/Dkn/+gf7vr6foQx6F
DjDWyyXqVHaoDOti4ejbWCBjoyo7zfLUiGJj2YmmWxtYNb6fw3BKfgGLHAEj
PMRy+mP31J67PSy1lXU+btrH2qpkOCV9gTaWs6kLOcPyp+RNsm3JkK1/KEW3
sbpALxsMsfRQ2Yc2hUGsz0ecqtIyhSUr0VV9QRVmTpkGWIvSATa2WMNKrJbm
heSOsUTP3StYOaE3295HZJ5bm8jDd7D45TGWrGR4fWfJFtY6VvdygWWkw5j+
X2HdF4hlp8OYHmDJjH7u5yW6c6q5X8F62kefiWT0YKjUeS9j6WMNZyM42WrP
7V7WFOtH6kUsI2+zu5P1T7HyU/rvwjEWKcHO2+musZ5EcMa0HdBdLBZ5v8nk
hmP+s6T2sm/uKPdnWBsHDm77YYpTmTI6pm9iRaOHHjaWf0a9pbBA+LewwofC
mh0r9zhMdKnAcnr0DlZ88cax44XW4JFBeidrQKWx3LnZwrIyltu+hHU9/pux
/FlrLPJl5zzKZGNVNV3V+1jDY0GAAtxjwSOGWD2IMSQGlkqZ364l90fVo/ly
iQWmaoLFknfgLEyBZfdlYkuxyofqRn/Dn7gB7HtY3vLXsdht0szItB9ouexY
dw38g/ALWKSZHRMI1OUxHWJ/zt/EYrdVTYmJ5B8CvYdlNL083sQi8eU41ZrS
UqaJj9nGkk2JmaXN38CSiLFpLH8WaI41TkwU+C6WrA766LVzLDslNE5dLi5W
EqMGRr2ICdc/x5peKVMdyHew2jOwDEP+DpaVWHfoI6zxlU9Yrl+eJbDqPmrm
J/zbWJBJlP4GFk1gkOovYwmmd7GGxVsr51j1hTW36QEYp1exePFkCDXQd7Ho
Yz5O38MCEuVTq+EjrABFNVg6iOnLWFTCGkKd4TMsng5n+hpWMzA+0+tY6aw6
3U69r2EBLRmrGTN4FKTqsPpM7HrfwkoI4pgB01OsrvZpvaR0cYNiSaEH1z2s
JrKj0mLJfXjHn4Sd9V0BxqnPsfwGvYvlDbvTZ/vUJ1jWabtYdsVPtrp9eYTF
E3Xn62/DGo7TctVYF9Q6+1aKw46NK97CahrcJsOxykebnNGgvwsrNrrv5yMs
dJg8su+Yyq/d8bnarRr28xkWH2rZdJEEfmTuiKtV2VZa72H5I/QISwZlWJal
Ifoe1qyuDaz+xhSLvihwL2KREt3b6/3NcSIVIJRmtBRLvoFDTbGGUxbaYu0W
PQrT1Pzvg037uqHCNQywdqbsVSxrJzp/FyuvEFh3iftTJrD6cGREOdMwuf5U
D2uBEgP6K1h6JskMTI/ax7pGKxX521iypgnTBhbc0n/H8rBoz2McOSVu6M/v
kJ0IozZ3K76BVbPlMbbmwkqIjMy/DhbLdo4lFzYJkXIfYkGqF7DKrQmWLOQM
76+qoiq370JX28tY5IGHJbtOLTUTSXqG9Xn6CMvOtsPSRTqD9yIWO3oby8+z
A59e38HaSWYDa+u6geX12q6T37aT+RfAAnfIaUe5b3PvY4Ui/hYsJ7Vm2GQw
F8Q4zcO6ilRHOjl7WLISH0tOD9lUPqUd1z9Go0KNNpX7qkonnoFlhzEOYh3n
P0ZXLJ0/yJnGCGvtGmaDoIfKwMq3HmA1dcWpMgdwijW9ulh4/xaWrivcO8or
K0a9YQwCAy1nKzIVUf27EGDpjoF7AMvo+nAE6RqYzmB600obq0srPPptrGbY
8AzVM6pTrMnBakYL3Pw9LCdwj8VnK9TkY/VMjMfEcsphBW5jcfpnWDFT2ffH
WGFPleun0vEHTBtYP1IH2KKYvoM1lZgu4U2KV4gV/knjpJl6rCHZl7G6iY7X
BmsZLYvJxaoSj7EMMovpIdaAaYZlVPkFLDhhefNTrFnG38Oy1zMTeusVrMH1
2vQWllGYE96Se4rl5FFevIjVFOZHkAm/gNWXSV68ieUbOHz0hcAKVRhY9WxZ
0N+DpWM2QbuhOs+PjMIi0PzF72LJzShHskFhXTVMsLxOvYflMBmRI9MIKzzY
wkJti0vfwRoM24BJCUWnXNkQC+WGemJjkXZQLF+6YVJYrDIbCxVGivGwkHGf
s4/VtIYcL49ssFhhshsdlsyW5yxHyGNSWHoAOiyZnOrGuv36rI8To9iVhs0N
k8Tq5Z5hsZgISo0lCOmMkDURTgg6AK9igRfHva9ikZwfYQ2Y2tnBDx5joRef
XRlqhDUYizFTOzv6zA0sUdoZNw+xrKo7Jkaq73gNGmFJps/yHax4xxiObhbv
3qU7/ozuY2mm5ekYy5oaytQBlrDsNGOlgSWSQ4E7LAI3xvKYulFx1/zcUFih
gvyKVMmxasy9a8tkHOGwDrDWIttxWq4Qq+RgV7XD9OSIDaxrtAgTS+dMY0mx
6A1SG6KhTEbdDuUEK2TUphPjfaSOsx5f0gQTEo5mzzsm44iXsfKxTbbr5qOk
i/OhlaDZGjCRBvlzlx8qrJxi09Qfo4B1o8+wEBMo+8HY0JhVaPkUY6F6nKIe
Y8FXGuXB2FjjdH0OsWoprKnLBN5hplh32wATO19f1ZlDrOUKsFCBdNLjjTEW
6sIdeafiEtfw/AqWYDrHWDX6Glk0SwMZWL3KM6zKBB96WKSeUzycMskGvY6V
qmTjlDLpsOhQ4Qzd8TCwjIV7WLHK1YkEve60WBS6KdYHMsZGlzHBWqtUTPAq
sGoWS/B+Mtho9ZOplxiH3nc0ls90nufJsNQ4uXk7AyYHZgcr36ZYMM2uSS7W
JG//qqdvhIVvQyxwltekHuth9fZycn/omQAqVtkoU4tLJNaz6lmZsqGGBFkC
HyasVdFL2cFS2/t+aCZjYqSEXeNaHnzbQEeInLUEOdBi1l57eNl6Y+Iez3DC
WsfBTapgpTisgnGT5RoZbAsLFamxyLk0HYRV02GVNXnbg/AQiy0SWKREdUzB
GmbszN1XsfQoz7HUbRkEbMeVACa3cftYzihPsHSyJMjymYYzaugbRxY2Rzg9
GmDJzt4v8o8AR7NTVmKv7FUbJqdHFpZTFsBaT7CwaHdlh/qFZNm4R1/FusK0
WP5VjpCLNWFKx34Fq3yAILPqnVlrseZM4fE3sNYQB9jvdDHmOF8up3HO9BgL
3uE/BMyw7A6R5d2IDJk+xYAfozsscec51juztjlBjOk8k5GD1V6/gaX5eqzJ
BBGm8yWsuPI1LDlULlazvGVK+TpY7ETUawvLQWGuJlaz3GRKV42FOFSGHlaH
IkF6LL0cvEhMbI/AKlt0S0ZYVqt7LLuJlCneatpHsFKZ/nWG5UX0brCBcdqi
klhefB+riI0jdjeohDF3bqirtIxVSn0TC/T+JSxnqHaZ7tLQ+/cvYg1nxVjN
Fr3FtJb2PawrjI9V7ujVkvgFphCN/btwA+uM4uXjf/9Y0XJRBIStNubxBab3
sZZTCRZKS4WXt5uqK+sDpn0s1K906hSL2PjzTKayGz+4rKM3sUB7cf0Nlmuz
x+SNH9ru0BtYdMBwOgIrt53Uh29YTJ2rzVSdWiyWPc+cY4Fg5GpM2QYTqqKb
gHR692M0Gyp2Cv4hQCQwxfJoVpiWhIfex4L9yvcKVil3G2vAZEwOf4RzTUIc
CzWYFCaxclgX6y0mq90ikw4LVCwLY1jriq5un6Zn4qPjJJFOFFjIqS2MYC2f
P8Wiiwwm9KLHum4TLL6hKYxiXTf2sehSDCO0XKx0LVS1zlFkHCR/6PgWk+8D
om527PtY95Myr7XntawXmORhrNRvY505SFgEsGq6KRq+Tplm7Ra3C5XGYi25
XlxBrn0rVJsXKPzbTN/AavwiVj7PxoIxWx/EZEh8A8sq6bMrzNUGFi1pj+kd
rHUSKBaIxJhWrGrjYLVM9s1YoXeKtYRhWYeVWxkrQw2xLhHQKMWUU2eR38Cy
DysvrPdYG0zIQjCp/IkQMWywUlHysPL8BSzsZDOJZqPyZ7cHWE0PH2PpceqZ
hJNUIVO2i8WZBBaCakI+Y2qHyoB7D6vv0PpvCAurMNUSNROuFNf8S1gobxRy
gEWY2tGCQ7iLhVdvY4m8QWALqzLpWiRTi0X08JYWK1AdNLjVrU+IdqoSAKuF
6HpY5C5B3MOqlak465oaAkwV1wfHLbuaOmjl7lBtYH1GSzaBzYDGwhysisJU
h2OOpYbqAZaeZFT7HWjxVkMKqlBM/TiVNEdOm1iqOXxEijecKn11mVosHvs3
se5yQAd/5ipheUwpsH81khV7TKyfYqZYKr8rGsdC7l3gfSx29ABreTHBEhFv
rBQlKOfECtOLWHS0fKwSyMTiERNWjkKSJUz7WLS/wpZjwUFx3r/rAxOWM585
rlHyDlY/iGKoMtNPeRzLOjDdNb+YYxpvY7nL28Pz7kR1iANFO35uOF/MIL4q
eYbF8sWbRCk4UsVqJlqt0F/M/pzKMgwyg5JjoRc/yxNWLRK2nXSCfTE7dRpl
Gli2NsKiTC0WO5F2IkRaoNw6+zKdKZNNCH3lfSfBMVY9rB+DM0ZqC6dDIcr0
mfr1B1rabclY2MnIYI0kAzhXfMNn8rBAq9TGhIXCiORjxjLKkMzForfk+gMt
6PP8v4vVyLH1V251qHR1x0tY99+t/RUsa8Dq+jRVZQx5dQqLitVw+UGHZZPZ
e5wA4c8DrGDVpYMyFojXgi/X38RyAtx/kuKchK5FAesTqMESsZ9huXsc7cx0
VTbBSilFLBjPyuy8o+xgladsUmZMeTR8LHAzYIV/cFB2XeQpFpGQlA6KwzTB
oocQrPDxHIuMjQymj6bBCJOHBZkeYKXYKWsXy5Bnq9VApCUoGsuNM21hscx+
AauZRPAJjVZz65iGWCSz8myAJeGAhs9EvBGWeYaNhcfpCRZTWe7QSuKcYSYP
i58kyE0sWM0Yi9QxHirJ1GPpLoooLdaSVMHKZ3AsJi0nDg1Vz1Ti2FjSOSgB
rJxNPr/ki7DqPgMLScyYZljGUCosFKFg4WDHEgM5PWACtx9i0bGuoEttCxbb
hvanROKP4zMsfkutdLE+FRz3HRKgfHrdKVgV5nrdTq/6YUdhgQ4tTDBvEY0U
u2A5YdC69GN0hEl4MQgc8SkWMiDj5FaprrDlW1gAhWLhkBOs50z/B7DiH/Fz
D+sFJiPkm1hrfS4Wr3WGNWWSQ8WzqcXOsdY/9rBo7i3WW0xieHCxP0kNsKrW
FhZu2gTrMZP2D3fCWE2wVmcL6/6UdGuKtTDRJJ1WA5RyVNgxwYohH2LVUwys
wlRT7bKHp+JbZZ+HhRK5rnMskXb7OweShOCgG6gu2ndLcSwk/wyLp30s4WpS
Oj2Zva8Lmc4olfMCA/oAC4fHPSa/c+iYuhx9JjgjGGuSyOdOxMplMjwyGuR3
DnALsdlmgjNyZR+wco9FInFi2K9njmUNxwLBwO8caL8HWLDToFyEUMaKt11N
Bfz1TEodY9Fgxrd31UuLCU4Fn5WChZLTI02x0uUunDJ9EjK/vdcuYqznTACr
nNWMtMBKZaa5FRWd4Ysw7JFpYCxkscOUsGJRNBE5DBArvDpUnM9h/rd3gaUG
aM6UsdIsOFj3C4yFp4rXct5D2n17XxNQWMZs0ZAEKxYksXAcB0v2dc0IfBHK
NDBWWtkdS4UaLHa6mNA5Fo2avwizBxkqUDZmAgWwBjRY5PR2QgkWiL1+AuOt
X4QHWoSHCnaiZ+rHaYxFwigsMLEHTDHnvs5VcYaF8OqlHWEiWCkj1SqJtda3
fFsuWCrefQtiMRwY4RkTasCdDsGywsQKzyPHK6OBrWuoOzU5SSCCwSS6XvK9
XjpYOr/PrRbrRL9vh/2QP+rIXsoRqyeyTFJfoxTDYoFrShpLtP8trFRgxyS6
nsJ9khBYLDAb8AlWMxdTLDlO9EW3Nt7Yw2KPPayG6ZOYi7XHBNrHmK6lUyw1
Cg+w6iMH6wmTSgJumGHxZly3Gizxvb3EbbDuwgb97B7IYl0snmyKDN6SHnRv
ZorrOiydSD2FPQBMeG2PFTfR7DBWDYrHCIRXWCSRZQlgAg8oE8i1wUI7KRPA
Ws4AQZdMS403d/kJEydCU2RfCROmDgsdnKvBj8EP0TcWZsKzULBwIjVdMFQe
k64QY9WD/V5JLJAfbWbCEnPtDFXLBJh7LJyYOdKrEsOC+YNmjr9jyUTL6fhQ
eXWxHKY/f1KslawZEoGFVpopgmxnQbawYI8/ASEWHAg+JBiLrtxn+ioWGafl
acKKY1WrEMl237GMOlWy38Tqmc6CFSMiJpWy9e79IdPrWIwJpngc6YvwKEtA
D97EwslKiZIKuAOkeFYhGf5UYOEd+bQ1tSEWTpZVb8CFICaWx/Szj2Ch4eJD
da5UBpbLZGDBTC2sCZPAqkVBrNR++zcOFpNsjWY6Oyyxi978a3PGqr0HWHBk
jN84DJjIkWZtFGuTSWLlPX2Hm/fvlQnYo6jihk6pHasJ00+F63+dj+/cxYqH
mXn1WCKZa5kYK5cpJ3eEIkugY/kYYqUoTV4ultiwLmBjNWWKu9b/9Oqfj7Ks
xfpZUd+/r0wgWcmExslhOg0sJwhqWfjvH1fcBiukl+YKjpPFNHCFFQqsKVOP
tQBRrBISzZU/O7SdnR+pDWBtMcVU6n9Z+3pMsMih8PvVYHZQJ1nSHyayh43V
BlPM98hFCiw5C/D3DazqBr8pQOwxsDATa+76x4J1/nxvh1gw5fCgf+8upO0N
/JmBlZl0qGp7HPWbMpyqlHIdHvJ2VDdMK5pMDhaequbIPIJDrBhUYqE1JCum
qJiQ0PJpHatcuTwyj+CfMBfW/f/PC2OhoAzrLDmyrJoxE0wE63NwxTKbBZkC
Vh2iBFXCUawUQweYMqlxWiJmrK5ZhCkn2mLJDhQssH98lSXAdhUKMFakWZIp
xF2x1sgNFhyd8AMTrWeLiYQR8xnHSmXhMBUsOBW1d+n0hAVHlDgPmCpL1wSW
Cu18SQ6yrljwI9nf1yFWrdtmkkO1j1WYdEMvrBQ5nMLOsbFIrTi7jukVLM3U
YOXIqh1nTmUDi900mCTWXRVLJZUBmTRW+dchbsf6ehvrKRPBylXVVHymZ1hg
7waWZNKDqLBwVShDyVQSmGPlvSIVgUWYWDcNuO5hytBgIq2IV4pVi0tjRbBy
lh7T3CMVy7BmTA1WeAt/n4CYWN8WrJBlyyRVDCxS25JDmVe/T+DZcb/RAgDo
hIr15y5HpEz7WKy2nIMzRzbW+YOFAEiGAWVZwLDalI0RcgLcd1jD3sHKADTD
tDAQwolzOmtjNdk9xMpOYMX6LQuecM8HnR2AVU4xPdqpwdnFDVMsPFRp3aGx
FqbrmYMVYhgqfvMduREWSaZOzM/nCCusWUEGWNbElNawevwBM7FkXqHb6ycJ
q66aYzlNlbefjFmLpVsEna6A4W2WTs3BInNj2OgBs2dDYDmdiysj2/o2S/fj
iP/k0HtYzpgZQDBJNCTGQZnrvP93nOttlujH9UdN5V4/xjrJcbqGXo5kOJjY
O8E4sCd5S0qGcF2XkhhghUc9Fq+nwYqrDazKdG/9YKF+xOnNWKGWD5WBlbIw
a0AZdVi5z81BKMGfbSHP8v49bV9moKbyObD/Ww4hC8zuMXXbjrCuxcppoZNu
AvAuK4SBWGnlobBiPtdzHwvdZaWXv8TDsSTTWvbyEd9lYafzMz352M/p5W85
kHFaMnCw+DPUkhOmCLAMpp8cU03pN380GfWXPgJWcqx3LKxyQg0QB/YnIO5n
ro58dpSXx3rz+Py97tR2iXWG0/+M51nnv6aRk1AjcpJnqfS4uvQ9FOwz/fn8
ev95XABXnSGRMrSI49pWpzOnUbMHM5DXo2cHWn0/OeJRCA/ml6b0r33HsS67
sK7XeGg/WItRLD78wIR8cvZHLQPo1lE48iFXCn99En4USbYu0715nY6foQrt
LUXHCQ+nr/0MceMwhz+PcErmrAfnZ3AO7+xDxmhww1dEZQobD4J13ictgRhW
zmYZzzrMa7CMBUxCfqWmY/k0hb6wYoQEq5hi0f8DR1McQw==
     "], {{0, 0}, Offset[{300, 301}, {0, 0}]}, {0, 1}],
    AspectRatio->Automatic,
    Frame->Automatic,
    FrameLabel->{None, None},
    FrameTicks->{{None, None}, {None, None}},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImageSize->{300, 301},
    Method->{
     "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
    PlotLabel->FormBox[
      RowBox[{"\"density =\"", "+", "0.2`"}], TraditionalForm],
    PlotRange->{{0, 300}, {0, 301}},
    PlotRangeClipping->True], ",", 
   GraphicsBox[RasterBox[CompressedData["
1:eJzV3FGC47qNBVBpdpL/mc3MErKB7P9vMuWSCODeC4AU5e7kddkligSBQ9jl
rrzkH//81//+87+O4/if8zj++99f5/nvP+fP4/3nMzQefobDf87PP/d0P5t+
mdshvr934BALcKw8+hT8Hf/PSBtXrmLhkgqLomkHWTytoYfFIlEsJrGKFZdo
KKbwkGkJC9TuiIAVJYLHEywzP+kqlrBmkrPEged8WSjaVyz3FOv+NsMKuSdY
bOe0hPJGp9fSPa5FPazh8SYWraJg0q2XtRBlyrQ+VfwlWCzTKSadsh7uMd03
FRYUcQ28geXybzWNrzizKXCbTBprfMXMHmH5RYg1wyRlwbJkolpxxaeGFAvS
WMbSUPnxVxfpcri3yvR5amLZwS9hNZlEOwHWE6YrTomFlb2OVTPV7YSGLaYo
69ErLFKZxkKrSawuUxeLrZpjMo/7sK7bq1ilGZmXYrFQq0ynoDpIq9syEcuF
XcFSRXOmGgsLeMqUYLlQKRZp1adYNFHVPYIs6bOKya0JofWLkFaEbeVzRKsJ
LJqo6huBlfWZZGKzWRj9IoSKoK1cadccgQVrfOiynWqsF5kU1dgdj55ihU0o
llmjuqpqp7S/3mXKqFhVHCukUGLRLyijtpE0rNWfMyms6w9/nbC2ipXMY8Vy
uliytSBu/GaK6cpUYrGjF231CCtUAWHTYVrmPFNIhESrsFz7IBa7uYTFKKAG
RRO6gV7WTN6JZJVjHTlWKDcU1cYiFFhDA2s3Ezk3SuXbqsTiDx0s1U7wmM6Y
Y+IB1KpI9whLi30Da5KJNUu4oO1UYh1/N9YsE4ThTH4ZSUN+yooust22Y/Gb
T5jQaY5pBss/7MNCCs5HXhJzTNypxeRyJP+MmrAPguAyFjiRc4QigtprTCKZ
4iOpwoKv17CWmHw/kmWkYWVrpVj3j8PXsNgq+bjCZJ0oE3NKHwXW+RbWJ7Bq
L5I31JkzQTs1mNSmTSzzDh/AnmG5sH4V5r3ERMZLJrLpBNZpXi67sSCybn1R
6AQTXae2E3wFlnuH/yNYaSH225eYsNcU1umwaGXvYf0dTLKpIpb7q6Go7A0s
VSh4fIMJTnF8S/rqm1g8vQrxVSaBZX1MXx2m6V7E4um9y4THQlpWzHFY9tu7
6XwbjIZ7iJXV02EivVigKAi1IMdifRWL24Mlj7fP5HqxQFFdk7cT7T7aV+Pa
F/cWVo8pb5eqYztTVffZ9sG++hrWDJNslw1MAisMYV8hVpQpsD5jFdY800zt
SXv0sMgF9BVgsa+nWO8yQTqFSrtroa9GL8VWuKI1sJjVCM0OnTGpsiom170i
1PQR3Fjhbzy2r4yMaSuNNbKhWGy6ZCKoJZOFytppkum8qEhfcaxxTbFCNogV
ogWmvEJdow3CurzGajDdWKGvKFaQIlC2sINh+WiknTD/os0i0zxWtbN7hr46
7sn2CqQcFD+R6i0rT7bVZics62NVO0NXndhXQ8G+f81i/UzRb1mhupKJ9ALW
8wQrHKJIh/bVwBozu1hmBX/LOu3erN7Kj5T1AKvHdFWUYxnSCivmwxvrDGtl
LRNMa1jZk0gkw7JlZVg8H9JYSUdadcGku9CHLLEWmE7SV9NYMh9mxTtSPRbt
RI69xlpkup62Yykr0pEdJl1QfJRYc00ljmI7lq1wDWuNKUDNNJWkoSsZ1udp
BiuWOI/lA5Vp2wUH+coOYvYQCqwAl2GpCvtYIU6nLw43PcGK8wn2EUfo48Gx
7r4acAJLMPWxKqecyWaHWBmTepRHZFHkX3VqKbk5/jB0vaq14VvFJLHCBh0m
heWey77SUvIYDoYVYtK66+MNECNBghWZ8ujYyePZs4i+4lh6W1dDgqWYdN5i
pknKYfG8ulgCG/vqsFhMKrY5ObwUS1Qi81ZM96yAFda3+9bXwa2TvxXSP4Cl
sqJYuhLGkTKFvu9IpFMo0z4seXgKy5x+WkOLaR9WwrQRK81QYYk1U0xjCc8r
g5tiCnWuYZGdO1hZC8wwSaw6rTmm8S4bqJpYKpV4YuxjFseSTKwLJJbo26Jb
yp4a9cxiZanEkuj7e4gBFk2miBWdUqwmE9SzEys+5lgq6wroEdYc06tYYURi
scnSLjsSjQXXS0yhnk1YtA7xMYtWohMv+7fCWu+mEOQ5VlIN+2EIQSqmR1jL
TDSPR1hVNfDD8LRfdKmq6B0szeTvH4+wetXwj6RiaV7pbqyKiXT9CpYooY9F
2qmudB8WY2LrSApzWDGjaSxoLQiBN0X4M09NhtNOGN1N+i7W3VpiBVRaFKJS
w00SJrU1xprGGg81FjaWXKy9QyFwu8IqmXQD9rA+T4DlU8qwrgv5/j6PRXfo
YFVMpKm+heVrybFSMhnU2uVYJZM8Ii46j1U0hy9bf3IID8UjGNxJcqwmU1FD
vL0Ti/TIcyxslXuAZofTyixJJfyGwHJXIx0HZQ9SJfAEK2HiWKtMLazRPw7L
jYeDAyyd2U+MNaycyeQYpXQyQoWZ6KTyF2GKRQ4kpjaBxb01YpBqMaVYfgHd
dhMWTY39zkFLt5lMjiFcxZSTuSd6go+xBFOGlZdYMpVYOrrA4jTo9xwrqY1g
pSUmLwjYhGJpD4HVY9qBlTFRLF1iHJBpW/DD5ZI3T6Hxu0CdToYVrglWxXRt
Tl6FocRuLLexi9RqnlZYTcqoRiY9LJ1DiTXPxLDaLdQKy+aOy+pFqLFaDaaw
IKFWPRuwgkCKBVGWsGQOAFB9cgCBlMk8zmONDWHH7ubVO1aJpfukwGKpdpis
1BQW29G9CNykFhaMzmDBmPiYJc8VUNjINJbeMcwSjcaxru3nsdhOFEuFkRf+
5XENNbFkYiUWW5W/X3WwdPT/X04+ZsUwDCVn7GDlZUMGeUcfz7F03HEW6i1L
0nS6LcfKQuYdq6Y+w6ri1ljFyhxQYXUKbu9H+nkaiwWbxIoP8SUhCwIpd3r9
dprAMiOTWKTOPAXy/n7oRckNcx2x5N4sSTUvO/CxcRvLG1dY143w/n7w9bog
Ej1IyfJLrOuiZprDCtsV7TSeYmMhFqlFMgUsRpsco42tbNMbe7Ew5QwrqYVC
XCMUKxVqHW7ttwtLvQIEFktHNlqcFbBkqCWsbNYc1v0dOVKeHMHSfcnsSNCB
pULxgQKrxmxjeSi/S3KS+mNWYErr8QO0159g6ePzJ9bCIlChq2RGFRZdXRBs
xRKrSLdRLAGYdtUCVq/ANSwYVp1D5ssOAywyqruKOoU9+Af4lg2v+DFWZUIv
OEsHS+WBGREsWeD7WDF7lq9gbGO55LJDY3uED/ChyjmskV0PC4+QmbCuo1Fr
LDMs0utjefXs8GE45DyNxe7SseSw2liJyzwW7y9VcWyNWSwduGD6HtY1wt+y
elistASrD3ceuO7PYPl7/C2rwtIdQLE65j6WnAAjY2AvFtubv2VpLMoEx9vE
Ki/y/UPszViYD7wKWUTWDf55GkvLXHHz/V/FUsn5V6H9IxfrclpYjQZKk/8e
FiTnGyvH4k6LWIQpnMYcVqDKsZiY/VYk18PCbx5gJUy0zzRcmN7Dcl9FjpNY
gmkNq+yzLNMCjmJ9nqawshQTLMEUN2lhNZmKfAFuCQvTq5k+TwIrtlXSVAVW
Iwe4oT1ofRNYthnqTWIJCqtKnPfwnVveCoRxFNzD4mtzrDFSY9E7DIs4JVjh
pO0RnpAVYXK3l7Cu6Xuwkm0oFoqUWO54wxTSVEXfr/XXU6wqLcQ6Y6Qmls2Y
hihoipar+SiW4ItYzXOLf9vBSCVWzNi1FswrUBrtJOoCrNBXHIsFpU0QsTh7
gsUzdq1lMyoIRDulW5uL/qesQwaVZhFrhJnFChlrqLRr8kaCADAx9tVVCxvr
nPtGLLEF/YFaYTXiNqBjD0UsXx+QqS3tDg+x4sURc1BYbX65Nk7pY2XFZZmu
Y/ELuvrQUX4f6UESrOxxAosfX77byX5P2sBPqlrD4gepM3iCxTLCLUizwa/+
Cix57PesJ1h5U72DpYRIs8HvHCRWxTTyfYClZvW6chZL7KPPr49VljiL5S9U
zhlWmLILS+/RwGoxfZ7CB4fjpOmF4OkBdxucY4mxojp1mNNYIpTJTEDRZpCF
SyxV204sVpvHOtkv/yiTL9VscH3K4lCt1BKs/HEPVmTyZ9XC4k0QNrB91cRK
Cp8me4rFmaawVKzINIt1DU01UtVfi1jABLvVWDTHrMd6WB2EFEvViVin7Dba
5joJwDoP8ptSUiTvqvOMWSJWv2OqFqJyc1i+tCKJBMvMABDO5LBub0htKxYp
BrDIGLRAJwmFJehzppFXaC3a8F0b0UFqZoCBvgpYMSzp1B4W6arAxKoUWHxr
+96eYrXbrHoRjuSyjeawTEjS9boo/h56xEkyt06v6bzaWNUWE1i+Uy8f/9zC
imgplg5ZAdmhBpY6IYpFrsmr8BihdHYJ1hni8K0bKl2mHhY9uBks+pblksDw
olPMz8KI3jvTHCu5+N3oRazre/n+LpfI0I5oH1bFRLHuFJ5iuXvGyvSVON5N
WN3o8ozIGPmpJ7GyGrPjJB9JaR9g8utYjTOcYbr2a2HxrbPT01h3gbyc7Aj2
YpHDzac1sHRhNdZnbROrLnMXVrfD3OwaCxMq3bBE+5ZFsfKmQiyXbInFWocc
kmb6FtbP+gxLPT7AEmlpGspESnwPa1xErCtmxsJrTbA4f9YnBdOXsPxF/OTw
CUt7Apvk9MMcq+5VyZgwvY4VMvy9pf+yUzZVGEYsH4sxZZuYWVLoBayYoZ3l
/hadv8VnYRGLfokkklQzIfO4HYvOGlgm6DtYvp3KVKeaYCOWLnsXVljMu0om
wZn4vBexkip3YV3jT7HEjK9glVW2sFRs0Mqx5P9XWDxSegwFlkeZxcrSiltr
LJGgMPtdHLIK6KzShKnEGldLWGVyD7B0wb9ZuT8lVgZUYsUpk1iyjA1YKdM8
VsysfbJq7QwWTygpeANWHOphQa2N83VOuq07WLgzESmx7l/9NbBIUSRH8xXb
SQbm28ru8ydFsGDMw3OnXVg67wxLrCFM6RnJtgaqsT/H0hh7sKrjTbEgjjvf
JLmSyW7ewpKJ7MGqmHKshKORXMmUYsWxptMjrJYcw2o7V1ia6UoWsNK+egWL
dYN4eUQsqS1yEVjsAgO1XoQGajeWfDFMYrWW0gElQ1bUWCd8zWJ9FiIWtEb+
aPKNWE3nMnoRrsKyOW3FIhE7hQBWyzmd2GESWGH0j2Gl+cL6QqKzR8Mb++qP
YzXydeuVRJacG2ownUA1MvgGlo2sS4iKmJWU4Mk1aegKggUjj7F+gjisWHAj
gM1MYakApIP4WfAh29TuQ8LhRx9ijUeJJToxNovLF7Hk0pyjx8Swrv33YIUR
igWrJJPAqo6ooqyZRpTdWMnBzmPBJWaVbj39GJnCFtU7VobF7JKD7WGFfOPV
U6yQU8GUYwlAwJKNRvK46+xh0UhwjPNY1W16Shpr5J9hmTAMC3bpY2VMMbOf
P0ln7mF6D0vs0sES6UOt+O6aY7WZ6jL+CqwGE8u22n+SyYahTglLiuUvu1jy
3/ujpyvytllhiFmmNHd63OS0NBbpqhrrGlFYwrbAYt6TTH8Uq9icYPlFeckZ
VrG1YGpjxc2bWAjV3zxgEafy8c5qpJVHSZk6W7v26GO5A6bNNoEV16dZIpY7
QB6lwZTnC0NdLLekwJIpwA9DKDOvx/ZVhqWYRGINpkms68ZbWDJlP35nlGtn
1adYcuuIctxzwuhY+yUsRHBYseH90qpJVNvWN4CFA34NC0MgFkusxSTPJu9t
CsOovoelyvKvi7uvbIB28Xg2LTmz+aA6/Mi3sGJOOoTpq4MWp/eON2eYItaV
usAat5ewfkfYZ1JwKrDwrZTWJTJYY5rAsl/TWPbE4TNpnJ16875SqKreJaYu
VhCiWEWR91X5mVR4m2yhr+YaaZFpFgvdGkWGRNRbFglm28negTfS1KDdcQXT
DNa418QSF+oti2GxGAdPSxfcEJiYtB8rS4G+ZR0xWMzTzeVYeSNNMEl7D/Mc
i+7hNr+tQpRYNENTWKnNNBO7Mc56J1a5+bCCuCESXb0DK9UQN+JBPcTqnZHE
KsTH90+wEiY52T7txiqaH7Fc1dKsjSX0WPh0GzpvH1ar+T2WjSjPNmwxi0VI
yv6PTEi1jjXR/O79nZWsTpucbhPLX+A5NJg2YanDkYju43tRshvGlEushEma
UiaJBaNLWLJy9/F9AoukXCdBnzB05Ar3BRbtq91Y5uP7DBaeZLYyODQ1xdak
hwbHM6x0/AEWJMdX6j6aYWJp7MWyQySxRaxrTolVMlGtmPj7WNgKIu8VLK/G
sB4zfQmLhlVFH5NYuAek5aeo72O8ucTnsYZU1Qq66D6WOgqXVqfGHlODrI3l
pWaw4u0aKzL5Lqne3hmTdWrAYndOYI3xKSya+JFh8VeOjTaHNc2knd7DShJX
WGnFY7Mu1jOmFtZtsY4lqr2XMKwzPpjHkHGN9ZCJpwJY9k8Xy0bNmBIsC0GW
T2A9ZUrO7SkWqc0nzrvE/D3atLOuu4VVMWGuR1zlE+hiAZVqK9VUPK+IhecQ
6m5iFdviECyywR9jkT+mNs7Ej/IX63oVRqxOsf4Mx74dJsgVT+I1rJCuaAUH
RbBcRDSOF6qv1phCHa9jpTmGRADLRMQkaf3YV0+YvojVYOphsUwpQ/aTEOQa
TN/B6jIFqBUsH4j+JIxybab3sbLjO+BqASuEM6Vm71hsfcX0Bay6rlDDAhZv
X/aTkKzHtZjyN7BIXoppHSuGuwuOfQXrFdOfxiqZVrCgZh/O9NUZk0qZ/iBW
zeQTaGHFpDWWuXewbXOVb2LZOAndHJYPivXZxFxZ0JLp41ex8tx0AikWBlX4
7v0K2go77G2sz1OKRZlU9C4WKZWFOlxcUl9us44FXbSCdeI+G7BkqGNc5cen
QRaxIswcVoDahyX64UpmZDmPJWbnWGPmCpZ12oyV1+zy2IhFirBOq1iuoq1Y
P9OLyrdixWEdbAXLMO3Fkvm/hOUeIb8NWCzKDqz0sHdi4T6hkl1YIgpixckF
VkzwfSz3yPN7hKWjHPDNMhbN7T2sLD8M+QCLnMMjrGs0wbrGN2AhA3bVFiy2
xTOsJE3UeojFBp9g3TnJt3cscB2L1Kua6k5rCUsH7mHdA/gBIX1734dF6xVM
HmusLLE00+kCbMJScUosDgVYP0+h6FDpElbF9B+LNWLQSiexgolgehkLjR5j
kYJ5l9yJeilYK0z4hTwtjgUsAksYPcM6f+OPRHWXHOdpUkSs+FwwUSxWzizW
mL8V664/pA9dUmER14zJT8LkH2C5tW0svEmw7sOABHkshnUviOCayW+5Hwuy
24Bl93Bly1gUizwyJl7+diwbto+loX6wxv/XAOmPNpaoiTE9xbpGMiy7+lAB
ZdoNrMMv01g+xRSLMa1j+fUTWPClo/ewWLKAZRNtYUnA2Cs5Fi7aiRXzKrFo
soKghaX7jPaKxBLCDawQNumqSSye7BpWwcQfn2J9nuDtdxvWT6TDeWmxFtYS
0wSWu62x3NB2LH8aS1hqLlHMsLCkvw0rvg5nsbK5Ih+GxUsS/hUWJvh9rNOn
RPshMEnxMaeNZW8lWC67TVjn72uwhWUXnWwFEBTtZC4aWFgQ/uwjbw9bsK77
B/txqJwaWNgCsj/MRYrF4R2WG/ljWLxgjiVaQN40d1RJSSz9KWsBK+yILXAU
WCQaTcquYDvTpvLxwlNSyvex3Cz6qRTnkTShPIWVaP2nYP1IIVZeq8TKapNM
52+051gEbxeWebp+q3zoLCss0IUA/OkCeoxF8PZgxXM1v3WQ0xKssABqk0wG
6BnWWNfB4nL28S0sqI+sYkwu7T+NhXFh+/P6dz/6WCGtkAk9CcHktprEMktn
sYQFpmQk3VOB5Z+6WBWTk2ljmUeXhcIK30ssiMsOPscKxZ0hCYEVLzjTIlYs
aBpLdMQjLOiLazDFYu3EmE5TRheLFzSDBVtQD9IuTawTViks0k6a6ca6A2RY
2el3scZijuUKNDcI1v3fHNoMCb3AUk6CyboYLCtPz/0RFhbAjkJhme8Dliuo
j9ViGnewoFAGYHnHCSwXDs+3xHIRDJa/1cWaYTKH1cYKOTgsk0rAirvkWPym
xqIJVVgxbsU0h0UPv4N1XrccgJ0KGUpJN3rc/8LRLBY9oZyJleHSZEdrDqKD
NUKNyH4EnQTWuGGwYF6NJeKyb8aEOwaPJbAoVIHlvreTLX2CdZowK1g+LXJC
CGMvzbo2lhXuY53mxmkuzV1f2NjbjTpfgcVz9gvjCREXP+COqYPlxW0+OdZY
YfPPf7sp9nY1f+5aLEzOxr7394kEplsl3HVIIwOCZdeZfNz3YyXDguM8DjIW
ioND8uYOyylBO5plB04QVPHJYd3fHX6DUMY5Piy5dkGsUcf93R3Dv0ShicZK
53QhByxDdLhIh4lnk5ROLhN3VmOlPXx/dL7GMWtMuYLf0UyAMS8c5xHHIo1L
d6y5aa6hY0xlB3yXGrAok9kF7pr/RaM9FNsNcc+7ThM59KR9WTAsEyS2lM04
4J3n/wFJGgqg
     "], {{0, 0}, Offset[{300, 301}, {0, 0}]}, {0, 1}],
    AspectRatio->Automatic,
    Frame->Automatic,
    FrameLabel->{None, None},
    FrameTicks->{{None, None}, {None, None}},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImageSize->{300, 301},
    Method->{
     "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
    PlotLabel->FormBox[
      RowBox[{"\"density =\"", "+", "0.25`"}], TraditionalForm],
    PlotRange->{{0, 300}, {0, 301}},
    PlotRangeClipping->True], ",", 
   GraphicsBox[RasterBox[CompressedData["
1:eJzV2luCpciRBFCYnehf2swsQRvQ/v8kVV7AH2bmHg9utno6yQSCCIvjzq3s
Gv3tn//6/3/+33Ec/ziP4+//+frPP+dx/vffP18/B3C0d9FtedNNof6xUZ6J
xaIHu0nD6A2ameuE1SyYqUrgdtHFmmUaPubt/InRSdivywCTudXCajHpV6H1
QkCms4PVWXyFSYZ4ojAJ+1Oqa+uFoO8OGqMSBq03mH6+aaywJ8lE964vaaYS
69aKk+1l+vlWWN3rpreOrD3AFAsQ5u5gfd5CjrWJ6bOEsnJFK5lcRvQSpPtp
P+6GGTmDNc0UJ3nG6MY6xH77R5QTOIn2HMQiNFyrZCqxzoP0Att6jwk4le3Z
xiIBlpl+vmksOxy+HxRLdr1gwkeOddpfb9COc+IBprAJhfUsFNqcdMIbTBrr
9O2Pmku0tmRCfaEby0LVWENMcr4hLPcSsmjDTOi4B2uCaTNWb8JZps/cNZar
XcUUw4ix+7DOeNjO1MK6k6Is6hWsmXZhhWwNJtz/R7qU7issIxWwZG81mVpv
ja3XONYIEzd7JtONlbHgdFNMxVvjx4xiUSZRZRrivjiAJXYWN999uyqmNpat
5htMQ1h0Z2M0GkuMUVg4n/uJvgz83QO35rFyDDD78vFa+yBZUb7MVLYOoEM5
JrByDLBwm4z27HPCsc78996DTLzRQI4hrDNPmaeXWPSFYOhXhKPAWmXS5RrE
KnLUWL02g8hXdzGs6LSfiQbIWO29YqzifQMLjGAB5nUm/ALUWNUuFVbxvtHM
IfH1OY4zZqfARAvHmfCxwLqrWr4/sq5Mo9NzV1thrBiwbqceE6ypwrKvQMXE
8tKnOh1ZYrmAVRm6THkr1/3yLRRY7f2GMGQsw7pzcCxLBvbcZipK3sfqtE2P
qYEVriusVE8wX5ep2IV6C2Hh5DGHQmEkVt6Lwgr1ZAvwnmslu3tcNBYsXAMr
FG2wC0MxFZZp/t6ex5O5rWssr1VjiU5P7VYx3ZdKLNlOmEnuBQxqYbk277dF
IaH3Mo6Fa6mYil1kpxLL5IQPTzClKaq3oMQSjS+Y6C5IzgrL5VRYZZ/RPseJ
47MCKzd+kwntwj2Ltlq8hQErZRpmArfpyOsuxQrxqj7hRWOpAn8bK2biDpqg
8y6ECnexIEBRNO0Y4iis80hR9O5wPXqKi1i2jItMZBPbsHr73o91+j+x9zDB
piqwTve3kKnb48q8eV/DOu2f2LrpR5hgU0msM/8GHxKZHw5wGFBZwHr+1Vgj
TDxhgRUCex7qNNzfcZy5u4qlBLuRu1g+LYlQY8m+y4Zm0DyWCKKLR7ZSYJ0g
Dl1vZn2KFVt6DKsEyqGKVi+x4r8wgsDqIKKG8w+MYQ0x6aKCmF0spkBaAwvJ
WKgpRrC2MNGm+nMcwyIbbbR5qhMVnsHSDd1jUtlGscgMXax2ry1g9TPFboaP
5Z20sMRk7SqqFOtYJFiTqcb6UehhxVbfh8Wu3EvWWCJYk0lhmSsNLPe1EQvw
5Xh7sCqm5lZ+BYvypR0uYKHWou1WN+Q+rGUyvxkitYCF7tRbiVc6WC6TqIQs
W+voH9qC1VuZPez3WWFdX4ioXmah49axBlcLD6POKLECWo0lk3R6yhZoDmuE
qRGxh2VidrCmknz2lqAnsSBd00PfPOVflLqYb2C5H+PtYSyywQ1Y92TFW/gS
FriwgjXgIdNxpu9hubAkyDRWijZ61FV1tXgZKzqhei1goWitLDUWyPUelj9R
MniGBhaOVmSpse7M8dobWH0mdmkAy8ZrTZ66DDzEIlGsE/wlTYXl84h7m7BC
PDStbDm2gUGs0/1PHXKiuBZuJ3CP1jHK1VgxodhxjaWZdmHFE35vrOlnsGg7
KSwOFAc1sGD5wDJwJRn7PPK1WaxOO3VQlN8sVmTSlWLFVJsYwMpV7GKNtVmF
5aKCCugNi5TloC5WCNbF0oHxUIkV/3UVKD1YymbdW1g5WI01wzSNVXvYlbyv
fUAZv4OVgxXhw3RjWHp76nqn58wUL2HpYlKmcSweYaiVxYbMyXYsepIrzfbZ
xiJVGGCiCeDIjVhF5dxd2RRvYQ0ExCO3YKG5mWgj5AxWd79iVP5sj1sZxYoZ
QWvRdmIh8+V9WL1uyzWFWxnB8hmrAual5dFl34HFAXVNWS8yqfPIWOYBmEwu
qq9kuFks5NSvKWMSUgjLSoWQrXbq1HILFlhEM7F8uQuaWDmgXrpzZDd/pp/A
oot0sh4pQp5pGquFIkey4RNYfM7RMgYmm+gNrHZg+tCfZbpYxVL9MnKmV7D6
LXSQh56TFlaef6x9/fViGxuwaOka1VXQNRYsW799/V3fXHCqJawBiX4n3kP3
YhXNDcfFTc5i2enEhvk+CrmNWL2GrmaZxYpOYsNoIAqMJnody3yrX4JpLCRW
JKOBme4WLLZ2aipS11UsGpJmYhsRgHHtcazeqrxk38TSTUXrbq8OYck0R5iZ
o30bq0jMLPPVCuvKo3aIZfwJTgrLuRGL9kthCa8WWKm1WOlQO6G6VU01iWVz
wsr1Ww5fXcWq2wmN24/l78alGFaDKT06hTXI9CZWuKsbaZQpJ57B4gyQ6YiB
d2HFW8UCo0yrWKK3qvsl1n25j3WS/9ZX/dVnyhO2sURvtRbdgxUai/wqKLFm
Eqe1BRbtnYFF17F+vhaw8rneyzhWbC3BpBv/dawg5iqcz1nfwbBDWLRWoEQu
AHz4m1jAifad2OkaFi9RXacXsNyYxATSdPw2YAUmjVk11Q6sM47pMBV+27DC
SqSdvoQVHllh2owFVyLt1MNCqQawrssHmG6YaRsWXsneT9Pj9V7DIlMPMO3A
wsvigOXSv4XVYVrFAnt0UP8DWK2WW8dKGfwELSzotBEr3EVM38ByGdC0vJqT
WH7zDax8N6RdxEq5S6y4IwcVt3pN2sHC2RTWn+82YMaiG38fC+0uY5Gm4Vgq
oW4rhaU3vogV1k5YhCNAcQxxX4ydw5L7HMMSwztvIQiDCFpY8t53sSTiONY1
xs8/i0USbccq0xTXua16C21UM4fGKpO+iIXDZUh9ndvqT6xctnSFJxvHolI1
loVS/cGOJJCfRn9iubJdz72B5UoxihWhxrBIIDS+heUzTGOpYXb2ISwzC8PS
PzeK2sbyWSaxSCB0bwgrBzzo3J3jMlbKQLEgnhJKBf4CVreQaLjGyusLLNVU
jeopKbPkPJYMmC+Du38FrOdkHisGRkxdLBZxCCsnX8WKA6ewUjC7bxKFYMlK
llj2+1asUPlCytTLZ3x4IpbungGm5wGFlWU4Fsdj4XLpC6wU2NAkUrFyqljB
1MCCMhRLnIt2ConLtvKBQy8ddYjGBdqVAoslncZSXbUNK7bWEBZl+hJWbJ3E
tAWLp6ptaDlHsU74i0yJVRxZ+jksNkoWjzUVUyyxfqhaWM1c6o6WYlhiVBeL
NtUA1kXVwWrkKu/MYMlRbSzdch2s8/k/B2ViPdlkLpQM3Kmxngi7sPRteLnE
ckH8jxJLFBBGq9pqI1atMoVlU7SxwplmsvO+j9VVmcDyRAhLO/Vaq5DahBXO
YkqJdV9ZwvJp5FLwpCO1jIUouljhSgfrtH8sZqzWUpDpbSzK1Gin1IINrM8X
wcpT0gUT0xPhDawiTY2Vri9h1WtTJnP9i1gpK8EiE6xgQfoRpi9iyay6Ed/F
ajE9D7yMpXG2Y53XScykq6OZ3P7fwSpi7sfyfWUyiWoBJqT1Ihbf9DTWtQTF
MhFjJrw08GFMb2EVR4EFih5ubMMaYXoe3ovF+kSUl2jee3Ijd2AxGRr7e1gK
B//omTZgHWbOGaa0/z6WC6yw6k4iWKzbJrEeKBuuyXSefuL9WBKHQpDw61i1
CWGyNC5CH8vmTaPqTsKjKNMyVlq0yRT6aBzrmhRjlTgYq3OcxvIFKarjmNax
ghX+cPBuX8b6oYpY1SKA6ZpqCstAMCwDNY4l7/awnr66hqqJg1O2S3+h2Jcy
rYmwAhTHytnzdcossFxfpUypZSTTtVhq0YZUWA2EtLMNYNE2m8GyffXZasJq
MkUs+6WkwGqoohGqwqJH8aTCMnnDOxkKo5jCsgtYzzdU0QEsBpceioYc6+qj
072Eqc4VUzjOYYXdoIq2sBgcbKJ8j2LZTV0nNv4gk6WawPK7SW/hDBaYuHqo
wHI7vDLNMM1j5SpvwpItN4zl+goXOTlhJk/Vx0Jzos93iQUmkc1GhldYbodx
IuyEmSCW2WIHy8wzj6WZwD7cFY71uef7CrdTcMpMCStsUWOleWaw+se8ZoV1
33v6KkDlpTiTx8ogFAtu+mUs3mtNLCdl6TtMZ5qqhUU2nX7NEliMLLcQuzuB
FUjyzGxZMwpicSnQIddJCyseUPYESp4awlIl4U4h3QqWjx5i3rMyrNYR4Uxh
kZbGi7D1MxaVAl3FsE4z6yQWx5nAuoZ7D8KXmd7EeuqZn2lgVTgjWKavDrsA
mCl+fwnr5+oGrB5OG+tOEaDAwke+tR3LzDWO5avq8u7AulMc0EIwgXZ4tjSD
lY4aSzyM8nKncSwKwAWPfNtQDWHhdTlWbq/UTkl+H1ZenC9LNANVSwru954d
Y6WvXt59WD55CZSZMtUElp8d/E7qHzJ5KdNJl5nGekLw8IrpirMH6z5rYPlH
AtOploFYIV3CMvPJSjOmZ/w6VlgxxIRYGSDmamKltspY55/PK7NfisWY9mDB
dX3MhIVCup9lA1snf1lhxWLB1oROe7BIbxxjWCmpaGDVDhpL/PcWZ9qFBTd9
nTaxktM9XRvLnEis8zBjnlmRE2mDXVhphRKLMzWwyNE+kD/gRXboxDt5GotM
qLAUE1zyLSzg9BoWmvD6mWFJJrbkC1jM6RUsuoFrNoQVmzEyfQkrMeFFaCOM
YeEN+NkSlu8ryCTX24SF1y2wwuUlLPPDNQZgxUdAR76KlcKGrlrDwsnd3Ok7
w3KPQKaqOItY4BEzL19kDxZgqrAk0yJWfCA3lp3FngCstOAKVt5kzJuwYNic
ZQLLboJimRoHJ4+V7qK1+1j5aXuKsXIalmUIy00Zqok/sdgB4mzGyvVAWPcO
PNcKFpjEjwaN5Sf6JlbceRyW30LSHeHYr88UFpJ5FSsxoZGqqO75PhZ83BFo
LNanr2H5uGKbEosk4lhxXfkkxCJ7eBfLOIX+aGG5bz2ssGzNDLDOe09HnqOP
df3cwfKFdacNrKSLYlAsupf8ZMYKe5rA8vdaWIiphYWDRDyCBfPmo3+gxjrT
lX1YXuv+jjfosGAclg62lcR6duAeUFiuyHFzMNkolsvm5pJYZNc7sPyj7oFD
Y514iT1YPmKcq48VSjmGBUrGsE6OldZ6CYs82sN6xo5jgWPeXQMLrrUfiwfu
YPmAQ1g5MN5I6uCElWHewEKBn0sllk/EsNBccSDKfd7z3s8c38digeOUBVZM
NIdVH+Ovc7ux3L3cVykwnrKJJRpGY5HyQiz7wDYskFJiAeoRrDBwP5bN/C5W
pnKBSV+GbuFYNtN+rPvk89BTmt1Yzx2ChZ/2P2osP9dOrHDJttVmrLjlvwAW
mEWM/A4WWotjwbS7sfBcemTYz8867imBBeIAJ1QSikWbYB+WmkuPtNeuzP4L
Y7kWwFiU6fewfHsceS480pfd5S+x/IwiToq2gOVLsYZlZmxhxe9P/hg6YKW1
S6zccvNYaIMjWKl+BRZkevKn0AtY3GkaS0gVWM7gIHMZVrSHgJVDK6y80LNE
TLiKVUoJLJ+4wgpMFAuEJljmCe/HnOJqfSy1uwEsGANiEZtwAYUGWG594wem
jymfnztY9e52Y9EjujyLBebkTgwrlBfG3oOVS+1HaazryhQWLhxe+l4O9RWF
n8IqGcax7kvHjeVM1rBAWU7SV4cZTJ+axKIJ21g5zpEfplh4FYVlL418vNun
JrBkwg4WupSx/nxHWCddhbVTXK/38Z6f2oWFpmvEtmfgt9KEpUuSZ8fHAgtE
3oXF7RMmY/osVmEBKY6l+HpYceYBrLOoAMXSTPdpicXiJiy2bB8rTzqCdS8w
hgXqDc+e+PZJj0VT4iijWPfC0GkAK2ymhxVHhbrfTz3fn0/wZ542VoOMY4Hi
zmKdYdpRLMZkDV2FB7HiQWOdbj/wJTzynF0sMW2JpZhcw6VPrCYW2lh9pFhO
5utYNdM1+FWscPdbWHlqhkUzPxftky9h5ROG5aHWsUJIjpXy30zgosfyCRaw
/MlzhrD8NO9j+dvPmMAEBePrsIjFmAhW2tKbWHGufP+Ix/tBS7UBSzN1sPL+
dmG5WoINkLjp7m4suq7EssvvxWJtJSrtHnNj9mFV6zKsSLIPCwTrY+U97cEq
y+Mm/yJWPnaw7JbsDvIvJoNYLSY/OcaC865g4Xh6A+cJrph48SXfhZWbjmLx
PXwPKzMd4HQ/VmC6h0GsfPvbWJCJ2O3EgkwCy83yC1iUKeffiRWXSyd/Bawo
xZnewiqZ0lZ/ASuuAiAR3U6sBhPaag/L72kaK7JTyHA8wqNLWLhuiQnts8Ry
RvNY0elCwJC+1hkrzD6BhZaLbGNYHmoaKzkFLHgPZnfPzmIhfLbUl7H8owmL
OQEzggXIOBYoCFqE7FNjOah9WHaaUaxAdcxjCSaySY4Fv1awYlCJlWj9vnxf
jWLhkvjvv4flgj4bhlhONjNZrGcLbawG0zexzsNjRZL7QsKC+8D3fF81sfJS
otN+Acs/bLN1sBhh7KsJrBjpiJcaWHHqbVghY43FCRexSqYWlh3EwCopjuVj
KSy1mzWsmklvMvUVx7oPo1hARPcd2sAqFpUP39TeUl+tYd1Zn2mjCMSCJuGJ
59IUFpgfMDWwjMMi1hX1PMjzp1nYp3WboR0whQUzZKZqh2FXS1ifAaj/Yyld
O2sZcLKAJZk6WA5IYHXaimD5ipJPrPQzeXgSKzKxGrFGaGMZC91WDMvNkz+x
YpelrbkBS1gQSLcDWOktrLzv+ItdWAgwbcEiTLFgY1hB4CimUli+pNdM4BPr
SMP890UsvxhGE1j3OuESFljDMpV1iyKxNHwZK8xOe4vs8POVcq9j3UmfkvqN
Ayy/UABbxQIlE031NazPqq6kx2kjuWURhh/t7s1hhZIxJo1l19mBZVb1Jc3R
widWqrv5eQ9WfJ42GNrh9bUNy1ctN5bPmZY0TEd+ZhHLZ0RM2XMXFghGsCgF
wrJdtYp1Rziq/zK0p7+J5evpQsE/C884NkEhrLAFikUXew3r+nEIK00A/iy8
byctjOV4CqwYEjCF6Tdh3Q/JQeKDNWGB+d3oVSx7hzKdaR03G1wJU6R6cKxr
Mf7B6rDOeAAb2YYVS2aWBOuAtrIrPVcTbDhCLNc6/IP1cDM4p9hTr2O5Eg5g
mTtp2RorDpIfrOAT63NEhXkHKy70KlYxCGPdw8J7D3vqjNNvwkL1+D2sy4p2
f3rvA5YdPYX1uZiwnI1ZDq7zNtYzooGFmf02UnPOY93ThvWgy8tY4ciwfm4S
rNxju7DOOAWSsvM3sfwpLH3EApzoF/g7McDK3BuxMBR0SVc41ueLvGERs40V
DNKvifDbvdYM1s8pK5lbAGxjBQtsoI915tvuI9fc81OcdhGBZajMnAArZdyO
BSQGsNAOHyx7zzO5PWesJ6fdgJszYMGMq1jPhbDLELKFxW6j/wfZzeQHJyw7
TcIygy1WeprQmFVLLLcOQXBUUOPy4L84o/8Oik4bsWBVMFacl2HFddAu76kw
lm8e+IvzcWH58riCuB8Z1un6s4XlqpmxntmXsHI901Npt+kXZ/Mt/2E4gvWM
GMBKKfdguYXjKm44fVc9lhcJWD9nXSyfqY2FUjKs69Ea63a1u7y3God3sO6n
TbDzAAskLJMFaP2ZqoeFUwIscx6x7BnAMvnCGjXWz07AH9kWKzwZHs+xfVft
xgrntK0Elq+kGe7S5d1+cp7x9jVJgZVjk3qMYyWgBSyjEPqqiXWfwD+yMxZ+
/BUsn2MKK+qwD/cS6/Qr+o8st94ZNpDW0lh5mhor51jBMlfzh3uFFTvHYKWn
AVZmcjv29TBPJqzTzvtgOWlUAYgVWRhWqqWtV8AKjXDvOf/FSA/L5w71sI9d
WJ7K7vdIfyQHUo6VhnWw3NMZywxzocBHlj393IsliWzpbzhD2Q5E5ZTtX3xc
Gc7w+eDreF9yw0x493D+xAohQnWeIWZb4CMrY6WShJ/C7952H27Thzu3yvdf
fLg2dtO6/vBNZHYUsUjAezL70GGv2V2YGd3fZXld8KH7/GNC3x83dh/n3ZIW
6260pxgfLL/OEaZ1Ezw7Oa5VbJNZqps9QJmYxzWJnd7YWn73kj26l4LdhbMy
wuF/83DfDFjmHGOd9qkzXnPN8vSTGXYorFDz+6njxop7NTmvFeNf/AWsfwPl
X/ju
     "], {{0, 0}, Offset[{300, 301}, {0, 0}]}, {0, 1}],
    AspectRatio->Automatic,
    Frame->Automatic,
    FrameLabel->{None, None},
    FrameTicks->{{None, None}, {None, None}},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImageSize->{300, 301},
    Method->{
     "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
    PlotLabel->FormBox[
      RowBox[{"\"density =\"", "+", "0.3`"}], TraditionalForm],
    PlotRange->{{0, 300}, {0, 301}},
    PlotRangeClipping->True]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7307941772171726`*^9, {3.7307942455303135`*^9, 3.7307943093759565`*^9}, 
   3.730794395703519*^9, 3.7307944263105125`*^9, {3.730794483904022*^9, 
   3.730794508608412*^9}},ExpressionUUID->"c75689d0-2fbc-4e4c-a83d-\
ccdc56e34785"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<thj.jpg\>\"", ",", 
   RowBox[{"kek", "[", "1", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.730794192149246*^9, 3.730794228708764*^9}, {
  3.730794431451437*^9, 
  3.730794434320851*^9}},ExpressionUUID->"caeb8426-03d4-4d00-8c39-\
21b8d2446666"],

Cell[BoxData["\<\"thj.jpg\"\>"], "Output",
 CellChangeTimes->{
  3.730794435611682*^9, {3.730794486587028*^9, 
   3.7307945088583956`*^9}},ExpressionUUID->"b7781267-44a5-4678-b5f3-\
d3a52402499f"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{958, 998},
WindowMargins->{{-7, Automatic}, {Automatic, 0}},
Magnification:>0.9 Inherited,
FrontEndVersion->"11.2 for Microsoft Windows (64-bit) (September 10, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 822, 16, 81, "Input",ExpressionUUID->"d9fc87b0-f31b-4a04-bb6d-a731a326d745"],
Cell[1405, 40, 912, 20, 49, "Output",ExpressionUUID->"ca2be3ce-e229-436f-bc18-703109921740"],
Cell[2320, 62, 199, 4, 30, "Output",ExpressionUUID->"03a07354-c4fc-4dd6-9d97-dfb0e7bfa152"]
}, Open  ]],
Cell[2534, 69, 12541, 270, 369, "Input",ExpressionUUID->"4423e740-b635-4a2b-9820-dfec0c3cd19c"],
Cell[15078, 341, 8330, 211, 567, "Input",ExpressionUUID->"0239c7e7-ff1e-4fce-9d54-0a7197761d5b"],
Cell[23411, 554, 8668, 186, 207, "Input",ExpressionUUID->"f329640b-e1b8-4c16-b7cb-1d005409fc6d"],
Cell[32082, 742, 5651, 154, 225, "Input",ExpressionUUID->"2731a75d-e0bb-4bca-85c5-3e6a926bdc4c"],
Cell[37736, 898, 5149, 137, 243, "Input",ExpressionUUID->"2bdfc504-0598-4843-b0a3-dd699b4fe45b"],
Cell[42888, 1037, 15910, 365, 531, "Input",ExpressionUUID->"43f2ebbf-b55a-4d52-b9ef-486550832a0b"],
Cell[58801, 1404, 2966, 58, 135, "Input",ExpressionUUID->"e1a0b683-dffb-4faa-ab6f-ea9bdedf6032"],
Cell[61770, 1464, 1833, 43, 153, "Input",ExpressionUUID->"b0b4308a-fb9a-45ad-9188-65770fa365e4"],
Cell[63606, 1509, 2027, 50, 171, "Input",ExpressionUUID->"33ab8977-79f4-480f-879b-20853bd08edb"],
Cell[65636, 1561, 2751, 55, 135, "Input",ExpressionUUID->"fa7460a8-f321-4f02-a843-f53adba05a9f"],
Cell[68390, 1618, 1268, 28, 45, "Input",ExpressionUUID->"72ed6a49-b78d-4634-ba7e-f671a1eeef96"],
Cell[69661, 1648, 813, 22, 45, "Input",ExpressionUUID->"42ce4ba7-8ef2-47de-8dc9-3100e8a1606b"],
Cell[70477, 1672, 1008, 25, 45, "Input",ExpressionUUID->"6ca88c3e-7a1f-40fa-933a-f0ff38132aeb"],
Cell[71488, 1699, 865, 23, 45, "Input",ExpressionUUID->"2f4e4d0f-c791-4bde-a64f-ba0b18f2ba05"],
Cell[72356, 1724, 958, 23, 63, "Input",ExpressionUUID->"25a0593f-7b96-4d01-bca4-e39b698a67ec"],
Cell[73317, 1749, 885, 22, 63, "Input",ExpressionUUID->"8fba05ce-e704-43b7-8003-9279faa7c014"],
Cell[74205, 1773, 954, 24, 63, "Input",ExpressionUUID->"fb079055-e281-4777-b1f1-c99d7f96cdae"],
Cell[75162, 1799, 806, 18, 81, "Input",ExpressionUUID->"bc10527b-6709-4515-aa8e-237b3d3d2be5"],
Cell[75971, 1819, 231, 4, 26, "Input",ExpressionUUID->"aed0f1fe-a890-42a4-9ea0-378e5ca0c1f4"],
Cell[76205, 1825, 202, 4, 26, "Input",ExpressionUUID->"8e5702bc-3609-47c5-9a0c-aabad6c7fb98"],
Cell[76410, 1831, 1019, 25, 63, "Input",ExpressionUUID->"9a0055e2-bd0c-48bf-9862-d728e3ced876"],
Cell[77432, 1858, 962, 24, 63, "Input",ExpressionUUID->"00435052-2f4c-4b83-97a9-fe2c2312a83f"],
Cell[78397, 1884, 745, 17, 45, "Input",ExpressionUUID->"967c550d-2087-462c-8199-fedf9a1d4c18"],
Cell[79145, 1903, 1139, 26, 45, "Input",ExpressionUUID->"ffb78a9e-eccf-47c2-bdab-bd6f87ae3025"],
Cell[80287, 1931, 335, 8, 26, "Input",ExpressionUUID->"3622cead-4c36-405f-bac8-d69855393a6c"],
Cell[80625, 1941, 1022, 23, 26, "Input",ExpressionUUID->"271224d8-b923-48b0-bb6e-fd0126a9dcb8"],
Cell[81650, 1966, 329, 7, 26, "Input",ExpressionUUID->"ee4e8288-761d-4868-86aa-6a93eeb11ed5"],
Cell[81982, 1975, 991, 24, 45, "Input",ExpressionUUID->"27c30691-4f00-4be9-ad42-acd4c689aef4"],
Cell[82976, 2001, 293, 7, 26, "Input",ExpressionUUID->"74e364c9-e069-425a-99dd-55d1dee1615c"],
Cell[83272, 2010, 1052, 23, 26, "Input",ExpressionUUID->"615f2e31-36cd-4702-a00a-cecc53d0493e"],
Cell[84327, 2035, 759, 19, 26, "Input",ExpressionUUID->"7cc964fd-9ef7-433d-9ac1-12b4d2d19e91"],
Cell[85089, 2056, 479, 11, 26, "Input",ExpressionUUID->"e4eacf29-ffa6-4ee7-8d6f-7f91aad0371e"],
Cell[CellGroupData[{
Cell[85593, 2071, 1513, 38, 63, "Input",ExpressionUUID->"dd00f728-8476-45cd-94b7-aae1d51b9901"],
Cell[87109, 2111, 87385, 1471, 948, "Output",ExpressionUUID->"8db66c54-9eea-47e4-8f2d-83516a514bb8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[174531, 3587, 250, 6, 26, "Input",ExpressionUUID->"de1c753a-3fbc-4418-905d-1515c60aff03"],
Cell[174784, 3595, 146, 3, 30, "Output",ExpressionUUID->"bc3c7046-a019-4c81-b8ff-064b043b2eab"]
}, Open  ]],
Cell[174945, 3601, 990, 24, 45, "Input",ExpressionUUID->"8fd1a7e0-5afc-48fb-8f2d-4e5403fe3156"],
Cell[CellGroupData[{
Cell[175960, 3629, 1884, 45, 117, "Input",ExpressionUUID->"1cc4ab02-2494-4330-b45a-655254fc192b"],
Cell[177847, 3676, 375, 9, 20, "Message",ExpressionUUID->"afe0f3f3-496c-4606-8174-15ccdbec14a5"],
Cell[178225, 3687, 634, 17, 49, "Output",ExpressionUUID->"7c4a71fd-c1cf-42a6-8ab5-125bd4a74298"],
Cell[178862, 3706, 320, 8, 20, "Message",ExpressionUUID->"a5df8e5a-0015-46d6-acb6-566cbeabe0f5"],
Cell[179185, 3716, 320, 8, 20, "Message",ExpressionUUID->"4998739c-a583-487a-8a0f-108f5c95de95"],
Cell[179508, 3726, 322, 8, 20, "Message",ExpressionUUID->"95e01b1c-03bf-4d3a-b2cc-7734e4c3ce12"],
Cell[179833, 3736, 399, 9, 20, "Message",ExpressionUUID->"f4903467-a2e8-4d97-9989-12d4001ffb7b"],
Cell[180235, 3747, 990, 17, 20, "Message",ExpressionUUID->"d76d86cc-2b20-42be-af1f-723234a07fe1"],
Cell[181228, 3766, 648, 16, 49, "Output",ExpressionUUID->"94aaa60c-f8eb-4ff8-ad20-0ddb393eab95"]
}, Open  ]],
Cell[CellGroupData[{
Cell[181913, 3787, 225, 5, 26, "Input",ExpressionUUID->"ac72c20e-90dd-4e27-8ad3-ec918c6234d4"],
Cell[182141, 3794, 146, 3, 30, "Output",ExpressionUUID->"cc4e3318-8a1c-473d-b6b0-85001764a5ad"]
}, Open  ]],
Cell[182302, 3800, 1007, 24, 45, "Input",ExpressionUUID->"64db88c4-14bf-49e8-9dff-a32a7c5e7a9d"],
Cell[CellGroupData[{
Cell[183334, 3828, 796, 21, 45, "Input",ExpressionUUID->"8f9e89a5-7c2b-40bc-a441-7b47d962655b"],
Cell[184133, 3851, 378, 9, 20, "Message",ExpressionUUID->"4bd57ddf-5cac-4d50-acd5-32c634843bcb"],
Cell[184514, 3862, 597, 16, 30, "Output",ExpressionUUID->"585be525-60b3-4200-aebf-b92bcd312ba2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[185148, 3883, 271, 6, 26, "Input",ExpressionUUID->"089db8a3-5725-4c9d-95a3-26fd4a646840"],
Cell[185422, 3891, 146, 3, 30, "Output",ExpressionUUID->"c0822fcb-1e36-4b71-b987-ae6475a91a16"]
}, Open  ]],
Cell[CellGroupData[{
Cell[185605, 3899, 181, 6, 142, "Title",ExpressionUUID->"c8f5f9ff-8b81-4422-9782-e908731ffb67"],
Cell[CellGroupData[{
Cell[185811, 3909, 1058, 27, 99, "Input",ExpressionUUID->"deaff90a-a431-4c7a-aa3d-9fa59ac23516"],
Cell[186872, 3938, 323, 8, 20, "Message",ExpressionUUID->"08d737a3-a400-40cb-bf5c-1bff29c3afff"],
Cell[187198, 3948, 323, 8, 20, "Message",ExpressionUUID->"08a7c7f7-3c1b-47ad-b47d-a9430c1aff94"],
Cell[187524, 3958, 323, 8, 20, "Message",ExpressionUUID->"eef34859-0ee3-465d-b02e-f3694c51c611"],
Cell[187850, 3968, 402, 9, 20, "Message",ExpressionUUID->"e7a11b6d-f8dc-417e-9153-5e5c23d81ed0"],
Cell[188255, 3979, 989, 17, 20, "Message",ExpressionUUID->"13c5f7f7-27b9-4fc3-8b53-6ac7a2a77567"],
Cell[189247, 3998, 646, 16, 49, "Output",ExpressionUUID->"e1af9df1-2b00-4417-a336-a7bac5d82392"],
Cell[189896, 4016, 144, 3, 30, "Output",ExpressionUUID->"8f188d3c-18fe-4640-a023-594b2c31acaf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[190077, 4024, 1712, 47, 63, "Input",ExpressionUUID->"fbd6fd0d-9aaa-4f01-b7b5-e5a74c8ad8dd"],
Cell[191792, 4073, 45414, 784, 887, "Output",ExpressionUUID->"c75689d0-2fbc-4e4c-a83d-ccdc56e34785"]
}, Open  ]],
Cell[CellGroupData[{
Cell[237243, 4862, 302, 7, 26, "Input",ExpressionUUID->"caeb8426-03d4-4d00-8c39-21b8d2446666"],
Cell[237548, 4871, 196, 4, 30, "Output",ExpressionUUID->"b7781267-44a5-4678-b5f3-d3a52402499f"]
}, Open  ]]
}, Open  ]]
}
]
*)