(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 3.0, MathReader 3.0, or any compatible application. The data for the notebook starts with the line of stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. ***********************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 444766, 12226]*) (*NotebookOutlinePosition[ 445414, 12249]*) (* CellTagsIndexPosition[ 445370, 12245]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Algoritmo Gen\[EAcute]tico.", "Title"], Cell[CellGroupData[{ Cell["\<\ Supongamos que tenemos una funcion como funcion(x)=(x^3+5x^2) Sin(x) a la \ cual le queremos calcular el minimo, pero no queremos hacer ni derivadas ni \ ninguna de las tecnicas analiticas, queremos llegar a ese minimo teniendo \ solo en cuenta el valor de la funcion en sus puntos. Pues una forma de hacerlo es utilizando el algoritmo genetico que se basa en \ adaptacion de los individuos al medio\ \>", "Section"], Cell[CellGroupData[{ Cell[BoxData[ \(\( (*funcion[x_] := x^4 - 8 x^3 + 5 x^2 + 50 x; *) \ (*\ funcion\ a\ minimizar\ *) \n funcion[x_] := \((x^3 + 5 x^2)\)*Sin[x]; \n (*intervalo = {\(-3\), 8}; *) \ (*\ Intervalo\ donde\ se\ busca\ el\ minimo\ *) \n intervalo = {\(-7\), 3}; \nindividuos = 10; \ (*\ como\ minimo, \ se\ toma\ la\ menor\ potencia\ de\ 2\ > \ individuos, \ 16*) \n poblacion = 2*individuos + 2; \ (*\ Numero\ de\ individuos\ que\ puede\ haber\ como\ maximo\ *) \n iter = 10; (*\ Numero\ de\ iteraciones\ *) \nnuitermuta = 4; \ (*\ cada\ cuantas\ iteraciones\ se\ producen\ mutaciones\ *) \n numuta = 10; \ (*\ numero\ maximo\ de\ mutaciones\ que\ se\ producen\ cada\ vez\ *) \n A = Plot[funcion[x], {x, intervalo[\([1]\)], intervalo[\([2]\)]}]; \n\n longint = intervalo[\([2]\)] - intervalo[\([1]\)]; \n propo = longint/\((individuos + 1)\); \n lista = {intervalo[\([1]\)], intervalo[\([2]\)]}; \n For[i = 1, i <= individuos, \(i++\), \n\t lista = Append[lista, N[intervalo[\([1]\)] + i*propo]]\n\t]; \n Print["\", Sort[lista]]; \n\n For[kk = 1, kk <= iter, \(kk++\), \ (*\ Iteraciones\ *) \n \t{\n\t\tPrint["\<******* Iteracion: \>", \ kk]; \n\t\t funlis = N[funcion[lista]]; \n\t\t While[Length[lista] <= poblacion, \n \t\t\t{\n\t\t\t\t alfa = Random[Real, {0, Sqrt[Max[funlis] - Min[funlis]]}]^2 + Min[funlis]; \n\t\t\t\t Print["\", alfa]; \n\t\t\t\t longlist = Length[lista]; \n\t\t\t\t For[i = 1, i <= longlist, \(i++\), \n \t\t\t\t\t{\n\t\t\t\t\t\t If[funlis[\([i]\)] <= alfa, \n \t\t\t\t\t\t\t{\n\t\t\t\t\t\t\t\t beta = Random[Integer, {1, longlist}]; \n\t\t\t\t\t\t\t\t gama = Random[Real, {0, 1}]; \n\t\t\t\t\t\t\t\t res = N[ gama*lista[\([i]\)] + \((1 - gama)\)*lista[\([beta]\)]]; \ (*\ nuevo\ individuo\ *) \n\t\t\t\t\t\t\t\t lista = Append[lista, res]; \n\t\t\t\t\t\t\t\t funlis = Append[funlis, funcion[res]]\n\t\t\t\t\t\t\t}\n \t\t\t\t\t\t]\n\t\t\t\t\t}\n\t\t\t\t]\n\t\t\t}\n\t\t]; \n \t\tPrint["\", Sort[lista]]; \n\t\t (*\ Mutaciones\ *) \n \t\tIf[Mod[kk, nuitermuta] == 0, \n \t\t\t{\n\t\t\t\talfa = Random[Integer, {1, numuta + 1}]; \n\t\t\t\t For[s = 1, \ s <= alfa, \ \(s++\), \n \t\t\t\t\t{\n\t\t\t\t\t\t beta = Random[ Real, {intervalo[\([1]\)], intervalo[\([2]\)]}]; \n \t\t\t\t\t\t Print["\", beta, \ "\< con valor: \>", funcion[beta]]; \n\t\t\t\t\t\tlista = Append[lista, beta]; \n\t\t\t\t\t\tfunlis = Append[funlis, funcion[beta]]\n \t\t\t\t\t}\n\t\t\t\t]\n\t\t\t}\n\t\t]; \n\t\t\n\t\t qui = Length[lista] - poblacion - 1; \n\t\t Print["\", qui, "\< individuos.\>"]; \n\t\tsalto = 0; \n\t\t While[qui >= 0, \n \t\t\t{\n\t\t\t\t If[salto == 0, \n\t\t\t\t\t alfa = Sqrt[ Random[Real, {0, \((Max[funlis] - Min[funlis])\)^2}]] + Min[funlis]\n\t\t\t\t]\n\t\t\t\t\t\t\t\t\n \t\t\t\t Print["\", alfa]; \n \t\t\t\tmi = 10^100; \ (*\ Un\ numero\ muy\ grande\ *) \n\t\t\t\t funlis = N[funcion[lista]]; \n\t\t\t\t For[j = 1, j <= Length[lista], \(j++\), \n \t\t\t\t\t{\n\t\t\t\t\t\t If[funlis[\([j]\)] > alfa\ && \ funlis[\([j]\)] <= mi, \n \t\t\t\t\t\t\t{\n\t\t\t\t\t\t\t\tmi = funlis[\([j]\)]; \n \t\t\t\t\t\t\t\tjj = j\n\t\t\t\t\t\t\t}\n\t\t\t\t\t\t]\n \t\t\t\t\t}\n\t\t\t\t]; \n\t\t\t\t If[mi != 10^100, \ (*\ el\ numero\ muy\ grande\ de\ arriba\ *) \n \t\t\t\t\t{\n\t\t\t\t\t\t\(qui--\); \n\t\t\t\t\t\t lista = Delete[lista, jj]; \n\t\t\t\t\t\t funlis = Delete[funlis, jj]; \n\t\t\t\t\t\tsalto = 0\n \t\t\t\t\t}, \n \t\t\t\t\t{\n\t\t\t\t\t\talfatem = alfa; \n\t\t\t\t\t\t alfa = alfatem/2; \n\t\t\t\t\t\tsalto = 1\n\t\t\t\t\t}\n \t\t\t\t]\n\t\t\t}\n\t\t]; \n\t\t Print["\", Sort[lista]]; \n\t\t B = ListPlot[ Table[{lista[\([i]\)], \ funlis[\([i]\)]}, \ {i, \ longlist}], \ PlotStyle -> {PointSize[0.03], RGBColor[1, \ 0, \ 0]}]; \n\t\t Show[A, B]; \t\n\ }\n]; \nres = funcion[lista]; \n Print["\", Min[res], "\< en el punto: \>", lista[\([\(\(Position[res, Min[res]]\)[\([1]\)]\)[\([1]\)]]\)]\n]\n (*A = Plot[x^4 - 8 x^3 + 5 x^2 + 50 x, {x, \(-3\), 8}]; \n B = ListPlot[ Table[{lista[\([i]\)], \ funlis[\([i]\)]}, \ {i, \ longlist}], \ PlotStyle -> {PointSize[0.03], RGBColor[1, \ 0, \ 0]}]; \n Show[A, B]; *) \t\)\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.690476 0.0952381 0.11107 0.00764544 [ [.11905 .09857 -6 -9 ] [.11905 .09857 6 0 ] [.30952 .09857 -6 -9 ] [.30952 .09857 6 0 ] [.5 .09857 -6 -9 ] [.5 .09857 6 0 ] [.88095 .09857 -3 -9 ] [.88095 .09857 3 0 ] [.67798 .26398 -12 -4.5 ] [.67798 .26398 0 4.5 ] [.67798 .41689 -12 -4.5 ] [.67798 .41689 0 4.5 ] [.67798 .5698 -12 -4.5 ] [.67798 .5698 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid .11905 .11107 m .11905 .11732 L s [(-6)] .11905 .09857 0 1 Mshowa .30952 .11107 m .30952 .11732 L s [(-4)] .30952 .09857 0 1 Mshowa .5 .11107 m .5 .11732 L s [(-2)] .5 .09857 0 1 Mshowa .88095 .11107 m .88095 .11732 L s [(2)] .88095 .09857 0 1 Mshowa .125 Mabswid .16667 .11107 m .16667 .11482 L s .21429 .11107 m .21429 .11482 L s .2619 .11107 m .2619 .11482 L s .35714 .11107 m .35714 .11482 L s .40476 .11107 m .40476 .11482 L s .45238 .11107 m .45238 .11482 L s .54762 .11107 m .54762 .11482 L s .59524 .11107 m .59524 .11482 L s .64286 .11107 m .64286 .11482 L s .7381 .11107 m .7381 .11482 L s .78571 .11107 m .78571 .11482 L s .83333 .11107 m .83333 .11482 L s .07143 .11107 m .07143 .11482 L s .02381 .11107 m .02381 .11482 L s .92857 .11107 m .92857 .11482 L s .97619 .11107 m .97619 .11482 L s .25 Mabswid 0 .11107 m 1 .11107 L s .69048 .26398 m .69673 .26398 L s [(20)] .67798 .26398 1 0 Mshowa .69048 .41689 m .69673 .41689 L s [(40)] .67798 .41689 1 0 Mshowa .69048 .5698 m .69673 .5698 L s [(60)] .67798 .5698 1 0 Mshowa .125 Mabswid .69048 .1493 m .69423 .1493 L s .69048 .18752 m .69423 .18752 L s .69048 .22575 m .69423 .22575 L s .69048 .30221 m .69423 .30221 L s .69048 .34043 m .69423 .34043 L s .69048 .37866 m .69423 .37866 L s .69048 .45511 m .69423 .45511 L s .69048 .49334 m .69423 .49334 L s .69048 .53157 m .69423 .53157 L s .69048 .07284 m .69423 .07284 L s .69048 .03462 m .69423 .03462 L s .69048 .60802 m .69423 .60802 L s .25 Mabswid .69048 0 m .69048 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .60332 m .04262 .42757 L .06244 .27335 L .08255 .15409 L .09396 .10359 L .10458 .06744 L .10961 .05384 L .11508 .04155 L .11989 .03276 L .125 .02545 L .12959 .02057 L .13221 .01847 L .13466 .01694 L .13581 .01636 L .1369 .0159 L .13789 .01554 L .13895 .01523 L .1401 .01498 L .14116 .01482 L .14243 .01472 L .14357 .01472 L .14477 .01479 L .1459 .01494 L .14713 .01519 L .14845 .01556 L .15114 .01659 L .1536 .01787 L .15833 .02119 L .16282 .02529 L .17279 .03729 L .18364 .05394 L .22442 .13024 L .24467 .1645 L .25459 .17823 L .26369 .18859 L .27254 .19644 L .27699 .1995 L .28185 .20217 L .28676 .20412 L .2895 .20489 L .2908 .20517 L .292 .20539 L .29313 .20555 L .29433 .20568 L .29553 .20577 L .29622 .2058 L .29685 .20582 L .29801 .20582 L .29906 .20578 L .30028 .2057 L Mistroke .30144 .20557 L .30269 .2054 L .30404 .20516 L .30648 .20459 L .30886 .20388 L .31105 .20308 L .31603 .20077 L .32128 .19762 L .33006 .19085 L .33968 .18149 L .38016 .12753 L .41912 .0726 L .42932 .06059 L .4404 .04934 L .44998 .04132 L .45506 .03776 L .46053 .03446 L .46587 .03181 L .47076 .02987 L .47543 .02844 L .47778 .02789 L .48035 .0274 L .48177 .02718 L .48311 .02701 L .48433 .02689 L .48562 .02678 L .48629 .02674 L .48703 .02671 L .48832 .02667 L .48905 .02666 L .48983 .02666 L .49057 .02667 L .49124 .02669 L .49254 .02675 L .49373 .02683 L .49504 .02694 L .49644 .0271 L .49878 .02744 L .50137 .02791 L .50627 .02911 L .51144 .03077 L .52069 .03465 L .54154 .04682 L .57962 .07457 L .60084 .08885 L .62014 .09911 L .62977 .103 L .6402 .10627 L .64499 .10744 L .65006 .10848 L Mistroke .65473 .10924 L .65916 .10982 L .66408 .11031 L .66858 .11063 L .67109 .11076 L .67342 .11086 L .67598 .11094 L .67741 .11097 L .67871 .111 L .67985 .11102 L .68107 .11103 L .6821 .11104 L .68324 .11105 L .68446 .11106 L .68577 .11107 L .68701 .11107 L .68813 .11107 L .68912 .11107 L .69017 .11107 L .69131 .11107 L .69236 .11107 L .6935 .11107 L .69476 .11107 L .69593 .11108 L .69701 .11108 L .69823 .11109 L .69934 .1111 L .70062 .11112 L .70182 .11114 L .70428 .11119 L .70566 .11123 L .70694 .11127 L .71139 .11149 L .71364 .11164 L .71611 .11185 L .72129 .11242 L .72419 .11285 L .72684 .11331 L .7317 .11434 L .73688 .11573 L .74676 .11939 L .75592 .12409 L .7668 .13154 L .77666 .14014 L .79596 .16231 L .8168 .19363 L .85787 .2679 L .87835 .30199 L .88834 .31527 L .89743 .32447 L Mistroke .90196 .32781 L .90435 .32919 L .90688 .33036 L .90909 .33112 L .91034 .33143 L .91152 .33165 L .9126 .33178 L .91359 .33185 L .91473 .33186 L .91581 .33179 L .91705 .33164 L .91817 .33142 L .91946 .33107 L .92068 .33064 L .92286 .32965 L .92521 .32823 L .92781 .32623 L .93056 .3236 L .93548 .31753 L .94043 .30956 L .94495 .30059 L .9551 .2741 L .96452 .24127 L .97343 .20236 L .97619 .18875 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgoooo00<0003oooooool0C?ooo`030000oooooooo01Coool00`000?oo ooooo`0[oooo00<0003oooooool0Eoooo`008Oooo`030000oooooooo00koool00`000?ooooooo`1; oooo00<0003oooooool05_ooo`80000[oooo00<0003oooooool0Eoooo`008?ooo`030000oooooooo 013oool00`000?ooooooo`19oooo00<0003oooooool06Oooo`030000oooooooo02Soool00`000?oo ooooo`1Goooo000Poooo00<0003oooooool04?ooo`030000oooooooo04Soool00`000?ooooooo`0K oooo0P0002Soool00`000?ooooooo`1Goooo000Ooooo00<0003oooooool04_ooo`030000oooooooo 04Koool00`000?ooooooo`0Noooo00<0003oooooool09Oooo`030000oooooooo05Ooool001ooool0 0`000?ooooooo`0Coooo00<0003oooooool0A?ooo`030000oooooooo023oool00`000?ooooooo`0T oooo00<0003oooooool0Eoooo`007oooo`030000oooooooo01?oool00`000?ooooooo`13oooo00<0 003oooooool08_ooo`80000Toooo00<0003oooooool0Eoooo`007_ooo`030000oooooooo01Goool0 0`000?ooooooo`11oooo00<0003oooooool09Oooo`030000oooooooo027oool00`000?ooooooo`1G oooo000Noooo00<0003oooooool05Oooo`030000oooooooo043oool00`000?ooooooo`0Woooo00<0 003oooooool08?ooo`030000oooooooo05Ooool001koool00`000?ooooooo`02oooo0P0001;oool0 0`000?ooooooo`0Poooo0`0001_oool00`000?ooooooo`0Eoooo0`00017oool200008?ooo`80000c oooo0`0002;oool001goool00`000?ooooooo`03oooo00<0003oool000004Oooo`030000oooooooo 027oool00`000?ooooooo`0Ioooo00<0003oooooool05_ooo`030000oooooooo01?oool00`000?oo ooooo`0Moooo00<0003oooooool0<_ooo`030000oooooooo02;oool001goool400000_ooo`030000 oooo000001;oool00`000?ooooooo`0Ioooo0`0000;oool400006_ooo`030000oooooooo017oool3 00000oooo`030000oooooooo01?oool200007Oooo`030000oooooooo03?oool00`000?ooooooo`0Q oooo000Moooo00<0003oooooool00oooo`80000Coooo00<0003oooooool07_ooo`030000oooo0000 01[oool00`000?ooooooo`0Hoooo00<0003oooooool05Oooo`030000oooooooo01[oool00`000?oo ooooo`0coooo00<0003oooooool08Oooo`007Oooo`030000oooooooo00?oool00`000?ooooooo`0C oooo00<0003oooooool07_ooo`80000Ioooo00<0003oooooool06?ooo`030000oooo000001Ooool2 00006_ooo`030000oooooooo03;oool00`000?ooo`00000Roooo000Loooo00<0003oooooool01Ooo o`80000Coooo00<0003oooooool07oooo`030000oooooooo01Ooool00`000?ooooooo`0Ioooo00<0 003oooooool06?ooo`030000oooooooo01Ooool00`000?ooooooo`0coooo00<0003oooooool08Ooo o`007?ooo`030000oooooooo01_oool00`000?ooooooo`0goooo00<0003oooooool0=_ooo`80000G oooo00<0003oooooool0Eoooo`007?ooo`030000oooooooo01coool00`000?ooooooo`0eoooo00<0 003oooooool0>Oooo`80000Eoooo00<0003oooooool0Eoooo`006oooo`030000oooooooo01goool0 0`000?ooooooo`0eoooo00<0003oooooool0>oooo`80000Coooo00<0003oooooool0Eoooo`006ooo o`030000oooooooo01koool00`000?ooooooo`0coooo00<0003oooooool0?_ooo`<0000@oooo00<0 003oooooool0Eoooo`006oooo`030000oooooooo01koool00`000?ooooooo`0boooo00<0003ooooo ool0@_ooo`@0000oooo`005oooo`030000oooooooo02_oool00`000?ooooooo`0N oooo00<0003oooooool0GOooo`030000oooooooo01[oool00`000?ooooooo`0joooo000Goooo00<0 003oooooool0:oooo`030000oooooooo01koool00`000?ooooooo`1Moooo00<0003oooooool06ooo o`030000oooooooo03Woool001Ooool00`000?ooooooo`0/oooo00<0003oooooool07?ooo`030000 oooooooo05koool00`000?ooooooo`0Loooo00<0003oooooool0>?ooo`005_ooo`030000oooooooo 02koool00`000?ooooooo`0Joooo00<0003oooooool0Goooo`030000oooooooo01coool00`000?oo ooooo`0hoooo000Foooo00<0003oooooool0;oooo`030000oooooooo01Soool00`000?ooooooo`1P oooo00<0003oooooool07Oooo`030000oooooooo03Ooool001Koool00`000?ooooooo`0_oooo00<0 003oooooool06?ooo`030000oooooooo063oool00`000?ooooooo`0Noooo00<0003oooooool0=_oo o`005_ooo`030000oooooooo033oool00`000?ooooooo`0Foooo00<0003oooooool0HOooo`030000 oooooooo01koool00`000?ooooooo`0foooo000Foooo00<0003oooooool0_ooo`P0001/oooo00<0 003oooooool08oooo`030000oooooooo02Soool00`000?ooooooo`06oooo000Eoooo00<0003ooooo ool0[_ooo`030000oooooooo02?oool00`000?ooooooo`0Xoooo00<0003oooooool01_ooo`005Ooo o`030000oooooooo0:koool00`000?ooooooo`0Toooo00<0003oooooool09_ooo`030000oooooooo 00Ooool001Goool00`000?ooooooo`2^oooo00<0003oooooool09?ooo`030000oooooooo02Koool0 0`000?ooooooo`07oooo000Doooo00<0003oooooool0[oooo`030000oooooooo02Goool00`000?oo ooooo`0Uoooo00<0003oooooool01oooo`005?ooo`030000oooooooo0:ooool00`000?ooooooo`0U oooo00<0003oooooool09Oooo`030000oooooooo00Ooool001Coool00`000?ooooooo`2_oooo0P00 02Ooool00`000?ooooooo`0Soooo00<0003oooooool02?ooo`005?ooo`030000oooooooo0:ooool0 0`000?ooooooo`0Voooo00<0003oooooool08oooo`030000oooooooo00Soool001Coool00`000?oo ooooo`2_oooo00<0003oooooool09oooo`030000oooooooo02;oool00`000?ooooooo`08oooo000D oooo00<0003oooooool0[oooo`030000oooooooo02Ooool00`000?ooooooo`0Roooo00<0003ooooo ool02?ooo`004oooo`030000oooooooo0;3oool00`000?ooooooo`0Xoooo00<0003oooooool08?oo o`030000oooooooo00Woool001?oool00`000?ooooooo`2`oooo00<0003oooooool0:?ooo`030000 oooooooo023oool00`000?ooooooo`09oooo000Coooo00<0003oooooool0/?ooo`030000oooooooo 02Woool00`000?ooooooo`0Ooooo00<0003oooooool02Oooo`004oooo`030000oooooooo0;3oool0 0`000?ooooooo`0Yoooo00<0003oooooool07_ooo`030000oooooooo00[oool001?oool00`000?oo ooooo`2`oooo00<0003oooooool0:_ooo`030000oooooooo01goool00`000?ooooooo`0:oooo000C oooo00<0003oooooool0Xoooo`<00003oooo00<0003oooooool01?ooo`030000oooooooo02[oool0 0`000?ooooooo`0Moooo00<0003oooooool02_ooo`004oooo`030000oooooooo0:?oool00`000?oo ooooo`02oooo00<0003oool000001Oooo`030000oooooooo02_oool00`000?ooooooo`0Koooo00<0 003oooooool02oooo`004_ooo`030000oooooooo0:Goool01`000?ooooooooooo`000?ooo`000005 oooo0P0002coool00`000?ooooooo`0Koooo00<0003oooooool02oooo`004_ooo`030000oooooooo 0:Goool01`000?ooooooooooo`000?ooo`000005oooo00<0003oooooool0;?ooo`030000oooooooo 01[oool00`000?ooooooo`0;oooo000Boooo00<0003oooooool0Y?ooo`030000oooo000000;oool0 0`000?ooo`000005oooo00<0003oooooool0;Oooo`030000oooooooo01Soool00`000?ooooooo`0< oooo000Boooo00<0003oooooool0YOooo`030000oooooooo00;oool00`000?ooooooo`04oooo00<0 003oooooool0;Oooo`030000oooooooo01Soool00`000?ooooooo`0oooo000Aoooo00<0003ooooo ool0/_ooo`030000oooooooo037oool00`000?ooooooo`0Aoooo00<0003oooooool03oooo`004Ooo o`030000oooooooo0;;oool20000_ooo`800002oooo0`0001Koool0013oool0 0`000?ooooooo`2coooo00<0003oooooool0??ooo`80000Ioooo000@oooo00<0003oooooool0/ooo o`030000oooooooo05Ooool000ooool00`000?ooooooo`2doooo0P0005Soool000ooool00`000?oo ooooo`2doooo00<0003oooooool0Eoooo`003oooo`030000oooooooo0;Coool00`000?ooooooo`1G oooo000?oooo00<0003oooooool0]?ooo`030000oooooooo05Ooool000ooool00`000?ooooooo`2d oooo00<0003oooooool0Eoooo`003oooo`030000oooooooo0;Coool00`000?ooooooo`1Goooo000? oooo00<0003oooooool0]?ooo`030000oooooooo05Ooool000koool00`000?ooooooo`2eoooo00<0 003oooooool0Eoooo`003_ooo`030000oooooooo0;Goool00`000?ooooooo`1Goooo000>oooo00<0 003oooooool0]Oooo`030000oooooooo05Ooool000koool00`000?ooooooo`2eoooo00<0003ooooo ool0Eoooo`003_ooo`030000oooooooo0;Goool20000F?ooo`003_ooo`030000oooooooo0;Goool0 0`000?ooooooo`1Goooo000>oooo00<0003oooooool0]Oooo`030000oooooooo05Ooool000koool0 0`000?ooooooo`2eoooo00<0003oooooool0Eoooo`003Oooo`030000oooooooo0;Koool00`000?oo ooooo`1Goooo000=oooo00<0003oooooool0]_ooo`030000oooooooo05Ooool000goool00`000?oo ooooo`2foooo00<0003oooooool0Eoooo`003Oooo`030000oooooooo0;Koool00`000?ooooooo`1G oooo000=oooo00<0003oooooool0]_ooo`030000oooooooo05Ooool000goool00`000?ooooooo`2Z oooo0`0000;oool00`000?ooooooo`04oooo00<0003oooooool0Eoooo`003Oooo`030000oooooooo 0:_oool01P000?ooooooo`000?ooo`0000Goool00`000?ooooooo`1Goooo000"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-7.26302, -14.528, 0.0366761, 0.456869}}], Cell[BoxData[ InterpretationBox[ \("inicio: "\[InvisibleSpace]{\(-7\), \(-6.09090909090909082`\), \(-5.18181818181818165`\), \(-4.27272727272727248`\), \(-3.36363636363636375`\), \(-2.45454545454545458`\), \(-1.54545454545454541`\), \(-0.636363636363636331`\), 0.272727272727272707`, 1.18181818181818186`, 2.09090909090909082`, 3}\), SequenceForm[ "inicio: ", {-7, -6.0909090909090908, -5.1818181818181817, -4.2727272727272725, -3.3636363636363638, -2.4545454545454546, -1.5454545454545454, -.63636363636363635, .27272727272727271, 1.1818181818181819, 2.0909090909090908, 3}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[\("******* Iteracion: "\[InvisibleSpace]1\), SequenceForm[ "******* Iteracion: ", 1], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se reproducen los menores de: "\[InvisibleSpace]5.06728694014094394` \), SequenceForm[ "Se reproducen los menores de: ", 5.0672869401409439], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se reproducen los menores de: "\[InvisibleSpace]23.580232149949567` \), SequenceForm[ "Se reproducen los menores de: ", 23.580232149949566], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Hijos: "\[InvisibleSpace]{\(-7\), \(-6.09090909090909082`\), \(-5.98436193954071793`\), \(-5.98436193954071793`\), \(-5.27009471019229547`\), \(-5.18181818181818165`\), \(-5.18181818181818165`\), \(-4.72991040237288906`\), \(-4.27272727272727248`\), \(-4.16008269060993818`\), \(-3.68965177356863094`\), \(-3.36363636363636375`\), \(-3.18509644166918093`\), \(-3.16107611231536989`\), \(-2.56591045196204081`\), \(-2.45916372952546069`\), \(-2.45454545454545458`\), \(-2.05676469715964049`\), \(-1.54545454545454541`\), \(-1.32764400166542961`\), \(-1.03942249815031839`\), \(-0.936728353714671868`\), \(-0.684768135341075456`\), \(-0.67638638126220858`\), \(-0.645582796599089814`\), \(-0.636363636363636331`\), \(-0.428087344916406209`\), \(-0.387463897409981541`\), 0.114069570361950978`, 0.114069570361950978`, 0.272727272727272707`, 0.272727272727272707`, 0.436201854244866993`, 1.18181818181818186`, 2.09090909090909082`, 3}\), SequenceForm[ "Hijos: ", {-7, -6.0909090909090908, -5.9843619395407179, -5.9843619395407179, -5.2700947101922955, -5.1818181818181817, -5.1818181818181817, -4.7299104023728891, -4.2727272727272725, -4.1600826906099382, -3.6896517735686309, -3.3636363636363638, -3.1850964416691809, -3.1610761123153699, -2.5659104519620408, -2.4591637295254607, -2.4545454545454546, -2.0567646971596405, -1.5454545454545454, -1.3276440016654296, -1.0394224981503184, -.93672835371467189, -.6847681353410755, -.67638638126220862, -.64558279659908979, -.63636363636363635, -.42808734491640621, -.38746389740998155, .11406957036195098, .11406957036195098, .27272727272727271, .27272727272727271, .43620185424486702, 1.1818181818181819, 2.0909090909090908, 3}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Quitar "\[InvisibleSpace]13\[InvisibleSpace]" individuos."\), SequenceForm[ "Quitar ", 13, " individuos."], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: \ "\[InvisibleSpace]9.65253845423507428`\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", 9.6525384542350743], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: \ "\[InvisibleSpace]40.370433226649478`\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", 40.370433226649482], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: \ "\[InvisibleSpace]26.4398620523258687`\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", 26.439862052325868], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: \ "\[InvisibleSpace]1.49156660495439119`\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", 1.4915666049543912], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: \ "\[InvisibleSpace]4.76937948982398651`\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", 4.7693794898239865], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: \ "\[InvisibleSpace]9.16887048473033416`\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", 9.1688704847303342], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: \ "\[InvisibleSpace]1.83805372947708178`\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", 1.8380537294770818], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: \ "\[InvisibleSpace]10.1412359132250173`\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", 10.141235913225017], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 7.43217468493205934`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -7.4321746849320593], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: \ "\[InvisibleSpace]1.11681376689993605`\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", 1.1168137668999361], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 0.414756196283089906`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -.41475619628308991], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 2.28616457066429212`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -2.2861645706642921], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 1.49678740355785144`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -1.4967874035578514], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 0.354932696172602035`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -.35493269617260204], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Supervivientes: "\[InvisibleSpace]{\(-6.09090909090909082`\), \(-5.98436193954071793`\), \(-5.98436193954071793`\), \(-5.18181818181818165`\), \(-5.18181818181818165`\), \(-3.18509644166918093`\), \(-3.16107611231536989`\), \(-2.56591045196204081`\), \(-2.45916372952546069`\), \(-2.45454545454545458`\), \(-2.05676469715964049`\), \(-1.54545454545454541`\), \(-1.32764400166542961`\), \(-1.03942249815031839`\), \(-0.936728353714671868`\), \(-0.645582796599089814`\), \(-0.636363636363636331`\), 0.114069570361950978`, 0.114069570361950978`, 0.272727272727272707`, 0.272727272727272707`, 0.436201854244866993`} \), SequenceForm[ "Supervivientes: ", {-6.0909090909090908, -5.9843619395407179, -5.9843619395407179, -5.1818181818181817, -5.1818181818181817, -3.1850964416691809, -3.1610761123153699, -2.5659104519620408, -2.4591637295254607, -2.4545454545454546, -2.0567646971596405, -1.5454545454545454, -1.3276440016654296, -1.0394224981503184, -.93672835371467189, -.64558279659908979, -.63636363636363635, .11406957036195098, .11406957036195098, .27272727272727271, .27272727272727271, .43620185424486702}], Editable->False]], "Print"], Cell[CellGroupData[{ Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.912544 0.145912 0.579535 0.0544236 [ [.03707 .56703 -6 -9 ] [.03707 .56703 6 0 ] [.18299 .56703 -6 -9 ] [.18299 .56703 6 0 ] [.3289 .56703 -6 -9 ] [.3289 .56703 6 0 ] [.47481 .56703 -6 -9 ] [.47481 .56703 6 0 ] [.62072 .56703 -6 -9 ] [.62072 .56703 6 0 ] [.76663 .56703 -6 -9 ] [.76663 .56703 6 0 ] [.90004 .0353 -18 -4.5 ] [.90004 .0353 0 4.5 ] [.90004 .14415 -12 -4.5 ] [.90004 .14415 0 4.5 ] [.90004 .25299 -12 -4.5 ] [.90004 .25299 0 4.5 ] [.90004 .36184 -12 -4.5 ] [.90004 .36184 0 4.5 ] [.90004 .47069 -12 -4.5 ] [.90004 .47069 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid .03707 .57953 m .03707 .58578 L s [(-6)] .03707 .56703 0 1 Mshowa .18299 .57953 m .18299 .58578 L s [(-5)] .18299 .56703 0 1 Mshowa .3289 .57953 m .3289 .58578 L s [(-4)] .3289 .56703 0 1 Mshowa .47481 .57953 m .47481 .58578 L s [(-3)] .47481 .56703 0 1 Mshowa .62072 .57953 m .62072 .58578 L s [(-2)] .62072 .56703 0 1 Mshowa .76663 .57953 m .76663 .58578 L s [(-1)] .76663 .56703 0 1 Mshowa .125 Mabswid .06626 .57953 m .06626 .58328 L s .09544 .57953 m .09544 .58328 L s .12462 .57953 m .12462 .58328 L s .1538 .57953 m .1538 .58328 L s .21217 .57953 m .21217 .58328 L s .24135 .57953 m .24135 .58328 L s .27053 .57953 m .27053 .58328 L s .29972 .57953 m .29972 .58328 L s .35808 .57953 m .35808 .58328 L s .38726 .57953 m .38726 .58328 L s .41644 .57953 m .41644 .58328 L s .44563 .57953 m .44563 .58328 L s .50399 .57953 m .50399 .58328 L s .53317 .57953 m .53317 .58328 L s .56236 .57953 m .56236 .58328 L s .59154 .57953 m .59154 .58328 L s .6499 .57953 m .6499 .58328 L s .67909 .57953 m .67909 .58328 L s .70827 .57953 m .70827 .58328 L s .73745 .57953 m .73745 .58328 L s .79581 .57953 m .79581 .58328 L s .825 .57953 m .825 .58328 L s .85418 .57953 m .85418 .58328 L s .88336 .57953 m .88336 .58328 L s .00789 .57953 m .00789 .58328 L s .94173 .57953 m .94173 .58328 L s .97091 .57953 m .97091 .58328 L s .25 Mabswid 0 .57953 m 1 .57953 L s .91254 .0353 m .91879 .0353 L s [(-10)] .90004 .0353 1 0 Mshowa .91254 .14415 m .91879 .14415 L s [(-8)] .90004 .14415 1 0 Mshowa .91254 .25299 m .91879 .25299 L s [(-6)] .90004 .25299 1 0 Mshowa .91254 .36184 m .91879 .36184 L s [(-4)] .90004 .36184 1 0 Mshowa .91254 .47069 m .91879 .47069 L s [(-2)] .90004 .47069 1 0 Mshowa .125 Mabswid .91254 .06251 m .91629 .06251 L s .91254 .08972 m .91629 .08972 L s .91254 .11693 m .91629 .11693 L s .91254 .17136 m .91629 .17136 L s .91254 .19857 m .91629 .19857 L s .91254 .22578 m .91629 .22578 L s .91254 .2802 m .91629 .2802 L s .91254 .30742 m .91629 .30742 L s .91254 .33463 m .91629 .33463 L s .91254 .38905 m .91629 .38905 L s .91254 .41626 m .91629 .41626 L s .91254 .44348 m .91629 .44348 L s .91254 .4979 m .91629 .4979 L s .91254 .52511 m .91629 .52511 L s .91254 .55232 m .91629 .55232 L s .91254 .00809 m .91629 .00809 L s .91254 .60675 m .91629 .60675 L s .25 Mabswid .91254 0 m .91254 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 1 0 0 r .03 w .02381 .15863 Mdot .15646 .34258 Mdot .5544 .05016 Mdot .68704 .13063 Mdot .81969 .52238 Mdot .95234 .58528 Mdot .03936 .01472 Mdot .15646 .34258 Mdot .92919 .57995 Mdot .77586 .42321 Mdot .71882 .23761 Mdot .95234 .58528 Mdot .53815 .10471 Mdot .45131 .59902 Mdot .97619 .60332 Mdot .81835 .52011 Mdot .55372 .05213 Mdot .03936 .01472 Mdot .76088 .37877 Mdot % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgcoool500000_ooo`030000 oooooooo00?oool00`000?ooooooo`0Hoooo003joooo00L0003oooooooooool0003oool000001?oo o`030000oooooooo01Soool00?Coool300000oooo`070000oooooooooooo0000oooo000000Coool3 00006?ooo`00n_ooo`070000oooooooooooo0000oooo000000Coool00`000?ooooooo`0Hoooo002L oooo1Ol005Woool01`000?ooooooooooo`000?ooo`000004oooo00<0003oooooool06?ooo`00Vooo o`Oo001Goooo0P0000Coool00`000?ooooooo`03oooo00<0003oooooool06?ooo`00Voooo`Oo001S oooo00<0003oooooool06?ooo`00Voooo`Oo001Soooo00<0003oooooool06?ooo`00Voooo`Oo001S oooo00<0003oooooool06?ooo`00W?ooo`Go001Toooo0P0001Woool009goool3o`00IOooo`030000 oooooooo01Soool00?ooool6oooo00<0003oooooool06?ooo`00ooooo`Koool00`000?ooooooo`0H oooo003ooooo1_ooo`030000oooooooo01Soool00?ooool6oooo00<0003oooooool06?ooo`00oooo o`Koool00`000?ooooooo`0Hoooo003ooooo1_ooo`030000oooooooo01Soool00?ooool6oooo0P00 01Woool00?ooool6oooo00<0003oooooool06?ooo`00Uoooo`Go001Yoooo00<0003oooooool06?oo o`00U_ooo`Oo001Xoooo00<0003oooooool06?ooo`00U_ooo`Oo001Xoooo00<0003oooooool06?oo o`00U_ooo`Oo001Xoooo00<0003oooooool06?ooo`00U_ooo`Oo001Xoooo00<0003oooooool06?oo o`00Uoooo`Go001Yoooo00<0003oooooool06?ooo`00V?ooo`?o001Zoooo0P0001Woool00?ooool6 oooo00<0003oooooool06?ooo`00`_ooo`Go000noooo00<0003oooooool06?ooo`00`Oooo`Oo000m oooo00<0003oooooool06?ooo`00`Oooo`Oo000moooo00<0003oooooool06?ooo`00`Oooo`Oo000m oooo00<0003oooooool06?ooo`00`Oooo`Oo000goooo00<0003oooooool00oooo`030000oooooooo 01Soool00<;oool5o`00=oooo`030000oooo000000Coool00`000?ooooooo`0Hoooo0033oooo0ol0 03?oool300000_ooo`030000oooo000000Coool300006?ooo`00ooooo`030000oooooooo00?oool0 0`000?ooooooo`0Hoooo0004oooo1Ol00?Goool00`000?ooo`000004oooo00<0003oooooool06?oo o`000oooo`Oo003eoooo00<0003oooooool00oooo`030000oooooooo01Soool000?oool7o`00nooo o`030000oooooooo01Soool000?oool7o`00noooo`030000oooooooo01Soool000?oool7o`00nooo o`030000oooooooo01Soool000Coool5o`00o?ooo`030000oooooooo01Soool000Goool3o`00oOoo o`80000Ioooo003ooooo1_ooo`030000oooooooo01Soool00?ooool6oooo00<0003oooooool06?oo o`00ooooo`Koool00`000?ooooooo`0Hoooo003ooooo1_ooo`030000oooooooo01Soool00?ooool6 oooo00<0003oooooool06?ooo`00ooooo`Koool00`000?ooooooo`0Hoooo003ooooo1_ooo`80000I oooo003ooooo1_ooo`030000oooooooo01Soool00?ooool6oooo00<0003oooooool06?ooo`00oooo o`Koool00`000?ooooooo`0Hoooo003ooooo1_ooo`030000oooooooo01Soool00?ooool6oooo00<0 003oooooool06?ooo`00ooooo`Koool00`000?ooooooo`0Hoooo003ooooo1_ooo`030000oooooooo 01Soool00?ooool6oooo0P0001Woool00<_oool5o`00=Oooo`030000oooooooo01Soool00<[oool7 o`00=?ooo`030000oooooooo01Soool00<[oool7o`00=?ooo`030000oooooooo01Soool00<[oool7 o`00=?ooo`030000oooooooo01Soool00<[oool7o`00=?ooo`030000oooooooo01Soool00<_oool5 o`00;_ooo`800005oooo00<0003oooooool06?ooo`00c?ooo`?o000_oooo00<0003oool000001?oo o`030000oooooooo01Soool00?Woool300000_ooo`030000oooo000000Coool300006?ooo`00o_oo o`800005oooo00<0003oooooool06?ooo`00o_ooo`030000oooooooo00Coool00`000?ooooooo`0H oooo003ooooo0P0000Coool00`000?ooooooo`0Hoooo003ooooo1_ooo`030000oooooooo01Soool0 0?ooool6oooo00<0003oooooool06?ooo`00ooooo`Koool00`000?ooooooo`0Hoooo003ooooo1_oo o`030000oooooooo01Soool00?ooool6oooo0P0001Woool00?ooool6oooo00<0003oooooool06?oo o`00ooooo`Koool00`000?ooooooo`0Hoooo003ooooo1_ooo`030000oooooooo01Soool00?ooool6 oooo00<0003oooooool06?ooo`00ooooo`Koool00`000?ooooooo`0Hoooo003ooooo1_ooo`030000 oooooooo01Soool00?ooool6oooo00<0003oooooool06?ooo`00ooooo`Koool200006Oooo`00oooo o`Koool00`000?ooooooo`0Hoooo003ooooo1_ooo`030000oooooooo01Soool00?ooool6oooo00<0 003oooooool06?ooo`00ooooo`Koool00`000?ooooooo`0Hoooo003ooooo1_ooo`030000oooooooo 01Soool00?ooool6oooo00<0003oooooool06?ooo`00:_ooo`Go003Foooo0P0001Woool002Woool7 o`00eOooo`030000oooooooo01Soool002Woool7o`00eOooo`030000oooooooo01Soool002Woool7 o`00eOooo`030000oooooooo01Soool002Woool7o`00eOooo`030000oooooooo01Soool002[oool5 o`00e_ooo`030000oooooooo01Soool002_oool3o`00dOooo`<00003oooo00<0003oooooool06?oo o`00ooooo`7oool00`000?ooooooo`02oooo00<0003oooooool06?ooo`00nOooo`<00002oooo1000 00?oool300006?ooo`00o_ooo`030000oooo000000Coool00`000?ooooooo`0Hoooo003ooooo0P00 00Coool00`000?ooooooo`0Hoooo003Goooo1Ol002Coool00`000?ooooooo`02oooo00<0003ooooo ool06?ooo`00e_ooo`Oo000Xoooo00<0003oooooool06?ooo`00e_ooo`Oo000Xoooo00<0003ooooo ool06?ooo`00e_ooo`Oo000Xoooo00<0003oooooool06?ooo`00e_ooo`Oo000Xoooo00<0003ooooo ool06?ooo`00eoooo`Go000Yoooo0P0001Woool00=Soool3o`00:_ooo`030000oooooooo01Soool0 0?ooool6oooo00<0003oooooool06?ooo`00ooooo`Koool00`000?ooooooo`0Hoooo003ooooo1_oo o`030000oooooooo01Soool00?ooool6oooo00<0003oooooool06?ooo`00ooooo`Koool00`000?oo ooooo`0Hoooo003Koooo1Ol002Goool00`000?ooooooo`0Hoooo003Joooo1ol002Coool200006Ooo o`00f_ooo`Oo000Toooo00<0003oooooool06?ooo`00f_ooo`Oo000Toooo00<0003oooooool06?oo o`00f_ooo`Oo000Toooo00<0003oooooool06?ooo`00foooo`Go000Uoooo00<0003oooooool06?oo o`00g?ooo`?o000Voooo00<0003oooooool06?ooo`00ooooo`Koool00`000?ooooooo`0Hoooo003o oooo1_ooo`030000oooooooo01Soool00?ooool6oooo0P0001Woool00?ooool6oooo00<0003ooooo ool06?ooo`00ooooo`Koool00`000?ooooooo`0Hoooo003ooooo1_ooo`030000oooooooo01Soool0 0?ooool6oooo00<0003oooooool06?ooo`00o_ooo`<00004oooo00<0003oooooool06?ooo`00o_oo o`030000oooooooo00Coool00`000?ooooooo`0Hoooo003ioooo0`0000?oool00`000?ooooooo`03 oooo0`0001Soool00?ooool00`000?ooooooo`03oooo00<0003oooooool06?ooo`00o_ooo`030000 oooo000000Coool00`000?ooooooo`0Hoooo003ooooo00<0003oooooool00oooo`030000oooooooo 01Soool00?ooool6oooo00<0003oooooool06?ooo`00ooooo`Koool00`000?ooooooo`0Hoooo003o oooo1_ooo`030000oooooooo01Soool00?ooool6oooo00<0003oooooool06?ooo`00ooooo`Koool2 00006Oooo`00ooooo`Koool00`000?ooooooo`0Hoooo003ooooo1_ooo`030000oooooooo01Soool0 0?ooool6oooo00<0003oooooool06?ooo`00ioooo`Go000Ioooo00<0003oooooool06?ooo`00i_oo o`Oo000Hoooo00<0003oooooool06?ooo`00i_ooo`So000Goooo00<0003oooooool06?ooo`00i_oo o`So000Goooo00<0003oooooool06?ooo`00i_ooo`So000Goooo0P0001Woool00>Ooool7o`005ooo o`030000oooooooo01Soool00>Soool5o`006?ooo`030000oooooooo01Soool00>Woool3o`006Ooo o`030000oooooooo01Soool000_oool20000:Oooo`030000oooooooo02Ooool300009_ooo`80000X oooo0`0002Goool500009Oooo`030000oooooooo01Soool000_oool00`000?ooo`00000Woooo00<0 003oool00000:Oooo`030000oooooooo02Ooool00`000?ooooooo`0Uoooo00<0003oooooool09ooo o`030000oooooooo02Goool00`000?ooooooo`0Hoooo0006oooo0`0000;oool00`000?ooo`00000R oooo0`0000Coool00`000?ooooooo`0Poooo0`0000;oool400008Oooo`<00003oooo00<0003ooooo ool08Oooo`<00003oooo00<0003oooooool08?ooo`<00003oooo00<0003oooooool09Oooo`030000 oooooooo01Soool000_oool20000:?ooo`80000Xoooo00<0003oool00000:Oooo`030000oooooooo 02Koool00`000?ooooooo`0Voooo00<0003oooooool09Oooo`030000oooooooo01Soool000_oool0 0`000?ooooooo`0Woooo00<0003oooooool0:?ooo`80000Woooo00<0003oool000009oooo`030000 oooo000002Ooool00`000?ooooooo`0Uoooo0P0001Woool000coool200009oooo`<0000Yoooo00<0 003oooooool09_ooo`030000oooooooo02Ooool00`000?ooooooo`0Uoooo0P0002Ooool00`000?oo ooooo`0Hoooo003ooooo1_ooo`030000oooooooo01Soool00?ooool6oooo00<0003oooooool06?oo o`00ooooo`Koool00`000?ooooooo`0Hoooo003ooooo1_ooo`030000ooooo`0000Co000Doooo003o oooo1_ooo`030000o`00o`0000Go000Coooo003o00001`0000Oo00000`000?l00?l00003o`003000 007oool000;oool00`000?ooooooo`05oooo00<0003oooooool01_ooo`030000oooooooo00Goool0 0`000?ooooooo`06oooo00<0003oooooool01Oooo`030000oooooooo00Goool00`000?ooooooo`06 oooo00<0003oooooool01Oooo`030000oooooooo00Goool00`000?ooooooo`06oooo00<0003ooooo ool01Oooo`030000oooooooo00Goool00`000?ooooooo`06oooo00<0003oooooool01Oooo`030000 oooooooo00Goool00`000?ooooooo`06oooo00<0003oooooool01Oooo`030000oooooooo00Goool0 0`000?ooooooo`06oooo00<0003oooooool01Oooo`030000oooooooo00Koool00`000?ooooooo`05 oooo00<0003oooooool01Oooo`030000oooooooo00Koool00`000?ooooooo`05oooo00<0003ooooo ool01Oooo`030000oooooooo00Koool00`000?ooooooo`05oooo00<0003oooooool01Oooo`030000 oooooooo00Koool00`000?ooooooo`05oooo00<0003o003o00003?l000;oool00`000?ooooooo`07 oooo0002oooo00<0003oooooool01Oooo`030000oooooooo00Koool00`000?ooooooo`05oooo00<0 003oooooool01_ooo`030000oooooooo00Goool00`000?ooooooo`05oooo00<0003oooooool01_oo o`030000oooooooo00Goool00`000?ooooooo`05oooo00<0003oooooool01_ooo`030000oooooooo 00Goool00`000?ooooooo`05oooo00<0003oooooool01_ooo`030000oooooooo00Goool00`000?oo ooooo`05oooo00<0003oooooool01_ooo`030000oooooooo00Goool00`000?ooooooo`05oooo00<0 003oooooool01_ooo`030000oooooooo00Goool00`000?ooooooo`06oooo00<0003oooooool01Ooo o`030000oooooooo00Goool00`000?ooooooo`06oooo00<0003oooooool01Oooo`030000oooooooo 00Goool00`000?ooooooo`06oooo00<0003oooooool01Oooo`030000oooooooo00Goool00`000?oo ooooo`06oooo00<0003oooooool01Oooo`030000o`00o`0000co0002oooo00<0003oooooool01ooo o`00ooooo`Koool00`000?ooool00004o`0000?ooooo003o00001Ol000coool007koool5o`00P_oo o`030000oooooooo00?o0002oooo1ol000coool007goool7o`00POooo`030000oooooooo00Koool5 o`003Oooo`00OOooo`Oo0021oooo00<0003oooooool01oooo`?o0003oooo1Ol000Koool007goool7 o`00POooo`030000oooooooo00coool7o`001Oooo`00OOooo`Oo0021oooo0P0000goool7o`001Ooo o`00O_ooo`Go0022oooo00<0003oooooool03?ooo`Oo0005oooo001ooooo0ol008?oool00`000?oo ooooo`0"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-6.26257, -10.6487, 0.0239388, 0.064181}}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.690476 0.0952381 0.11107 0.00764544 [ [.11905 .09857 -6 -9 ] [.11905 .09857 6 0 ] [.30952 .09857 -6 -9 ] [.30952 .09857 6 0 ] [.5 .09857 -6 -9 ] [.5 .09857 6 0 ] [.88095 .09857 -3 -9 ] [.88095 .09857 3 0 ] [.67798 .26398 -12 -4.5 ] [.67798 .26398 0 4.5 ] [.67798 .41689 -12 -4.5 ] [.67798 .41689 0 4.5 ] [.67798 .5698 -12 -4.5 ] [.67798 .5698 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid .11905 .11107 m .11905 .11732 L s [(-6)] .11905 .09857 0 1 Mshowa .30952 .11107 m .30952 .11732 L s [(-4)] .30952 .09857 0 1 Mshowa .5 .11107 m .5 .11732 L s [(-2)] .5 .09857 0 1 Mshowa .88095 .11107 m .88095 .11732 L s [(2)] .88095 .09857 0 1 Mshowa .125 Mabswid .16667 .11107 m .16667 .11482 L s .21429 .11107 m .21429 .11482 L s .2619 .11107 m .2619 .11482 L s .35714 .11107 m .35714 .11482 L s .40476 .11107 m .40476 .11482 L s .45238 .11107 m .45238 .11482 L s .54762 .11107 m .54762 .11482 L s .59524 .11107 m .59524 .11482 L s .64286 .11107 m .64286 .11482 L s .7381 .11107 m .7381 .11482 L s .78571 .11107 m .78571 .11482 L s .83333 .11107 m .83333 .11482 L s .07143 .11107 m .07143 .11482 L s .02381 .11107 m .02381 .11482 L s .92857 .11107 m .92857 .11482 L s .97619 .11107 m .97619 .11482 L s .25 Mabswid 0 .11107 m 1 .11107 L s .69048 .26398 m .69673 .26398 L s [(20)] .67798 .26398 1 0 Mshowa .69048 .41689 m .69673 .41689 L s [(40)] .67798 .41689 1 0 Mshowa .69048 .5698 m .69673 .5698 L s [(60)] .67798 .5698 1 0 Mshowa .125 Mabswid .69048 .1493 m .69423 .1493 L s .69048 .18752 m .69423 .18752 L s .69048 .22575 m .69423 .22575 L s .69048 .30221 m .69423 .30221 L s .69048 .34043 m .69423 .34043 L s .69048 .37866 m .69423 .37866 L s .69048 .45511 m .69423 .45511 L s .69048 .49334 m .69423 .49334 L s .69048 .53157 m .69423 .53157 L s .69048 .07284 m .69423 .07284 L s .69048 .03462 m .69423 .03462 L s .69048 .60802 m .69423 .60802 L s .25 Mabswid .69048 0 m .69048 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .60332 m .04262 .42757 L .06244 .27335 L .08255 .15409 L .09396 .10359 L .10458 .06744 L .10961 .05384 L .11508 .04155 L .11989 .03276 L .125 .02545 L .12959 .02057 L .13221 .01847 L .13466 .01694 L .13581 .01636 L .1369 .0159 L .13789 .01554 L .13895 .01523 L .1401 .01498 L .14116 .01482 L .14243 .01472 L .14357 .01472 L .14477 .01479 L .1459 .01494 L .14713 .01519 L .14845 .01556 L .15114 .01659 L .1536 .01787 L .15833 .02119 L .16282 .02529 L .17279 .03729 L .18364 .05394 L .22442 .13024 L .24467 .1645 L .25459 .17823 L .26369 .18859 L .27254 .19644 L .27699 .1995 L .28185 .20217 L .28676 .20412 L .2895 .20489 L .2908 .20517 L .292 .20539 L .29313 .20555 L .29433 .20568 L .29553 .20577 L .29622 .2058 L .29685 .20582 L .29801 .20582 L .29906 .20578 L .30028 .2057 L Mistroke .30144 .20557 L .30269 .2054 L .30404 .20516 L .30648 .20459 L .30886 .20388 L .31105 .20308 L .31603 .20077 L .32128 .19762 L .33006 .19085 L .33968 .18149 L .38016 .12753 L .41912 .0726 L .42932 .06059 L .4404 .04934 L .44998 .04132 L .45506 .03776 L .46053 .03446 L .46587 .03181 L .47076 .02987 L .47543 .02844 L .47778 .02789 L .48035 .0274 L .48177 .02718 L .48311 .02701 L .48433 .02689 L .48562 .02678 L .48629 .02674 L .48703 .02671 L .48832 .02667 L .48905 .02666 L .48983 .02666 L .49057 .02667 L .49124 .02669 L .49254 .02675 L .49373 .02683 L .49504 .02694 L .49644 .0271 L .49878 .02744 L .50137 .02791 L .50627 .02911 L .51144 .03077 L .52069 .03465 L .54154 .04682 L .57962 .07457 L .60084 .08885 L .62014 .09911 L .62977 .103 L .6402 .10627 L .64499 .10744 L .65006 .10848 L Mistroke .65473 .10924 L .65916 .10982 L .66408 .11031 L .66858 .11063 L .67109 .11076 L .67342 .11086 L .67598 .11094 L .67741 .11097 L .67871 .111 L .67985 .11102 L .68107 .11103 L .6821 .11104 L .68324 .11105 L .68446 .11106 L .68577 .11107 L .68701 .11107 L .68813 .11107 L .68912 .11107 L .69017 .11107 L .69131 .11107 L .69236 .11107 L .6935 .11107 L .69476 .11107 L .69593 .11108 L .69701 .11108 L .69823 .11109 L .69934 .1111 L .70062 .11112 L .70182 .11114 L .70428 .11119 L .70566 .11123 L .70694 .11127 L .71139 .11149 L .71364 .11164 L .71611 .11185 L .72129 .11242 L .72419 .11285 L .72684 .11331 L .7317 .11434 L .73688 .11573 L .74676 .11939 L .75592 .12409 L .7668 .13154 L .77666 .14014 L .79596 .16231 L .8168 .19363 L .85787 .2679 L .87835 .30199 L .88834 .31527 L .89743 .32447 L Mistroke .90196 .32781 L .90435 .32919 L .90688 .33036 L .90909 .33112 L .91034 .33143 L .91152 .33165 L .9126 .33178 L .91359 .33185 L .91473 .33186 L .91581 .33179 L .91705 .33164 L .91817 .33142 L .91946 .33107 L .92068 .33064 L .92286 .32965 L .92521 .32823 L .92781 .32623 L .93056 .3236 L .93548 .31753 L .94043 .30956 L .94495 .30059 L .9551 .2741 L .96452 .24127 L .97343 .20236 L .97619 .18875 L Mfstroke 1 0 0 r .03 w .11039 .05194 Mdot .19697 .07778 Mdot .45671 .0367 Mdot .54329 .04801 Mdot .62987 .10304 Mdot .71645 .11188 Mdot .12054 .03172 Mdot .19697 .07778 Mdot .70134 .11113 Mdot .60126 .08911 Mdot .56403 .06304 Mdot .71645 .11188 Mdot .4461 .04437 Mdot .38942 .11381 Mdot .73202 .11441 Mdot .62899 .10272 Mdot .45627 .03698 Mdot .12054 .03172 Mdot .59148 .08287 Mdot % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgoooo0P00033oool20000F?ooo`007oooo`Oo000;oooo00<0003ooooo ool0BOooo`Wo000@oooo0P0002koool00`000?ooooooo`1Goooo000Poooo1Ol000goool00`000?oo ooooo`17oooo2_l001;oool00`000?l00?l00003o`00:?ooo`030000oooooooo05Ooool001goool7 o`003_ooo`030000oooooooo04Ooool:o`004_ooo`Oo000Woooo00<0003oooooool0Eoooo`007?oo o`Oo000@oooo00<0003oooooool0A_ooo`Wo000Coooo1ol002Ooool00`000?ooooooo`1Goooo000L oooo1ol0013oool00`000?ooooooo`16oooo2?l001Coool7o`009oooo`030000oooooooo05Ooool0 01coool7o`004Oooo`030000oooooooo04Koool5o`005_ooo`co000Roooo00<0003oooooool0Eooo o`007?ooo`Oo000Boooo00<0003oooooool0A?ooo`030000ooooo`0000;o000Hoooo3?l0027oool0 0`000?ooooooo`1Goooo000Moooo1Ol001?oool00`000?ooooooo`13oooo00<0003oooooool07?oo o`?o00000oooool00?l00005o`008Oooo`030000oooooooo05Ooool001koool3o`005Oooo`030000 oooooooo047oool00`000?ooooooo`0Qoooo1ol0027oool00`000?ooooooo`1Goooo000Noooo00<0 003oooooool05Oooo`030000oooooooo043oool00`000?ooooooo`0Roooo1ol0027oool00`000?oo ooooo`1Goooo000Noooo00<0003oooooool00_ooo`80000@oooo1Ol0023oool300006oooo`030000 oooooooo01Goool300003?ooo`Go000200008?ooo`80000coooo0`0002;oool001goool00`000?oo ooooo`03oooo00<0003oool000003_ooo`Oo000Poooo00<0003oooooool06Oooo`030000oooooooo 01Koool00`000?ooooooo`0=oooo0ol000?oool5o`006oooo`030000oooooooo03;oool00`000?oo ooooo`0Roooo000Moooo100000;oool00`000?ooo`00000>oooo1ol001Woool300000_ooo`@0000J oooo00<0003oooooool04Oooo`<00003oooo00<0003oooooool04Oooo`Oo000Joooo00<0003ooooo ool0Oooo`005oooo`030000oooooooo02coool00`000?ooooooo`0Loooo00<0003oooooool0G_oo o`030000oooooooo01coool00`000?ooooooo`0hoooo000Foooo00<0003oooooool0;_ooo`030000 oooooooo01[oool00`000?ooooooo`1Ooooo00<0003oooooool07?ooo`030000oooooooo03Soool0 01Koool00`000?ooooooo`0_oooo00<0003oooooool06?ooo`030000oooooooo063oool00`000?oo ooooo`0Moooo00<0003oooooool0=oooo`005_ooo`030000oooooooo02ooool00`000?ooooooo`0H oooo00<0003oooooool0H?ooo`030000oooooooo01koool00`000?ooooooo`0foooo000Foooo00<0 003oooooool0?ooo`030000oooooooo00Koool00`000?ooooooo`0Coooo000@oooo00<0003oooooool0/ooo o`030000oooooooo03Woool00`000?ooooooo`04oooo00<0003oooooool05?ooo`004?ooo`030000 oooooooo0;?oool00`000?ooooooo`0joooo0P0000;oool300005_ooo`004?ooo`030000oooooooo 0;?oool00`000?ooooooo`0loooo0P0001Woool0013oool00`000?ooooooo`2coooo00<0003ooooo ool0Eoooo`003oooo`030000oooooooo0;Coool20000F?ooo`003oooo`030000oooooooo0;Coool0 0`000?ooooooo`1Goooo000?oooo00<0003oooooool0]?ooo`030000oooooooo05Ooool000ooool0 0`000?ooooooo`2doooo00<0003oooooool0Eoooo`003oooo`030000oooooooo0;Coool00`000?oo ooooo`1Goooo000?oooo00<0003oooooool0]?ooo`030000oooooooo05Ooool000ooool00`000?oo ooooo`2doooo00<0003oooooool0Eoooo`003_ooo`030000oooooooo0;Goool00`000?ooooooo`1G oooo000>oooo00<0003oooooool0]Oooo`030000oooooooo05Ooool000koool00`000?ooooooo`2e oooo00<0003oooooool0Eoooo`003_ooo`030000oooooooo0;Goool00`000?ooooooo`1Goooo000> oooo00<0003oooooool0]Oooo`80001Hoooo000>oooo00<0003oooooool0]Oooo`030000oooooooo 05Ooool000koool00`000?ooooooo`2eoooo00<0003oooooool0Eoooo`003_ooo`030000oooooooo 0;Goool00`000?ooooooo`1Goooo000=oooo00<0003oooooool0]_ooo`030000oooooooo05Ooool0 00goool00`000?ooooooo`2foooo00<0003oooooool0Eoooo`003Oooo`030000oooooooo0;Koool0 0`000?ooooooo`1Goooo000=oooo00<0003oooooool0]_ooo`030000oooooooo05Ooool000goool0 0`000?ooooooo`2foooo00<0003oooooool0Eoooo`003Oooo`030000oooooooo0:[oool300000_oo o`030000oooooooo00Coool00`000?ooooooo`1Goooo000=oooo00<0003oooooool0Zoooo`060000 oooooooo0000oooo00001Oooo`030000oooooooo05Ooool000coool00`000?ooooooo`2Zoooo1000 0004oooo0000oooo00001Oooo`80001Hoooo000"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-7.26302, -14.528, 0.0366761, 0.456869}}] }, Open ]], Cell[BoxData[ InterpretationBox[\("******* Iteracion: "\[InvisibleSpace]2\), SequenceForm[ "******* Iteracion: ", 2], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se reproducen los menores de: "\[InvisibleSpace]0.687902605403357014` \), SequenceForm[ "Se reproducen los menores de: ", .68790260540335701], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Hijos: "\[InvisibleSpace]{\(-6.09090909090909082`\), \(-6.00773852992223211`\), \(-5.98436193954071793`\), \(-5.98436193954071793`\), \(-5.22400370775770284`\), \(-5.18181818181818165`\), \(-5.18181818181818165`\), \(-4.96668024885110881`\), \(-3.19543066970412681`\), \(-3.18509644166918093`\), \(-3.16107611231536989`\), \(-2.80526712673194733`\), \(-2.58382311308521295`\), \(-2.5665654867943326`\), \(-2.56591045196204081`\), \(-2.525880125257002`\), \(-2.45916372952546069`\), \(-2.45454545454545458`\), \(-2.33833232053773176`\), \(-2.05676469715964049`\), \(-1.74596970836220037`\), \(-1.69645283508418565`\), \(-1.67418151652519053`\), \(-1.54545454545454541`\), \(-1.40002944812805152`\), \(-1.35600939225855432`\), \(-1.32764400166542961`\), \(-1.17084115432956803`\), \(-1.03942249815031839`\), \(-0.936728353714671868`\), \(-0.645582796599089814`\), \(-0.636363636363636331`\), \(-0.633645511323966381`\), \(-0.529076426047583758`\), \(-0.411868775829286182`\), 0.0925315226414611124`, 0.114069570361950978`, 0.114069570361950978`, 0.272727272727272707`, 0.272727272727272707`, 0.272727272727272707`, 0.352967466534247309`, 0.436201854244866993`}\), SequenceForm[ "Hijos: ", {-6.0909090909090908, -6.0077385299222321, -5.9843619395407179, -5.9843619395407179, -5.2240037077577028, -5.1818181818181817, -5.1818181818181817, -4.9666802488511088, -3.1954306697041268, -3.1850964416691809, -3.1610761123153699, -2.8052671267319473, -2.583823113085213, -2.5665654867943326, -2.5659104519620408, -2.525880125257002, -2.4591637295254607, -2.4545454545454546, -2.3383323205377318, -2.0567646971596405, -1.7459697083622003, -1.6964528350841857, -1.6741815165251905, -1.5454545454545454, -1.4000294481280515, -1.3560093922585543, -1.3276440016654296, -1.170841154329568, -1.0394224981503184, -.93672835371467189, -.64558279659908979, -.63636363636363635, -.6336455113239664, -.52907642604758376, -.41186877582928622, .092531522641461111, .11406957036195098, .11406957036195098, .27272727272727271, .27272727272727271, .27272727272727271, .35296746653424732, .43620185424486702}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Quitar "\[InvisibleSpace]20\[InvisibleSpace]" individuos."\), SequenceForm[ "Quitar ", 20, " individuos."], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 3.10052814744602578`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -3.1005281474460258], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 0.00847646440973370829`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -.0084764644097337083], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 5.81912798053860136`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -5.8191279805386014], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 4.70686166302220954`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -4.7068616630222095], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 3.98273297645727097`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -3.982732976457271], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: \ "\[InvisibleSpace]0.257179712777784175`\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", .25717971277778418], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 4.65333982023870884`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -4.6533398202387088], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 4.94853351418860665`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -4.9485335141886067], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 0.926169067513008315`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -.92616906751300832], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 0.621299765665087377`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -.62129976566508738], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 9.49855242085498119`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -9.4985524208549812], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 4.62054248466330363`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -4.6205424846633036], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 6.45264468131364665`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -6.4526446813136467], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 7.58102584527936684`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -7.5810258452793668], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 0.776882340827922845`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -.77688234082792285], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 1.73252582752087391`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -1.7325258275208739], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 8.67909748768634514`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -8.6790974876863451], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 6.23077411426046889`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -6.2307741142604689], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 0.685807121164110355`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -.68580712116411036], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 0.757273055875460343`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -.75727305587546034], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: \ "\[InvisibleSpace]0.716174737280930173`\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", .71617473728093017], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Supervivientes: "\[InvisibleSpace]{\(-6.09090909090909082`\), \(-6.00773852992223211`\), \(-5.98436193954071793`\), \(-5.98436193954071793`\), \(-3.19543066970412681`\), \(-3.18509644166918093`\), \(-2.5665654867943326`\), \(-2.56591045196204081`\), \(-2.525880125257002`\), \(-2.45916372952546069`\), \(-2.45454545454545458`\), \(-2.33833232053773176`\), \(-2.05676469715964049`\), \(-1.74596970836220037`\), \(-1.67418151652519053`\), \(-1.54545454545454541`\), \(-1.35600939225855432`\), \(-0.633645511323966381`\), 0.272727272727272707`, 0.272727272727272707`, 0.352967466534247309`, 0.436201854244866993`} \), SequenceForm[ "Supervivientes: ", {-6.0909090909090908, -6.0077385299222321, -5.9843619395407179, -5.9843619395407179, -3.1954306697041268, -3.1850964416691809, -2.5665654867943326, -2.5659104519620408, -2.525880125257002, -2.4591637295254607, -2.4545454545454546, -2.3383323205377318, -2.0567646971596405, -1.7459697083622003, -1.6741815165251905, -1.5454545454545454, -1.3560093922585543, -.6336455113239664, .27272727272727271, .27272727272727271, .35296746653424732, .43620185424486702}], Editable->False]], "Print"], Cell[CellGroupData[{ Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.912544 0.145912 0.554686 0.0490472 [ [.03707 .54219 -6 -9 ] [.03707 .54219 6 0 ] [.18299 .54219 -6 -9 ] [.18299 .54219 6 0 ] [.3289 .54219 -6 -9 ] [.3289 .54219 6 0 ] [.47481 .54219 -6 -9 ] [.47481 .54219 6 0 ] [.62072 .54219 -6 -9 ] [.62072 .54219 6 0 ] [.76663 .54219 -6 -9 ] [.76663 .54219 6 0 ] [.90004 .06421 -18 -4.5 ] [.90004 .06421 0 4.5 ] [.90004 .16231 -12 -4.5 ] [.90004 .16231 0 4.5 ] [.90004 .2604 -12 -4.5 ] [.90004 .2604 0 4.5 ] [.90004 .3585 -12 -4.5 ] [.90004 .3585 0 4.5 ] [.90004 .45659 -12 -4.5 ] [.90004 .45659 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid .03707 .55469 m .03707 .56094 L s [(-6)] .03707 .54219 0 1 Mshowa .18299 .55469 m .18299 .56094 L s [(-5)] .18299 .54219 0 1 Mshowa .3289 .55469 m .3289 .56094 L s [(-4)] .3289 .54219 0 1 Mshowa .47481 .55469 m .47481 .56094 L s [(-3)] .47481 .54219 0 1 Mshowa .62072 .55469 m .62072 .56094 L s [(-2)] .62072 .54219 0 1 Mshowa .76663 .55469 m .76663 .56094 L s [(-1)] .76663 .54219 0 1 Mshowa .125 Mabswid .06626 .55469 m .06626 .55844 L s .09544 .55469 m .09544 .55844 L s .12462 .55469 m .12462 .55844 L s .1538 .55469 m .1538 .55844 L s .21217 .55469 m .21217 .55844 L s .24135 .55469 m .24135 .55844 L s .27053 .55469 m .27053 .55844 L s .29972 .55469 m .29972 .55844 L s .35808 .55469 m .35808 .55844 L s .38726 .55469 m .38726 .55844 L s .41644 .55469 m .41644 .55844 L s .44563 .55469 m .44563 .55844 L s .50399 .55469 m .50399 .55844 L s .53317 .55469 m .53317 .55844 L s .56236 .55469 m .56236 .55844 L s .59154 .55469 m .59154 .55844 L s .6499 .55469 m .6499 .55844 L s .67909 .55469 m .67909 .55844 L s .70827 .55469 m .70827 .55844 L s .73745 .55469 m .73745 .55844 L s .79581 .55469 m .79581 .55844 L s .825 .55469 m .825 .55844 L s .85418 .55469 m .85418 .55844 L s .88336 .55469 m .88336 .55844 L s .00789 .55469 m .00789 .55844 L s .94173 .55469 m .94173 .55844 L s .97091 .55469 m .97091 .55844 L s .25 Mabswid 0 .55469 m 1 .55469 L s .91254 .06421 m .91879 .06421 L s [(-10)] .90004 .06421 1 0 Mshowa .91254 .16231 m .91879 .16231 L s [(-8)] .90004 .16231 1 0 Mshowa .91254 .2604 m .91879 .2604 L s [(-6)] .90004 .2604 1 0 Mshowa .91254 .3585 m .91879 .3585 L s [(-4)] .90004 .3585 1 0 Mshowa .91254 .45659 m .91879 .45659 L s [(-2)] .90004 .45659 1 0 Mshowa .125 Mabswid .91254 .08874 m .91629 .08874 L s .91254 .11326 m .91629 .11326 L s .91254 .13778 m .91629 .13778 L s .91254 .18683 m .91629 .18683 L s .91254 .21136 m .91629 .21136 L s .91254 .23588 m .91629 .23588 L s .91254 .28493 m .91629 .28493 L s .91254 .30945 m .91629 .30945 L s .91254 .33397 m .91629 .33397 L s .91254 .38302 m .91629 .38302 L s .91254 .40754 m .91629 .40754 L s .91254 .43207 m .91629 .43207 L s .91254 .48112 m .91629 .48112 L s .91254 .50564 m .91629 .50564 L s .91254 .53016 m .91629 .53016 L s .91254 .03969 m .91629 .03969 L s .91254 .01517 m .91629 .01517 L s .91254 .57921 m .91629 .57921 L s .91254 .60373 m .91629 .60373 L s .25 Mabswid .91254 0 m .91254 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 1 0 0 r .03 w .02381 .17536 Mdot .5544 .07761 Mdot .68704 .15013 Mdot .95234 .55987 Mdot .03936 .04566 Mdot .95234 .55987 Mdot .53815 .12677 Mdot .97619 .57612 Mdot .55372 .07938 Mdot .03936 .04566 Mdot .61244 .01472 Mdot .4478 .59396 Mdot .03595 .06949 Mdot .53805 .1271 Mdot .54399 .10755 Mdot .44629 .60332 Mdot .65779 .0756 Mdot .66826 .09992 Mdot .96405 .56599 Mdot .82009 .50378 Mdot .57135 .04101 Mdot .71469 .2336 Mdot % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgSoool5o`006?ooo`030000oooooooo01Soool0 0>Ooool7o`005oooo`030000oooooooo01Soool00>Ooool7o`005oooo`80000Ioooo003Woooo1ol0 01Ooool00`000?ooooooo`0Hoooo003Woooo1ol001Ooool00`000?ooooooo`0Hoooo000;oooo0P00 02Woool00`000?ooooooo`0Woooo0`0002Koool20000:?ooo`<0000Uoooo1@0000Soool5o`006?oo o`030000oooooooo01Soool000_oool00`000?ooo`00000Woooo00<0003oool00000:Oooo`030000 oooooooo02Ooool00`000?ooooooo`0Uoooo00<0003oooooool09oooo`030000oooooooo00Woool3 o`006Oooo`030000oooooooo01Soool000Koool300000_ooo`030000oooo000002;oool300001?oo o`030000oooooooo023oool300000_ooo`@0000Qoooo0`0000?oool00`000?ooooooo`0Qoooo0`00 00?oool00`000?ooooooo`0Poooo0`0000?oool00`000?ooooooo`0Uoooo00<0003oooooool06?oo o`002oooo`80000Xoooo0P0002Soool00`000?ooo`00000Yoooo00<0003oooooool09_ooo`030000 oooooooo02Koool00`000?ooooooo`0Uoooo00<0003oooooool06?ooo`002oooo`030000oooooooo 02Ooool00`000?ooooooo`0Xoooo0P0002Ooool00`000?ooo`00000Woooo00<0003oool000009ooo o`030000oooooooo02Goool200006Oooo`003?ooo`80000Woooo0`0002Woool00`000?ooooooo`0V oooo00<0003oooooool09oooo`030000oooooooo02Goool200009oooo`030000oooooooo01Soool0 0?ooool6oooo00<0003oooooool06?ooo`00ooooo`Koool00`000?ooooooo`0Hoooo003ooooo1_oo o`030000oooooooo01Soool00?ooool6oooo00<0003oooooool06?ooo`00ooooo`Koool00`000?oo ooooo`0Hoooo003o00003`0000Go000<00000Oooo`000_ooo`030000oooooooo00Goool00`000?oo ooooo`06oooo00<0003oooooool01Oooo`030000oooooooo00Koool00`000?ooooooo`05oooo00<0 003oooooool01Oooo`030000oooooooo00Koool00`000?ooooooo`05oooo00<0003oooooool01Ooo o`030000oooooooo00Koool00`000?ooooooo`05oooo00<0003oooooool01Oooo`030000oooooooo 00Koool00`000?ooooooo`05oooo00<0003oooooool01Oooo`030000oooooooo00Koool00`000?oo ooooo`05oooo00<0003oooooool01Oooo`030000oooooooo00Koool00`000?ooooooo`05oooo00<0 003oooooool01_ooo`030000oooooooo00Goool00`000?ooooooo`05oooo00<0003oooooool01_oo o`030000oooooooo00Goool00`000?ooooooo`05oooo00<0003oooooool01_ooo`030000oooooooo 00Goool00`000?ooooooo`05oooo00<0003oooooool01_ooo`030000oooooooo00Goool00`000?oo ooooo`05oooo2Ol000030000oooooooo00Ooool000[oool00`000?ooooooo`0Woooo00<0003ooooo ool09oooo`030000oooooooo02Ooool00`000?ooooooo`0Woooo00<0003oooooool09_ooo`030000 oooooooo02Ooool00`000?ooooooo`05oooo2_l000Woool00?ooool6oooo00<0003oooooool01Ooo o`[o0009oooo003ooooo1_ooo`030000oooooooo00Goool=o`001_ooo`00ooooo`Koool00`000?oo ooooo`06oooo3Ol000Goool00?ooool6oooo00<0003oooooool01oooo`co0005oooo003ooooo1_oo o`80000;oooo2Ol000Goool00?ooool6oooo00<0003oooooool03?ooo`Oo0005oooo001moooo1Ol0 08?oool00`000?ooooooo`0=oooo1Ol000Koool007coool7o`00P_ooo`030000oooooooo00koool3 o`001oooo`00O?ooo`Oo0022oooo00<0003oooooool06?ooo`00O?ooo`Oo0022oooo00<0003ooooo ool06?ooo`00O?ooo`Oo0022oooo00<0003oooooool06?ooo`00O?ooo`Oo0022oooo0P0001Woool0 07coool7o`00P_ooo`030000oooooooo01Soool007coool7o`00P_ooo`030000oooooooo01Soool0 07coool7o`00P_ooo`030000oooooooo01Soool007goool5o`00Poooo`030000oooooooo01Soool0 0001\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-6.26257, -11.3093, 0.0239388, 0.0712164}}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.690476 0.0952381 0.11107 0.00764544 [ [.11905 .09857 -6 -9 ] [.11905 .09857 6 0 ] [.30952 .09857 -6 -9 ] [.30952 .09857 6 0 ] [.5 .09857 -6 -9 ] [.5 .09857 6 0 ] [.88095 .09857 -3 -9 ] [.88095 .09857 3 0 ] [.67798 .26398 -12 -4.5 ] [.67798 .26398 0 4.5 ] [.67798 .41689 -12 -4.5 ] [.67798 .41689 0 4.5 ] [.67798 .5698 -12 -4.5 ] [.67798 .5698 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid .11905 .11107 m .11905 .11732 L s [(-6)] .11905 .09857 0 1 Mshowa .30952 .11107 m .30952 .11732 L s [(-4)] .30952 .09857 0 1 Mshowa .5 .11107 m .5 .11732 L s [(-2)] .5 .09857 0 1 Mshowa .88095 .11107 m .88095 .11732 L s [(2)] .88095 .09857 0 1 Mshowa .125 Mabswid .16667 .11107 m .16667 .11482 L s .21429 .11107 m .21429 .11482 L s .2619 .11107 m .2619 .11482 L s .35714 .11107 m .35714 .11482 L s .40476 .11107 m .40476 .11482 L s .45238 .11107 m .45238 .11482 L s .54762 .11107 m .54762 .11482 L s .59524 .11107 m .59524 .11482 L s .64286 .11107 m .64286 .11482 L s .7381 .11107 m .7381 .11482 L s .78571 .11107 m .78571 .11482 L s .83333 .11107 m .83333 .11482 L s .07143 .11107 m .07143 .11482 L s .02381 .11107 m .02381 .11482 L s .92857 .11107 m .92857 .11482 L s .97619 .11107 m .97619 .11482 L s .25 Mabswid 0 .11107 m 1 .11107 L s .69048 .26398 m .69673 .26398 L s [(20)] .67798 .26398 1 0 Mshowa .69048 .41689 m .69673 .41689 L s [(40)] .67798 .41689 1 0 Mshowa .69048 .5698 m .69673 .5698 L s [(60)] .67798 .5698 1 0 Mshowa .125 Mabswid .69048 .1493 m .69423 .1493 L s .69048 .18752 m .69423 .18752 L s .69048 .22575 m .69423 .22575 L s .69048 .30221 m .69423 .30221 L s .69048 .34043 m .69423 .34043 L s .69048 .37866 m .69423 .37866 L s .69048 .45511 m .69423 .45511 L s .69048 .49334 m .69423 .49334 L s .69048 .53157 m .69423 .53157 L s .69048 .07284 m .69423 .07284 L s .69048 .03462 m .69423 .03462 L s .69048 .60802 m .69423 .60802 L s .25 Mabswid .69048 0 m .69048 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .60332 m .04262 .42757 L .06244 .27335 L .08255 .15409 L .09396 .10359 L .10458 .06744 L .10961 .05384 L .11508 .04155 L .11989 .03276 L .125 .02545 L .12959 .02057 L .13221 .01847 L .13466 .01694 L .13581 .01636 L .1369 .0159 L .13789 .01554 L .13895 .01523 L .1401 .01498 L .14116 .01482 L .14243 .01472 L .14357 .01472 L .14477 .01479 L .1459 .01494 L .14713 .01519 L .14845 .01556 L .15114 .01659 L .1536 .01787 L .15833 .02119 L .16282 .02529 L .17279 .03729 L .18364 .05394 L .22442 .13024 L .24467 .1645 L .25459 .17823 L .26369 .18859 L .27254 .19644 L .27699 .1995 L .28185 .20217 L .28676 .20412 L .2895 .20489 L .2908 .20517 L .292 .20539 L .29313 .20555 L .29433 .20568 L .29553 .20577 L .29622 .2058 L .29685 .20582 L .29801 .20582 L .29906 .20578 L .30028 .2057 L Mistroke .30144 .20557 L .30269 .2054 L .30404 .20516 L .30648 .20459 L .30886 .20388 L .31105 .20308 L .31603 .20077 L .32128 .19762 L .33006 .19085 L .33968 .18149 L .38016 .12753 L .41912 .0726 L .42932 .06059 L .4404 .04934 L .44998 .04132 L .45506 .03776 L .46053 .03446 L .46587 .03181 L .47076 .02987 L .47543 .02844 L .47778 .02789 L .48035 .0274 L .48177 .02718 L .48311 .02701 L .48433 .02689 L .48562 .02678 L .48629 .02674 L .48703 .02671 L .48832 .02667 L .48905 .02666 L .48983 .02666 L .49057 .02667 L .49124 .02669 L .49254 .02675 L .49373 .02683 L .49504 .02694 L .49644 .0271 L .49878 .02744 L .50137 .02791 L .50627 .02911 L .51144 .03077 L .52069 .03465 L .54154 .04682 L .57962 .07457 L .60084 .08885 L .62014 .09911 L .62977 .103 L .6402 .10627 L .64499 .10744 L .65006 .10848 L Mistroke .65473 .10924 L .65916 .10982 L .66408 .11031 L .66858 .11063 L .67109 .11076 L .67342 .11086 L .67598 .11094 L .67741 .11097 L .67871 .111 L .67985 .11102 L .68107 .11103 L .6821 .11104 L .68324 .11105 L .68446 .11106 L .68577 .11107 L .68701 .11107 L .68813 .11107 L .68912 .11107 L .69017 .11107 L .69131 .11107 L .69236 .11107 L .6935 .11107 L .69476 .11107 L .69593 .11108 L .69701 .11108 L .69823 .11109 L .69934 .1111 L .70062 .11112 L .70182 .11114 L .70428 .11119 L .70566 .11123 L .70694 .11127 L .71139 .11149 L .71364 .11164 L .71611 .11185 L .72129 .11242 L .72419 .11285 L .72684 .11331 L .7317 .11434 L .73688 .11573 L .74676 .11939 L .75592 .12409 L .7668 .13154 L .77666 .14014 L .79596 .16231 L .8168 .19363 L .85787 .2679 L .87835 .30199 L .88834 .31527 L .89743 .32447 L Mistroke .90196 .32781 L .90435 .32919 L .90688 .33036 L .90909 .33112 L .91034 .33143 L .91152 .33165 L .9126 .33178 L .91359 .33185 L .91473 .33186 L .91581 .33179 L .91705 .33164 L .91817 .33142 L .91946 .33107 L .92068 .33064 L .92286 .32965 L .92521 .32823 L .92781 .32623 L .93056 .3236 L .93548 .31753 L .94043 .30956 L .94495 .30059 L .9551 .2741 L .96452 .24127 L .97343 .20236 L .97619 .18875 L Mfstroke 1 0 0 r .03 w .11039 .05194 Mdot .45671 .0367 Mdot .54329 .04801 Mdot .71645 .11188 Mdot .12054 .03172 Mdot .71645 .11188 Mdot .4461 .04437 Mdot .73202 .11441 Mdot .45627 .03698 Mdot .12054 .03172 Mdot .49459 .0269 Mdot .38713 .11719 Mdot .11831 .03544 Mdot .44604 .04442 Mdot .44992 .04137 Mdot .38615 .11865 Mdot .52419 .03639 Mdot .53103 .04018 Mdot .72409 .11283 Mdot .63013 .10313 Mdot .46778 .031 Mdot .56133 .06102 Mdot % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgoooo00<0003oooooool0Aoooo`_o000;oooo3Ol002Ooool00`000?ooooooo`1G oooo000Loooo1ol0013oool00`000?ooooooo`16oooo2Ol000kooolooo o`005oooo`030000oooooooo02_oool00`000?ooooooo`0Noooo00<0003oooooool0GOooo`030000 oooooooo01[oool00`000?ooooooo`0joooo000Goooo00<0003oooooool0:oooo`030000oooooooo 01koool00`000?ooooooo`1Moooo00<0003oooooool06oooo`030000oooooooo03Woool001Ooool0 0`000?ooooooo`0/oooo00<0003oooooool07?ooo`030000oooooooo05koool00`000?ooooooo`0L oooo00<0003oooooool0>?ooo`005_ooo`030000oooooooo02koool00`000?ooooooo`0Joooo00<0 003oooooool0Goooo`030000oooooooo01coool00`000?ooooooo`0hoooo000Foooo00<0003ooooo ool0;oooo`030000oooooooo01Soool00`000?ooooooo`1Poooo00<0003oooooool07Oooo`030000 oooooooo03Ooool001Koool00`000?ooooooo`0_oooo00<0003oooooool06?ooo`030000oooooooo 063oool00`000?ooooooo`0Noooo00<0003oooooool0=_ooo`005_ooo`030000oooooooo033oool0 0`000?ooooooo`0Foooo00<0003oooooool0HOooo`030000oooooooo01koool00`000?ooooooo`0f oooo000Foooo00<0003oooooool0_ooo`P0001/oooo00<0003oooooool08oooo`030000oooooooo 02Soool00`000?ooooooo`06oooo000Eoooo00<0003oooooool0[_ooo`030000oooooooo02?oool0 0`000?ooooooo`0Xoooo00<0003oooooool01_ooo`005Oooo`030000oooooooo0:koool00`000?oo ooooo`0Toooo00<0003oooooool09_ooo`030000oooooooo00Ooool001Goool00`000?ooooooo`2^ oooo00<0003oooooool09?ooo`030000oooooooo02Koool00`000?ooooooo`07oooo000Doooo00<0 003oooooool0[oooo`030000oooooooo02Goool00`000?ooooooo`0Uoooo00<0003oooooool01ooo o`005?ooo`030000oooooooo0:ooool00`000?ooooooo`0Uoooo00<0003oooooool09Oooo`030000 oooooooo00Ooool001Coool00`000?ooooooo`2_oooo0P0002Ooool00`000?ooooooo`0Soooo00<0 003oooooool02?ooo`005?ooo`030000oooooooo0:ooool00`000?ooooooo`0Voooo00<0003ooooo ool08oooo`030000oooooooo00Soool001Coool00`000?ooooooo`2_oooo00<0003oooooool09ooo o`030000oooooooo02;oool00`000?ooooooo`08oooo000Doooo00<0003oooooool0[oooo`030000 oooooooo02Ooool00`000?ooooooo`0Roooo00<0003oooooool02?ooo`004oooo`030000oooooooo 0;3oool00`000?ooooooo`0Xoooo00<0003oooooool08?ooo`030000oooooooo00Woool001?oool0 0`000?ooooooo`2`oooo00<0003oooooool0:?ooo`030000oooooooo023oool00`000?ooooooo`09 oooo000Coooo00<0003oooooool0/?ooo`030000oooooooo02Woool00`000?ooooooo`0Ooooo00<0 003oooooool02Oooo`004oooo`030000oooooooo0;3oool00`000?ooooooo`0Yoooo00<0003ooooo ool07_ooo`030000oooooooo00[oool001?oool00`000?ooooooo`2`oooo00<0003oooooool0:_oo o`030000oooooooo01goool00`000?ooooooo`0:oooo000Coooo00<0003oooooool0Xoooo`<00003 oooo00<0003oooooool01?ooo`030000oooooooo02[oool00`000?ooooooo`0Moooo00<0003ooooo ool02_ooo`004oooo`030000oooooooo0:?oool00`000?ooooooo`02oooo00<0003oool000001Ooo o`030000oooooooo02_oool00`000?ooooooo`0Koooo00<0003oooooool02oooo`004_ooo`030000 oooooooo0:Goool01`000?ooooooooooo`000?ooo`000005oooo0P0002coool00`000?ooooooo`0K oooo00<0003oooooool02oooo`004_ooo`030000oooooooo0:Goool01`000?ooooooooooo`000?oo o`000005oooo00<0003oooooool0;?ooo`030000oooooooo01[oool00`000?ooooooo`0;oooo000B oooo00<0003oooooool0Y?ooo`030000oooo000000;oool00`000?ooo`000005oooo00<0003ooooo ool0;Oooo`030000oooooooo01Soool00`000?ooooooo`0oooo000Aoooo00<0003oooooool0/_ooo`030000oooooooo037oool0 0`000?ooooooo`0Aoooo00<0003oooooool03oooo`004Oooo`030000oooooooo0;;oool20000_ooo`800002oooo0`0001Koool0013oool00`000?ooooooo`2coooo00<0003ooooo ool0??ooo`80000Ioooo000@oooo00<0003oooooool0/oooo`030000oooooooo05Ooool000ooool0 0`000?ooooooo`2doooo0P0005Soool000ooool00`000?ooooooo`2doooo00<0003oooooool0Eooo o`003oooo`030000oooooooo0;Coool00`000?ooooooo`1Goooo000?oooo00<0003oooooool0]?oo o`030000oooooooo05Ooool000ooool00`000?ooooooo`2doooo00<0003oooooool0Eoooo`003ooo o`030000oooooooo0;Coool00`000?ooooooo`1Goooo000?oooo00<0003oooooool0]?ooo`030000 oooooooo05Ooool000koool00`000?ooooooo`2eoooo00<0003oooooool0Eoooo`003_ooo`030000 oooooooo0;Goool00`000?ooooooo`1Goooo000>oooo00<0003oooooool0]Oooo`030000oooooooo 05Ooool000koool00`000?ooooooo`2eoooo00<0003oooooool0Eoooo`003_ooo`030000oooooooo 0;Goool20000F?ooo`003_ooo`030000oooooooo0;Goool00`000?ooooooo`1Goooo000>oooo00<0 003oooooool0]Oooo`030000oooooooo05Ooool000koool00`000?ooooooo`2eoooo00<0003ooooo ool0Eoooo`003Oooo`030000oooooooo0;Koool00`000?ooooooo`1Goooo000=oooo00<0003ooooo ool0]_ooo`030000oooooooo05Ooool000goool00`000?ooooooo`2foooo00<0003oooooool0Eooo o`003Oooo`030000oooooooo0;Koool00`000?ooooooo`1Goooo000=oooo00<0003oooooool0]_oo o`030000oooooooo05Ooool000goool00`000?ooooooo`2Zoooo0`0000;oool00`000?ooooooo`04 oooo00<0003oooooool0Eoooo`003Oooo`030000oooooooo0:_oool01P000?ooooooo`000?ooo`00 00Goool00`000?ooooooo`1Goooo000"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-7.26302, -14.528, 0.0366761, 0.456869}}] }, Open ]], Cell[BoxData[ InterpretationBox[\("******* Iteracion: "\[InvisibleSpace]3\), SequenceForm[ "******* Iteracion: ", 3], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se reproducen los menores de: "\[InvisibleSpace]\( - 7.95602574488817637`\)\), SequenceForm[ "Se reproducen los menores de: ", -7.9560257448881764], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Hijos: "\[InvisibleSpace]{\(-6.09090909090909082`\), \(-6.00773852992223211`\), \(-5.99557490955679917`\), \(-5.98436193954071793`\), \(-5.98436193954071793`\), \(-5.69732330190363889`\), \(-4.74459850515349845`\), \(-4.60781733466974152`\), \(-4.0156251920466186`\), \(-3.19543066970412681`\), \(-3.18509644166918093`\), \(-2.95505625708821284`\), \(-2.81883950029954988`\), \(-2.77388746575357814`\), \(-2.5665654867943326`\), \(-2.56591045196204081`\), \(-2.525880125257002`\), \(-2.45916372952546069`\), \(-2.45454545454545458`\), \(-2.33833232053773176`\), \(-2.0777021904022539`\), \(-2.05676469715964049`\), \(-1.80114194947520633`\), \(-1.74596970836220037`\), \(-1.74596970836220037`\), \(-1.67418151652519053`\), \(-1.54545454545454541`\), \(-1.43322438426139564`\), \(-1.35600939225855432`\), \(-0.633645511323966381`\), 0.207540613318568567`, 0.272727272727272707`, 0.272727272727272707`, 0.352967466534247309`, 0.436201854244866993`}\), SequenceForm[ "Hijos: ", {-6.0909090909090908, -6.0077385299222321, -5.9955749095567992, -5.9843619395407179, -5.9843619395407179, -5.6973233019036389, -4.7445985051534985, -4.6078173346697415, -4.0156251920466186, -3.1954306697041268, -3.1850964416691809, -2.9550562570882128, -2.8188395002995499, -2.7738874657535781, -2.5665654867943326, -2.5659104519620408, -2.525880125257002, -2.4591637295254607, -2.4545454545454546, -2.3383323205377318, -2.0777021904022539, -2.0567646971596405, -1.8011419494752063, -1.7459697083622003, -1.7459697083622003, -1.6741815165251905, -1.5454545454545454, -1.4332243842613956, -1.3560093922585543, -.6336455113239664, .20754061331856855, .27272727272727271, .27272727272727271, .35296746653424732, .43620185424486702}], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Quitar "\[InvisibleSpace]12\[InvisibleSpace]" individuos."\), SequenceForm[ "Quitar ", 12, " individuos."], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: \ "\[InvisibleSpace]6.50218026300512086`\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", 6.5021802630051209], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: \ "\[InvisibleSpace]1.6118570882178087`\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", 1.6118570882178087], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: \ "\[InvisibleSpace]11.5722312656652182`\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", 11.572231265665218], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 4.55462685391414634`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -4.5546268539141463], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: \ "\[InvisibleSpace]0.963115142737175133`\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", .96311514273717513], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 5.34781087220733919`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -5.3478108722073392], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 0.654796125573863463`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -.65479612557386346], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 2.13755941329278087`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -2.1375594132927809], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 5.64733237109096908`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -5.6473323710909691], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 4.80706286670638593`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -4.8070628667063859], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 5.35749812282691983`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -5.3574981228269198], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 9.54882232263484809`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -9.5488223226348481], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Se mueren el inmediatamente mayores de: "\[InvisibleSpace]\( - 0.177818430140717964`\)\), SequenceForm[ "Se mueren el inmediatamente mayores de: ", -.17781843014071796], Editable->False]], "Print"], Cell[BoxData[ InterpretationBox[ \("Supervivientes: "\[InvisibleSpace]{\(-6.09090909090909082`\), \(-6.00773852992223211`\), \(-5.99557490955679917`\), \(-5.98436193954071793`\), \(-5.98436193954071793`\), \(-5.69732330190363889`\), \(-3.18509644166918093`\), \(-2.77388746575357814`\), \(-2.5665654867943326`\), \(-2.56591045196204081`\), \(-2.525880125257002`\), \(-2.45916372952546069`\), \(-2.45454545454545458`\), \(-2.33833232053773176`\), \(-2.0777021904022539`\), \(-2.05676469715964049`\), \(-1.80114194947520633`\), \(-1.74596970836220037`\), \(-1.74596970836220037`\), \(-1.54545454545454541`\), \(-1.43322438426139564`\), \(-1.35600939225855432`\)}\), SequenceForm[ "Supervivientes: ", {-6.0909090909090908, -6.0077385299222321, -5.9955749095567992, -5.9843619395407179, -5.9843619395407179, -5.6973233019036389, -3.1850964416691809, -2.7738874657535781, -2.5665654867943326, -2.5659104519620408, -2.525880125257002, -2.4591637295254607, -2.4545454545454546, -2.3383323205377318, -2.0777021904022539, -2.0567646971596405, -1.8011419494752063, -1.7459697083622003, -1.7459697083622003, -1.5454545454545454, -1.4332243842613956, -1.3560093922585543}], Editable->False]], "Print"], Cell[CellGroupData[{ Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 1.24894 0.201141 0.745431 0.0583864 [ [.24324 .26584 -6 -9 ] [.24324 .26584 6 0 ] [.44438 .26584 -6 -9 ] [.44438 .26584 6 0 ] [.64552 .26584 -6 -9 ] [.64552 .26584 6 0 ] [.84666 .26584 -6 -9 ] [.84666 .26584 6 0 ] [.0296 .04479 -18 -4.5 ] [.0296 .04479 0 4.5 ] [.0296 .16157 -18 -4.5 ] [.0296 .16157 0 4.5 ] [.0296 .39511 -12 -4.5 ] [.0296 .39511 0 4.5 ] [.0296 .51189 -12 -4.5 ] [.0296 .51189 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid .24324 .27834 m .24324 .28459 L s [(-5)] .24324 .26584 0 1 Mshowa .44438 .27834 m .44438 .28459 L s [(-4)] .44438 .26584 0 1 Mshowa .64552 .27834 m .64552 .28459 L s [(-3)] .64552 .26584 0 1 Mshowa .84666 .27834 m .84666 .28459 L s [(-2)] .84666 .26584 0 1 Mshowa .125 Mabswid .08232 .27834 m .08232 .28209 L s .12255 .27834 m .12255 .28209 L s .16278 .27834 m .16278 .28209 L s .20301 .27834 m .20301 .28209 L s .28346 .27834 m .28346 .28209 L s .32369 .27834 m .32369 .28209 L s .36392 .27834 m .36392 .28209 L s .40415 .27834 m .40415 .28209 L s .4846 .27834 m .4846 .28209 L s .52483 .27834 m .52483 .28209 L s .56506 .27834 m .56506 .28209 L s .60529 .27834 m .60529 .28209 L s .68575 .27834 m .68575 .28209 L s .72597 .27834 m .72597 .28209 L s .7662 .27834 m .7662 .28209 L s .80643 .27834 m .80643 .28209 L s .00187 .27834 m .00187 .28209 L s .88689 .27834 m .88689 .28209 L s .92711 .27834 m .92711 .28209 L s .96734 .27834 m .96734 .28209 L s .25 Mabswid 0 .27834 m 1 .27834 L s .0421 .04479 m .04835 .04479 L s [(-12)] .0296 .04479 1 0 Mshowa .0421 .16157 m .04835 .16157 L s [(-10)] .0296 .16157 1 0 Mshowa .0421 .39511 m .04835 .39511 L s [(-6)] .0296 .39511 1 0 Mshowa .0421 .51189 m .04835 .51189 L s [(-4)] .0296 .51189 1 0 Mshowa .125 Mabswid .0421 .07399 m .04585 .07399 L s .0421 .10318 m .04585 .10318 L s .0421 .13237 m .04585 .13237 L s .0421 .19076 m .04585 .19076 L s .0421 .21995 m .04585 .21995 L s .0421 .24915 m .04585 .24915 L s .0421 .30753 m .04585 .30753 L s .0421 .33673 m .04585 .33673 L s .0421 .36592 m .04585 .36592 L s .0421 .42431 m .04585 .42431 L s .0421 .4535 m .04585 .4535 L s .0421 .48269 m .04585 .48269 L s .0421 .0156 m .04585 .0156 L s .0421 .54108 m .04585 .54108 L s .0421 .57027 m .04585 .57027 L s .0421 .59946 m .04585 .59946 L s .25 Mabswid .0421 0 m .0421 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 1 0 0 r .03 w .02381 .29388 Mdot .75523 .17751 Mdot .93809 .26384 Mdot .04524 .13948 Mdot .73283 .23604 Mdot .7543 .17962 Mdot .04524 .13948 Mdot .83524 .10264 Mdot .04054 .16785 Mdot .7327 .23643 Mdot .74088 .21315 Mdot .89775 .17512 Mdot .77861 .13395 Mdot .97619 .36321 Mdot .96066 .3217 Mdot .04299 .15271 Mdot .691 .38593 Mdot .88666 .15553 Mdot .10298 .01472 Mdot .89775 .17512 Mdot .83103 .1015 Mdot % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgoooo`004oooo`Go0036oooo1ol003_