Título: Programacion del sistame FIBONACC con R Publicado por: albondiga en 19 Febrero 2013, 00:20 am Hola a todos¡¡No se si el tema va aqui pero os cuento mi duda por si hay alguien me pueda ayudar.
Estoy aprendiendo a programar con R (mi dominio es basico del todo ) Programando y simulando sistemas de apuestas como la Martingala,D´Alambert y creo que los hice bien pero mi duda surge al intentar hacer el sistema de fibonacci 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=1} if(saldo<0){saldo=saldo+apuesta} n.carreras.vector=n.carreras saldo.vector=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 |