Ruleteros
Si quiere ver todo el contenido del foro registrese como usuario.

No tendrá publicidad y podrá intercambiar ideas y opiniones con usuarios con su misma inquietud.

Si no, solo podrá acceder a una visión limitada del contenido de estos foros.


If you want to see the entire contents of this forum you must register.

Don't have advertising will be able to exchange ideas and opinions with users with the same curiosity

If not registered, can access only a limited view of the contents of these forums.

Continuando la navegación, usted acepta la utilización de las cookies que los servicios de terceros puedan establecer. Mas información
Hora del foro
Aviso!! Announcement!!
Para ver el contenido del foro en su totalidad, debe estar registrado, sino tendra una version REDUCIDA del mismo.

To view the contents of the forum in its entirety, your must be registered, your not be registered will have a version thereof REDUCED.
Conectarse

Recuperar mi contraseña


Progresion Penthouse a docenas

Ver el tema anterior Ver el tema siguiente Ir abajo

Progresion Penthouse a docenas

Mensaje por rokero el Sáb Oct 06, 2012 1:13 am

EXPLICACION DEL SISTEMA

La Penthouse guarda un gran parecido a la más conocida progresión d'Alembert.

Aplicada a las docenas o columnas es la siguiente:
1,1,1,2,2,2,3,3,3,4,4,4,5,5,5,6,6,6,.....
y como en la d'Alembert, al perder, nos desplazamos a la derecha un término y al ganar, como está aplicada a docenas, nos desplazamos dos términos a la izquierda.   

La programación se ha realizado dando la opción de jugar a la 1ª Docena, a la 2ª Docena, a la 3ª Docena o a todas a la vez.

Nota de moderación: 
La programación corregida y actualizada está en el 5º post, ya que la publicada originalmente daba errores.


