(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 139781, 2679] NotebookOptionsPosition[ 136723, 2577] NotebookOutlinePosition[ 137131, 2594] CellTagsIndexPosition[ 137088, 2591] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"selfRate", "=", "0.4"}]], "Input", CellChangeTimes->{{3.686545140747049*^9, 3.6865451456055555`*^9}, 3.686546230197972*^9, 3.686546447349868*^9, {3.686566485286355*^9, 3.686566486282544*^9}, 3.6865701606849165`*^9, {3.686570676881159*^9, 3.68657067775084*^9}, {3.686713125702237*^9, 3.68671312644133*^9}, { 3.687015081638856*^9, 3.6870150835141706`*^9}, {3.6870970062363586`*^9, 3.6870970078018427`*^9}, {3.6871101026916513`*^9, 3.687110108550801*^9}, { 3.692163423909277*^9, 3.692163424040617*^9}, {3.692370668240903*^9, 3.6923706693219624`*^9}, {3.6925122572167687`*^9, 3.6925122577040906`*^9}}], Cell[BoxData["0.4`"], "Output", CellChangeTimes->{3.68657998783117*^9, 3.686581811363631*^9, 3.6865836257514925`*^9, 3.6867132724619083`*^9, 3.6867599440854197`*^9, 3.6867706645588903`*^9, 3.686802494441723*^9, 3.686887257739334*^9, 3.687059612031429*^9, 3.68709701769973*^9, 3.687110121057089*^9, 3.6911799806109667`*^9, 3.691207996466576*^9, 3.691236139981529*^9, 3.692108134733034*^9, 3.692163429570996*^9, 3.692370715957018*^9, 3.692512263282945*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"s", "=", "0.1"}], ";", RowBox[{"h", "=", "0.01"}], ";", " ", RowBox[{"d", "=", RowBox[{"s", RowBox[{"(", RowBox[{ RowBox[{"1", "/", "2"}], "-", "h"}], ")"}]}]}]}]}]], "Input", CellChangeTimes->{{3.493708033880066*^9, 3.4937080982769785`*^9}, { 3.4937081462314634`*^9, 3.493708158103084*^9}, {3.4937109702304287`*^9, 3.49371098241405*^9}, {3.4937116010923367`*^9, 3.493711601856738*^9}, { 3.493813899078125*^9, 3.493813901359375*^9}, {3.493814027640625*^9, 3.4938140289375*^9}, {3.493814114890625*^9, 3.493814117875*^9}, { 3.493820187015625*^9, 3.4938201918125*^9}, {3.493924771703125*^9, 3.49392479621875*^9}, {3.4939712811868443`*^9, 3.493971282949648*^9}, { 3.4939752094826508`*^9, 3.4939752103562517`*^9}, {3.4940489690828266`*^9, 3.494048969628827*^9}, {3.494049055584978*^9, 3.494049065163395*^9}, { 3.494049161384364*^9, 3.494049177561592*^9}, {3.494051493381633*^9, 3.4940514940056343`*^9}, {3.494051785382946*^9, 3.4940517928241587`*^9}, { 3.4940521370075636`*^9, 3.4940521376159644`*^9}, 3.494054428004587*^9, 3.494054479593878*^9, {3.494056041177021*^9, 3.4940560417698216`*^9}, { 3.494057123362522*^9, 3.494057123908523*^9}, {3.4940644453125*^9, 3.4940644458125*^9}, {3.494074527390625*^9, 3.4940745280625*^9}, { 3.49409242953125*^9, 3.49409243015625*^9}, {3.49416719578125*^9, 3.49416719634375*^9}, {3.494221085630581*^9, 3.4942210860049815`*^9}, { 3.4945029876875*^9, 3.494502989140625*^9}, {3.4951064783125*^9, 3.495106479890625*^9}, {3.49528975540625*^9, 3.495289756859375*^9}, { 3.4952968325625*^9, 3.495296833140625*^9}, {3.495301111921875*^9, 3.495301113609375*^9}, {3.49530145434375*^9, 3.495301454953125*^9}, { 3.495793979328125*^9, 3.495793981375*^9}, {3.4957965481875*^9, 3.495796551265625*^9}, {3.49579677909375*^9, 3.495796780546875*^9}, { 3.4960612869552517`*^9, 3.496061289544856*^9}, {3.496061888944709*^9, 3.49606188991191*^9}, {3.4961650910625*^9, 3.496165099515625*^9}, { 3.49616641496875*^9, 3.496166415734375*^9}, {3.496166486796875*^9, 3.496166489484375*^9}, {3.496167633625*^9, 3.496167635375*^9}, { 3.49620295665625*^9, 3.496202961484375*^9}, 3.497470271609375*^9, { 3.497471483953125*^9, 3.497471488359375*^9}, {3.497472020296875*^9, 3.497472021578125*^9}, {3.497506663703125*^9, 3.49750666440625*^9}, { 3.5002888469589467`*^9, 3.5002888487217493`*^9}, {3.500301192367282*^9, 3.5003011938648844`*^9}, {3.5003649362358828`*^9, 3.500364937343485*^9}, { 3.500365946904458*^9, 3.500365951210066*^9}, {3.5003673374697757`*^9, 3.5003673403401804`*^9}, {3.50082939890625*^9, 3.500829407296875*^9}, { 3.50082960265625*^9, 3.500829603171875*^9}, {3.500829741828125*^9, 3.500829742359375*^9}, {3.501141011234375*^9, 3.501141033234375*^9}, { 3.501141239140625*^9, 3.50114124090625*^9}, {3.50566384175*^9, 3.50566384915625*^9}, {3.50588413378125*^9, 3.505884134703125*^9}, { 3.505889902078125*^9, 3.505889902828125*^9}, {3.50599429434375*^9, 3.505994302125*^9}, {3.509101719302164*^9, 3.5091017648074436`*^9}, { 3.5091018801268463`*^9, 3.5091019022788854`*^9}, {3.6865474077198687`*^9, 3.686547413173995*^9}, 3.6867130926689177`*^9, 3.686759781200903*^9, { 3.6868024857212787`*^9, 3.6868024881747*^9}, {3.6868867172021103`*^9, 3.686886730332528*^9}, {3.687015086811652*^9, 3.6870150884838533`*^9}}], Cell[BoxData["0.049`"], "Output", CellChangeTimes->{ 3.4939752148958597`*^9, 3.493975399646984*^9, 3.494006061984375*^9, 3.494006148890625*^9, 3.494006197296875*^9, 3.49400693596875*^9, 3.494007403875*^9, 3.49400745996875*^9, {3.494007509296875*^9, 3.49400753278125*^9}, {3.4940076668125*^9, 3.494007685078125*^9}, 3.4940080065*^9, 3.494008056609375*^9, {3.494008478375*^9, 3.49400850190625*^9}, 3.4940086711875*^9, 3.494009142640625*^9, 3.4940483922234135`*^9, 3.494048437135892*^9, 3.494048555962901*^9, { 3.494048620609414*^9, 3.4940486470826607`*^9}, 3.494048975120037*^9, { 3.494049079843021*^9, 3.49404910801667*^9}, 3.494049183708003*^9, 3.4940492374656973`*^9, 3.4940492779165688`*^9, 3.494049697319706*^9, 3.494049778736249*^9, 3.494049852914379*^9, 3.494049953004155*^9, 3.494051077297702*^9, 3.494051176794677*^9, 3.494051246792*^9, 3.4940513219685316`*^9, 3.4940513821378374`*^9, 3.4940514232283096`*^9, 3.494051797597767*^9, 3.494052315768277*^9, 3.4940526369572415`*^9, 3.4940536054619427`*^9, 3.4940541953769784`*^9, 3.4940547038130713`*^9, { 3.4940553492070055`*^9, 3.494055375305851*^9}, 3.494055418580327*^9, 3.494055787770176*^9, 3.4940559354868355`*^9, 3.4940560530798416`*^9, 3.494056168344845*^9, 3.4940562937378654`*^9, 3.494056360412382*^9, 3.494056646126484*^9, 3.494056883480901*^9, 3.494057129446533*^9, 3.4940576106449785`*^9, 3.4940582900729713`*^9, 3.494058354142284*^9, 3.4940584807209063`*^9, 3.4940644709375*^9, 3.494064671796875*^9, 3.49407454678125*^9, 3.494092298765625*^9, 3.49409243721875*^9, 3.4941359879757996`*^9, {3.4941365069803114`*^9, 3.4941365332819576`*^9}, { 3.494136645305754*^9, 3.494136662403384*^9}, 3.494155897015625*^9, 3.49415635640625*^9, 3.494156467265625*^9, 3.494156942296875*^9, 3.49415706253125*^9, 3.494157128375*^9, 3.494157265015625*^9, 3.49415748496875*^9, 3.494157620640625*^9, 3.494157845734375*^9, 3.4941583386875*^9, 3.49415844953125*^9, 3.494158547734375*^9, 3.494158609765625*^9, 3.494158668234375*^9, 3.494158741515625*^9, 3.494159215796875*^9, 3.494162709703125*^9, 3.494165013515625*^9, 3.494165294125*^9, 3.4941673070625*^9, 3.4942211260658517`*^9, 3.4942249880300074`*^9, 3.4942263528400183`*^9, 3.494226862295313*^9, 3.4942279948101025`*^9, 3.4942282939874277`*^9, {3.4942284345280743`*^9, 3.4942284644957275`*^9}, 3.494228695516533*^9, 3.4942291706621675`*^9, 3.49422921201784*^9, 3.494229544423224*^9, 3.494229826112919*^9, 3.494230013703248*^9, 3.4942300700349474`*^9, 3.494230124761846*^9, 3.4942313873104715`*^9, 3.494482391046875*^9, 3.494482475171875*^9, 3.494482559265625*^9, 3.494482627203125*^9, 3.494502335140625*^9, 3.49450245934375*^9, 3.494502768875*^9, 3.494503007078125*^9, 3.49450317778125*^9, 3.4945049686875*^9, 3.494656206649413*^9, 3.4947443118126216`*^9, 3.4947455344959693`*^9, 3.4947455908744683`*^9, 3.494746784479365*^9, 3.4947468415910654`*^9, 3.4947479297865763`*^9, 3.495093484390625*^9, 3.49510524865625*^9, 3.495105334015625*^9, 3.495105746734375*^9, 3.49510580959375*^9, 3.4951060225625*^9, 3.49510612103125*^9, 3.495106327953125*^9, 3.495106508078125*^9, 3.495106664734375*^9, 3.495106770984375*^9, 3.49510702621875*^9, 3.495107161234375*^9, 3.49510742409375*^9, 3.49520231646875*^9, 3.4952666234291954`*^9, 3.495288682859375*^9, 3.4952888571875*^9, 3.49528970175*^9, {3.49528974003125*^9, 3.495289761046875*^9}, 3.49529006615625*^9, 3.4952903861875*^9, 3.495291144125*^9, 3.49529129959375*^9, 3.49529684115625*^9, 3.495297008703125*^9, 3.495297305859375*^9, 3.495297727015625*^9, 3.49529843321875*^9, 3.495300780484375*^9, 3.495300862265625*^9, 3.49530112684375*^9, 3.49530124925*^9, 3.495301342265625*^9, 3.49530145946875*^9, 3.495301666609375*^9, 3.495301798453125*^9, 3.49530195459375*^9, 3.495344456546875*^9, 3.49534451078125*^9, 3.4953457108125*^9, 3.4953458943125*^9, 3.49534663028125*^9, 3.495347204796875*^9, 3.49534781146875*^9, 3.49534786834375*^9, 3.49534792465625*^9, 3.49534815975*^9, 3.495438552712846*^9, 3.4957928671875*^9, 3.495793068484375*^9, 3.495793257453125*^9, 3.4957939926875*^9, 3.495795747*^9, 3.495796356015625*^9, 3.49579661209375*^9, 3.495796790359375*^9, 3.4960613455021544`*^9, 3.4960614384315176`*^9, 3.4960618381042194`*^9, 3.4960618956059203`*^9, 3.496061981281271*^9, 3.496062132570337*^9, 3.4960633037811937`*^9, 3.4960636630966253`*^9, 3.4960639813727913`*^9, 3.4961645590625*^9, 3.496165108546875*^9, 3.496166052921875*^9, 3.496166123375*^9, 3.496166170015625*^9, 3.49616642009375*^9, 3.496166494203125*^9, 3.4961667763125*^9, 3.49616687971875*^9, 3.496166924453125*^9, 3.49616711021875*^9, 3.49616716903125*^9, 3.496167641015625*^9, 3.496167774*^9, 3.496168798796875*^9, 3.496169035546875*^9, 3.49616915075*^9, 3.4962026335625*^9, 3.49620290353125*^9, 3.496202966125*^9, 3.4962031105*^9, 3.497006285762313*^9, 3.4970065990888634`*^9, 3.497449683109375*^9, 3.497449831953125*^9, {3.497449888984375*^9, 3.49744992771875*^9}, 3.49744999796875*^9, 3.497450106515625*^9, 3.497450234515625*^9, 3.49745076790625*^9, 3.497450801046875*^9, 3.49745092953125*^9, 3.497450986140625*^9, 3.497451073921875*^9, 3.497451122171875*^9, 3.497451157984375*^9, 3.497451210625*^9, 3.49745129575*^9, 3.497451974671875*^9, 3.4974521380625*^9, 3.497452560609375*^9, 3.49745264734375*^9, 3.497452778859375*^9, 3.497466988796875*^9, 3.497467355375*^9, 3.497467556953125*^9, 3.49746787065625*^9, 3.497468215734375*^9, 3.4974685586875*^9, 3.4974687635625*^9, 3.49746918228125*^9, 3.49746945153125*^9, 3.4974695309375*^9, {3.497469606671875*^9, 3.497469633875*^9}, 3.497470075234375*^9, 3.497470138203125*^9, 3.497470275859375*^9, 3.497470409390625*^9, 3.497470506765625*^9, 3.49747085934375*^9, 3.497471038640625*^9, 3.497471314625*^9, 3.497471509625*^9, 3.4974720319375*^9, 3.49750471803125*^9, 3.497505027203125*^9, 3.49750538215625*^9, 3.497505687046875*^9, 3.497506493734375*^9, 3.497506673375*^9, 3.49750681434375*^9, 3.497506982265625*^9, 3.497510882390625*^9, 3.49751111903125*^9, 3.497511780296875*^9, 3.49751205296875*^9, 3.497512289875*^9, 3.49751238971875*^9, 3.497512743796875*^9, 3.5002900613118796`*^9, 3.500290281537466*^9, 3.50029053996432*^9, 3.50029847524811*^9, 3.5003001705966873`*^9, 3.5003008274982414`*^9, 3.500301199699295*^9, 3.5003578822534757`*^9, 3.5003584962081537`*^9, 3.5003609157568035`*^9, 3.5003649436302958`*^9, 3.5003654814932404`*^9, 3.5003659620832844`*^9, 3.5003673494973965`*^9, 3.500371354615646*^9, 3.500829053375*^9, 3.500829413171875*^9, 3.500829608484375*^9, 3.500829747515625*^9, 3.501136235375*^9, 3.50113634590625*^9, 3.501136716515625*^9, 3.5011382774375*^9, 3.501138530375*^9, 3.50113930890625*^9, {3.50113961903125*^9, 3.50113963196875*^9}, 3.501139731796875*^9, 3.501139808046875*^9, 3.501140480734375*^9, 3.50114055684375*^9, 3.50114072678125*^9, 3.501140888015625*^9, 3.50114106184375*^9, 3.501141361671875*^9, 3.5056596961875*^9, 3.50565998040625*^9, 3.50566034475*^9, 3.505660442328125*^9, 3.5056605175*^9, 3.505660734546875*^9, 3.50566144371875*^9, 3.50566388846875*^9, 3.5057210755034475`*^9, 3.505732072640625*^9, 3.505732530484375*^9, 3.5057368459375*^9, 3.505737285796875*^9, 3.505737604609375*^9, 3.505744064109375*^9, 3.5057452399375*^9, 3.505747910453125*^9, 3.505748092765625*^9, 3.505748280203125*^9, 3.505749597890625*^9, 3.50575639171875*^9, 3.505756564296875*^9, 3.505760861890625*^9, 3.505761352015625*^9, 3.505761756796875*^9, 3.505761832375*^9, 3.505836181484375*^9, 3.50583712609375*^9, 3.505837943359375*^9, 3.505883768640625*^9, 3.505884179890625*^9, 3.505884885015625*^9, 3.50588945715625*^9, 3.505889934015625*^9, 3.505913131046875*^9, 3.505913167484375*^9, 3.5059132308125*^9, 3.50591339421875*^9, 3.5059135194375*^9, { 3.50591439465625*^9, 3.5059144173125*^9}, 3.505914566859375*^9, 3.505914611421875*^9, 3.505915635328125*^9, 3.505916134859375*^9, 3.50591643553125*^9, 3.50591727925*^9, 3.505917702359375*^9, 3.50591997809375*^9, 3.505995667140625*^9, 3.505995893734375*^9, 3.5059959915*^9, 3.505996326984375*^9, 3.506000830921875*^9, 3.50601071753125*^9, 3.506162019734366*^9, 3.506165033643881*^9, 3.506229010173005*^9, 3.506232629425762*^9, 3.506232703678293*^9, 3.5072714905534887`*^9, 3.508242786484375*^9, 3.508417988296875*^9, { 3.508418834453125*^9, 3.50841886415625*^9}, 3.50841939784375*^9, 3.5084209933125*^9, 3.508424536171875*^9, 3.508424647859375*^9, 3.508425087015625*^9, {3.509101725089774*^9, 3.509101773325059*^9}, 3.5091018213419433`*^9, {3.509101888613261*^9, 3.509101908222496*^9}, 3.5091021805677743`*^9, 3.509102239660678*^9, 3.509104484236821*^9, 3.509114149296875*^9, 3.509123701890625*^9, 3.509125199265625*^9, 3.509131880828125*^9, 3.5091644256875*^9, 3.50916467446875*^9, 3.509166606765625*^9, 3.5092038908125*^9, 3.5093457143714595`*^9, 3.686545054394244*^9, 3.686545101236862*^9, 3.6865451603269653`*^9, { 3.686545579853647*^9, 3.6865455996628094`*^9}, 3.686545839659589*^9, 3.6865459388405204`*^9, 3.686546241393826*^9, 3.6865464530763454`*^9, 3.6865474467280917`*^9, 3.686554602051655*^9, 3.686554958932057*^9, 3.686567217538393*^9, 3.6865799878472223`*^9, 3.6865818113784323`*^9, 3.686583625768525*^9, 3.6867132724619083`*^9, 3.6867599441010056`*^9, 3.686770664580917*^9, 3.686802494472973*^9, 3.6868872577549596`*^9, 3.6870596120470533`*^9, 3.6870970177154098`*^9, 3.6871101210727167`*^9, 3.6911799806266065`*^9, 3.6912079964887357`*^9, 3.6912361399971266`*^9, 3.692108134733034*^9, 3.69216342958669*^9, 3.692370715972727*^9, 3.6925122632984924`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mu", "=", ".0001"}]], "Input", CellChangeTimes->{{3.50599430528125*^9, 3.505994325640625*^9}, { 3.505994380796875*^9, 3.50599446646875*^9}, {3.6867598041954994`*^9, 3.6867598101077995`*^9}, 3.686770214873234*^9}], Cell[BoxData["0.0001`"], "Output", CellChangeTimes->{3.686759944138282*^9, 3.6867706646381063`*^9, 3.6868024945042257`*^9, 3.686887257801839*^9, 3.687059612093931*^9, 3.687097017752659*^9, 3.6871101211100187`*^9, 3.6911799806638966`*^9, 3.691207996519987*^9, 3.6912361400344296`*^9, 3.6921081347799153`*^9, 3.692163429617943*^9, 3.6923707160038958`*^9, 3.692512263333246*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"q0", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"h", "*", "s", "*", RowBox[{"(", RowBox[{"1", "+", "mu"}], ")"}]}], ")"}]}], "+", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"h", "*", "s", RowBox[{"(", RowBox[{"1", "+", "mu"}], ")"}]}], ")"}], "^", "2"}], "+", RowBox[{"4", "*", "s", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "h"}]}], ")"}], "*", "mu"}]}], ")"}], "^", ".5"}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", "*", "s", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "h"}]}], ")"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.50916544953125*^9, 3.509165480359375*^9}}], Cell[BoxData["0.0272462386042621`"], "Output", CellChangeTimes->{ 3.509164425828125*^9, 3.50916467453125*^9, {3.5091655090625*^9, 3.509165528234375*^9}, 3.50916645821875*^9, 3.5091666068125*^9, 3.509203890875*^9, 3.5093457144182596`*^9, 3.686545054452301*^9, 3.6865451013080263`*^9, 3.686545160359988*^9, {3.6865455799034157`*^9, 3.6865455997128334`*^9}, 3.686545839708148*^9, 3.6865459388935575`*^9, 3.686546241443362*^9, 3.686546453126534*^9, 3.6865474467761316`*^9, 3.6865546020900517`*^9, 3.686554958973091*^9, 3.6865672175935454`*^9, 3.68657998791605*^9, 3.686581811431881*^9, 3.6865836258306866`*^9, 3.6867132725248785`*^9, 3.6867599441542125`*^9, 3.6867706646591682`*^9, 3.6868024945354757`*^9, 3.686887257817465*^9, 3.687059612109557*^9, 3.6870970177685857`*^9, 3.6871101211259727`*^9, 3.6911799806795564`*^9, 3.691207996535619*^9, 3.691236140050061*^9, 3.692108134786462*^9, 3.692163429649238*^9, 3.692370716025159*^9, 3.6925122633492947`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dm", "=", "0"}]], "Input", CellChangeTimes->{{3.508242067921875*^9, 3.5082420943125*^9}, 3.50842094271875*^9, {3.509379395703125*^9, 3.509379397703125*^9}, { 3.509392097046875*^9, 3.509392098125*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.508242786515625*^9, 3.508417988328125*^9, {3.508418834484375*^9, 3.5084188641875*^9}, 3.508419397875*^9, 3.508420993359375*^9, 3.50842453621875*^9, 3.508424647890625*^9, 3.508425087046875*^9, 3.5091018213887434`*^9, {3.5091018886756616`*^9, 3.509101908284896*^9}, 3.5091021806145744`*^9, 3.509102239723078*^9, 3.5091044842836213`*^9, 3.509114149359375*^9, 3.509123701953125*^9, 3.509125199328125*^9, 3.5091318809375*^9, 3.509164446828125*^9, 3.5091645105*^9, 3.509164674546875*^9, 3.509166606828125*^9, 3.509203890890625*^9, 3.50934571443386*^9, 3.686545054469538*^9, 3.6865451013240376`*^9, 3.6865451603709974`*^9, {3.686545579919439*^9, 3.6865455997288575`*^9}, 3.686545839724236*^9, 3.68654593890956*^9, 3.686546241458441*^9, 3.6865464531435347`*^9, 3.6865474467906556`*^9, 3.6865546021020603`*^9, 3.686554958985098*^9, 3.6865672176085835`*^9, 3.686579987935031*^9, 3.6865818114458876`*^9, 3.686583625848812*^9, 3.686713272540497*^9, 3.6867599441698427`*^9, 3.6867706646822195`*^9, 3.6868024945511036`*^9, 3.6868872578330917`*^9, 3.687059612125182*^9, 3.6870970177842436`*^9, 3.687110121141598*^9, 3.691179980695153*^9, 3.691207996551241*^9, 3.691236140065776*^9, 3.692108134802093*^9, 3.692163429667878*^9, 3.6923707160409145`*^9, 3.6925122633633633`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"n", "=", "1000"}], ";", RowBox[{"repeticiones", "=", "40"}], ";", RowBox[{"generaciones", "=", "2000"}], ";"}]], "Input", CellChangeTimes->{ 3.508242655546875*^9, 3.5084179655*^9, {3.508419351578125*^9, 3.508419361546875*^9}, {3.508420952640625*^9, 3.508420975046875*^9}, 3.508424527546875*^9, {3.508425045890625*^9, 3.508425054328125*^9}, { 3.509101787240283*^9, 3.509101812949128*^9}, {3.509101938595749*^9, 3.509101941466154*^9}, 3.5091021767301674`*^9, {3.50910222938026*^9, 3.5091022321414647`*^9}, 3.5091044789016123`*^9, {3.50911414396875*^9, 3.5091141440625*^9}, {3.509123686375*^9, 3.50912369365625*^9}, 3.50912519459375*^9, {3.509131842921875*^9, 3.509131863296875*^9}, { 3.50916466746875*^9, 3.50916466928125*^9}, {3.509166554390625*^9, 3.50916655528125*^9}, {3.509166592359375*^9, 3.5091665985*^9}, 3.50920388521875*^9, {3.5093456902694173`*^9, 3.50934569749223*^9}, { 3.509379039546875*^9, 3.509379044609375*^9}, {3.509392091140625*^9, 3.509392091140625*^9}, {3.686545088871516*^9, 3.6865450958934383`*^9}, { 3.6865458863107033`*^9, 3.6865459227428393`*^9}, {3.6865474246461*^9, 3.6865474375820365`*^9}, {3.686554596879146*^9, 3.6865545971786118`*^9}, { 3.68655480233573*^9, 3.686554805205469*^9}, {3.686566494074456*^9, 3.686566494797679*^9}, {3.68658341605954*^9, 3.6865834310166764`*^9}, 3.6865834940363965`*^9, {3.686713153490135*^9, 3.6867131540758705`*^9}, { 3.686759842586215*^9, 3.686759859279579*^9}, {3.6867598893500624`*^9, 3.6867598997741013`*^9}, 3.686770229845792*^9, {3.6911799485898533`*^9, 3.69117997064844*^9}, {3.6912079792534313`*^9, 3.69120798717251*^9}, { 3.691236131965316*^9, 3.6912361334175477`*^9}, {3.692107933153249*^9, 3.692107943294263*^9}, 3.6923706910167904`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"delta", "=", RowBox[{"2", "d", "*", "q0", RowBox[{"(", RowBox[{"1", "-", "q0"}], ")"}]}]}]], "Input"], Cell[BoxData["0.0025973803464458085`"], "Output", CellChangeTimes->{ 3.495300780515625*^9, 3.495300862296875*^9, 3.495301126859375*^9, 3.495301249265625*^9, 3.49530134228125*^9, 3.4953014595*^9, 3.495301666625*^9, 3.495301798484375*^9, 3.495301954609375*^9, 3.4953444565625*^9, 3.495344510796875*^9, 3.495345710828125*^9, 3.495345894328125*^9, 3.495346630296875*^9, 3.495347204828125*^9, 3.4953478115*^9, 3.495347868359375*^9, 3.4953479246875*^9, 3.49534815978125*^9, 3.495438552728446*^9, 3.49579286725*^9, 3.49579306853125*^9, 3.4957932575*^9, 3.49579399271875*^9, 3.495795747046875*^9, 3.4957963560625*^9, 3.495796612140625*^9, 3.49579679040625*^9, 3.4960613455333543`*^9, 3.4960614384627175`*^9, 3.4960618381510196`*^9, 3.49606189562152*^9, 3.4960619813124714`*^9, 3.4960621326015368`*^9, 3.496063303796794*^9, 3.4960636631278253`*^9, 3.496063981419592*^9, 3.49616455909375*^9, 3.496165108578125*^9, 3.496166052953125*^9, 3.49616612340625*^9, 3.4961661700625*^9, 3.496166420125*^9, 3.496166494234375*^9, 3.49616677634375*^9, 3.49616687975*^9, 3.496166924484375*^9, 3.49616711025*^9, 3.4961671690625*^9, 3.496167641046875*^9, 3.49616777403125*^9, 3.496168798828125*^9, 3.496169035578125*^9, 3.49616915078125*^9, 3.496202633609375*^9, 3.496202903578125*^9, 3.496202966171875*^9, 3.496203110546875*^9, 3.497006285777913*^9, 3.4970065991200633`*^9, 3.49744968315625*^9, 3.497449832*^9, {3.49744988903125*^9, 3.497449927765625*^9}, 3.497449998015625*^9, 3.4974501065625*^9, 3.4974502345625*^9, 3.497450767953125*^9, 3.49745080109375*^9, 3.497450929578125*^9, 3.4974509861875*^9, 3.49745107396875*^9, 3.497451122203125*^9, 3.49745115803125*^9, 3.497451210671875*^9, 3.49745129578125*^9, 3.49745197471875*^9, 3.497452138109375*^9, 3.49745256065625*^9, 3.497452647390625*^9, 3.49745277890625*^9, 3.49746698884375*^9, 3.497467355421875*^9, 3.497467557*^9, 3.4974678706875*^9, 3.49746821578125*^9, 3.49746855871875*^9, 3.497468763609375*^9, 3.4974691823125*^9, 3.4974694515625*^9, 3.49746953096875*^9, {3.497469606703125*^9, 3.497469633921875*^9}, 3.49747007528125*^9, 3.49747013825*^9, 3.49747027590625*^9, 3.4974704094375*^9, 3.4974705068125*^9, 3.497470859375*^9, 3.497471038671875*^9, 3.49747131465625*^9, 3.49747150965625*^9, 3.497472031984375*^9, 3.497504718078125*^9, 3.49750502725*^9, 3.497505382203125*^9, 3.49750568709375*^9, 3.497506493765625*^9, 3.497506673421875*^9, 3.497506814390625*^9, 3.4975069823125*^9, 3.4975108824375*^9, 3.4975111190625*^9, 3.49751178034375*^9, 3.497512053015625*^9, 3.497512289921875*^9, 3.497512389765625*^9, 3.49751274384375*^9, 3.5002900613430796`*^9, 3.5002902815686665`*^9, 3.5002905399955206`*^9, 3.5002984752793093`*^9, 3.5003001706278877`*^9, 3.500300827529441*^9, 3.5003011997304945`*^9, 3.5003578822846756`*^9, 3.500358496239354*^9, 3.500360915788004*^9, 3.5003649436614957`*^9, 3.5003654815400405`*^9, 3.500365962130085*^9, 3.500367349528597*^9, 3.500371354662446*^9, 3.500829053421875*^9, 3.50082941321875*^9, 3.50082960853125*^9, 3.5008297475625*^9, 3.501136235421875*^9, 3.501136345953125*^9, 3.501136716578125*^9, 3.501138277484375*^9, 3.501138530421875*^9, 3.501139308953125*^9, {3.501139619078125*^9, 3.501139632015625*^9}, 3.50113973184375*^9, 3.501139808109375*^9, 3.501140480796875*^9, 3.50114055690625*^9, 3.50114072684375*^9, 3.5011408880625*^9, 3.50114106190625*^9, 3.501141361734375*^9, 3.505659696234375*^9, 3.505659980453125*^9, 3.5056603448125*^9, 3.505660442375*^9, 3.505660517546875*^9, 3.505660734609375*^9, 3.505661443796875*^9, 3.50566388853125*^9, 3.505721075534648*^9, 3.5057320726875*^9, 3.505732530546875*^9, 3.505736845984375*^9, 3.50573728584375*^9, 3.50573760465625*^9, 3.50574406415625*^9, 3.505745239984375*^9, 3.5057479105*^9, 3.5057480928125*^9, 3.50574828025*^9, 3.5057495979375*^9, 3.505756391765625*^9, 3.50575656434375*^9, 3.5057608619375*^9, 3.505761352046875*^9, 3.50576175684375*^9, 3.505761832421875*^9, 3.50583618153125*^9, 3.505837126140625*^9, 3.505837943390625*^9, 3.5058837686875*^9, 3.505884179953125*^9, 3.5058848850625*^9, 3.505889457203125*^9, 3.5058899340625*^9, 3.50591313109375*^9, 3.50591316753125*^9, 3.505913230859375*^9, 3.505913394265625*^9, 3.50591351946875*^9, { 3.505914394703125*^9, 3.505914417359375*^9}, 3.50591456690625*^9, 3.505914611453125*^9, 3.505915635375*^9, 3.50591613490625*^9, 3.505916435578125*^9, 3.50591727928125*^9, 3.50591770240625*^9, 3.505919978125*^9, 3.50599566721875*^9, 3.505995893796875*^9, 3.5059959915625*^9, 3.5059963270625*^9, 3.506000830984375*^9, 3.506010717578125*^9, 3.506162019781166*^9, 3.5061650337062817`*^9, 3.506229010235406*^9, 3.5062326294881625`*^9, 3.5062327037406936`*^9, 3.5072714906158886`*^9, 3.508242786546875*^9, 3.508417988359375*^9, { 3.508418834515625*^9, 3.508418864234375*^9}, 3.50841939790625*^9, 3.508420993375*^9, 3.508424536234375*^9, 3.508424647921875*^9, 3.508425087078125*^9, 3.509101821404343*^9, {3.5091018887068615`*^9, 3.5091019083160963`*^9}, 3.5091021806457744`*^9, 3.509102239738678*^9, 3.5091044843148212`*^9, 3.509114149375*^9, 3.509123701984375*^9, 3.509125199359375*^9, 3.509131881*^9, 3.50916444690625*^9, 3.509164510578125*^9, 3.5091646745625*^9, 3.509166606859375*^9, 3.50920389090625*^9, 3.50934571444946*^9, 3.686545054490388*^9, 3.686545101354044*^9, 3.686545160386012*^9, {3.686545579940468*^9, 3.686545599749852*^9}, 3.6865458397452393`*^9, 3.6865459389345927`*^9, 3.686546241477439*^9, 3.68654645316356*^9, 3.68654744681218*^9, 3.686554602121072*^9, 3.686554959004628*^9, 3.686567217632651*^9, 3.6865799879645967`*^9, 3.686581811468978*^9, 3.6865836258778048`*^9, 3.6867132725626583`*^9, 3.6867599441854663`*^9, 3.686770664729348*^9, 3.6868024945823545`*^9, 3.6868872578643413`*^9, 3.687059612156436*^9, 3.687097017815467*^9, 3.6871101211728835`*^9, 3.69117998072641*^9, 3.691207996589049*^9, 3.6912361400813103`*^9, 3.6921081348177147`*^9, 3.6921634296870174`*^9, 3.6923707160565376`*^9, 3.692512263385398*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"kkk", "=", RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"4", "*", "n", "*", "h", "*", "s"}], "+", RowBox[{ RowBox[{"(", RowBox[{"2", "Pi", "*", "n", "*", "s"}], ")"}], "^", ".5"}], "+", "2"}], ")"}]}]}]], "Input", CellChangeTimes->{{3.50614593165248*^9, 3.5061459331968822`*^9}, { 3.506145981478967*^9, 3.5061460516010904`*^9}}], Cell[BoxData["0.032189238994767666`"], "Output", CellChangeTimes->{ 3.506162019812366*^9, 3.5061648933528347`*^9, 3.506165033862282*^9, 3.5062290114522076`*^9, 3.5062326295973625`*^9, 3.5062327038342934`*^9, 3.507271492035491*^9, 3.50824278665625*^9, 3.508417989359375*^9, { 3.50841883459375*^9, 3.508418864296875*^9}, 3.50841939796875*^9, 3.50842099346875*^9, 3.5084245363125*^9, 3.508424648*^9, 3.50842508715625*^9, 3.509101821419943*^9, {3.5091018887224617`*^9, 3.509101908331696*^9}, 3.509102180661374*^9, 3.509102239754278*^9, 3.5091044843304214`*^9, 3.50911414940625*^9, 3.509123702*^9, 3.509125199375*^9, 3.509131881015625*^9, 3.5091644469375*^9, 3.509164510609375*^9, 3.50916467459375*^9, 3.509166606875*^9, 3.5092038909375*^9, 3.50934571446506*^9, 3.6865450545043845`*^9, 3.68654510137361*^9, 3.6865451603970146`*^9, {3.6865455799700212`*^9, 3.686545599768867*^9}, 3.6865458397602515`*^9, 3.6865459389491224`*^9, 3.6865462414894476`*^9, 3.6865464531775703`*^9, 3.686547446826195*^9, 3.6865546021340804`*^9, 3.6865549590161333`*^9, 3.686567217648691*^9, 3.6865799879821453`*^9, 3.686581811484992*^9, 3.686583625895852*^9, 3.686713272578314*^9, 3.6867599442011023`*^9, 3.6867706647514377`*^9, 3.6868024945979786`*^9, 3.6868872578955946`*^9, 3.6870596121720605`*^9, 3.6870970178310943`*^9, 3.687110121188508*^9, 3.691179980744038*^9, 3.691207996604679*^9, 3.6912361400969377`*^9, 3.692108134833376*^9, 3.6921634297026463`*^9, 3.6923707160721807`*^9, 3.692512263401967*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"newEqDelta", "=", RowBox[{"mu", "*", "s", "*", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "h"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"2", "n"}], ")"}]}], "+", RowBox[{"h", "*", "s"}], " ", "+", " ", RowBox[{"kkk", "*", "s", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "h"}]}], ")"}]}]}], ")"}]}]}]}]], "Input", CellChangeTimes->{{3.5061459198744593`*^9, 3.506145926473271*^9}, { 3.5061460846107483`*^9, 3.506146093143964*^9}, {3.506146177134511*^9, 3.506146245462631*^9}}], Cell[BoxData["0.0021054687649537814`"], "Output", CellChangeTimes->{ 3.5061620198279657`*^9, 3.506164893399635*^9, 3.5061650338778815`*^9, 3.506229011467808*^9, 3.506232629628563*^9, 3.5062327038498936`*^9, 3.507271492051091*^9, 3.508242786671875*^9, 3.508417989375*^9, { 3.508418834609375*^9, 3.5084188643125*^9}, 3.508419397984375*^9, 3.5084209935*^9, 3.50842453634375*^9, 3.508424648015625*^9, 3.508425087171875*^9, 3.509101821435543*^9, {3.509101888738062*^9, 3.5091019083472958`*^9}, 3.5091021806769743`*^9, 3.5091022397698784`*^9, 3.5091044843460217`*^9, 3.509114149421875*^9, 3.509123702015625*^9, 3.50912519940625*^9, 3.509131881046875*^9, 3.50916444696875*^9, 3.509164510625*^9, 3.509164674609375*^9, 3.509166606890625*^9, 3.509203890953125*^9, 3.50934571448066*^9, 3.6865450545183992`*^9, 3.6865451013905964`*^9, 3.686545160407524*^9, {3.686545579985018*^9, 3.6865455997948837`*^9}, 3.6865458397742825`*^9, 3.6865459389681463`*^9, 3.6865462415034633`*^9, 3.6865464531915936`*^9, 3.6865474468402057`*^9, 3.68655460214709*^9, 3.6865549590271397`*^9, 3.686567217664734*^9, 3.6865799880012255`*^9, 3.6865818115000334`*^9, 3.686583625914427*^9, 3.686713272593916*^9, 3.6867599442167163`*^9, 3.686770664774499*^9, 3.6868024946136045`*^9, 3.68688725791122*^9, 3.6870596121876855`*^9, 3.687097017852755*^9, 3.687110121210154*^9, 3.6911799807485485`*^9, 3.6912079966203055`*^9, 3.6912361401312027`*^9, 3.6921081348490047`*^9, 3.6921634297183003`*^9, 3.6923707160878253`*^9, 3.6925122634201117`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"w0", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "q0"}], ")"}], "^", "2"}], "+", RowBox[{"2", "*", "q0", "*", RowBox[{"(", RowBox[{"1", "-", "q0"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"h", "*", "s"}]}], ")"}]}], "+", RowBox[{ RowBox[{"q0", "^", "2"}], "*", RowBox[{"(", RowBox[{"1", "-", "s"}], ")"}]}]}]}]], "Input", CellChangeTimes->{{3.49405097934513*^9, 3.4940510724304934`*^9}, { 3.494054428004587*^9, 3.4940544280201874`*^9}, {3.4940544795626774`*^9, 3.4940544795782776`*^9}}], Cell[BoxData["0.9998727564860195`"], "Output", CellChangeTimes->{ 3.494051077313302*^9, 3.494051176810277*^9, 3.4940512468076*^9, 3.494051321984132*^9, 3.4940513821534376`*^9, 3.49405142324391*^9, 3.494051797613367*^9, 3.4940523157838774`*^9, 3.4940526369728413`*^9, 3.4940536054775424`*^9, 3.4940541953925786`*^9, {3.494055349222605*^9, 3.4940553753370514`*^9}, 3.4940554185959272`*^9, 3.4940557877857757`*^9, 3.494055935502435*^9, 3.494056053095442*^9, 3.4940561683760448`*^9, 3.494056293753465*^9, 3.4940563604279823`*^9, 3.494056646142084*^9, 3.494056883496501*^9, 3.4940571294621334`*^9, 3.4940576106605783`*^9, 3.4940582900885715`*^9, 3.4940583541578836`*^9, 3.4940584807365065`*^9, 3.494064470953125*^9, 3.4940646718125*^9, 3.4940745468125*^9, 3.494092298796875*^9, 3.49409243725*^9, 3.4941359879914*^9, { 3.494136506995911*^9, 3.4941365333131576`*^9}, {3.494136645321354*^9, 3.4941366624189844`*^9}, 3.494155897046875*^9, 3.494156356421875*^9, 3.49415646728125*^9, 3.4941569423125*^9, 3.494157062546875*^9, 3.49415712840625*^9, 3.49415726503125*^9, 3.494157485*^9, 3.494157620671875*^9, 3.49415784575*^9, 3.494158338703125*^9, 3.4941584495625*^9, 3.49415854775*^9, 3.49415860978125*^9, 3.49415866825*^9, 3.49415874153125*^9, 3.4941592158125*^9, 3.49416270971875*^9, 3.49416501353125*^9, 3.494165294140625*^9, 3.494167307078125*^9, 3.494221126081452*^9, 3.4942249880456076`*^9, 3.494226352855618*^9, 3.4942268623265133`*^9, 3.494227994825702*^9, 3.494228294003028*^9, {3.4942284345592747`*^9, 3.4942284645113273`*^9}, 3.494228695532133*^9, 3.4942291706777678`*^9, 3.49422921203344*^9, 3.4942295444388237`*^9, 3.494229826128519*^9, 3.494230013718848*^9, 3.494230070050547*^9, 3.494230124777446*^9, 3.4942313873260717`*^9, 3.4944823910625*^9, 3.494482475203125*^9, 3.494482559296875*^9, 3.494482627234375*^9, 3.49450233515625*^9, 3.494502459375*^9, 3.49450276890625*^9, 3.49450300709375*^9, 3.494503177796875*^9, 3.494504968703125*^9, 3.494656206665013*^9, 3.494744311828222*^9, 3.494745534511569*^9, 3.4947455909056683`*^9, 3.4947467844949646`*^9, 3.494746841622265*^9, 3.4947479298021765`*^9, 3.495093484421875*^9, 3.495105248671875*^9, 3.49510533403125*^9, 3.49510574675*^9, 3.495105809609375*^9, 3.49510602259375*^9, 3.495106121046875*^9, 3.495106327984375*^9, 3.49510650809375*^9, 3.49510666475*^9, 3.495106771*^9, 3.495107026265625*^9, 3.49510716125*^9, 3.495107424109375*^9, 3.495202316484375*^9, 3.495266623460396*^9, 3.495288682875*^9, 3.49528885721875*^9, 3.49528970178125*^9, { 3.4952897400625*^9, 3.495289761078125*^9}, 3.495290066171875*^9, 3.495290386203125*^9, 3.49529114415625*^9, 3.495291299625*^9, 3.4952968411875*^9, 3.49529700871875*^9, 3.495297305875*^9, 3.495297727046875*^9, 3.495298433234375*^9, 3.49530078053125*^9, 3.4953008623125*^9, 3.495301126890625*^9, 3.495301249296875*^9, 3.495301342296875*^9, 3.495301459515625*^9, 3.49530166665625*^9, 3.4953017985*^9, 3.495301954640625*^9, 3.49534445659375*^9, 3.495344510828125*^9, 3.495345710859375*^9, 3.49534589434375*^9, 3.495346630328125*^9, 3.49534720484375*^9, 3.495347811515625*^9, 3.495347868390625*^9, 3.495347924703125*^9, 3.4953481598125*^9, 3.4954385527440457`*^9, 3.49579286728125*^9, 3.4957930685625*^9, 3.49579325753125*^9, 3.49579399275*^9, 3.4957957470625*^9, 3.495796356078125*^9, 3.495796612171875*^9, 3.495796790421875*^9, 3.4960613455489545`*^9, 3.4960614384783173`*^9, 3.4960618381666193`*^9, 3.4960618956527205`*^9, 3.496061981328071*^9, 3.496062132617137*^9, 3.4960633038279943`*^9, 3.496063663143425*^9, 3.4960639814351916`*^9, 3.496164559109375*^9, 3.49616510859375*^9, 3.49616605296875*^9, 3.496166123421875*^9, 3.496166170078125*^9, 3.496166420140625*^9, 3.49616649425*^9, 3.496166776359375*^9, 3.496166879765625*^9, 3.4961669245*^9, 3.496167110265625*^9, 3.496167169078125*^9, 3.4961676410625*^9, 3.496167774046875*^9, 3.49616879884375*^9, 3.49616903559375*^9, 3.496169150796875*^9, 3.496202633625*^9, 3.49620290359375*^9, 3.496202966203125*^9, 3.496203110578125*^9, 3.4970062857935133`*^9, 3.4970065991356635`*^9, 3.497449683171875*^9, 3.497449832015625*^9, {3.4974498890625*^9, 3.49744992778125*^9}, 3.49744999803125*^9, 3.497450106578125*^9, 3.49745023459375*^9, 3.497450767984375*^9, 3.497450801125*^9, 3.49745092959375*^9, 3.497450986203125*^9, 3.497451073984375*^9, 3.497451122234375*^9, 3.4974511580625*^9, 3.4974512106875*^9, 3.4974512958125*^9, 3.49745197475*^9, 3.497452138140625*^9, 3.4974525606875*^9, 3.49745264740625*^9, 3.4974527789375*^9, 3.497466988859375*^9, 3.4974673554375*^9, 3.497467557015625*^9, 3.49746787071875*^9, 3.497468215796875*^9, 3.49746855875*^9, 3.497468763625*^9, 3.49746918234375*^9, 3.49746945159375*^9, 3.497469530984375*^9, { 3.49746960671875*^9, 3.4974696339375*^9}, 3.497470075296875*^9, 3.497470138265625*^9, 3.497470275921875*^9, 3.497470409453125*^9, 3.497470506828125*^9, 3.49747085940625*^9, 3.4974710386875*^9, 3.497471314671875*^9, 3.497471509671875*^9, 3.497472032*^9, 3.49750471809375*^9, 3.497505027265625*^9, 3.49750538221875*^9, 3.497505687109375*^9, 3.497506493796875*^9, 3.4975066734375*^9, 3.49750681440625*^9, 3.497506982328125*^9, 3.497510882453125*^9, 3.49751111909375*^9, 3.497511780375*^9, 3.497512053046875*^9, 3.497512289953125*^9, 3.49751238978125*^9, 3.497512743875*^9, 3.5002900613430796`*^9, 3.5002902815842667`*^9, 3.5002905400111203`*^9, 3.5002984752949095`*^9, 3.5003001706434875`*^9, 3.500300827545041*^9, 3.5003011997460947`*^9, 3.500357882300276*^9, 3.5003584962549543`*^9, 3.5003609158036036`*^9, 3.5003649436926956`*^9, 3.5003654815556407`*^9, 3.5003659621456847`*^9, 3.500367349544197*^9, 3.500371354678046*^9, 3.500829053453125*^9, 3.50082941325*^9, 3.500829608546875*^9, 3.500829747578125*^9, 3.5011362354375*^9, 3.50113634596875*^9, 3.50113671659375*^9, 3.5011382775*^9, 3.5011385304375*^9, 3.501139308984375*^9, {3.50113961909375*^9, 3.501139632046875*^9}, 3.501139731875*^9, 3.501139808125*^9, 3.501140480828125*^9, 3.501140556921875*^9, 3.501140726875*^9, 3.50114088809375*^9, 3.5011410619375*^9, 3.50114136178125*^9, 3.50565969625*^9, 3.50565998046875*^9, 3.505660344828125*^9, 3.50566044240625*^9, 3.505660517578125*^9, 3.50566073465625*^9, 3.505661443828125*^9, 3.505663888546875*^9, 3.505721075550248*^9, 3.505732072703125*^9, 3.505732530578125*^9, 3.505736846015625*^9, 3.505737285875*^9, 3.505737604671875*^9, 3.505744064171875*^9, 3.505745240015625*^9, 3.50574791053125*^9, 3.50574809284375*^9, 3.505748280265625*^9, 3.505749597953125*^9, 3.505756391796875*^9, 3.505756564375*^9, 3.505760861953125*^9, 3.5057613520625*^9, 3.505761756859375*^9, 3.5057618324375*^9, 3.505836181546875*^9, 3.50583712615625*^9, 3.50583794340625*^9, 3.50588376871875*^9, 3.50588417996875*^9, 3.50588488509375*^9, 3.50588945721875*^9, 3.505889934078125*^9, 3.505913131109375*^9, 3.505913167546875*^9, 3.505913230875*^9, 3.50591339428125*^9, 3.505913519484375*^9, {3.50591439471875*^9, 3.505914417375*^9}, 3.505914566921875*^9, 3.505914611484375*^9, 3.505915635390625*^9, 3.505916134921875*^9, 3.50591643559375*^9, 3.5059172793125*^9, 3.505917702421875*^9, 3.505919978140625*^9, 3.505995667234375*^9, 3.5059958938125*^9, 3.50599599159375*^9, 3.505996327078125*^9, 3.506000831*^9, 3.50601071759375*^9, 3.506162019859166*^9, 3.5061650337218814`*^9, 3.5062290102666054`*^9, 3.5062326295193624`*^9, 3.5062327037562933`*^9, 3.507271490647088*^9, 3.5082427865625*^9, 3.508417988375*^9, {3.508418834546875*^9, 3.50841886425*^9}, 3.508419397921875*^9, 3.50842099340625*^9, 3.508424536265625*^9, 3.5084246479375*^9, 3.508425087109375*^9, 3.5091021806925745`*^9, 3.509102239785478*^9, 3.509104484361622*^9, 3.5091141494375*^9, 3.509123702046875*^9, 3.509125199421875*^9, 3.509131881078125*^9, 3.509164447*^9, 3.509164674625*^9, 3.509166606921875*^9, 3.50920389096875*^9, 3.5093457144962597`*^9, 3.686545054537407*^9, 3.6865451014066124`*^9, 3.6865451604195375`*^9, { 3.6865455800040417`*^9, 3.686545599813897*^9}, 3.68654583979327*^9, 3.6865459389881535`*^9, 3.6865462415184855`*^9, 3.6865464532086287`*^9, 3.6865474468542123`*^9, 3.6865546021621027`*^9, 3.68655495904115*^9, 3.6865672176906905`*^9, 3.686579988028269*^9, 3.686581811518081*^9, 3.686583625937997*^9, 3.68671327260954*^9, 3.6867599442383623`*^9, 3.6867706648086047`*^9, 3.686802494644856*^9, 3.686887257942472*^9, 3.687059612203312*^9, 3.687097017868512*^9, 3.6871101212261887`*^9, 3.691179980779805*^9, 3.691207996635931*^9, 3.6912361401503954`*^9, 3.6921081348646293`*^9, 3.6921634297339272`*^9, 3.692370716103453*^9, 3.6925122634431744`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"eficacia", "[", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"eficacia", "[", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], "]"}], "=", RowBox[{"1", "-", RowBox[{"h", "*", "s"}]}]}], ";", RowBox[{ RowBox[{"eficacia", "[", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "]"}], "=", RowBox[{"1", "-", RowBox[{"h", "*", "s"}]}]}], ";", RowBox[{ RowBox[{"eficacia", "[", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "]"}], "=", RowBox[{"1", "-", "s"}]}], ";"}]], "Input", CellChangeTimes->{{3.493813406578125*^9, 3.4938135165*^9}, { 3.493819360421875*^9, 3.493819365078125*^9}, {3.493819420859375*^9, 3.49381943540625*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dist1", "=", RowBox[{"BernoulliDistribution", "[", "q0", "]"}]}]], "Input", CellChangeTimes->{{3.493708608898278*^9, 3.4937086236559043`*^9}, 3.4940544280201874`*^9, 3.4940544795782776`*^9}], Cell[BoxData[ RowBox[{"BernoulliDistribution", "[", "0.0272462386042621`", "]"}]], "Output", CellChangeTimes->{ 3.4937089287144403`*^9, 3.493710019889557*^9, 3.493710148982586*^9, 3.493710307198064*^9, 3.493710884555078*^9, {3.493710940434376*^9, 3.49371097676684*^9}, 3.4937110893054376`*^9, 3.4937111206614923`*^9, 3.493711185573207*^9, {3.4937115895015163`*^9, 3.493711606895547*^9}, 3.49371205826674*^9, {3.4937124975947113`*^9, 3.4937125392779846`*^9}, { 3.493813570140625*^9, 3.493813588*^9}, 3.493813719109375*^9, 3.493813781109375*^9, 3.4938139056875*^9, 3.493813985640625*^9, { 3.493814017625*^9, 3.49381406315625*^9}, 3.493814123140625*^9, 3.49381460746875*^9, 3.493814727390625*^9, {3.493814800171875*^9, 3.493814825671875*^9}, 3.493814925671875*^9, {3.493815565125*^9, 3.4938156191875*^9}, 3.493815715125*^9, 3.49381585221875*^9, 3.493815887890625*^9, 3.493815932109375*^9, 3.493815988578125*^9, 3.49381603028125*^9, 3.493816091484375*^9, 3.49381613528125*^9, 3.493816286953125*^9, 3.493816367515625*^9, 3.493816494828125*^9, { 3.493816617484375*^9, 3.493816645859375*^9}, 3.493816693484375*^9, 3.493816765484375*^9, 3.4938168276875*^9, 3.49381688575*^9, 3.493816915828125*^9, 3.4938185260625*^9, 3.493818926984375*^9, 3.49381944975*^9, {3.493819876578125*^9, 3.493819893421875*^9}, 3.493820129890625*^9, {3.493820171796875*^9, 3.493820238*^9}, 3.493908706171875*^9, 3.493910075359375*^9, 3.493910205828125*^9, 3.493910525984375*^9, 3.49391088909375*^9, 3.493911005828125*^9, 3.493911182390625*^9, 3.49391126178125*^9, 3.4939114236875*^9, 3.49391151440625*^9, 3.493922200125*^9, 3.4939245668125*^9, { 3.493924711828125*^9, 3.493924749703125*^9}, {3.493924780078125*^9, 3.4939248011875*^9}, 3.493924987703125*^9, 3.4939258789375*^9, 3.493926234546875*^9, {3.493926354296875*^9, 3.493926371109375*^9}, 3.493926993953125*^9, {3.493927152734375*^9, 3.493927179703125*^9}, 3.493961182095869*^9, 3.4939612573192005`*^9, 3.4939613884530315`*^9, 3.4939678916472836`*^9, 3.4939680551979713`*^9, 3.493968159374954*^9, 3.4939687203207393`*^9, 3.4939692158712096`*^9, 3.4939696060902953`*^9, 3.4939697105480785`*^9, 3.4939697977210317`*^9, 3.4939699663417277`*^9, { 3.4939704280401387`*^9, 3.4939704432969656`*^9}, 3.4939705351187267`*^9, 3.49397129021926*^9, {3.49397214128557*^9, 3.4939721541087923`*^9}, { 3.4939721860280485`*^9, 3.4939722013160753`*^9}, {3.493972233608132*^9, 3.493972255541771*^9}, 3.493973452324354*^9, 3.4939742414257035`*^9, 3.4939742750749626`*^9, 3.493974471526108*^9, 3.4939745397294273`*^9, 3.493974599227932*^9, 3.4939746366523976`*^9, 3.493974680285674*^9, { 3.4939747206585455`*^9, 3.4939747449789877`*^9}, 3.49397521492706*^9, 3.4939753996625843`*^9, 3.494006062046875*^9, 3.494006148921875*^9, 3.494006197328125*^9, 3.494006935984375*^9, 3.494007403890625*^9, 3.494007459984375*^9, {3.4940075093125*^9, 3.4940075328125*^9}, { 3.494007666828125*^9, 3.494007685109375*^9}, 3.49400800653125*^9, 3.494008056640625*^9, {3.494008478390625*^9, 3.494008501921875*^9}, 3.494008671203125*^9, 3.494009142671875*^9, 3.494048392254613*^9, 3.494048437151492*^9, 3.494048555978501*^9, {3.4940486206406145`*^9, 3.494048647098261*^9}, 3.494048975151237*^9, {3.4940490798586206`*^9, 3.4940491080478706`*^9}, 3.4940491837392035`*^9, 3.4940492374812975`*^9, 3.494049277932169*^9, 3.494049697335306*^9, 3.494049778751849*^9, 3.4940498529455795`*^9, 3.4940499530197554`*^9, 3.4940510773445024`*^9, 3.4940511768258767`*^9, 3.4940512468388*^9, 3.494051322015332*^9, 3.494051382169038*^9, 3.49405142327511*^9, 3.4940517976445675`*^9, 3.4940523158150773`*^9, 3.4940526370040417`*^9, 3.4940536055087423`*^9, 3.4940541954081783`*^9, {3.494055349253805*^9, 3.494055375368251*^9}, 3.494055418627127*^9, 3.4940557878169756`*^9, 3.494055935518035*^9, 3.4940560531266413`*^9, 3.4940561683916445`*^9, 3.494056293769065*^9, 3.4940563604591827`*^9, 3.4940566461732845`*^9, 3.4940568835277014`*^9, 3.494057129493333*^9, 3.4940576106761785`*^9, 3.494058290119772*^9, 3.494058354189084*^9, 3.4940584807677064`*^9, 3.494064471015625*^9, 3.49406467184375*^9, 3.49407454696875*^9, 3.4940922988125*^9, 3.49409243728125*^9, 3.4941359880225997`*^9, {3.494136507011511*^9, 3.4941365333287573`*^9}, {3.4941366453525543`*^9, 3.4941366624345846`*^9}, 3.494155897140625*^9, 3.494156356453125*^9, 3.4941564673125*^9, 3.49415694234375*^9, 3.494157062578125*^9, 3.494157128421875*^9, 3.4941572650625*^9, 3.49415748503125*^9, 3.4941576206875*^9, 3.49415784578125*^9, 3.49415833871875*^9, 3.494158449578125*^9, 3.494158547765625*^9, 3.4941586098125*^9, 3.494158668265625*^9, 3.494158741546875*^9, 3.49415921584375*^9, 3.494162709734375*^9, 3.494165013546875*^9, 3.49416529415625*^9, 3.49416730709375*^9, 3.494221126112652*^9, 3.4942249880768075`*^9, 3.494226352886818*^9, 3.494226862342113*^9, 3.494227994856902*^9, 3.4942282940342274`*^9, { 3.494228434574875*^9, 3.494228464526927*^9}, 3.494228695563333*^9, 3.4942291706933675`*^9, 3.49422921206464*^9, 3.494229544470024*^9, 3.4942298261597185`*^9, 3.4942300137344484`*^9, 3.494230070066147*^9, 3.494230124808646*^9, 3.494231387341672*^9, 3.494482391125*^9, 3.49448247521875*^9, 3.4944825593125*^9, 3.49448262725*^9, 3.4945023351875*^9, 3.494502459421875*^9, 3.494502768921875*^9, 3.494503007125*^9, 3.4945031778125*^9, 3.494504968734375*^9, 3.494656206680613*^9, 3.494744311875022*^9, 3.4947455345427694`*^9, 3.4947455909368687`*^9, 3.494746784526165*^9, 3.4947468416534653`*^9, 3.4947479298333764`*^9, 3.495093484484375*^9, 3.495105248703125*^9, 3.495105334046875*^9, 3.49510574678125*^9, 3.495105809640625*^9, 3.495106022625*^9, 3.495106121078125*^9, 3.495106328*^9, 3.495106508125*^9, 3.495106664765625*^9, 3.49510677103125*^9, 3.4951070263125*^9, 3.495107161265625*^9, 3.495107424125*^9, 3.495202316515625*^9, 3.4952666234915953`*^9, 3.495288682953125*^9, 3.495288857265625*^9, 3.4952897018125*^9, {3.49528974009375*^9, 3.495289761109375*^9}, 3.495290066203125*^9, 3.495290386234375*^9, 3.4952911441875*^9, 3.49529129965625*^9, 3.49529684121875*^9, 3.49529700875*^9, 3.49529730590625*^9, 3.4952977270625*^9, 3.495298433265625*^9, 3.495300780609375*^9, 3.49530086234375*^9, 3.49530112690625*^9, 3.4953012493125*^9, 3.495301342328125*^9, 3.495301459546875*^9, 3.495301666671875*^9, 3.49530179853125*^9, 3.495301954671875*^9, 3.495344456609375*^9, 3.49534451084375*^9, 3.495345710890625*^9, 3.495345894375*^9, 3.495346630359375*^9, 3.495347204875*^9, 3.495347811546875*^9, 3.49534786840625*^9, 3.495347924734375*^9, 3.49534815984375*^9, 3.495438552868846*^9, 3.49579286734375*^9, 3.495793068578125*^9, 3.4957932575625*^9, 3.495793992765625*^9, 3.49579574709375*^9, 3.495796356109375*^9, 3.4957966121875*^9, 3.495796790453125*^9, 3.4960613455801544`*^9, 3.4960614384939175`*^9, 3.4960618381822195`*^9, 3.4960618956683207`*^9, 3.496061981343671*^9, 3.4960621326327367`*^9, 3.4960633038435946`*^9, 3.4960636631746254`*^9, 3.4960639814507914`*^9, 3.4961645591875*^9, 3.496165108625*^9, 3.496166053015625*^9, 3.4961661234375*^9, 3.49616617009375*^9, 3.49616642015625*^9, 3.496166494265625*^9, 3.496166776375*^9, 3.49616687978125*^9, 3.496166924515625*^9, 3.496167110296875*^9, 3.496167169109375*^9, 3.49616764109375*^9, 3.4961677740625*^9, 3.496168798859375*^9, 3.496169035609375*^9, 3.496169150828125*^9, 3.4962026336875*^9, 3.496202903625*^9, 3.49620296621875*^9, 3.496203110609375*^9, 3.497006285824713*^9, 3.497006599151263*^9, 3.497449683234375*^9, 3.497449832046875*^9, {3.49744988909375*^9, 3.4974499278125*^9}, 3.4974499980625*^9, 3.497450106609375*^9, 3.497450234609375*^9, 3.497450768015625*^9, 3.49745080115625*^9, 3.497450929625*^9, 3.497450986234375*^9, 3.497451074015625*^9, 3.497451122265625*^9, 3.49745115809375*^9, 3.49745121071875*^9, 3.497451295828125*^9, 3.497451974828125*^9, 3.497452138171875*^9, 3.497452560703125*^9, 3.4974526474375*^9, 3.497452778953125*^9, 3.497466988875*^9, 3.497467355453125*^9, 3.497467557046875*^9, 3.497467870734375*^9, 3.4974682158125*^9, 3.497468558765625*^9, 3.497468763640625*^9, 3.497469182359375*^9, 3.497469451609375*^9, 3.497469531015625*^9, {3.49746960675*^9, 3.497469633953125*^9}, 3.497470075328125*^9, 3.49747013828125*^9, 3.4974702759375*^9, 3.497470409484375*^9, 3.49747050684375*^9, 3.497470859421875*^9, 3.49747103871875*^9, 3.497471314703125*^9, 3.497471509703125*^9, 3.49747203203125*^9, 3.49750471815625*^9, 3.49750502728125*^9, 3.497505382234375*^9, 3.497505687125*^9, 3.4975064938125*^9, 3.497506673453125*^9, 3.497506814421875*^9, 3.49750698234375*^9, 3.49751088246875*^9, 3.497511119109375*^9, 3.49751178040625*^9, 3.4975120530625*^9, 3.497512289984375*^9, 3.4975123898125*^9, 3.49751274390625*^9, 3.5002900614054794`*^9, 3.5002902815998664`*^9, 3.50029054002672*^9, 3.5002984753105097`*^9, 3.5003001706590877`*^9, 3.5003008275606413`*^9, 3.500301199761695*^9, 3.5003578823314753`*^9, 3.500358496270554*^9, 3.5003609158348036`*^9, 3.500364943708296*^9, 3.5003654815868406`*^9, 3.5003659621768847`*^9, 3.5003673495753965`*^9, 3.500371354709246*^9, 3.500829053484375*^9, 3.500829413265625*^9, 3.500829608578125*^9, 3.500829747609375*^9, 3.5011362355*^9, 3.501136346*^9, 3.501136716625*^9, 3.501138277578125*^9, 3.50113853046875*^9, 3.501139309*^9, {3.501139619125*^9, 3.501139632078125*^9}, 3.501139731890625*^9, 3.50113980815625*^9, 3.501140480859375*^9, 3.501140556953125*^9, 3.50114072690625*^9, 3.501140888125*^9, 3.50114106196875*^9, 3.5011413618125*^9, 3.5056596963125*^9, 3.5056599805*^9, 3.505660344859375*^9, 3.5056604424375*^9, 3.505660517609375*^9, 3.5056607346875*^9, 3.505661443859375*^9, 3.505663888578125*^9, 3.5057210755658484`*^9, 3.5057320728125*^9, 3.505732530625*^9, 3.50573684603125*^9, 3.505737285890625*^9, 3.505737604703125*^9, 3.505744064203125*^9, 3.505745240046875*^9, 3.5057479105625*^9, 3.505748092875*^9, 3.505748280296875*^9, 3.505749597984375*^9, 3.5057563918125*^9, 3.505756564390625*^9, 3.50576086196875*^9, 3.50576135209375*^9, 3.505761756875*^9, 3.505761832453125*^9, 3.505836181609375*^9, 3.5058371261875*^9, 3.505837943421875*^9, 3.505883768734375*^9, 3.50588418*^9, 3.505884885125*^9, 3.505889457234375*^9, 3.50588993409375*^9, 3.505913131125*^9, 3.505913167578125*^9, 3.50591323090625*^9, 3.505913394296875*^9, 3.505913519515625*^9, { 3.50591439475*^9, 3.505914417421875*^9}, 3.5059145669375*^9, 3.5059146115*^9, 3.50591563540625*^9, 3.505916134953125*^9, 3.505916435625*^9, 3.505917279328125*^9, 3.5059177024375*^9, 3.505919978171875*^9, 3.505995667296875*^9, 3.50599589384375*^9, 3.505995991625*^9, 3.505996327109375*^9, 3.506000831015625*^9, 3.506010717609375*^9, 3.5061620198747663`*^9, 3.5061650337530813`*^9, 3.5062290103134055`*^9, 3.506232629550563*^9, 3.5062327037874937`*^9, 3.5072714906938887`*^9, 3.508242786578125*^9, 3.5084179884375*^9, { 3.5084188345625*^9, 3.508418864265625*^9}, 3.5084193979375*^9, 3.508420993421875*^9, 3.50842453628125*^9, 3.50842464796875*^9, 3.508425087125*^9, 3.5091021807081747`*^9, 3.509102239801078*^9, 3.5091044843772216`*^9, 3.5091141495*^9, 3.509123702078125*^9, 3.509125199453125*^9, 3.50913188115625*^9, 3.509164674734375*^9, 3.5091666069375*^9, 3.509203890984375*^9, 3.50934571451186*^9, 3.6865450545534215`*^9, 3.6865451014411497`*^9, 3.6865451604315577`*^9, { 3.6865455800210543`*^9, 3.6865455998299212`*^9}, 3.6865458398108015`*^9, 3.686545939007167*^9, 3.6865462415354805`*^9, 3.686546453231619*^9, 3.686547446872225*^9, 3.6865546021761985`*^9, 3.68655495905616*^9, 3.686567217734845*^9, 3.6865799880533347`*^9, 3.68658181153613*^9, 3.686583625963063*^9, 3.686713272625169*^9, 3.6867599442544966`*^9, 3.6867706648421803`*^9, 3.6868024946604824`*^9, 3.6868872579737225`*^9, 3.687059612234564*^9, 3.687097017899766*^9, 3.6871101212418146`*^9, 3.6911799807954316`*^9, 3.6912079966515555`*^9, 3.691236140166023*^9, 3.6921081348867455`*^9, 3.692163429749522*^9, 3.6923707161726513`*^9, 3.692512263470272*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"gdf", "[", "0", "]"}], ":=", "0"}]], "Input", CellChangeTimes->{{3.501135322796875*^9, 3.501135361546875*^9}, { 3.501135468328125*^9, 3.5011355175*^9}, 3.50113818209375*^9, 3.501139298609375*^9, {3.501139360828125*^9, 3.501139377796875*^9}, { 3.501139646640625*^9, 3.501139662859375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"fneutro", "[", RowBox[{"-", "1"}], "]"}], "=", "0"}], ";", RowBox[{ RowBox[{"fneutro", "[", "0", "]"}], "=", "0"}], ";"}]], "Input", CellChangeTimes->{{3.50591455490625*^9, 3.505914559625*^9}, { 3.505914593078125*^9, 3.505914607390625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"gdf", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"gdf", "[", RowBox[{"t", "-", "1"}], "]"}], RowBox[{"(", RowBox[{"1.", "-", RowBox[{"1", "/", RowBox[{"(", RowBox[{"2", "n"}], ")"}]}]}], ")"}]}], "+", RowBox[{"1", "/", RowBox[{"(", RowBox[{"2", "n"}], ")"}]}]}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "d", "*", RowBox[{"fneutro", "[", RowBox[{"t", "-", "1"}], "]"}]}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.501139576203125*^9, 3.50113958240625*^9}, { 3.505658551296875*^9, 3.505658552859375*^9}, {3.505659961359375*^9, 3.505659966875*^9}, {3.505914258671875*^9, 3.50591425921875*^9}, 3.506094742453125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"qnext", "=", "q0"}], ";", RowBox[{"wnext", "=", "w0"}], ";"}]], "Input", CellChangeTimes->{{3.494054873338569*^9, 3.4940548829793863`*^9}, { 3.4940549593103204`*^9, 3.4940549679995356`*^9}, {3.49744962971875*^9, 3.4974496404375*^9}, 3.497450205765625*^9}], Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{"t", "=", "1"}], ",", RowBox[{"t", "\[LessEqual]", RowBox[{"generaciones", "+", "2"}]}], ",", RowBox[{"t", "++"}], ",", RowBox[{ RowBox[{ RowBox[{"fneutro", "[", "t", "]"}], "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "[", "t", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"qnext", "*", RowBox[{"(", RowBox[{"1", "-", "qnext"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"h", "*", "s"}]}], ")"}]}], "+", RowBox[{ RowBox[{"qnext", "^", "2"}], "*", RowBox[{"(", RowBox[{"1", "-", "s"}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "qnext"}], ")"}], "^", "2"}], "+", RowBox[{"2", "*", "qnext", "*", RowBox[{"(", RowBox[{"1", "-", "qnext"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"h", "*", "s"}]}], ")"}]}], "+", RowBox[{ RowBox[{"qnext", "^", "2"}], "*", RowBox[{"(", RowBox[{"1", "-", "s"}], ")"}]}]}], ")"}]}]}], ";", RowBox[{"qnext", "=", RowBox[{"q", "[", "t", "]"}]}], ";", RowBox[{ RowBox[{"ewsinpurga", "[", "t", "]"}], "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "qnext"}], ")"}], "^", "2"}], "+", RowBox[{"2", "*", "qnext", "*", RowBox[{"(", RowBox[{"1", "-", "qnext"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"h", "*", "s"}]}], ")"}]}], "+", RowBox[{ RowBox[{"qnext", "^", "2"}], "*", RowBox[{"(", RowBox[{"1", "-", "s"}], ")"}]}]}]}], ";", RowBox[{"wnext", "=", RowBox[{"ewsinpurga", "[", "t", "]"}]}], ";"}]}], "]"}]], "Input", CellChangeTimes->{{3.493973894902295*^9, 3.4939739620760126`*^9}, { 3.4939746230023737`*^9, 3.4939746259351788`*^9}, {3.494050670698588*^9, 3.4940506761741977`*^9}, 3.494054181274554*^9, {3.4940550406800632`*^9, 3.4940550451572714`*^9}, {3.494055228291193*^9, 3.494055389283476*^9}, { 3.4940557233888626`*^9, 3.4940557625449314`*^9}, {3.494057378641371*^9, 3.494057381698976*^9}, {3.4940577940233*^9, 3.49405786792063*^9}, { 3.494057939867956*^9, 3.4940579963088555`*^9}, 3.4940580287257123`*^9, { 3.4940581134338613`*^9, 3.494058231713269*^9}, {3.4940583364986534`*^9, 3.4940583425046635`*^9}, {3.49422949102433*^9, 3.4942294916327314`*^9}, 3.49529995390625*^9, 3.49534421434375*^9, {3.4974462796875*^9, 3.497446392375*^9}, 3.497446468921875*^9, {3.497449494171875*^9, 3.49744952253125*^9}, {3.4974500963125*^9, 3.497450096984375*^9}, { 3.497467307859375*^9, 3.497467311375*^9}, {3.5011366845625*^9, 3.501136710421875*^9}, 3.501139761375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"ewselsinpurg", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"ewsinpurga", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "generaciones"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4940572805795984`*^9, 3.4940572867572093`*^9}, { 3.4940573625421424`*^9, 3.4940573722921596`*^9}, 3.4940575007271852`*^9, 3.4940575580104856`*^9, 3.4940583686815095`*^9, {3.494065395484375*^9, 3.494065398359375*^9}, {3.4942295197595806`*^9, 3.4942295203055816`*^9}, 3.495344221296875*^9, {3.505916108390625*^9, 3.505916113390625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"t", "=", "1"}], ",", RowBox[{"t", "\[LessEqual]", RowBox[{"generaciones", "+", "2"}]}], ",", RowBox[{"t", "++"}], ",", RowBox[{ RowBox[{ RowBox[{"medC", "[", "t", "]"}], "=", "0"}], ";", RowBox[{ RowBox[{"medCP", "[", "t", "]"}], "=", "0"}], ";", RowBox[{ RowBox[{"wmedia", "[", "t", "]"}], "=", "0"}], ";", RowBox[{"qt", "=", "0"}], ";", RowBox[{ RowBox[{"q20sim", "[", "t", "]"}], "=", "0"}], ";", RowBox[{ RowBox[{"q0sim", "[", "t", "]"}], "=", "0"}], ";", RowBox[{ RowBox[{"pq0sim", "[", "t", "]"}], "=", "0"}], ";", RowBox[{ RowBox[{"w0obs", "[", "t", "]"}], "=", "0"}], ";", RowBox[{ RowBox[{"tasadobs", "[", "t", "]"}], "=", "0"}], ";", RowBox[{ RowBox[{"qsim", "[", "t", "]"}], "=", "0"}]}]}], "]"}], ";", RowBox[{"deltat", "=", "0"}], ";"}]], "Input", CellChangeTimes->{ 3.495344203375*^9, {3.496167076640625*^9, 3.496167078359375*^9}, 3.497449819734375*^9, {3.497449884*^9, 3.497449884578125*^9}, 3.497450221203125*^9, 3.4974672271875*^9, {3.497467342125*^9, 3.497467350484375*^9}, {3.500289385066292*^9, 3.5002893974215136`*^9}, { 3.5002895570253935`*^9, 3.5002895583357964`*^9}, {3.500290259120227*^9, 3.5002902728482513`*^9}, {3.505747475421875*^9, 3.50574748965625*^9}, { 3.50574806815625*^9, 3.50574808390625*^9}, {3.5057555194375*^9, 3.505755547875*^9}, {3.505756549953125*^9, 3.505756557640625*^9}, { 3.505912863484375*^9, 3.505912878078125*^9}, {3.505912917265625*^9, 3.505912927171875*^9}, 3.505913336171875*^9, 3.50841721046875*^9}], Cell[BoxData[ RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{ RowBox[{"consPurg", "[", RowBox[{"i", ",", "0"}], "]"}], "=", "0"}], ";", RowBox[{ RowBox[{"cons", "[", RowBox[{"i", ",", "0"}], "]"}], "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "n"}], ",", RowBox[{"j", "++"}], ",", RowBox[{ RowBox[{ RowBox[{"parentesco", "[", RowBox[{"i", ",", "j", ",", "0"}], "]"}], "=", "0"}], ";", RowBox[{ RowBox[{"parentPurg", "[", RowBox[{"i", ",", "j", ",", "0"}], "]"}], "=", "0"}]}]}], "]"}], ";", RowBox[{ RowBox[{"parentesco", "[", RowBox[{"i", ",", "i", ",", "0"}], "]"}], "=", "0.5"}], ";", RowBox[{ RowBox[{"parentPurg", "[", RowBox[{"i", ",", "i", ",", "0"}], "]"}], "=", "0.5"}]}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.493709476181802*^9, 3.4937094792238073`*^9}, { 3.4937095228102837`*^9, 3.493709660776926*^9}, {3.4937097073898077`*^9, 3.493709708060609*^9}, {3.493710207638689*^9, 3.493710240507947*^9}, { 3.4937102929864388`*^9, 3.493710297604047*^9}, {3.4937106896483355`*^9, 3.4937107005683546`*^9}, {3.4937107602852592`*^9, 3.4937107606908607`*^9}, 3.4937108611238365`*^9, {3.493710928531555*^9, 3.4937109288591557`*^9}, 3.49381435365625*^9, 3.493814438015625*^9, {3.4938145045625*^9, 3.493814526859375*^9}, 3.493814583609375*^9, {3.493815699296875*^9, 3.493815708953125*^9}, {3.49381598065625*^9, 3.49381598096875*^9}, 3.493816122984375*^9, {3.4938162424375*^9, 3.49381626915625*^9}, 3.49381647853125*^9, {3.493816542421875*^9, 3.493816582359375*^9}, { 3.49381664034375*^9, 3.493816641375*^9}, {3.493908607640625*^9, 3.49390869034375*^9}, {3.493909263015625*^9, 3.493909264328125*^9}, { 3.493911359671875*^9, 3.49391141228125*^9}, 3.493911495203125*^9, { 3.493924695546875*^9, 3.49392470415625*^9}, 3.493926576640625*^9, { 3.4939267145*^9, 3.493926772328125*^9}, {3.4939268065*^9, 3.49392698890625*^9}, {3.4939270605*^9, 3.4939271013125*^9}, { 3.493927138578125*^9, 3.493927148421875*^9}, {3.4939613806998177`*^9, 3.4939613814174185`*^9}, {3.493967981269441*^9, 3.4939679853878484`*^9}, { 3.4939680179139056`*^9, 3.493968022749914*^9}, {3.494006909171875*^9, 3.4940069159375*^9}, {3.49400724228125*^9, 3.494007245984375*^9}, { 3.494008042828125*^9, 3.494008051265625*^9}, {3.4940084670625*^9, 3.4940084721875*^9}, {3.4940086643125*^9, 3.494008664546875*^9}, { 3.494048375796584*^9, 3.494048381942995*^9}, 3.4940484325806837`*^9, { 3.4940568135615783`*^9, 3.494056823904396*^9}, 3.494655750208211*^9, { 3.495107114546875*^9, 3.495107116671875*^9}, {3.5059128484375*^9, 3.5059128506875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"r", "=", "1"}], ",", RowBox[{"r", "\[LessEqual]", "repeticiones"}], ",", RowBox[{"r", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"qsim", "[", "0", "]"}], "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"t", "=", "1"}], ",", RowBox[{"t", "\[LessEqual]", RowBox[{"generaciones", "+", "2"}]}], ",", RowBox[{"t", "++"}], ",", RowBox[{ RowBox[{"qsim", "[", "t", "]"}], "=", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{ RowBox[{"genotipo", "[", RowBox[{"i", ",", "0"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"Random", "[", "dist1", "]"}], ",", RowBox[{"Random", "[", "dist1", "]"}]}], "}"}]}], ";", RowBox[{ RowBox[{"qsim", "[", "0", "]"}], "=", RowBox[{ RowBox[{"qsim", "[", "0", "]"}], "+", RowBox[{"1.0", "*", RowBox[{"Total", "[", RowBox[{"genotipo", "[", RowBox[{"i", ",", "0"}], "]"}], "]"}]}]}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"qsim", "[", "0", "]"}], "=", RowBox[{ RowBox[{"qsim", "[", "0", "]"}], "/", RowBox[{"(", RowBox[{"2", "n"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"t", "=", "1"}], ",", RowBox[{"t", "\[LessEqual]", "generaciones"}], ",", RowBox[{"t", "++"}], ",", RowBox[{ RowBox[{ RowBox[{"q0sim", "[", "t", "]"}], "=", RowBox[{ RowBox[{"q0sim", "[", "t", "]"}], "+", RowBox[{"qsim", "[", RowBox[{"t", "-", "1"}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"q20sim", "[", "t", "]"}], "=", " ", RowBox[{ RowBox[{"q20sim", "[", "t", "]"}], "+", RowBox[{ RowBox[{"qsim", "[", RowBox[{"t", "-", "1"}], "]"}], "^", "2"}]}]}], ";", RowBox[{ RowBox[{"tasadobs", "[", "t", "]"}], "=", RowBox[{ RowBox[{"tasadobs", "[", "t", "]"}], "+", RowBox[{"2", "d", "*", RowBox[{"qsim", "[", RowBox[{"t", "-", "1"}], "]"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"qsim", "[", RowBox[{"t", "-", "1"}], "]"}]}], ")"}]}]}]}], ";", RowBox[{ RowBox[{"w0obs", "[", "t", "]"}], "=", RowBox[{ RowBox[{"w0obs", "[", "t", "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"qsim", "[", RowBox[{"t", "-", "1"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{"2", "*", RowBox[{"qsim", "[", RowBox[{"t", "-", "1"}], "]"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"qsim", "[", RowBox[{"t", "-", "1"}], "]"}]}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"h", "*", "s"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"qsim", "[", RowBox[{"t", "-", "1"}], "]"}], "^", "2"}], "*", RowBox[{"(", RowBox[{"1", "-", "s"}], ")"}]}]}]}], ";", RowBox[{ RowBox[{"pq0sim", "[", "t", "]"}], "=", RowBox[{ RowBox[{"pq0sim", "[", "t", "]"}], "+", RowBox[{ RowBox[{"qsim", "[", RowBox[{"t", "-", "1"}], "]"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"qsim", "[", RowBox[{"t", "-", "1"}], "]"}]}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Label", "[", "muere", "]"}], ";", "\[IndentingNewLine]", RowBox[{"xxx", "=", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"1", ",", "n"}], "}"}], "]"}]}], ";", RowBox[{ RowBox[{"padre", "[", "i", "]"}], "=", "xxx"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"RandomReal", "[", "]"}], ">", "selfRate"}], ",", RowBox[{ RowBox[{"madre", "[", "i", "]"}], "=", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"1", ",", "n"}], "}"}], "]"}]}], ",", RowBox[{ RowBox[{"madre", "[", "i", "]"}], "=", "xxx"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"RandomChoice", "[", RowBox[{"genotipo", "[", RowBox[{ RowBox[{"padre", "[", "i", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}], "]"}], ",", RowBox[{"RandomChoice", "[", RowBox[{"genotipo", "[", RowBox[{ RowBox[{"madre", "[", "i", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}], "]"}]}], "}"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"RandomReal", "[", "]"}], ">", RowBox[{"eficacia", "[", RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"Goto", "[", "muere", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], "=", RowBox[{"If", " ", "[", RowBox[{ RowBox[{ RowBox[{"RandomReal", "[", "]"}], "<", RowBox[{"2", "*", "mu"}]}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"Extract", "[", RowBox[{ RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], ",", RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}], ",", RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}]}], "]"}]}], ";", RowBox[{"Goto", "[", "vive", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Label", "[", "vive", "]"}], ";", RowBox[{ RowBox[{"qsim", "[", "t", "]"}], "=", RowBox[{ RowBox[{"qsim", "[", "t", "]"}], "+", RowBox[{"1.0", "*", RowBox[{"Total", "[", RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"medC", "[", "t", "]"}], "=", RowBox[{ RowBox[{"medC", "[", "t", "]"}], "+", RowBox[{"cons", "[", RowBox[{"i", ",", "t"}], "]"}]}]}], ";", RowBox[{ RowBox[{"medCP", "[", "t", "]"}], "=", RowBox[{ RowBox[{"medCP", "[", "t", "]"}], "+", RowBox[{"consPurg", "[", RowBox[{"i", ",", "t"}], "]"}]}]}], ";", RowBox[{ RowBox[{"wmedia", "[", "t", "]"}], "=", RowBox[{ RowBox[{"wmedia", "[", "t", "]"}], "+", RowBox[{"eficacia", "[", RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], "]"}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", RowBox[{ RowBox[{"qsim", "[", "t", "]"}], "=", RowBox[{ RowBox[{"qsim", "[", "t", "]"}], "/", RowBox[{"(", RowBox[{"2", "n"}], ")"}]}]}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{ RowBox[{"padre", "[", "i", "]"}], "=", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"1", ",", "n"}], "}"}], "]"}]}], ";", RowBox[{ RowBox[{"madre", "[", "i", "]"}], "=", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"1", ",", "n"}], "}"}], "]"}]}], ";", RowBox[{ RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"RandomChoice", "[", RowBox[{"genotipo", "[", RowBox[{ RowBox[{"padre", "[", "i", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}], "]"}], ",", RowBox[{"RandomChoice", "[", RowBox[{"genotipo", "[", RowBox[{ RowBox[{"madre", "[", "i", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}], "]"}]}], "}"}]}], ";", RowBox[{"qt", "=", RowBox[{"qt", "+", RowBox[{"Total", "[", RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"cons", "[", RowBox[{"i", ",", "t"}], "]"}], "=", RowBox[{"parentesco", "[", RowBox[{ RowBox[{"madre", "[", "i", "]"}], ",", RowBox[{"padre", "[", "i", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"consPurg", "[", RowBox[{"i", ",", "t"}], "]"}], "=", RowBox[{"parentPurg", "[", RowBox[{ RowBox[{"madre", "[", "i", "]"}], ",", RowBox[{"padre", "[", "i", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"medC", "[", "t", "]"}], "=", RowBox[{ RowBox[{"medC", "[", "t", "]"}], "+", RowBox[{"cons", "[", RowBox[{"i", ",", "t"}], "]"}]}]}], ";", RowBox[{ RowBox[{"medCP", "[", "t", "]"}], "=", RowBox[{ RowBox[{"medCP", "[", "t", "]"}], "+", RowBox[{"consPurg", "[", RowBox[{"i", ",", "t"}], "]"}]}]}], ";", RowBox[{ RowBox[{"wmedia", "[", "t", "]"}], "=", RowBox[{ RowBox[{"wmedia", "[", "t", "]"}], "+", RowBox[{"eficacia", "[", RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"regWF", "=", RowBox[{"Append", "[", RowBox[{"regWF", ",", RowBox[{"{", RowBox[{ RowBox[{"cons", "[", RowBox[{"i", ",", "t"}], "]"}], ",", RowBox[{"eficacia", "[", RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{"regWEWF", "=", RowBox[{"Append", "[", RowBox[{"regWEWF", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"ewsinpurga", "[", RowBox[{"generaciones", "+", "1"}], "]"}], "-", RowBox[{"delta", "*", RowBox[{"cons", "[", RowBox[{"i", ",", "t"}], "]"}]}]}], ",", RowBox[{"eficacia", "[", RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{"regWg", "=", RowBox[{"Append", "[", RowBox[{"regWg", ",", RowBox[{"{", RowBox[{ RowBox[{"consPurg", "[", RowBox[{"i", ",", "t"}], "]"}], ",", RowBox[{"eficacia", "[", RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{"regWEWg", "=", RowBox[{"Append", "[", RowBox[{"regWEWg", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"ewsinpurga", "[", RowBox[{"generaciones", "+", "1"}], "]"}], "-", RowBox[{"delta", "*", RowBox[{"consPurg", "[", RowBox[{"i", ",", "t"}], "]"}]}]}], ",", RowBox[{"eficacia", "[", RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", RowBox[{"qt", "=", RowBox[{"qt", "/", RowBox[{"(", RowBox[{"2", "n"}], ")"}]}]}], ";", RowBox[{"deltat", "=", RowBox[{"deltat", "+", RowBox[{"2", "*", "d", "*", "qt", "*", RowBox[{"(", RowBox[{"1", "-", "qt"}], ")"}]}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.4937119079292755`*^9, 3.4937120156318645`*^9}, { 3.493812784140625*^9, 3.493812816890625*^9}, {3.4938128548125*^9, 3.49381288421875*^9}, {3.49381291475*^9, 3.49381292321875*^9}, { 3.49381304803125*^9, 3.493813050796875*^9}, {3.4938130878125*^9, 3.493813219640625*^9}, {3.493813301078125*^9, 3.4938133215*^9}, { 3.493813386171875*^9, 3.4938133984375*^9}, 3.493813578984375*^9, { 3.493816722390625*^9, 3.493816751515625*^9}, {3.49381682009375*^9, 3.493816822125*^9}, 3.4938168603125*^9, {3.49381690821875*^9, 3.493816911296875*^9}, 3.49381848696875*^9, 3.493818517546875*^9, { 3.493818899703125*^9, 3.49381891140625*^9}, {3.493819854203125*^9, 3.493819872265625*^9}, {3.493820111703125*^9, 3.493820120734375*^9}, { 3.493908757375*^9, 3.49390887725*^9}, {3.493908915765625*^9, 3.49390893953125*^9}, {3.493908991578125*^9, 3.493909135625*^9}, { 3.493909177765625*^9, 3.49390924990625*^9}, {3.493909352078125*^9, 3.493909403390625*^9}, {3.493909441375*^9, 3.493909494125*^9}, { 3.493909560515625*^9, 3.493909649875*^9}, {3.493909709203125*^9, 3.49390971696875*^9}, {3.49390975103125*^9, 3.493909788890625*^9}, { 3.493909831375*^9, 3.4939098773125*^9}, {3.4939099569375*^9, 3.49390995725*^9}, {3.49390999909375*^9, 3.4939100605625*^9}, 3.493910142609375*^9, {3.493910173171875*^9, 3.493910200234375*^9}, { 3.49391034503125*^9, 3.493910347640625*^9}, 3.493910397171875*^9, 3.493910520875*^9, {3.49391071846875*^9, 3.493910771046875*^9}, { 3.49391081509375*^9, 3.493910872984375*^9}, 3.493910945578125*^9, { 3.4939109865625*^9, 3.49391099728125*^9}, 3.49391106546875*^9, 3.493911101875*^9, {3.49391115534375*^9, 3.493911167796875*^9}, { 3.493911250703125*^9, 3.4939112565625*^9}, {3.493911495203125*^9, 3.493911495234375*^9}, {3.4939222048125*^9, 3.49392221959375*^9}, { 3.493922484515625*^9, 3.4939224915*^9}, 3.493922544296875*^9, 3.49392261396875*^9, {3.493922855703125*^9, 3.4939228605*^9}, { 3.4939231955*^9, 3.493923199015625*^9}, {3.493923313453125*^9, 3.49392336390625*^9}, 3.49392341478125*^9, {3.493923517078125*^9, 3.49392354728125*^9}, {3.49392360453125*^9, 3.49392363109375*^9}, 3.493923680640625*^9, {3.493923882390625*^9, 3.493923888515625*^9}, 3.4939241300625*^9, {3.493924275265625*^9, 3.49392432303125*^9}, { 3.493924493859375*^9, 3.4939245081875*^9}, {3.4939245479375*^9, 3.493924552796875*^9}, {3.4939262045625*^9, 3.493926227296875*^9}, { 3.493961031571204*^9, 3.4939611417697983`*^9}, 3.493961248926386*^9, { 3.493967981285041*^9, 3.4939679854190483`*^9}, {3.4939680179139056`*^9, 3.4939680227967143`*^9}, {3.4939691820971503`*^9, 3.493969205871592*^9}, 3.493969593703873*^9, {3.4939696965704536`*^9, 3.493969703184866*^9}, { 3.4939699524889035`*^9, 3.493969953518505*^9}, {3.493970420926526*^9, 3.4939704224865294`*^9}, {3.4939705287851157`*^9, 3.493970530001918*^9}, { 3.493972070321045*^9, 3.493972074174252*^9}, {3.4939721131275206`*^9, 3.493972133516756*^9}, {3.493973120396941*^9, 3.493973135014167*^9}, { 3.493973390345445*^9, 3.493973435335924*^9}, 3.493973580400579*^9, 3.4939736296030655`*^9, {3.493973670927538*^9, 3.493973686941193*^9}, { 3.493973731289607*^9, 3.493973747981637*^9}, {3.493973813610552*^9, 3.4939738825470734`*^9}, 3.493973942653979*^9, {3.493973987410457*^9, 3.493974040809351*^9}, {3.4939743513122964`*^9, 3.493974380577948*^9}, { 3.4939744262392282`*^9, 3.4939744494676685`*^9}, {3.493974532678215*^9, 3.493974582629503*^9}, {3.494006856578125*^9, 3.494006859*^9}, { 3.49400728821875*^9, 3.494007352234375*^9}, {3.494007385875*^9, 3.494007393578125*^9}, 3.494007454015625*^9, 3.494007502984375*^9, { 3.49400798646875*^9, 3.49400799575*^9}, {3.494008448625*^9, 3.49400845653125*^9}, {3.494008655703125*^9, 3.494008656171875*^9}, { 3.49400912303125*^9, 3.494009125078125*^9}, {3.4940492236440735`*^9, 3.494049231646888*^9}, {3.4940493388190756`*^9, 3.494049351595498*^9}, 3.49404961437436*^9, {3.494049658725238*^9, 3.4940496917816963`*^9}, { 3.4940497558354087`*^9, 3.49404977355704*^9}, {3.4940498167691154`*^9, 3.494049818407119*^9}, {3.4940505752564507`*^9, 3.4940506330089216`*^9}, { 3.4940511703362656`*^9, 3.4940511711942673`*^9}, {3.4940513104713116`*^9, 3.49405131518252*^9}, 3.4940513768806286`*^9, {3.494052258796977*^9, 3.4940522675329924`*^9}, {3.494056626283249*^9, 3.49405663235166*^9}, { 3.4941360432154965`*^9, 3.494136103260002*^9}, {3.494136133882856*^9, 3.494136147267679*^9}, {3.494136193693361*^9, 3.4941361957681646`*^9}, { 3.4941363169647775`*^9, 3.494136439892993*^9}, 3.494136524015541*^9, { 3.494136594153264*^9, 3.4941366544317703`*^9}, {3.494155869875*^9, 3.4941558743125*^9}, {3.494155925296875*^9, 3.494155940515625*^9}, { 3.494156013359375*^9, 3.494156018203125*^9}, {3.49415628778125*^9, 3.494156343796875*^9}, {3.49415645903125*^9, 3.494156460609375*^9}, { 3.49415687846875*^9, 3.49415692746875*^9}, {3.494156970453125*^9, 3.4941570236875*^9}, 3.494157119828125*^9, {3.49415743978125*^9, 3.494157440625*^9}, {3.494157601546875*^9, 3.494157604703125*^9}, 3.494158331875*^9, {3.494158413875*^9, 3.494158442984375*^9}, 3.494158541234375*^9, 3.494158663453125*^9, {3.49416461575*^9, 3.494164828265625*^9}, {3.494164863140625*^9, 3.49416486428125*^9}, { 3.4942246521926174`*^9, 3.4942246737206554`*^9}, {3.4942247211135387`*^9, 3.494224762204011*^9}, {3.4942248053068867`*^9, 3.494224808052491*^9}, { 3.4942248400481477`*^9, 3.494224842715752*^9}, {3.4942249037742596`*^9, 3.494224912728675*^9}, {3.4942249755343857`*^9, 3.4942249765639873`*^9}, { 3.4942254875064983`*^9, 3.4942256668132133`*^9}, {3.4942257000568714`*^9, 3.4942257735486007`*^9}, {3.494225829037898*^9, 3.4942258561975455`*^9}, { 3.494226193953739*^9, 3.4942261957165422`*^9}, {3.494226270971074*^9, 3.4942263287535753`*^9}, {3.494226400170501*^9, 3.4942264653162155`*^9}, 3.4942265067498884`*^9, {3.494226550913566*^9, 3.494226659786157*^9}, 3.4942266947458186`*^9, {3.494226771482353*^9, 3.494226852726096*^9}, { 3.494226901560582*^9, 3.4942269128550014`*^9}, {3.4942270311032095`*^9, 3.494227044254032*^9}, 3.4942271273241787`*^9, {3.494227287068459*^9, 3.4942273299685345`*^9}, {3.4942273835078287`*^9, 3.4942274381235247`*^9}, {3.494227484330806*^9, 3.4942275439693103`*^9}, { 3.494227626789856*^9, 3.494227645837489*^9}, {3.4942276989087825`*^9, 3.4942277022471886`*^9}, {3.4942282302925158`*^9, 3.494228282771008*^9}, { 3.494228675532898*^9, 3.4942286804937067`*^9}, {3.494228718651374*^9, 3.494228816978346*^9}, {3.4942289524957843`*^9, 3.4942289719490185`*^9}, { 3.494229027781516*^9, 3.4942291550777397`*^9}, {3.4942299275598965`*^9, 3.4942299433627243`*^9}, {3.494229981582792*^9, 3.494229983423595*^9}, { 3.4942311220164056`*^9, 3.494231157085267*^9}, {3.4942313668588357`*^9, 3.494231371024043*^9}, {3.494232773405307*^9, 3.4942328642286663`*^9}, { 3.494232921371567*^9, 3.4942329372211947`*^9}, {3.494233094703471*^9, 3.4942330963258743`*^9}, {3.494233469119729*^9, 3.4942334774969435`*^9}, { 3.4942336016731615`*^9, 3.494233604215966*^9}, {3.494482078171875*^9, 3.4944821258125*^9}, {3.494482171984375*^9, 3.494482240578125*^9}, { 3.494482448703125*^9, 3.494482458*^9}, {3.49448251090625*^9, 3.4944825240625*^9}, {3.494482617703125*^9, 3.494482622765625*^9}, { 3.494501318140625*^9, 3.4945013203125*^9}, {3.49450157759375*^9, 3.4945016430625*^9}, {3.49450200309375*^9, 3.494502082078125*^9}, { 3.494502277921875*^9, 3.49450229240625*^9}, {3.494502729828125*^9, 3.494502758640625*^9}, 3.494655760270229*^9, {3.495092340125*^9, 3.495092490203125*^9}, {3.495092537046875*^9, 3.495092636515625*^9}, { 3.495092719328125*^9, 3.495092743109375*^9}, {3.49509280734375*^9, 3.495092813734375*^9}, {3.49509312528125*^9, 3.495093162265625*^9}, 3.495093209109375*^9, {3.49509327315625*^9, 3.495093275015625*^9}, { 3.495093315109375*^9, 3.495093315953125*^9}, 3.495093351828125*^9, { 3.495093404828125*^9, 3.4950934433125*^9}, {3.4950966883125*^9, 3.495096692390625*^9}, {3.495096773265625*^9, 3.49509678828125*^9}, { 3.495104928359375*^9, 3.495104948625*^9}, {3.49510509040625*^9, 3.495105235359375*^9}, {3.4951052965625*^9, 3.49510532696875*^9}, { 3.495105374890625*^9, 3.49510537884375*^9}, {3.49510569453125*^9, 3.495105698296875*^9}, {3.4951057363125*^9, 3.49510574203125*^9}, { 3.49520226975*^9, 3.4952022725*^9}, {3.49528914209375*^9, 3.495289249546875*^9}, {3.49529092959375*^9, 3.49529096140625*^9}, { 3.49529100903125*^9, 3.4952910698125*^9}, 3.495343739796875*^9, { 3.495792671390625*^9, 3.495792702453125*^9}, 3.49579273534375*^9, { 3.495793045171875*^9, 3.49579304715625*^9}, {3.496061703413583*^9, 3.496061705223186*^9}, {3.496163450375*^9, 3.49616360340625*^9}, { 3.4961640325*^9, 3.496164110640625*^9}, {3.496164169765625*^9, 3.496164175078125*^9}, {3.496164280328125*^9, 3.496164401671875*^9}, { 3.4961644760625*^9, 3.496164481875*^9}, {3.496165878*^9, 3.496165891140625*^9}, 3.49616630471875*^9, {3.49616638696875*^9, 3.49616639028125*^9}, 3.49616704321875*^9, {3.4974458654375*^9, 3.497445875921875*^9}, {3.497445981109375*^9, 3.497446015015625*^9}, { 3.4974460569375*^9, 3.497446112875*^9}, {3.497446765515625*^9, 3.497446768828125*^9}, {3.49744685825*^9, 3.49744686215625*^9}, { 3.497447450359375*^9, 3.497447496125*^9}, {3.497447563*^9, 3.49744756890625*^9}, {3.497447711875*^9, 3.497447730109375*^9}, { 3.49744778528125*^9, 3.49744779965625*^9}, {3.497447892609375*^9, 3.49744793471875*^9}, {3.497448054921875*^9, 3.49744808265625*^9}, { 3.497448270078125*^9, 3.49744831309375*^9}, 3.497448348484375*^9, 3.49744841840625*^9, {3.49744845815625*^9, 3.49744854990625*^9}, { 3.497448806375*^9, 3.49744884371875*^9}, {3.497448978609375*^9, 3.49744902334375*^9}, {3.497449060828125*^9, 3.497449164625*^9}, 3.4974498115*^9, {3.497449992921875*^9, 3.497449994328125*^9}, { 3.4974507505625*^9, 3.497450758859375*^9}, {3.49745079309375*^9, 3.49745079615625*^9}, {3.49745211578125*^9, 3.497452134484375*^9}, { 3.497452388765625*^9, 3.497452424015625*^9}, {3.497452614578125*^9, 3.497452643265625*^9}, {3.49746755025*^9, 3.49746755209375*^9}, { 3.49746769609375*^9, 3.49746769709375*^9}, {3.497467854421875*^9, 3.497467862109375*^9}, {3.497467906015625*^9, 3.497467951625*^9}, { 3.497467996359375*^9, 3.497468002078125*^9}, 3.497468209828125*^9, { 3.497468361765625*^9, 3.497468427546875*^9}, 3.4974686425625*^9, { 3.49746867803125*^9, 3.4974687220625*^9}, 3.497468826234375*^9, { 3.49746892425*^9, 3.49746892771875*^9}, {3.497468959359375*^9, 3.497468962453125*^9}, {3.5002896007366705`*^9, 3.50028965149916*^9}, { 3.505731638484375*^9, 3.505731672515625*^9}, 3.505731712046875*^9, { 3.505731756703125*^9, 3.50573189540625*^9}, {3.505747272765625*^9, 3.50574736*^9}, {3.505747392015625*^9, 3.505747428671875*^9}, { 3.505747495203125*^9, 3.5057475055625*^9}, {3.50575561603125*^9, 3.50575566271875*^9}, {3.5058894093125*^9, 3.50588941434375*^9}, { 3.505912440859375*^9, 3.5059124715*^9}, {3.50591264396875*^9, 3.5059126471875*^9}, {3.50591336159375*^9, 3.505913388140625*^9}, { 3.505994610875*^9, 3.505994629859375*^9}, {3.505994785859375*^9, 3.505994796796875*^9}, {3.505994935921875*^9, 3.50599499715625*^9}, { 3.5059952324375*^9, 3.505995267265625*^9}, 3.505995315984375*^9, { 3.50599540640625*^9, 3.50599544378125*^9}, {3.505995496890625*^9, 3.505995517828125*^9}, 3.505995889609375*^9, 3.505995942703125*^9, { 3.505995984796875*^9, 3.50599598515625*^9}, {3.508242233234375*^9, 3.508242242515625*^9}, {3.508417337296875*^9, 3.508417435421875*^9}, { 3.508417478578125*^9, 3.508417487421875*^9}, {3.50841881384375*^9, 3.508418830140625*^9}, {3.5091020778259935`*^9, 3.509102162502942*^9}, 3.5091039183770275`*^9, {3.50920373653125*^9, 3.509203737265625*^9}, { 3.50920381828125*^9, 3.509203824609375*^9}, {3.509203856671875*^9, 3.509203859234375*^9}, {3.686544925669495*^9, 3.686544933207348*^9}, { 3.686545041565494*^9, 3.686545047047413*^9}, 3.6865455746946783`*^9, { 3.686545705083108*^9, 3.686545732088127*^9}, 3.686545778825867*^9, 3.6865458233159294`*^9, {3.697360329782113*^9, 3.6973603374983892`*^9}, 3.6973604426883965`*^9}], Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{"t", "=", "1"}], ",", RowBox[{"t", "\[LessEqual]", RowBox[{"generaciones", "+", "1"}]}], ",", RowBox[{"t", "++"}], ",", RowBox[{ RowBox[{ RowBox[{"medC", "[", "t", "]"}], "=", RowBox[{ RowBox[{"medC", "[", "t", "]"}], "/", RowBox[{"(", RowBox[{"repeticiones", "*", "n"}], ")"}]}]}], ";", RowBox[{ RowBox[{"medCP", "[", "t", "]"}], "=", RowBox[{ RowBox[{"medCP", "[", "t", "]"}], "/", RowBox[{"(", RowBox[{"repeticiones", "*", "n"}], ")"}]}]}], ";", RowBox[{ RowBox[{"q0sim", "[", "t", "]"}], "=", RowBox[{ RowBox[{"q0sim", "[", "t", "]"}], "/", "repeticiones"}]}], ";", " ", RowBox[{ RowBox[{"q20sim", "[", "t", "]"}], "=", RowBox[{ RowBox[{"q20sim", "[", "t", "]"}], "/", "repeticiones"}]}], ";", RowBox[{ RowBox[{"pq0sim", "[", "t", "]"}], "=", RowBox[{ RowBox[{"pq0sim", "[", "t", "]"}], "/", "repeticiones"}]}], ";", RowBox[{ RowBox[{"w0obs", "[", "t", "]"}], "=", RowBox[{ RowBox[{"w0obs", "[", "t", "]"}], "/", "repeticiones"}]}], ";", RowBox[{ RowBox[{"tasadobs", "[", "t", "]"}], "=", RowBox[{ RowBox[{"tasadobs", "[", "t", "]"}], "/", "repeticiones"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"fneutro", "[", "t", "]"}], "=", RowBox[{"1.", "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"1", "/", RowBox[{"(", RowBox[{"2", "n"}], ")"}]}]}], ")"}], "^", "t"}]}]}]}]}], "]"}]], "Input", CellChangeTimes->{{3.495345681609375*^9, 3.49534568803125*^9}, 3.49745115240625*^9, {3.497452755203125*^9, 3.497452771796875*^9}, { 3.500289736238508*^9, 3.5002897403413153`*^9}, {3.501135576671875*^9, 3.50113580109375*^9}, {3.50113978240625*^9, 3.50113978271875*^9}, { 3.505747668421875*^9, 3.505747686140625*^9}, {3.505755720328125*^9, 3.505755731515625*^9}, {3.505761296015625*^9, 3.505761334671875*^9}, 3.505913057078125*^9}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.4974493541875*^9, 3.49744940303125*^9}, 3.497451058390625*^9, 3.497451142875*^9, {3.501135668390625*^9, 3.501135673*^9}, 3.501135767734375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"wmed", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"wmedia", "[", "t", "]"}], "/", RowBox[{"(", RowBox[{"n", "*", "repeticiones"}], ")"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"generaciones", "+", "1"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.50580083934375*^9, 3.50580083971875*^9}, { 3.505800902296875*^9, 3.505800902828125*^9}, 3.50842490159375*^9}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.505743773171875*^9, 3.505743773375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "t_", "]"}], ":=", RowBox[{"1.", "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"1", "/", RowBox[{"(", RowBox[{"2", "n"}], ")"}]}]}], ")"}], "^", "t"}]}]}]], "Input", CellChangeTimes->{{3.50575604453125*^9, 3.505756068*^9}}], Cell[BoxData[ RowBox[{"crop", "=", RowBox[{"lambda", "/", "mu"}]}]], "Input", CellChangeTimes->{{3.6968416324277296`*^9, 3.6968416569412284`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ft", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"f", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "generaciones"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.505760843234375*^9, 3.50576084878125*^9}, { 3.505800852328125*^9, 3.50580085265625*^9}, {3.505800907*^9, 3.505800907328125*^9}, {3.505913970109375*^9, 3.505913975953125*^9}, { 3.508415195875*^9, 3.508415196515625*^9}, {3.508417537484375*^9, 3.508417537828125*^9}, 3.6866402364037857`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"deltat", "=", RowBox[{"deltat", "/", "repeticiones"}]}]], "Input", CellChangeTimes->{{3.496164427171875*^9, 3.496164438984375*^9}}], Cell[BoxData["0.00041142727294050485`"], "Output", CellChangeTimes->{ 3.496164573609375*^9, 3.496166054890625*^9, 3.49616612421875*^9, 3.4961661805625*^9, 3.4961664284375*^9, 3.496166502671875*^9, 3.496166789015625*^9, 3.496166884953125*^9, 3.496167116390625*^9, 3.49616745440625*^9, 3.49616764740625*^9, 3.496167781578125*^9, 3.496168799484375*^9, 3.496169042296875*^9, 3.496169157484375*^9, 3.496202640671875*^9, 3.496202911171875*^9, 3.496202973875*^9, 3.496203118234375*^9, 3.497006295949131*^9, 3.4970066081056795`*^9, 3.4974496849375*^9, 3.497449832546875*^9, {3.497449889578125*^9, 3.497449929359375*^9}, 3.4974499985625*^9, 3.497450107078125*^9, 3.49745023509375*^9, 3.497450768546875*^9, 3.49745080165625*^9, 3.49745093015625*^9, 3.497450986765625*^9, 3.4974510745*^9, 3.49745112359375*^9, 3.497451158578125*^9, 3.49745121215625*^9, 3.497451297171875*^9, 3.49745197634375*^9, 3.497452138671875*^9, 3.497452561515625*^9, 3.497452648*^9, 3.497452779515625*^9, 3.497466989359375*^9, 3.497467355953125*^9, 3.49746755753125*^9, 3.497467871234375*^9, 3.497468216296875*^9, 3.497468559265625*^9, 3.497468764125*^9, 3.49746918365625*^9, 3.497469452078125*^9, 3.497469550046875*^9, {3.497469607484375*^9, 3.497469634703125*^9}, 3.49747007609375*^9, 3.497470144890625*^9, 3.49747028228125*^9, 3.49747041590625*^9, 3.497470525171875*^9, 3.49747087803125*^9, 3.4974710578125*^9, 3.497471333921875*^9, 3.49747187640625*^9, 3.49747205178125*^9, 3.497504736484375*^9, 3.49750504440625*^9, 3.4975053998125*^9, 3.49750570465625*^9, 3.497506511921875*^9, 3.49750669053125*^9, 3.4975068318125*^9, 3.4975089874375*^9, 3.497510900953125*^9, 3.4975111399375*^9, 3.49751180565625*^9, 3.497512121171875*^9, 3.4975123598125*^9, 3.497512451015625*^9, 3.497512806640625*^9, 3.5002901340236073`*^9, 3.5002903532819924`*^9, 3.5002906118960466`*^9, 3.50029848660493*^9, 3.500300255570037*^9, 3.5003008528014855`*^9, 3.5003013072302837`*^9, 3.500357894936298*^9, 3.5003587144525375`*^9, 3.50036096522449*^9, 3.5003649943303847`*^9, 3.5003655781354103`*^9, 3.5003660368894854`*^9, 3.5003676237502794`*^9, 3.5003716379589434`*^9, 3.500829153421875*^9, 3.500829511625*^9, 3.500829707890625*^9, 3.500829845921875*^9, 3.501136237671875*^9, 3.501136348203125*^9, 3.50113671840625*^9, 3.501138282015625*^9, 3.501138532421875*^9, 3.50113931090625*^9, 3.501139809734375*^9, 3.5011404828125*^9, 3.50114055953125*^9, 3.501140820265625*^9, 3.501140992359375*^9, 3.501141203953125*^9, 3.5011416545625*^9, 3.50565984234375*^9, 3.505660155859375*^9, 3.50566037796875*^9, 3.505660461140625*^9, 3.505660593359375*^9, 3.50566113709375*^9, 3.5056624039375*^9, 3.505665706328125*^9, 3.5057216565176706`*^9, 3.505732081765625*^9, 3.505733734515625*^9, 3.50573697690625*^9, 3.505737318734375*^9, 3.5057376729375*^9, 3.505744132140625*^9, 3.5057460775*^9, 3.50574798046875*^9, 3.505748157375*^9, 3.505749208546875*^9, 3.505752002140625*^9, 3.505756405875*^9, 3.505756578109375*^9, 3.505760875703125*^9, 3.50576136584375*^9, 3.5057749719375*^9, 3.505836654265625*^9, 3.505837359234375*^9, 3.50584180696875*^9, 3.50588385115625*^9, 3.505884263875*^9, 3.505884971453125*^9, 3.505889581390625*^9, 3.50589010296875*^9, 3.505913133421875*^9, 3.5059131755*^9, 3.505913239828125*^9, 3.50591340346875*^9, 3.505913605421875*^9, {3.505914395375*^9, 3.50591441903125*^9}, 3.50591456753125*^9, 3.5059146120625*^9, 3.50591572075*^9, 3.50591613578125*^9, 3.505917455828125*^9, 3.505919066203125*^9, 3.50594429871875*^9, 3.50599569771875*^9, 3.505995912890625*^9, 3.505996006296875*^9, 3.505997867578125*^9, 3.50600657634375*^9, 3.50602129465625*^9, 3.5061633727725515`*^9, 3.5061674773464065`*^9, 3.506230550504111*^9, 3.5062340638134823`*^9, 3.5072755765497904`*^9, 3.508243152390625*^9, 3.508418891828125*^9, 3.50842026165625*^9, 3.50842326378125*^9, 3.508424563546875*^9, 3.508424674484375*^9, 3.50843439490625*^9, 3.5091021814257755`*^9, 3.5091034971450877`*^9, 3.5091062280933175`*^9, 3.509123431703125*^9, 3.5091249848125*^9, 3.509159827265625*^9, 3.5091664538125*^9, 3.509203309671875*^9, 3.509211668125*^9, 3.5093515159897223`*^9, 3.6865458508396034`*^9, 3.6865460861357884`*^9, 3.6865463920850916`*^9, 3.6865466115614767`*^9, 3.6865483662664165`*^9, 3.6865546212783675`*^9, 3.6865558846213408`*^9, 3.686568539575876*^9, 3.6865813081806917`*^9, 3.686583127273012*^9, 3.686585478757783*^9, 3.686715249499323*^9, 3.6867830226540203`*^9, 3.686816485613078*^9, 3.686918416781492*^9, 3.6870736020450583`*^9, 3.687109190871769*^9, 3.687121772019226*^9, 3.69120745844044*^9, 3.6912587296758447`*^9, 3.69216278525942*^9, 3.6922198649876795`*^9, 3.6924911034031935`*^9, 3.6926059020837765`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"tasadeprobs", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"tasadobs", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", "generaciones"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tasadeprobs", "=", RowBox[{"Prepend", "[", RowBox[{"tasadeprobs", ",", "delta"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.505755823453125*^9, 3.50575586740625*^9}, { 3.505915060625*^9, 3.505915095984375*^9}, 3.508415517328125*^9, { 3.508417702328125*^9, 3.50841773546875*^9}, 3.696754485568025*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"kSelf", "=", RowBox[{ RowBox[{"selfRate", "/", RowBox[{"(", RowBox[{"2", "-", "selfRate"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"2", "-", RowBox[{"2", "selfRate"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", "-", "selfRate"}], ")"}]}], ")"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"4", "n", "*", "h", "*", "s"}], "+", RowBox[{ RowBox[{"(", RowBox[{"2", "*", "Pi", "*", "n", "*", "s"}], ")"}], "^", ".5"}], "+", "2"}], ")"}], "^", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}]}]}]], "Input", CellChangeTimes->{{3.686546922526558*^9, 3.6865469333320494`*^9}, { 3.686547024893635*^9, 3.6865471004947906`*^9}, {3.686547131899493*^9, 3.6865471901199985`*^9}}], Cell[BoxData["0.2741419292460757`"], "Output", CellChangeTimes->{3.686547194749012*^9, 3.6865473127711377`*^9, 3.6865483663029346`*^9, 3.6865546213614507`*^9, 3.6865558846984167`*^9, 3.686568539660657*^9, 3.6865813082526655`*^9, 3.6865831273520627`*^9, 3.6865854788420973`*^9, 3.6867152495683784`*^9, 3.686783022710846*^9, 3.6868164857224593`*^9, 3.686918416875248*^9, 3.687073602123187*^9, 3.687109190940524*^9, 3.687121772087785*^9, 3.6912074584976015`*^9, 3.691258729777114*^9, 3.692162785344139*^9, 3.6922198651021175`*^9, 3.692491103519045*^9, 3.6926059024865713`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PredDeltaSelf", "=", RowBox[{"s", "*", "mu", "*", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "h"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"2", "n"}], ")"}]}], "+", RowBox[{"h", "*", "s"}], "+", RowBox[{"s", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "h"}]}], ")"}], "kSelf"}]}], ")"}]}]}]}]], "Input", CellChangeTimes->{{3.6865469084393606`*^9, 3.6865469155894194`*^9}, { 3.686547198652839*^9, 3.6865472722797675`*^9}}], Cell[BoxData["0.0003454851377108382`"], "Output", CellChangeTimes->{3.686547274233667*^9, 3.686547312786148*^9, 3.6865483663164597`*^9, 3.6865546213754797`*^9, 3.686555884714428*^9, 3.6865685396777024`*^9, 3.6865813082677016`*^9, 3.686583127368141*^9, 3.686585478860061*^9, 3.6867152495840063`*^9, 3.6867830227238593`*^9, 3.686816485753711*^9, 3.686918416890871*^9, 3.6870736021388135`*^9, 3.6871091909565597`*^9, 3.6871217721034107`*^9, 3.691207458510126*^9, 3.691258729799183*^9, 3.6921627853597636`*^9, 3.692219865119463*^9, 3.6924911035353875`*^9, 3.692605902497632*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lambda", "=", "0.1"}]], "Input", CellChangeTimes->{{3.686799153143942*^9, 3.6867991576324325`*^9}}], Cell[BoxData["0.1`"], "Output", CellChangeTimes->{3.6867991587872076`*^9, 3.6868164857849627`*^9, 3.686918416922124*^9, 3.68707360215444*^9, 3.687109190973603*^9, 3.6871217721190357`*^9, 3.691207458523162*^9, 3.6912587298263664`*^9, 3.6921627853753586`*^9, 3.6922198651365094`*^9, 3.692491103551405*^9, 3.692605902509137*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Predicci\[OAcute]n", "=", RowBox[{"crop", "*", "PredDeltaSelf"}]}]], "Input", CellChangeTimes->{{3.686577903207034*^9, 3.686577927958881*^9}, { 3.6867654775366597`*^9, 3.686765481263973*^9}, {3.6968416689175205`*^9, 3.696841675797186*^9}}, FontFamily->"Courier New", FontSize->18], Cell[BoxData["0.3454851377108382`"], "Output", CellChangeTimes->{3.6865779292954607`*^9, 3.6865813083859587`*^9, 3.6865831274042034`*^9, 3.686585478906192*^9, 3.6867152496992702`*^9, 3.6867830227509522`*^9, 3.6867994986794496`*^9, 3.6868164859255953`*^9, 3.6869184171408844`*^9, 3.6870736022950716`*^9, 3.6871091910798926`*^9, 3.6871217721568146`*^9, 3.6912074586289425`*^9, 3.6912587300253954`*^9, 3.692162785475672*^9, 3.692219865174609*^9, 3.692491103707803*^9, 3.6926059030765624`*^9}, FontFamily->"Courier New", FontSize->18, FontWeight->"Bold"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{ RowBox[{"{", "tasadeprobs", "}"}], "*", RowBox[{"lambda", "/", "mu"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}]], "Input", CellChangeTimes->{{3.505756213578125*^9, 3.50575623021875*^9}, { 3.506147462139968*^9, 3.5061474807040005`*^9}, {3.5082245143125*^9, 3.508224524125*^9}, {3.508224736703125*^9, 3.508224771421875*^9}, { 3.508242374625*^9, 3.508242388875*^9}, {3.5082424334375*^9, 3.508242438109375*^9}, 3.6865669493910484`*^9, {3.686567116991293*^9, 3.6865671177725153`*^9}, {3.686567154446256*^9, 3.6865671557827015`*^9}, { 3.6867196767321033`*^9, 3.686719694745252*^9}, {3.686765426451262*^9, 3.686765434046567*^9}, {3.686765504968957*^9, 3.686765508322165*^9}, { 3.6867668929001193`*^9, 3.686766921745816*^9}}], Cell[BoxData[ GraphicsBox[{{}, {Hue[0.67, 0.6, 0.6], PointBox[CompressedData[" 1:eJxUfXlYzVHXdgiZoxBCFCVTEUK4UUqmVAhJKkRRNI9O81xn6nROGaIQQgiZ i5CxEELIXJnKGKLvPO+71nO9X/903a09rL3XHta0fw1y8bJd3VpFReVOexWV //z+35+GaSPUHzt4XVUF/QGnHCrG+j1jrAafnr9cy9q3JayOBHXzNttfMF0T hyIz5G/nMdbC3IAxkjY7GWvj1oRdIQ+2MdbBVIOof9tq2xAejOVxgx0F8xjr 4d3SJ3s6lrUmPBT7t45c4l/D2AAhlzu07numFWFDaPf6t9aghPEInL3fKzi7 D+NRMKi9mzXSXIWwEdpPKls6S87YGIGra2ZX6rVM+188Bnfip5YeMGY8Fn/M 17pEjWJsgqerpLUHZ/wjPA4f2lh9ENc0Ex6P1hfGXn0e9YfwBNSNHj7ngPw3 YVOUjB2sWBzyi/BEnC112LNyDNMnYekAXYfK502EJyN/vKBlVC5jM+y40end QjnXn4LoTZ8VuZuYPhUDJ7Ub+fHgT8LTcLo85kPvqz8IA5qFelntbAgLgI0b T9/rdPM70afjRvuvXSa/JCyYjgm2J6weh30l+gzYOZ3TVssiLJgB824mA/Qu fSH6TMR+6l43XthI9Jm4edg+xvdHA9HNEd5d3SvIgbDAHMJU3/Ko6M9Et0CX pHzhvFsfiG6B20EWXt6tPhJ9FtzstP1eZtcTfRbqykS3i8vqiG4JF0u/m512 1RLdEtNv5Xy/nvaW6FaIyjmo4dzqDdGt4Pzm3JLMEsIqs6HVsvBQm+B3RJ+N woDmW8GW3L41rFX+DVt0kdu3xgmd3brXa6m8yhw0Hiw07reP68+B4T/rGWFX mD4XffZXHCoYxfS5aN3s9mDrx9dEn4fVhXWuionM3zykffHyaTeY6fOxs+f+ ke07ExbMx4vIpalhP5i+AMu6nX7e/ILGK1iA0Wv1Cva+5/Hb4PLK6z8vtSMM G5xKjxQPdWF+bCDR2Bgsd6L+i23Q6fzADXcvcf2FKPMt/av7mesvhMHeaaXl BtzfQpTcandu+TZqr3ghPrntXSzbwuO3hUx8yOX0I5o/2CJi47aP08DzaYvT n/NNjey5vi1E/UfNPXWc69th6OnpVwfd5/p2yFvhbehfRfIR2KHfrZPDX/yg 9VFsh/33rOtvNdJ6UrHHQsulC3u2/UT17bGxi97eUUW83uwRvVCUdHQL4WJ7 7Jx2ZaPxkfdUfxF0wiR7pouofSzC5pTJ1tcv8npcBA/b1T5Gi7n/RThkMsl4 3D3CKovxxyl4zHgP4heL8Wx2ZWWIhOd/MerLlnV+N5PGV7wY0wYP+d7/Cc// Eqi+mpycW8TzvwQPVvxt7mfK62EJUjrlx08rf0X1l8D574OYxf94fTigClG9 nmwg+cIBDybcb3n2hes7QNdhtGKKK+FiB5jNP3+l3x6uvxRfnq+sSS9+SfWX Qv7CtfLRR8KCpZhWYz1tf+ILqr8UB66GHfB7SVhlGZoMO+duD+T6y3BqSM91 54cSv4Jl2Obc4rfxMddfBm3T+2Xav7j+cqx8+XdoZCzXXw7PtKiT+Zbc/3J0 en4/ZsxVrr8c7hPMhxru5vqOSLjuMrW5iTAcERWxyDWgnLDAEYv+tCs6uriG 6juipuPcG56Fz6j+Chza12dasNFTqr8C+c9X9nZ4/ITqr4D3lP67XtdWU/0V CNdvMl0NwipOuJER8/ruW67vBJ25HbC8HWGBE4oKdof3fMj1nVBZ5qa/OeAx 1V8JL1/nG+d6PKL6KyELSOlZaPWA6q9Exu53+m/rCRevxBmPCx6xiZVU3xlj e5lNLp//8H+xjjMmNV10269TRe05o3LIj1cdHhJ2dkbXmJc7WwdTfwJnjHo4 XmdbOuFsZ8zbYT9mQi8qX+yMbf6dJnw9T/zWOKPNZd25+XtpflRWQcfdzCrW jrDOKhx6p5unGEnlsQpdbRR9dWy4/1WI3b3CwMyc+1+FY6pq988upfnJXgWx dfCLjJk8X6sQNfDX3sBiwjWr8ClQ8nyXHc+/Cx5OuzB012LCOi5Y890iqH8e yRcu6Oz2/UrZEZK/swtcStKa7c6yfFxw3njlqYkN3L8LtB6WJGoPJ/6LXXD4 oHGwygrit8YFr2f/GDGimuXniua9tvXXvhLWccWwBTsnd9jA43fFfO8xX35L efyumLRDP6m2lLDAFbZz9n9cEUw42xUdEhcPKdvC/bvi571/sWoTeP5doWm4 B5UHSN4qbtDovrRlxnriT8cNg+ck7fBQJXnADRcHiB9Vveb+3XDyRsuIZ0Kq L3DDUesHt/vvJ5zthgCnKa30R92n/t1QeU99wPhMwjVumKPp0XpxFWGV1Wgz fcP06hm0HnVWo8Spt8krV6JjNbTsjHvdPkHYeTWebTNJnjSGygtWY6jWsM9T Xe5R/6sxruKY8KQG4eLVuNlwafXEg3ep/9WY0nvsYfWZhFXW4MZ9hyStaVRe Zw1qZ36tHqBDGGvwSho5YUM36s95Dfb53Znl1pXogjUIj3Eu8B9N/GWvQZdx /TX3jqTyxWvQ0uNZp1MthGvWIFd9tl9kOO+/tTDWP6rzrJTq66wFXPdm6/6m /Yq1MMraaLnnCM2v81rcrn974OAgkqdgLX6PmXpK8p3331oMC5nUpb0p77+1 cA9ZgI2ZvP7WInl09z0rFYRV3DHzzT6HWb68/txxPXGBV+FClr87UpyMLY/x /nB2h2SSY7ufzwgL3LG5+7Devsm0H7LdsUbeveeLbbR/it1x9kBy4UUXote4 473Fv/0bNJ9T/+vQsldtxeFeVF5nHZYULD5RNZ7Pw3Uo75/9MCSFsPM6nCnb LLhty/2vg2Pdrq5aC3n/rYN2myUDZm/k/tfB88ePbT31af/WrMPePUVt94zi 82c9brqrvdet5P2/Huf7jFs5ZCDxh/XIH3uwzQMd7n89TCUNbQ8d4/7Xw/nI 8LvrWlN72euhI7Zc4aDH878eEbLRBd18CNesx3inxk5v1xBW8UB3ifegNB0+ /zxgOaTiTGe+P+AB07/LnqvZET/OHiiJOHHxxRjCAg+0/bpzUUAvGl+2ByRl FTNbFvN95wFRhxmX8gdR+Rpl/aN3czULWf6eGFccnXB+EvfvCb387FD7B9y/ JxykZd8mOfD4PZHT4HEiuiuff56obn71YtU/aj/bEyKB66q+DnxfeqL8Tblg 5kLip8YT9zp/HS2x5ft3A752lcw1fEDldTbgwbxhh9ML+D7egJogeT7akD7g vAHXHh6OWV/I9/sGvLSLeLLclnD2Bmzvv3dgpzzufwPurdtj/mQSj38DbI3U FrruJf5VNkL/hqjX4WBe/xuhEfnOe9oYHv9GyOZd/6Qhovly3gjL2rX1fjd4 /21EwLKyDRb5hLM3onNCyIgwAz5/N2LRaeeemh58/2zElNfaw9+V8P3jhYDM M3PbjOP+vdBQl93qAO9PeEF4YZbeVgOefy/MPuuzsq0X6xdeUN4OmlZ3eP95 QePAd5NeUdy/Fy4czIjs3pv3nxcu9Y7oHGjC698bXt0Vk9SXEV3dG+Ptjpue 705Yxxv5kzMMFW60n4y8oQjUfvnnH/EPb6x4OT7evBuVt/HGvGXPZpg/pPad vfFVefyOrKb17u2Nz96TTUa04/vLGy7X3u29fo3OP6ESR8bPmNhC51+2N7rZ P3yvv4HOvwJvJPYvbfvQjs9Xb1Tdedo3zJjKV3gjNrNePMmacI03fnxo6Kr/ jnCDN4bVrXL328z3zyb8VZ1S8r7mDo1/E8QX43LzYuh+0NkE/Z5/JvqEldP4 N2GIRfwCp3jC2IQZm0545b6soPFvgs2Nbo5vOtD94LwJh05bZGxMoPa8N+HN BIMphzWpP8EmDDo8ddHZshs0/k2o3q1j+zboNo1/E453c98RlkXlCzbBwGVj v/Wm1F7xJsT6rwqP8KH+KzZBa6z9kopZVL9mE0I6W3j3CCJ6wyZ01bp26Z0P 0VU243bN597HhhBdfTP0e9mZv5jP49+MCrXZQcXdCBttRtr3d8c/6BI/2IyH uT3ui9vy+Dfj0LpGsxvtaH6cN2PZBYV8lCrRvTfjz6Wv/nkdCQs2I2mm49CC PVReuBmde7V7fb2Kx78ZZVN7IGQa4YLNWJeQt7WDM9Uv3gwt55lSu4HEX8Vm TJqlc3O5Ls1/zWaIasa23BcSbtiMlscDXlRlEFbxQZyLz+LkP7Se1H1g1im5 3SQ3Wi86PviPOSg/SevFyAf5Fwu6DF3A+rEPrEc3b24aT9jGB3v/XfSZoM73 tQ8GP+lsfcCE178PvA4/H3oinfUnH1SnR12ZuISw0AeBT1QzZnXi+8wHF9cO zplkT/u5wAe3OnZtunyI97cPlidmbl/zk+pX+GDClhUZw1N4/fvAXbo1ouUJ 0Rt8ULg0bpx+CZ//vlh5yT5kaT9qT90XsdcuWjh+In51fNG68OfXk12JbuQL 2ZGqFQ/f8vnoCxPzxna+kdSejS/8z1pfuHyD9UVfvB9g+aJWi+jevqisP3Cg 9Xfe/76wGhzqfYH1WaEvhHMz+6ib8Hnqi6fvnwja2RK9wBdX66xsf5ym8RT7 YpZ+w9fo69R+hS++5JsaaSbxfeuLc3amp3q5EW7wxa9FTy3F0az/+mHsbadx 8yNpvtT9kFPaFKz2jfUxP0xqGfU+zIXKG/nh4V5tyeUprJ/5QVEqvNfVn8rb +GGBTln/Ho9ZX/SDWc+hMx5dJ7q3H97VuHSdc5PWq8AP3yrcPmy6SetR6Acn v/77h/F5mO2HLgd7dw6YQLjAD+2+/Vr5xpL1az+0Ctk86UQSn39+2PbYxl0Y xOP3g0nA1HkBeXz++eGvvkaPUk0evz+iZxgevWRBWN0fF5wMW3Sref3746Wb /yb/WGrPyB+HDl8YP2IJ2yf+qBz74kzjXV7//qhNDbMKKOfz3x8t4y7H172j +8PbH1pqBr/XXWP9wR/XHs+5UNea1rvQH42G6i+9nKl8tj9OTXSyHupN9AJ/ PJ+cOnPQULbvlO1fGZiSdIDu9wp/fHF+KztixvedP8Y/+l5Sm0f0Bn90tx1i 6jqL9AOVAByJFk16ep+wegDintmsaayg8joBGHnu0cXyfkQ3CoClaVZzdAlh BOBoy9Nn3buT/mETgCBrrd4OC4l/5wDY+aV5Hsrk8Svbs/iSjuusPwZgqryV vVMVjz8Ad667tJ80jfXJAJyZ/Wt8fSrv/wDEv1fssdnO6z8AT/NOfwjNpfmv CMDvk9aj69YSvSYAMx1v/DhWz/s/AH5ma7LHhJN8VQIhfbF13NbFLP9A5D6o XzUgj+3BQDTvH/J2cBxho0B02nd85oORfP8HwjTo5I6gNbz/A2EQPmBc0RaW fyB294zOiFlO8vAOxIt+90PO7qL5EATi/drsWm9dmm9hIFZ/73py5ivWZwPx W/2t2oEcwgWBOOR7IWnaGNZvA7Fxqpvg9xDCFYG4teB59vCVJI+aQBQ0fdk7 xpjoDYHwPDl0T2VX1j+DkFky7JygluUfhNqp0kuR7O/RCcKRWCPdVW4s/yCs 7aWT0KuK7YMgpDz5HXLmJ2GbIFT16qw9NYPlr6RH7hutGcTjD0LPIq3nX3ew /hYE5wnXjn3+RFgYBJO2g7qNXc/nXxBsPmUNzHEmekEQVg6xWJhiTrg4CN/v J880MSZcEYQLeXNMTlwmXBMEA/3uWoMHUP8NQThwS6T/xJb9V8F4tm/2qdJl xL96MNTfDRcXe/P6D0Zbx/UZs9+RvI2CsUipXaA3yz8YQ9c93jnlNOt/wZjp Zqm4pMr+kmAMidoddf4vjz8Y8xcNvjO3iPXnYMwtFe87xf4fYTBKGy3Mf/vz +IMxfrRhjDb7uwqCcfi2sU5IGLVXHAy3q1VZ+1OIn4pgONlEB5lM4v0fjBfP Zmnm5lD9hmDEn/+ypIX3j0oITI319DUC6DxVD1Ga3xbrr57m8z8E+f9e33hn Sue5UQiy3x6MmhtC9RGC0Yd6imJu8vkXgoZjuSfe3eT7PwSV0R/1XUP5/g+B 9Fhi96232D+npNd/N+1/l/XfEBQ/uDYlwp713xCc7Tfg/qX1fP6H4Gf8yx2u ItZ/Q3DYckHL1ZOs/4Tg3Tmdqr1i1n9CYBYUPvXkXyrfEAJ1hfOe5Xqs/4ZC pWXonm0fWP8JRca2tFCvbaz/haK46e+PiqXUnlEoNGr277x0lP0zobj7zvP6 s35U3yYUd8b6PRiaQvWdQ+HS3VjSayvrf6Gw+lafdSyM9b9QbNC9+KplDGFh KC7kvz5v5HuTxq/s//Ia3WOLr9H4Q9HTTqfeb8YtGn8odjQ8eaRTTeUrQvGr /Sc3aRLpkzWhyP28PNPqAemrDaEYldXa5YkHYZUwWP5Z9/HqBNb/w/CwqPuw GmPiRycM20fWNZr3IWwUhi8imaRPEfWPMIjH5okaowjbhGGCqXhu+VnCzmFw /lBx6dU4Hn8Y/s7ZOjTsPfErCMOanNjZN5aTfisMQ/eYmtZ9T/D4w2A2rxKr zrP+G4bauO4Xc+ax/huGz6uP36uTkHwqwlB6/pB39Vj2N4Vhxy2zOYO7sP4b hqafmWtaz2L5h2PWlObCDl6s/4Rj4ZwFJu9r+f4Px8G27S9nbyNsFI7iH5Ft 3z5k/1g4uqi8W9I2lOUfDk+TVu3HmbP9E46BP4IuFa4hunc4xtSLpgSVs/8u /H/PCz1qXxiOvueyPhssZn9mOC4mlhhPfMX2Xzicfo0ojzrD+k+4cj2Yv+g6 mvXfcMR6bFAksb5UE443LkY5obv5/guHxrbpA9U+8Pi3wKpNxzjv7bz/t+By 47rJElf2R27BHotuXeNdeP9vgV9j7maV9bS+sQXGVV2e9BrC49+Cq+1KFPN3 8vi3wKmD4FbPEsLeW5BvF/BTrMX+wy3Y4HrlU09vqi/cAse7P+y/TiecvQWF fxWHVTQJF2xBmHxBbZwr+/O34O3l1UVP17L+twWPbw7aF9ODx78FRg91Fzn2 Z/13C+plv+pjO7D/WYDoBc76Lx/T/a0mwC61+YPXXmF7QIDZ+UerL6wkrCVA 8YEmRYo7xwsEEGtN1qrtTv0ZKLHw8WILji8YCRAxbeyFO2xPmwrwccOSziHn iQ4BRjj+2Vv8ifi3EiCoU/cVU6TUvo0A5vtV195UIf4cBPhca/XTLJ74cRZA P/d9YORYorsLINufo3jagc9bAWrrhW4DRxIOFMC3anDX8DjiVyBAuHz/zt/f qL94AaySjR6aTGd7RIBlG5b2qfUjulyA9wOX/NXrzutTgN9jZZdataf+8wRY 2nnH903j2F4RYEhEu6xJbC8WCfDVKib40hXW3wRwneQ6P7YPjb9MgH720ySD 3vN6VvbfxvpXC8u3SgAf2Za+r9meqxHgpcfLn7PLCNcKIKi6m7NvAOv7Ath9 S2gbl039NwlQdbT+xcRrLP8ImOa+an7+iuUfgQnNETF7LtB9rB6B7B/ViRZS wloRuNfz3/Z6F/aXRqByiJv7uRqiG0Tg/qKhOxXJbC9G4KnTm1cfs6h90whs DhwVNMyF7ecIBMed3F9WSuWtItDs9SnQsT+1ZxOBd1X9R/WcQP05RMBn1t4S yyXsD4tAdcWNlQ5+VN89AiFTznYqYvvTOwJT/RYq2qcTPTACXzzGjevbkfWP CNReH5j04SLh+AgsTXHcuJb90cIILP+0aY5NLWF5BFqHLe3uqcH6aQSuf3j5 IfkN6ZN5EWhjm+/W3YRwQQSWpM9KN+xL/suiCIwvdBR9PcXx1Aj8+zHcLlKT 4q9lESj8efa7rzvhiggkr42dOUSV4r9VEdhxPbRvxy9Er4nAldddjL7+pfZq lfJaPlM1gOPDDcryY7rPbh9O8eSmCKQpdvjbDeH4cSQ8vng/e6JOdLVIzA3r Ni/Nkejqkbg2LXV65BSia0XCoOO5qy6q1L9OJNpYnH+qV0X9G0TiysrZeeW5 VN4oEhPEKzPDJlJ82zQSa3f8q88bxPHqSLQoikd4xtD8WEVi3507GTc0qD2b SIxdVb+t+DrRHSJx7lDjcPebpN87R2LG9yXqc94T3T0SGXMW/DX4TNg7Etop 6yQFZwkHRmLLlqI+1XqcTxEJ0bd1Pf9OJxwfieq6F8+6jSH+hZEIG3N8ecRP ossj8Wq5hee2y8R/diT61Y67M+Mc0fMiMerT99zWT4leEIm+XU/FfZEQLopE h1sdxm3X5XyGSBwpbXN9jzbJtywSn1cYtI3k9isiER3juHl3HLVfFYnn/jtP zed4fE0kPu77Nb/hCI2vNhK5j7R61+cTbojE6B+TYkzFhJsi4dpv7oD90Ry/ j0LDpXvnai5T+2pRcOs12KAlhOUfha5PNg3Y94joWlGw7e59Rywk/nWiMK6j wKBcg7BBFLQjhw/KjqLyRlEonFJraTyKsGkUMu84lAZxvg2i8OVltvOuFcSP VRSu6D7TN+nF8o/Cp/z0eK9i2m8OURi5cGpM7k+2L6LQx+Vl6MODtN/cozDo jqzt7tO0PryjYLXtVFx0N8KBUXgweumKcjnVF0RBvUPexBkLCMdHIWLD3287 xrE9GoWABUHl1c/ovJFHYb5Wz1MGk9k+j8KKq7t77yqg8yMvCoYjT3arNGd7 JQrZj1dJa0dS/aIoLP7jq7TAqf3iKDyybJyccYzoZUp+PgRtUY0lXBGFHu/a Nk8F8VcVhQ1u7rHbnTiepay/4+HRNPZv1EahbfXX5nU5bO9F4W2P+ssjehM/ TVH4nv6qURjD8adoGGzI0F24iLBaNMotguPDTrE/IBrBKtO9aszpPtGKxvdW RcLwL2wfRSPgjFPm4GLSZwyi8Uu3VNNtJtsL0XjzvKPq09OETaMhk54pb1zI 9kM0woQd1WxTiW4VDXHe2Yv6M0hfsInGzxlD7i47Tvq5QzQq8wu76BkRdo7G i8Wd6yI7k77tHo2bl80WOG9nfTsatyNd96l1pPKB0dCseGA3ZTjrX9GIX+U6 yaYNjS8+Gv8JR/34yvpYNA4s962TVRK/8mig9eMjntPZPlO2d/9j+N4nRM+L xmcPvQ4XF7G9Fo0LS84H2mTSfBZFo+RmQINGe77/o1Ew7trf0NlUviwa0yZ4 6Eewf7IiGm3FlWuKw4heFY3asx5+z4azf1fJ7/Vj1u7WfP9HQ/CzefuV4XTf NkRDx/Zi6/m7ab02RWOT+3iTjuxvUImB/ug/U9+sovtNLQZaPe6rWHP+g3oM FtitsLVcSlgrBrpaP9aPv8zxoRiY3f+gcXcErT+DGFy6EudheYn9JTFojjvX 558Z7U/TGJi3LW/r/5fjezE49LC95wtPwlYxOJje9/2IUqpvE4Ogut0vNOpp /zrEIGLz+MDTt/n8j8GcQePE+9YSf+4xyPuZpL6I97N3DKwThvZpPZvogTHo Iz0y+L0xx09jYBwwctBAE6LHxyDZrGXE3J7sj4tBhWjO3feXaf/IYzDg+y61 yQ853h4DlYNvhy5xovJ5MVB93HloIetnBUp+59vuT93D8o/BzqUtlaufcXw4 BhfeWEQo2H9dFgPp7zr/kXKSd0UMNJZ1KZ5yhdZjVQxuZj+uMfdl+z4Gh21/ Lc7pReu7Vjm/hkcvxexjey8GqSN7rhakU3tNMcj+FVhaGsn5D7FI8ep5xE9G 9dViIUiafKPPT44HxaK/bcpzx1LCWrGY3lw3InsK2ac6sbCz9NRevILsc4NY XO1ZE93pYhnJPxZpX69pr5hA5U1jYXFBr80hBbWHWPwJvmP8+zXtX6tYnFL9 ul7Sn+xdm1icVY2y/LmAsEMsXhn16TbBgOo7x+L1tY+9VFxoPO6xmLQ8wLD3 Ko63xcJ2zdxEh3k0H4GxmLL8gtbsYPa/x2Kbme167d6E42PRM96+/egG9sfH 4vryrGPDM4kuj0XTv3Yf78exfRaLF8GahywHET0vFkc7ai8cbE38FcTi693n Tx1TyR9RFIsd776tctGi8RTHorGhVvjmE+GyWAzptqP8yVf258Rituq3zsP3 kHyqYtHuyOCl/gGczxKLva9ChIdTWf6xuKBbnllqQfSGWEwd5uig4kj0plg8 e9v11Ylwln8c2urdaf1+NGG1ONw1PvqjwxjiVz0OwvVLp4WfJPlpxWHPClnx z3j2j8Th0pdLr+tMCRvEIVTNxSFsJMdL47BmX9zvz/eIbhqHruPbZ65ifwji YN9venknR+rfKg5anx8XVVnS/NvEYfjX7PqdjB3i0BFbwmx82L8Uhy42I8ct 6sjyj0Paz4rhSYfZ3o5Dw+t7rsuvsPzjkBWSc2ThEbb/4jDt/JfUkkCSZ3wc ZgeNqnwpZX+csv29bYTd2/P5H4d9OQs/997J538cFlnOiq30JJwXhyvRL6tK 7QgXxOHB5R4hXYZS+0Vx0Jk93rz1WI7fxuHUzZBRb1JpPsri0O3bAemvXSz/ OPhOUTM940m4Kg5Tbquvd3nK+185X8HrRlt+I1wbh8+zOhuUqBG/DXGobWVT F+3L+z8O4gEuK1NPs/8/HuWiSOllQ8Jq8UiyK7bJ1GF/kJJemWOwgPO1tOLx 8NxEwS4Z2//xkK+9/jXGj84zg3gItE9fsX/H8bJ4nMzud37fCMKm8Ugf/KdO bR37T+PhoS8tN7Om9q3ikbfE9GRACMs/HrN3uk5dYsv3fzxMC3uoPjrL9388 umK9hv4Eml/3eNw9dXzlQvZvescj23r+RserNJ7AeNgYVjx14/tSEI/brfYY aTA/8fEYYxmqmdXM8dh4HBo055fuDjqf5fEw8dxbXM3x0+x4LOquETRhMtv/ 8Rj2vWOBySLW/+IRXHm2fecT1H9RPNo/aBO4bSXf/8rxrDm+VZ/lURaPZ77S ub3/a//Hw01lf8ThI9R+VTzsC2VDr/XmfK54tEv2XwFvmv/aePQzH1Qk4Hhd Qzym38vd85njhU3xsGrOWlUo5/hvAhT7wjUC7xO/aglw9vlzt0yT7f8ETFPr McRjO91vWgn43uHPnRtt2P5PwNwzNoHx/6i+QQKkxUmu10rY/k+Av7R1orqM 2jNNgPt2RzudsRw/TIBTROfpY1rR/WuVgA9fhxc87kb6gE0CbF+0O4ajpG84 JKCT9fmWUCvW/xNwtbH2/fZBxI97AtbF24izUjnekIDd30/llOlS/4EJeLog bfySXpw/moBHLbuPuDwlHJ+Ak2ru/3x3sP8nAaM8V97dz/EweQJuS40VMXc4 PpGAtZ8vBapupPbzEjA0OcjIbDbHaxKQk/7bePUO4q9IOb4u0wQp+Ry/UM5H 3zlpT0NZ/09AVnK7mwM/03xUJGCr5VGTpxxvqkqAhXPfbxpnOb6TADvnk+f/ PSZ+ahNgLlZuMCuiNyRgolubOpd7rP8p59Pv0a+yANb/EmEvnfOq93bW/xJx /dazuEY11v8SodXL6vuMoTTfWoloSlNVaP83XysR6eYdujw8R/wbJELnWdvq mCKOFybCWKT925Tj76aJWNP67xSjLZzflIhBdR0/3uP5tUqE9fOWwZdi2P+X iA9GN2bOucT+P2X9YTlPHNk/6ZyIXlo60xKmsP8nEZ0nfnT+I6D59k7E1Hjc 0brG8k+ExbU+TRc4X0qQCE/fYR1eHyQcnwi/dmE6BR1ofMJEfL3kvzpGyPZf Ip72mOO4lPXF7ERMTx5kfVnI+l8ipGrbkyeP5v2fiO7Tfz3f+JFwUSLuH7Gu U2zn+F0iPuLdljZuVL8sEXslenHtkzmel4j6005qe4/x/leOb0Zyfdxwln8i Aq3bv2/ZSvTaRCTp3L7Ugf1vDYkwuGGZIN1G/DclImfG1CO973H8Lwk5WzTb uyTReNWSYDbjrNvdnrT/1JOg59e4oWAW+Q+0kqA73M3ObgnZ5zpJsHjwKk6j Fft/kpCyPK/KV0DYKAk3nT6uFN4gfd00CUoDvLDXRWoPSdAIi1+SY0V0qySs PbVlWjd3otskoarU+1V0b9b/k6AyqoeeSh3r/0mojHraSd+N/T9JGGCzYe/r e2z/J6FvxyUXFlrTeAKT0PZD4ZbDmzl/MAmeAe+rXrP9EZ8E/+T8sEh+TyNM QsuIxicejuz/UbZvcvvUJ2eiZydhg1pd9PAn1H9eEvpd9fy4cxDhgiRcU2tw Gu/C/j8lfXukjttTfo+RhEvLL9Wmzyd+ypJwaM3oDdevEq5IQs0etYlFYcRf VRLOm5djGucv1CThV5JH112c31qbBMeHQasNmgg3JOF66uLwlx3o/GhKQp/E GI8WX85/SMbr14/QcwzLPxkun5bNmBrP8k/G15KHoa0uEtZKhnj9kuz0rxwf TsbCxz+jy2KovkEyIho79/2tT3SjZJzoW7Zu6grCpsry+2cFmm/k/IlkuAZd LtFw5/M/GY+upyfN0OZ4cjIkjkv/em4huoOSv9az14915nzYZEx8uP2qTIP3 fzK22F0ZaZ/P/t9krLx+7+YGvt8CkzHWpHNKeiznHyTD6Jhh//an2P5Lxp1G V6dHvdn/mwzR03mmZpepP3kyZO+XuVfuY/9vMk7p2ibsvEH0vGScrCsPzy2j +gXJyPGrXeA/n/d/MrR7vE455cD5W8kYeF62czK/3yhLhkWn9kG+yzifIxkh k1IXf9hDuCoZG0z7vcjx5fyeZMzu3PhvFMenapNxK/2eUddi9v8n4/ofR9HZ DPb/JyPL/FzNvWqOf6fgYEXWmy5z2P+Tgs3bdmpsA8d/UlDWc36HCzfY/5+C i1ZBP7vzeaqTggU3Z3qdHsX6XwqiLtT0S9rI538Knom3teyYw/pfCk5M/VEa zflUSMH4VI/Fwl8c/0nBT52z3/t0I2yTAmsNjaZ3Vwg7KPGqZ6/m3uP8qhRM O9BrcONZ1v9SsP2puiKP9XfvFFybN8D5517CgSlY4uqm9yCM4+8p0D83J8b+ I/EfnwLHQCfD8WtY//vPfPzzaEonujwF0hXBFq04fpidgvjUjgk7W7P+n4Lk P/Vtfz/n+E8KvjWvy5n0lO3/FGialdddKuX4XQpepDjtuPGW+C9T8n8458y4 YI7npmDLgKWHqxax/ZeCjPDAuRI1wjUpGIj2z7rLyN6qTUHelB7a0WwvNqTA 3Ef752oDsh+aUjDlybhjBuc5/p2KHevzQ+efYvsvFVIvq3HhPtS/eiqmuY+w me7L9n8q1loLT8g2kr2ukwrnE0EXDvZm+z8Vg3Klf2vWEd0oFZf7ucToNVN+ q2kqTNtpl1gMJYxUXNlY91KgT9gqFdaGA/bZfKb2bFJxxLlfo9tJ8ic4KMsb TKspukR051S8t9SJvF1G2D1VqT8brJ37hvr3TsUYLcH6Gg9qPzAVQ/o+nf5h 7lWSfyq+jf80Vyf3Msk/FelXjJeH1BJdmApbSfkLdWdqX56KHx0Guc/7xvmp qegkWCm6FUXzk5eKBzpO6w7kcr5uKuLlEnltIdGLUjH4xZL4+mv8PiUVT+tX bmmxI/mVpcLL4sJjPw1qvyIVspIL/tvfEr0qFZ+zWzo1Huf8hlTETAqY93gN 2/+pWG+61Uh+gvN9U/Hz3Lld4kZqrykVkdtjzm5rpvoqadild02rdASNTy0N N4z/Y+DQfKmnQfFE8Sb1MWGtNJSPeONw2onK66RB7+qi12mDSD4GabA8/P1P YTH7f9IQsePMxuW7aX5N0/BCc6D77ZlXSP5p2Pre5K7tL2rPKg3j3WcutSuk +bdJQ3WFzGxtJfXvkIY6pzb/bjaz/ycNYQ4Nui1Swu5pSvvOrUlhzvJPw/aS TQeOtmL/bxqcV4us7y9j/28aTvULGTmQ/dfxyvK+W/oUxHM+QhoaD46L6NaJ sDwNh6/oth7Yhe3/NLiUhd7tB/b/piHF8N3hQm/2/6ah2cLtWHgq239p+PTr +/YhnF9QnIaEb08eRnyl86EsDW+r1p4Zrcn5rMr5LZi856QV639pkA1wLt79 g+2/NIR3fXnqoCvrf2lY8fvcpMJx7P9Vju+ic87Ct3z+p+HYy61LJYf5/BdC f5h7D18f4k9ViKxB7s8/GxJdTQi9wNJ1HX4T7ixE98WZN8zVOD4gxE//myWF DVRfU4jgixIn7W1E1xJiVJ/BrdctI6wtROLBtCnGO/m9gxAPRbrbIrrTfaIn hOJ0+9Krl9ieFOLq+6ATVzj/YIQQxxeMqz3lw/alEDsT3uVc4vcbJkJEpA14 dYjjuaZKerukGdasL5sJ8fbBsvlNWZy/JsS2uh5/Gs3p/jYX4p3L254uZRyP FuJIYsSFfX2I/7lC+GiOvb+H/fM2QtyZdVf8/jqN316IMSvi7w/cSfJ1EELj 8Pqyn6q0HhyFaLw7z0Xdgco7CzHYRn1BAr8Hc1POl/2/42f5fZu7EOrrp64Z mEP1PZXjWRUS4KdF/XsLUSy/ULlqCcnbVwhH2eEbDc/Z3yFE1F+Lqf3/UvlQ ITZbDC9GH86/FkIuO76pVkTzES2Ey/1ZLl7lbA8J8ay/2ha/TqTPJAux+pHX tXkFrB8JoXVqon78XJo/qRCpTQbjf6mwviSERbtJT/SuUvmtQsSuLZlZYcPv hYRYE3397ioHoucK0XXBxZV7iqn/PCEK1ti5ufJ7sXwhFo/ZnflvIdtXQmT8 X/4LhYjPzbu8+SnJu0gIBzOb1j88qf2zQphmaxQkVbD9LcRv47eHhrym9kqF aEqxj8Y9mp8yIbbeGdQ6m+2rm0J8rncffTyQ9TMhqoN9difxe9hK5XqKT1Ms Wkf9Vyn5Dx4xeLQN8VctxDTpon+7jvB7TCHOr9Fv1Gd/zGshmteJu16+x/a8 kp+8+K1x1VT/gxAzsrSn1kWzfS/EFLG1kf1fKv9NiH7n5x/r8Iv3uxC3b4mX f9In3KzcH0Xtuqvq8v4XoWjhXeNFAwirinBfuzm7YxbrgyJUiHOql3K8o7MI PWP27lwyj+jqIuzcVb9k0nPiR1OEa8kb1MzD2V8kQsly99G6fwlri3A+sYuT WSnHj0T4WHclY0Qi0fVEsOxhNmUj53sYiODx6Y/171TCI0QIXXl9VKwO2xci zPLXqF9SRvq4iQibrmY19+L3h6Yi/LkjLfFbR+XNRKjf7nJx0QG2P0RoeypY 9WMuYXMRan2GTMx4RPxZiTBUKZ0d16j/uSJMCl7vuozzp2xECLHYMyakG2F7 EaKK9+zPT6D5cBCht977Z01WVN9RBA0Lq6e3z3N+sAgjQyT6orbUn5sILt5R wpc9OJ6lnO8K9/KEQcSfpwhn0z8FNK4le8xbhA3TDjip5xD2FWFO/eQf9Y85 3i3C4FVf+rhy/kmoCI3fj48a58L2rwjr/T/F1X0gerQIF/R1JnR5QvR4EVr9 7hYy1oxwsrL/B9K+Qgn1JxThXnT3gc0cL5SK8KLf272aHJ+Xi+C/4bp3hhaV 3yqC112Pep8PvP9FMNi/IShrJJXPFWHNtp5+HR+wPaWcn38TAsxGET1fhGab 7Ng9umxfiVBts+hyIOc/FyrXg8OvjgEaVL9IhOjpwy8+b0Xze1aELranbOU6 /D5QhHPxH4eU3qPypSJkXLpu/jGTcJkIQdN36M6bQOVvivDsumBQnxr2z4lw 6JN6+KpGar9ShHVLHPa2+k3yrhJB/XKC/blV1F61CAt+D7hTY8v5ySLoTt/7 4EgxtfdahJVjzFXvarI9r1yv5Y9W/OlP9T+I0D71WVT9UrbvRejc47hl5Eyq /02EMyNzH3Ttw/a+kt/plu00OX7ZLIJp3K6AVS7s/xXjANzKavn9kKoY5zz6 DvnVj+MBYgRMen/IsplwZzE6SmKSihypvroYjz+umzJmLmFNMQqe3T6g70zn g5YYyZIjQq83hLXF2DIxW+z8kPNLxbj5nw/sDKf+9cSI7pRcHpBI7RmIkdQ6 bPCCHiTfEWI0tl5m0H4Qv0cU42nBhoVrogibiDGybF/BiAM0v6ZiPFlfELWC vzdgJkbaxK/lRn3Y/yjGunEfh1dxfp65GIsXT3vSbRthKzHidluv+HOD738x XO4Oe/SH8+tsxLBIupq9MYTua3sxqrNHDujJ79UdlONfefHoK35/5ijG7hmx O2bnc/xKjBEjxxc/v0jl3cQYt/v7SdVswu5iKH7IJjdPJX48xdievPlI/Tf2 byj5zeniHzSM738x7l3sF99vD/s7xbBONQwaHkHrIVTJ/9wBPhfZ3yIQ40eE Wnp1DOFoMfL0url3mcH5MGK0hB07fVGN978Ym1Zn/k7cQVgoRtWSo+erIwlL lfz1DVo/LYr3v3K8ydU/b/L75K1iqB2YqdKa31tki7FsVlr04Na8/5Xr69DN jXhG/OSJ0cZ/XNB1Q5Jnvhg+yVN/3Z5BuECMj4umPju/k/e/GA+1j2o0nOP7 X4whDriczvGSs8r5brtnaxO/xy4WQ5wzQaNjGeFS5fzt7zkku4T1cTFubYp4 NiqV6DfFsJlrkDovlPZThVJe6w2NOrD/vlKMkm0DPv3V4f0vxsmc3BG1L6l+ tRhXw6PLzWex/q7k5/qJ/m661N5rsdJ+LvoWxO9xasXoMq/s3GEBrbcPYkT2 qWw5/d/3fGL8cT9V+J+vWPwP/iaGtvTi/Jmcb9AkhpPCdNJoGd//Yhz63aK5 vo73vwTiiZPPu4whrCpB0YQLq3aV8P6XIHjgrhEPT9D67iyB1sbpE0I531xd gt2qVy6ZJ9N61pTg6L2wjQ9SCWtJ4Lu9tvHoNqqvLYHDhNNDBf/4ewsSPNmW e/hBC2E9CazS5jnnHeF8Igna7s9p73KO7LcRyvaPrfv4L4jzi5TtrfdrHD+K 2jeRYN3uDxXJqzjfSAK1Pi1+u7WJbibBIzWLyZ/jOP9UAr+0HG9ffr9hLoFp h89nt5/ieIQEk+Zmj0zm99hzJTgzc4ZGzTF+7yFBkP7Run7vCdtLMMfhp0cq +68cJIgJ8jArPEDYUTkfRUdM5nA+trMEx07tdP77gNp3k2CXeYNbNffvrmx/ p6aa7B/J01OCeys+VFxie8BbglCkte/O8URfCQb0Dl43mscXKMHT8jMztcNo P4RKoLNelPP5Ncc/JXiwLyO64AK1F62c7xGnEi8f5nwoCT6YxZx06UvlkyXw 2GvrMH8v50dJkPRowtbtPL9SCfr/ML4fOY+wXALvnd/m31ZQ/a0S/GzY6vay C8dPJeh8Sm2GO8cDcyXo4W78650hx1MlWJzb8arvPuInX4IVL1sur//vexgJ htiZrfZ8Tu0XSrBS57Vc7STvfwlm2Sbe376Q73/l+AzvHuvG7+mLJRAlVaWr 8vctSiWI/OkeLdrE979y/P/3/r0pwaB7S9+UpPP9L4H/0wmZLT7UX6UEmy5m bP3oRu1XSbAxI7xj2UoqXy3Bkqxl3YWJ/D0CCeLcBJcucf7fawkutiw+6upK uFaCgErfPo9D6Xz8IME5S8uoIf99zyjB0v4rrh1l/fWbBOPmXT7WeJBwkwSJ cf2PPZpK53OzBMm9xtRFDCKsIkX5uPSuO8KovKoUA1raRqooSF9Tk+LHLRP5 Oc7n6iyF8eyfbWOdOD4ghYH7ydPFHQhrSvFblBORze/ltKQwCsrr0dGf6NpS JF983dzmCccPpbij2lQdEEx0PSkO3xRP+HmIsIEUNlNede7mQfyOkGK+gfH3 miyiG0mRfWrKz8oaoptI0emBxL7VZs43k2JdyuoB/fsRNpPC07nd+b+cnw0p /PvNaDNwIdU3l2LFM+1D989zPpoUR7pfUJSrE54rRZyxztEtPfm9nxQ3LLrm HGX52UvRPMrqwblGWs8OUkSNHX1+x0Laj45SBFe3qp2exN+TkEI8YbVG24FE d5Ni5M2gv4LzvP+laFC53bG0nrCnFPNalotvHqP94C1Fgqt0u04e1fdV9l+k mzDnD8c7pGibMyEi9Qytv1Apdq66tHpvd/6+lRQBRuccfHg+o6V4/Ds1tqkz x8Ok6LzSYFjQP5JXshTHu5x4XyTl+KgU25p0Ti8+wva/FFlXUFvP8Wq5FENL Rm2r4++BbFXW9/VZabaJ2s+WojLxU1WcJuFcKc6F3Z89bjjJI0+K9P+856gj er4UOS6jJi9mfgukWCvaeHNsBuFCKep6PPz9PpzqF0nhrfXc0CWJ7JuzUmwy Of7YOIrjb1LoOdgJH3hRPK9UipbccasWzyR6mRQHhz1e42tM+KYUGivFXss5 /lchRc85LSqPlhKuVPavturEGz0qXyVF+EV172lsP1RLMS2kX7xtHn8PRYpr aaOrzKcQ/bUU5plrnwwcQPKqleK8oTzoqzbb/8r1by+YWHqN6A1SzK0ZcHMj f+/mmxTXbWS7ntYRbpLCUbDTIyqA1mezUr4TitOPyzj+l47Di3fnO4WRvFTT UXVw67fv/H0btXSEPylaP7Mj7/90FMV98TnSm9+LpuPdxFkPpkZQf5rpmBHm /epMEL8XSsfd3xM6LXGl81E7HUGzbePHj+f8kXQYD9esC+/K/r90xLesMi1d zfZ/Onp7FJVN6U/tj0hHyJgNGxb8o/JG6fjVw9D0bA37/9Jx5E6jjUTO/r90 FC/dvaAdf3/ILB0v2xeIPsbw9wvS0SFnVtd/HlTePB3HBCPv2akR3SodD4IC vwaep/01Nx3lvyPkm8D3v3L84/wT6key/085X5smX9nbg/Qfh3SY/uowsziM sGM6RJi80mMU6//pWLE7epjkFWG3dEy1nj12kir7/9IxUHPogJeb2P+Xjn0j 822PcDzHOx1TTqwuXppI+pGvsv1hfxK7ryZ/eGA6ymoMtZw4fyo0HWO0fQ/d 4vePgnRsi/E9fD2Uykenw36jer/MbKLHK9vb+T3yxUbCycr66aKUvkP5ex3p SEk6McWe8/2kyvm/HdT14GIqL0/HwtopvXQ1iN+t6dCLVl+6wZJwtrJ8gcGG L9VUPjcdSYNb9B83cDwlHVnmsQN+TyCcn46OJt0y7H5xfCUdBVsVZtPPk7+/ MB2ZQxqm9FjN+Zbp+H5/R1e/dVT/bDqWCwMcvkTy+8l0BL4Y/uzDMapfmg67 TfCaf+067f90pCbcunp8J+U/3kzHpDrhofw46r8iHYNanCf7GJK+WZmOsDXj jy8dzPl66dhZ3mI4LY9wdToM3YLqij5w/C4die+23Hyxgeiv0zG404gnL8eR vGuV6+FBQZtO5rTePijX54r1887OZf0/HVav864FcX7dt3RckQ/rZ66g9diU DpWv3YM0VAk3p2NlbvmVa6H8/lGGO/tPe4w0Yv+/DGv9G4berWD9XwaLHSZB Xvz9sc4yqJZ02DwlgPMDZehaF5nc4wrxpynDpom9JCeM6L7SkkHdv/LlNtb3 tGXYs3Pn48nh/H0RGdT2e1rEsz9cTwb3g6kdBiTT+jeQQXfj/CFtBDQ/I2So v6+ye2csvy+U4WL6X9VVpjT/JjJsPWnx7Uou0U1l6LLA6PVSfo9oJoP5ksIb syfx+wMZ3g9J89bl/Wguw8hHY1aFKjgfWYZdjbMOl68mPFeGqokH9psNpfVg I8PArJ89pkRRfMpehrdHFpmaXqXyDjJESIVXk1RpPTrKkJiullQyife/sj3v 45vt3hH/bjKI8nUMjyzg/S/D7ACHYTERhD1lSJi6WH8767/eMrhmZBy9qEvz 5yvDaa02703Ps/9fhnjHlY+H3qD6oTL0714Q/Hos578q+wtcNPO8Puv/Mjhc cjhlmMPxMBliZVOnbNGl+sky2Lh4dM/n95xCGWLKZpkvauD9L0P+levvpFto /HIZNNRPrj0dQnirEte8cN3Wm9Z/tgyD3s/XfhPD+1+5Hvs9/el0lHCeDPZW KW7113j/y1Daqq9YcJ7zq2UYsNE1bcRZwoUyFPzP9zipvyIZHsfdWaBZSvI5 K0PdAVfNqAu0v4tlCC2f4PBpMu9/5fpe+T3XexWVL1PO58d3pwy/U/mbMjy3 aKev7sbxWRkmtIp9U36S+q+U4cv2XjJbQ2qvSoa+BtHrfH7SeqmWYcbdZ71v e3L8VoZZVqbxxqU03tfK/o7LNP4tpvZqZcicOUozeSjRP8jwatOFI/ftOL6r 7C9nZMnZx9TeNxkCWjV5i72I3iTDj9ffz3T6TLhZhj4b7x0tSyCskoGtlecm D0wirJqB6vq9G4xHkvzVMrDsTeI90WvCnTMQt/3089QVJH/1DDj+6pczvD3x p5mBh8sb0l7vIKyVAWFZlk7XE1ReOwNvwm1q1gTz++oMBOkctdLgfG29DIR2 sfu4mr/XaJCBBdek63/HEX1EBraNu6eltoLaN8rAt9aWK664E/8mGRDdMr9a upXkY5qBxfHqOp1jiG6WgV35GU59z5M8kIExXosvb3Wn8uYZmJnxzPPFWqJb ZWCi6VWv4v5Uf24GHFyz3h4ezO8TMjB3/8cVp1UI22fAJ+Ws4rw5ycMhA7ou N3wup1B9xwx8D6qzNthJ5Z2V89ElWGD6iLBbBvLXFlf9HsTx7Awonl3NXNZC 69EzA3oeXXb/4O+NeSvlN7bM+lQtrTffDIwtSrqfxN//CsyA+905xvlxxE9o BhadyzHpcJPWs0Apn6tj6i2NqP1o5XyknoyUPKbxx2fgxrWU93lj+f7PQJ8u vlaXH/P+z8DHyqfn9Hqx/Z+Bkr2yOx8G8HuJDIz+nGGWdIPv/wxYrR9cuIbv v+wM3C1cPOv4MqLnZsB+RsmDE0f5/s/ACi+7M8+O03jylfIdnKY61ZXGW5CB YWYh0wdU8v2fAf/RHdPFTZxvoeS39ckh+9rQ+jmbgYOlX7bNd+f8iwzYHj28 QMOGcGkGfp5ztp7gyPk4yvUydnG8SW86H29moJXjOF+Hdpyfr5TXk/oofy2i VyrHNyZOMPAIv9fOwPTcvGaTk+z/y0CInW7s4Vb8flu5fr5W1aSWUH+vle3r dXQ7KKf6tRnI2jlx7AwVvv8z0GCkstbsv9+zysCDxePP3Y+m+/VbBsQvA0a9 O8j+vwwIPCLbHOd8nmZl+ZP6OUMM+fujcliMD3P9Xkj8q8rxty5Tr7ELx//l CHsR3eTP7906y+EQsev3gi38vRA5DspP6OV/ofY15Zi2q2TIls/s/5Pjk8Us xY6PvP/l2CI+rT3qCMlfR/7/v3fQk2Ow8GnGZX7PZCBHr7UDp14axf4/Ob5P zDr6cxbvfzl67sfdudW8/+VYaO3azeop0U3luDj80+tAQ2rfTI4v/0YNhhl/ f0COMRmHh+7vQdhcDufXHaWnBvB7BDnaTtctLFnN/n85VtzNv1rlxvF/OTw6 bH/3bRVhe2X7du9eeXZm/58c3j+Gl7SrpfYd5Zhu1csoIovz1+S4G7vjib4r 3/9yNBzetvcUf+/BXY6pp1r9riri+185fsmSynmsH3jLcbR+f8Dn5zQ+XzlW jTGeKOJ8uEBlezZ7XJ29+P6X40PX23PvD+b4vxwdbtrfrTxL6ydaDruE9ddc MjkfTg7RoXzLb/xeNFmOWo13vQwyOD9OjiBb74u3nWi8UjkOOz0ssctk/58c Q5K36d9nfXarHPPGPUzJYv9vthyxGi+ftK2k8rlyjHW1LV3P32PIkyPArGTp 7m7Uf74cOzKLZlhEcvxfjqsfn0+J5/eNhXJovJtX763gfHvlepoUNVVdTvbq WTki216sGdGb439yLNPu9X4r58+WynF79ummDY/Z/ydHFwdV0cOeZH/eVM7P 3ui8mV5UvkK5Pr3n5x7rRLhSjrqZ+xao6vJ7XTlOWHoVpTly/E+OMxMjp18w 4/xdOYZKfrxcO43or+VIkh9vkPfn+L8ch1w/fTjH71U+yHFh4vXRjX6c36mU v+7iq5vteP/LUa5vdrQN5983yXH22aPfl/l7Gc1y+I0dl7X0KX//QQFvrx7P gjh/QFWByaPOqccMI3tZTYGTna9f6VlHuLMCW4sPaIuG8vsQBX45nrTtU8Hx PwXW2ui+at+f9X8F1HVKe7UZwfE/BTaEH9UazvFBHQXm5B6vP5PD8T8FTm3P vnmevydtoMB6p182V/h72SMU0JnYfkqHZZz/o4CDel5O/BFqz0SBLS6VH4r4 e4OmCpxL7nvDx4zKmynwJtf+bcd7HP9TYOa+fEenz4TNFVgdajjxVCP7/xU4 cPDq2AH9OP6vwMWInJ/Z//3elQKjhi3s4ML+X3sFrI2MYm/x984cFLjx5IRU nszxfwXazNs0o+tJfr+gQMLW89sPKwi7KeffacLy0fy+w12BeRnvl7nbE/ZU wOhYn8ZDqlTeW4GksGpRKX/fxleBTUvLl/UrZP1fgW26t9cc4fdBoQrINjzz er+b978Cav9a6ZgWUf1oBV5NX+dU+pHfQynQIfrd58/neP8rcGn4suszuT2h An/Up1/sz+/Hpcrxugw3lqtxvqwCLnN/hwwzI7xVgQlvFWdO8/dSshV4dn32 ymmTqb9cBZYat3JLWcn5dAr8uNHG5ONUOh/yFdh+u+fu6Gx+X6eU77eACRls nxQq8DZm86OBnP9UpECXNbuf5H4j+lmFUn+oHVDWwN8PUsDTxCupdh6VL1Vg 8LCqcep835UpkFxqMKJnE9W/qcCLxWt3fWf9t0K5XjMsNs98yvq/AoHfywOv diVcpRz/7pu9L5uR/lWtgGZN7H7DK6Rv1Sj3R9ihj3pLCb9WysthZfXlY5QP WauAWNq++dsYon9QYPdU8XLHfNLPGhSoK/rxonkf0b8pMK7353+HGyl/skkB w5kFbbU2Uf5lswLSnIhsPc7HVMmErmxvrPr6Utr/mcg1UKzWAtHVMhGsPeW4 8Ujip3MmXve54rV1KGH1TKx6f7B6TVviR1OJR/meDBtE+qVWJuoePPrXpi/l g2pnovTTvo4hVsSfTiYipTu/vgokrJeJjH+SkSp/qL5BJmZWjHDrMIvqj8jE t+D7Xjc8qbyRkt/BNbuG7KR8UpNMPN9hO+S6E+ebZqJP28pD2oXUnlkmymc1 GWw4Q/wjE3nZPbp+a8/6fyZKPtz/13YiycsqE4Mu2uku+Eh4biZuuw25l6rG 7xMzEXvb8nuQO60H+0zUVFQnFdSx/y8Temb/Rv95xP6/TGCg7a9Sfbb/MyGc aCju+N/8v0xcjUhNCZhK7bsr50N107ukWMKembjY6kfmuzvs/8/EQJn8V/Yp 9v8r21+wKbHZneP/mdgzbMWihRl0XoRmwvOZ5pixabz/M/FB3zVUzvnw0Zlw tFwzbSu3H5+JbQOt9gZMov2arJzPoMELjTMICzOhffn0xKeTeP9nIn9T7s5C Pl/kmcg0GtF90mnqf2smPsleC1bc4u9nZEL1uldm+190PuZmotIvb4/eAX5P lQl7u90I2kz3b34mDrmorm0zk9/XZWL/0rWhKzkfpTAT4370sLn9l3BRJozW JT9Y2JPKn81Ec5bhl39ifn+RidU7tkzaxt8HLM3Ecbvbm00GU/myTLSpnzzy 4DfCNzMx/dool7ou/L3BTDg/2O75tIZwZSbEC6cPetaL43+ZuHzLoGfnt9R+ dSY2rHQb6reG328p6f9JONDh/J9MuOivmmNykL/nkYm3Z6xHWl8g+odMGGpt eup9huN/mXCwt5jYh993fcvECF3/T+f5e6hNmXDfMfjl9K6kbzRn4uDCWZKL Puz/z0Lg9LqCtb7s/89Ct+G7jYo+c/wvC+6Pcj9M5XhR5ywM9frUP2c/x/+y IFnw6PfYWxRv0cyCVUliotdzfi+UBZ2vpjPz+P2RdhYeWxv1PzOC439ZGG17 a+GHFI7/ZeFPunObwoEc/8tCzwu3v7zYTnhEFsY7XC+dtp2/L5GFBL9zluo7 iW6ShbcP6/riC9FNs9CpafDVS2qEzbLgaTvt6aEY/v8CWWh9w1pia0PYPAvD ko60HrOe5GmVpbSn4pdN4+9dzc3CZb2TETL+fq1NFirb3P/+ezbH/7IQq3bS ZPxYfq+UBa9gw9Nq/H7SMQsDd4vmV9fx/Z+FmW37SIR9aT24ZUE9J8T4c2eO /2Uh5719Ul8nKu+ZBcf/19S1x+V8tvEkqXVQsWhsepPD0NYIObR9KRTJbCFi mRG1JDkloQxLQiU89bvv+8lkWT2dNq8SS21FTdbKYTWZlkNpCWmE0n57P/e1 z/vn9bkPv/v4PNf1va7rex8Y+/YfdL9CFBT+fuHd3RYU/6NgiNvzndbExxum YOrhTCNLyp+MUPfrxcKX9cfo/itYWXgkcIszxf8qKBi1LK2L/IfRCrrKf46f bUX//wpM8xufX9lD8fEKFnomXH23UP5/JyoIj+2lMf2N7r+CM03v993gJefH FAy3M8vvuEv3X0Hs7aKMu+T/SVVgkxS/byvlc55UcOKv1gtnSuT4dWq5oU2r B8Wf5ij4bsPc1ccpHvuUgvlzvnr0+b/51gqKhx7/euJhKZ9T8MIw8azLJsq/ VlA2rbL4AI23RF0f/eLqbHp/pEzBgoadp2bmyPYVCjye503sOY/49hQYO20b 2Lsn2f8KbvW5YrO+jfg6FPi56tdYlUi5TsHS7PtTpxI/R72CO0Pm7rhdI+U7 CtL3dAkfiq9oUrCu22piaYYsb1HwWlfBVLuBlN+jYNFG0+1VxCffrs53WNfc OOIn7FCw29888iH5FzrV++uUl1MH4j9nGGbg4j8mS37PgCFnoO+Ghb6E/zFE 3n3Wspbic0wZXO+b/KdxG8X/MCT0vlhV7Ef2P8P99k+XazrI/me4qMxIzTMm +5/haHbIBAdO9j/DW8FVfetLCf9jmH3W5nQW8Y2OYOhn53V46SeE/zEcT7Zc WtmH4n8Ybt1Iyqookv07MYSdK19b5UH4P8OFbu++W/0I/2c49WDsPYcjZP8z dIQnr7WF3E83hrhQ74Qk4sN0Z9jm22j92FvurydD6sxpllMv0f8/w8h9pudS z8r5eDOkRRilzyA804ch1O0j/993k/3PsKd6RPAwR+KHZFAcjvXsqyf1xRUM 3ieM83weEP7H8MxM/4/nxIcQxBBYsOBFdH+y/xlei3DaZ/iv/c/QbXR9tv9B KYcxLH7sNvObyeT/Y3DPdHV/lET+PwZL/fQJdtTfLrW905rtW48Q/s8Q/ii4 aFqUHE8sQ+Gh5Yuz4sn/x6C3OvS6522p/yUy+GK1S0SS1Lc06nqEl4SPq5b6 KWNIbo1+M8Vc4nUpDCPiUsf3bJX6XSqDNia76vIiqZ+dZLixa+xmXZVsr2OY tN36zOuO8ns56vo92fJt9M9SPsXQqZc6fl0o4f8Mm4fbBle2E/7P4JD4hcXF x7J+kTq+wgxen0z4P0Pe4rbXrs8i/x/DQM3EKLPRsn2Fel4jnmQe85fyLwyx Z1fNqrGX472q9u9kccnfXM6nhsHjZMbl+DSpn9apcm7C9A8/l/ppPUPSd7oA z6c/yvvPUD6J65K2Sf22Sb0/fpGB37wt+29hWLPKa45zOun/6vl4apJcUCnH 285QfcnPZ9x5+f0Odf6l2rMTaD86GSLiVi3LHELvP3D88TxA71CH7N+AY8ag Gewbypcz4thv1d4/nPBsU44HG1bX3siS7S04+ofdtDR4Jev348gZ4HB+3yZZ fwDH8Gvzmirj5fkZxNHLZdCJQ6RP23L0i6k6qr9JzseeY8+kp113aT1HcNx6 1JYRoi/7H82RVrAkJbJcljtyrF8R87vXRSk7cXTvvfHt/r1y/s4crhfsU09f k+s9heOXz0JCSo9JGRyZoYsMtpvK/XHjKG2s7H7SKe0hd464bMPHs3yl7Mkx odfLsNwtlJ/G//dc0yTKJ/TmuBdd+zAziPLVOE5e7jF7s61cryVq/wEdczSr ZPkyjsqYXg1JGwj/5xihNcv+7U+5X6s5zK3iP7xvLecTxOE7ZNIX78fJ9iHq +j97eWwj3YcNHG/sOpm73pjwf47yNRHB9+m+R3Do18bZZxK/cySHx1vnWzPu y/Jd6voY5XWtt5G/d9Ecn3q6GbuRHMvx0ycTHqSXET+OOr4Y7z23tsr2iRzX T3t5/HhE7reG42vHWaNsBhL+z3E02aZ2nZbyJzkiEy43BgfI85DKYddVvX2m I/EpqePpa8jq7sn+dRx9Awf8wr+V5TkcbMY/CSNk/3N4zlj2/p8t8vcrXx2v 9ZI9VkWy/Tn1vDS98TF/KeUijocRH4z7hPyxJRwNPrsn746R7cs4KnKiNR4m Uq7gWNen+FH5NMrP5TCxaUlfkSrbX1XX2y1q48fE91vDsaP6ndn1xFdcxxF+ sObQSnrPpp7DZScLm0v2wB11vRYO3ze4t5SbOKaMTwzq/RfF/3AsjW5qPmZB /H4cehqnPm8flPXbOUbttNpy4jzxPXC4F+TsaCL+j04ODfMNSCZ8UE/gvbDK /DQ7wv8EpjuOGXp6MPHBCLgs8bobR/58UwFNrllU2ZeUHy5Q8E/CoxPhfwL6 e/MvWVB+2QCBw9NKb5amkP9f4AjTyxlO+Ui2Ak97JRmPIv4be4HHW+x0zeVS HiHg8P2amwbWUh4tMGT/ldoEyldyVMtXnehW5sj1dRLYF/BT6Pgesr6zwEXN rqunR8rvTRFILejRaEbvo0Fgcnzb0Ht/yvVxEwgb6TVEsSH9X+1fd0VvKcX3 eQpUhC52jie+mQ8FdGVNkfY6qe97CziO/m1zCuGnPgKdbyyZk+tC+J9APzb/ xYp/3xMTqHX07tOQSPk/Akctv1hp+S7x2Qg0m8ae0xnL8iAB37mfvZeyn95T EZjX9nnQs/WE/6n79/ReXQLFC4QJPIoOWxQ1l/L/BNKssjtd6b25SAHPr1d2 H71A/n+BGzs+Nh9E8RXRAteiRvksJ7wrVsDvYPbIpuPy/sQJVAafN39nrSxP FBjfp81UR3i/RsBjndY/oYHwf4HFA798az7xb6UIFDpMv/XTecL/BFob4q+M yZT7c1JgXYuTgynFt+jU87Xz0l/u84kPW+CjGFE3YYcczymBu2U7p86rkXK+ gG0W+35sMvn/BBaMtqhM1RL+JzDYsfNyboCUSwSetR0xrDUj/5+6X671p+03 Ev4n8Mrx6hO9JsL/BA6dqnqYO1J+76rABz+EP7gdSvifwG1Xo5nuxL9WJzBm uy50bBbxtwmUHG6eaEu/T3fU89PdPOnNKvL/C5j4TW4/s0nWbxEIXPCqK/0O 8fkLVJlUN74i/bldYL1JiHcU+c87BBIM8/67e5Ws3ynww6vA/UULif9Ti88G WWVe0lL8jxbL/1820iI38KtPfzxB/j8tXII3H4j0oPw/LVa3Tq/pF0T3X4tZ zf2759H7QQO0MPho+a9P6T2HQVq02I+7WOFM9r8W393006R5yftjr0VDkLXJ 4AcU/6fF6ybmxT2vyfM/Woviuh65O3LpPQotojOG9//yqJSdtCj9+VBzAb2P 5qzF9wFm+cXH5fimaHHzhkN5j7N0/7UITgrTFfoR/q/Fim1rw+7F/PrB39HI gyw= "]]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0.5}, PlotRange->{{0, 2001.}, {0.15595393333333332`, 2.628800183333334}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.6867196979477215`*^9, 3.686783022888767*^9, 3.6867995112882233`*^9, 3.686816486144374*^9, 3.686918417281522*^9, 3.687073602482585*^9, 3.6871091911701965`*^9, 3.687121772234949*^9, 3.691207458700131*^9, 3.691258730164141*^9, 3.692162785560363*^9, 3.6922198652708836`*^9, 3.6924911040261045`*^9, 3.6926059033090067`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"depresMedia2", "=", RowBox[{ RowBox[{"Total", "[", RowBox[{"tasadeprobs", "[", RowBox[{"[", RowBox[{ RowBox[{"generaciones", "-", "500"}], ";;", "generaciones"}], "]"}], "]"}], "]"}], "/", "500"}]}], ";"}]], "Input", CellChangeTimes->{{3.686719804217614*^9, 3.686719806220256*^9}, { 3.6867198837986455`*^9, 3.6867198915123196`*^9}, 3.686765563701155*^9, { 3.686765595219564*^9, 3.6867656046462975`*^9}, {3.686765687544716*^9, 3.6867657029089317`*^9}, {3.6867669356468477`*^9, 3.6867669552987533`*^9}, {3.686770323295807*^9, 3.6867703322727795`*^9}, { 3.686770420147956*^9, 3.6867704313851757`*^9}, {3.6867706422461834`*^9, 3.6867706476744003`*^9}, {3.6921080549795723`*^9, 3.692108067705291*^9}, { 3.6921630395983925`*^9, 3.6921630422421007`*^9}, {3.692255304900886*^9, 3.6922553134948516`*^9}, {3.69225537631945*^9, 3.6922553790209875`*^9}, { 3.696841718429769*^9, 3.6968417666698427`*^9}, {3.696855876928894*^9, 3.696855879683519*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DeltaSimulEquil2", "=", RowBox[{"depresMedia2", "*", "crop"}]}]], "Input", CellChangeTimes->{{3.686719820986762*^9, 3.686719852157405*^9}, { 3.6867655233435526`*^9, 3.6867655265874147`*^9}, {3.686765718922776*^9, 3.686765725136707*^9}, 3.686765757059518*^9, 3.6867658373606815`*^9, 3.6867669641042366`*^9, {3.686770407187608*^9, 3.6867704109082823`*^9}, { 3.686770445442441*^9, 3.686770470463873*^9}, {3.6968417732212534`*^9, 3.6968417780208697`*^9}}], Cell[BoxData["0.3818111430777778`"], "Output", CellChangeTimes->{{3.68671982403797*^9, 3.686719852959045*^9}, 3.686719897051385*^9, 3.6867830229038067`*^9, 3.6867995249256816`*^9, 3.6868164862068605`*^9, 3.68691841731277*^9, 3.687073602513833*^9, 3.687109191187211*^9, 3.6871217722571287`*^9, 3.6912074587217016`*^9, 3.6912587302092953`*^9, 3.6921627855759926`*^9, 3.69216305118861*^9, 3.6922198653471165`*^9, 3.692255339138201*^9, 3.692255382484968*^9, 3.6924911044836187`*^9, 3.6926059033928375`*^9}] }, Open ]] }, WindowSize->{1284, 727}, WindowMargins->{{-10, Automatic}, {Automatic, -5}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (November 7, 2010)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 648, 9, 31, "Input"], Cell[1218, 33, 473, 7, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1728, 45, 3458, 53, 31, "Input"], Cell[5189, 100, 9950, 144, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15176, 249, 244, 4, 31, "Input"], Cell[15423, 255, 388, 5, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15848, 265, 894, 29, 31, "Input"], Cell[16745, 296, 1003, 14, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17785, 315, 232, 4, 31, "Input"], Cell[18020, 321, 1384, 20, 30, "Output"] }, Open ]], Cell[19419, 344, 1833, 28, 31, "Input"], Cell[CellGroupData[{ Cell[21277, 376, 137, 4, 31, "Input"], Cell[21417, 382, 6253, 91, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27707, 478, 401, 11, 31, "Input"], Cell[28111, 491, 1560, 22, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29708, 518, 655, 19, 31, "Input"], Cell[30366, 539, 1581, 22, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31984, 566, 606, 18, 31, "Input"], Cell[32593, 586, 8984, 131, 30, "Output"] }, Open ]], Cell[41592, 720, 794, 25, 31, "Input"], Cell[CellGroupData[{ Cell[42411, 749, 222, 4, 31, "Input"], Cell[42636, 755, 12491, 180, 30, "Output"] }, Open ]], Cell[55142, 938, 334, 6, 31, "Input"], Cell[55479, 946, 301, 8, 31, "Input"], Cell[55783, 956, 827, 25, 31, "Input"], Cell[56613, 983, 301, 6, 31, "Input"], Cell[56917, 991, 2934, 74, 72, "Input"], Cell[59854, 1067, 625, 13, 31, "Input"], Cell[60482, 1082, 1697, 39, 52, "Input"], Cell[62182, 1123, 3026, 60, 72, "Input"], Cell[65211, 1185, 26244, 528, 632, "Input"], Cell[91458, 1715, 2097, 57, 72, "Input"], Cell[93558, 1774, 200, 3, 31, "Input"], Cell[93761, 1779, 494, 13, 31, "Input"], Cell[94258, 1794, 143, 2, 72, "Input"], Cell[94404, 1798, 316, 10, 31, "Input"], Cell[94723, 1810, 151, 3, 31, "Input"], Cell[94877, 1815, 559, 13, 31, "Input"], Cell[CellGroupData[{ Cell[95461, 1832, 159, 3, 31, "Input"], Cell[95623, 1837, 4912, 71, 30, "Output"] }, Open ]], Cell[100550, 1911, 609, 15, 52, "Input"], Cell[CellGroupData[{ Cell[101184, 1930, 849, 26, 31, "Input"], Cell[102036, 1958, 595, 8, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[102668, 1971, 593, 18, 31, "Input"], Cell[103264, 1991, 596, 8, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[103897, 2004, 124, 2, 31, "Input"], Cell[104024, 2008, 338, 5, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[104399, 2018, 315, 7, 36, "Input"], Cell[104717, 2027, 572, 10, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[105326, 2042, 839, 15, 31, "Input"], Cell[106168, 2059, 28420, 471, 231, "Output"] }, Open ]], Cell[134603, 2533, 1052, 20, 31, "Input"], Cell[CellGroupData[{ Cell[135680, 2557, 497, 8, 31, "Input"], Cell[136180, 2567, 527, 7, 30, "Output"] }, Open ]] } ] *) 3125*^9, 3.50599611896875*^9}, {3.5082419166875*^9, 3.508241946734375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"q0", "=", "0.05"}], ";", " ", RowBox[{"s", "=", "0.4"}], ";", RowBox[{"h", "=", "0.2"}], ";", " ", RowBox[{"d", "=", RowBox[{"s", RowBox[{"(", RowBox[{ RowBox[{"1", "/", "2"}], "-", "h"}], ")"}]}]}]}]], "Input", CellChangeTimes->{{3.493708033880066*^9, 3.4937080982769785`*^9}, { 3.4937081462314634`*^9, 3.493708158103084*^9}, {3.4937109702304287`*^9, 3.49371098241405*^9}, {3.4937116010923367`*^9, 3.493711601856738*^9}, { 3.493813899078125*^9, 3.493813901359375*^9}, {3.493814027640625*^9, 3.4938140289375*^9}, {3.493814114890625*^9, 3.493814117875*^9}, { 3.493820187015625*^9, 3.4938201918125*^9}, {3.493924771703125*^9, 3.49392479621875*^9}, {3.4939712811868443`*^9, 3.493971282949648*^9}, { 3.4939752094826508`*^9, 3.4939752103562517`*^9}, {3.4940489690828266`*^9, 3.494048969628827*^9}, {3.494049055584978*^9, 3.494049065163395*^9}, { 3.494049161384364*^9, 3.494049177561592*^9}, {3.494051493381633*^9, 3.4940514940056343`*^9}, {3.494051785382946*^9, 3.4940517928241587`*^9}, { 3.4940521370075636`*^9, 3.4940521376159644`*^9}, 3.494054428004587*^9, 3.494054479593878*^9, {3.494056041177021*^9, 3.4940560417698216`*^9}, { 3.494057123362522*^9, 3.494057123908523*^9}, {3.4940644453125*^9, 3.4940644458125*^9}, {3.494074527390625*^9, 3.4940745280625*^9}, { 3.49409242953125*^9, 3.49409243015625*^9}, {3.49416719578125*^9, 3.49416719634375*^9}, {3.494221085630581*^9, 3.4942210860049815`*^9}, { 3.4945029876875*^9, 3.494502989140625*^9}, {3.4951064783125*^9, 3.495106479890625*^9}, {3.49528975540625*^9, 3.495289756859375*^9}, { 3.4952968325625*^9, 3.495296833140625*^9}, {3.495301111921875*^9, 3.495301113609375*^9}, {3.49530145434375*^9, 3.495301454953125*^9}, { 3.495793979328125*^9, 3.495793981375*^9}, {3.4957965481875*^9, 3.495796551265625*^9}, {3.49579677909375*^9, 3.495796780546875*^9}, { 3.4960612869552517`*^9, 3.496061289544856*^9}, {3.496061888944709*^9, 3.49606188991191*^9}, {3.4961650910625*^9, 3.496165099515625*^9}, { 3.49616641496875*^9, 3.496166415734375*^9}, {3.496166486796875*^9, 3.496166489484375*^9}, {3.496167633625*^9, 3.496167635375*^9}, { 3.49620295665625*^9, 3.496202961484375*^9}, 3.497470271609375*^9, { 3.497471483953125*^9, 3.497471488359375*^9}, {3.497472020296875*^9, 3.497472021578125*^9}, {3.497506663703125*^9, 3.49750666440625*^9}, { 3.5002888469589467`*^9, 3.5002888487217493`*^9}, {3.500301192367282*^9, 3.5003011938648844`*^9}, {3.5003649362358828`*^9, 3.500364937343485*^9}, { 3.500365946904458*^9, 3.500365951210066*^9}, {3.5003673374697757`*^9, 3.5003673403401804`*^9}, {3.50082939890625*^9, 3.500829407296875*^9}, { 3.50082960265625*^9, 3.500829603171875*^9}, {3.500829741828125*^9, 3.500829742359375*^9}, {3.501141011234375*^9, 3.501141033234375*^9}, { 3.501141239140625*^9, 3.50114124090625*^9}, {3.50566384175*^9, 3.50566384915625*^9}, {3.50588413378125*^9, 3.505884134703125*^9}, { 3.505889902078125*^9, 3.505889902828125*^9}, {3.50599429434375*^9, 3.505994302125*^9}, {3.509101719302164*^9, 3.5091017648074436`*^9}, { 3.5091018801268463`*^9, 3.5091019022788854`*^9}}], Cell[BoxData["0.12`"], "Output", CellChangeTimes->{ 3.4939752148958597`*^9, 3.493975399646984*^9, 3.494006061984375*^9, 3.494006148890625*^9, 3.494006197296875*^9, 3.49400693596875*^9, 3.494007403875*^9, 3.49400745996875*^9, {3.494007509296875*^9, 3.49400753278125*^9}, {3.4940076668125*^9, 3.494007685078125*^9}, 3.4940080065*^9, 3.494008056609375*^9, {3.494008478375*^9, 3.49400850190625*^9}, 3.4940086711875*^9, 3.494009142640625*^9, 3.4940483922234135`*^9, 3.494048437135892*^9, 3.494048555962901*^9, { 3.494048620609414*^9, 3.4940486470826607`*^9}, 3.494048975120037*^9, { 3.494049079843021*^9, 3.49404910801667*^9}, 3.494049183708003*^9, 3.4940492374656973`*^9, 3.4940492779165688`*^9, 3.494049697319706*^9, 3.494049778736249*^9, 3.494049852914379*^9, 3.494049953004155*^9, 3.494051077297702*^9, 3.494051176794677*^9, 3.494051246792*^9, 3.4940513219685316`*^9, 3.4940513821378374`*^9, 3.4940514232283096`*^9, 3.494051797597767*^9, 3.494052315768277*^9, 3.4940526369572415`*^9, 3.4940536054619427`*^9, 3.4940541953769784`*^9, 3.4940547038130713`*^9, { 3.4940553492070055`*^9, 3.494055375305851*^9}, 3.494055418580327*^9, 3.494055787770176*^9, 3.4940559354868355`*^9, 3.4940560530798416`*^9, 3.494056168344845*^9, 3.4940562937378654`*^9, 3.494056360412382*^9, 3.494056646126484*^9, 3.494056883480901*^9, 3.494057129446533*^9, 3.4940576106449785`*^9, 3.4940582900729713`*^9, 3.494058354142284*^9, 3.4940584807209063`*^9, 3.4940644709375*^9, 3.494064671796875*^9, 3.49407454678125*^9, 3.494092298765625*^9, 3.49409243721875*^9, 3.4941359879757996`*^9, {3.4941365069803114`*^9, 3.4941365332819576`*^9}, { 3.494136645305754*^9, 3.494136662403384*^9}, 3.494155897015625*^9, 3.49415635640625*^9, 3.494156467265625*^9, 3.494156942296875*^9, 3.49415706253125*^9, 3.494157128375*^9, 3.494157265015625*^9, 3.49415748496875*^9, 3.494157620640625*^9, 3.494157845734375*^9, 3.4941583386875*^9, 3.49415844953125*^9, 3.494158547734375*^9, 3.494158609765625*^9, 3.494158668234375*^9, 3.494158741515625*^9, 3.494159215796875*^9, 3.494162709703125*^9, 3.494165013515625*^9, 3.494165294125*^9, 3.4941673070625*^9, 3.4942211260658517`*^9, 3.4942249880300074`*^9, 3.4942263528400183`*^9, 3.494226862295313*^9, 3.4942279948101025`*^9, 3.4942282939874277`*^9, {3.4942284345280743`*^9, 3.4942284644957275`*^9}, 3.494228695516533*^9, 3.4942291706621675`*^9, 3.49422921201784*^9, 3.494229544423224*^9, 3.494229826112919*^9, 3.494230013703248*^9, 3.4942300700349474`*^9, 3.494230124761846*^9, 3.4942313873104715`*^9, 3.494482391046875*^9, 3.494482475171875*^9, 3.494482559265625*^9, 3.494482627203125*^9, 3.494502335140625*^9, 3.49450245934375*^9, 3.494502768875*^9, 3.494503007078125*^9, 3.49450317778125*^9, 3.4945049686875*^9, 3.494656206649413*^9, 3.4947443118126216`*^9, 3.4947455344959693`*^9, 3.4947455908744683`*^9, 3.494746784479365*^9, 3.4947468415910654`*^9, 3.4947479297865763`*^9, 3.495093484390625*^9, 3.49510524865625*^9, 3.495105334015625*^9, 3.495105746734375*^9, 3.49510580959375*^9, 3.4951060225625*^9, 3.49510612103125*^9, 3.495106327953125*^9, 3.495106508078125*^9, 3.495106664734375*^9, 3.495106770984375*^9, 3.49510702621875*^9, 3.495107161234375*^9, 3.49510742409375*^9, 3.49520231646875*^9, 3.4952666234291954`*^9, 3.495288682859375*^9, 3.4952888571875*^9, 3.49528970175*^9, {3.49528974003125*^9, 3.495289761046875*^9}, 3.49529006615625*^9, 3.4952903861875*^9, 3.495291144125*^9, 3.49529129959375*^9, 3.49529684115625*^9, 3.495297008703125*^9, 3.495297305859375*^9, 3.495297727015625*^9, 3.49529843321875*^9, 3.495300780484375*^9, 3.495300862265625*^9, 3.49530112684375*^9, 3.49530124925*^9, 3.495301342265625*^9, 3.49530145946875*^9, 3.495301666609375*^9, 3.495301798453125*^9, 3.49530195459375*^9, 3.495344456546875*^9, 3.49534451078125*^9, 3.4953457108125*^9, 3.4953458943125*^9, 3.49534663028125*^9, 3.495347204796875*^9, 3.49534781146875*^9, 3.49534786834375*^9, 3.49534792465625*^9, 3.49534815975*^9, 3.495438552712846*^9, 3.4957928671875*^9, 3.495793068484375*^9, 3.495793257453125*^9, 3.4957939926875*^9, 3.495795747*^9, 3.495796356015625*^9, 3.49579661209375*^9, 3.495796790359375*^9, 3.4960613455021544`*^9, 3.4960614384315176`*^9, 3.4960618381042194`*^9, 3.4960618956059203`*^9, 3.496061981281271*^9, 3.496062132570337*^9, 3.4960633037811937`*^9, 3.4960636630966253`*^9, 3.4960639813727913`*^9, 3.4961645590625*^9, 3.496165108546875*^9, 3.496166052921875*^9, 3.496166123375*^9, 3.496166170015625*^9, 3.49616642009375*^9, 3.496166494203125*^9, 3.4961667763125*^9, 3.49616687971875*^9, 3.496166924453125*^9, 3.49616711021875*^9, 3.49616716903125*^9, 3.496167641015625*^9, 3.496167774*^9, 3.496168798796875*^9, 3.496169035546875*^9, 3.49616915075*^9, 3.4962026335625*^9, 3.49620290353125*^9, 3.496202966125*^9, 3.4962031105*^9, 3.497006285762313*^9, 3.4970065990888634`*^9, 3.497449683109375*^9, 3.497449831953125*^9, {3.497449888984375*^9, 3.49744992771875*^9}, 3.49744999796875*^9, 3.497450106515625*^9, 3.497450234515625*^9, 3.49745076790625*^9, 3.497450801046875*^9, 3.49745092953125*^9, 3.497450986140625*^9, 3.497451073921875*^9, 3.497451122171875*^9, 3.497451157984375*^9, 3.497451210625*^9, 3.49745129575*^9, 3.497451974671875*^9, 3.4974521380625*^9, 3.497452560609375*^9, 3.49745264734375*^9, 3.497452778859375*^9, 3.497466988796875*^9, 3.497467355375*^9, 3.497467556953125*^9, 3.49746787065625*^9, 3.497468215734375*^9, 3.4974685586875*^9, 3.4974687635625*^9, 3.49746918228125*^9, 3.49746945153125*^9, 3.4974695309375*^9, {3.497469606671875*^9, 3.497469633875*^9}, 3.497470075234375*^9, 3.497470138203125*^9, 3.497470275859375*^9, 3.497470409390625*^9, 3.497470506765625*^9, 3.49747085934375*^9, 3.497471038640625*^9, 3.497471314625*^9, 3.497471509625*^9, 3.4974720319375*^9, 3.49750471803125*^9, 3.497505027203125*^9, 3.49750538215625*^9, 3.497505687046875*^9, 3.497506493734375*^9, 3.497506673375*^9, 3.49750681434375*^9, 3.497506982265625*^9, 3.497510882390625*^9, 3.49751111903125*^9, 3.497511780296875*^9, 3.49751205296875*^9, 3.497512289875*^9, 3.49751238971875*^9, 3.497512743796875*^9, 3.5002900613118796`*^9, 3.500290281537466*^9, 3.50029053996432*^9, 3.50029847524811*^9, 3.5003001705966873`*^9, 3.5003008274982414`*^9, 3.500301199699295*^9, 3.5003578822534757`*^9, 3.5003584962081537`*^9, 3.5003609157568035`*^9, 3.5003649436302958`*^9, 3.5003654814932404`*^9, 3.5003659620832844`*^9, 3.5003673494973965`*^9, 3.500371354615646*^9, 3.500829053375*^9, 3.500829413171875*^9, 3.500829608484375*^9, 3.500829747515625*^9, 3.501136235375*^9, 3.50113634590625*^9, 3.501136716515625*^9, 3.5011382774375*^9, 3.501138530375*^9, 3.50113930890625*^9, {3.50113961903125*^9, 3.50113963196875*^9}, 3.501139731796875*^9, 3.501139808046875*^9, 3.501140480734375*^9, 3.50114055684375*^9, 3.50114072678125*^9, 3.501140888015625*^9, 3.50114106184375*^9, 3.501141361671875*^9, 3.5056596961875*^9, 3.50565998040625*^9, 3.50566034475*^9, 3.505660442328125*^9, 3.5056605175*^9, 3.505660734546875*^9, 3.50566144371875*^9, 3.50566388846875*^9, 3.5057210755034475`*^9, 3.505732072640625*^9, 3.505732530484375*^9, 3.5057368459375*^9, 3.505737285796875*^9, 3.505737604609375*^9, 3.505744064109375*^9, 3.5057452399375*^9, 3.505747910453125*^9, 3.505748092765625*^9, 3.505748280203125*^9, 3.505749597890625*^9, 3.50575639171875*^9, 3.505756564296875*^9, 3.505760861890625*^9, 3.505761352015625*^9, 3.505761756796875*^9, 3.505761832375*^9, 3.505836181484375*^9, 3.50583712609375*^9, 3.505837943359375*^9, 3.505883768640625*^9, 3.505884179890625*^9, 3.505884885015625*^9, 3.50588945715625*^9, 3.505889934015625*^9, 3.505913131046875*^9, 3.505913167484375*^9, 3.5059132308125*^9, 3.50591339421875*^9, 3.5059135194375*^9, { 3.50591439465625*^9, 3.5059144173125*^9}, 3.505914566859375*^9, 3.505914611421875*^9, 3.505915635328125*^9, 3.505916134859375*^9, 3.50591643553125*^9, 3.50591727925*^9, 3.505917702359375*^9, 3.50591997809375*^9, 3.505995667140625*^9, 3.505995893734375*^9, 3.5059959915*^9, 3.505996326984375*^9, 3.506000830921875*^9, 3.50601071753125*^9, 3.506162019734366*^9, 3.506165033643881*^9, 3.506229010173005*^9, 3.506232629425762*^9, 3.506232703678293*^9, 3.5072714905534887`*^9, 3.508242786484375*^9, 3.508417988296875*^9, { 3.508418834453125*^9, 3.50841886415625*^9}, 3.50841939784375*^9, 3.5084209933125*^9, 3.508424536171875*^9, 3.508424647859375*^9, 3.508425087015625*^9, {3.509101725089774*^9, 3.509101773325059*^9}, 3.5091018213419433`*^9, {3.509101888613261*^9, 3.509101908222496*^9}, 3.5091021805677743`*^9, 3.509102239660678*^9, 3.509104484236821*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dp", "=", RowBox[{"2", "d"}]}]], "Input", CellChangeTimes->{{3.5087433121950607`*^9, 3.5087433146130652`*^9}}], Cell[BoxData["0.24`"], "Output", CellChangeTimes->{{3.509101725120974*^9, 3.509101773340659*^9}, 3.509101821357543*^9, {3.5091018886444616`*^9, 3.509101908253696*^9}, 3.509102180583374*^9, 3.509102239676278*^9, 3.5091044842524214`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{"Tasa", " ", "de", " ", "mutaci\[OAcute]n", " ", "no", " ", RowBox[{"reversible", ":"}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.50824216915625*^9, 3.508242199875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mu", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"h", "==", "0"}], ",", RowBox[{"s", "*", RowBox[{"q0", "^", "2"}]}], ",", RowBox[{"q0", "*", "h", "*", "s"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.50599430528125*^9, 3.505994325640625*^9}, { 3.505994380796875*^9, 3.50599446646875*^9}}], Cell[BoxData["0.004000000000000001`"], "Output", CellChangeTimes->{ 3.50599566715625*^9, 3.50599589375*^9, 3.505995991515625*^9, 3.505996327*^9, 3.5060008309375*^9, 3.506010717546875*^9, 3.5061620197499657`*^9, 3.5061650336750813`*^9, 3.5062290102042055`*^9, 3.5062326294569626`*^9, 3.5062327036938934`*^9, 3.5072714905690885`*^9, 3.5082427865*^9, 3.5084179883125*^9, {3.50841883446875*^9, 3.508418864171875*^9}, 3.508419397859375*^9, 3.50842099334375*^9, 3.508424536203125*^9, 3.508424647875*^9, 3.50842508703125*^9, {3.5091017251365743`*^9, 3.509101773356259*^9}, 3.509101821373143*^9, {3.509101888660062*^9, 3.5091019082692957`*^9}, 3.509102180598974*^9, 3.509102239707478*^9, 3.5091044842680216`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dm", "=", "0.0"}]], "Input", CellChangeTimes->{{3.508242067921875*^9, 3.5082420943125*^9}, 3.50842094271875*^9}], Cell[BoxData["0.`"], "Output", CellChangeTimes->{ 3.508242786515625*^9, 3.508417988328125*^9, {3.508418834484375*^9, 3.5084188641875*^9}, 3.508419397875*^9, 3.508420993359375*^9, 3.50842453621875*^9, 3.508424647890625*^9, 3.508425087046875*^9, 3.5091018213887434`*^9, {3.5091018886756616`*^9, 3.509101908284896*^9}, 3.5091021806145744`*^9, 3.509102239723078*^9, 3.5091044842836213`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"n", "=", "50"}], ";", RowBox[{"repeticiones", "=", "10000"}], ";", RowBox[{"generaciones", "=", "4"}], ";"}]], "Input", CellChangeTimes->{ 3.508242655546875*^9, 3.5084179655*^9, {3.508419351578125*^9, 3.508419361546875*^9}, {3.508420952640625*^9, 3.508420975046875*^9}, 3.508424527546875*^9, {3.508425045890625*^9, 3.508425054328125*^9}, { 3.509101787240283*^9, 3.509101812949128*^9}, {3.509101938595749*^9, 3.509101941466154*^9}, 3.5091021767301674`*^9, {3.50910222938026*^9, 3.5091022321414647`*^9}, 3.5091044789016123`*^9}], Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{ "este", " ", "declive", " ", "de", " ", "fijaci\[OAcute]n", " ", "dm", " ", "se", " ", "ha", " ", "calculado", " ", "con", " ", "dif"}], "-", "AproxNei", "-", RowBox[{ RowBox[{"Dm", "**"}], "*"}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.508242097453125*^9, 3.50824215371875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"delta", "=", RowBox[{"2", "d", "*", "q0", RowBox[{"(", RowBox[{"1", "-", "q0"}], ")"}]}]}]], "Input"], Cell[BoxData["0.0114`"], "Output", CellChangeTimes->{ 3.495300780515625*^9, 3.495300862296875*^9, 3.495301126859375*^9, 3.495301249265625*^9, 3.49530134228125*^9, 3.4953014595*^9, 3.495301666625*^9, 3.495301798484375*^9, 3.495301954609375*^9, 3.4953444565625*^9, 3.495344510796875*^9, 3.495345710828125*^9, 3.495345894328125*^9, 3.495346630296875*^9, 3.495347204828125*^9, 3.4953478115*^9, 3.495347868359375*^9, 3.4953479246875*^9, 3.49534815978125*^9, 3.495438552728446*^9, 3.49579286725*^9, 3.49579306853125*^9, 3.4957932575*^9, 3.49579399271875*^9, 3.495795747046875*^9, 3.4957963560625*^9, 3.495796612140625*^9, 3.49579679040625*^9, 3.4960613455333543`*^9, 3.4960614384627175`*^9, 3.4960618381510196`*^9, 3.49606189562152*^9, 3.4960619813124714`*^9, 3.4960621326015368`*^9, 3.496063303796794*^9, 3.4960636631278253`*^9, 3.496063981419592*^9, 3.49616455909375*^9, 3.496165108578125*^9, 3.496166052953125*^9, 3.49616612340625*^9, 3.4961661700625*^9, 3.496166420125*^9, 3.496166494234375*^9, 3.49616677634375*^9, 3.49616687975*^9, 3.496166924484375*^9, 3.49616711025*^9, 3.4961671690625*^9, 3.496167641046875*^9, 3.49616777403125*^9, 3.496168798828125*^9, 3.496169035578125*^9, 3.49616915078125*^9, 3.496202633609375*^9, 3.496202903578125*^9, 3.496202966171875*^9, 3.496203110546875*^9, 3.497006285777913*^9, 3.4970065991200633`*^9, 3.49744968315625*^9, 3.497449832*^9, {3.49744988903125*^9, 3.497449927765625*^9}, 3.497449998015625*^9, 3.4974501065625*^9, 3.4974502345625*^9, 3.497450767953125*^9, 3.49745080109375*^9, 3.497450929578125*^9, 3.4974509861875*^9, 3.49745107396875*^9, 3.497451122203125*^9, 3.49745115803125*^9, 3.497451210671875*^9, 3.49745129578125*^9, 3.49745197471875*^9, 3.497452138109375*^9, 3.49745256065625*^9, 3.497452647390625*^9, 3.49745277890625*^9, 3.49746698884375*^9, 3.497467355421875*^9, 3.497467557*^9, 3.4974678706875*^9, 3.49746821578125*^9, 3.49746855871875*^9, 3.497468763609375*^9, 3.4974691823125*^9, 3.4974694515625*^9, 3.49746953096875*^9, {3.497469606703125*^9, 3.497469633921875*^9}, 3.49747007528125*^9, 3.49747013825*^9, 3.49747027590625*^9, 3.4974704094375*^9, 3.4974705068125*^9, 3.497470859375*^9, 3.497471038671875*^9, 3.49747131465625*^9, 3.49747150965625*^9, 3.497472031984375*^9, 3.497504718078125*^9, 3.49750502725*^9, 3.497505382203125*^9, 3.49750568709375*^9, 3.497506493765625*^9, 3.497506673421875*^9, 3.497506814390625*^9, 3.4975069823125*^9, 3.4975108824375*^9, 3.4975111190625*^9, 3.49751178034375*^9, 3.497512053015625*^9, 3.497512289921875*^9, 3.497512389765625*^9, 3.49751274384375*^9, 3.5002900613430796`*^9, 3.5002902815686665`*^9, 3.5002905399955206`*^9, 3.5002984752793093`*^9, 3.5003001706278877`*^9, 3.500300827529441*^9, 3.5003011997304945`*^9, 3.5003578822846756`*^9, 3.500358496239354*^9, 3.500360915788004*^9, 3.5003649436614957`*^9, 3.5003654815400405`*^9, 3.500365962130085*^9, 3.500367349528597*^9, 3.500371354662446*^9, 3.500829053421875*^9, 3.50082941321875*^9, 3.50082960853125*^9, 3.5008297475625*^9, 3.501136235421875*^9, 3.501136345953125*^9, 3.501136716578125*^9, 3.501138277484375*^9, 3.501138530421875*^9, 3.501139308953125*^9, {3.501139619078125*^9, 3.501139632015625*^9}, 3.50113973184375*^9, 3.501139808109375*^9, 3.501140480796875*^9, 3.50114055690625*^9, 3.50114072684375*^9, 3.5011408880625*^9, 3.50114106190625*^9, 3.501141361734375*^9, 3.505659696234375*^9, 3.505659980453125*^9, 3.5056603448125*^9, 3.505660442375*^9, 3.505660517546875*^9, 3.505660734609375*^9, 3.505661443796875*^9, 3.50566388853125*^9, 3.505721075534648*^9, 3.5057320726875*^9, 3.505732530546875*^9, 3.505736845984375*^9, 3.50573728584375*^9, 3.50573760465625*^9, 3.50574406415625*^9, 3.505745239984375*^9, 3.5057479105*^9, 3.5057480928125*^9, 3.50574828025*^9, 3.5057495979375*^9, 3.505756391765625*^9, 3.50575656434375*^9, 3.5057608619375*^9, 3.505761352046875*^9, 3.50576175684375*^9, 3.505761832421875*^9, 3.50583618153125*^9, 3.505837126140625*^9, 3.505837943390625*^9, 3.5058837686875*^9, 3.505884179953125*^9, 3.5058848850625*^9, 3.505889457203125*^9, 3.5058899340625*^9, 3.50591313109375*^9, 3.50591316753125*^9, 3.505913230859375*^9, 3.505913394265625*^9, 3.50591351946875*^9, { 3.505914394703125*^9, 3.505914417359375*^9}, 3.50591456690625*^9, 3.505914611453125*^9, 3.505915635375*^9, 3.50591613490625*^9, 3.505916435578125*^9, 3.50591727928125*^9, 3.50591770240625*^9, 3.505919978125*^9, 3.50599566721875*^9, 3.505995893796875*^9, 3.5059959915625*^9, 3.5059963270625*^9, 3.506000830984375*^9, 3.506010717578125*^9, 3.506162019781166*^9, 3.5061650337062817`*^9, 3.506229010235406*^9, 3.5062326294881625`*^9, 3.5062327037406936`*^9, 3.5072714906158886`*^9, 3.508242786546875*^9, 3.508417988359375*^9, { 3.508418834515625*^9, 3.508418864234375*^9}, 3.50841939790625*^9, 3.508420993375*^9, 3.508424536234375*^9, 3.508424647921875*^9, 3.508425087078125*^9, 3.509101821404343*^9, {3.5091018887068615`*^9, 3.5091019083160963`*^9}, 3.5091021806457744`*^9, 3.509102239738678*^9, 3.5091044843148212`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"kkk", "=", RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"4", "*", "n", "*", "h", "*", "s"}], "+", RowBox[{ RowBox[{"(", RowBox[{"2", "Pi", "*", "n", "*", "s"}], ")"}], "^", ".5"}], "+", "2"}], ")"}]}]}]], "Input", CellChangeTimes->{{3.50614593165248*^9, 3.5061459331968822`*^9}, { 3.506145981478967*^9, 3.5061460516010904`*^9}}], Cell[BoxData["0.03423487166761312`"], "Output", CellChangeTimes->{ 3.506162019812366*^9, 3.5061648933528347`*^9, 3.506165033862282*^9, 3.5062290114522076`*^9, 3.5062326295973625`*^9, 3.5062327038342934`*^9, 3.507271492035491*^9, 3.50824278665625*^9, 3.508417989359375*^9, { 3.50841883459375*^9, 3.508418864296875*^9}, 3.50841939796875*^9, 3.50842099346875*^9, 3.5084245363125*^9, 3.508424648*^9, 3.50842508715625*^9, 3.509101821419943*^9, {3.5091018887224617`*^9, 3.509101908331696*^9}, 3.509102180661374*^9, 3.509102239754278*^9, 3.5091044843304214`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"newEqDelta", "=", RowBox[{"mu", "*", "s", "*", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "h"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"2", "n"}], ")"}]}], "+", RowBox[{"h", "*", "s"}], " ", "+", " ", RowBox[{"kkk", "*", "s", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "h"}]}], ")"}]}]}], ")"}]}]}]}]], "Input", CellChangeTimes->{{3.5061459198744593`*^9, 3.506145926473271*^9}, { 3.5061460846107483`*^9, 3.506146093143964*^9}, {3.506146177134511*^9, 3.506146245462631*^9}}], Cell[BoxData["0.009774338104913169`"], "Output", CellChangeTimes->{ 3.5061620198279657`*^9, 3.506164893399635*^9, 3.5061650338778815`*^9, 3.506229011467808*^9, 3.506232629628563*^9, 3.5062327038498936`*^9, 3.507271492051091*^9, 3.508242786671875*^9, 3.508417989375*^9, { 3.508418834609375*^9, 3.5084188643125*^9}, 3.508419397984375*^9, 3.5084209935*^9, 3.50842453634375*^9, 3.508424648015625*^9, 3.508425087171875*^9, 3.509101821435543*^9, {3.509101888738062*^9, 3.5091019083472958`*^9}, 3.5091021806769743`*^9, 3.5091022397698784`*^9, 3.5091044843460217`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{ "la", " ", "siguiente", " ", "predicci\[OAcute]n", " ", "es", " ", "para", " ", "el", " ", "modelo", " ", "de", " ", "mutaci\[OAcute]n", " ", "no", " ", "recurrente", " ", "pero", " ", "vale", " ", "para", " ", "el", " ", "modelo", " ", "recurrente", " ", "si", " ", "la", " ", "frecuencia", " ", "de", " ", "los", " ", "delet\[EAcute]reos", " ", "es", " ", "peque\[NTilde]a", " ", "en", " ", "el", " ", "quilibrio"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.50614609680997*^9, 3.506146172095702*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"w0", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "q0"}], ")"}], "^", "2"}], "+", RowBox[{"2", "*", "q0", "*", RowBox[{"(", RowBox[{"1", "-", "q0"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"h", "*", "s"}]}], ")"}]}], "+", RowBox[{ RowBox[{"q0", "^", "2"}], "*", RowBox[{"(", RowBox[{"1", "-", "s"}], ")"}]}]}]}]], "Input", CellChangeTimes->{{3.49405097934513*^9, 3.4940510724304934`*^9}, { 3.494054428004587*^9, 3.4940544280201874`*^9}, {3.4940544795626774`*^9, 3.4940544795782776`*^9}}], Cell[BoxData["0.9914`"], "Output", CellChangeTimes->{ 3.494051077313302*^9, 3.494051176810277*^9, 3.4940512468076*^9, 3.494051321984132*^9, 3.4940513821534376`*^9, 3.49405142324391*^9, 3.494051797613367*^9, 3.4940523157838774`*^9, 3.4940526369728413`*^9, 3.4940536054775424`*^9, 3.4940541953925786`*^9, {3.494055349222605*^9, 3.4940553753370514`*^9}, 3.4940554185959272`*^9, 3.4940557877857757`*^9, 3.494055935502435*^9, 3.494056053095442*^9, 3.4940561683760448`*^9, 3.494056293753465*^9, 3.4940563604279823`*^9, 3.494056646142084*^9, 3.494056883496501*^9, 3.4940571294621334`*^9, 3.4940576106605783`*^9, 3.4940582900885715`*^9, 3.4940583541578836`*^9, 3.4940584807365065`*^9, 3.494064470953125*^9, 3.4940646718125*^9, 3.4940745468125*^9, 3.494092298796875*^9, 3.49409243725*^9, 3.4941359879914*^9, { 3.494136506995911*^9, 3.4941365333131576`*^9}, {3.494136645321354*^9, 3.4941366624189844`*^9}, 3.494155897046875*^9, 3.494156356421875*^9, 3.49415646728125*^9, 3.4941569423125*^9, 3.494157062546875*^9, 3.49415712840625*^9, 3.49415726503125*^9, 3.494157485*^9, 3.494157620671875*^9, 3.49415784575*^9, 3.494158338703125*^9, 3.4941584495625*^9, 3.49415854775*^9, 3.49415860978125*^9, 3.49415866825*^9, 3.49415874153125*^9, 3.4941592158125*^9, 3.49416270971875*^9, 3.49416501353125*^9, 3.494165294140625*^9, 3.494167307078125*^9, 3.494221126081452*^9, 3.4942249880456076`*^9, 3.494226352855618*^9, 3.4942268623265133`*^9, 3.494227994825702*^9, 3.494228294003028*^9, {3.4942284345592747`*^9, 3.4942284645113273`*^9}, 3.494228695532133*^9, 3.4942291706777678`*^9, 3.49422921203344*^9, 3.4942295444388237`*^9, 3.494229826128519*^9, 3.494230013718848*^9, 3.494230070050547*^9, 3.494230124777446*^9, 3.4942313873260717`*^9, 3.4944823910625*^9, 3.494482475203125*^9, 3.494482559296875*^9, 3.494482627234375*^9, 3.49450233515625*^9, 3.494502459375*^9, 3.49450276890625*^9, 3.49450300709375*^9, 3.494503177796875*^9, 3.494504968703125*^9, 3.494656206665013*^9, 3.494744311828222*^9, 3.494745534511569*^9, 3.4947455909056683`*^9, 3.4947467844949646`*^9, 3.494746841622265*^9, 3.4947479298021765`*^9, 3.495093484421875*^9, 3.495105248671875*^9, 3.49510533403125*^9, 3.49510574675*^9, 3.495105809609375*^9, 3.49510602259375*^9, 3.495106121046875*^9, 3.495106327984375*^9, 3.49510650809375*^9, 3.49510666475*^9, 3.495106771*^9, 3.495107026265625*^9, 3.49510716125*^9, 3.495107424109375*^9, 3.495202316484375*^9, 3.495266623460396*^9, 3.495288682875*^9, 3.49528885721875*^9, 3.49528970178125*^9, { 3.4952897400625*^9, 3.495289761078125*^9}, 3.495290066171875*^9, 3.495290386203125*^9, 3.49529114415625*^9, 3.495291299625*^9, 3.4952968411875*^9, 3.49529700871875*^9, 3.495297305875*^9, 3.495297727046875*^9, 3.495298433234375*^9, 3.49530078053125*^9, 3.4953008623125*^9, 3.495301126890625*^9, 3.495301249296875*^9, 3.495301342296875*^9, 3.495301459515625*^9, 3.49530166665625*^9, 3.4953017985*^9, 3.495301954640625*^9, 3.49534445659375*^9, 3.495344510828125*^9, 3.495345710859375*^9, 3.49534589434375*^9, 3.495346630328125*^9, 3.49534720484375*^9, 3.495347811515625*^9, 3.495347868390625*^9, 3.495347924703125*^9, 3.4953481598125*^9, 3.4954385527440457`*^9, 3.49579286728125*^9, 3.4957930685625*^9, 3.49579325753125*^9, 3.49579399275*^9, 3.4957957470625*^9, 3.495796356078125*^9, 3.495796612171875*^9, 3.495796790421875*^9, 3.4960613455489545`*^9, 3.4960614384783173`*^9, 3.4960618381666193`*^9, 3.4960618956527205`*^9, 3.496061981328071*^9, 3.496062132617137*^9, 3.4960633038279943`*^9, 3.496063663143425*^9, 3.4960639814351916`*^9, 3.496164559109375*^9, 3.49616510859375*^9, 3.49616605296875*^9, 3.496166123421875*^9, 3.496166170078125*^9, 3.496166420140625*^9, 3.49616649425*^9, 3.496166776359375*^9, 3.496166879765625*^9, 3.4961669245*^9, 3.496167110265625*^9, 3.496167169078125*^9, 3.4961676410625*^9, 3.496167774046875*^9, 3.49616879884375*^9, 3.49616903559375*^9, 3.496169150796875*^9, 3.496202633625*^9, 3.49620290359375*^9, 3.496202966203125*^9, 3.496203110578125*^9, 3.4970062857935133`*^9, 3.4970065991356635`*^9, 3.497449683171875*^9, 3.497449832015625*^9, {3.4974498890625*^9, 3.49744992778125*^9}, 3.49744999803125*^9, 3.497450106578125*^9, 3.49745023459375*^9, 3.497450767984375*^9, 3.497450801125*^9, 3.49745092959375*^9, 3.497450986203125*^9, 3.497451073984375*^9, 3.497451122234375*^9, 3.4974511580625*^9, 3.4974512106875*^9, 3.4974512958125*^9, 3.49745197475*^9, 3.497452138140625*^9, 3.4974525606875*^9, 3.49745264740625*^9, 3.4974527789375*^9, 3.497466988859375*^9, 3.4974673554375*^9, 3.497467557015625*^9, 3.49746787071875*^9, 3.497468215796875*^9, 3.49746855875*^9, 3.497468763625*^9, 3.49746918234375*^9, 3.49746945159375*^9, 3.497469530984375*^9, { 3.49746960671875*^9, 3.4974696339375*^9}, 3.497470075296875*^9, 3.497470138265625*^9, 3.497470275921875*^9, 3.497470409453125*^9, 3.497470506828125*^9, 3.49747085940625*^9, 3.4974710386875*^9, 3.497471314671875*^9, 3.497471509671875*^9, 3.497472032*^9, 3.49750471809375*^9, 3.497505027265625*^9, 3.49750538221875*^9, 3.497505687109375*^9, 3.497506493796875*^9, 3.4975066734375*^9, 3.49750681440625*^9, 3.497506982328125*^9, 3.497510882453125*^9, 3.49751111909375*^9, 3.497511780375*^9, 3.497512053046875*^9, 3.497512289953125*^9, 3.49751238978125*^9, 3.497512743875*^9, 3.5002900613430796`*^9, 3.5002902815842667`*^9, 3.5002905400111203`*^9, 3.5002984752949095`*^9, 3.5003001706434875`*^9, 3.500300827545041*^9, 3.5003011997460947`*^9, 3.500357882300276*^9, 3.5003584962549543`*^9, 3.5003609158036036`*^9, 3.5003649436926956`*^9, 3.5003654815556407`*^9, 3.5003659621456847`*^9, 3.500367349544197*^9, 3.500371354678046*^9, 3.500829053453125*^9, 3.50082941325*^9, 3.500829608546875*^9, 3.500829747578125*^9, 3.5011362354375*^9, 3.50113634596875*^9, 3.50113671659375*^9, 3.5011382775*^9, 3.5011385304375*^9, 3.501139308984375*^9, {3.50113961909375*^9, 3.501139632046875*^9}, 3.501139731875*^9, 3.501139808125*^9, 3.501140480828125*^9, 3.501140556921875*^9, 3.501140726875*^9, 3.50114088809375*^9, 3.5011410619375*^9, 3.50114136178125*^9, 3.50565969625*^9, 3.50565998046875*^9, 3.505660344828125*^9, 3.50566044240625*^9, 3.505660517578125*^9, 3.50566073465625*^9, 3.505661443828125*^9, 3.505663888546875*^9, 3.505721075550248*^9, 3.505732072703125*^9, 3.505732530578125*^9, 3.505736846015625*^9, 3.505737285875*^9, 3.505737604671875*^9, 3.505744064171875*^9, 3.505745240015625*^9, 3.50574791053125*^9, 3.50574809284375*^9, 3.505748280265625*^9, 3.505749597953125*^9, 3.505756391796875*^9, 3.505756564375*^9, 3.505760861953125*^9, 3.5057613520625*^9, 3.505761756859375*^9, 3.5057618324375*^9, 3.505836181546875*^9, 3.50583712615625*^9, 3.50583794340625*^9, 3.50588376871875*^9, 3.50588417996875*^9, 3.50588488509375*^9, 3.50588945721875*^9, 3.505889934078125*^9, 3.505913131109375*^9, 3.505913167546875*^9, 3.505913230875*^9, 3.50591339428125*^9, 3.505913519484375*^9, {3.50591439471875*^9, 3.505914417375*^9}, 3.505914566921875*^9, 3.505914611484375*^9, 3.505915635390625*^9, 3.505916134921875*^9, 3.50591643559375*^9, 3.5059172793125*^9, 3.505917702421875*^9, 3.505919978140625*^9, 3.505995667234375*^9, 3.5059958938125*^9, 3.50599599159375*^9, 3.505996327078125*^9, 3.506000831*^9, 3.50601071759375*^9, 3.506162019859166*^9, 3.5061650337218814`*^9, 3.5062290102666054`*^9, 3.5062326295193624`*^9, 3.5062327037562933`*^9, 3.507271490647088*^9, 3.5082427865625*^9, 3.508417988375*^9, {3.508418834546875*^9, 3.50841886425*^9}, 3.508419397921875*^9, 3.50842099340625*^9, 3.508424536265625*^9, 3.5084246479375*^9, 3.508425087109375*^9, 3.5091021806925745`*^9, 3.509102239785478*^9, 3.509104484361622*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"eficacia", "[", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"eficacia", "[", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], "]"}], "=", RowBox[{"1", "-", RowBox[{"h", "*", "s"}]}]}], ";", RowBox[{ RowBox[{"eficacia", "[", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "]"}], "=", RowBox[{"1", "-", RowBox[{"h", "*", "s"}]}]}], ";", RowBox[{ RowBox[{"eficacia", "[", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "]"}], "=", RowBox[{"1", "-", "s"}]}], ";"}]], "Input", CellChangeTimes->{{3.493813406578125*^9, 3.4938135165*^9}, { 3.493819360421875*^9, 3.493819365078125*^9}, {3.493819420859375*^9, 3.49381943540625*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dist1", "=", RowBox[{"BernoulliDistribution", "[", "q0", "]"}]}]], "Input", CellChangeTimes->{{3.493708608898278*^9, 3.4937086236559043`*^9}, 3.4940544280201874`*^9, 3.4940544795782776`*^9}], Cell[BoxData[ RowBox[{"BernoulliDistribution", "[", "0.05`", "]"}]], "Output", CellChangeTimes->{ 3.4937089287144403`*^9, 3.493710019889557*^9, 3.493710148982586*^9, 3.493710307198064*^9, 3.493710884555078*^9, {3.493710940434376*^9, 3.49371097676684*^9}, 3.4937110893054376`*^9, 3.4937111206614923`*^9, 3.493711185573207*^9, {3.4937115895015163`*^9, 3.493711606895547*^9}, 3.49371205826674*^9, {3.4937124975947113`*^9, 3.4937125392779846`*^9}, { 3.493813570140625*^9, 3.493813588*^9}, 3.493813719109375*^9, 3.493813781109375*^9, 3.4938139056875*^9, 3.493813985640625*^9, { 3.493814017625*^9, 3.49381406315625*^9}, 3.493814123140625*^9, 3.49381460746875*^9, 3.493814727390625*^9, {3.493814800171875*^9, 3.493814825671875*^9}, 3.493814925671875*^9, {3.493815565125*^9, 3.4938156191875*^9}, 3.493815715125*^9, 3.49381585221875*^9, 3.493815887890625*^9, 3.493815932109375*^9, 3.493815988578125*^9, 3.49381603028125*^9, 3.493816091484375*^9, 3.49381613528125*^9, 3.493816286953125*^9, 3.493816367515625*^9, 3.493816494828125*^9, { 3.493816617484375*^9, 3.493816645859375*^9}, 3.493816693484375*^9, 3.493816765484375*^9, 3.4938168276875*^9, 3.49381688575*^9, 3.493816915828125*^9, 3.4938185260625*^9, 3.493818926984375*^9, 3.49381944975*^9, {3.493819876578125*^9, 3.493819893421875*^9}, 3.493820129890625*^9, {3.493820171796875*^9, 3.493820238*^9}, 3.493908706171875*^9, 3.493910075359375*^9, 3.493910205828125*^9, 3.493910525984375*^9, 3.49391088909375*^9, 3.493911005828125*^9, 3.493911182390625*^9, 3.49391126178125*^9, 3.4939114236875*^9, 3.49391151440625*^9, 3.493922200125*^9, 3.4939245668125*^9, { 3.493924711828125*^9, 3.493924749703125*^9}, {3.493924780078125*^9, 3.4939248011875*^9}, 3.493924987703125*^9, 3.4939258789375*^9, 3.493926234546875*^9, {3.493926354296875*^9, 3.493926371109375*^9}, 3.493926993953125*^9, {3.493927152734375*^9, 3.493927179703125*^9}, 3.493961182095869*^9, 3.4939612573192005`*^9, 3.4939613884530315`*^9, 3.4939678916472836`*^9, 3.4939680551979713`*^9, 3.493968159374954*^9, 3.4939687203207393`*^9, 3.4939692158712096`*^9, 3.4939696060902953`*^9, 3.4939697105480785`*^9, 3.4939697977210317`*^9, 3.4939699663417277`*^9, { 3.4939704280401387`*^9, 3.4939704432969656`*^9}, 3.4939705351187267`*^9, 3.49397129021926*^9, {3.49397214128557*^9, 3.4939721541087923`*^9}, { 3.4939721860280485`*^9, 3.4939722013160753`*^9}, {3.493972233608132*^9, 3.493972255541771*^9}, 3.493973452324354*^9, 3.4939742414257035`*^9, 3.4939742750749626`*^9, 3.493974471526108*^9, 3.4939745397294273`*^9, 3.493974599227932*^9, 3.4939746366523976`*^9, 3.493974680285674*^9, { 3.4939747206585455`*^9, 3.4939747449789877`*^9}, 3.49397521492706*^9, 3.4939753996625843`*^9, 3.494006062046875*^9, 3.494006148921875*^9, 3.494006197328125*^9, 3.494006935984375*^9, 3.494007403890625*^9, 3.494007459984375*^9, {3.4940075093125*^9, 3.4940075328125*^9}, { 3.494007666828125*^9, 3.494007685109375*^9}, 3.49400800653125*^9, 3.494008056640625*^9, {3.494008478390625*^9, 3.494008501921875*^9}, 3.494008671203125*^9, 3.494009142671875*^9, 3.494048392254613*^9, 3.494048437151492*^9, 3.494048555978501*^9, {3.4940486206406145`*^9, 3.494048647098261*^9}, 3.494048975151237*^9, {3.4940490798586206`*^9, 3.4940491080478706`*^9}, 3.4940491837392035`*^9, 3.4940492374812975`*^9, 3.494049277932169*^9, 3.494049697335306*^9, 3.494049778751849*^9, 3.4940498529455795`*^9, 3.4940499530197554`*^9, 3.4940510773445024`*^9, 3.4940511768258767`*^9, 3.4940512468388*^9, 3.494051322015332*^9, 3.494051382169038*^9, 3.49405142327511*^9, 3.4940517976445675`*^9, 3.4940523158150773`*^9, 3.4940526370040417`*^9, 3.4940536055087423`*^9, 3.4940541954081783`*^9, {3.494055349253805*^9, 3.494055375368251*^9}, 3.494055418627127*^9, 3.4940557878169756`*^9, 3.494055935518035*^9, 3.4940560531266413`*^9, 3.4940561683916445`*^9, 3.494056293769065*^9, 3.4940563604591827`*^9, 3.4940566461732845`*^9, 3.4940568835277014`*^9, 3.494057129493333*^9, 3.4940576106761785`*^9, 3.494058290119772*^9, 3.494058354189084*^9, 3.4940584807677064`*^9, 3.494064471015625*^9, 3.49406467184375*^9, 3.49407454696875*^9, 3.4940922988125*^9, 3.49409243728125*^9, 3.4941359880225997`*^9, {3.494136507011511*^9, 3.4941365333287573`*^9}, {3.4941366453525543`*^9, 3.4941366624345846`*^9}, 3.494155897140625*^9, 3.494156356453125*^9, 3.4941564673125*^9, 3.49415694234375*^9, 3.494157062578125*^9, 3.494157128421875*^9, 3.4941572650625*^9, 3.49415748503125*^9, 3.4941576206875*^9, 3.49415784578125*^9, 3.49415833871875*^9, 3.494158449578125*^9, 3.494158547765625*^9, 3.4941586098125*^9, 3.494158668265625*^9, 3.494158741546875*^9, 3.49415921584375*^9, 3.494162709734375*^9, 3.494165013546875*^9, 3.49416529415625*^9, 3.49416730709375*^9, 3.494221126112652*^9, 3.4942249880768075`*^9, 3.494226352886818*^9, 3.494226862342113*^9, 3.494227994856902*^9, 3.4942282940342274`*^9, { 3.494228434574875*^9, 3.494228464526927*^9}, 3.494228695563333*^9, 3.4942291706933675`*^9, 3.49422921206464*^9, 3.494229544470024*^9, 3.4942298261597185`*^9, 3.4942300137344484`*^9, 3.494230070066147*^9, 3.494230124808646*^9, 3.494231387341672*^9, 3.494482391125*^9, 3.49448247521875*^9, 3.4944825593125*^9, 3.49448262725*^9, 3.4945023351875*^9, 3.494502459421875*^9, 3.494502768921875*^9, 3.494503007125*^9, 3.4945031778125*^9, 3.494504968734375*^9, 3.494656206680613*^9, 3.494744311875022*^9, 3.4947455345427694`*^9, 3.4947455909368687`*^9, 3.494746784526165*^9, 3.4947468416534653`*^9, 3.4947479298333764`*^9, 3.495093484484375*^9, 3.495105248703125*^9, 3.495105334046875*^9, 3.49510574678125*^9, 3.495105809640625*^9, 3.495106022625*^9, 3.495106121078125*^9, 3.495106328*^9, 3.495106508125*^9, 3.495106664765625*^9, 3.49510677103125*^9, 3.4951070263125*^9, 3.495107161265625*^9, 3.495107424125*^9, 3.495202316515625*^9, 3.4952666234915953`*^9, 3.495288682953125*^9, 3.495288857265625*^9, 3.4952897018125*^9, {3.49528974009375*^9, 3.495289761109375*^9}, 3.495290066203125*^9, 3.495290386234375*^9, 3.4952911441875*^9, 3.49529129965625*^9, 3.49529684121875*^9, 3.49529700875*^9, 3.49529730590625*^9, 3.4952977270625*^9, 3.495298433265625*^9, 3.495300780609375*^9, 3.49530086234375*^9, 3.49530112690625*^9, 3.4953012493125*^9, 3.495301342328125*^9, 3.495301459546875*^9, 3.495301666671875*^9, 3.49530179853125*^9, 3.495301954671875*^9, 3.495344456609375*^9, 3.49534451084375*^9, 3.495345710890625*^9, 3.495345894375*^9, 3.495346630359375*^9, 3.495347204875*^9, 3.495347811546875*^9, 3.49534786840625*^9, 3.495347924734375*^9, 3.49534815984375*^9, 3.495438552868846*^9, 3.49579286734375*^9, 3.495793068578125*^9, 3.4957932575625*^9, 3.495793992765625*^9, 3.49579574709375*^9, 3.495796356109375*^9, 3.4957966121875*^9, 3.495796790453125*^9, 3.4960613455801544`*^9, 3.4960614384939175`*^9, 3.4960618381822195`*^9, 3.4960618956683207`*^9, 3.496061981343671*^9, 3.4960621326327367`*^9, 3.4960633038435946`*^9, 3.4960636631746254`*^9, 3.4960639814507914`*^9, 3.4961645591875*^9, 3.496165108625*^9, 3.496166053015625*^9, 3.4961661234375*^9, 3.49616617009375*^9, 3.49616642015625*^9, 3.496166494265625*^9, 3.496166776375*^9, 3.49616687978125*^9, 3.496166924515625*^9, 3.496167110296875*^9, 3.496167169109375*^9, 3.49616764109375*^9, 3.4961677740625*^9, 3.496168798859375*^9, 3.496169035609375*^9, 3.496169150828125*^9, 3.4962026336875*^9, 3.496202903625*^9, 3.49620296621875*^9, 3.496203110609375*^9, 3.497006285824713*^9, 3.497006599151263*^9, 3.497449683234375*^9, 3.497449832046875*^9, {3.49744988909375*^9, 3.4974499278125*^9}, 3.4974499980625*^9, 3.497450106609375*^9, 3.497450234609375*^9, 3.497450768015625*^9, 3.49745080115625*^9, 3.497450929625*^9, 3.497450986234375*^9, 3.497451074015625*^9, 3.497451122265625*^9, 3.49745115809375*^9, 3.49745121071875*^9, 3.497451295828125*^9, 3.497451974828125*^9, 3.497452138171875*^9, 3.497452560703125*^9, 3.4974526474375*^9, 3.497452778953125*^9, 3.497466988875*^9, 3.497467355453125*^9, 3.497467557046875*^9, 3.497467870734375*^9, 3.4974682158125*^9, 3.497468558765625*^9, 3.497468763640625*^9, 3.497469182359375*^9, 3.497469451609375*^9, 3.497469531015625*^9, {3.49746960675*^9, 3.497469633953125*^9}, 3.497470075328125*^9, 3.49747013828125*^9, 3.4974702759375*^9, 3.497470409484375*^9, 3.49747050684375*^9, 3.497470859421875*^9, 3.49747103871875*^9, 3.497471314703125*^9, 3.497471509703125*^9, 3.49747203203125*^9, 3.49750471815625*^9, 3.49750502728125*^9, 3.497505382234375*^9, 3.497505687125*^9, 3.4975064938125*^9, 3.497506673453125*^9, 3.497506814421875*^9, 3.49750698234375*^9, 3.49751088246875*^9, 3.497511119109375*^9, 3.49751178040625*^9, 3.4975120530625*^9, 3.497512289984375*^9, 3.4975123898125*^9, 3.49751274390625*^9, 3.5002900614054794`*^9, 3.5002902815998664`*^9, 3.50029054002672*^9, 3.5002984753105097`*^9, 3.5003001706590877`*^9, 3.5003008275606413`*^9, 3.500301199761695*^9, 3.5003578823314753`*^9, 3.500358496270554*^9, 3.5003609158348036`*^9, 3.500364943708296*^9, 3.5003654815868406`*^9, 3.5003659621768847`*^9, 3.5003673495753965`*^9, 3.500371354709246*^9, 3.500829053484375*^9, 3.500829413265625*^9, 3.500829608578125*^9, 3.500829747609375*^9, 3.5011362355*^9, 3.501136346*^9, 3.501136716625*^9, 3.501138277578125*^9, 3.50113853046875*^9, 3.501139309*^9, {3.501139619125*^9, 3.501139632078125*^9}, 3.501139731890625*^9, 3.50113980815625*^9, 3.501140480859375*^9, 3.501140556953125*^9, 3.50114072690625*^9, 3.501140888125*^9, 3.50114106196875*^9, 3.5011413618125*^9, 3.5056596963125*^9, 3.5056599805*^9, 3.505660344859375*^9, 3.5056604424375*^9, 3.505660517609375*^9, 3.5056607346875*^9, 3.505661443859375*^9, 3.505663888578125*^9, 3.5057210755658484`*^9, 3.5057320728125*^9, 3.505732530625*^9, 3.50573684603125*^9, 3.505737285890625*^9, 3.505737604703125*^9, 3.505744064203125*^9, 3.505745240046875*^9, 3.5057479105625*^9, 3.505748092875*^9, 3.505748280296875*^9, 3.505749597984375*^9, 3.5057563918125*^9, 3.505756564390625*^9, 3.50576086196875*^9, 3.50576135209375*^9, 3.505761756875*^9, 3.505761832453125*^9, 3.505836181609375*^9, 3.5058371261875*^9, 3.505837943421875*^9, 3.505883768734375*^9, 3.50588418*^9, 3.505884885125*^9, 3.505889457234375*^9, 3.50588993409375*^9, 3.505913131125*^9, 3.505913167578125*^9, 3.50591323090625*^9, 3.505913394296875*^9, 3.505913519515625*^9, { 3.50591439475*^9, 3.505914417421875*^9}, 3.5059145669375*^9, 3.5059146115*^9, 3.50591563540625*^9, 3.505916134953125*^9, 3.505916435625*^9, 3.505917279328125*^9, 3.5059177024375*^9, 3.505919978171875*^9, 3.505995667296875*^9, 3.50599589384375*^9, 3.505995991625*^9, 3.505996327109375*^9, 3.506000831015625*^9, 3.506010717609375*^9, 3.5061620198747663`*^9, 3.5061650337530813`*^9, 3.5062290103134055`*^9, 3.506232629550563*^9, 3.5062327037874937`*^9, 3.5072714906938887`*^9, 3.508242786578125*^9, 3.5084179884375*^9, { 3.5084188345625*^9, 3.508418864265625*^9}, 3.5084193979375*^9, 3.508420993421875*^9, 3.50842453628125*^9, 3.50842464796875*^9, 3.508425087125*^9, 3.5091021807081747`*^9, 3.509102239801078*^9, 3.5091044843772216`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"regWF", "=", RowBox[{"{", "}"}]}], ";", RowBox[{"regWg", "=", RowBox[{"{", "}"}]}], ";", RowBox[{"regWEWF", "=", RowBox[{"{", "}"}]}], ";", RowBox[{"regWEWg", "=", RowBox[{"{", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.49448193946875*^9, 3.494482006875*^9}, { 3.494482146796875*^9, 3.494482151859375*^9}, 3.49450346265625*^9, { 3.49528927553125*^9, 3.495289298671875*^9}, {3.495289622*^9, 3.49528967321875*^9}, {3.495290843546875*^9, 3.495290857265625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"gdf", "[", "0", "]"}], ":=", "0"}]], "Input", CellChangeTimes->{{3.501135322796875*^9, 3.501135361546875*^9}, { 3.501135468328125*^9, 3.5011355175*^9}, 3.50113818209375*^9, 3.501139298609375*^9, {3.501139360828125*^9, 3.501139377796875*^9}, { 3.501139646640625*^9, 3.501139662859375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"fneutro", "[", RowBox[{"-", "1"}], "]"}], "=", "0"}], ";", RowBox[{ RowBox[{"fneutro", "[", "0", "]"}], "=", "0"}], ";"}]], "Input", CellChangeTimes->{{3.50591455490625*^9, 3.505914559625*^9}, { 3.505914593078125*^9, 3.505914607390625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"gdf", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"gdf", "[", RowBox[{"t", "-", "1"}], "]"}], RowBox[{"(", RowBox[{"1.", "-", RowBox[{"1", "/", RowBox[{"(", RowBox[{"2", "n"}], ")"}]}]}], ")"}]}], "+", RowBox[{"1", "/", RowBox[{"(", RowBox[{"2", "n"}], ")"}]}]}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "d", "*", RowBox[{"fneutro", "[", RowBox[{"t", "-", "1"}], "]"}]}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.501139576203125*^9, 3.50113958240625*^9}, { 3.505658551296875*^9, 3.505658552859375*^9}, {3.505659961359375*^9, 3.505659966875*^9}, {3.505914258671875*^9, 3.50591425921875*^9}, 3.506094742453125*^9}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[ RowBox[{"(*", RowBox[{"una", " ", "poblaci\[OAcute]n"}], "*)"}], "Title"]}]], "Input", CellChangeTimes->{{3.4953443635625*^9, 3.495344386875*^9}, { 3.5002900480362563`*^9, 3.500290054042267*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"\"\<1\>\"", " ", "es", " ", "el", " ", "delet\[EAcute]reo"}], ",", " ", RowBox[{ "\"\<0\>\"", " ", "es", " ", "el", " ", "alelo", " ", "silvestre"}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.493813924203125*^9, 3.49381396915625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"qnext", "=", "q0"}], ";", RowBox[{"wnext", "=", "w0"}], ";"}]], "Input", CellChangeTimes->{{3.494054873338569*^9, 3.4940548829793863`*^9}, { 3.4940549593103204`*^9, 3.4940549679995356`*^9}, {3.49744962971875*^9, 3.4974496404375*^9}, 3.497450205765625*^9}], Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{"t", "=", "1"}], ",", RowBox[{"t", "\[LessEqual]", RowBox[{"generaciones", "+", "2"}]}], ",", RowBox[{"t", "++"}], ",", RowBox[{ RowBox[{ RowBox[{"fneutro", "[", "t", "]"}], "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "[", "t", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"qnext", "*", RowBox[{"(", RowBox[{"1", "-", "qnext"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"h", "*", "s"}]}], ")"}]}], "+", RowBox[{ RowBox[{"qnext", "^", "2"}], "*", RowBox[{"(", RowBox[{"1", "-", "s"}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "qnext"}], ")"}], "^", "2"}], "+", RowBox[{"2", "*", "qnext", "*", RowBox[{"(", RowBox[{"1", "-", "qnext"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"h", "*", "s"}]}], ")"}]}], "+", RowBox[{ RowBox[{"qnext", "^", "2"}], "*", RowBox[{"(", RowBox[{"1", "-", "s"}], ")"}]}]}], ")"}]}]}], ";", RowBox[{"qnext", "=", RowBox[{"q", "[", "t", "]"}]}], ";", RowBox[{ RowBox[{"ewsinpurga", "[", "t", "]"}], "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "qnext"}], ")"}], "^", "2"}], "+", RowBox[{"2", "*", "qnext", "*", RowBox[{"(", RowBox[{"1", "-", "qnext"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"h", "*", "s"}]}], ")"}]}], "+", RowBox[{ RowBox[{"qnext", "^", "2"}], "*", RowBox[{"(", RowBox[{"1", "-", "s"}], ")"}]}]}]}], ";", RowBox[{"wnext", "=", RowBox[{"ewsinpurga", "[", "t", "]"}]}], ";"}]}], "]"}]], "Input", CellChangeTimes->{{3.493973894902295*^9, 3.4939739620760126`*^9}, { 3.4939746230023737`*^9, 3.4939746259351788`*^9}, {3.494050670698588*^9, 3.4940506761741977`*^9}, 3.494054181274554*^9, {3.4940550406800632`*^9, 3.4940550451572714`*^9}, {3.494055228291193*^9, 3.494055389283476*^9}, { 3.4940557233888626`*^9, 3.4940557625449314`*^9}, {3.494057378641371*^9, 3.494057381698976*^9}, {3.4940577940233*^9, 3.49405786792063*^9}, { 3.494057939867956*^9, 3.4940579963088555`*^9}, 3.4940580287257123`*^9, { 3.4940581134338613`*^9, 3.494058231713269*^9}, {3.4940583364986534`*^9, 3.4940583425046635`*^9}, {3.49422949102433*^9, 3.4942294916327314`*^9}, 3.49529995390625*^9, 3.49534421434375*^9, {3.4974462796875*^9, 3.497446392375*^9}, 3.497446468921875*^9, {3.497449494171875*^9, 3.49744952253125*^9}, {3.4974500963125*^9, 3.497450096984375*^9}, { 3.497467307859375*^9, 3.497467311375*^9}, {3.5011366845625*^9, 3.501136710421875*^9}, 3.501139761375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"ewselsinpurg", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"ewsinpurga", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "generaciones"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4940572805795984`*^9, 3.4940572867572093`*^9}, { 3.4940573625421424`*^9, 3.4940573722921596`*^9}, 3.4940575007271852`*^9, 3.4940575580104856`*^9, 3.4940583686815095`*^9, {3.494065395484375*^9, 3.494065398359375*^9}, {3.4942295197595806`*^9, 3.4942295203055816`*^9}, 3.495344221296875*^9, {3.505916108390625*^9, 3.505916113390625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"t", "=", "1"}], ",", RowBox[{"t", "\[LessEqual]", RowBox[{"generaciones", "+", "2"}]}], ",", RowBox[{"t", "++"}], ",", RowBox[{ RowBox[{ RowBox[{"medC", "[", "t", "]"}], "=", "0"}], ";", RowBox[{ RowBox[{"medCP", "[", "t", "]"}], "=", "0"}], ";", RowBox[{ RowBox[{"wmedia", "[", "t", "]"}], "=", "0"}], ";", RowBox[{"qt", "=", "0"}], ";", RowBox[{ RowBox[{"q20sim", "[", "t", "]"}], "=", "0"}], ";", RowBox[{ RowBox[{"q0sim", "[", "t", "]"}], "=", "0"}], ";", RowBox[{ RowBox[{"pq0sim", "[", "t", "]"}], "=", "0"}], ";", RowBox[{ RowBox[{"w0obs", "[", "t", "]"}], "=", "0"}], ";", RowBox[{ RowBox[{"tasadobs", "[", "t", "]"}], "=", "0"}], ";", RowBox[{ RowBox[{"qsim", "[", "t", "]"}], "=", "0"}]}]}], "]"}], ";", RowBox[{"deltat", "=", "0"}], ";"}]], "Input", CellChangeTimes->{ 3.495344203375*^9, {3.496167076640625*^9, 3.496167078359375*^9}, 3.497449819734375*^9, {3.497449884*^9, 3.497449884578125*^9}, 3.497450221203125*^9, 3.4974672271875*^9, {3.497467342125*^9, 3.497467350484375*^9}, {3.500289385066292*^9, 3.5002893974215136`*^9}, { 3.5002895570253935`*^9, 3.5002895583357964`*^9}, {3.500290259120227*^9, 3.5002902728482513`*^9}, {3.505747475421875*^9, 3.50574748965625*^9}, { 3.50574806815625*^9, 3.50574808390625*^9}, {3.5057555194375*^9, 3.505755547875*^9}, {3.505756549953125*^9, 3.505756557640625*^9}, { 3.505912863484375*^9, 3.505912878078125*^9}, {3.505912917265625*^9, 3.505912927171875*^9}, 3.505913336171875*^9, 3.50841721046875*^9}], Cell[BoxData[ RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{ RowBox[{"consPurg", "[", RowBox[{"i", ",", "0"}], "]"}], "=", "0"}], ";", RowBox[{ RowBox[{"cons", "[", RowBox[{"i", ",", "0"}], "]"}], "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "n"}], ",", RowBox[{"j", "++"}], ",", RowBox[{ RowBox[{ RowBox[{"parentesco", "[", RowBox[{"i", ",", "j", ",", "0"}], "]"}], "=", "0"}], ";", RowBox[{ RowBox[{"parentPurg", "[", RowBox[{"i", ",", "j", ",", "0"}], "]"}], "=", "0"}]}]}], "]"}], ";", RowBox[{ RowBox[{"parentesco", "[", RowBox[{"i", ",", "i", ",", "0"}], "]"}], "=", "0.5"}], ";", RowBox[{ RowBox[{"parentPurg", "[", RowBox[{"i", ",", "i", ",", "0"}], "]"}], "=", "0.5"}]}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.493709476181802*^9, 3.4937094792238073`*^9}, { 3.4937095228102837`*^9, 3.493709660776926*^9}, {3.4937097073898077`*^9, 3.493709708060609*^9}, {3.493710207638689*^9, 3.493710240507947*^9}, { 3.4937102929864388`*^9, 3.493710297604047*^9}, {3.4937106896483355`*^9, 3.4937107005683546`*^9}, {3.4937107602852592`*^9, 3.4937107606908607`*^9}, 3.4937108611238365`*^9, {3.493710928531555*^9, 3.4937109288591557`*^9}, 3.49381435365625*^9, 3.493814438015625*^9, {3.4938145045625*^9, 3.493814526859375*^9}, 3.493814583609375*^9, {3.493815699296875*^9, 3.493815708953125*^9}, {3.49381598065625*^9, 3.49381598096875*^9}, 3.493816122984375*^9, {3.4938162424375*^9, 3.49381626915625*^9}, 3.49381647853125*^9, {3.493816542421875*^9, 3.493816582359375*^9}, { 3.49381664034375*^9, 3.493816641375*^9}, {3.493908607640625*^9, 3.49390869034375*^9}, {3.493909263015625*^9, 3.493909264328125*^9}, { 3.493911359671875*^9, 3.49391141228125*^9}, 3.493911495203125*^9, { 3.493924695546875*^9, 3.49392470415625*^9}, 3.493926576640625*^9, { 3.4939267145*^9, 3.493926772328125*^9}, {3.4939268065*^9, 3.49392698890625*^9}, {3.4939270605*^9, 3.4939271013125*^9}, { 3.493927138578125*^9, 3.493927148421875*^9}, {3.4939613806998177`*^9, 3.4939613814174185`*^9}, {3.493967981269441*^9, 3.4939679853878484`*^9}, { 3.4939680179139056`*^9, 3.493968022749914*^9}, {3.494006909171875*^9, 3.4940069159375*^9}, {3.49400724228125*^9, 3.494007245984375*^9}, { 3.494008042828125*^9, 3.494008051265625*^9}, {3.4940084670625*^9, 3.4940084721875*^9}, {3.4940086643125*^9, 3.494008664546875*^9}, { 3.494048375796584*^9, 3.494048381942995*^9}, 3.4940484325806837`*^9, { 3.4940568135615783`*^9, 3.494056823904396*^9}, 3.494655750208211*^9, { 3.495107114546875*^9, 3.495107116671875*^9}, {3.5059128484375*^9, 3.5059128506875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"r", "=", "1"}], ",", RowBox[{"r", "\[LessEqual]", "repeticiones"}], ",", RowBox[{"r", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"qsim", "[", "0", "]"}], "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"t", "=", "1"}], ",", RowBox[{"t", "\[LessEqual]", RowBox[{"generaciones", "+", "2"}]}], ",", RowBox[{"t", "++"}], ",", RowBox[{ RowBox[{"qsim", "[", "t", "]"}], "=", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{ RowBox[{"genotipo", "[", RowBox[{"i", ",", "0"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"Random", "[", "dist1", "]"}], ",", RowBox[{"Random", "[", "dist1", "]"}]}], "}"}]}], ";", RowBox[{ RowBox[{"qsim", "[", "0", "]"}], "=", RowBox[{ RowBox[{"qsim", "[", "0", "]"}], "+", RowBox[{"1.0", "*", RowBox[{"Total", "[", RowBox[{"genotipo", "[", RowBox[{"i", ",", "0"}], "]"}], "]"}]}]}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"qsim", "[", "0", "]"}], "=", RowBox[{ RowBox[{"qsim", "[", "0", "]"}], "/", RowBox[{"(", RowBox[{"2", "n"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"t", "=", "1"}], ",", RowBox[{"t", "\[LessEqual]", "generaciones"}], ",", RowBox[{"t", "++"}], ",", RowBox[{ RowBox[{ RowBox[{"q0sim", "[", "t", "]"}], "=", RowBox[{ RowBox[{"q0sim", "[", "t", "]"}], "+", RowBox[{"qsim", "[", RowBox[{"t", "-", "1"}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"q20sim", "[", "t", "]"}], "=", " ", RowBox[{ RowBox[{"q20sim", "[", "t", "]"}], "+", RowBox[{ RowBox[{"qsim", "[", RowBox[{"t", "-", "1"}], "]"}], "^", "2"}]}]}], ";", RowBox[{ RowBox[{"tasadobs", "[", "t", "]"}], "=", RowBox[{ RowBox[{"tasadobs", "[", "t", "]"}], "+", RowBox[{"2", "d", "*", RowBox[{"qsim", "[", RowBox[{"t", "-", "1"}], "]"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"qsim", "[", RowBox[{"t", "-", "1"}], "]"}]}], ")"}]}]}]}], ";", RowBox[{ RowBox[{"w0obs", "[", "t", "]"}], "=", RowBox[{ RowBox[{"w0obs", "[", "t", "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"qsim", "[", RowBox[{"t", "-", "1"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{"2", "*", RowBox[{"qsim", "[", RowBox[{"t", "-", "1"}], "]"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"qsim", "[", RowBox[{"t", "-", "1"}], "]"}]}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"h", "*", "s"}]}], ")"}]}], "+", RowBox[{ RowBox[{ RowBox[{"qsim", "[", RowBox[{"t", "-", "1"}], "]"}], "^", "2"}], "*", RowBox[{"(", RowBox[{"1", "-", "s"}], ")"}]}]}]}], ";", RowBox[{ RowBox[{"pq0sim", "[", "t", "]"}], "=", RowBox[{ RowBox[{"pq0sim", "[", "t", "]"}], "+", RowBox[{ RowBox[{"qsim", "[", RowBox[{"t", "-", "1"}], "]"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"qsim", "[", RowBox[{"t", "-", "1"}], "]"}]}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Label", "[", "muere", "]"}], ";", RowBox[{ RowBox[{"padre", "[", "i", "]"}], "=", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"1", ",", "n"}], "}"}], "]"}]}], ";", RowBox[{ RowBox[{"madre", "[", "i", "]"}], "=", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"1", ",", "n"}], "}"}], "]"}]}], ";", RowBox[{ RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"RandomChoice", "[", RowBox[{"genotipo", "[", RowBox[{ RowBox[{"padre", "[", "i", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}], "]"}], ",", RowBox[{"RandomChoice", "[", RowBox[{"genotipo", "[", RowBox[{ RowBox[{"madre", "[", "i", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}], "]"}]}], "}"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"RandomReal", "[", "]"}], ">", RowBox[{"eficacia", "[", RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"Goto", "[", "muere", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], "=", RowBox[{"If", " ", "[", RowBox[{ RowBox[{ RowBox[{"RandomReal", "[", "]"}], "<", RowBox[{"2", "*", "mu"}]}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"Extract", "[", RowBox[{ RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], ",", RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}], ",", RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}]}], "]"}]}], ";", RowBox[{"Goto", "[", "vive", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Label", "[", "vive", "]"}], ";", RowBox[{ RowBox[{"qsim", "[", "t", "]"}], "=", RowBox[{ RowBox[{"qsim", "[", "t", "]"}], "+", RowBox[{"1.0", "*", RowBox[{"Total", "[", RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"consPurg", "[", RowBox[{"i", ",", "t"}], "]"}], "=", RowBox[{"parentPurg", "[", RowBox[{ RowBox[{"madre", "[", "i", "]"}], ",", RowBox[{"padre", "[", "i", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}]}], ";", RowBox[{ RowBox[{"cons", "[", RowBox[{"i", ",", "t"}], "]"}], "=", RowBox[{"parentesco", "[", RowBox[{ RowBox[{"madre", "[", "i", "]"}], ",", RowBox[{"padre", "[", "i", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"j", "==", "i"}], ",", RowBox[{ RowBox[{ RowBox[{"parentesco", "[", RowBox[{"i", ",", "j", ",", "t"}], "]"}], "=", RowBox[{".5", "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{"cons", "[", RowBox[{"i", ",", "t"}], "]"}]}], ")"}]}]}], ";", RowBox[{ RowBox[{"parentPurg", "[", RowBox[{"i", ",", "j", ",", "t"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"consPurg", "[", RowBox[{"i", ",", "t"}], "]"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"dp", "*", RowBox[{"cons", "[", RowBox[{"i", ",", "t"}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"consPurg", "[", RowBox[{"i", ",", "t"}], "]"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"dp", "*", RowBox[{"parentesco", "[", RowBox[{"i", ",", "j", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}], "*", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}]}]}]}], " ", ",", " ", RowBox[{ RowBox[{ RowBox[{"parentesco", "[", RowBox[{"i", ",", "j", ",", "t"}], "]"}], "=", RowBox[{".25", "*", RowBox[{"(", RowBox[{ RowBox[{"parentesco", "[", RowBox[{ RowBox[{"padre", "[", "i", "]"}], ",", RowBox[{"padre", "[", "j", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}], "+", RowBox[{"parentesco", "[", RowBox[{ RowBox[{"padre", "[", "i", "]"}], ",", RowBox[{"madre", "[", "j", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}], "+", RowBox[{"parentesco", "[", RowBox[{ RowBox[{"madre", "[", "i", "]"}], ",", RowBox[{"padre", "[", "j", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}], "+", RowBox[{"parentesco", "[", RowBox[{ RowBox[{"madre", "[", "i", "]"}], ",", RowBox[{"madre", "[", "j", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"parentPurg", "[", RowBox[{"i", ",", "j", ",", "t"}], "]"}], "=", RowBox[{".25", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"parentPurg", "[", RowBox[{ RowBox[{"padre", "[", "i", "]"}], ",", RowBox[{"padre", "[", "j", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"dp", "*", RowBox[{"parentesco", "[", RowBox[{ RowBox[{"padre", "[", "i", "]"}], ",", RowBox[{"padre", "[", "j", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"parentPurg", "[", RowBox[{ RowBox[{"padre", "[", "i", "]"}], ",", RowBox[{"madre", "[", "j", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"dp", "*", RowBox[{"parentesco", "[", RowBox[{ RowBox[{"padre", "[", "i", "]"}], ",", RowBox[{"madre", "[", "j", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"parentPurg", "[", RowBox[{ RowBox[{"madre", "[", "i", "]"}], ",", RowBox[{"padre", "[", "j", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"dp", "*", RowBox[{"parentesco", "[", RowBox[{ RowBox[{"madre", "[", "i", "]"}], ",", RowBox[{"padre", "[", "j", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"parentPurg", "[", RowBox[{ RowBox[{"madre", "[", "i", "]"}], ",", RowBox[{"madre", "[", "j", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"dp", "*", RowBox[{"parentesco", "[", RowBox[{ RowBox[{"madre", "[", "i", "]"}], ",", RowBox[{"madre", "[", "j", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}]}]}], ")"}]}]}], ")"}]}]}]}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "\[LessEqual]", "n"}], ",", RowBox[{"j", "++"}], ",", RowBox[{ RowBox[{ RowBox[{"parentesco", "[", RowBox[{"i", ",", "j", ",", "t"}], "]"}], "=", RowBox[{"parentesco", "[", RowBox[{"j", ",", "i", ",", "t"}], "]"}]}], ";", RowBox[{ RowBox[{"parentPurg", "[", RowBox[{"i", ",", "j", ",", "t"}], "]"}], "=", RowBox[{"parentPurg", "[", RowBox[{"j", ",", "i", ",", "t"}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"medC", "[", "t", "]"}], "=", RowBox[{ RowBox[{"medC", "[", "t", "]"}], "+", RowBox[{"cons", "[", RowBox[{"i", ",", "t"}], "]"}]}]}], ";", RowBox[{ RowBox[{"medCP", "[", "t", "]"}], "=", RowBox[{ RowBox[{"medCP", "[", "t", "]"}], "+", RowBox[{"consPurg", "[", RowBox[{"i", ",", "t"}], "]"}]}]}], ";", RowBox[{ RowBox[{"wmedia", "[", "t", "]"}], "=", RowBox[{ RowBox[{"wmedia", "[", "t", "]"}], "+", RowBox[{"eficacia", "[", RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], "]"}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", RowBox[{ RowBox[{"qsim", "[", "t", "]"}], "=", RowBox[{ RowBox[{"qsim", "[", "t", "]"}], "/", RowBox[{"(", RowBox[{"2", "n"}], ")"}]}]}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "en", " ", "la", " ", "\[UAcute]ltima", " ", "generaci\[OAcute]n", " ", RowBox[{"(", RowBox[{"t", "=", RowBox[{"generaciones", "+", "1"}]}], ")"}], " ", "considero", " ", "los", " ", "individuos", " ", "antes", " ", "de", " ", "la", " ", "selecci\[OAcute]n", " ", "y", " ", "por", " ", "tanto", " ", "de", " ", "la", " ", RowBox[{"purga", ":", " ", RowBox[{ "la", " ", "obtenci\[OAcute]n", " ", "del", " ", "individuo", " ", "no", " ", "depende", " ", "de", " ", "la", " ", "eficacia", " ", "ni"}]}]}], ",", " ", RowBox[{"por", " ", "tanto"}], ",", " ", RowBox[{ "del", " ", "parentesco", " ", "de", " ", "los", " ", "padres"}]}], "*)"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{ RowBox[{"padre", "[", "i", "]"}], "=", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"1", ",", "n"}], "}"}], "]"}]}], ";", RowBox[{ RowBox[{"madre", "[", "i", "]"}], "=", RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"1", ",", "n"}], "}"}], "]"}]}], ";", RowBox[{ RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"RandomChoice", "[", RowBox[{"genotipo", "[", RowBox[{ RowBox[{"padre", "[", "i", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}], "]"}], ",", RowBox[{"RandomChoice", "[", RowBox[{"genotipo", "[", RowBox[{ RowBox[{"madre", "[", "i", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}], "]"}]}], "}"}]}], ";", RowBox[{"qt", "=", RowBox[{"qt", "+", RowBox[{"Total", "[", RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"cons", "[", RowBox[{"i", ",", "t"}], "]"}], "=", RowBox[{"parentesco", "[", RowBox[{ RowBox[{"madre", "[", "i", "]"}], ",", RowBox[{"padre", "[", "i", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"consPurg", "[", RowBox[{"i", ",", "t"}], "]"}], "=", RowBox[{"parentPurg", "[", RowBox[{ RowBox[{"madre", "[", "i", "]"}], ",", RowBox[{"padre", "[", "i", "]"}], ",", RowBox[{"t", "-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"medC", "[", "t", "]"}], "=", RowBox[{ RowBox[{"medC", "[", "t", "]"}], "+", RowBox[{"cons", "[", RowBox[{"i", ",", "t"}], "]"}]}]}], ";", RowBox[{ RowBox[{"medCP", "[", "t", "]"}], "=", RowBox[{ RowBox[{"medCP", "[", "t", "]"}], "+", RowBox[{"consPurg", "[", RowBox[{"i", ",", "t"}], "]"}]}]}], ";", RowBox[{ RowBox[{"wmedia", "[", "t", "]"}], "=", RowBox[{ RowBox[{"wmedia", "[", "t", "]"}], "+", RowBox[{"eficacia", "[", RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], "]"}]}]}], ";", RowBox[{"(*", RowBox[{ RowBox[{ "los", " ", "ficheros", " ", "de", " ", "datos", " ", "corresponden", " ", "a", " ", "individuos", " ", "de", " ", "t"}], "+", RowBox[{ "1", " ", "antes", " ", "de", " ", "la", " ", "selecci\[OAcute]n"}]}], "*)"}], ";", "\[IndentingNewLine]", RowBox[{"regWF", "=", RowBox[{"Append", "[", RowBox[{"regWF", ",", RowBox[{"{", RowBox[{ RowBox[{"cons", "[", RowBox[{"i", ",", "t"}], "]"}], ",", RowBox[{"eficacia", "[", RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{"regWEWF", "=", RowBox[{"Append", "[", RowBox[{"regWEWF", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"ewsinpurga", "[", RowBox[{"generaciones", "+", "1"}], "]"}], "-", RowBox[{"delta", "*", RowBox[{"cons", "[", RowBox[{"i", ",", "t"}], "]"}]}]}], ",", RowBox[{"eficacia", "[", RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{"regWg", "=", RowBox[{"Append", "[", RowBox[{"regWg", ",", RowBox[{"{", RowBox[{ RowBox[{"consPurg", "[", RowBox[{"i", ",", "t"}], "]"}], ",", RowBox[{"eficacia", "[", RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{"regWEWg", "=", RowBox[{"Append", "[", RowBox[{"regWEWg", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"ewsinpurga", "[", RowBox[{"generaciones", "+", "1"}], "]"}], "-", RowBox[{"delta", "*", RowBox[{"consPurg", "[", RowBox[{"i", ",", "t"}], "]"}]}]}], ",", RowBox[{"eficacia", "[", RowBox[{"genotipo", "[", RowBox[{"i", ",", "t"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", RowBox[{"qt", "=", RowBox[{"qt", "/", RowBox[{"(", RowBox[{"2", "n"}], ")"}]}]}], ";", RowBox[{"deltat", "=", RowBox[{"deltat", "+", RowBox[{"2", "*", "d", "*", "qt", "*", RowBox[{"(", RowBox[{"1", "-", "qt"}], ")"}]}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.4937119079292755`*^9, 3.4937120156318645`*^9}, { 3.493812784140625*^9, 3.493812816890625*^9}, {3.4938128548125*^9, 3.49381288421875*^9}, {3.49381291475*^9, 3.49381292321875*^9}, { 3.49381304803125*^9, 3.493813050796875*^9}, {3.4938130878125*^9, 3.493813219640625*^9}, {3.493813301078125*^9, 3.4938133215*^9}, { 3.493813386171875*^9, 3.4938133984375*^9}, 3.493813578984375*^9, { 3.493816722390625*^9, 3.493816751515625*^9}, {3.49381682009375*^9, 3.493816822125*^9}, 3.4938168603125*^9, {3.49381690821875*^9, 3.493816911296875*^9}, 3.49381848696875*^9, 3.493818517546875*^9, { 3.493818899703125*^9, 3.49381891140625*^9}, {3.493819854203125*^9, 3.493819872265625*^9}, {3.493820111703125*^9, 3.493820120734375*^9}, { 3.493908757375*^9, 3.49390887725*^9}, {3.493908915765625*^9, 3.49390893953125*^9}, {3.493908991578125*^9, 3.493909135625*^9}, { 3.493909177765625*^9, 3.49390924990625*^9}, {3.493909352078125*^9, 3.493909403390625*^9}, {3.493909441375*^9, 3.493909494125*^9}, { 3.493909560515625*^9, 3.493909649875*^9}, {3.493909709203125*^9, 3.49390971696875*^9}, {3.49390975103125*^9, 3.493909788890625*^9}, { 3.493909831375*^9, 3.4939098773125*^9}, {3.4939099569375*^9, 3.49390995725*^9}, {3.49390999909375*^9, 3.4939100605625*^9}, 3.493910142609375*^9, {3.493910173171875*^9, 3.493910200234375*^9}, { 3.49391034503125*^9, 3.493910347640625*^9}, 3.493910397171875*^9, 3.493910520875*^9, {3.49391071846875*^9, 3.493910771046875*^9}, { 3.49391081509375*^9, 3.493910872984375*^9}, 3.493910945578125*^9, { 3.4939109865625*^9, 3.49391099728125*^9}, 3.49391106546875*^9, 3.493911101875*^9, {3.49391115534375*^9, 3.493911167796875*^9}, { 3.493911250703125*^9, 3.4939112565625*^9}, {3.493911495203125*^9, 3.493911495234375*^9}, {3.4939222048125*^9, 3.49392221959375*^9}, { 3.493922484515625*^9, 3.4939224915*^9}, 3.493922544296875*^9, 3.49392261396875*^9, {3.493922855703125*^9, 3.4939228605*^9}, { 3.4939231955*^9, 3.493923199015625*^9}, {3.493923313453125*^9, 3.49392336390625*^9}, 3.49392341478125*^9, {3.493923517078125*^9, 3.49392354728125*^9}, {3.49392360453125*^9, 3.49392363109375*^9}, 3.493923680640625*^9, {3.493923882390625*^9, 3.493923888515625*^9}, 3.4939241300625*^9, {3.493924275265625*^9, 3.49392432303125*^9}, { 3.493924493859375*^9, 3.4939245081875*^9}, {3.4939245479375*^9, 3.493924552796875*^9}, {3.4939262045625*^9, 3.493926227296875*^9}, { 3.493961031571204*^9, 3.4939611417697983`*^9}, 3.493961248926386*^9, { 3.493967981285041*^9, 3.4939679854190483`*^9}, {3.4939680179139056`*^9, 3.4939680227967143`*^9}, {3.4939691820971503`*^9, 3.493969205871592*^9}, 3.493969593703873*^9, {3.4939696965704536`*^9, 3.493969703184866*^9}, { 3.4939699524889035`*^9, 3.493969953518505*^9}, {3.493970420926526*^9, 3.4939704224865294`*^9}, {3.4939705287851157`*^9, 3.493970530001918*^9}, { 3.493972070321045*^9, 3.493972074174252*^9}, {3.4939721131275206`*^9, 3.493972133516756*^9}, {3.493973120396941*^9, 3.493973135014167*^9}, { 3.493973390345445*^9, 3.493973435335924*^9}, 3.493973580400579*^9, 3.4939736296030655`*^9, {3.493973670927538*^9, 3.493973686941193*^9}, { 3.493973731289607*^9, 3.493973747981637*^9}, {3.493973813610552*^9, 3.4939738825470734`*^9}, 3.493973942653979*^9, {3.493973987410457*^9, 3.493974040809351*^9}, {3.4939743513122964`*^9, 3.493974380577948*^9}, { 3.4939744262392282`*^9, 3.4939744494676685`*^9}, {3.493974532678215*^9, 3.493974582629503*^9}, {3.494006856578125*^9, 3.494006859*^9}, { 3.49400728821875*^9, 3.494007352234375*^9}, {3.494007385875*^9, 3.494007393578125*^9}, 3.494007454015625*^9, 3.494007502984375*^9, { 3.49400798646875*^9, 3.49400799575*^9}, {3.494008448625*^9, 3.49400845653125*^9}, {3.494008655703125*^9, 3.494008656171875*^9}, { 3.49400912303125*^9, 3.494009125078125*^9}, {3.4940492236440735`*^9, 3.494049231646888*^9}, {3.4940493388190756`*^9, 3.494049351595498*^9}, 3.49404961437436*^9, {3.494049658725238*^9, 3.4940496917816963`*^9}, { 3.4940497558354087`*^9, 3.49404977355704*^9}, {3.4940498167691154`*^9, 3.494049818407119*^9}, {3.4940505752564507`*^9, 3.4940506330089216`*^9}, { 3.4940511703362656`*^9, 3.4940511711942673`*^9}, {3.4940513104713116`*^9, 3.49405131518252*^9}, 3.4940513768806286`*^9, {3.494052258796977*^9, 3.4940522675329924`*^9}, {3.494056626283249*^9, 3.49405663235166*^9}, { 3.4941360432154965`*^9, 3.494136103260002*^9}, {3.494136133882856*^9, 3.494136147267679*^9}, {3.494136193693361*^9, 3.4941361957681646`*^9}, { 3.4941363169647775`*^9, 3.494136439892993*^9}, 3.494136524015541*^9, { 3.494136594153264*^9, 3.4941366544317703`*^9}, {3.494155869875*^9, 3.4941558743125*^9}, {3.494155925296875*^9, 3.494155940515625*^9}, { 3.494156013359375*^9, 3.494156018203125*^9}, {3.49415628778125*^9, 3.494156343796875*^9}, {3.49415645903125*^9, 3.494156460609375*^9}, { 3.49415687846875*^9, 3.49415692746875*^9}, {3.494156970453125*^9, 3.4941570236875*^9}, 3.494157119828125*^9, {3.49415743978125*^9, 3.494157440625*^9}, {3.494157601546875*^9, 3.494157604703125*^9}, 3.494158331875*^9, {3.494158413875*^9, 3.494158442984375*^9}, 3.494158541234375*^9, 3.494158663453125*^9, {3.49416461575*^9, 3.494164828265625*^9}, {3.494164863140625*^9, 3.49416486428125*^9}, { 3.4942246521926174`*^9, 3.4942246737206554`*^9}, {3.4942247211135387`*^9, 3.494224762204011*^9}, {3.4942248053068867`*^9, 3.494224808052491*^9}, { 3.4942248400481477`*^9, 3.494224842715752*^9}, {3.4942249037742596`*^9, 3.494224912728675*^9}, {3.4942249755343857`*^9, 3.4942249765639873`*^9}, { 3.4942254875064983`*^9, 3.4942256668132133`*^9}, {3.4942257000568714`*^9, 3.4942257735486007`*^9}, {3.494225829037898*^9, 3.4942258561975455`*^9}, { 3.494226193953739*^9, 3.4942261957165422`*^9}, {3.494226270971074*^9, 3.4942263287535753`*^9}, {3.494226400170501*^9, 3.4942264653162155`*^9}, 3.4942265067498884`*^9, {3.494226550913566*^9, 3.494226659786157*^9}, 3.4942266947458186`*^9, {3.494226771482353*^9, 3.494226852726096*^9}, { 3.494226901560582*^9, 3.4942269128550014`*^9}, {3.4942270311032095`*^9, 3.494227044254032*^9}, 3.4942271273241787`*^9, {3.494227287068459*^9, 3.4942273299685345`*^9}, {3.4942273835078287`*^9, 3.4942274381235247`*^9}, {3.494227484330806*^9, 3.4942275439693103`*^9}, { 3.494227626789856*^9, 3.494227645837489*^9}, {3.4942276989087825`*^9, 3.4942277022471886`*^9}, {3.4942282302925158`*^9, 3.494228282771008*^9}, { 3.494228675532898*^9, 3.4942286804937067`*^9}, {3.494228718651374*^9, 3.494228816978346*^9}, {3.4942289524957843`*^9, 3.4942289719490185`*^9}, { 3.494229027781516*^9, 3.4942291550777397`*^9}, {3.4942299275598965`*^9, 3.4942299433627243`*^9}, {3.494229981582792*^9, 3.494229983423595*^9}, { 3.4942311220164056`*^9, 3.494231157085267*^9}, {3.4942313668588357`*^9, 3.494231371024043*^9}, {3.494232773405307*^9, 3.4942328642286663`*^9}, { 3.494232921371567*^9, 3.4942329372211947`*^9}, {3.494233094703471*^9, 3.4942330963258743`*^9}, {3.494233469119729*^9, 3.4942334774969435`*^9}, { 3.4942336016731615`*^9, 3.494233604215966*^9}, {3.494482078171875*^9, 3.4944821258125*^9}, {3.494482171984375*^9, 3.494482240578125*^9}, { 3.494482448703125*^9, 3.494482458*^9}, {3.49448251090625*^9, 3.4944825240625*^9}, {3.494482617703125*^9, 3.494482622765625*^9}, { 3.494501318140625*^9, 3.4945013203125*^9}, {3.49450157759375*^9, 3.4945016430625*^9}, {3.49450200309375*^9, 3.494502082078125*^9}, { 3.494502277921875*^9, 3.49450229240625*^9}, {3.494502729828125*^9, 3.494502758640625*^9}, 3.494655760270229*^9, {3.495092340125*^9, 3.495092490203125*^9}, {3.495092537046875*^9, 3.495092636515625*^9}, { 3.495092719328125*^9, 3.495092743109375*^9}, {3.49509280734375*^9, 3.495092813734375*^9}, {3.49509312528125*^9, 3.495093162265625*^9}, 3.495093209109375*^9, {3.49509327315625*^9, 3.495093275015625*^9}, { 3.495093315109375*^9, 3.495093315953125*^9}, 3.495093351828125*^9, { 3.495093404828125*^9, 3.4950934433125*^9}, {3.4950966883125*^9, 3.495096692390625*^9}, {3.495096773265625*^9, 3.49509678828125*^9}, { 3.495104928359375*^9, 3.495104948625*^9}, {3.49510509040625*^9, 3.495105235359375*^9}, {3.4951052965625*^9, 3.49510532696875*^9}, { 3.495105374890625*^9, 3.49510537884375*^9}, {3.49510569453125*^9, 3.495105698296875*^9}, {3.4951057363125*^9, 3.49510574203125*^9}, { 3.49520226975*^9, 3.4952022725*^9}, {3.49528914209375*^9, 3.495289249546875*^9}, {3.49529092959375*^9, 3.49529096140625*^9}, { 3.49529100903125*^9, 3.4952910698125*^9}, 3.495343739796875*^9, { 3.495792671390625*^9, 3.495792702453125*^9}, 3.49579273534375*^9, { 3.495793045171875*^9, 3.49579304715625*^9}, {3.496061703413583*^9, 3.496061705223186*^9}, {3.496163450375*^9, 3.49616360340625*^9}, { 3.4961640325*^9, 3.496164110640625*^9}, {3.496164169765625*^9, 3.496164175078125*^9}, {3.496164280328125*^9, 3.496164401671875*^9}, { 3.4961644760625*^9, 3.496164481875*^9}, {3.496165878*^9, 3.496165891140625*^9}, 3.49616630471875*^9, {3.49616638696875*^9, 3.49616639028125*^9}, 3.49616704321875*^9, {3.4974458654375*^9, 3.497445875921875*^9}, {3.497445981109375*^9, 3.497446015015625*^9}, { 3.4974460569375*^9, 3.497446112875*^9}, {3.497446765515625*^9, 3.497446768828125*^9}, {3.49744685825*^9, 3.49744686215625*^9}, { 3.497447450359375*^9, 3.497447496125*^9}, {3.497447563*^9, 3.49744756890625*^9}, {3.497447711875*^9, 3.497447730109375*^9}, { 3.49744778528125*^9, 3.49744779965625*^9}, {3.497447892609375*^9, 3.49744793471875*^9}, {3.497448054921875*^9, 3.49744808265625*^9}, { 3.497448270078125*^9, 3.49744831309375*^9}, 3.497448348484375*^9, 3.49744841840625*^9, {3.49744845815625*^9, 3.49744854990625*^9}, { 3.497448806375*^9, 3.49744884371875*^9}, {3.497448978609375*^9, 3.49744902334375*^9}, {3.497449060828125*^9, 3.497449164625*^9}, 3.4974498115*^9, {3.497449992921875*^9, 3.497449994328125*^9}, { 3.4974507505625*^9, 3.497450758859375*^9}, {3.49745079309375*^9, 3.49745079615625*^9}, {3.49745211578125*^9, 3.497452134484375*^9}, { 3.497452388765625*^9, 3.497452424015625*^9}, {3.497452614578125*^9, 3.497452643265625*^9}, {3.49746755025*^9, 3.49746755209375*^9}, { 3.49746769609375*^9, 3.49746769709375*^9}, {3.497467854421875*^9, 3.497467862109375*^9}, {3.497467906015625*^9, 3.497467951625*^9}, { 3.497467996359375*^9, 3.497468002078125*^9}, 3.497468209828125*^9, { 3.497468361765625*^9, 3.497468427546875*^9}, 3.4974686425625*^9, { 3.49746867803125*^9, 3.4974687220625*^9}, 3.497468826234375*^9, { 3.49746892425*^9, 3.49746892771875*^9}, {3.497468959359375*^9, 3.497468962453125*^9}, {3.5002896007366705`*^9, 3.50028965149916*^9}, { 3.505731638484375*^9, 3.505731672515625*^9}, 3.505731712046875*^9, { 3.505731756703125*^9, 3.50573189540625*^9}, {3.505747272765625*^9, 3.50574736*^9}, {3.505747392015625*^9, 3.505747428671875*^9}, { 3.505747495203125*^9, 3.5057475055625*^9}, {3.50575561603125*^9, 3.50575566271875*^9}, {3.5058894093125*^9, 3.50588941434375*^9}, { 3.505912440859375*^9, 3.5059124715*^9}, {3.50591264396875*^9, 3.5059126471875*^9}, {3.50591336159375*^9, 3.505913388140625*^9}, { 3.505994610875*^9, 3.505994629859375*^9}, {3.505994785859375*^9, 3.505994796796875*^9}, {3.505994935921875*^9, 3.50599499715625*^9}, { 3.5059952324375*^9, 3.505995267265625*^9}, 3.505995315984375*^9, { 3.50599540640625*^9, 3.50599544378125*^9}, {3.505995496890625*^9, 3.505995517828125*^9}, 3.505995889609375*^9, 3.505995942703125*^9, { 3.505995984796875*^9, 3.50599598515625*^9}, {3.508242233234375*^9, 3.508242242515625*^9}, {3.508417337296875*^9, 3.508417435421875*^9}, { 3.508417478578125*^9, 3.508417487421875*^9}, {3.50841881384375*^9, 3.508418830140625*^9}, {3.5091020778259935`*^9, 3.509102162502942*^9}, 3.5091039183770275`*^9}], Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{"t", "=", "1"}], ",", RowBox[{"t", "\[LessEqual]", RowBox[{"generaciones", "+", "1"}]}], ",", RowBox[{"t", "++"}], ",", RowBox[{ RowBox[{ RowBox[{"medC", "[", "t", "]"}], "=", RowBox[{ RowBox[{"medC", "[", "t", "]"}], "/", RowBox[{"(", RowBox[{"repeticiones", "*", "n"}], ")"}]}]}], ";", RowBox[{ RowBox[{"medCP", "[", "t", "]"}], "=", RowBox[{ RowBox[{"medCP", "[", "t", "]"}], "/", RowBox[{"(", RowBox[{"repeticiones", "*", "n"}], ")"}]}]}], ";", RowBox[{ RowBox[{"q0sim", "[", "t", "]"}], "=", RowBox[{ RowBox[{"q0sim", "[", "t", "]"}], "/", "repeticiones"}]}], ";", " ", RowBox[{ RowBox[{"q20sim", "[", "t", "]"}], "=", RowBox[{ RowBox[{"q20sim", "[", "t", "]"}], "/", "repeticiones"}]}], ";", RowBox[{ RowBox[{"pq0sim", "[", "t", "]"}], "=", RowBox[{ RowBox[{"pq0sim", "[", "t", "]"}], "/", "repeticiones"}]}], ";", RowBox[{ RowBox[{"w0obs", "[", "t", "]"}], "=", RowBox[{ RowBox[{"w0obs", "[", "t", "]"}], "/", "repeticiones"}]}], ";", RowBox[{ RowBox[{"tasadobs", "[", "t", "]"}], "=", RowBox[{ RowBox[{"tasadobs", "[", "t", "]"}], "/", "repeticiones"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"fneutro", "[", "t", "]"}], "=", RowBox[{"1.", "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"1", "/", RowBox[{"(", RowBox[{"2", "n"}], ")"}]}]}], ")"}], "^", "t"}]}]}]}]}], "]"}]], "Input", CellChangeTimes->{{3.495345681609375*^9, 3.49534568803125*^9}, 3.49745115240625*^9, {3.497452755203125*^9, 3.497452771796875*^9}, { 3.500289736238508*^9, 3.5002897403413153`*^9}, {3.501135576671875*^9, 3.50113580109375*^9}, {3.50113978240625*^9, 3.50113978271875*^9}, { 3.505747668421875*^9, 3.505747686140625*^9}, {3.505755720328125*^9, 3.505755731515625*^9}, {3.505761296015625*^9, 3.505761334671875*^9}, 3.505913057078125*^9}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.4974493541875*^9, 3.49744940303125*^9}, 3.497451058390625*^9, 3.497451142875*^9, {3.501135668390625*^9, 3.501135673*^9}, 3.501135767734375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"wmed", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"wmedia", "[", "t", "]"}], "/", RowBox[{"(", RowBox[{"n", "*", "repeticiones"}], ")"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"generaciones", "+", "1"}]}], "}"}]}], "]"}]}], ";"}]], "Input",\ CellChangeTimes->{{3.50580083934375*^9, 3.50580083971875*^9}, { 3.505800902296875*^9, 3.505800902828125*^9}, 3.50842490159375*^9}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"CAMBIO", " ", "EN", " ", RowBox[{"q", " ", ":", " ", RowBox[{ "A", " ", "CONTINUACI\[CapitalOAcute]N", " ", "SE", " ", "DAN", " ", "LOS", " ", "VALORES", " ", "MEDIOS", " ", "DE", " ", "q", " ", "Y", " ", "DE", " ", "q2", " ", "DE", " ", "CADA", " ", "GENERACI\[CapitalOAcute]N", " ", "ANTES", " ", "DE", " ", "LA", " ", "SELECCI\[CapitalOAcute]N", " ", "Y", " ", "DE", " ", "LA", " ", RowBox[{"DERIVA", ":", "\[IndentingNewLine]", RowBox[{"1.", "-", " ", RowBox[{ "RESULTADOS", " ", "DE", " ", "SIMULACI\[CapitalOAcute]N", " ", "EN", " ", "QUE", " ", "en", " ", "cada", " ", "repetici\[OAcute]n", " ", "qtAntesSel"}]}]}]}]}]}], " ", "=", " ", RowBox[{"q", RowBox[{"(", RowBox[{"t", "-", "1"}], ")"}], "DespuesSel"}]}], ",", " ", RowBox[{"q2tAntesSel", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"q", RowBox[{"(", RowBox[{"t", "-", "1"}], ")"}], "DespuesSel"}], ")"}], "^", "2"}], " ", "\[IndentingNewLine]", " ", "2."}], "-", " ", RowBox[{ "PREDICCIONES", " ", "CALCULADAS", " ", "PARA", " ", "qtAntesSel", " ", "EN", " ", "FUNCI\[CapitalOAcute]N", " ", "DE", " ", "q", RowBox[{"(", RowBox[{"t", "-", "1"}], ")"}], "AntesSel"}]}]}], ",", " ", RowBox[{ RowBox[{"DONDE", " ", "q", RowBox[{"(", RowBox[{"t", "-", "1"}], ")"}], "AntesSel", " ", "PROCEDE", " ", "DE", " ", "SIMULACI\[CapitalOAcute]N", " ", "Y", " ", "SE", " ", "CALCULA", " ", "COMO", " ", "q", RowBox[{"(", RowBox[{"t", "-", "2"}], ")"}], "DespuesSel", " ", "\[IndentingNewLine]", "3."}], "-", " ", RowBox[{ "PREDICCIONES", " ", "CALCULADAS", " ", "PARA", " ", "q2tAntesSel", " ", "EN", " ", "FUNCI\[CapitalOAcute]N", " ", "DE", " ", "q2", RowBox[{"(", RowBox[{"t", "-", "1"}], ")"}], "AntesSel"}]}], " ", ",", " ", RowBox[{"DONDE", " ", "q", RowBox[{"(", RowBox[{"t", "-", "1"}], ")"}], "AntesSel", " ", "PROCEDE", " ", "DE", " ", "SIMULACI\[CapitalOAcute]N", " ", "Y", " ", "SE", " ", "CALCULA", " ", "COMO", " ", "q", RowBox[{"(", RowBox[{"t", "-", "2"}], ")"}], RowBox[{"DespuesSel", " ", ".", "\[IndentingNewLine]", StyleBox[ RowBox[{"OJO", ":", " ", RowBox[{ "ESTO", " ", "IMPLICA", " ", "QUE", " ", "LOS", " ", "ERRORES", " ", "DE", " ", "PREDICCI\[CapitalOAcute]N", " ", "NO", " ", "SE", " ", "ACUMULAN", " ", "DE", " ", "UNA", " ", "GENERACI\[CapitalOAcute]N", " ", "A", " ", "LA", " ", RowBox[{"SIGUIENTE", "."}]}]}], FontColor->GrayLevel[0.5]]}]}]}], "\[IndentingNewLine]", " ", "\[IndentingNewLine]", " ", "*)"}]}]], "Input", CellChangeTimes->{{3.4975055039375*^9, 3.49750552790625*^9}, { 3.497508011875*^9, 3.497508328671875*^9}, {3.497508366359375*^9, 3.497508476375*^9}, {3.49750851725*^9, 3.49750862496875*^9}}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.505743773171875*^9, 3.505743773375*^9}}], Cell[BoxData[ RowBox[{"(*", " ", "CONSANGUINIDADES", " ", "*)"}]], "Input", CellChangeTimes->{{3.501135998375*^9, 3.50113600203125*^9}, { 3.505741475546875*^9, 3.505741491796875*^9}}], Cell[BoxData[ RowBox[{"(*", RowBox[{"esperada", " ", "neutra"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.5057432233125*^9, 3.505743229390625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "t_", "]"}], ":=", RowBox[{"1.", "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"1", "/", RowBox[{"(", RowBox[{"2", "n"}], ")"}]}]}], ")"}], "^", "t"}]}]}]], "Input", CellChangeTimes->{{3.50575604453125*^9, 3.505756068*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ft", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"f", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "generaciones"}], "}"}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.505760843234375*^9, 3.50576084878125*^9}, { 3.505800852328125*^9, 3.50580085265625*^9}, {3.505800907*^9, 3.505800907328125*^9}, {3.505913970109375*^9, 3.505913975953125*^9}, { 3.508415195875*^9, 3.508415196515625*^9}, {3.508417537484375*^9, 3.508417537828125*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.`", ",", "0.010000000000000009`", ",", "0.01990000000000003`", ",", "0.029700999999999977`", ",", "0.039403990000000055`"}], "}"}]], "Output", CellChangeTimes->{ 3.50576087534375*^9, 3.505761365484375*^9, 3.5057749705*^9, 3.505836652640625*^9, 3.505837358515625*^9, 3.505841805390625*^9, 3.50588385078125*^9, 3.50588426375*^9, 3.505884971078125*^9, 3.505889581015625*^9, 3.50589010221875*^9, 3.50591313278125*^9, 3.505913175140625*^9, 3.505913239421875*^9, 3.50591340234375*^9, 3.505913605*^9, 3.505913977390625*^9, {3.505914394953125*^9, 3.505914418546875*^9}, 3.505914567125*^9, 3.505914611703125*^9, 3.505915720640625*^9, 3.5059161354375*^9, 3.505917455609375*^9, 3.5059190658125*^9, 3.50594429803125*^9, 3.505995685640625*^9, 3.505995912453125*^9, 3.5059960058125*^9, 3.505997866640625*^9, 3.5060065759375*^9, 3.506021294*^9, 3.5061633723669505`*^9, 3.5061674768160057`*^9, 3.5062305502233105`*^9, 3.5062340632986813`*^9, 3.5072755762065897`*^9, 3.50824315165625*^9, 3.508418891171875*^9, 3.5084202613125*^9, 3.50842326196875*^9, 3.508424563296875*^9, 3.508424674234375*^9, 3.50843439465625*^9, 3.5091021812697754`*^9, 3.509103496989087*^9, 3.5091062279061174`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"observada", " ", RowBox[{"neutra", ":"}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.505742374265625*^9, 3.505742384171875*^9}, 3.505742471921875*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"fsim", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"medC", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", "generaciones"}], "}"}]}], "]"}]}], ";", RowBox[{"fsim", "=", RowBox[{"Prepend", "[", RowBox[{"fsim", ",", "0"}], "]"}]}]}]], "Input", CellChangeTimes->{ 3.50574343303125*^9, {3.50579350565625*^9, 3.505793510703125*^9}, { 3.50591401253125*^9, 3.5059140285625*^9}, {3.50591406290625*^9, 3.505914068953125*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0.00998888888888889`", ",", "0.019734722222222223`", ",", "0.029690625000000002`", ",", "0.03945928819444445`"}], "}"}]], "Output", CellChangeTimes->{ 3.505743495515625*^9, 3.505744131828125*^9, 3.50574607690625*^9, 3.50574798009375*^9, 3.50574815690625*^9, 3.505749208296875*^9, 3.505752001234375*^9, 3.50575640553125*^9, 3.50575657778125*^9, 3.505760875390625*^9, 3.50576136553125*^9, 3.50577497059375*^9, 3.505793512515625*^9, 3.505836653421875*^9, 3.505837358546875*^9, 3.505841805484375*^9, 3.505883851015625*^9, 3.505884263765625*^9, 3.50588497109375*^9, 3.50588958103125*^9, 3.505890102265625*^9, 3.505913132796875*^9, 3.50591317515625*^9, 3.5059132394375*^9, 3.50591340240625*^9, 3.50591360503125*^9, {3.505914021609375*^9, 3.505914032421875*^9}, 3.50591408315625*^9, {3.505914394984375*^9, 3.505914418578125*^9}, 3.505914567140625*^9, 3.50591461171875*^9, 3.505915720640625*^9, 3.505916135453125*^9, 3.505917455625*^9, 3.505919065828125*^9, 3.5059442980625*^9, 3.50599568571875*^9, 3.50599591246875*^9, 3.50599600584375*^9, 3.5059978666875*^9, 3.506006575953125*^9, 3.50602129403125*^9, 3.5061633723981504`*^9, 3.506167476847205*^9, 3.5062305502233105`*^9, 3.5062340633298817`*^9, 3.5072755762065897`*^9, 3.508243151703125*^9, 3.5084188911875*^9, 3.50842026134375*^9, 3.508423262*^9, 3.508424563328125*^9, 3.508424674265625*^9, 3.5084343946875*^9, 3.5091021812853756`*^9, 3.5091034970046873`*^9, 3.509106227921717*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "predicci\[OAcute]n", " ", "antigua", " ", "con", " ", "coef", " ", "de", " ", "purga", " ", "2", RowBox[{"d", ":"}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.505742403296875*^9, 3.5057424044375*^9}, { 3.505742435703125*^9, 3.505742468109375*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"predicci\[OAcute]n", " ", "buena"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.505742490828125*^9, 3.50574249159375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gdft", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"gdf", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "generaciones"}], "}"}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.5011358616875*^9, 3.50113589084375*^9}, 3.501135960828125*^9, 3.50114033421875*^9, {3.505914340578125*^9, 3.505914344921875*^9}, {3.508415273296875*^9, 3.508415273875*^9}, { 3.50841543196875*^9, 3.508415432296875*^9}, {3.508415462953125*^9, 3.508415463515625*^9}, {3.50841758653125*^9, 3.5084175868125*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", FractionBox["1", "100"], ",", "0.01985224`", ",", "0.029512091444742396`", ",", "0.0389374225522821`"}], "}"}]], "Output", CellChangeTimes->{ 3.501136725625*^9, 3.50113828225*^9, 3.501138533046875*^9, 3.501139317796875*^9, 3.501139809890625*^9, 3.501140483015625*^9, 3.50114056*^9, 3.5011408204375*^9, 3.501140992515625*^9, 3.50114120428125*^9, 3.501141654890625*^9, 3.505659843140625*^9, 3.505660156234375*^9, 3.5056603781875*^9, 3.50566046134375*^9, 3.505660594015625*^9, 3.5056611371875*^9, 3.50566240434375*^9, 3.505665706703125*^9, 3.505721656704871*^9, 3.5057320826875*^9, 3.505733734625*^9, 3.50573697709375*^9, 3.5057373189375*^9, 3.50573767353125*^9, 3.505744131875*^9, 3.505746077015625*^9, 3.50574798015625*^9, 3.505748156984375*^9, 3.50574920834375*^9, 3.50575200140625*^9, 3.5057564055625*^9, 3.505756577828125*^9, 3.5057608754375*^9, 3.505761365578125*^9, 3.505774971015625*^9, 3.505836653609375*^9, 3.50583735875*^9, 3.50584180603125*^9, 3.50588385103125*^9, 3.505884263765625*^9, 3.50588497115625*^9, 3.505889581078125*^9, 3.50589010234375*^9, 3.50591313284375*^9, 3.505913175203125*^9, 3.505913239484375*^9, 3.505913402515625*^9, 3.505913605078125*^9, 3.505914346578125*^9, {3.50591439503125*^9, 3.505914418640625*^9}, 3.505914567203125*^9, 3.505914611765625*^9, 3.50591572065625*^9, 3.5059161355*^9, 3.505917455640625*^9, 3.505919065921875*^9, 3.50594429825*^9, 3.505995685984375*^9, 3.505995912578125*^9, 3.5059960059375*^9, 3.505997866859375*^9, 3.50600657603125*^9, 3.50602129421875*^9, 3.5061633724605503`*^9, 3.5061674769564056`*^9, 3.5062305502857103`*^9, 3.506234063423482*^9, 3.5072755762689896`*^9, 3.50824315184375*^9, 3.508418891203125*^9, 3.50842026146875*^9, 3.50842326209375*^9, 3.508424563390625*^9, 3.508424674328125*^9, 3.50843439475*^9, 3.509102181300976*^9, 3.5091034970202875`*^9, 3.509106227937317*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"observada", " ", "purgada"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.5057434375*^9, 3.505743445265625*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"gsim", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"medCP", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", "generaciones"}], "}"}]}], "]"}]}], ";", RowBox[{"gsim", "=", RowBox[{"Prepend", "[", RowBox[{"gsim", ",", "0"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4939741349243164`*^9, 3.4939741894776125`*^9}, { 3.493975370131733*^9, 3.4939753761689434`*^9}, {3.494009135359375*^9, 3.494009136765625*^9}, {3.4940485462596836`*^9, 3.4940485490364885`*^9}, { 3.49404987623642*^9, 3.4940499115704823`*^9}, {3.4940565798887677`*^9, 3.494056589061584*^9}, {3.494231980315514*^9, 3.4942319807991147`*^9}, { 3.49520240540625*^9, 3.495202413375*^9}, {3.50579357846875*^9, 3.505793590640625*^9}, {3.505914647046875*^9, 3.5059146675625*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0.00998888888888889`", ",", "0.01854755555555327`", ",", "0.027038856666672443`", ",", "0.03525585718248623`"}], "}"}]], "Output", CellChangeTimes->{ 3.495202414078125*^9, 3.495266755545828*^9, 3.495288769296875*^9, 3.495288858*^9, 3.495289702875*^9, {3.4952897415*^9, 3.49528976253125*^9}, 3.495290188359375*^9, 3.495290422078125*^9, 3.495291144859375*^9, 3.49529133603125*^9, 3.495296878203125*^9, 3.49529707028125*^9, 3.4952974178125*^9, 3.495297857515625*^9, 3.495299117359375*^9, 3.495300881046875*^9, 3.495301145546875*^9, 3.49530126146875*^9, 3.49530139834375*^9, 3.4953015155*^9, 3.495301706203125*^9, 3.4953018711875*^9, 3.495301969546875*^9, 3.495344456828125*^9, 3.49534452284375*^9, 3.495345711890625*^9, 3.495345906015625*^9, 3.495346650953125*^9, 3.4953472173125*^9, 3.49534781175*^9, 3.49534786859375*^9, 3.49534793809375*^9, 3.49534818765625*^9, 3.49543857775089*^9, 3.49579289165625*^9, 3.495793091375*^9, 3.495793355421875*^9, 3.495794113484375*^9, 3.49579586375*^9, 3.49579636528125*^9, 3.495796630484375*^9, 3.495796810109375*^9, 3.496061356515774*^9, 3.496061448945936*^9, 3.4960618482910376`*^9, 3.496061905699138*^9, 3.49606199218569*^9, 3.4960621859848304`*^9, 3.4960633576324887`*^9, 3.496063718827525*^9, 3.4960639915128093`*^9, 3.49616457515625*^9, 3.49616605575*^9, 3.4961661243125*^9, 3.4961661813125*^9, 3.496166428515625*^9, 3.496166502734375*^9, 3.496166789171875*^9, 3.496166885015625*^9, 3.496167116453125*^9, 3.49616745446875*^9, 3.496167647484375*^9, 3.4961677815625*^9, 3.496168799546875*^9, 3.496169042359375*^9, 3.496169157546875*^9, 3.496202640734375*^9, 3.496202911234375*^9, 3.4962029739375*^9, 3.496203118296875*^9, 3.497006296011531*^9, 3.497006608183679*^9, 3.497449685015625*^9, 3.497449832640625*^9, {3.497449889671875*^9, 3.497449929453125*^9}, 3.49744999865625*^9, 3.497450107171875*^9, 3.4974502351875*^9, 3.49745076865625*^9, 3.49745080175*^9, 3.49745093025*^9, 3.497450986859375*^9, 3.49745107459375*^9, 3.4974511236875*^9, 3.49745115865625*^9, 3.49745121225*^9, 3.497451297265625*^9, 3.497451976453125*^9, 3.49745213878125*^9, 3.497452561640625*^9, 3.49745264809375*^9, 3.497452779609375*^9, 3.4974669894375*^9, 3.49746735603125*^9, 3.497467557609375*^9, 3.497467871328125*^9, 3.497468216390625*^9, 3.49746855934375*^9, 3.497468764203125*^9, 3.497469183734375*^9, 3.49746945215625*^9, 3.497469550125*^9, {3.4974696075625*^9, 3.497469634796875*^9}, 3.497470076171875*^9, 3.49747014496875*^9, 3.497470282359375*^9, 3.497470415984375*^9, 3.49747052525*^9, 3.497470878109375*^9, 3.497471057890625*^9, 3.497471333984375*^9, 3.49747187653125*^9, 3.497472051859375*^9, 3.497504736546875*^9, 3.49750504446875*^9, 3.497505399890625*^9, 3.497505704734375*^9, 3.497506512*^9, 3.49750669059375*^9, 3.497506831875*^9, 3.497508987515625*^9, 3.49751090103125*^9, 3.497511140015625*^9, 3.49751180575*^9, 3.497512121265625*^9, 3.49751235990625*^9, 3.49751245109375*^9, 3.49751280671875*^9, 3.500290134086007*^9, 3.5002903533443923`*^9, 3.5002906119740467`*^9, 3.5002984866829295`*^9, 3.500300255648037*^9, 3.500300852863886*^9, 3.500301307292684*^9, 3.500357894998698*^9, 3.5003587145149374`*^9, 3.5003609652556906`*^9, 3.500364994377185*^9, 3.5003655781822104`*^9, 3.5003660369362855`*^9, 3.5003676238126793`*^9, 3.500371638005744*^9, 3.50082915346875*^9, 3.500829511671875*^9, 3.5008297079375*^9, 3.500829845921875*^9, 3.50113623809375*^9, 3.501136348328125*^9, 3.501136718484375*^9, 3.501138282140625*^9, 3.5011385325*^9, 3.50113931096875*^9, 3.5011398098125*^9, 3.50114048290625*^9, 3.501140559796875*^9, 3.50114082034375*^9, 3.5011409924375*^9, 3.501141204109375*^9, 3.50114165475*^9, 3.505659843078125*^9, 3.505660156125*^9, 3.505660378140625*^9, 3.505660461296875*^9, 3.505660593875*^9, 3.505661137171875*^9, 3.505662404234375*^9, 3.505665706546875*^9, 3.5057216566424713`*^9, 3.505732082625*^9, 3.505733734578125*^9, 3.505736977046875*^9, 3.505737318890625*^9, 3.505737673296875*^9, 3.50574413190625*^9, 3.5057460770625*^9, 3.5057479801875*^9, 3.505748157015625*^9, 3.50574920834375*^9, 3.505752001453125*^9, 3.50575640559375*^9, 3.50575657784375*^9, 3.505760875453125*^9, 3.50576136559375*^9, 3.505774971078125*^9, {3.505793583859375*^9, 3.505793591890625*^9}, 3.50583665365625*^9, 3.505837358765625*^9, 3.50584180609375*^9, 3.50588385103125*^9, 3.50588426378125*^9, 3.505884971171875*^9, 3.50588958109375*^9, 3.505890102375*^9, 3.505913132859375*^9, 3.505913175234375*^9, 3.505913239515625*^9, 3.5059134025625*^9, 3.50591360509375*^9, {3.5059143950625*^9, 3.505914418671875*^9}, 3.50591456721875*^9, 3.50591461178125*^9, 3.50591467628125*^9, 3.50591572065625*^9, 3.50591613553125*^9, 3.50591745565625*^9, 3.5059190659375*^9, 3.50594429828125*^9, 3.505995686015625*^9, 3.50599591259375*^9, 3.50599600596875*^9, 3.505997866890625*^9, 3.506006576046875*^9, 3.50602129425*^9, 3.5061633724917507`*^9, 3.5061674769876056`*^9, 3.5062305502857103`*^9, 3.5062340634546814`*^9, 3.5072755762689896`*^9, 3.508243151875*^9, 3.50841889121875*^9, 3.5084202615*^9, 3.508423262390625*^9, 3.50842456340625*^9, 3.508424674359375*^9, 3.508434394765625*^9, 3.5091021813321753`*^9, 3.5091034970358877`*^9, 3.5091062279685173`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"ft", ",", "fsim", ",", "gsim", ",", "gdft"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotStyle", "->", RowBox[{"{", RowBox[{"Red", ",", "Red", ",", "Green", ",", "Red", ",", "Blue"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.501136043046875*^9, 3.501136085046875*^9}, 3.5011404496875*^9, {3.505884593859375*^9, 3.505884619984375*^9}, { 3.50588469234375*^9, 3.50588470175*^9}, 3.50841919825*^9}], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[1, 0, 0], PointBox[{{1., 0.}, {2., 0.010000000000000009`}, {3., 0.01990000000000003}, {4., 0.029700999999999977`}, {5., 0.039403990000000055`}}]}, {RGBColor[1, 0, 0], PointBox[{{1., 0.}, {2., 0.00998888888888889}, {3., 0.019734722222222223`}, {4., 0.029690625000000002`}, {5., 0.03945928819444445}}]}, {RGBColor[0, 1, 0], PointBox[{{1., 0.}, {2., 0.00998888888888889}, {3., 0.01854755555555327}, {4., 0.027038856666672443`}, {5., 0.03525585718248623}}]}, {RGBColor[1, 0, 0], PointBox[{{1., 0.}, {2., 0.01}, {3., 0.01985224}, {4., 0.029512091444742396`}, {5., 0.0389374225522821}}]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5.}, {0., 0.03945928819444445}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.50113623834375*^9, 3.50113634865625*^9, 3.50113672609375*^9, 3.501138282296875*^9, 3.5011385333125*^9, 3.5011393181875*^9, 3.5011398099375*^9, 3.501140483125*^9, 3.501140560140625*^9, 3.50114082046875*^9, 3.501140992546875*^9, 3.50114120434375*^9, 3.50114165496875*^9, 3.505659843171875*^9, 3.50566015628125*^9, 3.505660378234375*^9, 3.505660461375*^9, 3.505660594078125*^9, 3.50566113721875*^9, 3.50566240440625*^9, 3.50566570675*^9, 3.5057216567204714`*^9, 3.505732082734375*^9, 3.50573373465625*^9, 3.505736977171875*^9, 3.50573731903125*^9, 3.505737673828125*^9, 3.5057441319375*^9, 3.505746077109375*^9, 3.50574798021875*^9, 3.505748157046875*^9, 3.505749208375*^9, 3.505752001515625*^9, 3.5057564056875*^9, 3.505756577875*^9, 3.505760875484375*^9, 3.505761365625*^9, 3.505774971125*^9, 3.505836653859375*^9, 3.505837358796875*^9, 3.505841806140625*^9, 3.505883851046875*^9, 3.50588426378125*^9, 3.50588470621875*^9, 3.505884971203125*^9, 3.505889581125*^9, 3.5058901024375*^9, 3.50591313290625*^9, 3.50591317525*^9, 3.505913239546875*^9, 3.505913402625*^9, 3.505913605125*^9, {3.50591439509375*^9, 3.505914418703125*^9}, 3.50591456725*^9, 3.5059146118125*^9, 3.505914686859375*^9, 3.505915720671875*^9, 3.5059161355625*^9, 3.505917455671875*^9, 3.50591906596875*^9, 3.5059442983125*^9, 3.505995686265625*^9, 3.505995912640625*^9, 3.505996006*^9, 3.505997866953125*^9, 3.506006576078125*^9, 3.50602129428125*^9, 3.5061633725229506`*^9, 3.5061674770188055`*^9, 3.5062305503637104`*^9, 3.506234063485882*^9, 3.50727557640939*^9, 3.508243151921875*^9, 3.5084188914375*^9, 3.50842026153125*^9, 3.508423262453125*^9, 3.5084245634375*^9, 3.508424674390625*^9, 3.508434394796875*^9, 3.5091021813477755`*^9, 3.509103497051488*^9, 3.5091062279841175`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"ft", ",", "gdft"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotStyle", "->", RowBox[{"{", RowBox[{"Green", ",", "Blue"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.501136043046875*^9, 3.501136085046875*^9}, 3.5011404496875*^9, {3.505884593859375*^9, 3.505884619984375*^9}, { 3.50588469234375*^9, 3.50588470175*^9}, {3.50738816928125*^9, 3.507388189359375*^9}}], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0, 1, 0], PointBox[{{1., 0.}, {2., 0.010000000000000009`}, {3., 0.01990000000000003}, {4., 0.029700999999999977`}, {5., 0.039403990000000055`}}]}, {RGBColor[0, 0, 1], PointBox[{{1., 0.}, {2., 0.01}, {3., 0.01985224}, {4., 0.029512091444742396`}, {5., 0.0389374225522821}}]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5.}, {0., 0.039403990000000055`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.5073882426875*^9, 3.50738853925*^9, 3.50824315196875*^9, 3.508418891484375*^9, 3.5084202615625*^9, 3.508423262484375*^9, 3.50842456346875*^9, 3.508424674421875*^9, 3.508434394828125*^9, 3.5091021813633757`*^9, 3.5091034970826874`*^9, 3.5091062280153174`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.505743778046875*^9, 3.505743778203125*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"(*", " ", RowBox[{"MEDIA", " ", "DE", " ", "q"}], " ", "*)