Modelos de supervivencia y series de tiempo
Modelos de supervivencia y series de tiempo
Práctica I
Práctica I
Marisol Arreola
Marisol Arreola
- Usted tiene un algoritmo que estima, dado un instante de tiempo , la variación de precio que tendrá una acción en la bolsa en los instantes siguientes. Una vez que corre el algoritmo recibe una sucesión de variaciones de precio. Un valor de +3 significa que el precio tendrá un incremento de 3 unidades monetarias, un valor de -5 significa que el precio decrece en 5 unidades monetarias. Empezando con un precio de $0, ¿cuál será el precio resultante de la acción después de que ocurran todas las variaciones?
library(readr)
b <- read_csv("input.txt")## Parsed with column specification:
## cols(
## `+16` = col_double()
## )sum(b)## [1] 423El resultado es 423
- Usted recuerda que un supuesto fuerte del análisis técnico de acciones es, palabras más palabras menos, que la historia siempre se repite. Por lo cual como parte de su estrategia, y esperando tener cierta ventaja sobre el resto del mercado, se ve interesado en encontrar el primer precio que ocurre dos veces si las variaciones que obtuvo se repiten todo el tiempo.
names(b)[1]<-"columna"
b <- read.csv("input.txt")
names(b)[1]<-"columna"
var<-b$columna
bandera<-T
inicial<-var[1]
precios<-c(0) #Empezando con un precio de cero
j<-1
ini<-c(inicial)
while(bandera==T){
if(j+1==length(var)){
for(i in 1:988){
var[988+i]=var[i]
}
}
inicial=precios[j]+var[j+1]
ini<-c(ini, inicial)
if(inicial %in% precios){
bandera=F
print(inicial)
}
else{
precios<-c(precios, inicial)
j=j+1
}
}## [1] 423El resultado es 423
- Si hacemos una lista de los números naturales menores a 10 que son multiplos de 3 o 5 obtendremos c(3, 5, 6, 9), la suma de esos multiplos es 23.
Encuentre la suma de todos los multiplos de 3 o 5 menores a 1000.
mult1<-seq(5,999,5)
mult5<-seq(3,999,3)
mul<-unique(c(mult5, mult1))
print(sum(mul))## [1] 233168El resultado es ‘sum(mul)’
4. Como bien sabe, cada término de la sucesión de Fibonacci se obtiene sumando los dos elementos anteriores. Considere los elementos de la sucesión de Fibonacci menores a 1,000,000,000. Sea x la suma de los elementos impares, y la suma de los elementos pares. Encuentre \(z=\frac{x}{y}\)
#Sucesión fibonacci adaptada a este problema
f=function(x){
v=c()
for(i in 1:x){
if(i==1 | i==2){
v=c(v,1)
}else if(v[i-1]+v[i-2]<1000000000){
v=c(v,v[i-2]+v[i-1])
}else{
break
}
}
print(v)
}
#Esta función se modificó para que el tiempo de ejecución no sea demasiado grande
a<-f(1000000)## [1] 1 1 2 3 5 8 13
## [8] 21 34 55 89 144 233 377
## [15] 610 987 1597 2584 4181 6765 10946
## [22] 17711 28657 46368 75025 121393 196418 317811
## [29] 514229 832040 1346269 2178309 3524578 5702887 9227465
## [36] 14930352 24157817 39088169 63245986 102334155 165580141 267914296
## [43] 433494437 701408733a1<-sum(a[a%%2==0])
a2<-sum(a[a%%2!=0])
print(as.double(a1/a2))## [1] 0.236068El resultado es 0.236068
- Ahora considere los primeros \(10n\) elementos de la sucesión de Fibonacci con \(n \in (0,2000)\), sean x el número de elementos impares, y el número de elementos pares y \(z=\frac{x}{y}\) . Haga un gráfico interactivo del vector de z. Explique un par de insights interesantes sobre el ejercicio.
#install.packages("gganimate")
require(gganimate)
f=function(x){
v=c()
for(i in 1:x){
if(i==1 | i==2){
v=c(v,1)
}else{
v=c(v,v[i-2]+v[i-1])
}
}
print(v)
}
primeros<-f(2000)
z<-c()
t<-c()
for(i in 1:2000){
t<-c(t,primeros[10*(i-1)+1:i*10])
par<-length(t[t%%2==0])
impar<-length(t[t%%2!=0])
z<-c(z,as.double(par/impar))
}
for(i in seq(10,2000,10)){
for(j in 1:i){
primeros<-c(primeros, f(j))
}
x<-length(primeros[primeros%%2==0])
y<-length(primeros[primeros%%2!=0])
z<-c(z, as.double(x/y))
}
z1<-as.data.frame(z)
names(z1)[1]<-"V1"
p<-ggplot(z1, aes(x=V1,y=V1))+geom_point(aes(x=V1,y=V1))+geom_line(aes(x=V1,y=V1))+theme_dark()
p- Escriba una función que encuentre los números primos entre 1 y n. Haga un gráfico animado de la proporción de números primos en los primeros 10k naturales con \(k \in (1,100)\)
require(gganimated)
primos<-function(n){
primosn<-c()
if(n>2){
primosn<-c(primosn,2)
for(i in 3:n){
for(j in 2:i){
if((i%%j==0)&&(i!=j)){
break
}
else if((i%%j==0)&&(i==j)){
primosn<-c(primosn, i)
}
}
}
}
return(unique(primosn))
}
z<-c()
for(i in seq(10,1000,10)){
z<-c(z, length(primos(i)))
}
z1<-as.data.frame(z)
z1<-data.frame(z1, seq(10,1000,10))
names(z1)[2]="ejx"
p<-ggplot(z1, aes(x=ejx, y=z))+geom_point()+geom_line()+theme_dark()+transition_reveal(ejx, keep_last = T)
p- Es bien sabido que \(\rho(X,Y)=0 \Rightarrow X\) y \(Y\) son ind. es falso. Simule un contraejemplo.
x<- rnorm(1000)
y<-x^2
round(cov(x,y)) ## [1] 0Cov(X,Y)=0, sin embargo, X ^ Y no son independientes.
8. Usted trabaja en un casino donde existe el siguiente juego: un jugador lanza tres dados y gana 20 pesos por cada 6 que aparece, el costo de jugar es de 10 pesos.
Escriba una función que simule el juego y regrese la cantidad que se gana en cada juego i.e. ganancia - costo. Calcule la media y varianza al simular 100, 1000 y 10000 juegos. Explique sus hallazgos al dueño del casino.
Adapte su función para que tome los argumentos: numero de juegos, dinero inicial, costo del juego, apuesta del juego y que devuelva una lista con:
Un data frame que tenga como columnas: la ganancia del i-ésimo juego y la ganancia acumulada hasta el juego i
Un grafico de la ganancia acumulada
Explore y explique las siguientes combinaciones para dinero inicial, costo del juego, apuesta del juego: (10,10,10), (10,2,5), (100, 10, 20), (1000, 5, 10). Explique.
f<-function(n){
ganancia<-c()
for(i in 1:n){
nseis<-c()
p<-rbinom(1,1,1/6) #Simulacion dado 1
p1<-rbinom(1,1,1/6) #Simulacion dado 2
p2<-rbinom(1,1,1/6) #Simulacion dado 3
nseis<-c(nseis,p,p1,p2) #Vector que guarda 1 o 0 de cada dado
ganancia<-c(ganancia,-10+(sum(nseis))*20)
}
return(ganancia) #Regresa la ganancia
}
mean(f(1))## [1] 10mean(f(10))## [1] -6mean(f(100))## [1] 2.8mean(f(1000))## [1] -0.8#Tenemos que la media de las ganancias por juego es proporcional al numero de juegos. Entre más juegos, tenemos cada vez una media mayor
##Modificada
g<-function(n, inicial, costo, apuesta){
gananciapj<-c()
gananciacum<-c()
acum=inicial
for(i in 1:n){
nseis<-c()
p<-rbinom(1,1,1/6)
p1<-rbinom(1,1,1/6)
p2<-rbinom(1,1,1/6)
nseis<-c(nseis,p,p1,p2)
gananciapj<-c(gananciapj, -costo+(sum(nseis))*apuesta)
acum=acum-costo+(sum(nseis))*apuesta
gananciacum<-c(gananciacum, acum)
}
return(c(data.frame("Ganancia por juego"=gananciapj, "Ganancia acumulada"=gananciacum), plot(1:n, gananciacum, xlab = "Número de juegos", ylab = "Ganancia acumulada", col="cyan3")))
}
#Juegos,inicial, costo, apuesta
g(1000,10,10,10) #Inicial=10=Costo=Apuesta
## $Ganancia.por.juego
## [1] -10 -10 -10 -10 0 0 -10 -10 -10 -10 -10 0 0 -10 0 -10 -10
## [18] -10 0 -10 -10 0 0 0 0 0 -10 -10 -10 -10 -10 0 0 -10
## [35] 0 -10 0 0 0 -10 0 10 0 -10 -10 -10 -10 0 10 -10 0
## [52] 0 10 0 0 -10 0 0 10 -10 10 -10 -10 10 -10 10 -10 -10
## [69] -10 0 -10 -10 -10 -10 -10 0 -10 -10 -10 20 -10 0 -10 -10 -10
## [86] -10 -10 -10 -10 0 0 10 -10 0 0 0 -10 0 -10 -10 10 0
## [103] 0 -10 0 -10 -10 0 -10 0 0 -10 -10 -10 -10 -10 10 -10 0
## [120] -10 10 -10 0 0 0 -10 0 -10 -10 -10 10 0 -10 0 10 -10
## [137] -10 -10 0 -10 -10 0 0 20 0 -10 0 0 0 -10 0 0 0
## [154] 0 -10 -10 -10 -10 -10 -10 0 -10 -10 0 -10 -10 -10 -10 -10 -10
## [171] -10 -10 -10 -10 -10 -10 0 0 0 -10 -10 20 -10 0 0 0 -10
## [188] 0 -10 -10 -10 -10 -10 -10 -10 -10 0 -10 -10 0 10 10 -10 0
## [205] 0 -10 -10 10 -10 -10 -10 0 -10 0 0 -10 0 -10 0 0 -10
## [222] -10 0 -10 0 -10 -10 -10 10 0 0 10 0 0 0 -10 10 -10
## [239] 10 -10 -10 -10 -10 0 10 0 -10 -10 -10 -10 0 -10 0 -10 10
## [256] 0 -10 -10 -10 0 10 0 0 -10 -10 0 0 -10 -10 -10 -10 0
## [273] 0 -10 -10 0 0 -10 -10 0 -10 0 0 10 0 -10 0 0 0
## [290] -10 -10 0 -10 0 -10 -10 -10 0 0 -10 -10 -10 -10 -10 20 0
## [307] -10 -10 -10 10 0 -10 -10 -10 -10 -10 -10 -10 -10 0 0 0 -10
## [324] -10 -10 -10 0 -10 -10 -10 10 -10 10 0 -10 -10 0 -10 -10 -10
## [341] -10 0 -10 0 -10 10 10 -10 -10 0 -10 -10 -10 -10 0 0 -10
## [358] -10 0 -10 0 0 0 0 0 -10 0 0 -10 -10 -10 0 0 0
## [375] 0 -10 0 0 -10 -10 -10 -10 0 0 10 -10 -10 -10 0 0 -10
## [392] -10 10 -10 -10 0 0 -10 10 10 -10 -10 -10 -10 -10 -10 -10 -10
## [409] -10 -10 0 0 0 -10 0 -10 10 0 -10 10 -10 10 -10 0 -10
## [426] -10 0 -10 0 -10 -10 -10 -10 -10 10 0 -10 0 0 -10 -10 0
## [443] 10 10 0 -10 -10 0 -10 -10 0 0 -10 0 -10 -10 10 -10 10
## [460] -10 -10 0 0 -10 0 0 -10 -10 10 -10 -10 -10 0 -10 -10 -10
## [477] -10 -10 0 -10 -10 -10 -10 0 -10 -10 0 0 -10 -10 -10 0 -10
## [494] 0 -10 -10 -10 -10 0 20 0 -10 -10 -10 10 -10 -10 -10 -10 0
## [511] -10 0 0 -10 0 -10 -10 -10 0 0 -10 0 -10 -10 0 0 -10
## [528] -10 -10 -10 0 -10 0 -10 -10 -10 0 -10 -10 0 10 0 -10 0
## [545] -10 -10 -10 0 -10 -10 -10 0 -10 0 -10 0 -10 0 -10 -10 -10
## [562] -10 10 0 -10 0 0 -10 0 -10 -10 0 -10 0 -10 -10 0 -10
## [579] 0 0 -10 -10 -10 -10 -10 -10 -10 0 -10 0 0 -10 0 -10 -10
## [596] -10 -10 0 10 -10 -10 -10 -10 -10 -10 -10 -10 -10 -10 -10 -10 -10
## [613] -10 0 -10 -10 -10 0 0 -10 -10 0 0 0 -10 -10 0 -10 -10
## [630] 0 -10 -10 -10 -10 0 -10 0 0 10 -10 -10 -10 10 10 -10 -10
## [647] 0 -10 -10 -10 -10 0 0 -10 -10 -10 -10 -10 20 0 -10 -10 -10
## [664] -10 10 0 -10 0 0 -10 10 -10 -10 0 -10 0 -10 -10 0 0
## [681] 0 0 -10 -10 0 -10 10 0 -10 -10 0 -10 -10 0 -10 -10 -10
## [698] -10 0 -10 -10 0 -10 -10 -10 -10 0 -10 10 0 0 -10 0 0
## [715] -10 -10 -10 -10 0 0 -10 0 -10 10 10 0 -10 -10 -10 -10 0
## [732] -10 -10 -10 10 -10 -10 0 -10 0 0 -10 10 -10 -10 -10 -10 -10
## [749] 0 -10 -10 -10 -10 -10 -10 -10 -10 -10 -10 -10 0 -10 -10 0 0
## [766] -10 0 -10 0 -10 0 0 -10 -10 -10 -10 -10 0 10 0 0 0
## [783] 0 0 -10 10 0 -10 0 -10 10 -10 -10 -10 0 -10 -10 0 -10
## [800] -10 -10 -10 0 -10 10 10 -10 0 -10 -10 -10 -10 -10 -10 0 0
## [817] -10 -10 -10 -10 10 0 0 0 10 0 0 -10 0 -10 -10 10 0
## [834] -10 10 10 0 0 0 -10 0 -10 -10 -10 0 -10 0 -10 -10 0
## [851] -10 -10 0 -10 -10 0 -10 10 10 -10 -10 0 -10 -10 0 -10 -10
## [868] -10 0 -10 0 -10 -10 -10 0 0 0 -10 -10 -10 0 -10 0 0
## [885] -10 -10 0 0 0 0 -10 0 0 0 10 -10 0 -10 -10 0 -10
## [902] -10 10 10 -10 0 -10 -10 0 -10 0 0 0 -10 -10 0 10 -10
## [919] -10 -10 0 -10 0 0 -10 -10 0 -10 -10 0 10 0 -10 -10 -10
## [936] -10 0 0 0 0 -10 -10 -10 -10 -10 -10 0 -10 -10 0 -10 0
## [953] -10 -10 10 10 -10 10 -10 -10 0 0 0 -10 -10 0 -10 10 -10
## [970] 0 -10 -10 -10 0 0 -10 0 0 0 -10 -10 -10 -10 -10 -10 -10
## [987] -10 10 0 -10 0 -10 -10 0 -10 10 -10 -10 10 -10
##
## $Ganancia.acumulada
## [1] 0 -10 -20 -30 -30 -30 -40 -50 -60 -70 -80
## [12] -80 -80 -90 -90 -100 -110 -120 -120 -130 -140 -140
## [23] -140 -140 -140 -140 -150 -160 -170 -180 -190 -190 -190
## [34] -200 -200 -210 -210 -210 -210 -220 -220 -210 -210 -220
## [45] -230 -240 -250 -250 -240 -250 -250 -250 -240 -240 -240
## [56] -250 -250 -250 -240 -250 -240 -250 -260 -250 -260 -250
## [67] -260 -270 -280 -280 -290 -300 -310 -320 -330 -330 -340
## [78] -350 -360 -340 -350 -350 -360 -370 -380 -390 -400 -410
## [89] -420 -420 -420 -410 -420 -420 -420 -420 -430 -430 -440
## [100] -450 -440 -440 -440 -450 -450 -460 -470 -470 -480 -480
## [111] -480 -490 -500 -510 -520 -530 -520 -530 -530 -540 -530
## [122] -540 -540 -540 -540 -550 -550 -560 -570 -580 -570 -570
## [133] -580 -580 -570 -580 -590 -600 -600 -610 -620 -620 -620
## [144] -600 -600 -610 -610 -610 -610 -620 -620 -620 -620 -620
## [155] -630 -640 -650 -660 -670 -680 -680 -690 -700 -700 -710
## [166] -720 -730 -740 -750 -760 -770 -780 -790 -800 -810 -820
## [177] -820 -820 -820 -830 -840 -820 -830 -830 -830 -830 -840
## [188] -840 -850 -860 -870 -880 -890 -900 -910 -920 -920 -930
## [199] -940 -940 -930 -920 -930 -930 -930 -940 -950 -940 -950
## [210] -960 -970 -970 -980 -980 -980 -990 -990 -1000 -1000 -1000
## [221] -1010 -1020 -1020 -1030 -1030 -1040 -1050 -1060 -1050 -1050 -1050
## [232] -1040 -1040 -1040 -1040 -1050 -1040 -1050 -1040 -1050 -1060 -1070
## [243] -1080 -1080 -1070 -1070 -1080 -1090 -1100 -1110 -1110 -1120 -1120
## [254] -1130 -1120 -1120 -1130 -1140 -1150 -1150 -1140 -1140 -1140 -1150
## [265] -1160 -1160 -1160 -1170 -1180 -1190 -1200 -1200 -1200 -1210 -1220
## [276] -1220 -1220 -1230 -1240 -1240 -1250 -1250 -1250 -1240 -1240 -1250
## [287] -1250 -1250 -1250 -1260 -1270 -1270 -1280 -1280 -1290 -1300 -1310
## [298] -1310 -1310 -1320 -1330 -1340 -1350 -1360 -1340 -1340 -1350 -1360
## [309] -1370 -1360 -1360 -1370 -1380 -1390 -1400 -1410 -1420 -1430 -1440
## [320] -1440 -1440 -1440 -1450 -1460 -1470 -1480 -1480 -1490 -1500 -1510
## [331] -1500 -1510 -1500 -1500 -1510 -1520 -1520 -1530 -1540 -1550 -1560
## [342] -1560 -1570 -1570 -1580 -1570 -1560 -1570 -1580 -1580 -1590 -1600
## [353] -1610 -1620 -1620 -1620 -1630 -1640 -1640 -1650 -1650 -1650 -1650
## [364] -1650 -1650 -1660 -1660 -1660 -1670 -1680 -1690 -1690 -1690 -1690
## [375] -1690 -1700 -1700 -1700 -1710 -1720 -1730 -1740 -1740 -1740 -1730
## [386] -1740 -1750 -1760 -1760 -1760 -1770 -1780 -1770 -1780 -1790 -1790
## [397] -1790 -1800 -1790 -1780 -1790 -1800 -1810 -1820 -1830 -1840 -1850
## [408] -1860 -1870 -1880 -1880 -1880 -1880 -1890 -1890 -1900 -1890 -1890
## [419] -1900 -1890 -1900 -1890 -1900 -1900 -1910 -1920 -1920 -1930 -1930
## [430] -1940 -1950 -1960 -1970 -1980 -1970 -1970 -1980 -1980 -1980 -1990
## [441] -2000 -2000 -1990 -1980 -1980 -1990 -2000 -2000 -2010 -2020 -2020
## [452] -2020 -2030 -2030 -2040 -2050 -2040 -2050 -2040 -2050 -2060 -2060
## [463] -2060 -2070 -2070 -2070 -2080 -2090 -2080 -2090 -2100 -2110 -2110
## [474] -2120 -2130 -2140 -2150 -2160 -2160 -2170 -2180 -2190 -2200 -2200
## [485] -2210 -2220 -2220 -2220 -2230 -2240 -2250 -2250 -2260 -2260 -2270
## [496] -2280 -2290 -2300 -2300 -2280 -2280 -2290 -2300 -2310 -2300 -2310
## [507] -2320 -2330 -2340 -2340 -2350 -2350 -2350 -2360 -2360 -2370 -2380
## [518] -2390 -2390 -2390 -2400 -2400 -2410 -2420 -2420 -2420 -2430 -2440
## [529] -2450 -2460 -2460 -2470 -2470 -2480 -2490 -2500 -2500 -2510 -2520
## [540] -2520 -2510 -2510 -2520 -2520 -2530 -2540 -2550 -2550 -2560 -2570
## [551] -2580 -2580 -2590 -2590 -2600 -2600 -2610 -2610 -2620 -2630 -2640
## [562] -2650 -2640 -2640 -2650 -2650 -2650 -2660 -2660 -2670 -2680 -2680
## [573] -2690 -2690 -2700 -2710 -2710 -2720 -2720 -2720 -2730 -2740 -2750
## [584] -2760 -2770 -2780 -2790 -2790 -2800 -2800 -2800 -2810 -2810 -2820
## [595] -2830 -2840 -2850 -2850 -2840 -2850 -2860 -2870 -2880 -2890 -2900
## [606] -2910 -2920 -2930 -2940 -2950 -2960 -2970 -2980 -2980 -2990 -3000
## [617] -3010 -3010 -3010 -3020 -3030 -3030 -3030 -3030 -3040 -3050 -3050
## [628] -3060 -3070 -3070 -3080 -3090 -3100 -3110 -3110 -3120 -3120 -3120
## [639] -3110 -3120 -3130 -3140 -3130 -3120 -3130 -3140 -3140 -3150 -3160
## [650] -3170 -3180 -3180 -3180 -3190 -3200 -3210 -3220 -3230 -3210 -3210
## [661] -3220 -3230 -3240 -3250 -3240 -3240 -3250 -3250 -3250 -3260 -3250
## [672] -3260 -3270 -3270 -3280 -3280 -3290 -3300 -3300 -3300 -3300 -3300
## [683] -3310 -3320 -3320 -3330 -3320 -3320 -3330 -3340 -3340 -3350 -3360
## [694] -3360 -3370 -3380 -3390 -3400 -3400 -3410 -3420 -3420 -3430 -3440
## [705] -3450 -3460 -3460 -3470 -3460 -3460 -3460 -3470 -3470 -3470 -3480
## [716] -3490 -3500 -3510 -3510 -3510 -3520 -3520 -3530 -3520 -3510 -3510
## [727] -3520 -3530 -3540 -3550 -3550 -3560 -3570 -3580 -3570 -3580 -3590
## [738] -3590 -3600 -3600 -3600 -3610 -3600 -3610 -3620 -3630 -3640 -3650
## [749] -3650 -3660 -3670 -3680 -3690 -3700 -3710 -3720 -3730 -3740 -3750
## [760] -3760 -3760 -3770 -3780 -3780 -3780 -3790 -3790 -3800 -3800 -3810
## [771] -3810 -3810 -3820 -3830 -3840 -3850 -3860 -3860 -3850 -3850 -3850
## [782] -3850 -3850 -3850 -3860 -3850 -3850 -3860 -3860 -3870 -3860 -3870
## [793] -3880 -3890 -3890 -3900 -3910 -3910 -3920 -3930 -3940 -3950 -3950
## [804] -3960 -3950 -3940 -3950 -3950 -3960 -3970 -3980 -3990 -4000 -4010
## [815] -4010 -4010 -4020 -4030 -4040 -4050 -4040 -4040 -4040 -4040 -4030
## [826] -4030 -4030 -4040 -4040 -4050 -4060 -4050 -4050 -4060 -4050 -4040
## [837] -4040 -4040 -4040 -4050 -4050 -4060 -4070 -4080 -4080 -4090 -4090
## [848] -4100 -4110 -4110 -4120 -4130 -4130 -4140 -4150 -4150 -4160 -4150
## [859] -4140 -4150 -4160 -4160 -4170 -4180 -4180 -4190 -4200 -4210 -4210
## [870] -4220 -4220 -4230 -4240 -4250 -4250 -4250 -4250 -4260 -4270 -4280
## [881] -4280 -4290 -4290 -4290 -4300 -4310 -4310 -4310 -4310 -4310 -4320
## [892] -4320 -4320 -4320 -4310 -4320 -4320 -4330 -4340 -4340 -4350 -4360
## [903] -4350 -4340 -4350 -4350 -4360 -4370 -4370 -4380 -4380 -4380 -4380
## [914] -4390 -4400 -4400 -4390 -4400 -4410 -4420 -4420 -4430 -4430 -4430
## [925] -4440 -4450 -4450 -4460 -4470 -4470 -4460 -4460 -4470 -4480 -4490
## [936] -4500 -4500 -4500 -4500 -4500 -4510 -4520 -4530 -4540 -4550 -4560
## [947] -4560 -4570 -4580 -4580 -4590 -4590 -4600 -4610 -4600 -4590 -4600
## [958] -4590 -4600 -4610 -4610 -4610 -4610 -4620 -4630 -4630 -4640 -4630
## [969] -4640 -4640 -4650 -4660 -4670 -4670 -4670 -4680 -4680 -4680 -4680
## [980] -4690 -4700 -4710 -4720 -4730 -4740 -4750 -4760 -4750 -4750 -4760
## [991] -4760 -4770 -4780 -4780 -4790 -4780 -4790 -4800 -4790 -4800g(1000,10,2,5) #Inicial=10, Costo=2, Apuesta=5
## $Ganancia.por.juego
## [1] -2 -2 8 -2 -2 -2 -2 -2 3 3 3 -2 -2 -2 -2 -2 -2 -2 -2 3 8 3 -2
## [24] -2 8 3 3 -2 -2 -2 3 -2 3 -2 8 -2 -2 -2 3 3 -2 -2 -2 -2 3 -2
## [47] -2 3 -2 3 -2 -2 3 3 -2 -2 -2 -2 -2 3 8 3 -2 -2 -2 3 -2 3 -2
## [70] -2 -2 -2 -2 -2 -2 -2 -2 -2 3 8 -2 8 -2 -2 -2 -2 3 3 3 3 -2 -2
## [93] -2 3 -2 8 -2 8 3 -2 3 -2 -2 3 -2 3 3 -2 3 -2 -2 -2 8 -2 3
## [116] -2 3 -2 8 3 3 -2 3 -2 -2 8 3 3 -2 -2 -2 3 -2 3 -2 -2 -2 8
## [139] -2 -2 3 8 -2 3 -2 -2 -2 3 -2 8 -2 -2 3 -2 -2 -2 3 -2 -2 -2 -2
## [162] 3 3 3 -2 3 -2 3 -2 -2 -2 -2 3 3 -2 8 -2 -2 3 8 3 3 -2 -2
## [185] -2 -2 -2 -2 3 8 -2 3 -2 3 3 -2 -2 -2 -2 3 -2 -2 -2 -2 -2 -2 3
## [208] -2 3 3 -2 3 -2 3 -2 -2 -2 3 -2 -2 -2 8 3 3 -2 3 3 -2 3 -2
## [231] 3 3 3 -2 -2 3 -2 -2 3 3 -2 -2 -2 -2 8 -2 -2 -2 3 -2 -2 8 -2
## [254] -2 3 3 8 8 3 -2 -2 -2 3 3 8 -2 -2 -2 3 -2 -2 -2 -2 -2 3 3
## [277] -2 -2 -2 8 -2 13 -2 -2 3 -2 3 -2 -2 3 3 3 3 3 -2 -2 3 3 -2
## [300] -2 3 8 3 -2 -2 8 3 -2 3 3 -2 -2 -2 -2 -2 8 -2 3 -2 -2 3 -2
## [323] -2 3 8 3 -2 -2 8 -2 -2 -2 3 3 -2 3 -2 -2 -2 -2 -2 -2 -2 -2 -2
## [346] -2 -2 -2 -2 -2 -2 -2 3 -2 3 -2 -2 3 -2 -2 -2 8 -2 -2 -2 3 -2 -2
## [369] -2 -2 13 3 8 3 3 3 -2 3 -2 -2 -2 3 3 -2 -2 -2 -2 -2 3 3 -2
## [392] -2 3 3 -2 8 -2 -2 -2 -2 3 3 -2 3 -2 -2 8 3 -2 3 3 3 -2 -2
## [415] 8 -2 -2 -2 3 -2 -2 -2 -2 -2 -2 3 -2 -2 -2 -2 3 3 -2 -2 3 -2 -2
## [438] 3 -2 -2 -2 8 -2 -2 3 -2 -2 -2 3 -2 3 -2 -2 -2 -2 -2 -2 -2 3 -2
## [461] 3 8 -2 -2 -2 -2 -2 3 -2 -2 3 -2 -2 -2 3 -2 -2 -2 -2 -2 3 -2 -2
## [484] -2 -2 -2 -2 8 -2 -2 -2 8 3 3 3 3 3 3 13 3 -2 3 -2 -2 -2 -2
## [507] -2 8 3 -2 8 3 8 -2 3 3 3 -2 3 -2 8 -2 -2 3 3 -2 3 -2 -2
## [530] -2 3 -2 -2 -2 -2 3 3 8 -2 -2 3 -2 3 3 -2 -2 3 3 -2 3 -2 3
## [553] -2 -2 -2 8 -2 13 -2 3 -2 -2 -2 8 -2 3 -2 8 3 -2 3 3 -2 -2 -2
## [576] 3 -2 3 -2 -2 -2 3 3 -2 3 3 -2 -2 -2 -2 3 -2 -2 -2 3 -2 -2 8
## [599] 3 3 3 -2 -2 -2 -2 -2 3 3 3 -2 -2 3 -2 3 -2 -2 3 -2 3 -2 3
## [622] 3 -2 8 3 -2 -2 -2 -2 -2 -2 3 3 -2 -2 -2 3 -2 -2 -2 3 -2 -2 -2
## [645] -2 -2 3 3 8 -2 -2 3 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 3 -2 -2 -2
## [668] -2 3 -2 -2 -2 8 -2 3 3 -2 8 -2 -2 -2 3 -2 -2 8 -2 3 8 8 -2
## [691] -2 3 -2 3 -2 8 8 -2 -2 3 -2 -2 -2 -2 -2 3 3 -2 3 3 -2 -2 3
## [714] 3 3 -2 -2 3 -2 3 3 3 -2 -2 3 -2 -2 3 8 -2 8 -2 -2 3 3 -2
## [737] 8 -2 3 3 8 3 -2 -2 3 3 3 3 -2 -2 -2 -2 -2 3 8 -2 3 3 3
## [760] -2 -2 -2 -2 3 -2 -2 -2 -2 -2 -2 -2 3 -2 -2 3 -2 -2 -2 -2 -2 3 -2
## [783] 3 -2 3 3 -2 3 3 3 -2 -2 3 3 3 -2 -2 -2 3 3 -2 -2 3 -2 -2
## [806] -2 -2 3 -2 -2 -2 -2 -2 -2 -2 -2 3 3 -2 -2 -2 -2 -2 3 3 -2 3 3
## [829] 3 -2 3 -2 -2 -2 -2 3 3 -2 8 -2 3 -2 -2 3 8 3 -2 3 3 3 3
## [852] 3 -2 -2 -2 -2 -2 -2 3 -2 -2 3 -2 3 3 3 -2 3 -2 -2 3 8 -2 3
## [875] 3 3 3 -2 -2 3 -2 3 -2 -2 3 -2 3 -2 3 3 -2 -2 -2 3 -2 3 -2
## [898] -2 3 3 8 -2 -2 3 3 3 -2 -2 -2 -2 3 -2 8 -2 -2 -2 -2 3 -2 -2
## [921] -2 -2 -2 -2 -2 -2 3 -2 -2 -2 3 -2 8 -2 -2 -2 3 3 -2 -2 -2 -2 3
## [944] 3 -2 -2 -2 -2 -2 3 3 -2 3 -2 -2 -2 3 -2 3 3 -2 3 3 3 -2 -2
## [967] -2 3 3 -2 -2 -2 -2 -2 -2 -2 3 -2 3 -2 8 8 3 3 -2 -2 3 -2 8
## [990] -2 8 -2 -2 -2 3 3 -2 -2 3 -2
##
## $Ganancia.acumulada
## [1] 8 6 14 12 10 8 6 4 7 10 13 11 9 7 5 3 1
## [18] -1 -3 0 8 11 9 7 15 18 21 19 17 15 18 16 19 17
## [35] 25 23 21 19 22 25 23 21 19 17 20 18 16 19 17 20 18
## [52] 16 19 22 20 18 16 14 12 15 23 26 24 22 20 23 21 24
## [69] 22 20 18 16 14 12 10 8 6 4 7 15 13 21 19 17 15
## [86] 13 16 19 22 25 23 21 19 22 20 28 26 34 37 35 38 36
## [103] 34 37 35 38 41 39 42 40 38 36 44 42 45 43 46 44 52
## [120] 55 58 56 59 57 55 63 66 69 67 65 63 66 64 67 65 63
## [137] 61 69 67 65 68 76 74 77 75 73 71 74 72 80 78 76 79
## [154] 77 75 73 76 74 72 70 68 71 74 77 75 78 76 79 77 75
## [171] 73 71 74 77 75 83 81 79 82 90 93 96 94 92 90 88 86
## [188] 84 87 95 93 96 94 97 100 98 96 94 92 95 93 91 89 87
## [205] 85 83 86 84 87 90 88 91 89 92 90 88 86 89 87 85 83
## [222] 91 94 97 95 98 101 99 102 100 103 106 109 107 105 108 106 104
## [239] 107 110 108 106 104 102 110 108 106 104 107 105 103 111 109 107 110
## [256] 113 121 129 132 130 128 126 129 132 140 138 136 134 137 135 133 131
## [273] 129 127 130 133 131 129 127 135 133 146 144 142 145 143 146 144 142
## [290] 145 148 151 154 157 155 153 156 159 157 155 158 166 169 167 165 173
## [307] 176 174 177 180 178 176 174 172 170 178 176 179 177 175 178 176 174
## [324] 177 185 188 186 184 192 190 188 186 189 192 190 193 191 189 187 185
## [341] 183 181 179 177 175 173 171 169 167 165 163 161 164 162 165 163 161
## [358] 164 162 160 158 166 164 162 160 163 161 159 157 155 168 171 179 182
## [375] 185 188 186 189 187 185 183 186 189 187 185 183 181 179 182 185 183
## [392] 181 184 187 185 193 191 189 187 185 188 191 189 192 190 188 196 199
## [409] 197 200 203 206 204 202 210 208 206 204 207 205 203 201 199 197 195
## [426] 198 196 194 192 190 193 196 194 192 195 193 191 194 192 190 188 196
## [443] 194 192 195 193 191 189 192 190 193 191 189 187 185 183 181 179 182
## [460] 180 183 191 189 187 185 183 181 184 182 180 183 181 179 177 180 178
## [477] 176 174 172 170 173 171 169 167 165 163 161 169 167 165 163 171 174
## [494] 177 180 183 186 189 202 205 203 206 204 202 200 198 196 204 207 205
## [511] 213 216 224 222 225 228 231 229 232 230 238 236 234 237 240 238 241
## [528] 239 237 235 238 236 234 232 230 233 236 244 242 240 243 241 244 247
## [545] 245 243 246 249 247 250 248 251 249 247 245 253 251 264 262 265 263
## [562] 261 259 267 265 268 266 274 277 275 278 281 279 277 275 278 276 279
## [579] 277 275 273 276 279 277 280 283 281 279 277 275 278 276 274 272 275
## [596] 273 271 279 282 285 288 286 284 282 280 278 281 284 287 285 283 286
## [613] 284 287 285 283 286 284 287 285 288 291 289 297 300 298 296 294 292
## [630] 290 288 291 294 292 290 288 291 289 287 285 288 286 284 282 280 278
## [647] 281 284 292 290 288 291 289 287 285 283 281 279 277 275 273 271 269
## [664] 272 270 268 266 264 267 265 263 261 269 267 270 273 271 279 277 275
## [681] 273 276 274 272 280 278 281 289 297 295 293 296 294 297 295 303 311
## [698] 309 307 310 308 306 304 302 300 303 306 304 307 310 308 306 309 312
## [715] 315 313 311 314 312 315 318 321 319 317 320 318 316 319 327 325 333
## [732] 331 329 332 335 333 341 339 342 345 353 356 354 352 355 358 361 364
## [749] 362 360 358 356 354 357 365 363 366 369 372 370 368 366 364 367 365
## [766] 363 361 359 357 355 353 356 354 352 355 353 351 349 347 345 348 346
## [783] 349 347 350 353 351 354 357 360 358 356 359 362 365 363 361 359 362
## [800] 365 363 361 364 362 360 358 356 359 357 355 353 351 349 347 345 343
## [817] 346 349 347 345 343 341 339 342 345 343 346 349 352 350 353 351 349
## [834] 347 345 348 351 349 357 355 358 356 354 357 365 368 366 369 372 375
## [851] 378 381 379 377 375 373 371 369 372 370 368 371 369 372 375 378 376
## [868] 379 377 375 378 386 384 387 390 393 396 394 392 395 393 396 394 392
## [885] 395 393 396 394 397 400 398 396 394 397 395 398 396 394 397 400 408
## [902] 406 404 407 410 413 411 409 407 405 408 406 414 412 410 408 406 409
## [919] 407 405 403 401 399 397 395 393 396 394 392 390 393 391 399 397 395
## [936] 393 396 399 397 395 393 391 394 397 395 393 391 389 387 390 393 391
## [953] 394 392 390 388 391 389 392 395 393 396 399 402 400 398 396 399 402
## [970] 400 398 396 394 392 390 388 391 389 392 390 398 406 409 412 410 408
## [987] 411 409 417 415 423 421 419 417 420 423 421 419 422 420g(1000,100,10,20) #Inicial=100, Costo=10, Apuesta=20
## $Ganancia.por.juego
## [1] 10 10 10 10 -10 30 -10 10 -10 10 10 10 10 -10 -10 -10 -10
## [18] 10 -10 10 10 30 10 10 -10 -10 -10 -10 -10 10 -10 -10 -10 -10
## [35] -10 -10 -10 -10 10 10 -10 -10 -10 -10 10 -10 -10 -10 10 -10 -10
## [52] 10 -10 10 10 10 -10 -10 -10 10 -10 -10 -10 -10 -10 -10 10 -10
## [69] -10 10 10 -10 30 -10 -10 -10 -10 10 10 -10 -10 -10 10 -10 10
## [86] 10 10 30 -10 -10 10 10 10 10 -10 -10 10 -10 10 30 30 10
## [103] -10 -10 -10 -10 -10 -10 -10 10 30 -10 -10 -10 10 -10 -10 10 -10
## [120] 10 -10 10 -10 10 -10 10 -10 -10 -10 -10 10 -10 -10 -10 -10 -10
## [137] -10 10 10 30 10 -10 -10 -10 10 -10 -10 -10 10 -10 -10 -10 -10
## [154] -10 10 -10 -10 -10 -10 10 -10 -10 -10 -10 -10 -10 10 10 -10 -10
## [171] -10 -10 -10 -10 -10 -10 -10 10 -10 10 -10 -10 10 10 -10 -10 -10
## [188] 10 -10 30 -10 -10 10 -10 10 10 30 10 -10 -10 -10 10 10 -10
## [205] -10 -10 10 10 -10 10 -10 -10 -10 10 -10 -10 10 -10 -10 -10 -10
## [222] -10 10 -10 -10 -10 -10 -10 -10 10 10 -10 -10 10 -10 -10 10 10
## [239] -10 -10 10 10 -10 10 10 -10 -10 -10 -10 -10 -10 -10 10 10 -10
## [256] 10 10 -10 10 -10 -10 30 10 -10 -10 10 10 -10 10 -10 10 10
## [273] -10 -10 30 -10 10 10 -10 -10 -10 -10 -10 -10 30 -10 -10 10 10
## [290] -10 -10 -10 -10 10 -10 10 10 -10 10 -10 10 -10 50 -10 -10 -10
## [307] -10 -10 -10 -10 -10 10 -10 -10 10 10 10 -10 30 -10 -10 10 -10
## [324] 30 10 10 -10 10 -10 -10 10 -10 10 -10 10 -10 10 10 -10 -10
## [341] -10 -10 30 -10 10 -10 10 -10 10 -10 10 10 -10 10 10 -10 30
## [358] -10 10 10 -10 10 10 10 -10 -10 -10 30 10 -10 10 -10 -10 10
## [375] -10 -10 -10 -10 -10 -10 -10 -10 -10 -10 -10 -10 10 30 10 10 -10
## [392] -10 -10 10 -10 30 10 -10 -10 -10 -10 -10 -10 -10 10 -10 -10 -10
## [409] -10 -10 30 30 30 10 -10 10 10 10 -10 30 10 -10 10 -10 -10
## [426] 10 10 -10 10 -10 -10 -10 -10 -10 -10 -10 10 -10 30 -10 -10 -10
## [443] -10 30 -10 -10 -10 -10 10 -10 -10 -10 10 -10 10 -10 10 10 10
## [460] 10 10 10 -10 30 -10 10 -10 50 10 10 10 -10 10 10 -10 -10
## [477] 10 10 -10 10 10 10 -10 -10 -10 10 -10 50 -10 -10 30 -10 -10
## [494] -10 30 -10 -10 -10 -10 10 -10 -10 -10 -10 -10 -10 10 -10 -10 10
## [511] -10 -10 -10 -10 -10 -10 -10 10 -10 30 10 -10 -10 -10 10 -10 10
## [528] -10 -10 30 10 10 -10 -10 -10 -10 -10 -10 -10 -10 30 -10 -10 10
## [545] -10 -10 10 -10 -10 30 -10 -10 -10 -10 -10 -10 -10 -10 -10 -10 -10
## [562] 10 10 30 -10 -10 -10 10 10 -10 -10 10 -10 -10 10 10 -10 -10
## [579] 10 -10 10 -10 -10 -10 -10 -10 10 30 -10 10 -10 -10 -10 10 -10
## [596] -10 -10 10 -10 -10 -10 10 10 -10 -10 -10 -10 -10 -10 10 10 -10
## [613] -10 -10 10 -10 -10 10 10 -10 -10 -10 -10 -10 -10 30 10 -10 -10
## [630] -10 -10 -10 -10 -10 -10 -10 10 10 10 -10 50 -10 10 -10 10 -10
## [647] -10 -10 -10 -10 -10 -10 -10 10 -10 -10 10 10 -10 10 10 10 10
## [664] 10 -10 10 -10 10 -10 30 -10 10 -10 10 -10 -10 10 30 -10 -10
## [681] 10 -10 -10 -10 -10 -10 -10 -10 10 -10 10 -10 10 -10 10 10 10
## [698] -10 -10 -10 -10 -10 -10 10 -10 -10 10 -10 -10 -10 30 10 30 10
## [715] -10 -10 -10 -10 -10 -10 10 -10 -10 -10 10 -10 -10 -10 30 -10 10
## [732] 10 10 -10 10 10 10 30 10 -10 10 -10 -10 10 30 30 30 -10
## [749] -10 50 -10 -10 10 10 -10 30 -10 -10 30 10 10 -10 -10 -10 10
## [766] -10 10 -10 -10 -10 10 10 -10 -10 10 -10 -10 -10 -10 10 -10 -10
## [783] 10 -10 -10 10 10 -10 -10 -10 10 10 10 -10 -10 10 -10 -10 -10
## [800] 10 30 10 -10 10 10 -10 -10 -10 -10 10 10 10 10 30 10 10
## [817] -10 10 -10 -10 10 -10 10 30 -10 -10 -10 30 -10 10 10 -10 10
## [834] -10 -10 -10 10 -10 -10 10 10 10 -10 -10 -10 10 30 -10 10 10
## [851] -10 10 30 10 30 -10 -10 -10 -10 10 -10 10 10 10 -10 -10 -10
## [868] 10 -10 10 30 10 -10 10 30 -10 10 -10 10 -10 -10 -10 30 -10
## [885] 10 -10 -10 -10 -10 -10 10 10 -10 30 -10 -10 10 -10 -10 10 10
## [902] -10 -10 10 10 -10 -10 -10 -10 30 -10 -10 -10 -10 -10 10 -10 -10
## [919] 10 10 -10 10 -10 -10 -10 -10 -10 -10 10 -10 -10 -10 10 10 10
## [936] -10 10 10 -10 -10 10 -10 30 10 -10 10 10 -10 -10 -10 10 -10
## [953] 10 -10 10 10 10 -10 -10 10 -10 -10 -10 10 -10 -10 -10 -10 10
## [970] 10 -10 -10 -10 -10 30 -10 -10 -10 10 10 -10 -10 -10 -10 -10 10
## [987] 30 10 -10 30 10 -10 10 -10 10 -10 30 10 -10 10
##
## $Ganancia.acumulada
## [1] 110 120 130 140 130 160 150 160 150 160 170 180 190
## [14] 180 170 160 150 160 150 160 170 200 210 220 210 200
## [27] 190 180 170 180 170 160 150 140 130 120 110 100 110
## [40] 120 110 100 90 80 90 80 70 60 70 60 50 60
## [53] 50 60 70 80 70 60 50 60 50 40 30 20 10
## [66] 0 10 0 -10 0 10 0 30 20 10 0 -10 0
## [79] 10 0 -10 -20 -10 -20 -10 0 10 40 30 20 30
## [92] 40 50 60 50 40 50 40 50 80 110 120 110 100
## [105] 90 80 70 60 50 60 90 80 70 60 70 60 50
## [118] 60 50 60 50 60 50 60 50 60 50 40 30 20
## [131] 30 20 10 0 -10 -20 -30 -20 -10 20 30 20 10
## [144] 0 10 0 -10 -20 -10 -20 -30 -40 -50 -60 -50 -60
## [157] -70 -80 -90 -80 -90 -100 -110 -120 -130 -140 -130 -120 -130
## [170] -140 -150 -160 -170 -180 -190 -200 -210 -200 -210 -200 -210 -220
## [183] -210 -200 -210 -220 -230 -220 -230 -200 -210 -220 -210 -220 -210
## [196] -200 -170 -160 -170 -180 -190 -180 -170 -180 -190 -200 -190 -180
## [209] -190 -180 -190 -200 -210 -200 -210 -220 -210 -220 -230 -240 -250
## [222] -260 -250 -260 -270 -280 -290 -300 -310 -300 -290 -300 -310 -300
## [235] -310 -320 -310 -300 -310 -320 -310 -300 -310 -300 -290 -300 -310
## [248] -320 -330 -340 -350 -360 -350 -340 -350 -340 -330 -340 -330 -340
## [261] -350 -320 -310 -320 -330 -320 -310 -320 -310 -320 -310 -300 -310
## [274] -320 -290 -300 -290 -280 -290 -300 -310 -320 -330 -340 -310 -320
## [287] -330 -320 -310 -320 -330 -340 -350 -340 -350 -340 -330 -340 -330
## [300] -340 -330 -340 -290 -300 -310 -320 -330 -340 -350 -360 -370 -360
## [313] -370 -380 -370 -360 -350 -360 -330 -340 -350 -340 -350 -320 -310
## [326] -300 -310 -300 -310 -320 -310 -320 -310 -320 -310 -320 -310 -300
## [339] -310 -320 -330 -340 -310 -320 -310 -320 -310 -320 -310 -320 -310
## [352] -300 -310 -300 -290 -300 -270 -280 -270 -260 -270 -260 -250 -240
## [365] -250 -260 -270 -240 -230 -240 -230 -240 -250 -240 -250 -260 -270
## [378] -280 -290 -300 -310 -320 -330 -340 -350 -360 -350 -320 -310 -300
## [391] -310 -320 -330 -320 -330 -300 -290 -300 -310 -320 -330 -340 -350
## [404] -360 -350 -360 -370 -380 -390 -400 -370 -340 -310 -300 -310 -300
## [417] -290 -280 -290 -260 -250 -260 -250 -260 -270 -260 -250 -260 -250
## [430] -260 -270 -280 -290 -300 -310 -320 -310 -320 -290 -300 -310 -320
## [443] -330 -300 -310 -320 -330 -340 -330 -340 -350 -360 -350 -360 -350
## [456] -360 -350 -340 -330 -320 -310 -300 -310 -280 -290 -280 -290 -240
## [469] -230 -220 -210 -220 -210 -200 -210 -220 -210 -200 -210 -200 -190
## [482] -180 -190 -200 -210 -200 -210 -160 -170 -180 -150 -160 -170 -180
## [495] -150 -160 -170 -180 -190 -180 -190 -200 -210 -220 -230 -240 -230
## [508] -240 -250 -240 -250 -260 -270 -280 -290 -300 -310 -300 -310 -280
## [521] -270 -280 -290 -300 -290 -300 -290 -300 -310 -280 -270 -260 -270
## [534] -280 -290 -300 -310 -320 -330 -340 -310 -320 -330 -320 -330 -340
## [547] -330 -340 -350 -320 -330 -340 -350 -360 -370 -380 -390 -400 -410
## [560] -420 -430 -420 -410 -380 -390 -400 -410 -400 -390 -400 -410 -400
## [573] -410 -420 -410 -400 -410 -420 -410 -420 -410 -420 -430 -440 -450
## [586] -460 -450 -420 -430 -420 -430 -440 -450 -440 -450 -460 -470 -460
## [599] -470 -480 -490 -480 -470 -480 -490 -500 -510 -520 -530 -520 -510
## [612] -520 -530 -540 -530 -540 -550 -540 -530 -540 -550 -560 -570 -580
## [625] -590 -560 -550 -560 -570 -580 -590 -600 -610 -620 -630 -640 -630
## [638] -620 -610 -620 -570 -580 -570 -580 -570 -580 -590 -600 -610 -620
## [651] -630 -640 -650 -640 -650 -660 -650 -640 -650 -640 -630 -620 -610
## [664] -600 -610 -600 -610 -600 -610 -580 -590 -580 -590 -580 -590 -600
## [677] -590 -560 -570 -580 -570 -580 -590 -600 -610 -620 -630 -640 -630
## [690] -640 -630 -640 -630 -640 -630 -620 -610 -620 -630 -640 -650 -660
## [703] -670 -660 -670 -680 -670 -680 -690 -700 -670 -660 -630 -620 -630
## [716] -640 -650 -660 -670 -680 -670 -680 -690 -700 -690 -700 -710 -720
## [729] -690 -700 -690 -680 -670 -680 -670 -660 -650 -620 -610 -620 -610
## [742] -620 -630 -620 -590 -560 -530 -540 -550 -500 -510 -520 -510 -500
## [755] -510 -480 -490 -500 -470 -460 -450 -460 -470 -480 -470 -480 -470
## [768] -480 -490 -500 -490 -480 -490 -500 -490 -500 -510 -520 -530 -520
## [781] -530 -540 -530 -540 -550 -540 -530 -540 -550 -560 -550 -540 -530
## [794] -540 -550 -540 -550 -560 -570 -560 -530 -520 -530 -520 -510 -520
## [807] -530 -540 -550 -540 -530 -520 -510 -480 -470 -460 -470 -460 -470
## [820] -480 -470 -480 -470 -440 -450 -460 -470 -440 -450 -440 -430 -440
## [833] -430 -440 -450 -460 -450 -460 -470 -460 -450 -440 -450 -460 -470
## [846] -460 -430 -440 -430 -420 -430 -420 -390 -380 -350 -360 -370 -380
## [859] -390 -380 -390 -380 -370 -360 -370 -380 -390 -380 -390 -380 -350
## [872] -340 -350 -340 -310 -320 -310 -320 -310 -320 -330 -340 -310 -320
## [885] -310 -320 -330 -340 -350 -360 -350 -340 -350 -320 -330 -340 -330
## [898] -340 -350 -340 -330 -340 -350 -340 -330 -340 -350 -360 -370 -340
## [911] -350 -360 -370 -380 -390 -380 -390 -400 -390 -380 -390 -380 -390
## [924] -400 -410 -420 -430 -440 -430 -440 -450 -460 -450 -440 -430 -440
## [937] -430 -420 -430 -440 -430 -440 -410 -400 -410 -400 -390 -400 -410
## [950] -420 -410 -420 -410 -420 -410 -400 -390 -400 -410 -400 -410 -420
## [963] -430 -420 -430 -440 -450 -460 -450 -440 -450 -460 -470 -480 -450
## [976] -460 -470 -480 -470 -460 -470 -480 -490 -500 -510 -500 -470 -460
## [989] -470 -440 -430 -440 -430 -440 -430 -440 -410 -400 -410 -400g(1000,1000,5,10) #Inicial=1000, Costo=5, Apuesta=10
## $Ganancia.por.juego
## [1] 5 5 15 5 -5 -5 5 5 -5 -5 5 -5 -5 15 -5 -5 15 -5 -5 5 5 -5 -5
## [24] 5 5 -5 5 -5 5 5 5 5 -5 -5 -5 5 -5 5 -5 5 -5 -5 -5 5 -5 5
## [47] -5 5 5 -5 -5 -5 5 -5 -5 -5 5 15 -5 5 -5 -5 -5 -5 15 5 5 15 -5
## [70] -5 -5 -5 -5 -5 5 15 -5 -5 5 -5 5 5 5 5 15 -5 5 -5 5 -5 -5 -5
## [93] 5 -5 -5 -5 -5 5 5 5 -5 5 15 -5 5 -5 5 5 5 -5 -5 5 -5 -5 -5
## [116] -5 -5 5 5 15 5 -5 5 -5 -5 5 -5 -5 5 -5 -5 5 5 5 -5 5 -5 -5
## [139] 5 15 -5 -5 -5 5 -5 15 -5 -5 -5 -5 5 -5 -5 -5 -5 -5 -5 -5 -5 -5 5
## [162] 5 5 -5 5 -5 15 -5 15 15 -5 5 5 -5 -5 5 15 -5 5 -5 5 -5 5 -5
## [185] 5 5 -5 -5 -5 5 -5 15 -5 5 5 -5 -5 -5 5 5 -5 5 5 5 5 15 -5
## [208] -5 15 -5 5 5 5 -5 -5 5 5 5 -5 -5 -5 -5 -5 5 -5 5 -5 5 15 5
## [231] 5 -5 -5 5 -5 5 -5 -5 -5 5 5 -5 -5 5 5 -5 -5 -5 -5 -5 5 -5 -5
## [254] 5 5 -5 -5 5 -5 5 -5 -5 -5 5 -5 5 5 -5 5 -5 -5 -5 5 5 -5 -5
## [277] -5 -5 5 -5 5 -5 -5 -5 -5 -5 -5 -5 5 5 15 5 -5 -5 -5 5 5 -5 5
## [300] -5 -5 5 -5 5 5 -5 5 -5 5 -5 -5 -5 5 -5 -5 5 5 -5 -5 5 -5 -5
## [323] -5 -5 5 -5 -5 -5 5 5 5 -5 5 5 -5 5 -5 -5 -5 5 5 15 -5 -5 -5
## [346] -5 -5 5 -5 5 15 -5 -5 5 -5 5 -5 -5 5 -5 -5 -5 5 15 -5 5 5 -5
## [369] -5 15 -5 -5 5 -5 5 5 -5 5 -5 5 -5 5 5 -5 -5 5 -5 5 -5 -5 -5
## [392] 5 -5 -5 15 -5 5 5 -5 -5 5 -5 -5 5 5 5 -5 -5 15 5 -5 -5 -5 -5
## [415] -5 -5 -5 -5 15 5 5 5 5 25 -5 5 -5 5 -5 -5 15 -5 15 -5 -5 -5 5
## [438] -5 -5 15 5 -5 5 -5 -5 -5 5 15 -5 5 5 5 -5 5 -5 -5 -5 15 -5 5
## [461] 5 -5 15 -5 -5 5 -5 5 5 -5 -5 -5 -5 5 -5 -5 -5 5 5 -5 -5 -5 5
## [484] -5 -5 -5 -5 -5 5 -5 -5 -5 -5 -5 -5 5 15 15 5 5 -5 -5 -5 -5 5 5
## [507] 15 5 5 5 -5 -5 5 15 -5 5 -5 15 -5 5 5 -5 -5 -5 5 5 -5 -5 -5
## [530] 5 -5 -5 -5 -5 -5 5 5 -5 -5 5 -5 -5 -5 -5 -5 -5 -5 -5 -5 5 -5 5
## [553] -5 -5 5 -5 5 -5 5 -5 -5 -5 -5 -5 5 5 -5 5 5 -5 5 -5 5 -5 -5
## [576] 5 5 -5 -5 -5 -5 -5 5 -5 -5 5 -5 5 5 5 -5 5 5 5 -5 -5 -5 -5
## [599] 5 -5 5 -5 5 5 25 -5 -5 15 5 5 -5 5 -5 -5 5 -5 5 5 5 -5 -5
## [622] -5 5 -5 -5 5 5 -5 5 -5 -5 -5 5 5 15 -5 5 5 -5 5 -5 5 -5 -5
## [645] -5 5 -5 5 -5 -5 15 5 -5 5 -5 -5 -5 -5 5 -5 -5 5 -5 5 5 -5 -5
## [668] -5 -5 -5 5 -5 5 -5 15 5 -5 -5 5 -5 -5 -5 -5 15 -5 5 5 5 -5 5
## [691] 5 5 -5 5 -5 5 -5 -5 -5 -5 -5 -5 -5 -5 -5 -5 5 -5 -5 5 -5 -5 -5
## [714] 5 5 5 -5 -5 -5 5 5 -5 5 -5 -5 -5 5 -5 5 5 5 -5 -5 -5 -5 15
## [737] -5 15 -5 -5 15 5 5 -5 15 5 -5 -5 -5 -5 15 -5 5 5 -5 15 -5 -5 5
## [760] 5 -5 -5 -5 -5 -5 5 -5 5 5 -5 -5 5 -5 -5 5 -5 -5 5 -5 -5 5 -5
## [783] 5 -5 -5 -5 -5 5 -5 -5 -5 25 -5 -5 5 -5 -5 -5 -5 -5 5 -5 -5 -5 -5
## [806] 5 -5 -5 -5 5 -5 5 -5 -5 5 5 5 5 15 5 -5 5 -5 -5 -5 5 5 -5
## [829] -5 5 -5 -5 -5 5 5 15 -5 -5 -5 -5 5 5 -5 5 -5 -5 -5 -5 25 -5 5
## [852] -5 -5 -5 -5 -5 15 5 -5 -5 5 -5 -5 -5 -5 -5 -5 5 -5 -5 5 -5 15 5
## [875] 15 -5 -5 -5 -5 5 -5 -5 -5 -5 -5 -5 -5 5 -5 -5 -5 5 5 5 -5 5 -5
## [898] 5 -5 -5 -5 -5 5 15 -5 -5 -5 -5 5 5 5 -5 5 -5 15 -5 -5 5 5 5
## [921] -5 -5 5 5 -5 -5 5 -5 -5 -5 -5 -5 5 -5 -5 -5 5 -5 -5 -5 -5 -5 -5
## [944] 5 -5 -5 15 -5 -5 -5 -5 5 5 -5 5 5 5 -5 5 -5 -5 -5 5 5 15 5
## [967] -5 -5 5 15 -5 5 5 -5 -5 -5 5 5 -5 5 -5 5 15 -5 -5 5 5 -5 -5
## [990] 5 -5 -5 -5 5 5 -5 -5 -5 -5 5
##
## $Ganancia.acumulada
## [1] 1005 1010 1025 1030 1025 1020 1025 1030 1025 1020 1025 1020 1015
## [14] 1030 1025 1020 1035 1030 1025 1030 1035 1030 1025 1030 1035 1030
## [27] 1035 1030 1035 1040 1045 1050 1045 1040 1035 1040 1035 1040 1035
## [40] 1040 1035 1030 1025 1030 1025 1030 1025 1030 1035 1030 1025 1020
## [53] 1025 1020 1015 1010 1015 1030 1025 1030 1025 1020 1015 1010 1025
## [66] 1030 1035 1050 1045 1040 1035 1030 1025 1020 1025 1040 1035 1030
## [79] 1035 1030 1035 1040 1045 1050 1065 1060 1065 1060 1065 1060 1055
## [92] 1050 1055 1050 1045 1040 1035 1040 1045 1050 1045 1050 1065 1060
## [105] 1065 1060 1065 1070 1075 1070 1065 1070 1065 1060 1055 1050 1045
## [118] 1050 1055 1070 1075 1070 1075 1070 1065 1070 1065 1060 1065 1060
## [131] 1055 1060 1065 1070 1065 1070 1065 1060 1065 1080 1075 1070 1065
## [144] 1070 1065 1080 1075 1070 1065 1060 1065 1060 1055 1050 1045 1040
## [157] 1035 1030 1025 1020 1025 1030 1035 1030 1035 1030 1045 1040 1055
## [170] 1070 1065 1070 1075 1070 1065 1070 1085 1080 1085 1080 1085 1080
## [183] 1085 1080 1085 1090 1085 1080 1075 1080 1075 1090 1085 1090 1095
## [196] 1090 1085 1080 1085 1090 1085 1090 1095 1100 1105 1120 1115 1110
## [209] 1125 1120 1125 1130 1135 1130 1125 1130 1135 1140 1135 1130 1125
## [222] 1120 1115 1120 1115 1120 1115 1120 1135 1140 1145 1140 1135 1140
## [235] 1135 1140 1135 1130 1125 1130 1135 1130 1125 1130 1135 1130 1125
## [248] 1120 1115 1110 1115 1110 1105 1110 1115 1110 1105 1110 1105 1110
## [261] 1105 1100 1095 1100 1095 1100 1105 1100 1105 1100 1095 1090 1095
## [274] 1100 1095 1090 1085 1080 1085 1080 1085 1080 1075 1070 1065 1060
## [287] 1055 1050 1055 1060 1075 1080 1075 1070 1065 1070 1075 1070 1075
## [300] 1070 1065 1070 1065 1070 1075 1070 1075 1070 1075 1070 1065 1060
## [313] 1065 1060 1055 1060 1065 1060 1055 1060 1055 1050 1045 1040 1045
## [326] 1040 1035 1030 1035 1040 1045 1040 1045 1050 1045 1050 1045 1040
## [339] 1035 1040 1045 1060 1055 1050 1045 1040 1035 1040 1035 1040 1055
## [352] 1050 1045 1050 1045 1050 1045 1040 1045 1040 1035 1030 1035 1050
## [365] 1045 1050 1055 1050 1045 1060 1055 1050 1055 1050 1055 1060 1055
## [378] 1060 1055 1060 1055 1060 1065 1060 1055 1060 1055 1060 1055 1050
## [391] 1045 1050 1045 1040 1055 1050 1055 1060 1055 1050 1055 1050 1045
## [404] 1050 1055 1060 1055 1050 1065 1070 1065 1060 1055 1050 1045 1040
## [417] 1035 1030 1045 1050 1055 1060 1065 1090 1085 1090 1085 1090 1085
## [430] 1080 1095 1090 1105 1100 1095 1090 1095 1090 1085 1100 1105 1100
## [443] 1105 1100 1095 1090 1095 1110 1105 1110 1115 1120 1115 1120 1115
## [456] 1110 1105 1120 1115 1120 1125 1120 1135 1130 1125 1130 1125 1130
## [469] 1135 1130 1125 1120 1115 1120 1115 1110 1105 1110 1115 1110 1105
## [482] 1100 1105 1100 1095 1090 1085 1080 1085 1080 1075 1070 1065 1060
## [495] 1055 1060 1075 1090 1095 1100 1095 1090 1085 1080 1085 1090 1105
## [508] 1110 1115 1120 1115 1110 1115 1130 1125 1130 1125 1140 1135 1140
## [521] 1145 1140 1135 1130 1135 1140 1135 1130 1125 1130 1125 1120 1115
## [534] 1110 1105 1110 1115 1110 1105 1110 1105 1100 1095 1090 1085 1080
## [547] 1075 1070 1065 1070 1065 1070 1065 1060 1065 1060 1065 1060 1065
## [560] 1060 1055 1050 1045 1040 1045 1050 1045 1050 1055 1050 1055 1050
## [573] 1055 1050 1045 1050 1055 1050 1045 1040 1035 1030 1035 1030 1025
## [586] 1030 1025 1030 1035 1040 1035 1040 1045 1050 1045 1040 1035 1030
## [599] 1035 1030 1035 1030 1035 1040 1065 1060 1055 1070 1075 1080 1075
## [612] 1080 1075 1070 1075 1070 1075 1080 1085 1080 1075 1070 1075 1070
## [625] 1065 1070 1075 1070 1075 1070 1065 1060 1065 1070 1085 1080 1085
## [638] 1090 1085 1090 1085 1090 1085 1080 1075 1080 1075 1080 1075 1070
## [651] 1085 1090 1085 1090 1085 1080 1075 1070 1075 1070 1065 1070 1065
## [664] 1070 1075 1070 1065 1060 1055 1050 1055 1050 1055 1050 1065 1070
## [677] 1065 1060 1065 1060 1055 1050 1045 1060 1055 1060 1065 1070 1065
## [690] 1070 1075 1080 1075 1080 1075 1080 1075 1070 1065 1060 1055 1050
## [703] 1045 1040 1035 1030 1035 1030 1025 1030 1025 1020 1015 1020 1025
## [716] 1030 1025 1020 1015 1020 1025 1020 1025 1020 1015 1010 1015 1010
## [729] 1015 1020 1025 1020 1015 1010 1005 1020 1015 1030 1025 1020 1035
## [742] 1040 1045 1040 1055 1060 1055 1050 1045 1040 1055 1050 1055 1060
## [755] 1055 1070 1065 1060 1065 1070 1065 1060 1055 1050 1045 1050 1045
## [768] 1050 1055 1050 1045 1050 1045 1040 1045 1040 1035 1040 1035 1030
## [781] 1035 1030 1035 1030 1025 1020 1015 1020 1015 1010 1005 1030 1025
## [794] 1020 1025 1020 1015 1010 1005 1000 1005 1000 995 990 985 990
## [807] 985 980 975 980 975 980 975 970 975 980 985 990 1005
## [820] 1010 1005 1010 1005 1000 995 1000 1005 1000 995 1000 995 990
## [833] 985 990 995 1010 1005 1000 995 990 995 1000 995 1000 995
## [846] 990 985 980 1005 1000 1005 1000 995 990 985 980 995 1000
## [859] 995 990 995 990 985 980 975 970 965 970 965 960 965
## [872] 960 975 980 995 990 985 980 975 980 975 970 965 960
## [885] 955 950 945 950 945 940 935 940 945 950 945 950 945
## [898] 950 945 940 935 930 935 950 945 940 935 930 935 940
## [911] 945 940 945 940 955 950 945 950 955 960 955 950 955
## [924] 960 955 950 955 950 945 940 935 930 935 930 925 920
## [937] 925 920 915 910 905 900 895 900 895 890 905 900 895
## [950] 890 885 890 895 890 895 900 905 900 905 900 895 890
## [963] 895 900 915 920 915 910 915 930 925 930 935 930 925
## [976] 920 925 930 925 930 925 930 945 940 935 940 945 940
## [989] 935 940 935 930 925 930 935 930 925 920 915 920En el primer gráfico, tenemos que el costo del juego y la apuesta coinciden, por lo que el jugador eventualmente se va a la ruina.
En el segundo gráfico, el costo del juego es 5 veces menor que la apuesta y la ganancia acumulada evenualmente crece.
En el tercer caso, el costo del juego es 2 veces menor que la apuesta; tenemos una etapa de crecimiento pero eventualmente el jugador se va a la ruina.
#g(100000,1000,5,10)Para estudiar el último gráfico, se simuló un juego más. Tenemos que el monto inicial es mucho mayor que el costo de la apuesta y el costo del juego, éste último es dos veces menor que la apuesta. Nosotros esperariamos un comportamiento parecido al tercer gráfico, sin embargo, se nota un crecimiento de la ganancia acumulada. Para esto, hicimos 100000 simulaciones del mismo juego y evenualmente, éste conduce a la ruina.