# Get this figure: fig <- get_figure("iancze", 150) # Get this figure's data: data <- get_figure("iancze", 150)$data # Add data to this figure: p <- add_trace(p, x=c(4, 5), y=c(4, 5), kwargs=list(filename="MWC758", fileopt="extend")) # Get y data of first trace: y1 <- get_figure("iancze", 150)$data[[1]]$y # Get figure documentation: https://plotly.com/r/get-requests/ # Add data documentation: https://plotly.com/r/file-options/ # You can reproduce this figure in R with the following code! # Learn about API authentication here: https://plotly.com/r/getting-started # Find your api_key here: https://plotly.com/settings/api library(plotly) trace1 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(12.960859879597466, 12.960859879597466, 12.960859879597466, 12.866237763540841, 12.972465860415541, 11.863962199295603, 12.149086025379654, 12.302437361765566, 12.79233385228308, 10.499769445382437, 8.747821352531922, 8.13717226170043, 9.166923167516766, 9.212311164618328, 9.361890500299738, 9.28478434301884, 9.671884126910246, 10.629404298735984, 10.59981919127022, 11.112024519018444, 12.258398691376934, 11.732479086102853, 8.078823266335494, 8.078823266335494, 8.100717911273208, 7.079861011872106, 6.991155694015656, 6.676890787201671, 6.33308577480202, 6.429686360647683, 6.792106713723741, 9.784477960008507, 7.705613344080634, 7.376322603553676, 8.115968834388536, 7.974521937195641, 7.747892359469146, 7.144590285782685, 6.569524610783997, 7.155268928232032, 7.7200195481799465, 8.028048728179952, 8.908492164914616, 8.022673417227924, 9.80766115107794, 9.879155075218826, 10.323836497470802, 10.118715998390165, 10.0751229312466, 9.634226028432051, 9.899029581012318, 9.78373493625071, 8.989157122939517, 9.764188452806094, 9.006264574371123, 8.83419567481507, 8.849265657293241, 9.817290233039202, 9.55400303250688, 8.477042607348666, 9.138796570966006, 8.23231114160978, 9.896082373830076, 10.547239195044074, 9.71076265715704, 9.71076265715704, 10.297023581879616, 9.736107063397114, 9.736107063397114, 9.321282460735059, 8.519509016273787, 9.598991757884875, 9.301587658380184, 7.639531992501341, 4.788353201723252, 4.731435222347273, 5.237093942673479, 4.265305241850035, 4.704734319915378, 4.8919308985695675), xaxis = "x1", yaxis = "y1", hoverinfo = "none" ) trace2 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(10.843570215539977, 11.573079178554293, 12.14339017126833, 11.887206174403904, 11.444514204815246, 12.739640933627278, 12.786069077516554, 12.996666146577605, 12.996666146577605, 12.18493722159851, 12.626272418638527, 12.603337290737231, 14.03986855665315, 14.03986855665315, 13.169815248199798, 14.6440991920538, 14.6440991920538, 14.0460527865322, 13.961310761491648, 14.649391371410047, 14.932092152792855, 13.84423768602839, 13.962939690010886, 13.795041863640595, 14.094063128840537, 14.245130740574918, 13.946434236727983, 15.350888751566373, 13.296420403913126, 13.2858157082279, 12.865022572751641, 13.101939136870346, 13.71310627427738, 12.107434441480564, 12.692885355758385, 12.692885355758385, 12.660869078458795, 12.696472006483345, 12.279393050452779, 12.042140157858762, 10.877273464636225, 10.877273464636225, 10.811154783904755, 10.711342800249312, 10.557277762315701, 10.994069081585266, 11.030447743983302, 10.67008309052145, 10.132244668471504, 10.132244668471504, 9.897731159413084, 9.897731159413084, 10.030721120786119, 9.776744359647116, 9.200859204982834, 8.996818287700426, 9.145747883733259, 8.799015582225662, 8.64820146660008, 8.64820146660008, 8.385327551381968, 8.734113790082667, 6.404434136730023, 6.020947133321727, 5.922139770083177, 4.478413412068271, 4.123023132427117, 4.391493143604951, 4.000236853618971, 4.095200183107569, 3.942813629371133, 4.2990248059853275, 4.205870312693025, 3.577672336051842, 3.7924187351650724, 4.207574466498228, 4.101837387625819, 4.08695479172822, 4.029441575354994, 4.566547884409604), xaxis = "x1", yaxis = "y1", hoverinfo = "none" ) trace3 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(5.033222726577795, 5.033222726577795, 5.406124256540568, 5.401162301576853, 5.269512063645564, 5.314147066222436, 4.829368761725659, 4.9427320275384945, 4.912002124054285, 4.912002124054285, 4.816537487447471, 4.9292395134773885, 6.124116659787388, 6.333419441558423, 6.005085265595449, 5.245990873926907, 5.245990873926907, 5.464962019519195, 5.990662675183631, 5.5452939956004, 5.578077028210789, 5.509522714853945, 4.920365403158534, 4.909221091449151, 4.536973005625617, 3.8866363180748564, 3.6433515982744336, 3.6433515982744336, 5.577000773903167, 5.577000773903167, 5.116024960239848, 5.116024960239848, 5.451922494606562, 6.3058038741971725, 5.091839288695305, 3.8450028475580633, 3.1885728579136305, 4.145450511587293, 4.006073652026495, 4.070377855340412, 4.103072645973115, 3.307035887327535, 3.5284956714691917, 4.497813053750626, 3.6301885990447778, 4.114366677335644, 4.100387064031277, 4.484941670694907, 4.624510830163953, 3.986945766350207, 4.044524449360745, 3.867773975690986, 3.8906417043873733, 3.279365317888966, 3.2928347938211764, 3.6897594223401278, 3.0865086708434224, 3.0865086708434224, 3.114075105608235, 2.620263210184274, 3.099935159689965, 3.099935159689965, 3.0910291627649387, 3.0665734218985286, 2.626724205643511, 2.6693559727059015, 2.694106910321753, 2.675042540558113, 2.488407759299169, 2.488407759299169, 2.5558427311034566, 2.675713918227865, 2.6106817311610087, 2.6106817311610087, 2.6106817311610087, 2.4157555587165045, 2.4157555587165045, 2.6207809227862984, 2.566088752026216, 2.6418818671792734), xaxis = "x1", yaxis = "y1", hoverinfo = "none" ) trace4 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(14.60863022261853, 13.183468462062432, 12.750554804640863, 13.156881335009105, 12.785553802913247, 12.59624118880782, 13.183095285436922, 12.24615487448904, 12.537124117238363, 11.657327728086855, 11.67718057310643, 10.811772031525674, 10.773958887670505, 11.371081232539996, 11.921977868170684, 13.167914925885817, 13.242683326000323, 14.376903390578976, 14.342152453046397, 14.32967569389882, 15.047332120625292, 14.739047215681792, 14.593635796750398, 12.670911840203686, 12.46134145867771, 12.46134145867771, 12.662962726658632, 12.57904659190048, 12.658235372556787, 12.437540362799998, 12.357461477626043, 11.597847744565218, 11.376958372130629, 11.494030665299483, 9.882754338813696, 10.45283779644205, 10.381292567231347, 10.234949725650175, 9.057367227134712, 9.062990257476626, 8.421111529161308, 8.377362226877906, 8.11257217621892, 7.272512351010182, 7.2130824018068544, 5.8530171833672675, 5.799653872434803, 6.295158250352333, 6.295158250352333, 6.088697483360994, 6.194129742263919, 6.459687388380777, 6.462222558122229, 6.404415216149901, 6.404415216149901, 5.3705362999903326, 5.389112295384976, 5.461432087157978, 5.461432087157978, 5.881709032121197, 5.542212194077767, 5.302350129343488, 5.167147105676313, 4.195799982443542, 4.152392417517279, 4.150658810955609, 4.3956916207221335, 4.3956916207221335, 4.378825854686875, 4.28946283617701, 4.1668068384470764, 3.7833269356606003, 3.7833269356606003, 3.9078314444476088, 3.7608272717208187, 3.3696117208672325, 4.010983199941466, 5.040087462107611, 5.122384534694791, 5.218707950600944), xaxis = "x1", yaxis = "y1", hoverinfo = "none" ) trace5 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(3.1678197167436912, 3.2618184809231927, 2.97603775970083, 2.9747751401573064, 2.6429046103351252, 3.068928319821037, 3.0959012582626135, 2.979072006293579, 2.9408300642228227, 2.9408300642228227, 2.893937584917042, 2.893937584917042, 3.0942322097761035, 3.0942322097761035, 3.0942322097761035, 2.8321356204444603, 2.9436422531072752, 2.3989478340629713, 2.3989478340629713, 2.563968717459696, 2.563968717459696, 2.5961689991419172, 2.7316872306379056, 2.7742251792067583, 2.8057959599873237, 2.8057959599873237, 2.730846266842168, 2.730846266842168, 2.784700635072432, 2.8444238344385115, 2.784659459782836, 2.9276475743524486, 2.9276475743524486, 2.9276475743524486, 2.853065317201847, 2.6747758609977326, 2.631592622000288, 2.631592622000288, 2.505320724812916, 2.6347229614844894, 2.6347229614844894, 2.2325111049900146, 2.2325111049900146, 2.2564108485660235, 2.116176480602032, 2.133513508076114, 2.133513508076114, 2.246392174011345, 2.0954386950477533, 2.2350355762013767, 2.384956710965157, 2.384956710965157, 2.636486631787948, 2.636486631787948, 2.636486631787948, 2.4547380911880774, 2.613670281438141, 2.4382900565330994, 2.4382900565330994, 2.479683062961084, 2.479683062961084, 2.479683062961084, 2.3394147983240567, 2.395596753274824, 2.3667337848382974, 2.3667337848382974, 2.3667337848382974, 2.597526774499375, 2.597526774499375, 2.597526774499375, 2.361277955331424, 2.361277955331424, 2.4105811301966047, 2.4105811301966047, 2.4359610556834523, 2.042483003924358, 2.3080774870215004, 2.3080774870215004, 2.3080774870215004, 2.3080774870215004), xaxis = "x1", yaxis = "y1", hoverinfo = "none" ) trace6 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(6.736443757091227, 6.71910228448044, 6.186583658756733, 6.781347833680753, 6.658391394296731, 6.886375003247117, 6.856244046017816, 7.0411673573779225, 10.053608521201731, 10.598723986430176, 10.524206943766822, 10.307280016723883, 9.335225182916172, 9.335225182916172, 8.156401100308894, 10.337307464418851, 10.501197141604107, 9.8338609890416, 9.132064671488603, 8.392412945974337, 7.153890197510877, 7.611096381376851, 9.119140899028874, 9.011288124532172, 9.359927245500186, 8.549216170002005, 7.708190600008818, 7.378953701454659, 7.604568997448032, 6.896097214744349, 6.567903292434538, 6.615853912931434, 7.4056594805751725, 7.354724261503414, 5.4443222301741505, 4.676010087784084, 4.940687607577663, 5.982750344570484, 5.911385788674976, 4.729519011835056, 5.242204982319228, 5.256737373032372, 5.397336630747917, 5.148488283368353, 5.3166590441372, 5.369661681326159, 6.046002221406061, 6.339213278569092, 6.588781657330072, 6.25633754897002, 6.175958188836272, 5.841136472236359, 6.312814433977121, 6.415714779270908, 6.436874347809017, 6.396671652480212, 6.396671652480212, 6.593963083508944, 6.969003049622349, 6.959342809520464, 7.1016248771936485, 7.1016248771936485, 7.5363822624898145, 8.808924245613145, 8.23637716702466, 7.65962528525596, 7.767254669004342, 7.156450275839826, 6.514425722900473, 6.972397577818383, 6.964743457299566, 6.516536833219964, 5.444681121996886, 5.2379277931325285, 6.0835319175853035, 6.0835319175853035, 6.653299586795187, 6.653299586795187, 6.267385780253306, 6.628534425158936), xaxis = "x1", yaxis = "y1", hoverinfo = "none" ) trace7 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(7.042478079524493, 7.432374695197752, 7.242013533147974, 7.183956857114504, 6.680890902110428, 7.001041222193967, 7.653138803308984, 8.163896305693543, 7.855743461310115, 8.08806693686058, 7.50912215399389, 8.066277085544392, 7.939816948323831, 10.090735956847425, 10.65966591742484, 9.408435534156087, 9.924213281531008, 9.662637787864718, 10.563509202836581, 11.818195369434399, 13.148375584527692, 12.130683767641223, 12.130683767641223, 12.130683767641223, 10.861943871575678, 11.440750887197652, 12.335084010775429, 12.669687516144146, 12.989989489069295, 13.456505004626202, 13.351862073305826, 14.021051956511183, 13.00090794981667, 13.00090794981667, 13.00090794981667, 12.957051866369383, 12.981655495089129, 11.988503294024696, 11.750400367400541, 12.259847573699933, 11.465462646324953, 10.642381491333747, 10.424805521457092, 10.311553542278558, 10.226355681407723, 9.904852836982132, 10.18125178191518, 8.621267988585323, 8.750508172737302, 9.177669864609872, 9.526588450939446, 10.391286391045016, 10.582233580767173, 10.804397752575806, 10.06480767444473, 9.718130363859691, 6.301550179552704, 6.094876402800021, 6.026641021331673, 6.129048139410679, 6.046747548916405, 6.152827129917296, 6.152827129917296, 5.967801032595426, 6.688361152719963, 6.499757953870079, 7.147645049231036, 6.269068798978173, 5.795827287733319, 7.763850957907103, 8.842235184661279, 10.70955390966174, 10.253381398559583, 10.289079124652257, 10.61275302195459, 10.253824544219038, 8.936636904224853, 8.096805579592816, 8.53250168074744, 6.251780121683225), xaxis = "x1", yaxis = "y1", hoverinfo = "none" ) trace8 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(6.091910674470379, 5.653453297398631, 5.653453297398631, 6.089139963357226, 5.9486464351315425, 5.315030967742787, 5.428347031790048, 4.917370775625101, 5.938579346561953, 6.115388127449281, 6.840845496233721, 6.9687074180621575, 6.270627198237262, 6.424901361736358, 5.816700315709159, 5.597837387083867, 5.518729927342511, 5.7913733084034735, 5.764505026317195, 5.797684850119426, 9.635060554057423, 9.487490969910198, 10.435030148793878, 10.430089234672511, 9.53861603762595, 10.083368181492288, 9.730176605806932, 9.737041909809973, 9.738126830800788, 9.852111690160864, 9.496919944506248, 9.446230196752007, 9.724199965796656, 9.908262191596195, 9.998162556250623, 9.007295500494847, 9.418937731158284, 9.373642597138211, 9.38170956766637, 9.330582392309491, 11.768626803522167, 11.113963792858424, 11.916269269958804, 11.167369139798279, 11.547980330608075, 13.436828028730172, 13.436828028730172, 13.736208000030123, 13.972454013052541, 13.32658937087535, 13.561501178808827, 12.823247488315364, 13.987304683426505, 14.957788037621652, 17.133436226785783, 16.522651226285728, 14.958349500694329, 15.529012236303727, 14.5137725766308, 13.653798507906522, 13.706701671782511, 14.4690299284109, 15.987702721733406, 15.652619995821297, 16.714523794511585, 15.491363223543248, 17.721810994884148, 17.69878507970792, 17.516826281303327, 18.25244396508219, 16.901026209290386, 16.901026209290386, 16.901026209290386, 17.193249576596394, 15.799776641722712, 18.564688302613227, 19.412284282681444, 18.434867821246012, 15.934233013780144, 18.00060818219369), xaxis = "x1", yaxis = "y1", hoverinfo = "none" ) trace9 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(7.221909168924042, 6.319316793397348, 6.38089086545596, 7.462532393370505, 7.673647404667244, 8.171999469775265, 8.538754066149755, 8.45172019031752, 8.80081407006046, 8.53759168305449, 8.50725326034064, 8.16364484398069, 7.965293674079279, 8.257282719004548, 7.0943046284537274, 6.234502453382108, 6.151946848376044, 5.850655199473178, 5.281410136124686, 6.20779853337377, 5.701189021869981, 5.776261790513974, 5.9363212343693315, 6.146530550718024, 6.146530550718024, 5.915022665007832, 6.041144036508941, 5.663436302957803, 5.239301900873082, 5.081691752793011, 5.73263574849957, 5.693179425364805, 4.7832923172803445, 4.961365427961782, 5.633423257991327, 5.358361305818669, 5.707178719966364, 6.116291514911803, 4.772201198091347, 5.776066783659866, 4.883776339624333, 4.202362040907982, 4.202362040907982, 4.383073365244872, 5.004389772643526, 5.118041579359446, 5.245581806141913, 5.26117014872745, 5.445309069741254, 5.445309069741254, 7.157503399122827, 6.632670018918884, 8.15457679274883, 8.72772762339175, 6.242169102983772, 5.732201954797349, 6.063181633581255, 6.131218013946141, 12.021436715190386, 11.379876346697136, 11.49265419330836, 11.460306577303694, 12.325085277563545, 11.854476165616184, 10.239173793544827, 10.45145100428081, 10.813193560354469, 10.582900307994636, 10.501074102518327, 11.311937707134312, 11.311937707134312, 11.299680953379076, 11.299680953379076, 11.333491612764474, 10.486894832999695, 9.022619867174566, 9.000042020309332, 8.507914389686908, 7.909283526814258, 7.823814314634091), xaxis = "x1", yaxis = "y1", hoverinfo = "none" ) trace10 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(11.469451457515676, 11.393564639207753, 11.393564639207753, 11.88337771024484, 11.049524742111418, 11.116880107324608, 11.42199880362141, 10.451571330667143, 11.547030541323776, 12.02216622250219, 11.551227607577259, 10.967295813708322, 10.698127860603293, 10.698127860603293, 10.66890450607139, 10.806906082491572, 10.806906082491572, 10.36289043413633, 10.691220944903641, 10.713323995760994, 10.367179129125162, 11.403183856773076, 11.640738647056732, 11.245534970411837, 10.279276600109952, 9.621681238665754, 10.174232713267013, 10.174813837836076, 9.716068144613335, 9.784571583237387, 9.601786715510015, 10.088870405728821, 9.711723648203323, 9.505496280655983, 8.97834943359362, 9.799014053899151, 9.799014053899151, 9.183808580657281, 9.115576703468848, 9.115576703468848, 9.192434257097535, 8.699686673245123, 8.690630603259125, 10.218408370219674, 10.218408370219674, 10.087422231566194, 10.735895429114368, 9.612349345716023, 8.342145704864077, 8.370108306842805, 8.327546230410919, 8.280127762979998, 8.222732751974068, 8.002849879310743, 7.997591099126737, 7.5879751381407345, 7.5879751381407345, 8.238221669820227, 8.138402297599725, 9.906131934466751, 10.797655062481747, 10.736730869177098, 9.217630208754787, 10.998995772643573, 11.828643445780573, 10.59842174553417, 8.310291452459019, 8.975987209594354, 8.612693154877885, 8.612693154877885, 8.371829420902483, 8.371829420902483, 10.649324420662111, 10.699207903567808, 9.774169561072796, 9.548418641053502, 9.548418641053502, 8.759983768164687, 7.5002087002531805, 6.356049494154282), xaxis = "x1", yaxis = "y1", hoverinfo = "none" ) trace11 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(4.297353755170375, 3.982286406040521, 3.913715725536144, 3.9392586870625235, 3.598373017643473, 3.2021433128766796, 3.1934521423117124, 3.2392473474534134, 3.2392473474534134, 3.4608653610046267, 3.485966642794347, 3.50541531740848, 3.50541531740848, 3.355389453335742, 3.3673482897167752, 3.431316699933022, 3.4480217338456396, 3.275205381900525, 3.275205381900525, 3.20149438217316, 2.9843178497710956, 2.9843178497710956, 2.9843178497710956, 3.262733236951453, 3.4443587042905452, 3.3445637966650397, 3.4513418790680173, 3.717611204423728, 3.3364416542544806, 3.2304191350731863, 3.166639530665722, 3.1953986874048654, 3.223759638495507, 3.2116505765611985, 3.389298830314019, 3.389298830314019, 3.6385623140150547, 3.6385623140150547, 3.708454309125351, 3.754559457323439, 3.605880278584423, 3.727532509020306, 3.5517734086529202, 3.559379010220646, 3.6430320923667976, 4.191499983184826, 4.3432463112794775, 4.120900729441697, 4.033385732518588, 4.366303104674283, 4.534051534373339, 4.8315358919874285, 4.617498902326602, 4.507286099577572, 4.1340292565609795, 4.064208223192168, 3.8384340451045253, 4.111205705553093, 4.756074634601867, 4.479674283784285, 4.723645536812577, 4.726700936764681, 4.091745216218083, 3.979132533788344, 3.517432161495256, 3.6449660021588803, 3.7888820680688626, 5.046259735543249, 5.481263200779239, 6.351335396833448, 6.766525920033614, 7.668446214544934, 7.731887709666539, 7.272125691625689, 6.871348637116245, 5.661787644599325, 5.135110707207334, 5.135110707207334, 4.721213331729077, 4.721213331729077), xaxis = "x1", yaxis = "y1", hoverinfo = "none" ) trace12 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(10.389275404635203, 11.145309154428457, 10.970075364303357, 11.68713125683431, 11.68713125683431, 12.25078599064934, 11.319422612202759, 10.101159550486662, 9.723815980669198, 9.463424839030258, 9.31747631366484, 9.503609674482949, 6.719625606023121, 7.241152821393539, 7.132315733972118, 7.284580484871631, 7.222727545042993, 7.248698129169871, 7.6417768261587415, 7.586781318113742, 8.444405222624727, 8.776789565761927, 8.776789565761927, 8.779255581028881, 9.231389821456592, 9.227868503556476, 8.906763690117533, 8.230226727727803, 7.530671558326357, 7.530671558326357, 6.957539386706847, 6.957539386706847, 6.9608926658696495, 7.42063594260957, 7.131087201605878, 5.525948193423899, 5.046243928358235, 5.472109265150094, 5.209636612138112, 4.545088133627337, 5.549075104677755, 5.446422327648109, 5.739702562468375, 4.419296779732663, 4.101098760744793, 4.3411641863160595, 3.9335371035621547, 4.655371690774399, 4.269507462030004, 4.352431601621482, 5.010963948492774, 5.010963948492774, 4.984154774385134, 4.394001884315659, 5.063504110377735, 4.798111400828009, 3.9338933026886838, 4.814691012009264, 4.875703911677994, 4.637628499859058, 3.96468292880403, 3.5711335256051013, 3.73374536647926, 3.7213670396339973, 3.988134240975862, 3.8206167597928937, 4.196038156204764, 4.692696383845691, 4.840152648705501, 6.666583521924831, 6.77553119381809, 5.966685510473772, 5.931586975278946, 5.896568661108469, 4.888492052910486, 5.266235974489294, 5.23885676182156, 4.861470674392221, 5.352906067782395, 5.308408335480488), xaxis = "x1", yaxis = "y1", hoverinfo = "none" ) trace13 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(177.97874183716928, 177.97874183716928, 177.97874183716928, 168.49673757025118, 161.9401934443385, 166.72556654424056, 168.17147247907903, 167.03312139355324, 166.51935671245468, 183.748862711125, 185.1957973962041, 190.10792107798096, 184.57223377865733, 184.76531907358697, 183.3629287254059, 182.75545221497444, 178.68593998446443, 182.1772283020238, 184.8025791169091, 187.59526712725, 188.09761449583544, 187.62606049008818, 174.09922919605233, 174.09922919605233, 173.8773268172761, 171.78109825017754, 168.24401700827377, 171.43832215440992, 170.5589572259122, 187.36318481330068, 198.618351636063, 193.0819098617414, 196.3393876033611, 194.00016942919527, 176.51373932865667, 175.4421311263464, 176.89811141773896, 177.33734468866794, 179.9616899028076, 171.53097948243055, 169.27829482773106, 167.93504395311376, 161.7897442459394, 179.07911351203336, 177.2756809580872, 207.30516569759126, 199.22495567459242, 196.81065092155978, 199.44902401412833, 195.1798081525141, 183.59537335396, 185.46326113901796, 173.03276915045333, 171.57588847797422, 165.87043778427864, 164.97640797723443, 164.15544691891034, 168.7510397289378, 165.82529920609286, 155.0072201349709, 162.03489170434563, 153.1893550035757, 157.66774628181767, 178.03116092664743, 177.39636196130448, 177.39636196130448, 179.28138684981772, 175.12210425216455, 175.12210425216455, 174.72328112662586, 182.37514317426118, 182.04739577039456, 180.45720440172443, 183.61648482397126, 153.09943191667776, 152.5813677253982, 157.22466144131008, 135.25266462124796, 140.33867149722158, 139.28305523215002), xaxis = "x1", yaxis = "y2", hoverinfo = "none" ) trace14 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(181.6185009379056, 173.36219750538825, 174.79441554309707, 174.59884578433932, 178.2915992237062, 190.52573314410617, 190.53169002131358, 187.73233699524602, 187.73233699524602, 197.13673835035038, 191.03542542132934, 190.63237653780882, 196.67660155422908, 196.67660155422908, 194.9742463865132, 199.81966333881397, 199.81966333881397, 192.00232896289904, 190.99146272275166, 190.8555071123446, 190.44584498773668, 181.35254361389926, 181.00275527863752, 180.81352316596187, 184.8656920069248, 184.9018832761619, 182.947968836337, 191.50297820748926, 175.89431021807917, 176.54448042555035, 180.66898717424408, 175.31247619207852, 168.81419265988373, 163.63647604835103, 161.65828842589056, 161.65828842589056, 163.88927941877364, 164.09461456967463, 169.69105039977646, 169.35952368767656, 167.38652672011736, 167.38652672011736, 167.6697741205548, 182.8158395376457, 182.08805728093495, 181.58500049102165, 168.34520219275262, 172.88899340528093, 171.46912635826882, 171.46912635826882, 171.25106243874566, 171.25106243874566, 177.22890240097638, 171.21994322405826, 168.66312616371508, 167.7311343650216, 173.55113453515946, 171.8804989209168, 171.60900597875252, 171.60900597875252, 170.83668053395502, 170.7466623989262, 183.82830798636357, 189.8256386127266, 189.63977671426943, 163.17776271576616, 158.02336916629406, 160.82870084737002, 156.43655708706507, 158.4026367823606, 158.05104473775455, 151.27476550521564, 157.30670503967963, 168.6138827432271, 157.70837752980404, 164.41066493123336, 159.64397831457887, 159.640367002107, 159.01017459213352, 156.34542117067951), xaxis = "x1", yaxis = "y2", hoverinfo = "none" ) trace15 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(221.37129997225185, 221.37129997225185, 221.5954253020817, 222.16248077805912, 215.6125448016127, 231.0956251179099, 214.09991247022612, 212.82750277082985, 209.1508062847248, 209.1508062847248, 213.81351485837865, 220.85369301722213, 213.47114777407384, 210.21646457554266, 213.0481545913721, 206.7132752559508, 206.7132752559508, 208.97796684080689, 202.63004436457305, 210.12842383495322, 210.6389554940243, 211.87910804000677, 201.34732907177374, 201.5073487874309, 200.4467365105155, 184.55840013260544, 175.70465492840896, 175.70465492840896, 173.70852597894896, 173.70852597894896, 176.8528389067936, 176.8528389067936, 177.95257531472618, 182.13686241467258, 191.38060288857696, 190.8325383556866, 208.4342708273134, 201.1269054503567, 197.33503883617726, 198.510966558639, 199.5886348334206, 207.02824074855786, 203.26594623000926, 198.8234862948194, 203.5215009093928, 195.10830583198123, 197.5664475261205, 193.26057301105703, 196.06456542382108, 197.714414163875, 203.74138196863953, 201.47289528257582, 208.87649326735703, 192.10957679201516, 147.17491349117273, 174.75245480261333, 147.6759441786154, 147.6759441786154, 183.84981037357454, 167.27997464960472, 175.25533368808874, 175.25533368808874, 169.8483879878567, 169.67656954130408, 165.3899369781103, 164.8600401827756, 158.18411598018034, 160.53003877072413, 150.67008771026653, 150.67008771026653, 154.1981571167306, 147.54860271155485, 146.92610551301036, 146.92610551301036, 146.92610551301036, 127.63194129885763, 127.63194129885763, 126.41736851380689, 125.81059723805707, 138.8322044227157), xaxis = "x1", yaxis = "y2", hoverinfo = "none" ) trace16 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(169.92800123197773, 176.36173559521683, 177.00311639111519, 181.47777809193605, 177.94606570413947, 177.78539780837684, 182.0852830673726, 184.83227206870623, 184.55540670180366, 201.60510294297345, 201.1382177472097, 187.24167649603126, 187.07051920381235, 188.84596880603826, 177.05466341987326, 173.28456541621762, 173.16372808076227, 177.78549737299792, 171.9013440061814, 171.9147111060581, 172.23792714462564, 173.68859461826918, 172.49136801339142, 175.16991700130444, 172.57534264608498, 172.57534264608498, 174.64214008861637, 170.6139881274691, 170.9335781627277, 182.5191425586158, 189.5849322026556, 187.91647072776323, 186.810383837797, 189.74516260820423, 174.52063261004997, 167.56228642118566, 166.25362301570408, 158.69075236119545, 148.18573419284547, 149.35191026035673, 142.04530132674205, 143.73092867145155, 145.1284016432882, 140.4828571254551, 140.47841160366968, 142.05939060155686, 141.13395614016864, 144.7559130397833, 144.7559130397833, 137.8373751659843, 141.2226710279616, 138.8338533658225, 139.3411659175723, 137.62030516704672, 137.62030516704672, 145.67449069099945, 149.5803525947568, 140.29689418589115, 140.29689418589115, 146.81352587442584, 149.2750490147253, 146.4270613277151, 145.5886885105582, 146.8942492836156, 155.10479414161284, 155.109459455675, 145.80333970129723, 145.80333970129723, 145.80792954344938, 141.338341989438, 140.91481156457738, 145.41284395086674, 145.41284395086674, 149.66550226243447, 154.90792693365196, 148.1548397709175, 158.09420172140983, 145.0956658185207, 152.0523021413165, 150.57672781808614), xaxis = "x1", yaxis = "y2", hoverinfo = "none" ) trace17 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(185.4162121226103, 184.31068323780156, 192.91281703565522, 193.73322670597187, 204.1175344582465, 206.62990510390296, 205.82885161001042, 207.70030793503392, 207.95683578917817, 207.95683578917817, 209.6519722446015, 209.6519722446015, 210.4713243106535, 210.4713243106535, 210.4713243106535, 215.15937145971756, 197.0273659589191, 217.97657820715915, 217.97657820715915, 217.5568419912151, 217.5568419912151, 216.85331801860116, 216.84911948377604, 217.633743921304, 206.23791855461383, 206.23791855461383, 202.69673365179116, 202.69673365179116, 215.05707312237553, 210.853155700704, 212.99267361567422, 213.05840339403366, 213.05840339403366, 213.05840339403366, 205.7186680328722, 203.5260269323759, 209.5424071035417, 209.5424071035417, 200.17373273477202, 196.04008585275722, 196.04008585275722, 190.9140689168506, 190.9140689168506, 191.33047476143642, 187.33836551684038, 187.1654169580501, 187.1654169580501, 185.42880249461814, 187.9200437632169, 186.02588831560826, 181.23810142726387, 181.23810142726387, 181.32627789636518, 181.32627789636518, 181.32627789636518, 183.68872910096943, 178.87817809999046, 193.6222620774763, 193.6222620774763, 195.92878782819727, 195.92878782819727, 195.92878782819727, 192.4269190606378, 189.62086472496628, 189.58959033400018, 189.58959033400018, 189.58959033400018, 184.10616045165088, 184.10616045165088, 184.10616045165088, 181.96041568503418, 181.96041568503418, 180.75208901242587, 180.75208901242587, 185.48986471783078, 190.2297390398882, 185.87249799804124, 185.87249799804124, 185.87249799804124, 185.87249799804124), xaxis = "x1", yaxis = "y2", hoverinfo = "none" ) trace18 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(192.82383673432685, 187.3430721626834, 164.5531137289995, 156.29293705541866, 161.34063682351206, 161.08356789012512, 156.52507981450654, 133.36926146279637, 141.71351007470903, 134.02317593142786, 132.5163529713338, 138.552309971252, 135.83399920255678, 135.83399920255678, 155.1636615810687, 161.97097421131014, 160.33259665232754, 161.3700164685402, 160.3429120247355, 169.2408191068599, 169.87671146895025, 165.32583788825272, 167.05883043119547, 166.74918042186397, 180.1930041421142, 179.0648840107934, 163.62667677185382, 145.8558967594881, 154.22650067464303, 176.59483264879185, 174.57200097737316, 174.58610510293207, 157.3620983583003, 160.96624614999527, 169.3750064568738, 170.90813310290974, 171.58007525505536, 151.42589583871745, 159.29803245965132, 169.87566428477328, 173.30489238767484, 163.88162495780782, 164.2058675587174, 162.7677132554852, 165.15531339113056, 166.64039298868892, 171.26209138737664, 172.14340925410195, 172.59228333444304, 176.83560199914223, 169.66518701748072, 180.47640296340091, 195.3291312981804, 197.93363608058007, 197.42699327957197, 181.5958645679544, 181.5958645679544, 174.40789221080544, 161.5879920280197, 164.25571961644184, 162.0949751517123, 162.0949751517123, 168.13668266387953, 180.50880755216346, 184.79697844540686, 184.59730452275295, 188.09269468707387, 200.22707126708931, 195.43600933981236, 190.95916345428077, 203.93253250815096, 207.57941059996568, 219.17143041906866, 212.9714531913429, 224.87439157439275, 224.87439157439275, 230.37966920045648, 230.37966920045648, 219.74897473724852, 216.5656774571823), xaxis = "x1", yaxis = "y2", hoverinfo = "none" ) trace19 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(174.43938519455045, 169.9672672957496, 174.38149713803054, 177.90971545571023, 178.1082240237028, 166.22850230889676, 160.2553064184401, 151.52462193521183, 159.17617777096828, 156.88162745603114, 160.5945650043441, 165.73274139992517, 168.44311558124238, 172.24572124603546, 169.24025189785414, 178.61003309147088, 175.54550088139368, 177.70632017883418, 184.68594177787688, 175.4747667405182, 166.1511156601884, 166.60735785454904, 166.60735785454904, 166.60735785454904, 153.78903323887877, 155.24205310811584, 173.65747057360574, 175.48554891047053, 189.7707274984319, 192.3044204848552, 192.53499154552645, 189.82660107690955, 185.5138574696939, 185.5138574696939, 185.5138574696939, 185.1306510382339, 190.31978280846593, 187.12561575088597, 188.32403157956168, 190.50540092614548, 183.8058626977279, 184.46127818081237, 190.14789666658987, 209.1178730075907, 207.40040099543862, 205.26570349568422, 204.83152705791258, 201.19022590270134, 204.9086260521874, 193.9079268338844, 190.92639889070963, 185.45710707396432, 189.1527885856584, 187.17224868018263, 170.13021816659565, 168.76231216183805, 161.82105100357606, 166.4347579624811, 177.3528649777194, 177.4292821957108, 182.5768655552398, 183.828471227548, 183.828471227548, 189.90212598417156, 142.1999821163518, 145.24852828601442, 146.9295149642093, 152.27864687902598, 150.50523897159138, 157.07725811039091, 160.1498064007271, 147.8993952344534, 150.1882227487593, 153.58946441725658, 152.75324809005227, 156.567566284012, 139.85179868680112, 152.14591800165903, 141.24589731076745, 123.65028147034043), xaxis = "x1", yaxis = "y2", hoverinfo = "none" ) trace20 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(200.5252734902436, 199.04437150797796, 199.04437150797796, 202.8856973246995, 199.71629178629297, 188.21690529940915, 179.46568590088074, 168.5773403417848, 152.99074223306724, 153.59345256993697, 151.99987826941688, 150.49168258626415, 138.3922852538842, 136.52634758825647, 161.63817381009474, 162.38089691461113, 158.02402735190222, 163.92534869886137, 170.21765206832285, 166.1375105620498, 156.76443592105608, 166.12626316346413, 162.3670793540171, 169.59295701845636, 165.6004901713528, 153.67233167148572, 152.85850815194348, 152.65323681741833, 152.61556798059632, 151.85231525821908, 157.46709298453388, 160.59339980725258, 172.38381320611413, 170.49145152526094, 177.5586301606008, 163.5246585337762, 169.20776097152734, 170.00777775634918, 171.66629912823825, 178.07780206113964, 179.16886012711564, 185.46204157134298, 183.9395803871525, 176.13962846645958, 182.93407457183534, 183.8238305438427, 183.8238305438427, 182.99964275757395, 182.9274959108277, 188.32705355695128, 178.95837449732647, 179.2931650617421, 173.26747124950182, 169.18323056889994, 173.6690195481637, 173.58517110903446, 167.94339926677642, 168.37405561100266, 174.81985674984674, 170.48666594539117, 178.8465786291244, 183.27750694029953, 179.02187565698216, 178.81797010088195, 181.2395928914186, 178.40312272546902, 159.6801254287594, 167.02828210325612, 175.43155306137962, 172.81408751634882, 161.27085873463716, 161.27085873463716, 161.27085873463716, 162.71931416715134, 164.99985324597935, 188.31245767018606, 201.0144002167441, 206.75420765084664, 204.58013404376976, 202.06964623017777), xaxis = "x1", yaxis = "y2", hoverinfo = "none" ) trace21 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(191.58579465082906, 200.004606963048, 200.19354416219272, 207.26585979084672, 212.91987919291856, 200.12549156587403, 216.08439909177082, 212.600370337849, 195.34284956355904, 197.58889543052314, 200.5173369339287, 187.06511818757113, 188.5911412973719, 183.08955149359514, 176.9541363028976, 183.0143876205899, 185.01820613761706, 187.27278889131762, 164.09768320955843, 166.95712554665886, 157.36541263411436, 156.99758963337436, 156.6339485432711, 161.29808535917178, 161.29808535917178, 160.95723001057627, 160.73921574675532, 161.97487585436062, 168.25900766768274, 166.00627696806387, 161.26085889531032, 163.4760402511796, 159.7213983325144, 155.08797560527373, 163.52650644681492, 171.68900301185235, 170.61298987676668, 167.1949415473455, 167.95655679528699, 169.4872183874847, 155.7919008695663, 165.81490505427797, 165.81490505427797, 166.36867293961976, 186.3584662131259, 185.85001228464463, 186.87442871172433, 190.0140684141073, 191.3856094638315, 191.3856094638315, 199.998341330549, 201.76746705250207, 194.95331257295567, 196.0525244323075, 187.17702313217217, 177.10539538800563, 177.6108368317589, 177.44440206297972, 202.9736928944694, 191.95888941855807, 191.24016846048755, 190.32321340608956, 201.72200580429126, 186.08150764389694, 172.29762638248062, 174.32641762370577, 177.91035633689478, 175.28439254981265, 178.28711083056334, 156.5151536918076, 156.5151536918076, 158.03635202868412, 158.03635202868412, 166.02403640050298, 164.71625777652838, 144.6487938198064, 160.81791576190983, 171.48261978260646, 160.34224365130962, 159.94349777721095), xaxis = "x1", yaxis = "y2", hoverinfo = "none" ) trace22 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(163.3746800503193, 161.05766156473962, 161.05766156473962, 162.33650345023528, 155.9323813013398, 146.54682134453503, 155.7990617167249, 152.5909448461455, 155.82066827053112, 164.6893428981794, 169.3073861432124, 182.39264817944067, 181.63399709031404, 181.63399709031404, 182.53548326548787, 183.48901498581395, 183.48901498581395, 185.6162971778128, 183.6463865268572, 182.95426004026024, 192.91641795106153, 188.36289938873378, 189.05298010049643, 187.73434281498774, 187.2907468321154, 193.1200970645224, 194.99673939797452, 194.80718853671368, 194.28612595794064, 193.96046583887605, 195.25686345325357, 196.97515987387925, 194.50474817936242, 193.08927421854406, 199.96129283301977, 205.10763901593714, 205.10763901593714, 195.75901463360776, 208.81784939939539, 208.81784939939539, 204.2118621216813, 204.7983081938957, 210.09378305658726, 216.08703688451988, 216.08703688451988, 216.30015903506956, 224.41199225510798, 207.8043707179605, 210.26013846630076, 209.49510700613604, 206.68079717390202, 206.90849268528703, 213.69180526790268, 211.45044949221364, 206.55770441572596, 211.263859570628, 211.263859570628, 206.85746703662318, 207.68155959169422, 198.69181721775544, 197.7526609626125, 183.9015355001334, 177.122546504507, 189.15281350806524, 199.59232441075056, 189.00251792504886, 191.84884448706507, 197.06471227733343, 199.07380219952503, 199.07380219952503, 205.94074742012918, 205.94074742012918, 223.98169341402513, 250.21020998742952, 249.1695968673593, 245.1131835144398, 245.1131835144398, 271.572605756319, 232.0352104611654, 256.2530434110429), xaxis = "x1", yaxis = "y2", hoverinfo = "none" ) trace23 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(181.37641333186323, 181.6816132064248, 184.8562240854647, 181.92638548727265, 181.95071923644554, 186.8421579903023, 186.71503883999554, 180.29382548706127, 180.29382548706127, 179.08955266201113, 179.5447579457524, 179.4651953138181, 179.4651953138181, 180.026479469112, 180.43372441219844, 183.56273421106306, 190.59184685056633, 189.32458805879048, 189.32458805879048, 180.70016101078213, 178.57273513811168, 178.57273513811168, 178.57273513811168, 173.8727256166137, 178.6775389941955, 178.66190174862842, 182.5602236261851, 183.0273096872849, 187.83185585340564, 191.35747785584795, 189.96809870207352, 194.45662683947228, 208.04441113087182, 193.0395832347807, 204.54667245479732, 204.54667245479732, 209.5917579176613, 209.5917579176613, 208.8498524530548, 199.14153807257208, 211.09848922992194, 213.8389180213535, 209.45263668382674, 213.47202112724116, 215.448391367132, 208.47535730726423, 198.4039196314735, 205.5752188012082, 198.93526671617028, 221.14241985159543, 215.9863357960001, 198.25625501773547, 203.42202293211102, 203.31138367319613, 204.74401671375148, 205.10997537627077, 193.13066392828236, 172.45798407951037, 213.89589084886336, 187.07713384832232, 186.69907252781505, 180.91504397030872, 176.7166098473191, 172.21593290778046, 175.82803922340744, 184.8989221629144, 191.13932589652796, 193.4279972878573, 194.27204638058583, 202.2041006634556, 187.34809734174988, 182.74787508287847, 184.30202339902837, 174.3125900689191, 172.40214883187934, 180.21070952549556, 178.94489886413686, 178.94489886413686, 177.33661998324595, 177.33661998324595), xaxis = "x1", yaxis = "y2", hoverinfo = "none" ) trace24 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(186.50017782855477, 188.20936910937866, 188.47829972821359, 186.02838557936082, 186.02838557936082, 190.87921695288574, 180.88010528368352, 182.33030657255736, 194.09520035575838, 187.80129040883622, 192.21703137607486, 197.39745401549084, 203.8215632964005, 205.66581614682508, 211.96846500620978, 214.54167712936456, 217.2596288188077, 207.3540104286675, 239.62013829888556, 238.90343855055258, 232.92212819778783, 236.17773252974177, 236.17773252974177, 236.29740324590603, 231.7040500770444, 231.58767399573472, 234.26760337702683, 223.26341191469015, 232.08235595128247, 232.08235595128247, 231.97908254406067, 231.97908254406067, 230.51160328746136, 197.61841224498656, 199.00964370468319, 191.90566666405002, 193.7976266500084, 187.99508992062528, 186.4858982428439, 194.0310778035284, 193.26662924496586, 194.78049182677407, 196.38594033759082, 193.31476438503273, 198.62114333660648, 207.0084757453929, 225.42722922383274, 211.55087755731333, 212.48351145824714, 212.3751578289517, 214.32280095859875, 214.32280095859875, 217.73502296391445, 212.4956019064671, 207.5809376034361, 208.0268142132658, 214.07697873389986, 230.40493794983342, 234.4357923920394, 236.39030737258165, 263.6150212148964, 222.21126205191578, 245.87063602074056, 246.3158004202907, 244.13524567269434, 227.65813817266684, 207.30974834690036, 203.08002637986752, 218.62180684523932, 212.2618842327168, 206.1508807818704, 205.43781906330602, 231.88379766929435, 229.9632916576502, 289.4500278543178, 264.561837295533, 269.5945900402482, 271.5943212294187, 291.273893454657, 284.55934377389), xaxis = "x1", yaxis = "y2", hoverinfo = "none" ) trace25 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(228.75148539744225, 228.75148539744225, 228.75148539744225, 231.09283387087916, 231.22115298881334, 230.72360921211273, 231.4846826790434, 236.70761419459177, 240.15049748437107, 250.772345048188, 249.9844877903523, 262.1626376987787, 256.88962525482395, 256.9811547964261, 245.5972102916063, 245.34072794640412, 243.64754088473327, 244.65284863581252, 248.02486992331336, 244.20511943515368, 244.59594342762557, 245.32158624249664, 245.624620873278, 245.624620873278, 242.84631225838137, 246.9692665468853, 245.7426877701477, 250.79433013959942, 252.04657984197678, 262.01539461166385, 280.41661876344017, 261.4458585099327, 270.90530055774855, 284.0969872388839, 265.7057800781157, 266.6666195092299, 271.312147817472, 258.0350563888104, 261.255012826543, 237.31624253513024, 245.6219203065371, 249.7078190143941, 239.9368141411704, 234.5471972025297, 221.1518737729386, 255.2441270313821, 254.16420986314893, 256.6715361756819, 257.8782194632551, 249.08274299245744, 237.9275345366397, 240.377487819686, 219.98389795804795, 225.27995159630927, 232.49333129421444, 231.22806722015508, 243.78477814323807, 239.93985312443007, 244.32597420608994, 259.34540366278213, 258.83230589704783, 268.4681620989724, 265.35298493300627, 245.83373626838653, 254.0302550898611, 254.0302550898611, 261.4514443892557, 252.9619196852722, 252.9619196852722, 257.0692566663968, 258.1855464131529, 243.21939170286979, 245.00879881880945, 251.75791857631515, 232.4911725519534, 232.04698708606497, 232.99478397081913, 194.69833202540923, 196.6085534400986, 192.37133617066843), xaxis = "x1", yaxis = "y3", hoverinfo = "none" ) trace26 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(208.28570842522765, 211.5019482742755, 208.67634999707684, 208.52226720206235, 213.44144363159208, 208.94068460267266, 208.71830486430227, 215.51612933890547, 215.51612933890547, 221.22702653446515, 217.3948828638439, 217.53368528599043, 219.18666712537473, 219.18666712537473, 224.32453893537644, 222.81201225598954, 222.81201225598954, 220.87529945476294, 221.4391968336359, 207.20016875865724, 206.1159400259218, 213.6181525699324, 208.2124395056324, 209.33991071100957, 210.99586650153674, 209.57434401847934, 213.8725458365396, 204.78438822783082, 213.21320252647538, 213.85380084195413, 214.2766681617935, 220.9911923971052, 212.86470408296518, 214.6823743475372, 212.71141590881572, 212.71141590881572, 214.99757862776138, 215.08373311394428, 213.8487371846523, 214.65053526165124, 218.6750539859301, 218.6750539859301, 219.1553157733109, 226.9780291337863, 230.87326517513628, 220.99003639154884, 199.3936953774118, 213.20821703087444, 212.74473405758908, 212.74473405758908, 214.88114064139504, 214.88114064139504, 213.55302213766538, 215.38520014464248, 213.5912439875416, 213.5082724926599, 206.56141345342309, 207.0060641213308, 210.83688612662164, 210.83688612662164, 208.86674524408912, 208.8577724363921, 225.06816492788062, 225.83297450267784, 225.62856423131515, 224.6024138296286, 215.2147564911158, 210.09431687606883, 205.4202178988156, 205.14148856171008, 212.74316256882753, 200.7569292594222, 203.37996705444496, 204.86768106047003, 200.741208845559, 199.72778495858861, 204.9604618332568, 204.67713205815363, 198.13204792496293, 181.66059365589336), xaxis = "x1", yaxis = "y3", hoverinfo = "none" ) trace27 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(289.80981276909887, 289.80981276909887, 306.74540529449257, 308.1404362279032, 301.20686758511357, 318.8601435170532, 295.01796264707656, 294.8806173654871, 296.13378648506193, 296.13378648506193, 296.60232020369386, 309.545678962685, 299.5498474340642, 295.079676445286, 302.3368461702478, 296.95607207706246, 296.95607207706246, 297.0232712696947, 282.9483709279193, 287.4668387570082, 288.2702840041967, 290.92729396555694, 284.6241294693087, 288.48038638225, 289.9332804725807, 282.1825570536738, 281.3383748864063, 281.3383748864063, 273.42874265036625, 273.42874265036625, 270.23908812954426, 270.23908812954426, 268.89244793297905, 270.0620181421631, 283.9912595442558, 242.21687802804124, 241.1792912063045, 240.042718723988, 231.79848771789813, 234.73147617904124, 223.30228166978586, 219.39883475894885, 211.24100464167304, 222.7837757629564, 231.53034616298123, 228.1570091153564, 228.5937981773157, 228.25806593868364, 236.9420239277879, 244.07064149160618, 245.29110723763213, 239.99799519227753, 242.1462114688374, 231.74245333754232, 197.06056832349753, 223.37140935915366, 197.5431146928989, 197.5431146928989, 215.73296442301847, 212.6528812742041, 225.16753775197864, 225.16753775197864, 229.4382381249005, 228.68830862078312, 225.71705664613557, 227.91063995716115, 230.1473101703222, 205.12004520924899, 183.03400594815875, 183.03400594815875, 187.42095640877096, 200.1033590910513, 199.93141821923047, 199.93141821923047, 199.93141821923047, 196.7115267516923, 196.7115267516923, 199.3961238991528, 198.5408615696538, 205.07741387434203), xaxis = "x1", yaxis = "y3", hoverinfo = "none" ) trace28 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(233.82367263527289, 230.83617868755184, 231.55790689359966, 227.41074293000798, 232.57234027402288, 234.0727587803379, 240.69789867148285, 239.3717749058365, 235.97837950182017, 242.03496721303392, 241.4834245170269, 220.30360582253508, 220.60999088345008, 226.8655630671997, 212.15097693497708, 231.90377038915946, 231.80833050396612, 242.75510959655486, 240.84861116386725, 240.77931543296205, 242.666968000073, 243.97100131962702, 242.22736169751497, 233.72222058392168, 230.9540747408494, 230.9540747408494, 231.91163888515703, 229.66046484069597, 229.91308739416635, 247.82657627818193, 237.38358476690527, 238.47326084614747, 245.5701735761143, 247.06893615556885, 241.49826184945144, 232.32614779316734, 230.9344269511172, 221.21766880653374, 212.94651654889097, 213.9513325652599, 214.4085250323851, 218.88172178752527, 218.63483888062282, 212.1444581699388, 212.43136373464068, 227.27810238633688, 226.8083243048032, 223.78142756044764, 223.78142756044764, 220.88255006893817, 220.58625127420544, 225.00609989054817, 224.85208920991656, 217.82799458363485, 217.82799458363485, 224.6524947908212, 229.58573098810524, 224.9465638462172, 224.9465638462172, 225.58124312602666, 225.7383586503027, 218.79521886523696, 218.8549754636715, 224.14029656021165, 233.67072156397495, 233.7187644013789, 229.5392528773957, 229.5392528773957, 229.5936380665717, 223.87536857628533, 225.43577204107902, 222.39016841431032, 222.39016841431032, 220.79171592754744, 207.0916999270053, 196.89471257886993, 205.12603628499414, 217.6323625748215, 226.1082960733861, 225.19978402338617), xaxis = "x1", yaxis = "y3", hoverinfo = "none" ) trace29 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(235.49615322841703, 235.39611406211355, 219.06987606808013, 218.5754492510713, 216.3213550532339, 220.60732097869226, 220.8218538814436, 222.6688838692185, 222.23608007304423, 222.23608007304423, 226.0429675980315, 226.0429675980315, 226.94219163527018, 226.94219163527018, 226.94219163527018, 230.1562429884894, 249.87790576855252, 257.52535995297507, 257.52535995297507, 256.4275007150223, 256.4275007150223, 256.3109391960573, 257.0064778296211, 258.7655638130629, 248.39777351281543, 248.39777351281543, 251.29906200407606, 251.29906200407606, 241.59588783841463, 240.09106901792106, 239.60514202964674, 240.87848217863237, 240.87848217863237, 240.87848217863237, 249.5011771949972, 265.65464807053894, 264.16071800084586, 264.16071800084586, 260.1485383413618, 256.67463675015426, 256.67463675015426, 257.4005668393213, 257.4005668393213, 257.6458945820151, 261.5328347448252, 261.13518890299287, 261.13518890299287, 254.83061110599022, 266.01802200221493, 256.5745116657031, 252.1217598712912, 252.1217598712912, 256.39916442380166, 256.39916442380166, 256.39916442380166, 256.4136393682302, 248.3250309076592, 245.2876137542306, 245.2876137542306, 244.58663455433987, 244.58663455433987, 244.58663455433987, 241.4275938384777, 238.36224641867196, 235.24077246326812, 235.24077246326812, 235.24077246326812, 238.70588989975667, 238.70588989975667, 238.70588989975667, 247.72996789485975, 247.72996789485975, 247.02901453623053, 247.02901453623053, 248.32815688850036, 252.57631196224858, 250.7030198683606, 250.7030198683606, 250.7030198683606, 250.7030198683606), xaxis = "x1", yaxis = "y3", hoverinfo = "none" ) trace30 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(246.2783976846299, 247.90308592024743, 252.37885433992398, 251.1628317477545, 249.47496508948237, 245.62947915055574, 237.74266743257468, 215.74729660396275, 214.34377190470835, 208.41327896840372, 208.26200937931864, 211.7528430346129, 210.60499916757274, 210.60499916757274, 231.92615040198467, 223.60750540505944, 227.11142614699645, 228.9193593789374, 227.12174482600528, 228.53296138802483, 233.93829625869523, 233.90004730694008, 230.8064246972504, 230.9032772093476, 245.60398102185096, 248.79214525372342, 226.56247714310064, 237.9421901478533, 242.01696206623365, 283.4069175922466, 280.9821110583819, 277.1063693767029, 253.98514169661337, 256.4743462519646, 249.08710120579414, 253.53777273043448, 252.87734774179026, 248.14015079985492, 241.65102464889927, 267.018942882202, 258.10483353970864, 244.52147015378392, 244.3197381830446, 242.8027879762901, 245.37090881748415, 246.91446631926064, 247.82158655094253, 245.79836182338192, 244.1936097285662, 249.1056959896854, 253.21521468591789, 254.26110274686962, 271.2540086116679, 264.2345592633212, 261.1203901245385, 260.18026833756164, 260.18026833756164, 240.27930804179687, 227.6548858617366, 219.07335013030013, 231.0206523401881, 231.0206523401881, 230.98568423133977, 236.18982771909901, 239.61515054061297, 242.88317164814538, 244.1252476145707, 261.3297770582929, 257.82660103851316, 246.58609135084026, 248.18280899684544, 245.55063756998786, 241.9226670537054, 250.73127165113215, 266.34252402646973, 266.34252402646973, 264.39265351332193, 264.39265351332193, 257.0579466106971, 247.5096090895857), xaxis = "x1", yaxis = "y3", hoverinfo = "none" ) trace31 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(208.27342876616643, 218.95013110975884, 218.74631424483866, 214.3543178943715, 211.96617937662637, 197.36441340411506, 198.98437356055575, 199.96958578855532, 209.34991053058357, 208.5588978143362, 210.55718957015057, 215.83759143553203, 216.39693588625886, 217.97059047947036, 207.3410166150154, 219.1121937575058, 216.68072474146368, 216.59876290802055, 222.8698324540939, 225.7069960495942, 208.1156757969384, 216.32544055251944, 216.32544055251944, 216.32544055251944, 207.97905226118712, 196.72183684518572, 213.44414484916578, 211.7558626831881, 225.0395253047893, 224.15512470816725, 223.54965129807368, 218.71650640643594, 210.07887354322594, 210.07887354322594, 210.07887354322594, 210.09457439730363, 214.41949144287784, 209.00093965069934, 207.54098796209388, 209.81839415276505, 197.079230736641, 193.87741984008403, 215.1789299676292, 242.06983374445602, 242.4508065098162, 238.9672640952658, 238.5798653052771, 228.93703519516197, 240.67957565532248, 233.3860730005122, 269.239187240916, 254.95507877869883, 263.5342463972916, 266.6421072176214, 245.2484401406269, 245.48543950239372, 218.66097795344703, 218.27354327565143, 219.59318426457628, 219.8953372385841, 220.85952419265377, 220.62756206287395, 220.62756206287395, 229.5078136767065, 179.51023965825738, 182.2055097060551, 174.1070506929384, 195.14259192644113, 189.35518304649236, 185.22442208958063, 207.72285636460475, 188.4142185786835, 191.1192624059827, 196.01182477735412, 193.65026811238724, 201.06859056082519, 197.19945085924974, 209.6042907655479, 204.16676608089585, 175.73381940952584), xaxis = "x1", yaxis = "y3", hoverinfo = "none" ) trace32 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(277.55409663036687, 275.14895942310056, 275.14895942310056, 282.51866159217565, 291.60165458298553, 263.9048154363731, 267.47199375414846, 250.51688266970527, 253.6799335296869, 253.13770642288125, 238.46327458126103, 242.37864832114673, 248.82927317509646, 243.7710644995074, 261.7161279447602, 263.48444312203134, 256.8599008911663, 260.0359162823517, 252.37842944725284, 253.1693722364187, 246.9271987982754, 270.75528554253765, 253.0320395694398, 243.5670734352226, 245.81029258695884, 244.51246493706662, 237.16565298975146, 236.66964286963332, 236.64850993273865, 236.99171588979038, 240.6768006134359, 243.04073453228906, 230.0521251323351, 230.22889771041085, 236.10064959580066, 230.27257519619522, 233.02169085045838, 234.53037735205612, 237.00297010338022, 244.2866584435237, 239.4126919017381, 255.16555376936105, 257.17903418986975, 244.64630185637887, 251.90540590867985, 231.7400038923332, 231.7400038923332, 252.19612397701854, 253.8725269641463, 246.52968275196284, 234.937000395869, 225.70386325447217, 224.78059564951215, 233.63971428611313, 235.20539522469375, 241.17362162283672, 242.69705697547775, 243.5579108976301, 245.59691795545, 244.12695937524717, 222.00277810514956, 223.25883112661924, 226.8541871128334, 227.4124128901363, 223.68750438105516, 227.90627877200805, 247.27553764358805, 258.3574433490019, 266.69138806490326, 264.21130971546415, 252.0232731672964, 252.0232731672964, 252.0232731672964, 255.04954147748947, 256.4345005696852, 295.22597654073024, 290.32827316733176, 293.5741416994508, 272.1064643374548, 278.6522776269109), xaxis = "x1", yaxis = "y3", hoverinfo = "none" ) trace33 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(230.5888117494939, 229.13326190106127, 231.28041668072504, 241.9019197217476, 254.2147226016698, 240.27025105281876, 250.44215360008556, 248.60476095649057, 234.9180893615277, 237.11664240670922, 237.6878422111253, 225.3873217339667, 225.88421329315585, 219.7390020501847, 221.4871830896158, 237.79367793637306, 238.84973106588868, 241.1589368901959, 216.98272641931726, 219.0031364631165, 203.32847162434717, 200.14813587056292, 201.8565141658139, 209.5689673534134, 209.5689673534134, 211.30865153833037, 211.75871474083934, 212.00927992813862, 208.37526100269673, 206.5416631732539, 208.59481044769944, 210.65243166386384, 220.89077502777894, 232.38852605701243, 243.36496463638628, 251.34332482644945, 248.59784121356915, 256.2333729345049, 273.7795199093288, 265.1673197793303, 277.98550170625896, 259.85774968032797, 259.85774968032797, 262.08880626445284, 295.4880595295744, 293.12953016348484, 266.2031610796005, 264.879798802171, 260.2769354151202, 260.2769354151202, 251.81965840179504, 258.52784890450243, 261.4302069658207, 258.79178855020746, 239.15082322621632, 237.14741288727316, 235.95215919872606, 235.59722889676235, 222.45381436927227, 223.4033857501488, 221.63895915374917, 225.4718112991101, 213.23413119563395, 216.18133919005953, 228.26320842201667, 227.3387446500618, 224.0016952177558, 227.36096944195046, 224.8542218006367, 216.4860438136473, 216.4860438136473, 220.00808748766124, 220.00808748766124, 229.1491505775997, 231.12026920312633, 224.74279684472174, 259.38576360886765, 269.1942497540208, 259.1222576942892, 258.2858348840621), xaxis = "x1", yaxis = "y3", hoverinfo = "none" ) trace34 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(295.8763686771797, 284.6992346380921, 284.6992346380921, 283.7332136646331, 268.72816910736367, 288.0905769749678, 276.1635656331364, 280.69716957814984, 275.58796923772445, 301.1827229577116, 295.3148808045357, 305.62383420808493, 305.1455069413304, 305.1455069413304, 282.95993649820616, 302.07150479883694, 302.07150479883694, 298.43526949721974, 292.6824696792279, 291.2152243715368, 302.8029366933196, 310.65979810288377, 318.7679632153079, 305.15167627092404, 287.3006457853435, 303.38298982048747, 312.812220465931, 312.435521354289, 294.2217329483325, 294.6558987712807, 297.9964638605378, 308.8959196030193, 301.55584057638606, 299.0789812694214, 302.40751194886184, 308.40985147410254, 308.40985147410254, 291.0668508020941, 316.4932542124405, 316.4932542124405, 303.74755240540867, 309.7160655872568, 314.8445440010641, 317.0447234659045, 317.0447234659045, 306.3782545649715, 326.51145674397327, 286.385024572869, 314.9460009332007, 313.3983379083028, 308.68779016977203, 308.170694679128, 318.1380445988541, 315.45422864008395, 315.1462761954721, 308.5021137651482, 308.5021137651482, 321.5873864374594, 318.8281690701315, 284.16482892358124, 316.1098927625361, 286.28576332717444, 283.9127618480415, 283.26864358561664, 289.2347923075306, 279.85364989423766, 307.8881658138896, 287.6947095938183, 293.6738534558853, 293.6738534558853, 300.8548922500692, 300.8548922500692, 311.17221296137296, 349.468446790534, 339.408015785264, 335.8384916277035, 335.8384916277035, 377.2829742135732, 311.52030724151206, 351.117977910072), xaxis = "x1", yaxis = "y3", hoverinfo = "none" ) trace35 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(283.2263465865313, 296.20615843859315, 281.9778198278235, 280.2078478318864, 292.6738633750852, 282.8335822738917, 282.92798501569337, 294.1275924577293, 294.1275924577293, 288.9141267663251, 288.63684949288995, 285.13529341653987, 285.13529341653987, 287.7863303814952, 288.3570212062582, 284.4250592474599, 294.1691344398078, 303.8873110383901, 303.8873110383901, 286.4077108985378, 290.46418670606164, 290.46418670606164, 290.46418670606164, 281.63065511439555, 283.85595934007785, 284.7193951712478, 291.51128415837314, 271.33808473433226, 287.6263182140212, 295.91848599825283, 296.66692115294995, 299.65334373414225, 314.7744420438592, 297.4845751026906, 304.51200199966377, 304.51200199966377, 319.00697793874633, 319.00697793874633, 315.8776751913633, 298.9179672763247, 306.04346142626235, 315.6367645704129, 295.3621978204828, 295.4169660213819, 299.2614776925092, 280.5242812806403, 271.4058831444382, 277.9670365658707, 273.7935149292029, 289.10924917935245, 285.42289321105096, 269.94031447050355, 270.3014113416927, 271.6680441327667, 273.5704779528286, 272.82902468799267, 262.8219037946672, 277.6441254551127, 317.42664557201533, 284.2255778949134, 277.6534799688966, 280.01195172644185, 260.5537444157368, 268.72115397982327, 276.45926487216565, 278.8358379350895, 285.9161271418868, 284.3093480205832, 283.627934812551, 295.13944314582557, 293.96710511119744, 277.0154105111492, 298.860880210875, 278.64031970844815, 275.3243228067948, 297.12370919720246, 269.51585587395414, 269.51585587395414, 276.4683126616207, 276.4683126616207), xaxis = "x1", yaxis = "y3", hoverinfo = "none" ) trace36 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(200.69076619201996, 192.96650102558488, 191.68174690315507, 198.36092229614565, 198.36092229614565, 191.51873685470892, 198.56568456496694, 190.10882293696798, 184.71813220402348, 186.6080168036023, 196.23735688016376, 192.06916811081902, 209.50006243231186, 208.5731783808649, 204.60920872227896, 223.40309717464467, 219.12303963948727, 216.3214522433086, 218.33747304292635, 219.11855315467938, 217.34787185964228, 213.96573908605694, 213.96573908605694, 213.95714284965953, 214.9240701163767, 215.14161999012913, 214.87670990219985, 213.0931664661448, 209.93506920556592, 209.93506920556592, 209.2759184614094, 209.2759184614094, 210.0007060947886, 210.19044586681878, 213.09708272344693, 208.59116439109258, 202.91615601150323, 203.06722040452945, 213.19114836748565, 214.32167906475894, 210.31686295681124, 208.47734722771014, 197.1991769398315, 186.6752300867943, 188.99881943934534, 179.22616862838782, 197.47922289781175, 198.07832248425842, 196.67674200006869, 198.26176402354986, 192.36824146718868, 192.36824146718868, 208.7910032479766, 213.36095501950462, 222.13268587883672, 228.96796700056973, 198.96844814119348, 265.5530622560696, 267.14483041836263, 265.0895017743137, 278.91573143150885, 248.2092053141232, 248.39813325066402, 248.07968653154853, 247.8760273600025, 247.017916651209, 231.12230052096578, 239.45324560906505, 247.51038398098333, 256.33951220138226, 248.6988656316352, 253.56193902191015, 262.1188139483024, 266.5562195766211, 308.1041257420291, 302.21082780894005, 305.74184687743116, 308.4130287273648, 324.9735781537736, 320.0622313791275), xaxis = "x1", yaxis = "y3", hoverinfo = "none" ) trace37 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.6596084988741511, 0.6596084988741511, 0.6596084988741511, 0.659681885963663, 0.6493227369918627, 0.6502536174534507, 0.64941632245761, 0.6578786865620203, 0.6626259212485487, 0.6658656098699016, 0.6640823652740737, 0.6748701951548379, 0.6745149889871017, 0.6743132535030293, 0.6639657051111981, 0.6641585092009313, 0.6598445078841357, 0.6585646788571491, 0.6614395577039216, 0.6432610607336653, 0.6461407475808025, 0.6543737573402463, 0.6650304523410908, 0.6650304523410908, 0.6627973240070371, 0.6693165940212772, 0.6644172801734158, 0.6677886170554772, 0.6722647685688635, 0.6782106043089992, 0.6911886700836171, 0.6756244088349049, 0.6851865961842658, 0.7074006416662172, 0.69845261468982, 0.6994308809685372, 0.7037825414264921, 0.6875469584867981, 0.6896393091305137, 0.6713684883219553, 0.6803073063595254, 0.6840273746903098, 0.6680569397753853, 0.6704110457456381, 0.6450509700074469, 0.6711559643042976, 0.6666176114305493, 0.6758087701464772, 0.6746746221903716, 0.6650002250408085, 0.663038891185887, 0.6664172060945034, 0.6489411891247804, 0.6633896770533187, 0.6783803668111282, 0.6779954052576279, 0.703120556466965, 0.6922695013409982, 0.7041231272079227, 0.7407617090265148, 0.7355779020764914, 0.7664390691476703, 0.7536473458300412, 0.6947309511617006, 0.7051072248699671, 0.7051072248699671, 0.7180434857115895, 0.7060523242430604, 0.7060523242430604, 0.71289892244496, 0.7085108836571339, 0.67503112590623, 0.6800977813513158, 0.684838106864737, 0.6895676782925494, 0.6892854982355778, 0.6858920128887874, 0.6453061538433488, 0.6534201119984377, 0.650417544003017), xaxis = "x1", yaxis = "y4", hoverinfo = "none" ) trace38 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.6304547652839452, 0.6381576656293036, 0.6313308514695144, 0.6303451072611258, 0.6344587925823556, 0.6212871688702442, 0.6209689102450943, 0.6387074519754227, 0.6387074519754227, 0.6366058577652464, 0.6308759271386244, 0.6310549934625569, 0.6264003038508297, 0.6264003038508297, 0.6387798781102845, 0.6286889079973399, 0.6286889079973399, 0.6291327702130667, 0.6306844587252922, 0.6100039727472887, 0.6085211954186903, 0.6288585716414282, 0.6163842494724797, 0.6180667408721904, 0.6170971608373517, 0.6148839060474257, 0.6300926706325121, 0.6000014926703289, 0.6268062535666903, 0.6259522844440529, 0.6246638023498717, 0.6371615575753456, 0.6238945535265042, 0.6360839593936595, 0.6327297242789234, 0.6327297242789234, 0.6353814025228778, 0.6353660570652158, 0.6274572724984416, 0.632594278961107, 0.6359138618194714, 0.6359138618194714, 0.6378740881389997, 0.63366652846222, 0.6396432875172084, 0.6362036135980983, 0.6172988290011467, 0.633209113312525, 0.6318377174376397, 0.6318377174376397, 0.6349821558273948, 0.6349821558273948, 0.6293024482884058, 0.6397594894123431, 0.6372936577806045, 0.6385399546599703, 0.627715504866463, 0.6308517765398298, 0.636605223162598, 0.636605223162598, 0.6335026279748709, 0.6357834515553804, 0.6469217944534612, 0.6465042101258249, 0.6466580157237033, 0.6732234089379476, 0.6690510276155052, 0.6684536619839778, 0.670289639113488, 0.6652839987865997, 0.6637534731468956, 0.661868599357186, 0.6486311839200387, 0.640227485115539, 0.6429220695804647, 0.6237787709425746, 0.6322563747500852, 0.6316926759773234, 0.6270891069010351, 0.602864077993135), xaxis = "x1", yaxis = "y4", hoverinfo = "none" ) trace39 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.7140625924242854, 0.7140625924242854, 0.7405207950722201, 0.7418158627759714, 0.7380533345047141, 0.7460426687358661, 0.7287324051129603, 0.7302807599079342, 0.7385545150076391, 0.7385545150076391, 0.7392064112482813, 0.7556569214989703, 0.7448379575970844, 0.7390481944645321, 0.7483933273936887, 0.7432509171033959, 0.7432509171033959, 0.7435406581505998, 0.7252095159759333, 0.7255413995428962, 0.7265140595216713, 0.7335589462738691, 0.728471624374589, 0.7347201178518991, 0.7357910804609442, 0.7257677882963248, 0.7318707572266061, 0.7318707572266061, 0.7270964788784321, 0.7270964788784321, 0.71956931631416, 0.71956931631416, 0.7154937929498852, 0.7161398975185231, 0.7255921282782597, 0.6721563407412416, 0.6685283544785837, 0.6696112304071389, 0.6567754589260039, 0.6574630119452899, 0.6442065797887228, 0.6357957670813169, 0.6219872442396039, 0.6443591858620511, 0.6557965322505177, 0.6518797244377917, 0.6511622114708441, 0.6519964854981682, 0.6712094702173698, 0.6843164152594527, 0.6886713354546055, 0.676893557758803, 0.6769092819198478, 0.6722444194523868, 0.6525910197660715, 0.6656190571715217, 0.6449122034023755, 0.6449122034023755, 0.6727931469114685, 0.6959566095018589, 0.7050905270696309, 0.7050905270696309, 0.7061995355274544, 0.7000092252311825, 0.7059666826226401, 0.7048089069976341, 0.7074794648373087, 0.6573767974577632, 0.6600554697089849, 0.6600554697089849, 0.6562879244679062, 0.6682860011261014, 0.6690793851063431, 0.6690793851063431, 0.6690793851063431, 0.6805944329970061, 0.6805944329970061, 0.6825295049109995, 0.6826502913813933, 0.6783955894564272), xaxis = "x1", yaxis = "y4", hoverinfo = "none" ) trace40 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.6713609288023087, 0.663746436533522, 0.6632891684221058, 0.6480401788513634, 0.653779312258667, 0.6558414221480324, 0.6665533162263256, 0.6668238855350479, 0.6610171333967639, 0.6633470543497902, 0.6626871756827599, 0.6475688201797819, 0.6484951219766447, 0.648644316906134, 0.6313463980096536, 0.6642077690106902, 0.6637876274609323, 0.6848667351710438, 0.6846171050686176, 0.6844949692276514, 0.6876901791036971, 0.6887818106864558, 0.6858488758124301, 0.663092990518749, 0.671011962134387, 0.671011962134387, 0.6735209206052546, 0.6715250722634042, 0.6712677717133332, 0.6952464459282885, 0.6752874682135869, 0.6769129721245529, 0.7022770633237715, 0.7038350663984562, 0.7035209745555688, 0.6935546087817985, 0.6904092879238082, 0.66121056327874, 0.6547194121450572, 0.6569688952627988, 0.6593087126201213, 0.6665960396511978, 0.6654116158627658, 0.6577909184096814, 0.6583024282814056, 0.671380842068606, 0.6710488927571293, 0.6642877686603504, 0.6642877686603504, 0.6672691551514284, 0.6659384795129689, 0.6721867614640199, 0.6715006906367392, 0.6671761839445365, 0.6671761839445365, 0.6767729644471516, 0.6795033468976871, 0.6770543742266374, 0.6770543742266374, 0.6706613780581389, 0.6679132018364252, 0.6589056836580035, 0.6610593376840701, 0.672691267546351, 0.6822283272096472, 0.6822409838750767, 0.681485957172145, 0.681485957172145, 0.6815933486744519, 0.682722672144783, 0.6785717646207815, 0.6729916761747609, 0.6729916761747609, 0.6639871103273537, 0.6565435146187354, 0.6447113683301613, 0.6489712020826388, 0.70194746690628, 0.7012625675972809, 0.7030509880094788), xaxis = "x1", yaxis = "y4", hoverinfo = "none" ) trace41 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.666228402361723, 0.6667756854744411, 0.6428241280455746, 0.6404234581984235, 0.6313011538128475, 0.630980627430186, 0.6318699457791039, 0.6373264177089278, 0.6367750602987773, 0.6367750602987773, 0.6345547477234135, 0.6345547477234135, 0.6346126954151887, 0.6346126954151887, 0.6346126954151887, 0.6400694299939566, 0.6723118834755516, 0.6697262664932558, 0.6697262664932558, 0.6683633812678271, 0.6683633812678271, 0.6687014738172053, 0.6690771991107168, 0.6704250214941035, 0.667918150273678, 0.667918150273678, 0.6754883259591227, 0.6754883259591227, 0.6580116353361208, 0.6569928875870189, 0.6556503353097962, 0.656722945260456, 0.656722945260456, 0.656722945260456, 0.6715265360263365, 0.6977006570096969, 0.6941117488333406, 0.6941117488333406, 0.6976906587783231, 0.6948722496884673, 0.6948722496884673, 0.7047074612173831, 0.7047074612173831, 0.7035984993035269, 0.7106545111389677, 0.7101111816923581, 0.7101111816923581, 0.7001763513440368, 0.717675724986355, 0.7027739240167894, 0.6965489267327093, 0.6965489267327093, 0.7016476852772254, 0.7016476852772254, 0.7016476852772254, 0.7019788182242004, 0.6939765542618888, 0.6802607918039834, 0.6802607918039834, 0.6776764588564222, 0.6776764588564222, 0.6776764588564222, 0.6758736914455805, 0.6713742689400813, 0.6668178379799083, 0.6668178379799083, 0.6668178379799083, 0.6700306733058725, 0.6700306733058725, 0.6700306733058725, 0.6765852578156678, 0.6765852578156678, 0.6767750227312903, 0.6767750227312903, 0.6741039974687264, 0.6729243176927541, 0.672558968592414, 0.672558968592414, 0.672558968592414, 0.672558968592414), xaxis = "x1", yaxis = "y4", hoverinfo = "none" ) trace42 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.6887274480204105, 0.6963522387961781, 0.7142340324530413, 0.7184438936355331, 0.7112341200991057, 0.7038391747423198, 0.6904973143829455, 0.6552664580059339, 0.6451623056513616, 0.6420175044889793, 0.6425024982305361, 0.6469651135027534, 0.6456322678360485, 0.6456322678360485, 0.6668785094178293, 0.6352024420837435, 0.6480804640052517, 0.6547633060215897, 0.650118109285544, 0.6409770483228214, 0.6434820734473193, 0.6423446901934904, 0.6480138550829976, 0.6472816682018432, 0.6610869986267573, 0.6672848195745347, 0.6408884538218458, 0.667866592785639, 0.6718958176197255, 0.7174299607256853, 0.7166828696529186, 0.7083878352327835, 0.6931172371520488, 0.6942835305826591, 0.677322753190077, 0.6819407691526637, 0.6798358640506372, 0.6827092278244191, 0.6723785784125863, 0.693318554521077, 0.6740031301966308, 0.6685073298708377, 0.6689923805442776, 0.6652472778381557, 0.6666103314737388, 0.6675801105585057, 0.6721450555111173, 0.6681384761026441, 0.6682056695526948, 0.6700053832394923, 0.6720012500728152, 0.6720331104263619, 0.6709944898892023, 0.6676636017149552, 0.6672298644178182, 0.6766909665950724, 0.6766909665950724, 0.6349762503813917, 0.6280119507330889, 0.6144056388008909, 0.6401939166734839, 0.6401939166734839, 0.6226593493762893, 0.6147649390150477, 0.6243656560572586, 0.6252546427029745, 0.6312866148847653, 0.6443047235689414, 0.6469199383221668, 0.6462714417055961, 0.6352098048106102, 0.6255765944940853, 0.6184096714923366, 0.6465836017558856, 0.660481778592553, 0.660481778592553, 0.6506178842397439, 0.6506178842397439, 0.6564916686163212, 0.6371900795536496), xaxis = "x1", yaxis = "y4", hoverinfo = "none" ) trace43 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.6190620166641617, 0.6451276388529753, 0.6449985354029103, 0.6365790051569621, 0.6282727553803166, 0.6025422809320181, 0.6143782058973921, 0.6278467647481414, 0.6350908886873737, 0.6342922757508296, 0.632204908744276, 0.6343664612152419, 0.6321846212280023, 0.6311741798031723, 0.6007820222763276, 0.6299207082845066, 0.6294376872332811, 0.6275917900327088, 0.6287972834126766, 0.6352639751235355, 0.6027370540009883, 0.622997764909128, 0.622997764909128, 0.622997764909128, 0.6172090478582994, 0.5931234364237736, 0.6222043944661938, 0.6167620261033322, 0.6264619608106671, 0.6215724757477589, 0.6201305211242805, 0.6094324450814678, 0.5969531850697936, 0.5969531850697936, 0.5969531850697936, 0.5973765581970394, 0.6033856544522939, 0.6069044213834036, 0.6020501754434074, 0.6146725751686726, 0.594790783263594, 0.585266162588894, 0.6143485015712075, 0.6416203886421448, 0.6443772219514109, 0.6408389864771316, 0.6406753603984388, 0.6292176208815502, 0.6444037493333352, 0.6449882149376179, 0.7172101525882872, 0.6996335861379599, 0.7081405419135258, 0.7157051265893872, 0.7020541559257286, 0.7027899470080413, 0.6787750837579988, 0.6752731240515841, 0.6734542730399616, 0.6735308252973495, 0.6657876963347662, 0.6574041588593384, 0.6574041588593384, 0.6613857444693384, 0.6466068012232705, 0.6477042494998997, 0.6379476165078778, 0.6495450492773334, 0.6458106356985968, 0.6265732907977402, 0.6609410695438299, 0.6303761423364536, 0.6315657377651064, 0.6378474347810332, 0.6343738527882846, 0.6377278880904079, 0.6685647598527302, 0.6772703821509963, 0.6752624287142235, 0.6744773646737661), xaxis = "x1", yaxis = "y4", hoverinfo = "none" ) trace44 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.7108575887280554, 0.7072100228842776, 0.7072100228842776, 0.7118264175249751, 0.7258071044134657, 0.6958301973038215, 0.7085581526445972, 0.6860741347933116, 0.696715202666913, 0.696353299063855, 0.6755268237406021, 0.6822581391272688, 0.6961821617102453, 0.6881101266315368, 0.717494853505231, 0.7200060735777654, 0.7126341573927538, 0.7153253636278522, 0.7010877411357747, 0.7059087497384857, 0.6992498749090862, 0.7418325110014726, 0.7094290903298012, 0.684084704750064, 0.6946002603601618, 0.7017838192344664, 0.6922529527026633, 0.6915568509342955, 0.6915421638648332, 0.6966694970699371, 0.6985853175718351, 0.7015291743103591, 0.6614686813789034, 0.6632503200132029, 0.666200070060868, 0.6698021015789756, 0.6705999720475477, 0.6730798703806276, 0.6756978692884018, 0.684413758169175, 0.6683579458971884, 0.6876343188775931, 0.6884729830051622, 0.6755005772786864, 0.6808981593643859, 0.6455494820586832, 0.6455494820586832, 0.6797498836065792, 0.681774609787922, 0.6760790392998335, 0.6666509718303524, 0.6504870274925784, 0.6480290985809138, 0.6653064273049416, 0.6552550832076679, 0.6624461183818151, 0.661597759733285, 0.6581528256031168, 0.6698070110846569, 0.6768456212364397, 0.6268009526223401, 0.6240016419941334, 0.6262209742436163, 0.6280274932035991, 0.6160689810701234, 0.6297011387468934, 0.6682369962559178, 0.6644565130977429, 0.6695290253187929, 0.6656267421951415, 0.6619737027676896, 0.6619737027676896, 0.6619737027676896, 0.6634595701319197, 0.6710578723212673, 0.691711049693146, 0.6838768932782706, 0.6856887436871772, 0.6601833882375041, 0.6601524258905541), xaxis = "x1", yaxis = "y4", hoverinfo = "none" ) trace45 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.6366043140961175, 0.6302134851062097, 0.6310594634710324, 0.6460426771496962, 0.663013716091458, 0.6696195981014147, 0.6873381133489429, 0.6853518219471307, 0.6836517342383919, 0.6894261401982973, 0.6893806592841422, 0.6649363016506461, 0.6655630964858611, 0.6571666413684077, 0.660422818071638, 0.6880339228316137, 0.6871631207629763, 0.6912137455909257, 0.6661244436496548, 0.6559419640530803, 0.6355289752026999, 0.6326615086080555, 0.6352684134038781, 0.6452693646179987, 0.6452693646179987, 0.6474000116034028, 0.647914836696447, 0.6455583457980618, 0.6348584944016964, 0.6335525277486064, 0.640900147372483, 0.6421550089187223, 0.6549277413989921, 0.6759090702851576, 0.6802020308024198, 0.6868946841668159, 0.6856701433390229, 0.6979674527148252, 0.7122458232357418, 0.7041847393927425, 0.714007559050723, 0.6882538276201284, 0.6882538276201284, 0.6911585273383906, 0.7209859901190633, 0.7191548322049242, 0.6930983354556183, 0.6880935497701294, 0.6847186703594957, 0.6847186703594957, 0.666418399237057, 0.6743483372088187, 0.6813708369651196, 0.675218877088999, 0.6506974539164014, 0.659661046822322, 0.6585321284181361, 0.6579264758943799, 0.6034630468477262, 0.618661336564575, 0.6195115597221782, 0.6259018288371101, 0.5922421536091114, 0.6067926119667304, 0.6511249904077603, 0.6454614503164685, 0.6364004213642116, 0.64531279870307, 0.6412404716613566, 0.6373907451618065, 0.6373907451618065, 0.6471164092667658, 0.6471164092667658, 0.6567639455929146, 0.6576429477273636, 0.6727083468783457, 0.7027549686716076, 0.701881219759637, 0.7020022144153267, 0.7014731556792431), xaxis = "x1", yaxis = "y4", hoverinfo = "none" ) trace46 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.7684635711947023, 0.7512112906086854, 0.7512112906086854, 0.7441513385036688, 0.7263290918141999, 0.7595233392650417, 0.7323919894056397, 0.743600485689348, 0.7306831076012255, 0.7593086262299078, 0.7520350133847611, 0.7614794521178092, 0.7607756579072373, 0.7607756579072373, 0.7265742980072719, 0.7507320317899996, 0.7507320317899996, 0.7448309691512802, 0.7351703936001279, 0.733581747006387, 0.7362637423399714, 0.7499437636303585, 0.7581450529337636, 0.7445293204725435, 0.7286920004030798, 0.7482467836973408, 0.7602069411082508, 0.7597969944849357, 0.7361339140934957, 0.7367317347703942, 0.7405361130725816, 0.7500341763317233, 0.7432247400462846, 0.7409136194974368, 0.7425879260384034, 0.7486945560866973, 0.7486945560866973, 0.726492217379596, 0.7517455175395276, 0.7517455175395276, 0.7364184353954685, 0.7471085787155749, 0.7504861023347567, 0.7462938980057713, 0.7462938980057713, 0.7281800363296526, 0.7500850241365822, 0.7053167804614595, 0.742969695862771, 0.7414552681372708, 0.7369356962254415, 0.7362132578769207, 0.745088298783177, 0.7439086285959855, 0.7433630003237028, 0.7323773580256852, 0.7323773580256852, 0.7408006362089915, 0.7366824761878144, 0.7083357050090762, 0.7382154216467545, 0.7244282074669925, 0.7124033490697834, 0.7010249538696445, 0.6919973129548695, 0.6982700909331729, 0.7438139743400378, 0.7212706891112243, 0.730888422308207, 0.730888422308207, 0.7359712055946472, 0.7359712055946472, 0.7218720790729455, 0.7226312708074362, 0.7162414477014118, 0.7140778672650401, 0.7140778672650401, 0.7372226928805664, 0.7026330638547371, 0.7279985886719573), xaxis = "x1", yaxis = "y4", hoverinfo = "none" ) trace47 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.737954077404901, 0.7590542167316593, 0.7323926802098277, 0.7280932588059108, 0.7503893161186328, 0.7184623173579309, 0.7187173727046465, 0.7361737371983618, 0.7361737371983618, 0.7297847877600612, 0.7290398277986597, 0.7255098022616734, 0.7255098022616734, 0.7289939402636629, 0.7291723338115229, 0.7245983197629727, 0.7312701124038345, 0.744285341967677, 0.744285341967677, 0.730452363747616, 0.7371071407239913, 0.7371071407239913, 0.7371071407239913, 0.7240374287337076, 0.7227483235152743, 0.7235598355631463, 0.7279018578692138, 0.703037293288308, 0.7175932923083184, 0.7256926174879986, 0.7271221136591766, 0.7279582750665603, 0.7352071656525013, 0.7263787173490361, 0.7271061740075128, 0.7271061740075128, 0.7402448659892156, 0.7402448659892156, 0.736946904100787, 0.724029211965729, 0.7257834263656237, 0.7350610995771589, 0.709547319790513, 0.709778181726207, 0.7127937205847477, 0.6919509840905989, 0.6880283971228378, 0.6905563193876331, 0.6919166401392421, 0.6892565353246433, 0.6889813928254045, 0.686050275743763, 0.6850598027479184, 0.6870972341536575, 0.6878531420252065, 0.6851794323374248, 0.687735388828647, 0.7069980858455973, 0.7082157423407712, 0.6997728251734074, 0.692571172408569, 0.6938076753732285, 0.6813707514310401, 0.6975075839390686, 0.7006070731708791, 0.6989697844052352, 0.6968198330230267, 0.6884693103867049, 0.6874694124547239, 0.7057370054474071, 0.7121951356272551, 0.71146161720057, 0.7563880546056819, 0.7420201042003002, 0.7336089821869205, 0.7632421582980229, 0.7234380340094844, 0.7234380340094844, 0.7406469201484712, 0.7406469201484712), xaxis = "x1", yaxis = "y4", hoverinfo = "none" ) trace48 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.574176068098116, 0.5522503286186206, 0.5450537166206586, 0.5708069133014859, 0.5708069133014859, 0.5522239522792519, 0.5779402615144278, 0.5502499297879838, 0.5192316024145384, 0.5332597936942698, 0.5551373299333465, 0.5386730156734567, 0.5879046613612866, 0.5835823615650204, 0.5660446102172311, 0.6064700955094374, 0.5958410280629634, 0.6045248141774308, 0.5791414073404244, 0.5807470443647328, 0.582843364289803, 0.5732748032682042, 0.5732748032682042, 0.5731559254946076, 0.5790706981159256, 0.5795479238365939, 0.5753471437530973, 0.585233264896229, 0.5755090488136084, 0.5755090488136084, 0.578528480008491, 0.578528480008491, 0.5809554422647889, 0.6069255767024238, 0.6118558950855496, 0.6144247238278963, 0.6048064710244434, 0.6083819525340608, 0.6251118451387061, 0.6228985437498763, 0.6169852812468806, 0.6130212454740158, 0.5925778772194582, 0.5736790172897555, 0.5708161101055499, 0.5526363815630895, 0.5590430966926485, 0.5776411954509516, 0.5778687396888166, 0.581715703123429, 0.5704220867259218, 0.5704220867259218, 0.5883460094191998, 0.6017181584851141, 0.6219072668096105, 0.6363079769688246, 0.584851647579755, 0.6789109567761824, 0.6780551422992527, 0.6759509218981402, 0.6874177601598905, 0.6669060260350373, 0.6530896162848472, 0.6529732968862445, 0.6541817793699598, 0.6721788792939557, 0.6587411856523058, 0.6736729156511257, 0.6739835007677452, 0.6942913460848862, 0.6860319887432581, 0.6881818419011005, 0.681448054692461, 0.6822157515374502, 0.6955663408304661, 0.6908919316243336, 0.6915170273690521, 0.6940242235716468, 0.708770686747332, 0.7072805934595167), xaxis = "x1", yaxis = "y4", hoverinfo = "none" ) trace49 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(-4.044826327004394, -4.044826327004394, -4.044826327004394, -3.9903140545280107, -3.9721231351171196, -3.987298355295532, -3.996935596099529, -3.9872643458092485, -3.9827737475219984, -4.067678333962857, -4.0688123275702175, -4.0660115558919285, -4.053732269571732, -4.054643646639701, -4.045047955858435, -4.042462131054949, -4.037933433435854, -4.059197586742116, -4.074789746453915, -4.148698236540071, -4.1434715410406024, -4.118121020267072, -4.038304684631727, -4.038304684631727, -4.030370611200112, -4.023328001930045, -3.989812400104301, -4.018578398186791, -4.010328531729025, -4.0644637431061525, -4.106728368754773, -4.109197755775372, -4.169608950418729, -4.177411701429547, -4.1137597053526465, -4.113447498974441, -4.1267661409686225, -4.098056732428139, -4.135891681818625, -4.036676022182902, -4.013630649576455, -4.057318011090544, -4.015581348890609, -4.046071188127383, -4.0497647269333115, -4.095682226274433, -4.002016302651433, -4.030036439662714, -4.0288674741245725, -4.039328291614644, -4.081870094995692, -4.088461732794465, -4.089821056183727, -4.088121804600726, -4.104321372895787, -4.102937085078456, -4.122449763816772, -4.078691335470777, -4.0853511601372805, -4.006828925707445, -4.049646096085565, -4.03565486279196, -4.004126386603178, -4.111427342122668, -4.10473860002885, -4.10473860002885, -4.127151103083495, -4.1089192851359675, -4.1089192851359675, -4.119552654465185, -4.102351325021457, -4.175615121179118, -4.150943613076031, -4.162935354794985, -4.130444695227461, -4.132941526756862, -4.133355196491895, -4.289878447740504, -4.3063703720132445, -4.341591064100075), xaxis = "x1", yaxis = "y5", hoverinfo = "none" ) trace50 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(-4.063255744241102, -4.00815956454904, -4.018117447609945, -4.0167761831027935, -4.031974656892939, -4.10109614768905, -4.101391511774048, -4.0808228976574155, -4.0808228976574155, -4.140120985195592, -4.138320647925854, -4.133963008046566, -4.139546407251029, -4.139546407251029, -4.1138274496307945, -4.120542950978027, -4.120542950978027, -4.08342470716518, -4.078718318667626, -4.0960006197534184, -4.0950197358835325, -4.036488775083684, -3.997760030065743, -3.9976208709194254, -4.011639771932567, -4.013824051959451, -4.009038152713751, -4.036811452920256, -4.018012551719738, -4.029122545203665, -4.036958426847999, -4.010494110793996, -4.004113168541979, -3.9931517041539606, -3.986039971265394, -3.986039971265394, -3.9988412702060794, -4.000839242806261, -4.010170844509152, -4.024155955853593, -3.979944887581428, -3.979944887581428, -3.9940703388681444, -4.009205361552759, -4.006368312766729, -4.013713243596152, -3.9829062954416146, -3.994999833084186, -3.985996249707991, -3.985996249707991, -3.9780182157197252, -3.9780182157197252, -4.0034518947054885, -4.0208512828110115, -4.009391536625843, -4.0193505384412385, -4.068041502683898, -4.068213524568631, -4.061551979269867, -4.061551979269867, -4.057214317778171, -4.096476544390782, -4.007085136708835, -4.045108801592016, -4.045979938090858, -4.032473471847529, -4.0574007953909375, -4.1291232256491, -4.141180998190257, -4.145483011966373, -4.061384247875158, -4.117716933852204, -4.116453908018288, -4.1601849928324315, -4.08641260491496, -4.108063457512126, -4.067037537597687, -4.067505355851021, -4.111800800159855, -4.083684995390598), xaxis = "x1", yaxis = "y5", hoverinfo = "none" ) trace51 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(-4.167907425786057, -4.167907425786057, -4.125368846441063, -4.127634673716822, -4.1000831741512185, -4.164214947754601, -4.122552542261175, -4.116348515457035, -4.095288875642531, -4.095288875642531, -4.1071384281749985, -4.116336417253502, -4.100086180272215, -4.091144512677429, -4.097847892202683, -4.083006108706111, -4.083006108706111, -4.089881461872565, -4.0987352346964725, -4.144875177942124, -4.147150113687093, -4.1391274975862276, -4.09575477790192, -4.0942311512502245, -4.099662519407547, -4.021439018568722, -3.9846540178436016, -3.9846540178436016, -3.964654212503367, -3.964654212503367, -3.9953966213115533, -3.9953966213115533, -4.001428536356109, -4.016518747666735, -3.9798359776498033, -4.04731307504272, -4.145082530754093, -4.111362563705426, -4.096516067049899, -4.086611269502604, -4.128366326634962, -4.193467507504238, -4.2166679970923395, -4.156771263997806, -4.196676441752767, -4.189802310025632, -4.205206077734999, -4.173244638667893, -4.144246326154041, -4.137504291064513, -4.165672824917137, -4.153231346728198, -4.183755016416617, -4.212778295348632, -4.307151051691647, -4.200816054703785, -4.286291262683811, -4.286291262683811, -4.463330101292457, -4.556822062355865, -4.45781338796738, -4.45781338796738, -4.3579007838412105, -4.33584202641023, -4.37063398185946, -4.322363346961699, -4.234236942581632, -4.257855766155474, -4.48058759956365, -4.48058759956365, -4.44122328412862, -4.290551715224154, -4.2935689531465995, -4.2935689531465995, -4.2935689531465995, -4.32292091987102, -4.32292091987102, -4.258541900151745, -4.270987818415545, -4.231120715600864), xaxis = "x1", yaxis = "y5", hoverinfo = "none" ) trace52 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(-4.011136371325435, -4.025114564300831, -4.031420988969754, -4.086804142827004, -4.076352626705181, -4.074264798976897, -4.089436102226705, -4.0825883545874575, -4.087543836788081, -4.189018279355736, -4.185337682097992, -4.13441034812178, -4.136909578440905, -4.143019350219161, -4.102583674268727, -4.117554241796433, -4.119640677666633, -4.187435092369612, -4.121974412890886, -4.121708806108753, -4.136312465604395, -4.130126466175756, -4.119843305782987, -4.103337505514151, -4.107081390181041, -4.107081390181041, -4.122983639465994, -4.087280757122702, -4.0733087004509985, -4.120399247349367, -4.1454851958903145, -4.12940795236535, -4.212682159158495, -4.224482642993667, -4.12930039851862, -4.12586050820921, -4.1080551228136315, -4.053022125788577, -4.06167857828164, -4.092517440733447, -3.9634243570459864, -3.9642305101987834, -3.967888176713674, -3.941645276050603, -3.9399739144963135, -3.8559579787208, -3.85320299731346, -3.8657772727479074, -3.8657772727479074, -3.845312591011454, -3.8601421701674252, -3.8814502446716816, -3.8833493911290247, -3.9133506052932754, -3.9133506052932754, -3.9573057069393784, -3.945054381516224, -3.929233990502844, -3.929233990502844, -3.9113879633318014, -3.9144691029482255, -3.9428488963185138, -3.9714813997659566, -4.013697884002889, -4.076996373141964, -4.076169923229416, -4.074839315531856, -4.074839315531856, -4.075396890049952, -4.128922930600621, -4.093990129489893, -4.108186488392831, -4.108186488392831, -4.116257025032224, -4.24901088169043, -4.268855630768745, -4.173732274071255, -4.234302721144515, -4.18088783043577, -4.182991860669768), xaxis = "x1", yaxis = "y5", hoverinfo = "none" ) trace53 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(-4.04215229101712, -4.0381011829914355, -4.072695277863361, -4.079660639229783, -4.124725325234254, -4.150035891527525, -4.145638129590847, -4.141448173614632, -4.141091167559267, -4.141091167559267, -4.163900436298803, -4.163900436298803, -4.166339791158854, -4.166339791158854, -4.166339791158854, -4.176753998544175, -4.0999403019562966, -4.19047572263792, -4.19047572263792, -4.189390183679695, -4.189390183679695, -4.186037523409369, -4.1848669326746215, -4.186662455978303, -4.134893782691804, -4.134893782691804, -4.121616982346115, -4.121616982346115, -4.172390938357539, -4.155481899287007, -4.1632558501128205, -4.160362372385842, -4.160362372385842, -4.160362372385842, -4.12846155455571, -4.127528415829307, -4.152661378306702, -4.152661378306702, -4.147448409317932, -4.1331089737267215, -4.1331089737267215, -4.160668130406286, -4.160668130406286, -4.161182663923625, -4.164331622367821, -4.163161681126747, -4.163161681126747, -4.152330073398968, -4.16549620516319, -4.156471533274387, -4.128206600386399, -4.128206600386399, -4.089823727932976, -4.089823727932976, -4.089823727932976, -4.112089055294798, -4.078688537929984, -4.153635727516501, -4.153635727516501, -4.163169189062744, -4.163169189062744, -4.163169189062744, -4.157832944521975, -4.160017014004395, -4.180502742656314, -4.180502742656314, -4.180502742656314, -4.076198551919348, -4.076198551919348, -4.076198551919348, -4.0660539816853305, -4.0660539816853305, -4.0603471172109025, -4.0603471172109025, -4.095487525402124, -4.070617003555958, -4.046027462939961, -4.046027462939961, -4.046027462939961, -4.046027462939961), xaxis = "x1", yaxis = "y5", hoverinfo = "none" ) trace54 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(-4.051350104377145, -4.022866766168247, -3.9406703361434707, -3.8997131662996525, -3.9209159178896162, -3.9239645823924576, -3.9109744941047064, -3.8731950708125527, -3.8964884046668873, -3.867327480165097, -3.862887943514292, -3.8786879151419345, -3.8629602747907166, -3.8629602747907166, -3.9437602910136795, -4.03580591571832, -3.997408580999907, -3.987705609985584, -4.000706351590049, -4.043467464890522, -4.058323118362217, -4.052784408783329, -4.024521077475023, -4.026197236277672, -4.028715643757144, -4.014978302038253, -4.005634434491984, -3.9598717397317076, -3.964649405476977, -3.9309156175564732, -3.92787805880862, -3.9350893056334653, -3.9362428578473536, -3.9506687554050703, -4.0060665551682995, -4.008574484100449, -4.013364956340862, -3.944239469112495, -3.96367513937604, -4.047590620932408, -4.054372059198261, -4.006519936746559, -4.007453864148626, -4.023376815517847, -4.034459032357143, -4.038164437918869, -4.027850203422184, -4.0330356388691495, -4.036387274004917, -4.083997920862576, -4.059187987368627, -4.054456583670113, -3.9276450331278756, -3.988119786165067, -4.005273920065822, -3.991483157698591, -3.991483157698591, -3.8738971855508653, -3.769035642187568, -3.8059463431146123, -3.806603461725487, -3.806603461725487, -3.7530173794598527, -3.7889777628037224, -3.8322874704369316, -3.8133217173279323, -3.8375592936033196, -3.785459021197336, -3.7907611634442206, -3.887101841715917, -3.900108400586322, -3.897115581890444, -3.9458796731191716, -3.8835327583728882, -3.8607461420438054, -3.8607461420438054, -3.862979706354637, -3.862979706354637, -3.899998950954293, -3.8914776901816226), xaxis = "x1", yaxis = "y5", hoverinfo = "none" ) trace55 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(-4.085045823863721, -4.055345587140712, -4.047026569939789, -4.062701567544565, -4.0682167095642, -4.021121647243123, -3.9692448493608095, -3.9013916432745126, -3.9339078970934125, -3.936587499202084, -3.9535214242467314, -3.9747508590994967, -3.973791306493199, -3.9889495141406415, -4.011050994251102, -3.972634924522137, -3.982276563893541, -3.986318230061044, -4.037622443566798, -3.9855442281193345, -3.975718625017694, -3.9474427366711633, -3.9474427366711633, -3.9474427366711633, -3.8655551080970185, -3.8973203320556795, -3.999068807881931, -3.9882157759822974, -4.1030825139004605, -4.107941884864484, -4.111349784495818, -4.124288616011655, -4.101118474565365, -4.101118474565365, -4.101118474565365, -4.099212559108905, -4.087401331891784, -4.036484390322367, -4.075328668547589, -4.110641744686977, -4.147223546748661, -4.160046775557595, -4.113911495648384, -4.17106755789593, -4.158017806417161, -4.149569423858791, -4.1549798815862395, -4.278675323782392, -4.254079946189826, -4.212205479020863, -4.221357740982596, -4.243557185011246, -4.253110118777896, -4.257794736042621, -4.331147845922046, -4.276680192569567, -4.291990154789079, -4.266624955024496, -4.342189467718404, -4.3383882130857385, -4.311319268948123, -4.245101575259867, -4.245101575259867, -4.183285585521046, -4.4442990748597735, -4.432503716590704, -4.459529313107473, -4.298452808781731, -4.329337036488338, -4.3443097022261865, -4.270079793663752, -4.341851700798605, -4.3248861327316055, -4.323905629561604, -4.3350595076349, -4.288814184759039, -4.374312482909053, -4.322124329973978, -4.284189470831458, -4.479493922870903), xaxis = "x1", yaxis = "y5", hoverinfo = "none" ) trace56 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(-4.117822605372866, -4.1245073438766555, -4.1245073438766555, -4.166610246360407, -4.163258636869107, -4.090998684847831, -4.058196749416145, -4.0380673409388175, -3.973446233785745, -3.9750866166962417, -3.968801139929352, -3.9650380056629317, -3.9371871428171685, -3.928465498791709, -3.961820049166845, -3.9681320012013117, -3.9549043575479694, -3.972268685656537, -3.987464282181446, -3.9717736634886593, -3.879171259068891, -3.904731877435302, -3.924434085583236, -3.9927116395746043, -3.968026853073117, -3.927091033423326, -3.939010265841324, -3.9362071277915693, -3.936200725293492, -3.912705821639493, -3.923666846160719, -3.9678890211729834, -4.007914839971395, -4.011117714393479, -4.028633153588806, -3.9761922443110858, -3.9792678283517158, -3.9970840705981994, -4.00862288828073, -4.054209190573863, -3.9684923275892086, -3.9334726625733043, -3.911421525247252, -3.89882769099251, -3.9322786875504776, -3.9223636919806864, -3.9223636919806864, -3.9036989113290588, -3.8873308209314645, -3.9548224268092715, -3.8884965749715477, -3.989737369091633, -3.9492014692417223, -3.904557281737717, -3.8292969860654793, -3.8536580455263736, -3.83778745614742, -3.8104845901704736, -3.90805987195336, -3.929352164665917, -3.972931115866283, -3.995314479174641, -3.971929430281613, -3.9797487290030897, -3.9716719256670627, -3.981997668206788, -3.809128622335764, -3.770442676677262, -3.7377715384204295, -3.735706060717917, -3.756255347701052, -3.756255347701052, -3.756255347701052, -3.739705653352473, -3.799508914959638, -3.637734087034521, -3.66685051242657, -3.6808637236630073, -3.778228226809741, -3.7139431508016196), xaxis = "x1", yaxis = "y5", hoverinfo = "none" ) trace57 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(-4.110739361421345, -4.163023888208013, -4.170486821254076, -4.199723106271807, -4.20524097815921, -4.103466301643205, -4.141713993766914, -4.116607481532933, -4.040082523882602, -4.043881903942265, -4.057778968017454, -4.025970780732817, -4.033525444938301, -4.034629996092841, -4.004989508619564, -3.9944668633811435, -4.005106185839219, -4.014092279086065, -3.9471476150765192, -3.9556862279642617, -3.9441001464213077, -3.943471359807236, -3.9403071067639206, -3.9461488990303453, -3.9461488990303453, -3.9369724112527518, -3.938190331110847, -3.9377417846105716, -3.9851569841785364, -3.9777110447427995, -3.941739319683463, -3.949347128538035, -3.907570636690787, -3.8717075220714676, -3.8401910284488325, -3.8489641026958603, -3.8710437336484365, -3.8354433746128422, -3.8123263366841416, -3.8629039589364735, -3.720880441137199, -3.8454925990188955, -3.8454925990188955, -3.844496588320688, -3.786289438552434, -3.795776965945376, -3.8955259452208937, -3.9123414501664153, -3.943675692890089, -3.943675692890089, -3.9949233318777586, -3.969310117148322, -3.967031394693689, -3.9732737521040753, -3.903595214821031, -3.907123092170983, -3.912661404696393, -3.9103034768101854, -3.887273555415735, -3.955280129225964, -3.9863143732087747, -3.9489858791754537, -3.895722512434311, -3.790152438623191, -3.8481373115721156, -3.83095708052387, -3.8814728454000296, -3.8402959339282874, -3.8922265912800675, -3.8140621685568337, -3.8140621685568337, -3.8568405693334205, -3.8568405693334205, -3.85011963438712, -3.8713317430510963, -3.868199208701278, -3.7244994021169346, -3.7076406209453445, -3.7437539921857512, -3.747861695616323), xaxis = "x1", yaxis = "y5", hoverinfo = "none" ) trace58 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(-3.8628571043491484, -3.8653368134083665, -3.8653368134083665, -3.8773805977545397, -3.8543950426253635, -3.7760384452679805, -3.8522196667827395, -3.7792474539702554, -3.8082600535874502, -3.821716895597987, -3.848212379130519, -3.9136205991305673, -3.9145817384029806, -3.9145817384029806, -3.9680700801668194, -3.9581199376124903, -3.9581199376124903, -3.9742996563360453, -3.9797040608406054, -3.9788505619653147, -4.049283524454488, -4.024938834545308, -4.0192419009136096, -4.027730354404761, -3.9979235031981477, -4.020676680913485, -4.020563139736382, -4.019509149523922, -4.046216829451003, -4.0492500398890225, -4.055084579001367, -4.07998490967677, -4.069699365516132, -4.066271809372526, -4.103342274256742, -4.1209692773647495, -4.1209692773647495, -4.02979507900981, -4.059900527787532, -4.059900527787532, -4.056536251970621, -4.0444539071026355, -4.048440221940904, -4.079535861487433, -4.079535861487433, -4.085607134531239, -4.084489146325064, -4.083462837545307, -4.130587104102599, -4.129507526393224, -4.11330969089592, -4.112110684690124, -4.138133956122733, -4.127084260264126, -4.084807251664758, -4.085775158089663, -4.085775158089663, -4.092376106733836, -4.094294869302049, -4.0835496009198184, -4.038387253125578, -4.051863685133489, -3.899292688346518, -3.8753114284706376, -3.858450812106983, -3.9077035774368, -3.7908163722440524, -3.862063635285164, -3.8653088450410626, -3.8653088450410626, -3.8394257638160396, -3.8394257638160396, -3.8074437516376496, -3.647200828354708, -3.706032677381446, -3.700437633652303, -3.700437633652303, -3.610223155993889, -3.7770382956040907, -3.6646254278189487), xaxis = "x1", yaxis = "y5", hoverinfo = "none" ) trace59 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(-3.9508699212790535, -3.935276276879999, -3.9770987029065576, -3.9845319014180536, -3.962026513415389, -4.035809284438013, -4.035125931202522, -4.00832286425949, -4.00832286425949, -4.004595878470822, -4.00676705061198, -4.009102285239722, -4.009102285239722, -4.010110791117441, -4.011565684037412, -4.033538522394879, -4.062702108875173, -4.0613543242596375, -4.0613543242596375, -4.017260788866403, -4.007197275143545, -4.007197275143545, -4.007197275143545, -4.0002782989941, -4.025787984380493, -4.025054849775617, -4.047510189532772, -4.058549281345613, -4.082782035218621, -4.0987047930344644, -4.095316179950235, -4.119260406951956, -4.1977021457616015, -4.110970406408733, -4.1781917963723245, -4.1781917963723245, -4.201258609958025, -4.201258609958025, -4.205371251837669, -4.166710178293239, -4.192389519154504, -4.195977341746363, -4.178186718301705, -4.154868315825054, -4.1561053362001275, -4.098135545208644, -4.054033430296668, -4.0895202906593004, -4.062707497796943, -4.14556055244179, -4.1167065460240115, -4.030464086417079, -4.066993804235648, -4.065214805110394, -4.065012113118006, -4.0793825991910255, -4.055375312137902, -3.947264335658575, -3.9876145731070842, -3.9867463966042687, -3.9789176054824975, -3.9224399708098465, -4.003779620245925, -3.9831369113559583, -3.9737889430571864, -3.9766456770705267, -3.9619258767044854, -3.980632679615097, -3.9552162390222403, -4.055217450143333, -4.050250569067895, -4.134538862718824, -4.0889386706522535, -4.114729379669499, -4.064894659737151, -4.158309970701999, -4.115432370846804, -4.115432370846804, -4.110061687896587, -4.110061687896587), xaxis = "x1", yaxis = "y5", hoverinfo = "none" ) trace60 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(-4.167563426528264, -4.192573644720156, -4.206681828642923, -4.167078309122175, -4.167078309122175, -4.199679511514767, -4.120985539978324, -4.146892585486512, -4.237524032231679, -4.1919729972921775, -4.182579322439424, -4.21576619287503, -4.146224158758267, -4.148766811292184, -4.171057978649916, -4.1565037985259305, -4.161810763210949, -4.121584937290999, -4.215224248662121, -4.21367087207871, -4.1908865128059025, -4.198004784316036, -4.198004784316036, -4.198449562442397, -4.191223972812884, -4.19048989745845, -4.193562456853394, -4.154933455154096, -4.213401008380735, -4.213401008380735, -4.208897822537796, -4.208897822537796, -4.203914953015189, -4.145057995064113, -4.146112269266548, -4.166610784803633, -4.1577338349968285, -4.1403623746300555, -4.088525267820554, -4.138420360527569, -4.1113852787587755, -4.126611209467344, -4.148609703814904, -4.1397024357629455, -4.127088761236148, -4.139473523321613, -4.175896433878514, -4.153667996680993, -4.151888954710808, -4.154084504661685, -4.128583764752232, -4.128583764752232, -4.07581779702988, -4.0331699331546735, -4.068328914347078, -4.083592872542141, -4.143362589414339, -4.074585255666171, -4.080620115351893, -4.145554753546178, -4.111655103703067, -4.119228690546209, -4.17774241004689, -4.1833960204694725, -4.1783322638188904, -4.1561680348520875, -4.138005690144808, -4.106966121302546, -4.115455027389206, -4.0537936927865035, -4.067117406121768, -4.0115602248714115, -4.016799238879175, -3.9801116633421194, -3.974523330365485, -3.9097548883318476, -3.905004756181428, -3.9027391631778454, -3.863890322967322, -3.8779247201759133), xaxis = "x1", yaxis = "y5", hoverinfo = "none" ) trace61 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.4116468235693866, 0.4116468235693866, 0.4116468235693866, 0.40075996255928814, 0.39828470106231556, 0.40252054953667926, 0.40351370204624487, 0.3855369649696462, 0.3836094039663378, 0.3966519425778007, 0.4014934918950513, 0.391241793575108, 0.3948066235246061, 0.39492690486545984, 0.4014630378347793, 0.40125639926874707, 0.3979880794266596, 0.40209097209293376, 0.40436879236483514, 0.4135608560481674, 0.41505100701101155, 0.41309224607977124, 0.39935506984415226, 0.39935506984415226, 0.4004924641058682, 0.39645820226589557, 0.387489879411249, 0.38979287243071575, 0.38715125353743074, 0.3997043734857349, 0.3979617795145572, 0.4032723064165013, 0.40192994010669864, 0.39031620962223973, 0.3876858898406243, 0.3862699652735136, 0.3845888138363879, 0.3924074290128746, 0.39344614636362996, 0.3922401124250036, 0.37855223734641175, 0.3759742291352877, 0.3757341628859847, 0.3923181708672732, 0.39094714754799714, 0.40881152266950405, 0.3935150634812389, 0.3965182301799857, 0.3959189548691226, 0.39128585443318487, 0.39610899416848727, 0.3978794812968948, 0.37987696448388736, 0.39383199853247225, 0.38848271336131357, 0.3886495994862566, 0.3686309617787776, 0.3877122631240368, 0.3840581622649704, 0.366877352506664, 0.3722301154321519, 0.35939660793536743, 0.3630619654248126, 0.3944386160272215, 0.38617691051015823, 0.38617691051015823, 0.38500439792728414, 0.3857431435622505, 0.3857431435622505, 0.38284851755863425, 0.38765981360389024, 0.3975333349908663, 0.39649058071150006, 0.3948330032434788, 0.38134733912679436, 0.3813249925136346, 0.3864123475100694, 0.40415120853637343, 0.41460708696755527, 0.4204114770219657), xaxis = "x1", yaxis = "y6", hoverinfo = "none" ) trace62 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.42509663848256707, 0.41418540031591516, 0.4090196517164115, 0.4088319621946377, 0.410161404384778, 0.4186943962436003, 0.4187400617017623, 0.4153516824293182, 0.4153516824293182, 0.42504587529257243, 0.42587439669698296, 0.4254620615400392, 0.42573513731624574, 0.42573513731624574, 0.42227193572856997, 0.41843419120874226, 0.41843419120874226, 0.4131240388762295, 0.41271796574113595, 0.416642045701783, 0.41579367098464387, 0.40652572206437526, 0.4067807874921188, 0.40624917856710724, 0.40897888234511726, 0.40963930208456073, 0.40955864807161835, 0.4087566525211293, 0.4020466755736931, 0.39834711802735234, 0.40331748039084064, 0.3916189190367501, 0.3754899999942318, 0.3816702169624847, 0.37991096332028806, 0.37991096332028806, 0.38034474068230995, 0.3803538278260847, 0.38823605889121526, 0.3888820250579165, 0.3791163814058559, 0.3791163814058559, 0.38190947741427456, 0.3863994580310955, 0.3837947022374526, 0.40076683062294355, 0.39023390659393786, 0.3929414468700047, 0.3884598701385434, 0.3884598701385434, 0.38768039163487067, 0.38768039163487067, 0.3914433708769449, 0.39511652890235544, 0.3909655949099308, 0.39110047974126677, 0.4024677043853835, 0.4008797263244269, 0.40054890232704116, 0.40054890232704116, 0.3994279402099379, 0.4050076742775243, 0.39331133203324875, 0.3990800139655007, 0.3988906526089857, 0.3899462256343557, 0.3927849067024708, 0.3995207095110395, 0.3995504673032913, 0.4022653973924608, 0.3974237505511938, 0.4071493307581462, 0.40534667833810334, 0.4210282253667892, 0.40425795862011854, 0.41328200353717315, 0.4010144106473117, 0.40110894815425696, 0.405438362287141, 0.4003389729586776), xaxis = "x1", yaxis = "y6", hoverinfo = "none" ) trace63 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.42953042756693255, 0.42953042756693255, 0.4062303907432568, 0.40616594217964164, 0.4023658040811532, 0.4065411243318572, 0.4130705742663005, 0.4126958423650863, 0.4109069254059674, 0.4109069254059674, 0.4162093719151544, 0.4129093203866726, 0.4076299085730397, 0.40621459431094525, 0.40510463938618646, 0.40774899110373775, 0.40774899110373775, 0.41076238578533236, 0.4170755260595525, 0.4250465389617005, 0.42529071563620935, 0.42755387309000853, 0.41441278444525237, 0.41242689876789, 0.41168813559584566, 0.393092544012764, 0.38083666257845283, 0.38083666257845283, 0.3757632301909005, 0.3757632301909005, 0.38056813171662884, 0.38056813171662884, 0.3823216889147355, 0.3783416433817832, 0.36654124249971143, 0.404015368146944, 0.4166111298354166, 0.41234645985921625, 0.41541931623920836, 0.41624884020709757, 0.4195912115482343, 0.429238830731082, 0.4260602025694794, 0.41374136309479825, 0.4143199885396465, 0.40460620848303236, 0.40574272965348424, 0.40159974079045707, 0.42120325355239174, 0.4243070985346036, 0.4361707349555333, 0.4327288871906763, 0.439890018210087, 0.42815252700583506, 0.4288251921185828, 0.42691013559944546, 0.43100050935403045, 0.43100050935403045, 0.47157683954310314, 0.4748457510572834, 0.46248314190414336, 0.46248314190414336, 0.4444650410156118, 0.43496115609213565, 0.44164204383502637, 0.43660862580378923, 0.4199487251579834, 0.43161070784612365, 0.4689537437241084, 0.4689537437241084, 0.4639154380907599, 0.42990150170440916, 0.430084832920716, 0.430084832920716, 0.430084832920716, 0.43297766569335017, 0.43297766569335017, 0.421047449880643, 0.4229888007581658, 0.4222568364613114), xaxis = "x1", yaxis = "y6", hoverinfo = "none" ) trace64 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.413717085488222, 0.4220498664493918, 0.42208137324684686, 0.43828128543436257, 0.42679387933626023, 0.42545627419133064, 0.4287925514168006, 0.42893635283023107, 0.4304859130697338, 0.45200747981750106, 0.4513507484725747, 0.45009351985586743, 0.4519582537569309, 0.44711561090700236, 0.4360505791850733, 0.43566276090488115, 0.4361452004705808, 0.44707593004509105, 0.42851761431078705, 0.42849739670240333, 0.43154176070083355, 0.4289250727810706, 0.42503868666247324, 0.42925458734272703, 0.4277509679712172, 0.4277509679712172, 0.43202485094839854, 0.42481534303902857, 0.4219983164785831, 0.43049067567756577, 0.4469315205673363, 0.4364886291357337, 0.4515217428625745, 0.4554446735368585, 0.4322426689696477, 0.44061194675137183, 0.4370906337040369, 0.4262403829278867, 0.4205947759013142, 0.42508665440886373, 0.3988786878292359, 0.4053463798901131, 0.40631656222091506, 0.4016865501563647, 0.4018051343483665, 0.380325481254007, 0.38005801860661254, 0.38120405919837336, 0.38120405919837336, 0.3780973041934878, 0.38045187811937525, 0.3767910016182645, 0.3773725806637746, 0.3847503054642708, 0.3847503054642708, 0.39171426381633717, 0.3905485920545871, 0.38651875911286204, 0.38651875911286204, 0.38512477060953565, 0.38636980843910546, 0.38754696932572696, 0.39045509007875684, 0.3914769797065734, 0.3983988233712556, 0.39833720430386454, 0.3941416331609602, 0.3941416331609602, 0.3941957693472925, 0.3981257177489948, 0.3954313013875448, 0.39736297066542137, 0.39736297066542137, 0.4019444481087383, 0.41946905013073527, 0.41856139583016727, 0.41775317419155, 0.40790885342211464, 0.4040740354980618, 0.4033060357489603), xaxis = "x1", yaxis = "y6", hoverinfo = "none" ) trace65 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.4108949874276264, 0.4105517007468431, 0.4266952749833541, 0.4272535045724647, 0.4366811029560121, 0.44512687380630334, 0.44391893067629756, 0.44762955836391427, 0.4473825462800852, 0.4473825462800852, 0.4483984767542654, 0.4483984767542654, 0.44833696506042275, 0.44833696506042275, 0.44833696506042275, 0.45435259780245335, 0.420907335336609, 0.4365957491626453, 0.4365957491626453, 0.43707597392057795, 0.43707597392057795, 0.43642483819026345, 0.43616982051137426, 0.43567670694929206, 0.43077425737586245, 0.43077425737586245, 0.4228752318306695, 0.4228752318306695, 0.43840193310981357, 0.43501733393549724, 0.4373697038777622, 0.43720545316072523, 0.43720545316072523, 0.43720545316072523, 0.4297644679320659, 0.4194261442384172, 0.4261378978947416, 0.4261378978947416, 0.4244769097894416, 0.42383667334424285, 0.42383667334424285, 0.42562126974473125, 0.42562126974473125, 0.42385572834605173, 0.42214037250242337, 0.4221066242053945, 0.4221066242053945, 0.4220099761910057, 0.4205937888839557, 0.42227300835654513, 0.41647839077206594, 0.41647839077206594, 0.41082347689952997, 0.41082347689952997, 0.41082347689952997, 0.41520301218470035, 0.4112783579147058, 0.42896826023029877, 0.42896826023029877, 0.43212882409292375, 0.43212882409292375, 0.43212882409292375, 0.4339247662003877, 0.4277880357685321, 0.42574527992643624, 0.42574527992643624, 0.42574527992643624, 0.4156004425303317, 0.4156004425303317, 0.4156004425303317, 0.4146197692848201, 0.4146197692848201, 0.4121460996080585, 0.4121460996080585, 0.42455309465571206, 0.4299196336369683, 0.42263668939337734, 0.42263668939337734, 0.42263668939337734, 0.42263668939337734), xaxis = "x1", yaxis = "y6", hoverinfo = "none" ) trace66 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.40707342272084, 0.4007623630655956, 0.3951529546392545, 0.3828036150616325, 0.3867997740846361, 0.3871328878614489, 0.3845423465911801, 0.37896727228309746, 0.3849547499731559, 0.3810180862503677, 0.3797469763241788, 0.3823727450775514, 0.3787013301246448, 0.3787013301246448, 0.389154977278365, 0.4015183040608932, 0.39562280507896547, 0.394989448666081, 0.39923315730403264, 0.40749486084292774, 0.4018918959568514, 0.39252214198827806, 0.39611327746471475, 0.39564456546805643, 0.3986465654879775, 0.3955232308258441, 0.39759326725228156, 0.37394366593158745, 0.3788084094529315, 0.3807416933253909, 0.37816430197888423, 0.3792741470681205, 0.3791594649217138, 0.38101814230683667, 0.39188876497051933, 0.3877332856395254, 0.3889806268349767, 0.37331397015621004, 0.38428948912529415, 0.3789637434399514, 0.3865508189456007, 0.384310575876612, 0.3849498968521693, 0.3840802133800547, 0.38594180620810464, 0.3873787134722246, 0.38864814477855675, 0.3899737808792054, 0.39240695989097857, 0.39479894665180754, 0.38378755175171575, 0.3903352356249674, 0.3827631375810372, 0.39452550076485193, 0.3978283916027363, 0.39136365679321106, 0.39136365679321106, 0.3932315222842575, 0.3813627526973505, 0.39098086559676537, 0.3823803318205198, 0.3823803318205198, 0.3840158418653795, 0.3953124312661557, 0.39441165387190197, 0.3904741483151058, 0.3919601410766221, 0.39441027497486064, 0.3934006941965241, 0.39769075877878446, 0.40581230669630536, 0.40769736842840737, 0.41800652304434294, 0.4032751812531363, 0.39312284929516456, 0.39312284929516456, 0.39843066402345534, 0.39843066402345534, 0.39575135989416943, 0.38712200255042245), xaxis = "x1", yaxis = "y6", hoverinfo = "none" ) trace67 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.4376458311047669, 0.44313678841950915, 0.43583380110868714, 0.4386028544332476, 0.43087415822465985, 0.41419545136561886, 0.40876973296606733, 0.3997792465778237, 0.4015601314050382, 0.4022464317642171, 0.40958652724472144, 0.412049686830948, 0.4124373581992073, 0.41151034176551954, 0.4109287423361465, 0.40149894011677345, 0.40629738367780377, 0.40692389701827164, 0.41303512602284437, 0.3975521346336528, 0.39616015659664766, 0.3915254999030779, 0.3915254999030779, 0.3915254999030779, 0.37700376369795097, 0.39117412869805307, 0.4102162423714741, 0.4146067347456297, 0.4300951269531971, 0.43558316292792454, 0.4366387810773921, 0.4344502321341017, 0.4293008631160846, 0.4293008631160846, 0.4293008631160846, 0.42885632615728086, 0.43698237018488534, 0.4362497731830086, 0.43976696129651754, 0.44204964648527395, 0.4511979197942157, 0.45576806144943943, 0.4480725216546196, 0.4587339040626908, 0.4552042387072385, 0.45068763382015076, 0.4502588654265118, 0.47411367201704, 0.4668562072449875, 0.44639988672837705, 0.4350144468042533, 0.4373319837095536, 0.4368727324132915, 0.4352880976061318, 0.4327407237237895, 0.4244547942051846, 0.4243289008453797, 0.4258262119505111, 0.437096309158345, 0.43676373130096924, 0.4375798462002714, 0.4334969359474496, 0.4334969359474496, 0.4243579757692129, 0.4375440914068469, 0.4377574065012866, 0.4439952805100618, 0.4267142558098802, 0.42914236011766566, 0.43604297129729186, 0.4208183718994913, 0.42890168317349975, 0.42825073482680936, 0.42810359724863667, 0.4287927803786699, 0.42393470675790795, 0.4296914226805449, 0.43039560039734753, 0.41464839966241973, 0.42066370746152987), xaxis = "x1", yaxis = "y6", hoverinfo = "none" ) trace68 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.4278997210937728, 0.4253274663662255, 0.4253274663662255, 0.43427780399429344, 0.4362736444375499, 0.4159111421409459, 0.4089166223503299, 0.4053744334939892, 0.38145749551662017, 0.38172185397511327, 0.3829540312933166, 0.3774155376779483, 0.36932606265406553, 0.3637519691117931, 0.3787043990144088, 0.3788145956716748, 0.37778087228422197, 0.38402535529921206, 0.39044504445348927, 0.3835885676587441, 0.3608955576506451, 0.35707940217071443, 0.36020303430771344, 0.3895078945236569, 0.3836064127667621, 0.37390943236218965, 0.3797445201644335, 0.37956011478768586, 0.37954569064065014, 0.37735724184581904, 0.37961168986290394, 0.38397685179633007, 0.4051706261914577, 0.4052164629746808, 0.4083139867683931, 0.3972381410991673, 0.4047416283786755, 0.4056623438471402, 0.40667746320729686, 0.4134280910373731, 0.40923410402174193, 0.40622303784477226, 0.40802196228104004, 0.40458540589262243, 0.4113261027289231, 0.41871954963969366, 0.41871954963969366, 0.41409006314637664, 0.41385871296250687, 0.42163011027860875, 0.4132808413645918, 0.41794153677418944, 0.4117175092543607, 0.41638219917306085, 0.4239856136245256, 0.4182209356147014, 0.4031960388732422, 0.40325092571688387, 0.40896592216737243, 0.40513382291019534, 0.41045733140025653, 0.41440754411896347, 0.40813261350841157, 0.4078770555207425, 0.40925270308174083, 0.40769297345753824, 0.38324345554293415, 0.37876767512668064, 0.37728576893765253, 0.3778607412503184, 0.3710603091563303, 0.3710603091563303, 0.3710603091563303, 0.36998167802217347, 0.37955897235573244, 0.37399400445666986, 0.3845743791182161, 0.3852664505919797, 0.3887392803328054, 0.3805091536580801), xaxis = "x1", yaxis = "y6", hoverinfo = "none" ) trace69 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.42141729676647216, 0.4325441069958579, 0.43509553449591076, 0.4409757462598138, 0.439833897997703, 0.43021926980382186, 0.4383408795502394, 0.43264488672907875, 0.42567271444332194, 0.4288345435535677, 0.4309527459444083, 0.4258619444917044, 0.42762139765225327, 0.4271638729406931, 0.41944902654116223, 0.41712526805933087, 0.4190554764319547, 0.4219114561119232, 0.41175394362592105, 0.4083993943478773, 0.4108475664440559, 0.41312839046341965, 0.41116962816876423, 0.4093478779309141, 0.4093478779309141, 0.40803314560999926, 0.4074984549431717, 0.4092356519481618, 0.42176115071572773, 0.4207750546918094, 0.41281950655036304, 0.41375517358217534, 0.3988746643429179, 0.39567997071535704, 0.3862557275658115, 0.39148667441217105, 0.3909421474366413, 0.38414134081213896, 0.3780105056241044, 0.38447151840286875, 0.3655336776740407, 0.3837410928758233, 0.3837410928758233, 0.3829433381932915, 0.39548420928999656, 0.39663118791901286, 0.4035156079536866, 0.4036896705705823, 0.40786833715775844, 0.40786833715775844, 0.41084353943328855, 0.4121225148376403, 0.40686198194337747, 0.40916306634074195, 0.4034028712016503, 0.3974154466129191, 0.3987897175191934, 0.3979995616835471, 0.42744538016664013, 0.42512685195890165, 0.42498857247328903, 0.42422428559347414, 0.43503946634257357, 0.4147116772278635, 0.40578040970162704, 0.40616472128127645, 0.4099623337816967, 0.4065619798669546, 0.4127946136082828, 0.3955693856331798, 0.3955693856331798, 0.3952740805829135, 0.3952740805829135, 0.39530259084357544, 0.39377276994827815, 0.38418830824510686, 0.37855637178057955, 0.37549875993394666, 0.37373694467556007, 0.37372199198951817), xaxis = "x1", yaxis = "y6", hoverinfo = "none" ) trace70 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.35258035607280525, 0.3579341889307437, 0.3579341889307437, 0.3587033820071686, 0.3626928873656031, 0.3484334506383197, 0.3655490519086386, 0.37052635537735296, 0.367184273419564, 0.36587212792052776, 0.37108342100245245, 0.3781441555185142, 0.3772684067756239, 0.3772684067756239, 0.396500039654367, 0.38934422670660807, 0.38934422670660807, 0.3941001652149266, 0.3968235213036568, 0.3959831071069967, 0.4002693670344574, 0.3938018942151546, 0.38979630640478824, 0.39603041368693737, 0.39401032143265746, 0.3942507891321485, 0.39335226308461524, 0.39325731578856254, 0.39726458413842697, 0.3973055040182931, 0.39747082232918896, 0.3961028976824421, 0.39733924126282033, 0.3977258158082509, 0.4052126184099729, 0.4131052356048404, 0.4131052356048404, 0.4077334526693813, 0.41090984100536726, 0.41090984100536726, 0.41060476607758245, 0.4080528200548585, 0.4117038705652148, 0.41746229306086474, 0.41746229306086474, 0.4220077931132839, 0.42592336232030226, 0.4156687616240226, 0.41264456559421725, 0.4125284569181776, 0.410695769230871, 0.4107061085590199, 0.4146434127786562, 0.41260777149878725, 0.4040504952667559, 0.40692734028378974, 0.40692734028378974, 0.40137438365287387, 0.40301043641765066, 0.41030004183436375, 0.4014726512652823, 0.40216789345183734, 0.3825487543693158, 0.3838681715331382, 0.38527917369035114, 0.3902483790050814, 0.3717090404182904, 0.3833582649431829, 0.3865046598732493, 0.3865046598732493, 0.38493475480620754, 0.38493475480620754, 0.3904612512818829, 0.38938946276719544, 0.38924686012540133, 0.3874651621254513, 0.3874651621254513, 0.3819166500941271, 0.39684766735156857, 0.40000130128294026), xaxis = "x1", yaxis = "y6", hoverinfo = "none" ) trace71 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.3804731171954021, 0.3763947347580252, 0.3854414965743201, 0.38532565331361723, 0.37897841271100413, 0.3883436720658073, 0.3881918284275817, 0.3768143025414382, 0.3768143025414382, 0.3783084765002729, 0.37888274916452547, 0.38166636771980067, 0.38166636771980067, 0.3811540008622238, 0.3812413463830621, 0.3869064605363608, 0.3903226313913811, 0.38764081366117514, 0.38764081366117514, 0.382442569992274, 0.37683438053333007, 0.37683438053333007, 0.37683438053333007, 0.37743565883066427, 0.38397415257522466, 0.38317284996732526, 0.38743589844376236, 0.3952049258179318, 0.3881009516995821, 0.38643606121304186, 0.3845300414417848, 0.38776098571276235, 0.39957387205662465, 0.3871476654248988, 0.39603303242706406, 0.39603303242706406, 0.3937033977356978, 0.3937033977356978, 0.3948242854686485, 0.3985858915879918, 0.4053250803155461, 0.3981377325462629, 0.4044807178795712, 0.4060435003478716, 0.40784444298980627, 0.40638939520358003, 0.4012678203143318, 0.40363208615854257, 0.3990874304553085, 0.41440670467178664, 0.4106261477032942, 0.3998059093021273, 0.4069354530416193, 0.40700425928075656, 0.40668802488822825, 0.4076413643258132, 0.4045938721872486, 0.37784750497227976, 0.39366839235314205, 0.3899120253918191, 0.38993680620954846, 0.3815962058025035, 0.3818845860782613, 0.37266838354546056, 0.370198164517334, 0.3762039919603203, 0.3742091606869738, 0.3801936395784201, 0.3791321243641508, 0.3876257768340238, 0.38228343521662395, 0.39566531123715853, 0.3796430575434307, 0.38693122672854124, 0.3844773652738162, 0.3997025243994482, 0.40544152978198594, 0.40544152978198594, 0.4018716787793958, 0.4018716787793958), xaxis = "x1", yaxis = "y6", hoverinfo = "none" ) trace72 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.4337731939176235, 0.4338288525639032, 0.4370715769551208, 0.4305196182434436, 0.4305196182434436, 0.43164601332346325, 0.4216632549559676, 0.4255765629736441, 0.44159426495682846, 0.4354797749071432, 0.43323620651124783, 0.43685219073991616, 0.4328400363064916, 0.4319490136977857, 0.4342389144820076, 0.44168162303967606, 0.4436759346151017, 0.4380102014888833, 0.4704701974787079, 0.46947726699592457, 0.46734434553155096, 0.4698382985262858, 0.4698382985262858, 0.4699564751573074, 0.4676457586010932, 0.4673923678339682, 0.47073641322741167, 0.46395644686174514, 0.47972517302791196, 0.47972517302791196, 0.4810698112294903, 0.4810698112294903, 0.4793560559931328, 0.446526388735459, 0.4449812290534344, 0.43602522427356577, 0.4380209669273097, 0.4328957273354412, 0.4212859175204322, 0.4288158790459615, 0.42758964220853446, 0.4307152384921476, 0.43816428751130404, 0.4399911794223055, 0.4422143638719316, 0.45238918512788, 0.45576982746390304, 0.4474011710043943, 0.4474196961639142, 0.4474272543447522, 0.4548542448304699, 0.4548542448304699, 0.4463695936507642, 0.43513493101556355, 0.43148035568318105, 0.43120871266178906, 0.4583893900038186, 0.41685936938491625, 0.4188945542471526, 0.4293935767405839, 0.44729935644635244, 0.4380004357180021, 0.4600352588220491, 0.4614686879564323, 0.4594383386823313, 0.4471636488937947, 0.44113789081727744, 0.4349179994962426, 0.4442851904017555, 0.42901778137049673, 0.4233718085867719, 0.4195943277688662, 0.437594321346853, 0.4295985734637571, 0.4342869030023682, 0.4148785739535207, 0.41623035302489836, 0.41556210708469, 0.41875045535297467, 0.4179329378819132), xaxis = "x1", yaxis = "y6", hoverinfo = "none" ) trace73 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(280.56625424077095, 280.56625424077095, 280.56625424077095, 283.3316321593102, 287.79750246389534, 285.8227184980625, 286.2641001020828, 283.60229639964643, 284.14348279022795, 287.783734462509, 287.087210557253, 289.9857532436026, 288.51351721537293, 288.5575262668953, 287.5843729454808, 287.4331622264457, 288.4338975439765, 286.9732701410105, 287.4679226902201, 286.50514403832005, 285.259919740044, 284.4248252058385, 285.3952176799856, 285.3952176799856, 284.63567290576754, 284.10690590618736, 286.2021694941364, 286.5292975512609, 286.0664210376691, 288.03067647619287, 291.9089182454602, 287.31716421136565, 279.3726415724013, 276.529828488634, 271.95247596624984, 271.91256296601927, 271.5559541187437, 273.7820817840379, 270.61658058178267, 274.17841989559133, 276.8169588288069, 269.9848103201109, 273.60566178081245, 274.8744194065689, 277.065292570017, 288.0845478518268, 295.31680878174444, 289.28568118068205, 290.8699791449445, 284.9206239145185, 273.8033722886874, 274.2798198428163, 264.4755186891946, 264.02855758117283, 257.9472527680136, 256.79449867487864, 247.70821710617207, 259.8529179466389, 255.13093073038362, 254.51039526003257, 253.71311881715405, 244.18638689602673, 254.87008160169432, 263.47712196645824, 265.46676188107637, 265.46676188107637, 261.80385702996955, 262.96713938994685, 262.96713938994685, 260.77114700088765, 267.3577664449208, 266.51448395638664, 268.2049791814939, 270.7657367632464, 247.59832225123444, 247.05296195907965, 250.38643669756908, 216.07304260368875, 213.85524715650152, 208.40369752355934), xaxis = "x1", yaxis = "y7", hoverinfo = "none" ) trace74 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(278.5209659195437, 278.65254649024064, 278.733874597614, 278.94799452536716, 279.0295810943619, 278.73180054800815, 278.7127839379607, 277.57707183274425, 277.57707183274425, 278.24637710971336, 278.1919122021267, 278.6167375884805, 283.1848039950704, 283.1848039950704, 282.5494076722394, 285.73514016191757, 285.73514016191757, 284.88536429373585, 284.6932738289725, 284.42075467278886, 284.5276380261297, 284.4272687575111, 291.6769903571173, 291.49251766485594, 293.72871560004097, 293.66342602403296, 290.03778883218604, 298.18890799767956, 286.4193668878678, 285.6649824774352, 286.4559567262122, 286.8782956016528, 286.2788419266499, 280.4522523951054, 280.9928323273037, 280.9928323273037, 280.8062209459405, 280.751118146196, 283.05480816642205, 279.56630160557836, 285.05866813249804, 285.05866813249804, 283.35088747921964, 292.535773438966, 292.27615091488417, 287.1550871130759, 283.9307336064087, 283.54474375814124, 284.7184138011824, 284.7184138011824, 285.3893163049827, 285.3893163049827, 286.7948334464153, 279.8169828465863, 280.27771166004067, 278.06437586522947, 276.0233154058614, 274.53947818412627, 274.8410082304711, 274.8410082304711, 275.29110653388244, 269.20662359581763, 289.48034484166584, 289.0632096180971, 288.69490309412674, 266.6303779440185, 257.1459121638304, 247.34966713181325, 240.829478592866, 242.6625047806969, 257.4225510887544, 243.503689183413, 249.64109476155602, 254.80588653038438, 257.9770073696729, 262.7336447239289, 264.6720373761078, 264.67251133851323, 256.9912045567123, 258.88838595313297), xaxis = "x1", yaxis = "y7", hoverinfo = "none" ) trace75 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(280.491595309671, 280.491595309671, 280.4859302996953, 280.48369530733214, 280.18974935167466, 281.5789356642034, 281.4599357510945, 281.41634069324857, 281.05449387678357, 281.05449387678357, 281.03570066569205, 281.1254436824601, 280.36697607623137, 280.36148872547443, 279.9016113914486, 279.8308693052968, 279.8308693052968, 279.736802840179, 278.170116394716, 277.8714309260696, 277.7780717661531, 278.18934607806466, 278.8242636061447, 278.7272673776816, 278.2477504051213, 281.37309345231535, 280.46246314226795, 280.46246314226795, 280.12851081675444, 280.12851081675444, 276.965734462711, 276.965734462711, 277.42865528705096, 278.2792068886339, 284.5869475613441, 277.54488266229134, 268.6505177457979, 271.282823601575, 273.4681436413364, 278.0116297437713, 268.6705821669514, 261.08529247121527, 254.13868871096471, 264.04019347794866, 261.1419769799448, 258.60769134832793, 257.78460057978157, 259.58220012335363, 267.80341797933033, 267.67782626023654, 265.2937108414726, 267.7134272828421, 268.0825871847131, 253.61052580014484, 219.2852035599908, 251.4054279241464, 228.86853838436014, 228.86853838436014, 211.79528070126003, 186.03989783446016, 202.86522462678602, 202.86522462678602, 215.1363014941889, 219.5382314896176, 209.56059603266948, 216.94830008342853, 225.6493276473093, 230.84511896442987, 189.09826844341413, 189.09826844341413, 198.86191385441083, 215.99296978084578, 214.92917252345944, 214.92917252345944, 214.92917252345944, 201.52162331365372, 201.52162331365372, 208.418367129426, 206.29029953678685, 219.98713126421538), xaxis = "x1", yaxis = "y7", hoverinfo = "none" ) trace76 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(277.28974088100983, 277.75470035226596, 277.8175124331953, 277.37355485077467, 277.95365468783507, 278.01348922481446, 277.78957301505193, 278.0707899181457, 277.9408438787964, 278.19631610564977, 278.44005001680216, 276.83537560380677, 276.63735252664026, 277.57786321070864, 275.97602214233814, 270.41532803840283, 270.31835526778667, 264.33038883725334, 265.589028552345, 265.6329659079513, 264.0261870490523, 264.91584191359493, 265.7888515823998, 272.9964991610216, 267.8873295533162, 267.8873295533162, 267.22874801190284, 268.370379166917, 270.42486399436774, 270.3252210511901, 270.71094821454966, 271.5690314659391, 255.12866860111376, 255.1891237756921, 257.14468788707126, 253.86906125100796, 255.70755492206138, 265.4271527743803, 259.83109607840316, 256.9711772855802, 265.14102929583555, 265.5043032053364, 265.8492856416473, 265.74511794375474, 265.8782253308898, 277.9311953723086, 277.7552154221738, 278.7292500178822, 278.7292500178822, 275.59020133018504, 276.02390452613855, 272.7974065983482, 272.8767091424559, 267.26612939428594, 267.26612939428594, 265.5705552199225, 270.2545781113341, 267.89397672306023, 267.89397672306023, 276.34813678639085, 278.10865773266306, 272.4239899727085, 267.2609556046892, 260.2534818943765, 259.2673862949842, 259.38460021016937, 255.71739238386266, 255.71739238386266, 255.65956489395643, 243.9265046829374, 250.68663526977252, 249.692899059195, 249.692899059195, 252.08706687873692, 230.49602216253325, 224.13074914465636, 244.0246832681639, 221.76580816463743, 236.6585900929934, 234.79237095962742), xaxis = "x1", yaxis = "y7", hoverinfo = "none" ) trace77 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(276.4527259711168, 276.479409458086, 275.2561177240809, 275.29472934906914, 275.54902156874545, 276.88075881254275, 276.8865990875545, 276.9249465403457, 276.7419328076374, 276.7419328076374, 277.05633745505526, 277.05633745505526, 277.06421194522056, 277.06421194522056, 277.06421194522056, 276.71074791781547, 278.0224160626058, 278.0762204523224, 278.0762204523224, 278.0854237575301, 278.0854237575301, 278.0574375354385, 278.4228322301894, 278.7527679205712, 278.2735305375774, 278.2735305375774, 277.8831398382619, 277.8831398382619, 277.84729355201426, 278.151497373363, 278.28915787888786, 279.0389358346452, 279.0389358346452, 279.0389358346452, 279.7374574446355, 279.4423260717533, 279.2902964713741, 279.2902964713741, 272.341657498677, 271.8810457931349, 271.8810457931349, 262.7799312824997, 262.7799312824997, 263.27055776456245, 261.1550041572907, 261.2270823398293, 261.2270823398293, 262.6851804365331, 260.76279720210556, 262.26647533079966, 264.1793355688071, 264.1793355688071, 268.87467907057663, 268.87467907057663, 268.87467907057663, 267.36673466746436, 268.4442463843578, 268.19641231308503, 268.19641231308503, 268.52624132548164, 268.52624132548164, 268.52624132548164, 266.98499738963613, 265.5131929126853, 263.01711425098256, 263.01711425098256, 263.01711425098256, 273.9432198652275, 273.9432198652275, 273.9432198652275, 279.081716779606, 279.081716779606, 278.5384327291846, 278.5384327291846, 279.86900467454507, 287.943229410602, 288.15796448429336, 288.15796448429336, 288.15796448429336, 288.15796448429336), xaxis = "x1", yaxis = "y7", hoverinfo = "none" ) trace78 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(277.85757303898845, 277.3721429690109, 276.40795715148164, 275.1020531215843, 275.80598399738557, 276.13657856293844, 276.46437313690797, 274.84982988730576, 278.83537200240687, 278.49556048639613, 278.0493064581629, 278.5926869521881, 279.19685960965177, 279.19685960965177, 279.32926790429343, 280.7023642669867, 281.61462191690174, 280.9965598221665, 280.7437542132615, 281.743386358545, 281.9945109380969, 280.74191610244685, 281.43527222471664, 281.3730404890742, 289.68027358639847, 290.58447099973546, 282.86875080791333, 279.50116078521614, 282.094707356729, 300.08252870085335, 298.2246348450768, 298.49488463787304, 283.7946973838574, 285.06825775494787, 284.55392296145305, 286.3314793290791, 286.27953152432315, 285.5972278879411, 284.9655456336232, 289.62968724154933, 291.6239795553535, 284.6333797663313, 284.2943017127019, 282.97800011478455, 284.016722818836, 284.3250163861269, 284.88486862511724, 285.44420057341586, 284.11828593228375, 283.3281602382724, 286.2838046521145, 289.9028632522344, 322.0453391427112, 312.8540731327626, 308.7254341048029, 299.9036594367478, 299.9036594367478, 324.4002624107788, 325.1660595379423, 325.1376111090613, 316.668410212232, 316.668410212232, 337.0795596856538, 350.00228211562717, 340.7568536515508, 345.8335572414516, 339.9396456446072, 360.29677618959806, 351.5057794013017, 329.59891683872223, 336.7664590274042, 342.11218120428583, 336.2169216711303, 338.61586437885154, 346.70914524155273, 346.70914524155273, 352.9205144702276, 352.9205144702276, 334.81820481157393, 339.9105405791123), xaxis = "x1", yaxis = "y7", hoverinfo = "none" ) trace79 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(280.69908115473146, 280.6860135458668, 280.6282951025802, 280.9871210870374, 280.7649604929421, 281.1663066415489, 281.6455269290534, 281.8613957505268, 281.80363273524335, 281.68729026750026, 283.86552212317594, 284.3024792759117, 285.28682584848815, 288.5369131274492, 294.81850478349475, 294.16182125595157, 290.7000517788011, 292.07679442931135, 289.9907357647231, 289.19095764676416, 291.67362994526655, 290.6978404414966, 290.6978404414966, 290.6978404414966, 294.1480251671225, 295.49849699228037, 286.62397769848934, 289.1624792457889, 289.17493182561475, 291.07242274650963, 290.8610583441457, 291.0833449872473, 290.9018760930191, 290.9018760930191, 290.9018760930191, 290.754758540425, 292.944732532159, 296.6040840055105, 292.4752162705088, 283.0924274070139, 274.1533249257983, 275.0359912111268, 281.1495034618096, 285.1320883196827, 285.2634286828099, 285.2278736049272, 284.36260184758635, 264.54568604338795, 268.9876954042175, 267.2855399821564, 258.35584679018575, 253.5574858023678, 254.2322349978782, 252.21023660898032, 231.36892075782225, 237.03017036877466, 225.92891073229396, 231.64372405494817, 226.79333385816722, 227.5165442989756, 235.44315842767776, 246.8699719385289, 246.8699719385289, 260.59982677965036, 189.8385054224861, 193.5657615003865, 189.26333598449557, 220.47405559286526, 214.03675319711888, 220.6250131962264, 229.50421204892547, 221.73043409984038, 225.56087089101297, 227.4233445190422, 226.17250161460007, 236.77168188237047, 209.0611597781923, 221.83189450308842, 218.88139430615107, 174.29344452391564), xaxis = "x1", yaxis = "y7", hoverinfo = "none" ) trace80 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(279.4520380249998, 278.59146343962436, 278.59146343962436, 278.4661684233105, 278.07871254749296, 279.4414968210211, 278.5664568923234, 277.0979937168325, 274.9884139676873, 274.9635687171889, 275.4009133144763, 274.7373961808968, 272.1541551778929, 271.1075078846244, 270.8015144882516, 270.2602466161051, 270.3261160993049, 271.18403009159647, 273.56948853921324, 272.5263024244918, 275.562541357373, 272.9583955374646, 274.88032545293527, 277.07863071463515, 275.86812428947553, 275.3495714188158, 272.86016793281044, 272.96714573853546, 272.94833539482977, 273.7337063204172, 275.72735230963366, 273.8488679990993, 280.5169444924237, 280.43296837287807, 283.82677447453926, 279.5413062858205, 281.54344265125525, 280.46026536178346, 280.7160449076645, 280.00611210357147, 293.7855032745087, 302.0909915961541, 305.60793315647896, 299.6638085550622, 301.976766849927, 308.6560242758679, 308.6560242758679, 308.9776159560044, 311.65146551378774, 303.49924387593177, 307.1472436179269, 291.19359850027973, 295.1797001294029, 299.64343305314736, 319.6647128482127, 318.28045104652057, 315.4819181534142, 322.06618136771164, 306.0501463015259, 297.01273452756004, 303.60135177574386, 305.44051230041714, 308.0863219185014, 306.07195719243873, 311.76765516378174, 305.050996293144, 321.55479060095956, 339.50400314855403, 350.1883942205962, 350.9186260417272, 332.34658215084016, 332.34658215084016, 332.34658215084016, 336.8948097246111, 324.63594263431276, 375.20880824917504, 379.90555410478714, 378.9886128954854, 358.7875445075665, 372.9150304250186), xaxis = "x1", yaxis = "y7", hoverinfo = "none" ) trace81 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(278.66107853322507, 278.53905408206214, 278.44961625756883, 278.2038821583279, 278.0389612028456, 277.7818215031037, 277.00217490401997, 278.561584253515, 276.80062264880195, 276.4076980715078, 276.396825302319, 277.2881445727722, 277.2722410413084, 276.70667052768255, 276.3528947305169, 276.51371947113984, 276.73107118041213, 276.4870141650803, 275.62886493618197, 277.3752326550545, 275.95294011387, 275.30518994248274, 275.3095558326986, 276.0999940220606, 276.0999940220606, 277.2999189053216, 277.1363302375842, 278.74075788822563, 277.0067014311666, 277.09656486088016, 278.9142777830281, 279.331393627054, 283.238576089605, 283.7669581502197, 294.5479822875014, 299.66846203135157, 295.90082998172375, 298.9354744798939, 304.5379523297076, 298.0070817689277, 312.49854619485313, 300.97328960091465, 300.97328960091465, 301.62151032590026, 323.50076109981563, 321.68965230938346, 305.8873428654131, 306.3347607184527, 301.85236616306514, 301.85236616306514, 303.1453755328922, 308.3014334505095, 306.8906358845586, 308.52710865383295, 318.6329029578684, 306.521528271909, 305.35713583687334, 305.3451013372252, 337.30850657419023, 315.94139984098405, 309.3345758025716, 314.9373410108544, 337.23763346612805, 337.6190480058377, 311.60340364698186, 316.9847617468555, 312.35779598441036, 315.8017690709224, 310.7409413094443, 302.14712561886154, 302.14712561886154, 295.0179125381664, 295.0179125381664, 298.90266879850384, 295.8082824131691, 271.6171674038064, 304.29959762358004, 319.4473101694272, 303.9883326856313, 303.1259560189647), xaxis = "x1", yaxis = "y7", hoverinfo = "none" ) trace82 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(281.6673482690512, 281.68052796220104, 281.68052796220104, 281.802917252404, 281.28236960535224, 282.60356593615387, 282.4635790713592, 284.55588271254226, 284.91182172384475, 286.82500690912104, 286.56520377346993, 286.490446918134, 286.2899552531462, 286.2899552531462, 284.8693106817207, 285.01063074687227, 285.01063074687227, 284.6202791180126, 284.45177442978564, 284.2891843490624, 282.5087737662557, 282.010324562378, 282.61039866214117, 281.5766515589832, 283.7985766638459, 282.14813025917067, 282.47787444523766, 282.4785462968296, 282.3826419983047, 281.56106064963376, 280.98775750868555, 278.9766575577091, 279.5400105344157, 279.1542024562422, 280.69391636534147, 280.0695324531895, 280.0695324531895, 288.6763066531609, 292.4087624609175, 292.4087624609175, 290.5694041374408, 291.366613622959, 294.0329657183971, 296.58405030681945, 296.58405030681945, 296.9138305346777, 301.44080413961564, 292.8464303288166, 285.1050187835952, 284.8332639369888, 285.54925111257074, 285.8331649776155, 286.66487828358964, 286.2736550047741, 289.2513543776668, 292.33429643961915, 292.33429643961915, 293.9515377160317, 293.98165984820974, 285.56302075781895, 294.30701323837343, 281.02882703216505, 300.75486888142797, 313.46346140702354, 325.9730012498605, 309.4734289733611, 322.5676867019167, 313.33862207745625, 315.23127379190163, 315.23127379190163, 322.60119948070775, 322.60119948070775, 345.5335430519075, 405.5336424973417, 392.52084707728443, 390.1582796476747, 390.1582796476747, 426.89567506980336, 365.3042061340848, 403.2076020749201), xaxis = "x1", yaxis = "y7", hoverinfo = "none" ) trace83 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(276.70139069237644, 275.9385896908576, 276.01958288470144, 277.0516849839061, 276.35250954761085, 277.4863692434137, 277.4677192955088, 278.7328021566838, 278.7328021566838, 278.722615841097, 278.7663461149213, 278.9172990147699, 278.9172990147699, 278.9250227854342, 278.8433911587889, 277.94299757898824, 276.55028110291454, 275.39697564924023, 275.39697564924023, 277.6911404793172, 277.3897501214729, 277.3897501214729, 277.3897501214729, 278.3949694935948, 277.3799714258161, 277.41933875771565, 276.34445657775035, 277.1073864333356, 277.1605400230273, 276.95937936907455, 276.6383921398456, 276.067728471002, 273.4501495844043, 276.3422730641741, 272.86074694866, 272.86074694866, 274.754644151479, 274.754644151479, 274.00511038216524, 272.8920434216766, 277.8423998676424, 276.47983508488386, 277.63671675897086, 283.3866357832316, 284.3866646996185, 292.01321770593137, 291.5657041104707, 291.524641492226, 289.73593935718173, 296.54807131804006, 296.5520410098524, 294.3597302192786, 292.930329478877, 293.07786133135755, 294.15610361673515, 293.16368092664044, 285.18746828215745, 287.07885034634745, 320.62899838165856, 296.1043022569694, 297.60880497682416, 304.0349929994076, 286.8743004302636, 286.6056221802019, 291.8206756920938, 295.7958984218935, 304.3637190311614, 306.59731366140556, 312.02882973736916, 302.53425819380857, 295.79540571352976, 270.35044777379187, 271.9967414410949, 259.7876863763635, 266.93947094550015, 259.7976844195991, 264.9277296342239, 264.9277296342239, 262.57345050106375, 262.57345050106375), xaxis = "x1", yaxis = "y7", hoverinfo = "none" ) trace84 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(279.51217408701837, 279.2899590769139, 279.4371658412831, 278.65692389316047, 278.65692389316047, 278.8955123710174, 279.1442952998778, 280.9862314807155, 281.2640606057492, 280.9213435658644, 281.61682635984926, 281.7682011838101, 282.70025634469386, 282.8907416287269, 284.7262120327298, 284.59817455315806, 285.1544392420637, 284.3920134232499, 289.83376280976404, 289.72369053016695, 289.4743433466957, 290.4685619178049, 290.4685619178049, 290.4898363736388, 289.81738295891626, 289.8400569555175, 291.23733266783194, 289.52670298903683, 287.50149835949395, 287.50149835949395, 286.81877532953445, 286.81877532953445, 286.7446237040349, 274.68203423201965, 274.60417540857634, 263.6162062622626, 266.7020106005805, 264.53232430087223, 273.6186852737356, 271.55459164751113, 276.42443875589345, 275.13695510146084, 275.12453635148506, 274.36559141975107, 278.97569928422075, 279.6946097879173, 289.53385301847425, 284.13304937313217, 283.80968598166504, 283.17891017259467, 287.28944672279874, 287.28944672279874, 298.54883314992276, 300.9424399062863, 294.16803816559275, 290.0711982644317, 289.1561589345194, 295.97863461965005, 297.9435343762704, 289.78756328577964, 301.37572094625716, 282.94156969764964, 287.8386786594124, 286.9680943953721, 286.5977191296796, 275.7008780174304, 271.5731173314716, 274.1593823455358, 283.7143525427465, 287.4433258783389, 281.99134891877077, 290.51204952531964, 305.1996335520881, 313.00342414067507, 348.6429791540488, 351.7033815774816, 355.9681960747869, 356.7689348843774, 370.6543112203127, 364.45108928351266), xaxis = "x1", yaxis = "y7", hoverinfo = "none" ) trace85 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(172.08813903508405, 172.08813903508405, 172.08813903508405, 172.04436457462864, 172.04110431285994, 171.64947344192203, 171.76951112594492, 171.79922777879298, 172.1291130137446, 171.16759735278987, 170.0690689009791, 169.91912110915473, 170.5324244366279, 170.5796614007484, 170.67572338024257, 170.6091539598608, 170.86592792741777, 171.2676308544498, 171.25554761118855, 171.54007145662416, 171.92833077818432, 171.71334634962307, 170.11334356990318, 170.11334356990318, 170.01630342825098, 169.3085098260177, 169.21556573181613, 169.02711343447754, 168.49630424117439, 168.50778258600224, 169.02719458558352, 170.69019696808206, 169.72028582273094, 169.61265691398373, 170.22440405392845, 170.16395313315502, 170.076321817276, 169.3281306453254, 169.28493002594726, 169.49510315126167, 169.88654464606256, 170.2251927281405, 170.5253019493641, 170.2431680153937, 170.991597731862, 171.01902078786972, 171.08023784843238, 171.04101764056566, 170.95586043648555, 170.82425027550227, 171.16089041971654, 171.0975186171686, 170.87752604058528, 171.17866587949513, 171.12868414192585, 171.05557750649032, 171.43175736193166, 171.41907076469232, 171.43941327541378, 170.7243747333642, 171.03951093025864, 170.80854743844563, 171.45314689355945, 171.55153890342518, 171.2908339403882, 171.2908339403882, 171.70089275055767, 171.33983115047477, 171.33983115047477, 171.2270350973243, 170.52189151888268, 170.99931860016952, 170.8515345533614, 170.03712432765101, 167.7162031221473, 167.68130631011093, 168.1297414427816, 167.79967084307768, 168.2535162851841, 168.7641540151008), xaxis = "x1", yaxis = "y8", hoverinfo = "none" ) trace86 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(171.44280390044216, 171.67044590068497, 172.05416452813463, 171.93695421948075, 171.6131311426616, 172.23098262851448, 172.25303382355273, 172.33686285706753, 172.33686285706753, 171.71207769529545, 171.9453485391816, 171.93944224235725, 172.62597028806405, 172.62597028806405, 172.17212394639677, 172.79797372384616, 172.79797372384616, 172.4456713702316, 172.42110630430406, 172.73351949756707, 172.8839979690796, 172.457257161149, 172.40741195115365, 172.26305486177677, 172.35826473792645, 172.41775514851827, 172.3653962506673, 172.81226938404038, 172.2238190139184, 172.22663741644286, 172.0177839634176, 172.08637043756326, 172.30737958234766, 171.80538470544616, 172.14776948969404, 172.14776948969404, 172.13743125478427, 172.1553780124321, 171.9404577592622, 171.8973424964676, 171.42859803949568, 171.42859803949568, 171.41771533160792, 171.2346668219844, 171.18580524728463, 171.57661005067266, 171.53427209522619, 171.39792769992962, 171.20827252993323, 171.20827252993323, 171.02389724518346, 171.02389724518346, 171.00518704755558, 171.0244854680742, 170.80015001642406, 170.70575573344598, 170.88396594506594, 170.78909296454, 170.52405355526332, 170.52405355526332, 170.39133164103936, 170.69431171825218, 168.61023168409145, 168.37574210434875, 168.33307829197742, 166.79647003466116, 166.60985791040193, 167.0286208972969, 166.7816334997186, 166.8582892211385, 166.0776299576336, 167.23303416902746, 166.80720932030144, 166.11929635547423, 166.31763376270652, 166.66706417247693, 166.35086484859036, 166.33254695348137, 166.44295915359237, 166.9721219391894), xaxis = "x1", yaxis = "y8", hoverinfo = "none" ) trace87 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(167.43479379611935, 167.43479379611935, 168.0446219564131, 168.04007213743148, 167.8279572323632, 167.97326746115675, 167.06901481500643, 167.18627895178497, 167.1198313022649, 167.1198313022649, 167.32904838245832, 167.52487742122128, 168.2963167268971, 168.44844980790032, 168.210082845904, 167.6171429955244, 167.6171429955244, 167.9915999431238, 168.35798814973734, 167.95856290473944, 168.00022511892251, 168.07334185749815, 166.9794542728179, 166.94443220745592, 166.52910364812658, 165.4573062044461, 164.98632020508194, 164.98632020508194, 167.88924279809697, 167.88924279809697, 167.5430298869462, 167.5430298869462, 167.70951119401258, 168.61796265396066, 167.49030214037143, 165.49234061768263, 164.7529163232809, 165.78119395245128, 165.62811811031102, 165.64892552876086, 165.8387173616847, 164.97244575259276, 165.72547019226442, 166.7172921212484, 165.77191594533673, 166.91507270648103, 166.82459399268367, 167.078157513038, 166.9216608238564, 166.28318589877975, 166.63759756285387, 165.88880878970997, 165.98112584209642, 165.13292370881314, 165.9129090847247, 165.7361512229871, 165.2278164252066, 165.2278164252066, 165.88331247202393, 165.60115572144863, 165.9552982172351, 165.9552982172351, 165.5493154347013, 165.35611656609697, 164.8812873870248, 164.75154438891116, 164.47795997868238, 164.28682381840605, 164.8932628211053, 164.8932628211053, 164.7488044816847, 164.47640345230695, 164.42056608726304, 164.42056608726304, 164.42056608726304, 164.16250685965628, 164.16250685965628, 164.4639730664889, 164.39907548781184, 163.99662355317258), xaxis = "x1", yaxis = "y8", hoverinfo = "none" ) trace88 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(172.7219812770267, 172.08444902215987, 171.96255560443078, 172.42096417913064, 172.25761890367653, 172.09165860379892, 172.37150849916375, 171.88041515040365, 172.02463928869548, 171.78957118680674, 171.79665605427155, 171.47183381553523, 171.4591041165133, 171.63355736624104, 171.89418617976114, 172.34130401173738, 172.37442513966917, 172.81129316415888, 172.79993649506412, 172.79448144968225, 173.07086848104296, 172.9447310092013, 172.88962241567262, 172.1853907984041, 172.25117451750535, 172.25117451750535, 172.35366079323578, 172.28068572507712, 172.30113315366722, 172.18211829669355, 172.16277467261318, 171.8004400969681, 172.01343656315876, 172.05827500576763, 171.36639286068475, 171.63518653582318, 171.5647709221065, 171.43824208350244, 170.81852673928006, 170.87859602390805, 170.37371760491624, 170.50197583301636, 170.2244475350063, 169.53764694258774, 169.4976451022355, 168.36486614168518, 168.3228421218288, 168.65201338683747, 168.65201338683747, 168.65518031862632, 168.73232645373645, 169.0721839378651, 169.07359983000305, 169.20835127129752, 169.20835127129752, 168.08094140960714, 167.96314821211467, 168.09584171658537, 168.09584171658537, 168.27719339737098, 167.9254993816158, 167.70127494744372, 167.6729001251883, 166.5296966043055, 166.72103729881835, 166.71370152027706, 166.92441314957983, 166.92441314957983, 166.9113940879668, 167.1573186944766, 166.80571243516823, 166.18978494885897, 166.18978494885897, 166.35585986344162, 166.5673154867531, 166.18530633800583, 166.6572534284626, 168.84994020594888, 168.60742574076505, 168.80525173879292), xaxis = "x1", yaxis = "y8", hoverinfo = "none" ) trace89 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(163.86263170821977, 164.01472220304046, 163.46609908497769, 163.49005843727076, 162.77095558156088, 163.61323916445244, 163.66254530015408, 163.33246177080565, 163.2510897945877, 163.2510897945877, 163.24300596453617, 163.24300596453617, 163.4664824044882, 163.4664824044882, 163.4664824044882, 162.92610993875627, 163.11259512070365, 161.7748383605171, 161.7748383605171, 161.946723409226, 161.946723409226, 162.00703077483868, 162.30893413486157, 162.4053262514338, 162.54979827421752, 162.54979827421752, 162.4763721573968, 162.4763721573968, 162.5764534564325, 162.74363359674712, 162.6586145749996, 162.9696884102292, 162.9696884102292, 162.9696884102292, 162.6771281638068, 162.0255596948034, 161.87071056657783, 161.87071056657783, 161.67427057041263, 162.04089355888266, 162.04089355888266, 161.16269940453193, 161.16269940453193, 161.26715303276532, 160.8231686866999, 160.8675682235009, 160.8675682235009, 161.21861315171265, 160.68400744137534, 161.15653920898066, 161.60100171463893, 161.60100171463893, 162.22138426066664, 162.22138426066664, 162.22138426066664, 161.91857548107868, 162.41363828241631, 161.93695282690032, 161.93695282690032, 161.93159573041768, 161.93159573041768, 161.93159573041768, 161.4777823350212, 161.71862253527922, 161.71627211932636, 161.71627211932636, 161.71627211932636, 162.19929369614616, 162.19929369614616, 162.19929369614616, 161.2520595209419, 161.2520595209419, 161.40822333922085, 161.40822333922085, 160.9866039821683, 159.77180038795046, 160.49681606878653, 160.49681606878653, 160.49681606878653, 160.49681606878653), xaxis = "x1", yaxis = "y8", hoverinfo = "none" ) trace90 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(169.06958608394103, 168.9767217432279, 168.50246904463376, 169.29039029716878, 169.1594092285264, 169.2797468417409, 169.22195303389282, 169.3308941130249, 170.91104742360383, 171.26946712170675, 171.23785834453324, 171.14584861216971, 170.74688877961586, 170.74688877961586, 169.9786972282091, 171.38362648814976, 171.39128901169371, 170.93105976281004, 170.5568499664301, 170.06577411104365, 169.3999542438071, 169.72394067892637, 170.39887112521285, 170.349211845827, 170.5238767796635, 170.21222879552556, 169.46878412138415, 169.37394089088068, 169.51412720832337, 169.00053376332843, 168.4632951699608, 168.49526659938746, 169.43203230605133, 169.32366483954488, 167.54034982206684, 166.87957576674634, 167.02457600200628, 168.05038710064662, 167.79840341889152, 166.92753958009112, 167.29411536481263, 167.4127198021054, 167.53710793227242, 167.26523021979088, 167.54172994496344, 167.57672091885925, 168.1979010086297, 168.649890918598, 168.8572733610884, 168.63897857863597, 168.54126540938415, 168.12649553292303, 167.691170826547, 168.20404107990348, 168.32060090412168, 168.25600501926002, 168.25600501926002, 167.72288314245017, 168.079383409701, 167.95972670656772, 168.2910135790274, 168.2910135790274, 168.3773692373171, 169.15934293093846, 168.87487040958928, 168.57831856666738, 168.73197715324255, 168.11614913694584, 167.48711937757628, 168.3046118153843, 168.13562800074433, 167.758746016848, 166.9656709539302, 166.69918587048505, 167.1806599027885, 167.1806599027885, 167.61550603735606, 167.61550603735606, 167.57969354685983, 167.86067156323008), xaxis = "x1", yaxis = "y8", hoverinfo = "none" ) trace91 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(169.1092565326217, 169.5021669592074, 169.34582594585802, 169.2835205622001, 168.8571005780262, 169.09745454710594, 169.55613414542196, 169.96809502637217, 169.73177338700197, 169.84142686640098, 169.5725514894773, 169.74390354169333, 169.5591129940483, 170.72234238287572, 171.1534221832621, 170.51181013525436, 170.81019028838932, 170.68182417344295, 171.02548387609866, 171.5223774811742, 172.09531468500052, 171.70780285516838, 171.70780285516838, 171.70780285516838, 171.27554921205444, 171.49486899585781, 171.83449738637688, 171.91691009585452, 171.99499262969692, 172.14339232728642, 172.0700682370717, 172.39637312077025, 172.03143249112767, 172.03143249112767, 172.03143249112767, 172.01240204835665, 172.01719083918616, 171.71600845747804, 171.66098378173567, 171.93414343936172, 171.79074387831747, 171.52638980788853, 171.2812180404694, 171.19591054896114, 171.15659695851622, 170.77820923465504, 170.97047089127904, 170.56759493109428, 170.6084882448349, 170.85839799963455, 171.10167853391638, 171.7576340520955, 171.78650606202143, 171.9459038998812, 171.95926648947292, 171.859618995724, 170.11371606685694, 169.71264547550166, 169.90474779090894, 169.94186545811965, 169.61303103232922, 169.35604436449006, 169.35604436449006, 168.79751917546776, 171.14308850206243, 170.88968502329033, 171.1802616032448, 169.8494261793613, 169.6883438610722, 170.9039780851508, 171.24916396343014, 172.56393797427472, 172.04553546767752, 172.03371070227337, 172.29972735101063, 171.83349235020793, 172.15412234136366, 171.07290757582044, 171.42154224256393, 171.33874593149216), xaxis = "x1", yaxis = "y8", hoverinfo = "none" ) trace92 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(168.68088841289537, 168.28280911217126, 168.28280911217126, 168.6189221957274, 168.51215371625258, 167.58802485260185, 167.7957880300338, 167.32366554632205, 168.46664319920222, 168.55796191428027, 169.0009854594064, 169.12844551564336, 168.65249433482683, 168.64086830769327, 168.23797613956086, 168.1248603065379, 168.00825120599623, 168.26984351637034, 168.1534844792996, 168.18465477968252, 170.8761109469071, 170.76372567876473, 171.18463986237325, 171.2555785738246, 170.97375820530843, 171.3333192245238, 171.03252042187188, 171.03473929837773, 171.03561920678885, 171.11506761307785, 170.82944039968103, 170.8065540923205, 170.80422093370643, 170.88616312249465, 170.85358000188037, 170.47829975417875, 170.6743662281871, 170.67524547465055, 170.66108825350182, 170.61224220571245, 171.3407194257844, 170.98025279856674, 171.3762420578831, 171.12263570947843, 171.23039613800503, 171.84664577032183, 171.84664577032183, 171.98236566123458, 172.03015136642586, 171.9631964021477, 171.8991238452459, 171.85955497152895, 172.3126571247224, 172.37637184773453, 172.5688093679543, 172.64037542638724, 171.99704857567536, 172.04204007349563, 172.03530403406498, 171.9864402041319, 171.98659849449632, 172.28511892998705, 172.64996585899877, 172.54965106068488, 172.8414042390502, 172.4914699453178, 172.75537235986565, 172.51646345131365, 172.3981081884904, 172.6533412084045, 172.52014802463333, 172.52014802463333, 172.52014802463333, 172.5427221002961, 172.24510505149212, 172.37822246896138, 172.64761208540466, 172.450624142148, 171.88528525427247, 172.3307714648213), xaxis = "x1", yaxis = "y8", hoverinfo = "none" ) trace93 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(169.34087602223653, 168.96991040902049, 169.076454428657, 169.79441374477747, 169.97252874818804, 170.34554064624487, 170.66866659187497, 170.35430370369966, 170.6737239254295, 170.30925783795092, 170.29761990523207, 170.20369985546165, 170.13274227592018, 170.3952529357059, 169.21002122072883, 168.68957548785488, 168.60786984815212, 168.43323944122375, 167.98807611643838, 168.55820225899438, 168.19248027925883, 168.3447949589783, 168.45504166731837, 168.56854156087078, 168.56854156087078, 168.45694172938425, 168.53756932715763, 168.01369164096474, 167.73891338472973, 167.528186966459, 168.1134430593333, 168.0679306613438, 166.82704295596795, 167.03395141613854, 167.70241569506243, 167.349385935375, 167.67936566066913, 168.1582184298711, 166.3674357990683, 167.3726166167343, 166.04083926263473, 165.46323614702166, 165.46323614702166, 165.61286098049237, 166.3303261600852, 166.45043013535172, 166.9326847537058, 166.95031495287415, 167.22866706381828, 167.22866706381828, 169.08902855084833, 168.69963296116762, 169.53886050861485, 170.10865768011885, 168.13163830216584, 167.55890294692503, 167.74545030012817, 167.80316866449732, 171.19763785706346, 171.1474514631862, 171.295395536672, 171.20282832219684, 171.37413287298017, 171.1492306557852, 170.73864190037006, 170.7803875640813, 170.98474181078515, 170.8422998022172, 170.8357903358611, 171.45878782041862, 171.45878782041862, 171.53613966319745, 171.53613966319745, 171.47160846340327, 171.06836625112436, 170.89261802346059, 170.2982698953334, 169.66299353959562, 169.3426232708774, 169.2707666741621), xaxis = "x1", yaxis = "y8", hoverinfo = "none" ) trace94 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(171.69202069418031, 171.6742780747689, 171.6742780747689, 171.78081805847413, 171.4441791335733, 171.4835441181611, 171.58549470090995, 171.1552478030499, 171.69487911988645, 171.8199694199692, 171.6263387885041, 171.40225208247688, 171.12697043909327, 171.12697043909327, 171.2159802123804, 171.22548664982045, 171.22548664982045, 170.93648018695495, 171.09781295651413, 171.1155030479043, 171.01734221270746, 171.7227106990239, 171.8120687974135, 171.66201145152212, 171.0408856202085, 170.80427161173733, 171.26996568202318, 171.26986167597897, 170.93573954632035, 170.9862351850769, 170.92593124877052, 171.25244810980593, 170.99601441937637, 170.8098604370792, 170.49032416364105, 171.0047421878828, 171.0047421878828, 170.50260612588545, 170.41818763980672, 170.41818763980672, 170.49108391598028, 170.31409817292266, 170.2696719123294, 170.79590847802672, 170.79590847802672, 170.7470866054686, 171.06052012934578, 170.5759243853716, 170.266058949445, 170.28162948279768, 170.18588534003317, 170.13807983867778, 170.08895965664422, 169.82390427199434, 169.82716661005054, 169.48320176751318, 169.48320176751318, 170.00380970117166, 169.91479266021034, 170.74151021802112, 171.30368647578817, 171.43467774085968, 170.42522168252663, 171.03270706498577, 171.2522153980942, 171.03562678702494, 169.72816807049438, 170.01129375696965, 169.72184903036447, 169.72184903036447, 169.49656236543316, 169.49656236543316, 170.5010773270751, 169.3854401996027, 169.17947944737793, 169.02830997717498, 169.02830997717498, 168.25045299480462, 168.03381913963975, 166.4582533867814), xaxis = "x1", yaxis = "y8", hoverinfo = "none" ) trace95 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(166.12378351704564, 165.66847299368033, 165.5754469356563, 165.49202182297995, 165.10004562105422, 164.2850168263637, 164.2713529828802, 164.13714506846773, 164.13714506846773, 164.44792792503733, 164.49286909393993, 164.53732560922845, 164.53732560922845, 164.38666457213034, 164.40390237080825, 164.5215508730243, 164.5620076946664, 164.2652893467403, 164.2652893467403, 163.99680359986024, 163.63984949931861, 163.63984949931861, 163.63984949931861, 164.0480464598656, 164.54716030918476, 164.43766131645648, 164.75797038592518, 165.2324076158064, 164.52538583655522, 164.35099593138702, 164.23352817070418, 164.30303564915292, 164.67759585801537, 164.30977915527362, 164.9215354892007, 164.9215354892007, 165.20024994670405, 165.20024994670405, 165.3515760915316, 165.4335413115304, 165.1032459218638, 165.27751319271178, 165.0547505648461, 164.93321544822675, 165.11073431682559, 165.56695776441322, 165.9109590612897, 165.56575858826807, 165.440235684808, 165.92401259236513, 166.11922703583673, 166.46086516352972, 166.26877666236973, 166.18237880563882, 165.83807083271472, 165.78031807072574, 165.4265265639975, 165.71150175584714, 166.12482378191584, 166.13761956812158, 166.42740581544837, 166.2196886771886, 165.4336151956522, 165.19942301653643, 164.39814383392803, 164.5617764457178, 164.6566544293028, 166.4441269110441, 166.8098183337377, 168.30743559003218, 168.71666283787138, 169.98459658729973, 169.91273455313961, 169.80391259746753, 169.10381857447777, 168.2541604233428, 167.64174973228026, 167.64174973228026, 167.44421508458495, 167.44421508458495), xaxis = "x1", yaxis = "y8", hoverinfo = "none" ) trace96 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(171.0676610647453, 171.49285170943477, 171.49266002808162, 171.7916002091083, 171.7916002091083, 172.13258444732546, 171.65982800627606, 171.14108771699264, 171.01028218524607, 170.87651664779423, 170.80680318006304, 170.91535410075028, 169.1934337917462, 169.63137826772774, 169.57875635585944, 169.4783646814306, 169.5075076605513, 169.4001795781899, 169.6575821558439, 169.60688102067303, 170.19473653476726, 170.45045379381187, 170.45045379381187, 170.45187612580665, 170.67239400282926, 170.66998763399684, 170.52922581436624, 169.98284966329885, 169.46246475566636, 169.46246475566636, 169.26928346354507, 169.26928346354507, 169.26936735921672, 169.78146533831926, 169.43816070156396, 168.42832350920617, 167.65621026928113, 168.24072435168694, 167.50397574669387, 167.0186764606369, 168.26408325492667, 168.20734324022243, 168.63863701458686, 166.66075876098103, 165.89958699127607, 166.36882048021027, 165.41047090009985, 166.55597463413284, 166.21685292419707, 166.32935417326522, 167.19076839101476, 167.19076839101476, 166.98264200496644, 166.22061296606333, 167.1312479061667, 166.83425064189626, 165.96307315374378, 166.67680956066042, 166.74110450352728, 166.6831008451353, 165.5649508531901, 164.97991959584434, 165.34338515836194, 165.33879070843196, 165.55024205387437, 165.53089936258704, 166.50550606483026, 167.12744783632652, 167.12819331561252, 169.1291692774791, 169.2415213487166, 168.15987490064938, 167.80020999941928, 167.60061988721546, 165.6411976770313, 165.86613665406503, 165.8552172968237, 165.61299875055383, 166.07899911333755, 166.1313574699438), xaxis = "x1", yaxis = "y8", hoverinfo = "none" ) trace97 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(333.0224533909874, 333.0224533909874, 333.0224533909874, 332.5421446313483, 332.6802252097606, 332.40677021550596, 332.4543032129202, 332.2556328759338, 332.33128150699036, 332.6405607721566, 332.4408201553378, 332.5593400895933, 332.3451742213913, 332.34142047999063, 331.87273168458756, 331.8447741446651, 331.8789911198877, 331.92769695893503, 332.00817107661686, 331.91146004101904, 331.9951850659438, 331.78933040678965, 331.9187378203895, 331.9187378203895, 331.77798442146826, 331.89642501503215, 331.72522052321744, 331.7589433014559, 331.8133313577407, 331.6124869980407, 331.49135925909087, 331.7412805651119, 332.37133498036513, 332.39900192312996, 332.09159218656043, 332.0800832538579, 332.1276466057128, 332.1037847983779, 332.35572491234774, 331.86497636210305, 332.5151022263552, 332.80229211228055, 332.4073791435649, 332.2888743029618, 332.542988923871, 332.0781476286486, 332.12091607151166, 332.0751126695221, 332.15643434607404, 332.4132541860688, 332.09132935166355, 332.02694376896716, 333.0268081654766, 332.14721909595863, 332.0267565100476, 332.1188657305519, 332.0287362149983, 331.3709354255442, 331.3153673767024, 331.3329266067724, 331.71721081241077, 331.8102539456455, 332.1397598156406, 331.68691876042925, 331.59736581175883, 331.59736581175883, 331.6169112777812, 331.62489763819184, 331.62489763819184, 331.57890538903735, 331.76261209729313, 331.9314732440914, 332.0043835590931, 332.29792844292297, 331.4922401990948, 331.4974850771972, 331.63653600853314, 331.0171299554263, 330.11146393602473, 330.0144876439287), xaxis = "x1", yaxis = "y9", hoverinfo = "none" ) trace98 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(329.968308431185, 329.9122612529459, 330.09806642067707, 329.9192236834615, 330.1991103827734, 329.57699224171836, 329.5557313015513, 330.4749835055682, 330.4749835055682, 330.5979018997931, 330.6691855313203, 330.7085885970163, 330.9151281714493, 330.9151281714493, 331.1222576894356, 330.74684921512886, 330.74684921512886, 330.9560858593034, 330.9514005441068, 330.5854817348355, 330.5855682845326, 330.7113735121766, 330.57999481999354, 330.6021865236369, 330.616377824895, 330.59143037313714, 330.64116559702074, 330.7497916733614, 331.21217270237406, 331.2157696467543, 331.15759997727935, 331.26492584401143, 331.2530201463293, 331.5548775542068, 331.5866087363974, 331.5866087363974, 331.5256398586339, 331.52121743922834, 331.6503806166197, 331.84012735190885, 331.73317563218444, 331.73317563218444, 331.61818878307116, 331.65959466791315, 331.55432878435744, 331.10660344439486, 331.3136270215636, 331.2711380690515, 331.1946839915273, 331.1946839915273, 331.18577814792667, 331.18577814792667, 331.2434196438524, 331.5991064403694, 331.6603448590723, 331.6659740114544, 331.812212533774, 331.8129858301586, 331.7575394131666, 331.7575394131666, 331.80425302636195, 331.7937966663983, 332.1396383091707, 332.12599064525193, 332.13152197612015, 331.8489960795689, 331.9504248094773, 332.16150941837526, 332.28494415077523, 332.25753407985155, 331.7952978665768, 331.59608215966716, 331.8296167230645, 332.1121237421446, 332.596733633971, 332.4730294491621, 332.4353239924525, 332.4401659683197, 332.6540509786076, 332.6775774030186), xaxis = "x1", yaxis = "y9", hoverinfo = "none" ) trace99 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(331.1868844857705, 331.1868844857705, 331.5653339259865, 331.55832523386755, 331.53124801804813, 331.4223116468264, 331.6916686898058, 331.654869326999, 331.57340764169675, 331.57340764169675, 331.52533331757473, 331.5185053930912, 331.63933574284056, 331.60289567304676, 331.6884477123491, 331.7689902408017, 331.7689902408017, 331.77016565418063, 332.32470268734164, 332.6869536964416, 332.7292608203788, 332.722121270419, 332.63636632136195, 332.8057701110685, 333.0450235554384, 331.7916478062376, 331.90893525737306, 331.90893525737306, 331.82528879018247, 331.82528879018247, 331.4736439386606, 331.4736439386606, 331.4531187480937, 331.22587613785635, 330.8673971700806, 330.90445324451053, 331.1860993253343, 330.97796575017753, 331.3457256359531, 331.36033104703546, 331.24112782651054, 331.08274586508423, 331.0590586666156, 331.35534507696065, 331.65902796255324, 331.8655618852589, 331.89077095210934, 331.9014186010767, 331.13957890137726, 330.9965029014056, 331.00291201938387, 331.31815396995336, 331.48190046501264, 331.082518636827, 330.74959823655945, 330.7956749228937, 330.3575590548426, 330.3575590548426, 330.2689326097559, 329.695718249299, 330.0862771421441, 330.0862771421441, 330.36990246034736, 330.3493329944064, 330.2124794628379, 330.1790042304976, 330.54457988329426, 331.6884808335842, 331.03837855962263, 331.03837855962263, 331.1640319860182, 331.320883149307, 331.3287802008611, 331.3287802008611, 331.3287802008611, 331.28620761227324, 331.28620761227324, 331.1822421016183, 331.18805992109935, 331.1887921358356), xaxis = "x1", yaxis = "y9", hoverinfo = "none" ) trace100 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(329.5155296162398, 329.88460614922434, 330.0829655189931, 329.6369176121405, 330.0564155380367, 330.0988291425619, 330.05628103874744, 330.26198602004365, 330.21510346459564, 330.0432524147403, 330.072386116034, 330.39089953126864, 330.37282019562434, 330.55883338768774, 330.498457353786, 331.02429754530044, 331.03527364963634, 330.7809238587992, 330.5999024146206, 330.60004691430333, 330.38200625286385, 330.43685387142557, 330.45794910793666, 331.3391443306555, 331.3254467806673, 331.3254467806673, 331.235768230182, 331.20420323031345, 331.2079444618493, 331.0133590226059, 330.7631536718673, 330.79311996069066, 331.53467978847306, 331.57269046488796, 331.65397662303604, 332.02931923398035, 332.0290259754185, 331.5104591804437, 331.9236357256236, 331.89204120301264, 332.01636004510135, 332.1166063820414, 332.10600102186135, 332.95719364688296, 332.98188995668386, 332.52121078053915, 332.54249494528597, 332.27791678991935, 332.27791678991935, 332.3530797619937, 332.29715160082543, 332.5609591619298, 332.56285866850953, 332.95496919521054, 332.95496919521054, 332.4497376295296, 332.21142310026437, 332.3074564200253, 332.3074564200253, 332.3074540009766, 332.51209009215034, 332.80311016931824, 332.7779886309908, 332.8752383779047, 332.5634302038104, 332.5578874001509, 332.72180475675884, 332.72180475675884, 332.7244760041709, 332.8073680772772, 332.68349080096897, 332.6852947074177, 332.6852947074177, 332.63067746464213, 332.73816631776214, 333.27095693637716, 331.89759356895837, 332.71691033988174, 332.53250847195005, 332.53950436691673), xaxis = "x1", yaxis = "y9", hoverinfo = "none" ) trace101 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(331.62810116085757, 331.5990140618213, 331.42989864599053, 331.4836970486721, 331.71920280777744, 331.3350073623602, 331.33541904282106, 331.13153803064375, 331.16018219532464, 331.16018219532464, 331.24499078286294, 331.24499078286294, 331.22012003852336, 331.22012003852336, 331.22012003852336, 331.2094948223975, 331.47310016652256, 332.01936277591943, 332.01936277591943, 332.00903526415533, 332.00903526415533, 332.00188084569885, 331.9330190025816, 331.9240479284326, 332.16324190367544, 332.16324190367544, 332.4541899981862, 332.4541899981862, 332.4564852669908, 332.32251648265026, 332.3450424378257, 332.2679813231526, 332.2679813231526, 332.2679813231526, 332.4562075565331, 331.70111776794084, 331.72933085069997, 331.72933085069997, 331.83422621056434, 331.8677166445512, 331.8677166445512, 331.9298881008985, 331.9298881008985, 331.891636168535, 332.02424677802327, 332.02837424059123, 332.02837424059123, 332.06937583118054, 331.98334534483536, 332.0599027420661, 331.84435451583914, 331.84435451583914, 331.7858333023421, 331.7858333023421, 331.7858333023421, 331.86484195710693, 331.51911282356673, 331.48119157051076, 331.48119157051076, 331.45505539707176, 331.45505539707176, 331.45505539707176, 331.54084782276357, 331.4805808618142, 331.562309476067, 331.562309476067, 331.562309476067, 331.19415474210484, 331.19415474210484, 331.19415474210484, 331.27350206480804, 331.27350206480804, 331.29104055664044, 331.29104055664044, 331.19099534080203, 331.1072439999893, 331.049118280766, 331.049118280766, 331.049118280766, 331.049118280766), xaxis = "x1", yaxis = "y9", hoverinfo = "none" ) trace102 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(331.89406819526, 331.91055007905635, 331.5442505981607, 331.9304611326204, 331.9010325229109, 331.8543521771369, 331.74382528769246, 330.7506438137365, 331.08166825363725, 330.93093813473905, 330.9076218930346, 330.972425648985, 330.82570066198656, 330.82570066198656, 331.4542256541293, 331.8429379001339, 331.5229093041181, 331.30453380019986, 331.44124612209424, 331.1635206232322, 330.6108951267578, 330.6569759028225, 330.9249672793886, 330.9050360225516, 330.82514185317757, 330.8024307050576, 331.1803257136138, 330.52303636897415, 330.81121270658974, 331.40590976882277, 331.5041139863517, 331.6505132523085, 332.0772960117968, 332.13457385350114, 332.3820720283976, 332.1641424117739, 332.1226867468923, 332.4671740435758, 332.34320441165204, 332.5404080512127, 332.58948833634224, 331.9456743691287, 331.9062041911637, 331.93615193559253, 332.04538543376646, 332.01027388227845, 331.8895799655839, 331.8844493922055, 331.81122709123554, 332.09242741183084, 332.42125221582916, 332.4150596786382, 332.7217702023835, 332.30587809204656, 332.1722375137035, 331.97274190651956, 331.97274190651956, 330.99890343528955, 330.3217352714474, 330.48293576558416, 330.4878582157578, 330.4878582157578, 330.294172784109, 330.30921646675944, 330.5342532370398, 330.42102747817165, 330.6408975252324, 329.89502648121567, 330.00048088585703, 330.32410316336365, 330.11017257765775, 330.1308492557349, 330.0853239320662, 329.8849921861638, 330.15646337875387, 330.15646337875387, 330.3295288968428, 330.3295288968428, 330.1654422459324, 330.00850466621256), xaxis = "x1", yaxis = "y9", hoverinfo = "none" ) trace103 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(331.006944656924, 330.8904272483989, 331.1729116147319, 331.02489103738935, 330.9879840811487, 330.64306920091855, 330.3650719361295, 330.04995443865425, 330.30473357213396, 330.41410623031396, 330.32306020515347, 330.1392324480281, 329.6283710281401, 330.69065870277575, 329.8336115464777, 328.7875867936023, 329.57209175475515, 329.3345570043155, 329.8437621770754, 330.18515740105516, 329.9726680907028, 330.37951502971157, 330.37951502971157, 330.37951502971157, 330.050354296904, 330.7758618528923, 330.926493122277, 330.8822055145726, 330.57855323652916, 330.4996832381514, 330.50567565624357, 330.49268709540394, 329.85297376770563, 329.85297376770563, 329.85297376770563, 329.8566746278421, 330.1053672898207, 329.9172609471061, 329.97911547665944, 330.58465493775105, 330.32178277826887, 329.97328980301376, 330.0431391528706, 329.80445874156067, 329.89251231591703, 330.24754458901197, 330.2896279557266, 329.97440370947163, 330.1071668704461, 330.67221532167207, 329.88326337098727, 330.38308838183247, 330.0305420871298, 329.8745543367871, 330.143645163865, 330.3940057517274, 331.2720232683202, 331.12047592395874, 331.0095619652767, 331.01202540676945, 331.15906003016863, 331.09550648530063, 331.09550648530063, 331.28096146090866, 331.95371540920615, 331.8790652022524, 332.147421817992, 331.7090913983183, 331.6327284142917, 331.59235122550274, 331.4655432185547, 331.6416312631623, 331.6740697451854, 331.62415363372116, 331.6550126951458, 331.57556174449536, 331.4000889832231, 331.29750171857404, 331.24738335391334, 330.4523840922626), xaxis = "x1", yaxis = "y9", hoverinfo = "none" ) trace104 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(332.1163484392961, 331.7771341174202, 331.7771341174202, 331.5960162408404, 331.60264993012953, 331.59950579085165, 331.60180058310857, 331.6110448020599, 332.2467766371049, 332.2561345438271, 331.9887924953444, 332.1821639085784, 332.50093844391284, 332.24439508478935, 332.164079594492, 332.16383250651865, 332.1448897658905, 331.98344804027334, 331.7027970822614, 331.8441049144612, 331.5651543652477, 331.9404479477635, 331.56262785394705, 331.8313445549475, 331.9809961193265, 332.5393559411127, 332.44116374041374, 332.4294413744536, 332.4350629801772, 332.856746782253, 331.9275236278131, 331.7870137832172, 331.96238432161186, 332.4541439149038, 332.57382193510335, 332.47238765084796, 332.03086537561296, 332.14244313663113, 332.2728372853059, 332.3439822862145, 331.2069980929893, 331.0047539311234, 330.85812992989895, 330.7837149826573, 330.9440023388139, 330.7045395893729, 330.7045395893729, 330.3668019654702, 330.2439529766297, 330.55348884670786, 330.63727838453013, 331.270355512307, 331.462186090513, 331.24631769980573, 331.60924022879277, 331.17717405762863, 330.9987839585711, 330.99491346315307, 330.98366243100156, 330.9962908985809, 330.94098904307725, 331.1302046589852, 331.22589058103426, 331.2669457280109, 331.41083331651424, 331.2465124056919, 331.3058231488782, 331.0947313571318, 331.2091715255201, 331.2332919475089, 331.50230417827345, 331.50230417827345, 331.50230417827345, 331.4640009113673, 331.8297362835864, 331.41353997410783, 331.3015475996917, 331.57062636379146, 331.43929497926956, 331.3000661685009), xaxis = "x1", yaxis = "y9", hoverinfo = "none" ) trace105 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(330.673028680616, 330.5264944145462, 330.4468044179173, 330.6903777168571, 330.6661312271271, 331.02685984805817, 331.021198226015, 331.0057587566578, 330.5754039910593, 330.46561455055814, 330.43805086987624, 330.1626996216445, 330.12239972228605, 330.20563295103545, 329.8543492956382, 330.6278584832174, 330.6398606424137, 330.6236420025566, 330.2207454780591, 330.4854868583989, 330.4451214433184, 330.4769299007586, 330.5375707065623, 330.54081871460494, 330.54081871460494, 330.5554607188874, 330.59457611598265, 330.3352572542055, 330.5040321223847, 330.7521399089855, 330.8350691067404, 330.8530188081561, 330.3928417891166, 330.44257694451426, 329.4969469985463, 329.33065877253046, 329.9961672689573, 329.5078511918467, 328.9577114070149, 329.3581468755986, 328.36449889980264, 329.567264524736, 329.567264524736, 329.4297507887388, 328.28226968389174, 328.3389363245851, 329.60486500874634, 329.9223726601039, 330.019954212409, 330.019954212409, 330.783782638678, 330.5629873980643, 329.9430573689157, 329.7481436025323, 329.4480925473035, 329.63226436291654, 329.7221431057524, 329.81542529561733, 329.99360670678294, 330.6721464166464, 330.73960361901345, 330.6333471036453, 330.51541684511807, 330.7737322733652, 330.8341276379602, 330.8452009677881, 330.89293171392507, 330.83957972354744, 330.9741377483786, 331.48515442893023, 331.48515442893023, 331.4456720920103, 331.4456720920103, 331.65387061715415, 331.5540057116577, 331.51697025201526, 331.10492586851217, 331.03701914794334, 331.1192381325329, 331.1171467053705), xaxis = "x1", yaxis = "y9", hoverinfo = "none" ) trace106 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(331.83233029698744, 331.85586612203525, 331.85586612203525, 332.23419297470497, 332.191491015212, 332.29193834489973, 332.0351817125291, 331.57227433923555, 331.21742174944757, 330.9688203506541, 331.05105779309383, 331.0870562385815, 331.118989489388, 331.118989489388, 331.306493864048, 331.58730036887795, 331.58730036887795, 331.5154836994908, 331.5973570611788, 331.5811523628552, 331.74314749355005, 331.9325037226675, 331.83725499592725, 331.9889039611511, 331.63704461015146, 331.7768068723741, 331.9508593348387, 331.9490346749076, 331.72958062550975, 331.73040126963895, 331.77649526395237, 332.3927941674049, 332.35052125586407, 332.33787150062903, 332.3541517123736, 332.1570212192395, 332.1570212192395, 331.8083418065345, 331.9889623373781, 331.9889623373781, 332.0229185239737, 332.11522017943025, 332.00020963030795, 332.0781931737966, 332.0781931737966, 332.12709624025916, 332.20482143484327, 332.1362284642273, 332.6481092266082, 332.64024504505926, 332.52052456537604, 332.52270824159103, 332.68696050516564, 332.6319658779046, 332.46593497937744, 332.4585637912566, 332.4585637912566, 332.78194795058454, 332.7584747258063, 332.4160994886103, 332.8964066121275, 332.1683007201896, 332.22685045540464, 331.9356432394, 332.0762269944921, 332.23382381137316, 332.61173405949546, 332.61654303849804, 332.4059826697638, 332.4059826697638, 332.9086129822816, 332.9086129822816, 332.9194103568891, 333.8574000144077, 333.70542679768477, 333.5381044243535, 333.5381044243535, 333.9719419451989, 332.16024881756226, 332.2963572858733), xaxis = "x1", yaxis = "y9", hoverinfo = "none" ) trace107 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(330.25612480923354, 330.149698597918, 330.53208618242485, 330.8713240122702, 330.82859889670914, 330.10077100194616, 330.0958267536181, 330.7774122182299, 330.7774122182299, 330.7538826599637, 330.7781691631639, 330.8606289233821, 330.8606289233821, 330.8606204479727, 330.81951430727577, 331.3160582812501, 331.0734777736139, 331.13247830403515, 331.13247830403515, 331.56204553248347, 331.6514726049221, 331.6514726049221, 331.6514726049221, 331.3333029243191, 330.9929995922179, 330.96041366379865, 330.60401777233096, 331.41212995061824, 331.3020037774356, 331.2815167622806, 331.29893510409045, 331.45971668433486, 331.1086595664909, 331.46865710798727, 331.64159733412754, 331.64159733412754, 331.518190763193, 331.518190763193, 331.7346920892126, 331.8157073681035, 332.17321999545624, 331.6794616519391, 331.84717168605204, 331.7245527868251, 331.8037147693949, 331.84392265086154, 331.69387388378027, 331.91767673514545, 331.83440453210926, 332.14353809978036, 332.03476746062887, 331.6159953028446, 331.7718198988961, 331.74224076218957, 331.79442595949325, 331.8688662921153, 331.6208145895425, 331.51396658210814, 332.53101041652553, 331.8783966884417, 332.0755168767887, 332.3709802380129, 331.7389145886807, 331.65611550591916, 331.5146845700504, 331.37304154891376, 331.39589997869456, 331.3287042294549, 331.2307173096445, 331.24165574422705, 330.75226353385324, 331.5514738394758, 331.59479789067655, 331.32763100077113, 331.198015080061, 330.72206071524914, 331.01164449227275, 331.01164449227275, 330.9313745369583, 330.9313745369583), xaxis = "x1", yaxis = "y9", hoverinfo = "none" ) trace108 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(332.33941515927376, 332.44801095864074, 332.3178979084698, 332.4029707951997, 332.4029707951997, 332.6896664330185, 332.4650871346153, 332.1606924664679, 332.6300434433038, 332.2598588963852, 332.2800623911345, 332.3420075790077, 332.1623849989224, 332.20634826464055, 332.2391043566266, 331.97636071962216, 332.0734176083851, 331.7808101165711, 332.0056873517746, 331.9715159278353, 331.7707596797786, 331.9343905790139, 331.9343905790139, 331.9351346856069, 331.9476968643424, 331.94807937554305, 332.00283164430056, 331.9989214890777, 332.0436131887275, 332.0436131887275, 331.92668826840753, 331.92668826840753, 331.9390162519461, 331.60069082362514, 331.5284925857123, 330.6807860152444, 331.37992466322453, 331.1240408086164, 331.6881003818846, 331.6287113138424, 331.5680205332567, 331.55138978889727, 331.61090654769845, 330.56898759443635, 330.8313972145264, 329.98628585759695, 329.89508968827687, 330.16090636297383, 329.84511520558283, 329.8743820294291, 329.7962074765227, 329.7962074765227, 330.2755075734316, 329.6687349390005, 330.1845958547885, 330.35770456112436, 329.9393162429299, 330.6315469410026, 330.6485663808245, 330.5781854492938, 330.3631680369139, 331.23928403744725, 331.13340745308886, 331.1150416905209, 331.1076047422459, 330.7806618944908, 331.6123494648543, 331.255487995449, 331.5479199499538, 331.3650666687301, 331.6120971748752, 331.39758779851144, 331.069585860279, 331.0251243353689, 332.617722237901, 332.0904328722475, 332.1319371291405, 332.197052081206, 331.62808825366955, 331.65920913975003), xaxis = "x1", yaxis = "y9", hoverinfo = "none" ) trace109 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(38.11864816935457, 38.11864816935457, 38.11864816935457, 38.11155598666913, 38.104778718239686, 38.105917659109586, 38.105014599060425, 38.10332405427048, 38.10221596303972, 38.09548651956688, 38.09983382433501, 38.09480448345681, 38.09669983550672, 38.09659543246577, 38.10150311873319, 38.10151750506507, 38.1023239378921, 38.1026082993372, 38.102245397820965, 38.102007795968504, 38.10503299137044, 38.10690174717928, 38.11094015902186, 38.11094015902186, 38.11126120999078, 38.110410378489995, 38.11015749639284, 38.10985852486234, 38.10920199812339, 38.113859387524286, 38.11934034199288, 38.11377519370512, 38.115652458340136, 38.116743883043576, 38.11409301709756, 38.11450856731631, 38.11392019655477, 38.11054747920369, 38.11198254210196, 38.10307153861551, 38.10304276761539, 38.101514181186914, 38.098873704800006, 38.10808953397428, 38.103128824822655, 38.10976657989334, 38.110105558992466, 38.11126915375682, 38.11196801034224, 38.107768546559846, 38.109178335491485, 38.10987262490152, 38.10552258323827, 38.1017996268627, 38.10268471507205, 38.10029774556418, 38.10661442025419, 38.111351658847575, 38.11108127096437, 38.11616142149386, 38.118825257504554, 38.12082961607796, 38.1215989759158, 38.11411039267488, 38.11493924592942, 38.11493924592942, 38.11668323420942, 38.11397006439027, 38.11397006439027, 38.11428199066313, 38.11436442613701, 38.11345109576738, 38.110453187693864, 38.09910312880631, 38.093154021165674, 38.09281788832537, 38.09585552117373, 38.088360208870675, 38.08916224783477, 38.087206297784576), xaxis = "x1", yaxis = "y10", hoverinfo = "none" ) trace110 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(38.10796038184151, 38.10840290580862, 38.10832235837179, 38.10712208261227, 38.10926183560008, 38.10630819835106, 38.106382830564584, 38.11232309184921, 38.11232309184921, 38.11453315603111, 38.117293616753756, 38.117312471540444, 38.118033677332804, 38.118033677332804, 38.11751289818614, 38.1166305098838, 38.1166305098838, 38.115448476574365, 38.115294122061705, 38.1188763547325, 38.11879701009046, 38.11576085984943, 38.12605868059614, 38.12574074470181, 38.12689745063899, 38.127795757479234, 38.12948064261616, 38.127497153981295, 38.127747262197744, 38.129142062204664, 38.128387632837956, 38.128991797306796, 38.129856921436506, 38.12707818609853, 38.12910708403068, 38.12910708403068, 38.130463613671026, 38.13085229742997, 38.128102535615824, 38.124222727344275, 38.123904893510876, 38.123904893510876, 38.12317997258132, 38.13151705776964, 38.13097258182656, 38.126526157094126, 38.12769183202039, 38.12650964234511, 38.12866059171379, 38.12866059171379, 38.12737684354514, 38.12737684354514, 38.13278106284696, 38.12002766309206, 38.1195135747915, 38.1196436221051, 38.12310684968331, 38.123769411949944, 38.12333023745419, 38.12333023745419, 38.12341094555027, 38.12134896276369, 38.124903156264445, 38.126983646476546, 38.12703983682514, 38.10970992690574, 38.110927830898355, 38.11378726646615, 38.113980578516134, 38.11403346508611, 38.113658250510525, 38.108872714586525, 38.11082016340989, 38.11877658022072, 38.1174711490916, 38.11580218812484, 38.115917710795266, 38.11612680298363, 38.1179190877887, 38.111172944084146), xaxis = "x1", yaxis = "y10", hoverinfo = "none" ) trace111 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(38.1124826988608, 38.1124826988608, 38.10414983669697, 38.10402881013849, 38.10328710449042, 38.105550551036906, 38.112356362739824, 38.112622674496706, 38.10958777240895, 38.10958777240895, 38.11017683812432, 38.111708748129004, 38.11228142064503, 38.11202360804074, 38.11186423399456, 38.111302311275686, 38.111302311275686, 38.11188451323122, 38.114498265728855, 38.11511065392492, 38.115237294514365, 38.11424185771722, 38.1120501480794, 38.11135667483133, 38.11044493191491, 38.11063223271031, 38.110498446851146, 38.110498446851146, 38.11049981003659, 38.11049981003659, 38.11013825621093, 38.11013825621093, 38.11030989691859, 38.10851624216624, 38.10442072738736, 38.10575422950929, 38.098843958055745, 38.10173014048694, 38.104300487220954, 38.104523117880575, 38.1043045134041, 38.10351920338733, 38.10255013090476, 38.10547011882011, 38.10596947342629, 38.104905704265576, 38.105030350073484, 38.10511473258582, 38.1130041077486, 38.114382937429916, 38.11802775814838, 38.11622546582187, 38.119285853868206, 38.11580244678719, 38.1263819671, 38.118438441456135, 38.13436026156307, 38.13436026156307, 38.117709732459836, 38.11891325983157, 38.11740420512801, 38.11740420512801, 38.11717322974789, 38.11414613395195, 38.11349603105698, 38.11416036022728, 38.11408746487325, 38.12494570774647, 38.122301131151715, 38.122301131151715, 38.123975079308565, 38.11909688413911, 38.119183130588496, 38.119183130588496, 38.119183130588496, 38.124754106011295, 38.124754106011295, 38.11864970592213, 38.11941537270752, 38.116116753401116), xaxis = "x1", yaxis = "y10", hoverinfo = "none" ) trace112 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(38.117313925125984, 38.11810327007635, 38.11823985800064, 38.11910809605785, 38.118225938255335, 38.11795634219073, 38.11741701410217, 38.11845933883737, 38.11839827035296, 38.11910375365781, 38.11918109382425, 38.12164040829898, 38.12259893751759, 38.11970192673935, 38.11711507845803, 38.11936904217459, 38.119472960463, 38.12212150881852, 38.11736785937373, 38.117355349467445, 38.117373502686426, 38.115829718203216, 38.116103718332454, 38.111709968353864, 38.10764092912346, 38.10764092912346, 38.10845751976975, 38.10984715048948, 38.1095124883372, 38.11342738728133, 38.11528551063684, 38.11357504294957, 38.11535481468605, 38.115383751236564, 38.11756353936804, 38.121923789840494, 38.12019427741835, 38.123694183760605, 38.12087319637335, 38.12383081044466, 38.115403188669625, 38.12060780686478, 38.11987155063047, 38.119977332234065, 38.12042147183813, 38.113986727122985, 38.114190643815576, 38.1117802722994, 38.1117802722994, 38.111997590665176, 38.11117405576848, 38.109342724209775, 38.10942591576248, 38.112620118331186, 38.112620118331186, 38.108650964198105, 38.107112939398334, 38.109099856934904, 38.109099856934904, 38.108826694145705, 38.11103642527756, 38.11495733875988, 38.114876859349884, 38.11663153562205, 38.11099575571075, 38.111019855563875, 38.11008949762979, 38.11008949762979, 38.110106529098175, 38.1096048972112, 38.112235695156805, 38.1132571989613, 38.1132571989613, 38.112978228577525, 38.11258395331625, 38.11650729145156, 38.11203359735113, 38.10438231873533, 38.10503402733889, 38.10317568030004), xaxis = "x1", yaxis = "y10", hoverinfo = "none" ) trace113 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(38.107435544641646, 38.10777752039128, 38.11255030148286, 38.113060066010114, 38.11161188215472, 38.11600475171095, 38.11567925916682, 38.11364983439851, 38.11341652621546, 38.11341652621546, 38.113186165076876, 38.113186165076876, 38.1133017907978, 38.1133017907978, 38.1133017907978, 38.11300244035641, 38.10976310851485, 38.11337292510617, 38.11337292510617, 38.11353486361696, 38.11353486361696, 38.11355557397574, 38.11369378126818, 38.113494829178556, 38.11075998519477, 38.11075998519477, 38.10919274626619, 38.10919274626619, 38.11064103250803, 38.110521215833664, 38.11070373653539, 38.1109588101358, 38.1109588101358, 38.1109588101358, 38.11037998037598, 38.10673419043378, 38.10725658799365, 38.10725658799365, 38.1071653578216, 38.107615946713295, 38.107615946713295, 38.10749378760079, 38.10749378760079, 38.10760999399565, 38.10796721533763, 38.107993581562326, 38.107993581562326, 38.110489568370866, 38.106355496939344, 38.10967212616726, 38.110665588570804, 38.110665588570804, 38.10903072850494, 38.10903072850494, 38.10903072850494, 38.109808817532965, 38.11093013548609, 38.10693326178158, 38.10693326178158, 38.106255294915705, 38.106255294915705, 38.106255294915705, 38.10707792709273, 38.10630554372863, 38.10451163921933, 38.10451163921933, 38.10451163921933, 38.10810221823588, 38.10810221823588, 38.10810221823588, 38.10661532583068, 38.10661532583068, 38.10677626114785, 38.10677626114785, 38.10583523281053, 38.10795270751175, 38.10745874125641, 38.10745874125641, 38.10745874125641, 38.10745874125641), xaxis = "x1", yaxis = "y10", hoverinfo = "none" ) trace114 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(38.080150108547734, 38.07947772890392, 38.09732886912137, 38.09373933266903, 38.0961651546484, 38.09639262747888, 38.0968141192655, 38.10351618689771, 38.10720785114153, 38.10602227475647, 38.105416283644644, 38.105216077300476, 38.101185939395826, 38.101185939395826, 38.10573350701767, 38.09499621019101, 38.09624852139369, 38.097863369098896, 38.09901905745881, 38.103493279787365, 38.100870213238046, 38.098678644926586, 38.10254357097971, 38.10223250819174, 38.09496787152988, 38.092417703139084, 38.08928191380653, 38.08108976530541, 38.08504244170422, 38.09030505613318, 38.09155535984629, 38.09134175535786, 38.10434059002019, 38.105605181409054, 38.10831384056694, 38.10589959410102, 38.10619206081882, 38.10487975013048, 38.107043209116945, 38.11335633064364, 38.113284554822926, 38.110686212747304, 38.11080562997475, 38.11062083678998, 38.10964114461614, 38.10997559963791, 38.10863966382003, 38.109866327601495, 38.109379039696414, 38.110457300203805, 38.10871939641367, 38.10921178461061, 38.10012719774373, 38.10401187380224, 38.10514292786865, 38.102440898365, 38.102440898365, 38.10558080937869, 38.10844828880666, 38.112976644387416, 38.10721364269928, 38.10721364269928, 38.11389698951319, 38.11600672080402, 38.11583971327045, 38.11619061704741, 38.115631836499574, 38.11748047988126, 38.116527983813356, 38.111878902742326, 38.11731322295305, 38.11669559043098, 38.121044201045784, 38.11807210782388, 38.124163865338616, 38.124163865338616, 38.12098276920558, 38.12098276920558, 38.121307300224366, 38.12522584307839), xaxis = "x1", yaxis = "y10", hoverinfo = "none" ) trace115 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(38.0920948310937, 38.087409312607, 38.09325390400171, 38.073799619847726, 38.08409259344254, 38.083483945092595, 38.0972047237327, 38.091231027082635, 38.09453132980694, 38.097952241699446, 38.088849076740466, 38.08571760099841, 38.07651544044053, 38.0946976705791, 38.08835374744957, 38.08691562744217, 38.0938896607885, 38.09150294961581, 38.09343975650295, 38.09203731367837, 38.08531469256611, 38.09046176527673, 38.09046176527673, 38.09046176527673, 38.079453151933556, 38.08114263013617, 38.102099710406044, 38.10167646200908, 38.10049509956175, 38.10007008413932, 38.099813124889835, 38.09815398861873, 38.103371876976034, 38.103371876976034, 38.103371876976034, 38.10333495423853, 38.10333436429177, 38.097671489811916, 38.099950997528644, 38.10037697011293, 38.09064076317993, 38.08700163580461, 38.09378117373829, 38.10106084203195, 38.10172864726318, 38.104869415779, 38.10501046980592, 38.09864502048072, 38.10236382090563, 38.105595458137145, 38.100462535998616, 38.09915636329572, 38.10159365284644, 38.10051162833364, 38.103925966597636, 38.10280069565945, 38.11243589750736, 38.11033851709766, 38.10533194013982, 38.105625576419854, 38.106225136680244, 38.10662204789884, 38.10662204789884, 38.10750278619237, 38.0945970945436, 38.09489477249284, 38.09313326988635, 38.09339221866618, 38.093575116956714, 38.09511122367722, 38.10979456160345, 38.109352511121, 38.11072867833389, 38.11255237401721, 38.11344868112684, 38.11315767770811, 38.114419347796805, 38.11350639119075, 38.10815031015743, 38.118007035628246), xaxis = "x1", yaxis = "y10", hoverinfo = "none" ) trace116 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(38.111577278079956, 38.110377898316315, 38.110377898316315, 38.113292392277025, 38.11652338104501, 38.108358405281336, 38.103530471750496, 38.101308060095214, 38.09451647452008, 38.09526791069327, 38.09606788886654, 38.093246322091204, 38.08688369050459, 38.0803263000186, 38.07587336571001, 38.0751142778157, 38.07459244740968, 38.0796632026874, 38.08588433173159, 38.07910388561568, 38.08725205132561, 38.073972607668345, 38.088957485418696, 38.09582915856902, 38.09223443636028, 38.08900930640229, 38.08962434653204, 38.08988259223899, 38.08983026153389, 38.0852118604878, 38.09394594320606, 38.09279364091265, 38.0985430738398, 38.09389846304477, 38.086676970949064, 38.08537475195774, 38.087389547086175, 38.08495666704493, 38.08223436987393, 38.079641751625516, 38.08993342313989, 38.084013255619695, 38.07979543995263, 38.087638544165365, 38.08303256132551, 38.08828847926056, 38.08828847926056, 38.08491247086411, 38.08345480857037, 38.09610817649876, 38.09242921446021, 38.09716285484911, 38.09302103733959, 38.089326395926626, 38.09265084663296, 38.099340069414744, 38.099369644735646, 38.10068699323236, 38.1065302840222, 38.10273111270193, 38.09945633147635, 38.09894559867239, 38.10457069902361, 38.1044801693275, 38.10224626905978, 38.1048502282312, 38.10672711879776, 38.110287747343655, 38.11463430114354, 38.11504766519911, 38.113575198328206, 38.113575198328206, 38.113575198328206, 38.11383063814629, 38.107041892800176, 38.10728539539573, 38.118895859148594, 38.119277098075706, 38.113334501818294, 38.11257051828284), xaxis = "x1", yaxis = "y10", hoverinfo = "none" ) trace117 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(38.09911175739447, 38.09858936404658, 38.09917291383874, 38.10035443458246, 38.10161236240882, 38.10061602216601, 38.0951093917565, 38.0952760812666, 38.09425009356631, 38.093910136649, 38.093210055172, 38.103916557014564, 38.10363555375972, 38.10626846058584, 38.10347816981109, 38.1060578412804, 38.107113363179245, 38.10710566915522, 38.11055869695088, 38.11210414254029, 38.11261166582109, 38.11334781951799, 38.113407179984236, 38.11326382520568, 38.11326382520568, 38.113270332431874, 38.11371122027901, 38.11235750139512, 38.111539925661184, 38.10935932201366, 38.10748555359506, 38.10777178850109, 38.1060774442144, 38.1052850772224, 38.10025892578397, 38.100862685750776, 38.10283703159735, 38.1010429839581, 38.102771006496795, 38.10545848240312, 38.10362365698336, 38.10723624786083, 38.10723624786083, 38.1071263298738, 38.09736701540462, 38.09758087074054, 38.101982157530585, 38.102461751739845, 38.10466279414194, 38.10466279414194, 38.10413921876027, 38.10412455936886, 38.10266246815963, 38.1032363387779, 38.098418594962794, 38.096655809718115, 38.09704701081779, 38.09751127802477, 38.102874274647775, 38.09984244306536, 38.10223080106784, 38.10125869162721, 38.100712139144, 38.101096199631534, 38.099481488957785, 38.100290959659645, 38.10083286215477, 38.10038324316592, 38.103253245712416, 38.10415186231461, 38.10415186231461, 38.10822107445934, 38.10822107445934, 38.11052152261563, 38.1103669364706, 38.106323502998585, 38.102754361691304, 38.10438030139753, 38.10081180627791, 38.100780389758825), xaxis = "x1", yaxis = "y10", hoverinfo = "none" ) trace118 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(38.09547514566046, 38.0994769562269, 38.0994769562269, 38.099811446859846, 38.1074502566043, 38.1097202647422, 38.11072961793903, 38.10923902553385, 38.101567408700745, 38.09653556750138, 38.09728016968369, 38.098626926404094, 38.09877045425978, 38.09877045425978, 38.10323727019922, 38.099307119323136, 38.099307119323136, 38.101600398625365, 38.10253225864787, 38.10270305017244, 38.10456057955042, 38.10217198773195, 38.100676833384185, 38.10299382846492, 38.10487757071998, 38.10350015435638, 38.102344526188695, 38.10237876239783, 38.10331823842155, 38.10317760661875, 38.10299888434138, 38.09779014095046, 38.098860761427524, 38.09937239959815, 38.100451882057385, 38.101195791530344, 38.101195791530344, 38.106029059538265, 38.1030120157611, 38.1030120157611, 38.10319392938877, 38.1017537455415, 38.102668444170774, 38.10239244553167, 38.10239244553167, 38.10295159885194, 38.10418071789224, 38.10160234141821, 38.101141209727146, 38.10112823253344, 38.10154894528764, 38.1016398613995, 38.101309007409434, 38.101974176318, 38.0997448158246, 38.10129221056267, 38.10129221056267, 38.10737404694447, 38.1075642623175, 38.10540663680316, 38.111919508263924, 38.11022709044516, 38.100879236716786, 38.11164901989707, 38.11447964190597, 38.10471272185904, 38.10898613102201, 38.11114758085842, 38.109117765962516, 38.109117765962516, 38.10605734392449, 38.10605734392449, 38.112860981948884, 38.10783833871771, 38.113786219539634, 38.113094355891185, 38.113094355891185, 38.11586497893921, 38.11302093251006, 38.115207434882294), xaxis = "x1", yaxis = "y10", hoverinfo = "none" ) trace119 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(38.08967563782444, 38.08589683666433, 38.092441359703486, 38.09657660017842, 38.09476821795141, 38.09840694533831, 38.098318174644206, 38.09988476069107, 38.09988476069107, 38.10100318816553, 38.101244784887605, 38.102274734068146, 38.102274734068146, 38.10218551267438, 38.10210846879139, 38.105448674648635, 38.10497569836347, 38.10446140528593, 38.10446140528593, 38.10488282063315, 38.1033725810121, 38.1033725810121, 38.1033725810121, 38.10345073398466, 38.10344239040057, 38.103188635789216, 38.103050885388946, 38.108948518109145, 38.11167161517209, 38.11271899753436, 38.112541382527304, 38.112907753641096, 38.11740037260839, 38.11249890760091, 38.11785464050483, 38.11785464050483, 38.12249037781449, 38.12249037781449, 38.12198164970932, 38.12020003971989, 38.11652223997158, 38.11605137956237, 38.115974368206174, 38.11445253186865, 38.115019819612385, 38.11246592740115, 38.11026687127999, 38.1119528062706, 38.11211363493809, 38.11222346551768, 38.11150055508342, 38.110619831818674, 38.11272227091705, 38.112855188048705, 38.11439911804484, 38.116018578076826, 38.1153513127732, 38.11395361594706, 38.13719066170849, 38.121912458843774, 38.12356073676673, 38.12277495505352, 38.1138264807151, 38.11370967859725, 38.12229538348391, 38.12451793478788, 38.12619927401055, 38.11544575250491, 38.113827900544614, 38.106771325867285, 38.10177839575868, 38.09996324402974, 38.09870641326177, 38.096873226135784, 38.09842335383455, 38.09770711269894, 38.10005298727949, 38.10005298727949, 38.098930149097704, 38.098930149097704), xaxis = "x1", yaxis = "y10", hoverinfo = "none" ) trace120 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(38.108666685926025, 38.106628170608026, 38.10637893370551, 38.110404783697135, 38.110404783697135, 38.10751372692059, 38.109860839973216, 38.101310061449425, 38.10001709090674, 38.10282196398681, 38.10199718279833, 38.09865062415784, 38.10173980515108, 38.1023300844669, 38.10004795965174, 38.10737988374005, 38.10700913636062, 38.110580957692626, 38.101620014754374, 38.10196414711348, 38.10370098726921, 38.10147974021542, 38.10147974021542, 38.10146695683403, 38.10258338913266, 38.10258681304916, 38.102980353080376, 38.10121486658121, 38.10249281073446, 38.10249281073446, 38.10259589786468, 38.10259589786468, 38.10268371561529, 38.10665079602177, 38.106658590946225, 38.1028135920552, 38.10523181547873, 38.103964358195455, 38.105898597268826, 38.10815781145531, 38.10977468089886, 38.10998736026101, 38.110082604502225, 38.11833063559359, 38.12689644230423, 38.126443282135426, 38.128737921565744, 38.123468306835726, 38.125569774254366, 38.1253233113077, 38.12949245709461, 38.12949245709461, 38.126125837661846, 38.1263338197129, 38.122193175367705, 38.11784563586096, 38.133891852635784, 38.10428928141958, 38.105036075735995, 38.10718457053775, 38.100533861144164, 38.1102421901898, 38.10837483617405, 38.10837427779168, 38.10876177800337, 38.10333269205796, 38.10919044152107, 38.10387523237811, 38.10764813862208, 38.09090936180628, 38.0938269161791, 38.09444006360195, 38.097169185219585, 38.0985187760822, 38.10984620538319, 38.11071597973266, 38.11123798325588, 38.111110989800885, 38.10049947229646, 38.101933887293086), xaxis = "x1", yaxis = "y10", hoverinfo = "none" ) trace121 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.10717706545633632, 0.10717706545633632, 0.10717706545633632, 0.10565853655099183, 0.10040244756832846, 0.10595406494414507, 0.10501717482160658, 0.10796420497066701, 0.1070054844356752, 0.10651967731337288, 0.11084893310142205, 0.10787483521478805, 0.10760201422203207, 0.10745111181597275, 0.10985819349017559, 0.11015042493559042, 0.10988737616354756, 0.11148123744858697, 0.11096624598206573, 0.11409773513115529, 0.11409180629620032, 0.11454522879462632, 0.10616022958035057, 0.10616022958035057, 0.10790353956330043, 0.10712854676908354, 0.1068075617194714, 0.10510489419071745, 0.10654753745043227, 0.11055774993309606, 0.1069209601358509, 0.11684908174184605, 0.10834885361254959, 0.10709204048410005, 0.10632158692992595, 0.105349330930438, 0.10412959193290733, 0.1088780155570434, 0.10654980148633322, 0.11384440889372192, 0.10467512851923531, 0.10446472149600879, 0.10815729356962155, 0.11104538754072167, 0.10952105478561602, 0.11241381840345488, 0.11293676620259953, 0.11133250986305257, 0.11076808326816531, 0.11568066032025744, 0.12223210238585566, 0.1223938179333735, 0.12338050821041985, 0.12012903535141493, 0.12233371353969114, 0.12328796736898145, 0.13118274401589947, 0.1257976286444453, 0.12653138589738058, 0.1230905882640706, 0.12221485470187733, 0.1230009709653276, 0.12109350972363164, 0.12236399806304983, 0.12459972738011316, 0.12459972738011316, 0.12736666411364564, 0.12440765295786077, 0.12440765295786077, 0.12609704812910766, 0.12402256091046382, 0.12155604641819048, 0.12118669130198059, 0.1209996735370334, 0.12469637995885186, 0.12469977177624848, 0.12285232248213368, 0.12334070473534968, 0.12488813898813284, 0.12421728622357958), xaxis = "x1", yaxis = "y11", hoverinfo = "none" ) trace122 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.12753639578360956, 0.12524919583967958, 0.12333650215229824, 0.12396919441260366, 0.12295859112572251, 0.12427050468390023, 0.12430246882578168, 0.1207307594120411, 0.1207307594120411, 0.12281689519217151, 0.1226680061794662, 0.12223162477442708, 0.11862868797057685, 0.11862868797057685, 0.11724244203105301, 0.11957979568102678, 0.11957979568102678, 0.11769490202325132, 0.11772572797702895, 0.1197006427469838, 0.11963387529235094, 0.12011018346553727, 0.10904329106982846, 0.10926467493907494, 0.10893708689452145, 0.10888698523230714, 0.11071558630443917, 0.1054226105522235, 0.1072787451619496, 0.10709808005749583, 0.10884833325775338, 0.10580404937502129, 0.10423802480667843, 0.11125321406679803, 0.10990132480868214, 0.10990132480868214, 0.11031238288715972, 0.11030818042583738, 0.11099712819596314, 0.10892243540214633, 0.10765147675496552, 0.10765147675496552, 0.10891420549383772, 0.10897708759598784, 0.10940468691536778, 0.11669706708640933, 0.11636146462772487, 0.11626888880075041, 0.11657029149128037, 0.11657029149128037, 0.11616153354343821, 0.11616153354343821, 0.11351764612752664, 0.11326956266616503, 0.11372110629908591, 0.11453656154338195, 0.11435099197632932, 0.11346540221400392, 0.11400375258935401, 0.11400375258935401, 0.11392930236232582, 0.11809659707622543, 0.11864422507179201, 0.12011664988847778, 0.12015703844965749, 0.11907691762709705, 0.12093725490600332, 0.12274235983198842, 0.12401561901096421, 0.12336295624363725, 0.1226201485430776, 0.1235693458906415, 0.1228956500397233, 0.12050523717882049, 0.11661463274868991, 0.11517785914708652, 0.11802869081819162, 0.117995899208142, 0.11980920534431796, 0.12314673967280697), xaxis = "x1", yaxis = "y11", hoverinfo = "none" ) trace123 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.11683003144788161, 0.11683003144788161, 0.11766978778448979, 0.11788942804718883, 0.11980275411528095, 0.11971134815234859, 0.11772041752157864, 0.11757358060950746, 0.1174959997452103, 0.1174959997452103, 0.11641108081497802, 0.11370538681948919, 0.11304138236929315, 0.11315176193625781, 0.11290344786158703, 0.11398269400883193, 0.11398269400883193, 0.1131387953811947, 0.10970929485909564, 0.10837132092927805, 0.10805669617344646, 0.10780875899184521, 0.11054455350525146, 0.10966326444909136, 0.10912549072853672, 0.11780777932349717, 0.11576009219716532, 0.11576009219716532, 0.10733022505629039, 0.10733022505629039, 0.10671860210563441, 0.10671860210563441, 0.10707447708620083, 0.10763846326041046, 0.10935683431066874, 0.11088222086720492, 0.09960364163513091, 0.10488646549158682, 0.10722961145147786, 0.1111106743705464, 0.10185823586172221, 0.10101166333980076, 0.10279073276728529, 0.10762759850302692, 0.10655253657119909, 0.11127586597963005, 0.11282463331813788, 0.11261259839964911, 0.11402014902042804, 0.11204971835938765, 0.11207923810469297, 0.11027775353622808, 0.10890552257128289, 0.1054293603403692, 0.10848936584694478, 0.10506233627679999, 0.10062651471466869, 0.10062651471466869, 0.11692467152613584, 0.1214396425522873, 0.11976419751635682, 0.11976419751635682, 0.11976014059989408, 0.11893065533124378, 0.1194016430749206, 0.12030331172879448, 0.12114136312092957, 0.120993755453283, 0.1213650949128586, 0.1213650949128586, 0.12099493228925078, 0.12336605308796987, 0.12344268138996277, 0.12344268138996277, 0.12344268138996277, 0.12647529832390025, 0.12647529832390025, 0.12698548189050554, 0.12711492123378176, 0.12179233205691511), xaxis = "x1", yaxis = "y11", hoverinfo = "none" ) trace124 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.1135999153782595, 0.11329963272468387, 0.11354293640617835, 0.11541677070194378, 0.11474646268628724, 0.11494554229501684, 0.11535922022657354, 0.11349070708643734, 0.11339089111334637, 0.11499847192081897, 0.11491024451880573, 0.11374263548829759, 0.11302419547202243, 0.11460976049646232, 0.11438777509551164, 0.10936134721968845, 0.10914373528537191, 0.1032744450872067, 0.10416362007252976, 0.10419989541416004, 0.1028391260970539, 0.10543448396764499, 0.10632484441473719, 0.11130333956955706, 0.11628683831556354, 0.11628683831556354, 0.11669683277410625, 0.11649161952394853, 0.1175106709377604, 0.12034712516622499, 0.1230859796584987, 0.12341700712442442, 0.1171395053887954, 0.11815969990516897, 0.11872540738253096, 0.11577493865300582, 0.11556140404724177, 0.1142544593296096, 0.11342581431780939, 0.11376459080080517, 0.11281928493295561, 0.1133035072822152, 0.11364680346519612, 0.11094532012971223, 0.11096526053742325, 0.10935476764990337, 0.10930313462251105, 0.11211238904927559, 0.11211238904927559, 0.11038426644430563, 0.11060093757630711, 0.11181840901155354, 0.11180946922084735, 0.11168153389656321, 0.11168153389656321, 0.115710610335203, 0.11636276285450428, 0.11691869779060546, 0.11691869779060546, 0.11258025937615754, 0.11176829726665131, 0.109321853306662, 0.11205964423705551, 0.11155516080428009, 0.1142981312521716, 0.11433416765060891, 0.11525352513797081, 0.11525352513797081, 0.11525706200459508, 0.11888883318378068, 0.1162236127059953, 0.11387093808038141, 0.11387093808038141, 0.1130813622505368, 0.12111892698447076, 0.1180329949880225, 0.11735746835240893, 0.10981116868440205, 0.10825979666673645, 0.10793739302801941), xaxis = "x1", yaxis = "y11", hoverinfo = "none" ) trace125 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.10933428709615495, 0.10965287583137012, 0.10314882244173428, 0.10389104170141417, 0.10035794505266742, 0.10474925896571369, 0.10516832651848929, 0.10208477988213742, 0.1014518471439588, 0.1014518471439588, 0.10508737604259484, 0.10508737604259484, 0.1048411556119082, 0.1048411556119082, 0.1048411556119082, 0.10290684704700542, 0.11152452217923409, 0.10486361959475135, 0.10486361959475135, 0.10494319351918788, 0.10494319351918788, 0.1050353780477616, 0.10639124388988626, 0.10719161959469496, 0.1074384317809259, 0.1074384317809259, 0.10731599821149243, 0.10731599821149243, 0.10317144715833201, 0.10463393587517326, 0.10414102552234362, 0.10587683813770683, 0.10587683813770683, 0.10587683813770683, 0.10869838483610114, 0.10905138359480983, 0.10740121628059493, 0.10740121628059493, 0.10420165835191185, 0.10629521370222555, 0.10629521370222555, 0.09798816251344591, 0.09798816251344591, 0.0989185993294163, 0.09902219931136864, 0.09916811390326977, 0.09916811390326977, 0.10069830877464232, 0.09820673544479092, 0.10023430589909293, 0.10329234122879258, 0.10329234122879258, 0.1077803305266998, 0.1077803305266998, 0.1077803305266998, 0.10712798370452331, 0.11079312181322737, 0.10645877742715291, 0.10645877742715291, 0.10588584192364346, 0.10588584192364346, 0.10588584192364346, 0.10476515356308472, 0.10571682142096345, 0.1045018082888183, 0.1045018082888183, 0.1045018082888183, 0.10987162319048199, 0.10987162319048199, 0.10987162319048199, 0.10768219847178045, 0.10768219847178045, 0.10867074653230474, 0.10867074653230474, 0.10361367554806256, 0.09976927889643844, 0.10286063975354864, 0.10286063975354864, 0.10286063975354864, 0.10286063975354864), xaxis = "x1", yaxis = "y11", hoverinfo = "none" ) trace126 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.1078756065358493, 0.10768588211856116, 0.10786576721487359, 0.10850623891533928, 0.10887065434479726, 0.1091487729360194, 0.10839349168349889, 0.1181728634918136, 0.1188248680333915, 0.1184066726660668, 0.11869214463888929, 0.1191349519152485, 0.12173847686578154, 0.12173847686578154, 0.11991030085466821, 0.1223950884417406, 0.12406360511730724, 0.12428502793554462, 0.12262518862950136, 0.12442829328040127, 0.12836734281604367, 0.1274947575987244, 0.12445454236875388, 0.12460681892696285, 0.12128463218364452, 0.12148842666058256, 0.11968493889170988, 0.12005433783307326, 0.11866406170530581, 0.11081101901816694, 0.11181550903270646, 0.11158681151335101, 0.11244465770504053, 0.112846945332432, 0.11151719618984086, 0.11170777244899398, 0.11197264786651957, 0.10853235491901833, 0.1097999678455812, 0.10451552577510333, 0.1059780321552147, 0.10748740314919736, 0.10782300917011844, 0.10790665342772544, 0.10633469270167814, 0.10654275041445554, 0.10767977337799055, 0.1062467127443798, 0.1073006443779847, 0.1028738991163787, 0.09946310041187387, 0.10447063684528124, 0.09139131943372475, 0.09622353471582026, 0.09840320816514739, 0.09469812847663486, 0.09469812847663486, 0.09642040290461888, 0.10636595401593059, 0.10714682070630312, 0.10870937161179478, 0.10870937161179478, 0.10518345748983755, 0.10407622247857269, 0.10677869821520095, 0.10683668530877813, 0.10890766992106708, 0.11171146521190162, 0.1130520168476009, 0.11160301633716703, 0.1104296054737585, 0.10789905218850467, 0.10925747824175193, 0.1117063874811519, 0.11352839877959128, 0.11352839877959128, 0.11021829704825518, 0.11021829704825518, 0.11355912315449909, 0.11003732106254083), xaxis = "x1", yaxis = "y11", hoverinfo = "none" ) trace127 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.12318214734067323, 0.12445589453063191, 0.11981253925384829, 0.11692914403949371, 0.11672585421069347, 0.11328109553835383, 0.11517328903129473, 0.11470226269765366, 0.11541346863126103, 0.11654177677382027, 0.11636063799411944, 0.11687239680782682, 0.11697824743620398, 0.11351324141812114, 0.11023484699536215, 0.12322037125051075, 0.12069186496522907, 0.12144713068856491, 0.12065578112758085, 0.11734835903277543, 0.11692997190737335, 0.11435190207860833, 0.11435190207860833, 0.11435190207860833, 0.11106221591811495, 0.11009763275768253, 0.11536348329689082, 0.1141219977210588, 0.1107118462185768, 0.10961164909631523, 0.10881795307994262, 0.10701369741348678, 0.10900108141382366, 0.10900108141382366, 0.10900108141382366, 0.10902931472809162, 0.11091973457322325, 0.10674529008297551, 0.10666475448109577, 0.11149618618866751, 0.11200981782800239, 0.11067279496324334, 0.11487502147316639, 0.11795442347920182, 0.11765972385929825, 0.1169114084013327, 0.1174303059407687, 0.11362003873904133, 0.11463532751638081, 0.11942383814913486, 0.12349613552796271, 0.12308265046723375, 0.12470216418415106, 0.12550626933194456, 0.13052631439785803, 0.12801581777438859, 0.12587258209031368, 0.12513472722602367, 0.1263488694609202, 0.12615219963679622, 0.12365255632466887, 0.12223486500197342, 0.12223486500197342, 0.12250290713693503, 0.14258236966751436, 0.14254395268004458, 0.14114556733821848, 0.13236247348399918, 0.1342722634421945, 0.13161351402696864, 0.12726881611090227, 0.12406395020469108, 0.12334336348299337, 0.12293130828967977, 0.12213137078557189, 0.12031944147249918, 0.12565074575894009, 0.12671423199439383, 0.12470418488767802, 0.13317402001384765), xaxis = "x1", yaxis = "y11", hoverinfo = "none" ) trace128 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.1181015958282183, 0.12143732493593501, 0.12143732493593501, 0.12437413134513882, 0.12385282656496528, 0.12290876740287984, 0.12461376107849542, 0.12766740124776454, 0.12877064295797536, 0.12826496867516882, 0.12611583455388425, 0.12640163780844402, 0.12873045699265653, 0.12962924473402154, 0.1259129639465348, 0.1258172941161666, 0.12658989359606537, 0.12550895206185886, 0.12662369484960725, 0.12816326333991274, 0.12013262071702879, 0.1220105188344594, 0.12125718799948332, 0.11974444903183991, 0.11965992361423466, 0.12279576158037729, 0.1252694873657702, 0.12526728061066678, 0.12527813138683502, 0.13155740667798968, 0.1282573564469443, 0.12878071628157292, 0.12470568871660252, 0.12425805927602632, 0.1254609713956902, 0.12325595438265606, 0.12402702170755159, 0.12583127838070826, 0.12618429764389552, 0.12996583483182078, 0.12686340751450143, 0.13077401060143107, 0.13334785976584973, 0.1305146486915716, 0.13115236447210352, 0.12868859198556548, 0.12868859198556548, 0.13079349156005632, 0.1311321783651974, 0.12055497332165192, 0.12148654368424565, 0.11791639801860707, 0.11774434554275927, 0.11674561081086407, 0.11375063006803134, 0.11321713257795975, 0.11461039792332126, 0.1135609459234671, 0.11359819490063658, 0.11533140791263612, 0.11478691236402863, 0.1127929052995809, 0.11010161425125049, 0.11055240307949382, 0.10780367626168494, 0.11107413426417999, 0.10317052087223708, 0.10555333738131556, 0.10647098780989313, 0.10608825790571004, 0.10948245270051593, 0.10948245270051593, 0.10948245270051593, 0.10860643639056732, 0.10945197382881297, 0.0996085509542802, 0.0979663354925416, 0.09919618065937985, 0.1038106729218686, 0.09806436686103566), xaxis = "x1", yaxis = "y11", hoverinfo = "none" ) trace129 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.12457021045067519, 0.12611310589550767, 0.1263096071770984, 0.1253201406042448, 0.12506966265713007, 0.1178392603256701, 0.11924527121752954, 0.11989396210493179, 0.12017652582105644, 0.11967012798044005, 0.1200424289875476, 0.11922351751345879, 0.11971854245724436, 0.11955978776563458, 0.12224361720718299, 0.11799888836437158, 0.11809301389945577, 0.11809566580115867, 0.1236803707110144, 0.12172786107517439, 0.12256959664322216, 0.12207872689930746, 0.12172325055649064, 0.1218655070461695, 0.1218655070461695, 0.12051551504467112, 0.12019753944750532, 0.1217502803378445, 0.12139223392804677, 0.12126980868755846, 0.11635320040973102, 0.11686599447473074, 0.12249919702132722, 0.12323638473164697, 0.11910515980745373, 0.12037097750851858, 0.1183636073530866, 0.11913155014417466, 0.1186309667203971, 0.11834002027655562, 0.11626731808968606, 0.11666718616216615, 0.11666718616216615, 0.1165838093921705, 0.1119514300591356, 0.1123035208545737, 0.11350226374907837, 0.11585762234738523, 0.11590712318330475, 0.11590712318330475, 0.11640655131245309, 0.11520313758264314, 0.11463783406637124, 0.1129323533019342, 0.10648254497356605, 0.10942647308441743, 0.10943863675600847, 0.10917948567028375, 0.10213762239885421, 0.10633131849756783, 0.10815447953958778, 0.10568095711460662, 0.09750808660712491, 0.09473434945948017, 0.1014309229047845, 0.0997620958358855, 0.10284953706278731, 0.10088212749455706, 0.10266812187775438, 0.1060509369624532, 0.1060509369624532, 0.10808691253999403, 0.10808691253999403, 0.11102091650793114, 0.11229957371583256, 0.10875307555170778, 0.09574883263787182, 0.09519530405473989, 0.10001836094616598, 0.10051178741336847), xaxis = "x1", yaxis = "y11", hoverinfo = "none" ) trace130 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.1266597232153095, 0.12484171426340376, 0.12484171426340376, 0.12730908363621246, 0.1250884108471939, 0.12240881901745526, 0.12184917139656114, 0.12811760937150307, 0.1258853518337213, 0.12882184607506547, 0.12826792585490457, 0.1301236497052457, 0.13008409894663298, 0.13008409894663298, 0.1276318734389799, 0.1298816548657236, 0.1298816548657236, 0.1290989893366681, 0.1281536888287963, 0.12796461467546622, 0.1270654472527487, 0.1270036916142057, 0.1284119011897743, 0.12608250565893817, 0.1221733988115767, 0.12206735337008913, 0.12150543137974229, 0.12151649600243705, 0.12295460717365797, 0.1236845952257673, 0.12302179453048961, 0.12493770556902817, 0.12349204598637523, 0.12356692499299626, 0.1213081460170102, 0.12451063691918089, 0.12451063691918089, 0.1172811762409499, 0.1158961202739614, 0.1158961202739614, 0.1152713943261035, 0.11489871348760966, 0.1157507709473871, 0.11589268524221016, 0.11589268524221016, 0.11577365485558853, 0.11502305804862749, 0.1167767765716042, 0.11442351025696804, 0.11441494707860553, 0.11398938659678937, 0.114126449432291, 0.1126504972644329, 0.11311080702423552, 0.11257545978476599, 0.1161271677762012, 0.1161271677762012, 0.11764110870801267, 0.11727064266458537, 0.11627904808560767, 0.11775285477135487, 0.11772394023722392, 0.11767420399766856, 0.11574172813192617, 0.11534668882768404, 0.11762118071270065, 0.11719765679755982, 0.11576371575616318, 0.11783682689632326, 0.11783682689632326, 0.115234534545817, 0.115234534545817, 0.1117972109795559, 0.09609064221870635, 0.10126335684799927, 0.10102253541387449, 0.10102253541387449, 0.09833952602972244, 0.10591267324455429, 0.09837443382851956), xaxis = "x1", yaxis = "y11", hoverinfo = "none" ) trace131 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.11317750687788347, 0.11189188185676024, 0.11383669536459654, 0.11581234152290722, 0.1149548307808436, 0.11242222689383488, 0.11239068716131202, 0.116682873987581, 0.116682873987581, 0.11647611968099512, 0.1165519118262083, 0.11672945516365318, 0.11672945516365318, 0.11680109305295375, 0.11654040476211233, 0.11718174721313855, 0.11516904375940144, 0.11199681287228377, 0.11199681287228377, 0.1144792097524507, 0.11380682684975664, 0.11380682684975664, 0.11380682684975664, 0.11542986509197478, 0.11205727576698646, 0.11202547210694305, 0.10983176477038019, 0.11355448277041556, 0.1128391796055986, 0.11195627068603367, 0.1116578934125538, 0.11028426048383369, 0.10613534859305282, 0.11073953578036809, 0.10698201309880595, 0.10698201309880595, 0.11164961419523572, 0.11164961419523572, 0.11015389081007648, 0.11329628739831632, 0.11165565500678942, 0.10907547499979699, 0.11016001351523204, 0.1153959924168071, 0.11530378458802623, 0.12105273531889923, 0.1183303909831151, 0.12036091794698799, 0.12078788418470707, 0.11978282896856088, 0.11873396813981266, 0.11682517190063736, 0.11732961444914425, 0.11711130597406111, 0.11695671162383763, 0.11597733430213902, 0.11673921303991923, 0.11095770203984716, 0.09687178387912035, 0.1062088037313635, 0.10373032240661817, 0.10328568537536174, 0.1086622814612002, 0.10909357874131585, 0.10829282895191747, 0.1081053269240781, 0.10578135627201266, 0.10465361629222729, 0.10515777874281226, 0.10650684379162478, 0.10598986941269431, 0.11286374879614205, 0.11438263360383107, 0.11818449971872541, 0.11835060121137558, 0.12191741871582687, 0.12113766637852277, 0.12113766637852277, 0.12231348426882854, 0.12231348426882854), xaxis = "x1", yaxis = "y11", hoverinfo = "none" ) trace132 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(0.11377314476928853, 0.11229001036725045, 0.11237387227179077, 0.11239943050608234, 0.11239943050608234, 0.11257254226892617, 0.11392010640752935, 0.11689990163842887, 0.11824796481755846, 0.11761321086550622, 0.11874164399235916, 0.11882038897167782, 0.11547635706371154, 0.11337600997216042, 0.11322196949619363, 0.11702266165190237, 0.11571966079299092, 0.11639660119884045, 0.11467865222764136, 0.1149555937255347, 0.11402045757366032, 0.11305745161591615, 0.11305745161591615, 0.11305296505329046, 0.11344123130905565, 0.11343141162763876, 0.11160611085487022, 0.1130879951729293, 0.11420289687763849, 0.11420289687763849, 0.11531727213285002, 0.11531727213285002, 0.11516854929631212, 0.10862637539701983, 0.10767242596117399, 0.0994115463307322, 0.10167540205773035, 0.10085699852628764, 0.1051022568023395, 0.10411620980323497, 0.10119979892389322, 0.10090586295264951, 0.09910944205406849, 0.10477705604929069, 0.10106791210136842, 0.09569724538105612, 0.10762581763634337, 0.10972233675943271, 0.10869081847300241, 0.10904885739769889, 0.107948064915029, 0.107948064915029, 0.10422444826479403, 0.10309091562449847, 0.10614109701997367, 0.10655177809668911, 0.10398014545859072, 0.10265370128345766, 0.10168622899399948, 0.10466019472166001, 0.09432078297869737, 0.10435313948312828, 0.09952189576169693, 0.09902166563415105, 0.099441002000626, 0.10445217048752976, 0.10487252509845237, 0.10960209276575336, 0.10555558375710028, 0.10765415027721026, 0.10861072110212648, 0.10933921680057745, 0.10288782887342976, 0.1020478594114203, 0.09021340559314087, 0.092736854094457, 0.09185239631364589, 0.09121618101241573, 0.09390179431923315, 0.0952667357905497), xaxis = "x1", yaxis = "y11", hoverinfo = "none" ) trace133 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(-0.20675656878216742, -0.20675656878216742, -0.20675656878216742, -0.21120792997042206, -0.21755710031316372, -0.2101577342887695, -0.21183305163370528, -0.21132911216118472, -0.21166214794474902, -0.21565494988110548, -0.21102263031519708, -0.21446990632412083, -0.2131319710460828, -0.21329781459459637, -0.21142961554085316, -0.21135817789736563, -0.21186694525531444, -0.2082738972002738, -0.20804755277762096, -0.21262445649674017, -0.20837809202652308, -0.20611981753420663, -0.20638699308624686, -0.20638699308624686, -0.2040325293164334, -0.20460482641066544, -0.2041850682995154, -0.20479879547131216, -0.20449812275555043, -0.20200367475346087, -0.20232754932121327, -0.19975800512856887, -0.19217605227830614, -0.1921924809648028, -0.1884329157334801, -0.1880011816445697, -0.1864803783743678, -0.18674881834625356, -0.18427132762812226, -0.19178906151066144, -0.19230730438024143, -0.18702131308071823, -0.18321441450166318, -0.19163461792213873, -0.19111631602724818, -0.20098779406514067, -0.21094133707403648, -0.2081452016720154, -0.21131294448060484, -0.20179910367092324, -0.2004190438440662, -0.20114508069146061, -0.1981540887947017, -0.20365009735044803, -0.20749948874176358, -0.20573141286500193, -0.21235555592030259, -0.2079810179298513, -0.20851163962621067, -0.21144728510065314, -0.21347237388725115, -0.21700086104598737, -0.21967530197680432, -0.2096737907898023, -0.21238563155233597, -0.21238563155233597, -0.21747756762406073, -0.21056062896165714, -0.21056062896165714, -0.21107045733313606, -0.21007317115237378, -0.2113850643190033, -0.21103337934752964, -0.21444266448864246, -0.20992311789073126, -0.20995636899586154, -0.20640091533815325, -0.1955575741629406, -0.19863619744015276, -0.19909919734711687), xaxis = "x1", yaxis = "y12", hoverinfo = "none" ) trace134 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(-0.20070249159979714, -0.2029844061393654, -0.20504083064992043, -0.20508394499204938, -0.2046045013152374, -0.21129819314485476, -0.21146139392560828, -0.20936378809818476, -0.20936378809818476, -0.20672265495523034, -0.20618691780589546, -0.20612973124976672, -0.20739269473388752, -0.20739269473388752, -0.207522212566583, -0.20742031047738524, -0.20742031047738524, -0.20582601811140144, -0.2052572986636181, -0.20961220283435267, -0.21013699378743217, -0.20809214997968886, -0.21262615535148122, -0.21253359366077385, -0.2134229403229374, -0.21388372580239853, -0.21432772792324992, -0.2161750307123241, -0.21007980418056538, -0.20981573467113543, -0.20933340442498596, -0.20993633032963357, -0.20671999214676207, -0.20488477267405167, -0.2052642844439482, -0.2052642844439482, -0.2053160850532246, -0.20534696756192317, -0.20471670689580274, -0.20002422663784664, -0.20211792034818415, -0.20211792034818415, -0.19708539447111242, -0.20401777830256218, -0.20310159568655176, -0.20359688762989836, -0.20134725742093995, -0.20156417594662063, -0.20249094456882247, -0.20249094456882247, -0.2024950630938246, -0.2024950630938246, -0.20194593998184518, -0.19791188286879016, -0.196011004942022, -0.19605747541910287, -0.1958756460749693, -0.19540418930333522, -0.19538049400256052, -0.19538049400256052, -0.19469772202242094, -0.19525130503293003, -0.20087026124394539, -0.20030732604329413, -0.20031288590987223, -0.1970700274472622, -0.19707318236551938, -0.19571801744589673, -0.19597177440394084, -0.19553180866807435, -0.19642513883440482, -0.1970383181205656, -0.19489690803803075, -0.1950146344803204, -0.20044964694429054, -0.19831137681462702, -0.1971217356939411, -0.19707414224952235, -0.19608428113086077, -0.19448360834696884), xaxis = "x1", yaxis = "y12", hoverinfo = "none" ) trace135 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(-0.19686227860806207, -0.19686227860806207, -0.1907790620065993, -0.19043389591475973, -0.19093943480834089, -0.18642280632168923, -0.19099151555388774, -0.1912494753233184, -0.18972068034039272, -0.18972068034039272, -0.1880945527451678, -0.1873960587943483, -0.18924442808591985, -0.18999854003455388, -0.18838950458396406, -0.18739656381965955, -0.18739656381965955, -0.1862353559739227, -0.19196075847265132, -0.19407790795334115, -0.19373665476784568, -0.19241237826830904, -0.19439950038022724, -0.19445660372771328, -0.1953446590173507, -0.1919704788517478, -0.19356197437792175, -0.19356197437792175, -0.18120504172710816, -0.18120504172710816, -0.18213152616050182, -0.18213152616050182, -0.1825040588909711, -0.18214367040792728, -0.18207807381037705, -0.19473712709780772, -0.19920471927088054, -0.19862790957859366, -0.19879090733861737, -0.2005062413579553, -0.19736914825991697, -0.19472266240010408, -0.18923150910264372, -0.19274076347668537, -0.188934473094527, -0.18384047964857964, -0.18360666049539176, -0.18458489408477952, -0.19748646844603376, -0.2006331898930357, -0.20134298344039667, -0.20071093541044743, -0.20073616513093237, -0.19520178269181873, -0.18441603708800536, -0.18782761439634077, -0.18007156159790078, -0.18007156159790078, -0.18738287670436438, -0.18629092962087482, -0.18934625098844357, -0.18934625098844357, -0.189637124813565, -0.1890967890688548, -0.18778315045936475, -0.1885528931646204, -0.18812588053469145, -0.18640496351651242, -0.181252077107644, -0.181252077107644, -0.18262092147707565, -0.18417103014932676, -0.1842170139082876, -0.1842170139082876, -0.1842170139082876, -0.1824744168333813, -0.1824744168333813, -0.1858407904256297, -0.18515254302800044, -0.18798128216761403), xaxis = "x1", yaxis = "y12", hoverinfo = "none" ) trace136 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(-0.1969457980319634, -0.19599264161401278, -0.19600021529346923, -0.1933163057313117, -0.19720255224388927, -0.19728004155993753, -0.1966337541456734, -0.19888619843766933, -0.19909428122069533, -0.1985484752065745, -0.19862349097038925, -0.20083687976537234, -0.200747801546656, -0.1988801300956595, -0.1988903355630914, -0.19447852359959983, -0.1945951170464682, -0.19570251191792196, -0.20380203872934788, -0.20380203113522838, -0.20393052087579172, -0.2029565451713657, -0.2024220833054889, -0.19537567639974837, -0.1965238080675625, -0.1965238080675625, -0.19632171162238238, -0.19685626586767538, -0.19708089916485075, -0.19938154331902666, -0.1970560975004212, -0.19738924556803528, -0.19234377965154514, -0.1932601403277473, -0.1937859447358234, -0.1927027166599495, -0.193172019352747, -0.19634789277443557, -0.19205543484331888, -0.19076040923094822, -0.18956442551987943, -0.19177286573065475, -0.1923290089543866, -0.20472388080096365, -0.20520250755741543, -0.20526840494609036, -0.20518667658998455, -0.20423517721716336, -0.20423517721716336, -0.20368763770223663, -0.2016023999114783, -0.20336199618929376, -0.20329499150727232, -0.2046116059490551, -0.2046116059490551, -0.20491539777555054, -0.20435484162719933, -0.2049504343353407, -0.2049504343353407, -0.20223348871445798, -0.2041808291445786, -0.20604137382251353, -0.2068942430854109, -0.20435229754587636, -0.1994508076559481, -0.19945039761700306, -0.19811568524009882, -0.19811568524009882, -0.19810503829626072, -0.19684683480778592, -0.19666358432796985, -0.1962149559965548, -0.1962149559965548, -0.19528337714057856, -0.19449193961377745, -0.1960931991327479, -0.19552880617285867, -0.18978693639232325, -0.19176345177058776, -0.19141094464962893), xaxis = "x1", yaxis = "y12", hoverinfo = "none" ) trace137 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(-0.2075820244785199, -0.20711734747583485, -0.20951144852986855, -0.20990216496254052, -0.2136634448561216, -0.21270038960118065, -0.2124332019358875, -0.21189962537075283, -0.21199003363005456, -0.21199003363005456, -0.20893126509079643, -0.20893126509079643, -0.2089650444693086, -0.2089650444693086, -0.2089650444693086, -0.21198346314891517, -0.20961793163487055, -0.21089178741857437, -0.21089178741857437, -0.21054453156265437, -0.21054453156265437, -0.21034675653445156, -0.20940108660376883, -0.20911990559258573, -0.20819643958681675, -0.20819643958681675, -0.20942350034255203, -0.20942350034255203, -0.21020961630774196, -0.20907030423522685, -0.20944316208400915, -0.20834372183454702, -0.20834372183454702, -0.20834372183454702, -0.20894509732812794, -0.20975991908351854, -0.21065178375198215, -0.21065178375198215, -0.20977285400857346, -0.20927794125529328, -0.20927794125529328, -0.2073372107173597, -0.2073372107173597, -0.2071520607110049, -0.20749700680945476, -0.20747450211674104, -0.20747450211674104, -0.2068662288227843, -0.20864615983171578, -0.20685090642965712, -0.2042764817455069, -0.2042764817455069, -0.2043820271688165, -0.2043820271688165, -0.2043820271688165, -0.20500752469028663, -0.20123699658876226, -0.20516922969567447, -0.20516922969567447, -0.20591955583444738, -0.20591955583444738, -0.20591955583444738, -0.20723048558946963, -0.20480472832955204, -0.2041896874504596, -0.2041896874504596, -0.2041896874504596, -0.20230502782075818, -0.20230502782075818, -0.20230502782075818, -0.20925581670291626, -0.20925581670291626, -0.208357621095447, -0.208357621095447, -0.21243694107314642, -0.21295773166239526, -0.21175954665426888, -0.21175954665426888, -0.21175954665426888, -0.21175954665426888), xaxis = "x1", yaxis = "y12", hoverinfo = "none" ) trace138 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(-0.20571737863488562, -0.2079414423214875, -0.2083199397674502, -0.20778948619929888, -0.20769771881603705, -0.20756034927985972, -0.20897187901759698, -0.19874662676270746, -0.19722813814154924, -0.19786135777070668, -0.19769654825379723, -0.19762671375013843, -0.1960466194809592, -0.1960466194809592, -0.19261296097079086, -0.19023208447668302, -0.19194163561549024, -0.19273029648494822, -0.19157530821000673, -0.19194175572920727, -0.19305939459114985, -0.19098811262969323, -0.19419105758744837, -0.19400646969099844, -0.1964787936219667, -0.19642012068847473, -0.19380202435957541, -0.19782086331634674, -0.1976898447566258, -0.20789540722249167, -0.2072555640087145, -0.2060455677329732, -0.20439611106686234, -0.20546817159647868, -0.20870061753340055, -0.20877803525164373, -0.20848816542726706, -0.2117990059916503, -0.20963663696307383, -0.21575550510125105, -0.21537300101939452, -0.21079404987241365, -0.20935650137624395, -0.20792205128638758, -0.21004000836535264, -0.2101240591564375, -0.20995162488784277, -0.210417993219978, -0.2076413124550346, -0.20712016210900416, -0.20897519803371217, -0.20894124869787203, -0.21318225614810066, -0.21169785106061573, -0.21045982315577166, -0.2089382539568378, -0.2089382539568378, -0.21373998906559485, -0.20946310749127459, -0.21203743596787902, -0.20821897749615145, -0.20821897749615145, -0.2137666027915776, -0.21716512343764532, -0.21499141363231528, -0.2166154491213067, -0.2151863287839889, -0.2171524973633176, -0.21404010263044637, -0.2013850819289085, -0.2011434134321061, -0.20098523470779728, -0.20110507715531176, -0.2047668643486895, -0.20939423971749058, -0.20939423971749058, -0.21170188537830104, -0.21170188537830104, -0.20759553928840216, -0.2099703021032394), xaxis = "x1", yaxis = "y12", hoverinfo = "none" ) trace139 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(-0.19150131127903858, -0.19256588449024648, -0.19655558064813433, -0.19513566268139984, -0.19439346154842657, -0.19563056026329703, -0.1961133547318695, -0.19839724456203464, -0.198095403718498, -0.19853251934053914, -0.19886454905638828, -0.19867514294502348, -0.1991590014066358, -0.20102827079575897, -0.20441663910226426, -0.19055952774007706, -0.1921538383667334, -0.19185112749252348, -0.19113595226269575, -0.18780308845240792, -0.18888314642298043, -0.19283729852184017, -0.19283729852184017, -0.19283729852184017, -0.19123916398237356, -0.19047636380766514, -0.19650155811397385, -0.19795610294621477, -0.1970652337514503, -0.19729556744074206, -0.19715850561726217, -0.1962654978833997, -0.19259762295985527, -0.19259762295985527, -0.19259762295985527, -0.19261611449651223, -0.19754012237713825, -0.1985351804549732, -0.19675805492100684, -0.195142548817039, -0.18211266067829007, -0.1795124751738084, -0.18863894562945033, -0.19267012446055728, -0.19338176545147112, -0.19506495478205613, -0.19495658348132622, -0.17885102771863517, -0.18403597590451112, -0.1891423634149877, -0.18920584659101902, -0.1872989665651434, -0.1878534465266989, -0.18741750556037157, -0.18512212713711398, -0.18474123519953117, -0.19214612033898607, -0.1919018312005642, -0.18785318529709372, -0.1881362031401479, -0.1888095828786756, -0.18977776324267323, -0.18977776324267323, -0.19459824749602128, -0.17452795286540834, -0.1747656959557952, -0.1741761277753283, -0.17738515818206382, -0.1750168964734237, -0.17627092344484238, -0.18578399532280904, -0.18362581112110135, -0.18458410728785046, -0.1852431164311252, -0.18488680732356463, -0.1867029341966293, -0.18193983102970337, -0.18347365603644378, -0.1856369964552701, -0.17670238706436486), xaxis = "x1", yaxis = "y12", hoverinfo = "none" ) trace140 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(-0.20074389800830916, -0.19993693276220104, -0.19993693276220104, -0.19784776728896375, -0.20044599640725677, -0.19669078628311246, -0.19404941152685667, -0.19278573844779578, -0.18584911943708282, -0.18642080896071658, -0.1889814182713287, -0.18761128002027705, -0.18717286701365332, -0.1865770210920712, -0.19247867538434443, -0.1926567438315641, -0.19278525948704645, -0.19293232656037052, -0.19407155882314084, -0.19455429126380952, -0.20273845618589623, -0.1985762298325661, -0.1972235298100528, -0.1933738874936799, -0.1925501378429278, -0.1910848976818733, -0.1890864121087769, -0.1891790654525979, -0.18917626116037134, -0.18994161098189885, -0.18972082055414913, -0.18955779046370247, -0.18996927944478983, -0.18943104140489087, -0.18688037364990015, -0.1864822737011327, -0.1889755145424678, -0.18645030290230552, -0.184657881233264, -0.18049263627097545, -0.19324588153894753, -0.19290538066242488, -0.19185946261181006, -0.1961520416637373, -0.1920999792347456, -0.19593158140779887, -0.19593158140779887, -0.19368636887525956, -0.19332477675144238, -0.2019794538694594, -0.20096829269200692, -0.1976134518879459, -0.19749739024060647, -0.200016534379465, -0.19021416613430198, -0.19624144343579142, -0.19809029421952534, -0.19667668975500902, -0.199661698557191, -0.20193780002660078, -0.2020246955188191, -0.20303858602026129, -0.20484769513413695, -0.2043683675135789, -0.20615789992717048, -0.20415152151463653, -0.21076185997049277, -0.21174902909767773, -0.21259013952895328, -0.21297849198392382, -0.21236841624216204, -0.21236841624216204, -0.21236841624216204, -0.21297543703118357, -0.20969578126388386, -0.2167234442401734, -0.22339906625370012, -0.2237044113291495, -0.20813761084760402, -0.21492486838150746), xaxis = "x1", yaxis = "y12", hoverinfo = "none" ) trace141 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(-0.19846988054682654, -0.196665498666395, -0.19755990447375166, -0.195685660778003, -0.19925662656103535, -0.20440057727066485, -0.20563394910298735, -0.20679585205975498, -0.20621427048064594, -0.20811788749835602, -0.20891557353876117, -0.208037777685762, -0.20803989144346127, -0.2076508768459488, -0.20920355111350386, -0.21055960925103984, -0.20939564724225157, -0.20928608519068775, -0.2118336773751882, -0.2080252712215876, -0.21524733888219685, -0.21646941765477087, -0.2146241256208532, -0.21133846916153565, -0.21133846916153565, -0.2111849421493066, -0.21086845816027852, -0.21184558607713985, -0.21270984389391373, -0.2111903496531411, -0.21570274181634783, -0.21478920496100118, -0.20323553576154807, -0.20391917442306298, -0.20407423637452432, -0.20627259980421403, -0.20421580991146646, -0.20522243767473378, -0.20921580890748875, -0.20129539588632775, -0.19839583794817206, -0.1986199887271539, -0.1986199887271539, -0.19721367052039787, -0.20421360430025964, -0.2026884089964688, -0.20330818876368675, -0.20413884884885136, -0.20383471076860643, -0.20383471076860643, -0.19621072027284625, -0.1976491177920572, -0.19617561663017705, -0.1946065398534713, -0.18920385610460064, -0.19137551699154076, -0.19157354883195116, -0.1919065810370631, -0.1899641500068085, -0.19099113440783694, -0.19241955080325415, -0.19170158195773848, -0.19236211179230328, -0.1946286196933521, -0.19563890277154802, -0.1956654605174021, -0.1959106373130452, -0.19616843692267438, -0.19497291944197057, -0.20619877532727543, -0.20619877532727543, -0.2057553412321912, -0.2057553412321912, -0.21092909750263505, -0.2091386608196311, -0.21688765442683872, -0.22402591677144526, -0.22182582081754534, -0.21968905117535842, -0.21935322946937327), xaxis = "x1", yaxis = "y12", hoverinfo = "none" ) trace142 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(-0.20756677995851044, -0.2057435971234426, -0.2057435971234426, -0.20826532165356346, -0.20262855871581142, -0.20276980762826027, -0.2005820800461135, -0.19246999497758477, -0.20058791700871448, -0.20657346614182862, -0.20545731094747557, -0.20551173270016576, -0.20551329662299933, -0.20551329662299933, -0.20295412703601678, -0.2023816940141007, -0.2023816940141007, -0.2015954238195197, -0.2014021282765021, -0.20121793434869026, -0.2003492556581172, -0.2015419869859062, -0.20157275256593926, -0.20148601432476249, -0.19899536188396855, -0.1984188492605277, -0.1977169654546713, -0.19771661316568065, -0.1968704469123255, -0.19630058562521796, -0.19595234617593685, -0.19612560711972618, -0.19728192772155984, -0.19750340297465194, -0.1998608563868075, -0.20011058234713852, -0.20011058234713852, -0.2021334541121691, -0.20133188478213887, -0.20133188478213887, -0.20014514766416744, -0.20086053490756717, -0.20280759278819951, -0.20495843485623932, -0.20495843485623932, -0.20498631955227953, -0.20892019695683314, -0.20160504036250232, -0.1974397815735575, -0.19735276250833092, -0.19798808212287972, -0.19812783726492525, -0.1974422231231044, -0.1970528177981114, -0.19732696343834755, -0.1996841557718545, -0.1996841557718545, -0.20078363897264306, -0.2005278243059614, -0.20078494967624808, -0.203296985214226, -0.20316698958199425, -0.20642779606058223, -0.20831080979339164, -0.20997061096016073, -0.20613885305578988, -0.21203590246458456, -0.21019257207941264, -0.20877573320027923, -0.20877573320027923, -0.21139049778061925, -0.21139049778061925, -0.2079108792474874, -0.20910847805891894, -0.21174790715132943, -0.21144174033488783, -0.21144174033488783, -0.21394188808291434, -0.20586246569237077, -0.20336603163161313), xaxis = "x1", yaxis = "y12", hoverinfo = "none" ) trace143 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(-0.18989851702178756, -0.18860538644905483, -0.19288535640974286, -0.19489000093673922, -0.1962229636388557, -0.19512201827527886, -0.19509859300709453, -0.19661076562952948, -0.19661076562952948, -0.1972217082194099, -0.1971505674344798, -0.19691536240421817, -0.19691536240421817, -0.19688179807272618, -0.19699759905498054, -0.19965533894247062, -0.2015414878945823, -0.20284442962702764, -0.20284442962702764, -0.20067025384283813, -0.20139110739685043, -0.20139110739685043, -0.20139110739685043, -0.20068064478827627, -0.19972693661674168, -0.19970654091196888, -0.19914479609818295, -0.20054248072828, -0.20179170413811268, -0.20225087942915704, -0.20250737920534811, -0.2041932132135417, -0.2048949094509172, -0.20414753866417534, -0.20557342700545786, -0.20557342700545786, -0.20585103709834363, -0.20585103709834363, -0.2062655009037788, -0.205909997180492, -0.21078480039782305, -0.21077561667901717, -0.20858553330456422, -0.21205377323156563, -0.21307891272360063, -0.21409159745968043, -0.20946031930751996, -0.21244784356854354, -0.20946599744083888, -0.2196549320465625, -0.21795317374389217, -0.21116249066150414, -0.21279011181876129, -0.21325625295238576, -0.21280289203074768, -0.21338580176441105, -0.20674282184133053, -0.20321046272133467, -0.20296959555685753, -0.201035784391457, -0.2013480777688442, -0.20216442697365156, -0.19709258440028132, -0.19799764949844806, -0.19744974412923513, -0.19958056643972755, -0.20153041528583404, -0.20640440979492164, -0.2058747340155812, -0.20887524373800317, -0.20635998591809407, -0.20412607352069784, -0.20930076708884088, -0.2051751868544352, -0.20484310421270968, -0.20628553356569795, -0.2001136713916616, -0.2001136713916616, -0.2009335964820141, -0.2009335964820141), xaxis = "x1", yaxis = "y12", hoverinfo = "none" ) trace144 <- list( line = list( color = "black", width = 0.4 ), mode = "lines", type = "scatter", x = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790), y = c(-0.19422581575242095, -0.19328315458708528, -0.19270000899020917, -0.19489895427512627, -0.19489895427512627, -0.19418046400459874, -0.19283589084015165, -0.18955525411460789, -0.18384295886443686, -0.18741319266637377, -0.18795669348591137, -0.18635845847083324, -0.19295712409087024, -0.1931634142826097, -0.1921096621222795, -0.19244996548797522, -0.19203176864022162, -0.19512426434676056, -0.19372782608664774, -0.1937522828441552, -0.19310576566675758, -0.19331558293940074, -0.19331558293940074, -0.19332801896130555, -0.1930444250666173, -0.19306918325740297, -0.1925142924687565, -0.19321331049421067, -0.19388621279208143, -0.19388621279208143, -0.19338055669247325, -0.19338055669247325, -0.1936608166283529, -0.18679889468471272, -0.1878914844258605, -0.17873937367356163, -0.18424651723297883, -0.1828720884653564, -0.18979992816476055, -0.187635649234599, -0.19145331477549052, -0.19041679128751973, -0.18989381130314262, -0.18376171036775518, -0.19038861661711654, -0.18563014460951224, -0.19287235176021053, -0.1930900417072642, -0.19223622665224596, -0.19259852973537867, -0.192430666049262, -0.192430666049262, -0.19472006903863365, -0.1950484079516922, -0.1971802941899321, -0.196917280290356, -0.20003241432711372, -0.1929117763186075, -0.19251652890048573, -0.19349123199778034, -0.1926452276036905, -0.19327183252671667, -0.1940243835792031, -0.19363841160682596, -0.19397359408892814, -0.19374510759558167, -0.18842017418739096, -0.1894092391400331, -0.19004028070439838, -0.1947690814207725, -0.19315623312628785, -0.1945658415306918, -0.1905595177963088, -0.19269348020332353, -0.1952839479739972, -0.19985954883707646, -0.19971768614340982, -0.20094616868772722, -0.2007992344286456, -0.20063844119196322), xaxis = "x1", yaxis = "y12", hoverinfo = "none" ) data <- list(trace1, trace2, trace3, trace4, trace5, trace6, trace7, trace8, trace9, trace10, trace11, trace12, trace13, trace14, trace15, trace16, trace17, trace18, trace19, trace20, trace21, trace22, trace23, trace24, trace25, trace26, trace27, trace28, trace29, trace30, trace31, trace32, trace33, trace34, trace35, trace36, trace37, trace38, trace39, trace40, trace41, trace42, trace43, trace44, trace45, trace46, trace47, trace48, trace49, trace50, trace51, trace52, trace53, trace54, trace55, trace56, trace57, trace58, trace59, trace60, trace61, trace62, trace63, trace64, trace65, trace66, trace67, trace68, trace69, trace70, trace71, trace72, trace73, trace74, trace75, trace76, trace77, trace78, trace79, trace80, trace81, trace82, trace83, trace84, trace85, trace86, trace87, trace88, trace89, trace90, trace91, trace92, trace93, trace94, trace95, trace96, trace97, trace98, trace99, trace100, trace101, trace102, trace103, trace104, trace105, trace106, trace107, trace108, trace109, trace110, trace111, trace112, trace113, trace114, trace115, trace116, trace117, trace118, trace119, trace120, trace121, trace122, trace123, trace124, trace125, trace126, trace127, trace128, trace129, trace130, trace131, trace132, trace133, trace134, trace135, trace136, trace137, trace138, trace139, trace140, trace141, trace142, trace143, trace144) layout <- list( title = "MWC758", width = 900, height = 2400, xaxis1 = list( anchor = "y12", domain = c(0.0, 1.0) ), yaxis1 = list( title = "$M_\ast\; [M_\odot]$", anchor = "free", domain = c(0.92125, 1.0), position = 0.0 ), yaxis2 = list( title = "$r_c \; [\mathrm{AU}]$", anchor = "free", domain = c(0.8375, 0.91625), position = 0.0 ), yaxis3 = list( title = "$T_{10} [\mathrm{K}]$", anchor = "free", domain = c(0.75375, 0.8325), position = 0.0 ), yaxis4 = list( title = "$q$", anchor = "free", domain = c(0.67, 0.74875), position = 0.0 ), yaxis5 = list( title = "$\log M_\mathrm{gas} \quad \log [M_\odot]$", anchor = "free", domain = c(0.58625, 0.665), position = 0.0 ), yaxis6 = list( title = "$\xi [\mathrm{km/s}]$", anchor = "free", domain = c(0.5025000000000001, 0.58125), position = 0.0 ), yaxis7 = list( title = "$d \; [\mathrm{pc}]$", anchor = "free", domain = c(0.41875, 0.4975), position = 0.0 ), yaxis8 = list( title = "$i_d \quad [{}^\circ]$", anchor = "free", domain = c(0.335, 0.41375), position = 0.0 ), yaxis9 = list( title = "$\mathrm{PA}\;[{}^\circ]$", anchor = "free", domain = c(0.25125000000000003, 0.33), position = 0.0 ), yaxis10 = list( title = "$v_r [\mathrm{km/s}]$", anchor = "free", domain = c(0.1675, 0.24625000000000002), position = 0.0 ), yaxis11 = list( title = "$\mu_\alpha\;[\mathrm{''}]$", anchor = "free", domain = c(0.08375, 0.1625), position = 0.0 ), yaxis12 = list( title = "$\mu_\delta \; ['']$", anchor = "x1", domain = c(0.0, 0.07875) ), showlegend = FALSE ) p <- plot_ly() p <- add_trace(p, line=trace1$line, mode=trace1$mode, type=trace1$type, x=trace1$x, y=trace1$y, xaxis=trace1$xaxis, yaxis=trace1$yaxis, hoverinfo=trace1$hoverinfo) p <- add_trace(p, line=trace2$line, mode=trace2$mode, type=trace2$type, x=trace2$x, y=trace2$y, xaxis=trace2$xaxis, yaxis=trace2$yaxis, hoverinfo=trace2$hoverinfo) p <- add_trace(p, line=trace3$line, mode=trace3$mode, type=trace3$type, x=trace3$x, y=trace3$y, xaxis=trace3$xaxis, yaxis=trace3$yaxis, hoverinfo=trace3$hoverinfo) p <- add_trace(p, line=trace4$line, mode=trace4$mode, type=trace4$type, x=trace4$x, y=trace4$y, xaxis=trace4$xaxis, yaxis=trace4$yaxis, hoverinfo=trace4$hoverinfo) p <- add_trace(p, line=trace5$line, mode=trace5$mode, type=trace5$type, x=trace5$x, y=trace5$y, xaxis=trace5$xaxis, yaxis=trace5$yaxis, hoverinfo=trace5$hoverinfo) p <- add_trace(p, line=trace6$line, mode=trace6$mode, type=trace6$type, x=trace6$x, y=trace6$y, xaxis=trace6$xaxis, yaxis=trace6$yaxis, hoverinfo=trace6$hoverinfo) p <- add_trace(p, line=trace7$line, mode=trace7$mode, type=trace7$type, x=trace7$x, y=trace7$y, xaxis=trace7$xaxis, yaxis=trace7$yaxis, hoverinfo=trace7$hoverinfo) p <- add_trace(p, line=trace8$line, mode=trace8$mode, type=trace8$type, x=trace8$x, y=trace8$y, xaxis=trace8$xaxis, yaxis=trace8$yaxis, hoverinfo=trace8$hoverinfo) p <- add_trace(p, line=trace9$line, mode=trace9$mode, type=trace9$type, x=trace9$x, y=trace9$y, xaxis=trace9$xaxis, yaxis=trace9$yaxis, hoverinfo=trace9$hoverinfo) p <- add_trace(p, line=trace10$line, mode=trace10$mode, type=trace10$type, x=trace10$x, y=trace10$y, xaxis=trace10$xaxis, yaxis=trace10$yaxis, hoverinfo=trace10$hoverinfo) p <- add_trace(p, line=trace11$line, mode=trace11$mode, type=trace11$type, x=trace11$x, y=trace11$y, xaxis=trace11$xaxis, yaxis=trace11$yaxis, hoverinfo=trace11$hoverinfo) p <- add_trace(p, line=trace12$line, mode=trace12$mode, type=trace12$type, x=trace12$x, y=trace12$y, xaxis=trace12$xaxis, yaxis=trace12$yaxis, hoverinfo=trace12$hoverinfo) p <- add_trace(p, line=trace13$line, mode=trace13$mode, type=trace13$type, x=trace13$x, y=trace13$y, xaxis=trace13$xaxis, yaxis=trace13$yaxis, hoverinfo=trace13$hoverinfo) p <- add_trace(p, line=trace14$line, mode=trace14$mode, type=trace14$type, x=trace14$x, y=trace14$y, xaxis=trace14$xaxis, yaxis=trace14$yaxis, hoverinfo=trace14$hoverinfo) p <- add_trace(p, line=trace15$line, mode=trace15$mode, type=trace15$type, x=trace15$x, y=trace15$y, xaxis=trace15$xaxis, yaxis=trace15$yaxis, hoverinfo=trace15$hoverinfo) p <- add_trace(p, line=trace16$line, mode=trace16$mode, type=trace16$type, x=trace16$x, y=trace16$y, xaxis=trace16$xaxis, yaxis=trace16$yaxis, hoverinfo=trace16$hoverinfo) p <- add_trace(p, line=trace17$line, mode=trace17$mode, type=trace17$type, x=trace17$x, y=trace17$y, xaxis=trace17$xaxis, yaxis=trace17$yaxis, hoverinfo=trace17$hoverinfo) p <- add_trace(p, line=trace18$line, mode=trace18$mode, type=trace18$type, x=trace18$x, y=trace18$y, xaxis=trace18$xaxis, yaxis=trace18$yaxis, hoverinfo=trace18$hoverinfo) p <- add_trace(p, line=trace19$line, mode=trace19$mode, type=trace19$type, x=trace19$x, y=trace19$y, xaxis=trace19$xaxis, yaxis=trace19$yaxis, hoverinfo=trace19$hoverinfo) p <- add_trace(p, line=trace20$line, mode=trace20$mode, type=trace20$type, x=trace20$x, y=trace20$y, xaxis=trace20$xaxis, yaxis=trace20$yaxis, hoverinfo=trace20$hoverinfo) p <- add_trace(p, line=trace21$line, mode=trace21$mode, type=trace21$type, x=trace21$x, y=trace21$y, xaxis=trace21$xaxis, yaxis=trace21$yaxis, hoverinfo=trace21$hoverinfo) p <- add_trace(p, line=trace22$line, mode=trace22$mode, type=trace22$type, x=trace22$x, y=trace22$y, xaxis=trace22$xaxis, yaxis=trace22$yaxis, hoverinfo=trace22$hoverinfo) p <- add_trace(p, line=trace23$line, mode=trace23$mode, type=trace23$type, x=trace23$x, y=trace23$y, xaxis=trace23$xaxis, yaxis=trace23$yaxis, hoverinfo=trace23$hoverinfo) p <- add_trace(p, line=trace24$line, mode=trace24$mode, type=trace24$type, x=trace24$x, y=trace24$y, xaxis=trace24$xaxis, yaxis=trace24$yaxis, hoverinfo=trace24$hoverinfo) p <- add_trace(p, line=trace25$line, mode=trace25$mode, type=trace25$type, x=trace25$x, y=trace25$y, xaxis=trace25$xaxis, yaxis=trace25$yaxis, hoverinfo=trace25$hoverinfo) p <- add_trace(p, line=trace26$line, mode=trace26$mode, type=trace26$type, x=trace26$x, y=trace26$y, xaxis=trace26$xaxis, yaxis=trace26$yaxis, hoverinfo=trace26$hoverinfo) p <- add_trace(p, line=trace27$line, mode=trace27$mode, type=trace27$type, x=trace27$x, y=trace27$y, xaxis=trace27$xaxis, yaxis=trace27$yaxis, hoverinfo=trace27$hoverinfo) p <- add_trace(p, line=trace28$line, mode=trace28$mode, type=trace28$type, x=trace28$x, y=trace28$y, xaxis=trace28$xaxis, yaxis=trace28$yaxis, hoverinfo=trace28$hoverinfo) p <- add_trace(p, line=trace29$line, mode=trace29$mode, type=trace29$type, x=trace29$x, y=trace29$y, xaxis=trace29$xaxis, yaxis=trace29$yaxis, hoverinfo=trace29$hoverinfo) p <- add_trace(p, line=trace30$line, mode=trace30$mode, type=trace30$type, x=trace30$x, y=trace30$y, xaxis=trace30$xaxis, yaxis=trace30$yaxis, hoverinfo=trace30$hoverinfo) p <- add_trace(p, line=trace31$line, mode=trace31$mode, type=trace31$type, x=trace31$x, y=trace31$y, xaxis=trace31$xaxis, yaxis=trace31$yaxis, hoverinfo=trace31$hoverinfo) p <- add_trace(p, line=trace32$line, mode=trace32$mode, type=trace32$type, x=trace32$x, y=trace32$y, xaxis=trace32$xaxis, yaxis=trace32$yaxis, hoverinfo=trace32$hoverinfo) p <- add_trace(p, line=trace33$line, mode=trace33$mode, type=trace33$type, x=trace33$x, y=trace33$y, xaxis=trace33$xaxis, yaxis=trace33$yaxis, hoverinfo=trace33$hoverinfo) p <- add_trace(p, line=trace34$line, mode=trace34$mode, type=trace34$type, x=trace34$x, y=trace34$y, xaxis=trace34$xaxis, yaxis=trace34$yaxis, hoverinfo=trace34$hoverinfo) p <- add_trace(p, line=trace35$line, mode=trace35$mode, type=trace35$type, x=trace35$x, y=trace35$y, xaxis=trace35$xaxis, yaxis=trace35$yaxis, hoverinfo=trace35$hoverinfo) p <- add_trace(p, line=trace36$line, mode=trace36$mode, type=trace36$type, x=trace36$x, y=trace36$y, xaxis=trace36$xaxis, yaxis=trace36$yaxis, hoverinfo=trace36$hoverinfo) p <- add_trace(p, line=trace37$line, mode=trace37$mode, type=trace37$type, x=trace37$x, y=trace37$y, xaxis=trace37$xaxis, yaxis=trace37$yaxis, hoverinfo=trace37$hoverinfo) p <- add_trace(p, line=trace38$line, mode=trace38$mode, type=trace38$type, x=trace38$x, y=trace38$y, xaxis=trace38$xaxis, yaxis=trace38$yaxis, hoverinfo=trace38$hoverinfo) p <- add_trace(p, line=trace39$line, mode=trace39$mode, type=trace39$type, x=trace39$x, y=trace39$y, xaxis=trace39$xaxis, yaxis=trace39$yaxis, hoverinfo=trace39$hoverinfo) p <- add_trace(p, line=trace40$line, mode=trace40$mode, type=trace40$type, x=trace40$x, y=trace40$y, xaxis=trace40$xaxis, yaxis=trace40$yaxis, hoverinfo=trace40$hoverinfo) p <- add_trace(p, line=trace41$line, mode=trace41$mode, type=trace41$type, x=trace41$x, y=trace41$y, xaxis=trace41$xaxis, yaxis=trace41$yaxis, hoverinfo=trace41$hoverinfo) p <- add_trace(p, line=trace42$line, mode=trace42$mode, type=trace42$type, x=trace42$x, y=trace42$y, xaxis=trace42$xaxis, yaxis=trace42$yaxis, hoverinfo=trace42$hoverinfo) p <- add_trace(p, line=trace43$line, mode=trace43$mode, type=trace43$type, x=trace43$x, y=trace43$y, xaxis=trace43$xaxis, yaxis=trace43$yaxis, hoverinfo=trace43$hoverinfo) p <- add_trace(p, line=trace44$line, mode=trace44$mode, type=trace44$type, x=trace44$x, y=trace44$y, xaxis=trace44$xaxis, yaxis=trace44$yaxis, hoverinfo=trace44$hoverinfo) p <- add_trace(p, line=trace45$line, mode=trace45$mode, type=trace45$type, x=trace45$x, y=trace45$y, xaxis=trace45$xaxis, yaxis=trace45$yaxis, hoverinfo=trace45$hoverinfo) p <- add_trace(p, line=trace46$line, mode=trace46$mode, type=trace46$type, x=trace46$x, y=trace46$y, xaxis=trace46$xaxis, yaxis=trace46$yaxis, hoverinfo=trace46$hoverinfo) p <- add_trace(p, line=trace47$line, mode=trace47$mode, type=trace47$type, x=trace47$x, y=trace47$y, xaxis=trace47$xaxis, yaxis=trace47$yaxis, hoverinfo=trace47$hoverinfo) p <- add_trace(p, line=trace48$line, mode=trace48$mode, type=trace48$type, x=trace48$x, y=trace48$y, xaxis=trace48$xaxis, yaxis=trace48$yaxis, hoverinfo=trace48$hoverinfo) p <- add_trace(p, line=trace49$line, mode=trace49$mode, type=trace49$type, x=trace49$x, y=trace49$y, xaxis=trace49$xaxis, yaxis=trace49$yaxis, hoverinfo=trace49$hoverinfo) p <- add_trace(p, line=trace50$line, mode=trace50$mode, type=trace50$type, x=trace50$x, y=trace50$y, xaxis=trace50$xaxis, yaxis=trace50$yaxis, hoverinfo=trace50$hoverinfo) p <- add_trace(p, line=trace51$line, mode=trace51$mode, type=trace51$type, x=trace51$x, y=trace51$y, xaxis=trace51$xaxis, yaxis=trace51$yaxis, hoverinfo=trace51$hoverinfo) p <- add_trace(p, line=trace52$line, mode=trace52$mode, type=trace52$type, x=trace52$x, y=trace52$y, xaxis=trace52$xaxis, yaxis=trace52$yaxis, hoverinfo=trace52$hoverinfo) p <- add_trace(p, line=trace53$line, mode=trace53$mode, type=trace53$type, x=trace53$x, y=trace53$y, xaxis=trace53$xaxis, yaxis=trace53$yaxis, hoverinfo=trace53$hoverinfo) p <- add_trace(p, line=trace54$line, mode=trace54$mode, type=trace54$type, x=trace54$x, y=trace54$y, xaxis=trace54$xaxis, yaxis=trace54$yaxis, hoverinfo=trace54$hoverinfo) p <- add_trace(p, line=trace55$line, mode=trace55$mode, type=trace55$type, x=trace55$x, y=trace55$y, xaxis=trace55$xaxis, yaxis=trace55$yaxis, hoverinfo=trace55$hoverinfo) p <- add_trace(p, line=trace56$line, mode=trace56$mode, type=trace56$type, x=trace56$x, y=trace56$y, xaxis=trace56$xaxis, yaxis=trace56$yaxis, hoverinfo=trace56$hoverinfo) p <- add_trace(p, line=trace57$line, mode=trace57$mode, type=trace57$type, x=trace57$x, y=trace57$y, xaxis=trace57$xaxis, yaxis=trace57$yaxis, hoverinfo=trace57$hoverinfo) p <- add_trace(p, line=trace58$line, mode=trace58$mode, type=trace58$type, x=trace58$x, y=trace58$y, xaxis=trace58$xaxis, yaxis=trace58$yaxis, hoverinfo=trace58$hoverinfo) p <- add_trace(p, line=trace59$line, mode=trace59$mode, type=trace59$type, x=trace59$x, y=trace59$y, xaxis=trace59$xaxis, yaxis=trace59$yaxis, hoverinfo=trace59$hoverinfo) p <- add_trace(p, line=trace60$line, mode=trace60$mode, type=trace60$type, x=trace60$x, y=trace60$y, xaxis=trace60$xaxis, yaxis=trace60$yaxis, hoverinfo=trace60$hoverinfo) p <- add_trace(p, line=trace61$line, mode=trace61$mode, type=trace61$type, x=trace61$x, y=trace61$y, xaxis=trace61$xaxis, yaxis=trace61$yaxis, hoverinfo=trace61$hoverinfo) p <- add_trace(p, line=trace62$line, mode=trace62$mode, type=trace62$type, x=trace62$x, y=trace62$y, xaxis=trace62$xaxis, yaxis=trace62$yaxis, hoverinfo=trace62$hoverinfo) p <- add_trace(p, line=trace63$line, mode=trace63$mode, type=trace63$type, x=trace63$x, y=trace63$y, xaxis=trace63$xaxis, yaxis=trace63$yaxis, hoverinfo=trace63$hoverinfo) p <- add_trace(p, line=trace64$line, mode=trace64$mode, type=trace64$type, x=trace64$x, y=trace64$y, xaxis=trace64$xaxis, yaxis=trace64$yaxis, hoverinfo=trace64$hoverinfo) p <- add_trace(p, line=trace65$line, mode=trace65$mode, type=trace65$type, x=trace65$x, y=trace65$y, xaxis=trace65$xaxis, yaxis=trace65$yaxis, hoverinfo=trace65$hoverinfo) p <- add_trace(p, line=trace66$line, mode=trace66$mode, type=trace66$type, x=trace66$x, y=trace66$y, xaxis=trace66$xaxis, yaxis=trace66$yaxis, hoverinfo=trace66$hoverinfo) p <- add_trace(p, line=trace67$line, mode=trace67$mode, type=trace67$type, x=trace67$x, y=trace67$y, xaxis=trace67$xaxis, yaxis=trace67$yaxis, hoverinfo=trace67$hoverinfo) p <- add_trace(p, line=trace68$line, mode=trace68$mode, type=trace68$type, x=trace68$x, y=trace68$y, xaxis=trace68$xaxis, yaxis=trace68$yaxis, hoverinfo=trace68$hoverinfo) p <- add_trace(p, line=trace69$line, mode=trace69$mode, type=trace69$type, x=trace69$x, y=trace69$y, xaxis=trace69$xaxis, yaxis=trace69$yaxis, hoverinfo=trace69$hoverinfo) p <- add_trace(p, line=trace70$line, mode=trace70$mode, type=trace70$type, x=trace70$x, y=trace70$y, xaxis=trace70$xaxis, yaxis=trace70$yaxis, hoverinfo=trace70$hoverinfo) p <- add_trace(p, line=trace71$line, mode=trace71$mode, type=trace71$type, x=trace71$x, y=trace71$y, xaxis=trace71$xaxis, yaxis=trace71$yaxis, hoverinfo=trace71$hoverinfo) p <- add_trace(p, line=trace72$line, mode=trace72$mode, type=trace72$type, x=trace72$x, y=trace72$y, xaxis=trace72$xaxis, yaxis=trace72$yaxis, hoverinfo=trace72$hoverinfo) p <- add_trace(p, line=trace73$line, mode=trace73$mode, type=trace73$type, x=trace73$x, y=trace73$y, xaxis=trace73$xaxis, yaxis=trace73$yaxis, hoverinfo=trace73$hoverinfo) p <- add_trace(p, line=trace74$line, mode=trace74$mode, type=trace74$type, x=trace74$x, y=trace74$y, xaxis=trace74$xaxis, yaxis=trace74$yaxis, hoverinfo=trace74$hoverinfo) p <- add_trace(p, line=trace75$line, mode=trace75$mode, type=trace75$type, x=trace75$x, y=trace75$y, xaxis=trace75$xaxis, yaxis=trace75$yaxis, hoverinfo=trace75$hoverinfo) p <- add_trace(p, line=trace76$line, mode=trace76$mode, type=trace76$type, x=trace76$x, y=trace76$y, xaxis=trace76$xaxis, yaxis=trace76$yaxis, hoverinfo=trace76$hoverinfo) p <- add_trace(p, line=trace77$line, mode=trace77$mode, type=trace77$type, x=trace77$x, y=trace77$y, xaxis=trace77$xaxis, yaxis=trace77$yaxis, hoverinfo=trace77$hoverinfo) p <- add_trace(p, line=trace78$line, mode=trace78$mode, type=trace78$type, x=trace78$x, y=trace78$y, xaxis=trace78$xaxis, yaxis=trace78$yaxis, hoverinfo=trace78$hoverinfo) p <- add_trace(p, line=trace79$line, mode=trace79$mode, type=trace79$type, x=trace79$x, y=trace79$y, xaxis=trace79$xaxis, yaxis=trace79$yaxis, hoverinfo=trace79$hoverinfo) p <- add_trace(p, line=trace80$line, mode=trace80$mode, type=trace80$type, x=trace80$x, y=trace80$y, xaxis=trace80$xaxis, yaxis=trace80$yaxis, hoverinfo=trace80$hoverinfo) p <- add_trace(p, line=trace81$line, mode=trace81$mode, type=trace81$type, x=trace81$x, y=trace81$y, xaxis=trace81$xaxis, yaxis=trace81$yaxis, hoverinfo=trace81$hoverinfo) p <- add_trace(p, line=trace82$line, mode=trace82$mode, type=trace82$type, x=trace82$x, y=trace82$y, xaxis=trace82$xaxis, yaxis=trace82$yaxis, hoverinfo=trace82$hoverinfo) p <- add_trace(p, line=trace83$line, mode=trace83$mode, type=trace83$type, x=trace83$x, y=trace83$y, xaxis=trace83$xaxis, yaxis=trace83$yaxis, hoverinfo=trace83$hoverinfo) p <- add_trace(p, line=trace84$line, mode=trace84$mode, type=trace84$type, x=trace84$x, y=trace84$y, xaxis=trace84$xaxis, yaxis=trace84$yaxis, hoverinfo=trace84$hoverinfo) p <- add_trace(p, line=trace85$line, mode=trace85$mode, type=trace85$type, x=trace85$x, y=trace85$y, xaxis=trace85$xaxis, yaxis=trace85$yaxis, hoverinfo=trace85$hoverinfo) p <- add_trace(p, line=trace86$line, mode=trace86$mode, type=trace86$type, x=trace86$x, y=trace86$y, xaxis=trace86$xaxis, yaxis=trace86$yaxis, hoverinfo=trace86$hoverinfo) p <- add_trace(p, line=trace87$line, mode=trace87$mode, type=trace87$type, x=trace87$x, y=trace87$y, xaxis=trace87$xaxis, yaxis=trace87$yaxis, hoverinfo=trace87$hoverinfo) p <- add_trace(p, line=trace88$line, mode=trace88$mode, type=trace88$type, x=trace88$x, y=trace88$y, xaxis=trace88$xaxis, yaxis=trace88$yaxis, hoverinfo=trace88$hoverinfo) p <- add_trace(p, line=trace89$line, mode=trace89$mode, type=trace89$type, x=trace89$x, y=trace89$y, xaxis=trace89$xaxis, yaxis=trace89$yaxis, hoverinfo=trace89$hoverinfo) p <- add_trace(p, line=trace90$line, mode=trace90$mode, type=trace90$type, x=trace90$x, y=trace90$y, xaxis=trace90$xaxis, yaxis=trace90$yaxis, hoverinfo=trace90$hoverinfo) p <- add_trace(p, line=trace91$line, mode=trace91$mode, type=trace91$type, x=trace91$x, y=trace91$y, xaxis=trace91$xaxis, yaxis=trace91$yaxis, hoverinfo=trace91$hoverinfo) p <- add_trace(p, line=trace92$line, mode=trace92$mode, type=trace92$type, x=trace92$x, y=trace92$y, xaxis=trace92$xaxis, yaxis=trace92$yaxis, hoverinfo=trace92$hoverinfo) p <- add_trace(p, line=trace93$line, mode=trace93$mode, type=trace93$type, x=trace93$x, y=trace93$y, xaxis=trace93$xaxis, yaxis=trace93$yaxis, hoverinfo=trace93$hoverinfo) p <- add_trace(p, line=trace94$line, mode=trace94$mode, type=trace94$type, x=trace94$x, y=trace94$y, xaxis=trace94$xaxis, yaxis=trace94$yaxis, hoverinfo=trace94$hoverinfo) p <- add_trace(p, line=trace95$line, mode=trace95$mode, type=trace95$type, x=trace95$x, y=trace95$y, xaxis=trace95$xaxis, yaxis=trace95$yaxis, hoverinfo=trace95$hoverinfo) p <- add_trace(p, line=trace96$line, mode=trace96$mode, type=trace96$type, x=trace96$x, y=trace96$y, xaxis=trace96$xaxis, yaxis=trace96$yaxis, hoverinfo=trace96$hoverinfo) p <- add_trace(p, line=trace97$line, mode=trace97$mode, type=trace97$type, x=trace97$x, y=trace97$y, xaxis=trace97$xaxis, yaxis=trace97$yaxis, hoverinfo=trace97$hoverinfo) p <- add_trace(p, line=trace98$line, mode=trace98$mode, type=trace98$type, x=trace98$x, y=trace98$y, xaxis=trace98$xaxis, yaxis=trace98$yaxis, hoverinfo=trace98$hoverinfo) p <- add_trace(p, line=trace99$line, mode=trace99$mode, type=trace99$type, x=trace99$x, y=trace99$y, xaxis=trace99$xaxis, yaxis=trace99$yaxis, hoverinfo=trace99$hoverinfo) p <- add_trace(p, line=trace100$line, mode=trace100$mode, type=trace100$type, x=trace100$x, y=trace100$y, xaxis=trace100$xaxis, yaxis=trace100$yaxis, hoverinfo=trace100$hoverinfo) p <- add_trace(p, line=trace101$line, mode=trace101$mode, type=trace101$type, x=trace101$x, y=trace101$y, xaxis=trace101$xaxis, yaxis=trace101$yaxis, hoverinfo=trace101$hoverinfo) p <- add_trace(p, line=trace102$line, mode=trace102$mode, type=trace102$type, x=trace102$x, y=trace102$y, xaxis=trace102$xaxis, yaxis=trace102$yaxis, hoverinfo=trace102$hoverinfo) p <- add_trace(p, line=trace103$line, mode=trace103$mode, type=trace103$type, x=trace103$x, y=trace103$y, xaxis=trace103$xaxis, yaxis=trace103$yaxis, hoverinfo=trace103$hoverinfo) p <- add_trace(p, line=trace104$line, mode=trace104$mode, type=trace104$type, x=trace104$x, y=trace104$y, xaxis=trace104$xaxis, yaxis=trace104$yaxis, hoverinfo=trace104$hoverinfo) p <- add_trace(p, line=trace105$line, mode=trace105$mode, type=trace105$type, x=trace105$x, y=trace105$y, xaxis=trace105$xaxis, yaxis=trace105$yaxis, hoverinfo=trace105$hoverinfo) p <- add_trace(p, line=trace106$line, mode=trace106$mode, type=trace106$type, x=trace106$x, y=trace106$y, xaxis=trace106$xaxis, yaxis=trace106$yaxis, hoverinfo=trace106$hoverinfo) p <- add_trace(p, line=trace107$line, mode=trace107$mode, type=trace107$type, x=trace107$x, y=trace107$y, xaxis=trace107$xaxis, yaxis=trace107$yaxis, hoverinfo=trace107$hoverinfo) p <- add_trace(p, line=trace108$line, mode=trace108$mode, type=trace108$type, x=trace108$x, y=trace108$y, xaxis=trace108$xaxis, yaxis=trace108$yaxis, hoverinfo=trace108$hoverinfo) p <- add_trace(p, line=trace109$line, mode=trace109$mode, type=trace109$type, x=trace109$x, y=trace109$y, xaxis=trace109$xaxis, yaxis=trace109$yaxis, hoverinfo=trace109$hoverinfo) p <- add_trace(p, line=trace110$line, mode=trace110$mode, type=trace110$type, x=trace110$x, y=trace110$y, xaxis=trace110$xaxis, yaxis=trace110$yaxis, hoverinfo=trace110$hoverinfo) p <- add_trace(p, line=trace111$line, mode=trace111$mode, type=trace111$type, x=trace111$x, y=trace111$y, xaxis=trace111$xaxis, yaxis=trace111$yaxis, hoverinfo=trace111$hoverinfo) p <- add_trace(p, line=trace112$line, mode=trace112$mode, type=trace112$type, x=trace112$x, y=trace112$y, xaxis=trace112$xaxis, yaxis=trace112$yaxis, hoverinfo=trace112$hoverinfo) p <- add_trace(p, line=trace113$line, mode=trace113$mode, type=trace113$type, x=trace113$x, y=trace113$y, xaxis=trace113$xaxis, yaxis=trace113$yaxis, hoverinfo=trace113$hoverinfo) p <- add_trace(p, line=trace114$line, mode=trace114$mode, type=trace114$type, x=trace114$x, y=trace114$y, xaxis=trace114$xaxis, yaxis=trace114$yaxis, hoverinfo=trace114$hoverinfo) p <- add_trace(p, line=trace115$line, mode=trace115$mode, type=trace115$type, x=trace115$x, y=trace115$y, xaxis=trace115$xaxis, yaxis=trace115$yaxis, hoverinfo=trace115$hoverinfo) p <- add_trace(p, line=trace116$line, mode=trace116$mode, type=trace116$type, x=trace116$x, y=trace116$y, xaxis=trace116$xaxis, yaxis=trace116$yaxis, hoverinfo=trace116$hoverinfo) p <- add_trace(p, line=trace117$line, mode=trace117$mode, type=trace117$type, x=trace117$x, y=trace117$y, xaxis=trace117$xaxis, yaxis=trace117$yaxis, hoverinfo=trace117$hoverinfo) p <- add_trace(p, line=trace118$line, mode=trace118$mode, type=trace118$type, x=trace118$x, y=trace118$y, xaxis=trace118$xaxis, yaxis=trace118$yaxis, hoverinfo=trace118$hoverinfo) p <- add_trace(p, line=trace119$line, mode=trace119$mode, type=trace119$type, x=trace119$x, y=trace119$y, xaxis=trace119$xaxis, yaxis=trace119$yaxis, hoverinfo=trace119$hoverinfo) p <- add_trace(p, line=trace120$line, mode=trace120$mode, type=trace120$type, x=trace120$x, y=trace120$y, xaxis=trace120$xaxis, yaxis=trace120$yaxis, hoverinfo=trace120$hoverinfo) p <- add_trace(p, line=trace121$line, mode=trace121$mode, type=trace121$type, x=trace121$x, y=trace121$y, xaxis=trace121$xaxis, yaxis=trace121$yaxis, hoverinfo=trace121$hoverinfo) p <- add_trace(p, line=trace122$line, mode=trace122$mode, type=trace122$type, x=trace122$x, y=trace122$y, xaxis=trace122$xaxis, yaxis=trace122$yaxis, hoverinfo=trace122$hoverinfo) p <- add_trace(p, line=trace123$line, mode=trace123$mode, type=trace123$type, x=trace123$x, y=trace123$y, xaxis=trace123$xaxis, yaxis=trace123$yaxis, hoverinfo=trace123$hoverinfo) p <- add_trace(p, line=trace124$line, mode=trace124$mode, type=trace124$type, x=trace124$x, y=trace124$y, xaxis=trace124$xaxis, yaxis=trace124$yaxis, hoverinfo=trace124$hoverinfo) p <- add_trace(p, line=trace125$line, mode=trace125$mode, type=trace125$type, x=trace125$x, y=trace125$y, xaxis=trace125$xaxis, yaxis=trace125$yaxis, hoverinfo=trace125$hoverinfo) p <- add_trace(p, line=trace126$line, mode=trace126$mode, type=trace126$type, x=trace126$x, y=trace126$y, xaxis=trace126$xaxis, yaxis=trace126$yaxis, hoverinfo=trace126$hoverinfo) p <- add_trace(p, line=trace127$line, mode=trace127$mode, type=trace127$type, x=trace127$x, y=trace127$y, xaxis=trace127$xaxis, yaxis=trace127$yaxis, hoverinfo=trace127$hoverinfo) p <- add_trace(p, line=trace128$line, mode=trace128$mode, type=trace128$type, x=trace128$x, y=trace128$y, xaxis=trace128$xaxis, yaxis=trace128$yaxis, hoverinfo=trace128$hoverinfo) p <- add_trace(p, line=trace129$line, mode=trace129$mode, type=trace129$type, x=trace129$x, y=trace129$y, xaxis=trace129$xaxis, yaxis=trace129$yaxis, hoverinfo=trace129$hoverinfo) p <- add_trace(p, line=trace130$line, mode=trace130$mode, type=trace130$type, x=trace130$x, y=trace130$y, xaxis=trace130$xaxis, yaxis=trace130$yaxis, hoverinfo=trace130$hoverinfo) p <- add_trace(p, line=trace131$line, mode=trace131$mode, type=trace131$type, x=trace131$x, y=trace131$y, xaxis=trace131$xaxis, yaxis=trace131$yaxis, hoverinfo=trace131$hoverinfo) p <- add_trace(p, line=trace132$line, mode=trace132$mode, type=trace132$type, x=trace132$x, y=trace132$y, xaxis=trace132$xaxis, yaxis=trace132$yaxis, hoverinfo=trace132$hoverinfo) p <- add_trace(p, line=trace133$line, mode=trace133$mode, type=trace133$type, x=trace133$x, y=trace133$y, xaxis=trace133$xaxis, yaxis=trace133$yaxis, hoverinfo=trace133$hoverinfo) p <- add_trace(p, line=trace134$line, mode=trace134$mode, type=trace134$type, x=trace134$x, y=trace134$y, xaxis=trace134$xaxis, yaxis=trace134$yaxis, hoverinfo=trace134$hoverinfo) p <- add_trace(p, line=trace135$line, mode=trace135$mode, type=trace135$type, x=trace135$x, y=trace135$y, xaxis=trace135$xaxis, yaxis=trace135$yaxis, hoverinfo=trace135$hoverinfo) p <- add_trace(p, line=trace136$line, mode=trace136$mode, type=trace136$type, x=trace136$x, y=trace136$y, xaxis=trace136$xaxis, yaxis=trace136$yaxis, hoverinfo=trace136$hoverinfo) p <- add_trace(p, line=trace137$line, mode=trace137$mode, type=trace137$type, x=trace137$x, y=trace137$y, xaxis=trace137$xaxis, yaxis=trace137$yaxis, hoverinfo=trace137$hoverinfo) p <- add_trace(p, line=trace138$line, mode=trace138$mode, type=trace138$type, x=trace138$x, y=trace138$y, xaxis=trace138$xaxis, yaxis=trace138$yaxis, hoverinfo=trace138$hoverinfo) p <- add_trace(p, line=trace139$line, mode=trace139$mode, type=trace139$type, x=trace139$x, y=trace139$y, xaxis=trace139$xaxis, yaxis=trace139$yaxis, hoverinfo=trace139$hoverinfo) p <- add_trace(p, line=trace140$line, mode=trace140$mode, type=trace140$type, x=trace140$x, y=trace140$y, xaxis=trace140$xaxis, yaxis=trace140$yaxis, hoverinfo=trace140$hoverinfo) p <- add_trace(p, line=trace141$line, mode=trace141$mode, type=trace141$type, x=trace141$x, y=trace141$y, xaxis=trace141$xaxis, yaxis=trace141$yaxis, hoverinfo=trace141$hoverinfo) p <- add_trace(p, line=trace142$line, mode=trace142$mode, type=trace142$type, x=trace142$x, y=trace142$y, xaxis=trace142$xaxis, yaxis=trace142$yaxis, hoverinfo=trace142$hoverinfo) p <- add_trace(p, line=trace143$line, mode=trace143$mode, type=trace143$type, x=trace143$x, y=trace143$y, xaxis=trace143$xaxis, yaxis=trace143$yaxis, hoverinfo=trace143$hoverinfo) p <- add_trace(p, line=trace144$line, mode=trace144$mode, type=trace144$type, x=trace144$x, y=trace144$y, xaxis=trace144$xaxis, yaxis=trace144$yaxis, hoverinfo=trace144$hoverinfo) p <- layout(p, title=layout$title, width=layout$width, height=layout$height, xaxis1=layout$xaxis1, yaxis1=layout$yaxis1, yaxis2=layout$yaxis2, yaxis3=layout$yaxis3, yaxis4=layout$yaxis4, yaxis5=layout$yaxis5, yaxis6=layout$yaxis6, yaxis7=layout$yaxis7, yaxis8=layout$yaxis8, yaxis9=layout$yaxis9, yaxis10=layout$yaxis10, yaxis11=layout$yaxis11, yaxis12=layout$yaxis12, showlegend=layout$showlegend)