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


Sistema Zechnas Líneas calentitas V2.0SC

Ver el tema anterior Ver el tema siguiente Ir abajo

Sistema Zechnas Líneas calentitas V2.0SC

Mensaje por zechnas el Lun Sep 10, 2012 12:15 pm

system "Zechnas Lineas calentitas"
{
SISTEMA: Zechnas Líneas calentitas
PROPOSITO: En espera de las primeras bolas de estudio seleccionamos una de las
lineas que estadísticamente tienen más posibilidades.
OBJETIVO: Con ésta segunda versión solo se pretende ganar posibilidades frente
a la estadística. Se ganará menos, pero son mayores las probabilidades.
Se aconseja jugarla con fichas de más valor en caso de querer obtener más
bebeficio por sesión.
}
method "main"
begin
while Starting a new Session
begin
Call "Pregunta"
Set list [1,1,2,2,2,3,3,3,3,6,6,6,6,6,12,12,12,12,
12,12,24,24,24,24,48] record "Progresion media" data
copy list [Line(1-6),Line(4-9),Line(7-12),Line(10-15),
Line(13-18),Line(16-21),Line(19-24),Line(22-27),Line(25-30),
Line(28-33), Line(31-36),Line(1-0)] nel record "Lineas" layout
Set flag "Verifica" false
Put 1 record "Progresion media" data index

end
While on Each Spin
begin
track last line 12 del record "Cuenta lineas" layout
if record "Cuenta lineas" layout count <12
begin
exit
end
if flag "Verifica" true
begin
call "Resultado"
end
Call "Verifica"
if flag "Verifica" true
begin
put 100% record "Progresion media" data sobre record "Objetivo" layout
end
end
end
method "Verifica"
begin
if flag "Verifica" true
begin
return
end

// Iniciando variables de verificar.

clear record "Max" data
Clear record "Contador de lineas" data
Set list [0,0,0,0,0,0,0,0,0,0,0,0] record "Contador interno" data
Set flag "Verifica" false

//Inicializando control objetivo

put 1 record "Lineas" layout index

loop until record "Lineas" layout index > record "Lineas" layout count
begin
put 100% record "Lineas" layout index del record "Contador interno" data index
put 1 record "Cuenta lineas" layout index

loop until record "Cuenta lineas" layout index > record "Cuenta lineas" layout count
begin
if record "Lineas" layout = record "Cuenta lineas" layout
begin
add 1 record "Contador interno" data

end
if record "Contador interno" data > record "Max" data
begin
put 100% record "Contador interno" data del record "Max" data
end
add 1 record "Cuenta lineas" layout index
end
add 1 record "Lineas" layout index
end
put 1 record "Contador interno" data index

loop until record "Contador interno" data index > record "Contador interno" data count
begin
if record "Contador interno" data = record "Max" data
begin
add 1 record "Contador de lineas" data
put 100% record "Contador interno" data index del record "Lineas" layout index

copy record "Lineas" layout del record "Objetivo" layout
end
add 1 record "Contador interno" data index

end

// Condiciones de verificación para el sistéma

if record "Max" data <=2
and record "Contador de lineas" data =3
begin
Set flag "Verifica" true
end
end



method "Resultado"
begin
if Any line Bet won each
begin
set flag "Verifica" False
put 1 record "Progresion media" data index

end
else
begin
add 1 record "Progresion media" data index
if record "Progresion media" data index > record "Progresion media" data count
begin
set flag "Verifica" False
put 1 record "Progresion media" data index
end
end
//Control de Perdidas-Ganancias

if Bankroll >= record "Triunfo" data
or Bankroll <= record "Riesgo" data
begin
Stop Session
end
end
method "Pregunta"
begin
group
begin
display "Aconsejable entre +100 y -50 para sesiones medias"

input data "Objetivo de ganancia (ej: 50) " record "Triunfo" Data
input data "Máximo dispuesto a perder (ej: -30) " record "Riesgo" Data;


end
End
avatar
zechnas
Platino
Platino

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

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

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