Hola a todos¡¡
No se si el tema va aqui pero os cuento mi duda por si hay alguien que controle y me pueda ayudar.
Estoy aprendiendo a programar con R (mi dominio es basico del todo ) Programando y simulando sistemas como la Martingala,D´Alambert y creo que los hice bien pero mi duda surge al intentar hacer el sistema de fibonacci y no soy capaz
En todos los sistemas anteriores pretendo siempre obtener en cada apuesta una ganacia >= dos veces lo invertido,es decir, si apuesto 1 unidad pues ganar 2 unidades.

Aqui os pongo mi sistema de Martingala:

probabilidad=0.5

objectivo=20

saldo.vector=rep(0,1000)
n.carreras.vector=rep(0,1000)
resultado.vector=rep(0,1000)

for (i in 1:1000){

saldo=10
apuesta=1
saldo=saldo-apuesta
n.carreras=0

while( saldo<obxectivo & saldo>0 ){
carreira=rbinom(1,1,p)
n.carreras=n.carreras+1
if(carrera==1){
saldo=saldo+2*apuesta
if (saldo == objectivo) break
apuesta=1
saldo=saldo-apuesta
}else{
apuesta=2*apuesta
saldo=saldo-apuesta
}
}

if (saldo>=objectivo){resultado.vector[i]=1}

if(saldo<0){saldo=saldo+apuesta}

n.carreras.vector[i]=n.carreras
saldo.vector[i]=saldo


}

Mi duda es a la hora de hacer lo mismo pero con fibonacci y lo que pretendo es cada vez que gane apostar siempre lo mismo,es decir,1 unidad y cuando pierda pues en la siguiente apuesta ir apostando los numeros de la serie de fibonacci (1,2,3,5,8,13,21,..)
EJEMPLO:
1ªapuesta: apuesto 1 unidad resultado:apuesta ganada
2ªapuesta:apuesto 1 unidad resultado:apuesta ganada
3ªapuesta:apuesto 1 unidad resultado:apuesta perdida
4ª apuesta:apuesto 2unidades resultado:apuesta perdida
5ª apuesta:apuesto 3 unidades resultado:apuesta perdida
6ª apuesta:apuesto 5 unidades ...............

Espero que me haya explicado bien.
Si alguien me puede ayudar con esto.
gracias