system "Penthouse 3 Dozens progression"
{played on dozens
 -progression is 1,1,1,2,2,2,3,3,3 ect....
 -Move 1 to the right on a loss and 2 to the left on a win.
 -progression resets on a new profit

 coded by Colt 23/7/2012
}
method "main"
begin
   While Starting a New Session
   begin
   input dropdown "Which dozen would you like to play?
   1:= 1st Dozen
   2:= 2nd Dozen
   3:= 3rd Dozen
   4:= All Dozens"
   to record "table" data
   if record "table" data =1
   begin
   copy  1st dozen to record "dozen1" layout
   put 100% of record "bet1" data on record "dozen1" layout
   end
   if record "table" data =2
   begin
   copy  2nd dozen to record "dozen2" layout
   put 100% of record "bet2" data on record "dozen2" layout
   end
   if record "table" data =3
   begin
   copy  3rd dozen to record "dozen3" layout
   put 100% of record "bet3" data on record "dozen3" layout
   end
   if record "table" data =4
   begin
   copy 1st dozen to record "dozen1" layout
   copy 2nd dozen to record "dozen2" layout
   copy 3rd dozen to record "dozen3" layout
   put 100% of record "bet1" data on record "dozen1" layout
   put 100% of record "bet2" data on record "dozen2" layout
   put 100% of record "bet3" data on record "dozen3" layout
   end
    set list [1,1,1,2,2,2,3,3,3,4,4,4,5,5,5,6,6,6,7,7,7,8,8,8,9,9,9,10,10,10,11,11,11,12,12,12,13,13,13,14,14,14,15,15,15,16,16,16,17,17,17,18,18,18,19,19,19,20,20,20,21,21,21,22,22,22,23,23,23,24,24,24,25,25,25,26,26,26,27,27,27,28,28,28,29,29,29,30,30,30,31,31,31,32,32,32,33,33,33,34,34,34,35,35,35,36,36,36,37,37,37,38,38,38,39,39,39,40,40,40,41,41,41,42,42,42,43,43,43,44,44,44,45,45,45,46,46,46,47,47,47,48,48,48,49,49,49,50,50,50] to record "bet1" data

    set list [1,1,1,2,2,2,3,3,3,4,4,4,5,5,5,6,6,6,7,7,7,8,8,8,9,9,9,10,10,10,11,11,11,12,12,12,13,13,13,14,14,14,15,15,15,16,16,16,17,17,17,18,18,18,19,19,19,20,20,20,21,21,21,22,22,22,23,23,23,24,24,24,25,25,25,26,26,26,27,27,27,28,28,28,29,29,29,30,30,30,31,31,31,32,32,32,33,33,33,34,34,34,35,35,35,36,36,36,37,37,37,38,38,38,39,39,39,40,40,40,41,41,41,42,42,42,43,43,43,44,44,44,45,45,45,46,46,46,47,47,47,48,48,48,49,49,49,50,50,50] to record "bet2" data

    set list [1,1,1,2,2,2,3,3,3,4,4,4,5,5,5,6,6,6,7,7,7,8,8,8,9,9,9,10,10,10,11,11,11,12,12,12,13,13,13,14,14,14,15,15,15,16,16,16,17,17,17,18,18,18,19,19,19,20,20,20,21,21,21,22,22,22,23,23,23,24,24,24,25,25,25,26,26,26,27,27,27,28,28,28,29,29,29,30,30,30,31,31,31,32,32,32,33,33,33,34,34,34,35,35,35,36,36,36,37,37,37,38,38,38,39,39,39,40,40,40,41,41,41,42,42,42,43,43,43,44,44,44,45,45,45,46,46,46,47,47,47,48,48,48,49,49,49,50,50,50] to record "bet3" data

   put 100% bankroll to record "bank" data
   end
   While on Each Spin
   begin
   if record "dozen1" layout has won each spin
   begin
   if bankroll> record "bank" data
   begin
   put 1 to record "bet1" data index
   put 1 to record "bet2" data index
   put 1 to record "bet3" data index
   put 100% bankroll to record "bank" data
   end
   else
   begin
   subtract 2 from record "bet1" data index
   end
   end

       if record "dozen2" layout has won each spin
   begin
   if bankroll> record "bank" data
   begin
   put 1 to record "bet2" data index
   put 1 to record "bet1" data index
   put 1 to record "bet3" data index
   put 100% bankroll to record "bank" data
   end
   else
   begin
   subtract 2 from record "bet2" data index
   end
   end

       if record "dozen3" layout has won each spin
   begin
   if bankroll> record "bank" data
   begin
   put 1 to record "bet3" data index
   put 1 to record "bet1" data index
   put 1 to record "bet2" data index
   put 100% bankroll to record "bank" data
   end
   else
   begin
   subtract 2 from record "bet3" data index
   end
   end

   if record "dozen1" layout has lost each spin
   begin
   add 1 to record "bet1" data index
   end

   if record "dozen2" layout has lost each spin
   begin
   add 1 to record "bet2" data index
   end

   if record "dozen3" layout has lost each spin
   begin
   add 1 to record "bet3" data index
   end

   if record "bet1" data index <1
   begin
   put 1 to record "bet1" data index
   end
   if record"bet1" data index >150
   begin
   put 150 to record "bet1" data index
   end

   if record "bet2" data index <1
   begin
   put 1 to record "bet2" data index
   end
   if record"bet2" data index >150
   begin
   put 150 to record "bet2" data index
   end
   if record "bet3" data index <1
   begin
   put 1 to record "bet3" data index
   end
   if record"bet3" data index >150
   begin
   put 150 to record "bet3" data index
   end
   put 100% of record "bet1" data on record "dozen1" layout
   put 100% of record "bet2" data on record "dozen2" layout
   put 100% of record "bet3" data on record "dozen3" layout
   end
end



he encontrado este codigo pero me da un error y no se por que, a ver si alguien sabe por que es.


Última edición por astier el Miér Jun 12, 2013 12:16 pm, editado 2 veces (Razón : Corregido título, añadida explicación del sistema y nueva programación.)

rokero
Oro
Oro

Cantidad de envíos : 436
Fecha de inscripción : 15/07/2011

Volver arriba Ir abajo

Re: Progresion Penthouse a docenas

Mensaje por jorditron el Sáb Oct 06, 2012 7:48 am

cuando agregues el codigo, no pongas el "Logged" final, igual segun el programa y el automatismo, solo me da perdidas...

jorditron
Bronce
Bronce

Cantidad de envíos : 40
Fecha de inscripción : 04/10/2012

Volver arriba Ir abajo

Cuidadin ...cuidadin

Mensaje por zechnas el Dom Oct 07, 2012 12:42 pm

Antes de copiar códigos de otras web o foros y ponerlas en éste aseguraros de que el código no está bajo licencia porque puede ocurrir lo que en la antígua página de Joker en la que creo que hubo, incluso, responsabilidades penales. pues hay gente que solo licencia para un determinado lugar.
De hecho yo lo hacía en el foro del Joker de esa manera.
avatar
zechnas
Platino
Platino

Cantidad de envíos : 1710
Fecha de inscripción : 17/09/2010
Localización : Gibraltar

Volver arriba Ir abajo

Re: Progresion Penthouse a docenas

Mensaje por jarabo002 el Mar Jun 11, 2013 2:25 pm

Recuerdo que este código lo hicieron a petición mía en otro foro en inglés.

A mí me funciona corréctamente el RX. No es mal sistema.
avatar
jarabo002
Plata
Plata

Cantidad de envíos : 89
Fecha de inscripción : 28/04/2011
Localización : España. Extremadura y Madid

Volver arriba Ir abajo

Re: Progresion Penthouse a docenas

Mensaje por astier el Miér Jun 12, 2013 12:43 pm

Modificaciones efectuadas:

- La programación original tiene bastantes errores de programación que ni permiten cargarla en el programa.
- En la opción de jugar a las 3 Docenas, apostaba a las tres docenas a la vez, lo cual nos hace perder más fichas si aparece el cero.
- Ahora se restan entre ellas. La Docena que tiene menor apuesta, sus fichas se restan de las otras.
- Los resultados son los mismos, pero se disminuye la pérdida de fichas al aparecer el cero.
- Se ha aprovechado a traducir al castellano.
- La verdad es que se ha cambiado tanto la programación, que ha sido casi mejor comenzar de nuevo. 


...

Programación eliminada por el autor



.


Última edición por astier el Jue Oct 17, 2013 10:43 am, editado 2 veces
avatar
astier
Diamante
Diamante

Cantidad de envíos : 624
Fecha de inscripción : 17/02/2013

Volver arriba Ir abajo

Re: Progresion Penthouse a docenas

Mensaje por jarabo002 el Miér Jun 12, 2013 12:57 pm

Realmente mejorado.

Gracias astier!Very Happy
avatar
jarabo002
Plata
Plata

Cantidad de envíos : 89
Fecha de inscripción : 28/04/2011
Localización : España. Extremadura y Madid

Volver arriba Ir abajo

Re: Progresion Penthouse a docenas

Mensaje por juanjabones el Miér Jun 12, 2013 1:59 pm

astier, eres un máquina!!;

Me veo programando....dentro de 20 años, ya jubilado.jeje
avatar
juanjabones
Plata
Plata

Cantidad de envíos : 88
Fecha de inscripción : 11/05/2013

Volver arriba Ir abajo

Re: Progresion Penthouse a docenas

Mensaje por miguel angel arriaga gonz el Jue Jul 11, 2013 12:36 am

Mas allá de la programación (no soy ducho, en esto), podrían brindar algún tipo de dato, si les a servido, la progresión? la han utilizado con 1,2, 3 doc/col a la vez? gracias queridos compañeros.
avatar
miguel angel arriaga gonz
Oro
Oro

Cantidad de envíos : 330
Fecha de inscripción : 19/05/2013

Volver arriba Ir abajo

Re: Progresion Penthouse a docenas

Mensaje por zechnas el Jue Jul 11, 2013 7:47 pm

Excelente programación, como siempre, astier.
La vieja idea no es mala, lástima que muchas veces supera pronto los límites de la mesa. Por otra parte tambien hay que decir que en muchas ocasiones tiene rachas de más de 2000 bolas en ascenso constante con pequeñas caidas sin importancia.
avatar
zechnas
Platino
Platino

Cantidad de envíos : 1710
Fecha de inscripción : 17/09/2010
Localización : Gibraltar

Volver arriba Ir abajo

Re: Progresion Penthouse a docenas

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.