Distribución Binomial

danvader99
11
11
Mensajes: 809
Registrado: Dom 29 Oct, 2017 8:20 pm

Re: Distribución Binomial

Mensaje por danvader99 »

en la hoja resultados
Avatar de Usuario
Ogmios
11
11
Mensajes: 886
Registrado: Dom 17 Feb, 2019 7:08 pm

Re: Distribución Binomial

Mensaje por Ogmios »

Por fin he podido ejecutarlo, y en mi caso ha tardado entre 20-30 segundos, quizás menos.
El problema era que no había cambiado el nombre libro 1 del Excel por miprograma.
Entiendo que tengo que volver a guardar el archivo cada vez que quiera continuar con los cálculos, y que puedo poner como valor 100.000 para que se pare en esa cantidad de combinaciones de las más de 400.000 posibles, y que cuando vuelva a calcular otras 100.000 combinaciones lo hará empezando por la 100.001.
Si quiero cambiar la instrucción If Y = 100 Then Stop por If Y = 100.000 Then Stop, ¿tengo que hacerlo en el Módulo 2 antes de guardar el Excel, o una vez que lo he guardado lo abro y cambio el valor en el Módulo 2, antes de volverlo a ejecutar?
"DONDE CAEN LAS PISADAS DEL MAESTRO, LOS OÍDOS DE AQUELLOS PREPARADOS PARA SU ENSEÑANZA SE ABREN DE PAR EN PAR."

EL KYBALION.
danvader99
11
11
Mensajes: 809
Registrado: Dom 29 Oct, 2017 8:20 pm

Re: Distribución Binomial

Mensaje por danvader99 »

imagina que esta puesto
If Y = 100 Then Stop

te hace 100 y se para(se pone en amarillo el código), si quieres puedes guardarlo en ese momento

ahora le pones un cero mas
If Y = 1000 Then Stop

continua con la 101 y cuando llega a 1000 se para, si quieres puedes guardarlo en ese momento




imagínate que necesitas hacer en Excel algo de tu trabajo, todo lo que has hecho en el Excel de la loto no te sirve (bueno puedes ver en resultado lo ultimo que hayas hecho ya que lo guardaste, pero no puedes seguir ejecutando el código , debes comenzar el codigo desde y=1

lo mejor, quita el stop ejecuta vete a dormir y al día siguiente ya lo tienes en resultados, guárdalo y no ejecutes de nuevo porque se borrara

bueno si visión es=2 tarda eso 400 minutos si visión es =1 tarda mas porque te va escribiendo 400.000 filas y claro eso tarda mas tiempo pero yo creo que en una noche lo hace
Avatar de Usuario
Ogmios
11
11
Mensajes: 886
Registrado: Dom 17 Feb, 2019 7:08 pm

Re: Distribución Binomial

Mensaje por Ogmios »

Pues yo lo he calculado en 2 horas aproximadamente.
Lo ejecuté a las 13 H y a las 15,15 H vi que ya había terminado de calcular.
Lo que te preguntaba antes es que donde se guarda el archivo .txt con el mejor grupo de 8 apuestas encontrado, para poder ver las apuestas y calcular las garantías con sus premios correspondientes.
Creo que voy a modificar ahora el valor de Y para completar las apuestas totales del sistema.
"DONDE CAEN LAS PISADAS DEL MAESTRO, LOS OÍDOS DE AQUELLOS PREPARADOS PARA SU ENSEÑANZA SE ABREN DE PAR EN PAR."

EL KYBALION.
danvader99
11
11
Mensajes: 809
Registrado: Dom 29 Oct, 2017 8:20 pm

Re: Distribución Binomial

Mensaje por danvader99 »

120 minutos solo?

joder vaya pedazo de ordenador debes de tener !!!!

el mejor grupo de 8 apuestas encontradas es la fila 1 de la hoja resultados si has elegido la opción 2

si has elegido la opción 1 y has visualizado las 400-000 filas la mejor será la que tenga la celda A mas grande (haz un filtro)
Avatar de Usuario
Ogmios
11
11
Mensajes: 886
Registrado: Dom 17 Feb, 2019 7:08 pm

Re: Distribución Binomial

Mensaje por Ogmios »

Es un portátil I-7 de hace unos 7-8 años.
No sé hacer filtros, pero cuando la localice, qué tengo que hacer, ¿seleccionarla, copiarla y pegarla en el bloc de notas?
"DONDE CAEN LAS PISADAS DEL MAESTRO, LOS OÍDOS DE AQUELLOS PREPARADOS PARA SU ENSEÑANZA SE ABREN DE PAR EN PAR."

EL KYBALION.
danvader99
11
11
Mensajes: 809
Registrado: Dom 29 Oct, 2017 8:20 pm

Re: Distribución Binomial

Mensaje por danvader99 »

un I-7 ? guau yo tengo un I-3 de esa época

pues te va muy rápido ni me imagino como debería ir si fuera nuevo

para hacer filtros te vas a Datos...filtros y a la columna A, funcionamiento básico de excel (ni macros ni nada)

si, la pegas en el txt nuevo pero a mano ,ósea que debes escribir las 8 apuestas y poner un cero delante si es <10 que es el formato del programa de xenious, (se puede automatizar desde el código?) pues si se podría claro , pero para que quieres el txt ? ya tienes las 8 apuestas jugables
Avatar de Usuario
Ogmios
11
11
Mensajes: 886
Registrado: Dom 17 Feb, 2019 7:08 pm

Re: Distribución Binomial

Mensaje por Ogmios »

Pues es lo que no comprendo, dónde están esas 8 apuestas.
¿O puede ser que cuando termine de calcular las casi 500.000 combinaciones se guarden en un archivo las 8 apuestas?
"DONDE CAEN LAS PISADAS DEL MAESTRO, LOS OÍDOS DE AQUELLOS PREPARADOS PARA SU ENSEÑANZA SE ABREN DE PAR EN PAR."

EL KYBALION.
danvader99
11
11
Mensajes: 809
Registrado: Dom 29 Oct, 2017 8:20 pm

Re: Distribución Binomial

Mensaje por danvader99 »

están en la hoja resultados columnas D a J

por ejemplo con visión=1 y parándolo en el 100 me sale esto, ahí están 8 apuestas, (una por celda) en el foro se ve fatal pero vmos que en el excel esta claro

32914 1_5_9_13_17_21 1_5_10_14_19_24 1_5_11_15_20_22 1_5_12_16_18_23 1_6_9_15_17_18
1_7_12_15_23_24 2_5_11_14_21_22 2_6_9_13_20_23

________________________________________________________________


una cosa importante hay un pequeño error, no afecta a nada solo si lo has puesto con vision=1

en el modulo 2 donde pone

Hoja2.Cells(1 + u, 1) = cuenta
Hoja2.Cells(1 + u, 3) = combinacionessalidamodulo1(Y, 1)
Hoja2.Cells(1 + u, 4) = combinacionessalidamodulo1(Y, 2)
Hoja2.Cells(1 + u, 5) = combinacionessalidamodulo1(Y, 3)
Hoja2.Cells(1 + u, 6) = combinacionessalidamodulo1(Y, 4)
Hoja2.Cells(1 + u, 7) = combinacionessalidamodulo1(Y, 5)
Hoja2.Cells(1 + u, 8 ) = combinacionessalidamodulo1(Y, 6)
Hoja2.Cells(1 + u, 9) = combinacionessalidamodulo1(Y, 7)
Hoja2.Cells(1 + u, 10) = combinacionessalidamodulo1(Y, 8 )
u = u + 1

debes de poner

Hoja2.Cells(2 + u, 1) = cuenta
Hoja2.Cells(2 + u, 3) = combinacionessalidamodulo1(Y, 1)
Hoja2.Cells(2 + u, 4) = combinacionessalidamodulo1(Y, 2)
Hoja2.Cells(2 + u, 5) = combinacionessalidamodulo1(Y, 3)
Hoja2.Cells(2 + u, 6) = combinacionessalidamodulo1(Y, 4)
Hoja2.Cells(2 + u, 7) = combinacionessalidamodulo1(Y, 5)
Hoja2.Cells(2 + u, 8 ) = combinacionessalidamodulo1(Y, 6)
Hoja2.Cells(2 + u, 9) = combinacionessalidamodulo1(Y, 7)
Hoja2.Cells(2 + u, 10) = combinacionessalidamodulo1(Y, 8 )
u = u + 1

si te fijas solo hay que poner un 2 en lugar de un 1,para que los resultados aparezcan en la fila 2
Avatar de Usuario
Ogmios
11
11
Mensajes: 886
Registrado: Dom 17 Feb, 2019 7:08 pm

Re: Distribución Binomial

Mensaje por Ogmios »

He empezado a calcular desde cero las casi 500.000 combinaciones posibles de una vez, porque me daba el error de variable no encontrada cuando volvía a cargar los módulos para reanudar el cálculo a partir de las 100.000 anteriores.
Cuando termine de calcular (lleva desde las 17 H) y si no surgen más contratiempos, subo las apuestas con sus garantías condicionadas (50.176 apuestas).
"DONDE CAEN LAS PISADAS DEL MAESTRO, LOS OÍDOS DE AQUELLOS PREPARADOS PARA SU ENSEÑANZA SE ABREN DE PAR EN PAR."

EL KYBALION.
Avatar de Usuario
Ogmios
11
11
Mensajes: 886
Registrado: Dom 17 Feb, 2019 7:08 pm

Re: Distribución Binomial

Mensaje por Ogmios »

quedaría así:

Código: Seleccionar todo

If vision = 1 Then
Hoja2.Cells(1, 1) = "ACIERTOS DE 3 EN" & JXX2 - 1
Hoja2.Cells(1, 3) = "GRUPOS JUGADOS DE LOS 23"
Hoja2.Cells(2 + u, 1) = cuenta
Hoja2.Cells(2 + u, 3) = combinacionessalidamodulo1(Y, 1)
Hoja2.Cells(2 + u, 4) = combinacionessalidamodulo1(Y, 2)
Hoja2.Cells(2 + u, 5) = combinacionessalidamodulo1(Y, 3)
Hoja2.Cells(2 + u, 6) = combinacionessalidamodulo1(Y, 4)
Hoja2.Cells(2 + u, 7) = combinacionessalidamodulo1(Y, 5)
Hoja2.Cells(2 + u, 8) = combinacionessalidamodulo1(Y, 6)
Hoja2.Cells(2 + u, 9) = combinacionessalidamodulo1(Y, 7)
Hoja2.Cells(2 + u, 10) = combinacionessalidamodulo1(Y, 8)
u = u + 1
End If
"DONDE CAEN LAS PISADAS DEL MAESTRO, LOS OÍDOS DE AQUELLOS PREPARADOS PARA SU ENSEÑANZA SE ABREN DE PAR EN PAR."

EL KYBALION.
danvader99
11
11
Mensajes: 809
Registrado: Dom 29 Oct, 2017 8:20 pm

Re: Distribución Binomial

Mensaje por danvader99 »

Ogmios escribió:
Sab 26 Sep, 2020 8:55 pm
He empezado a calcular desde cero las casi 500.000 combinaciones posibles de una vez, porque me daba el error de variable no encontrada cuando volvía a cargar los módulos para reanudar el cálculo a partir de las 100.000 anteriores.
Cuando termine de calcular (lleva desde las 17 H) y si no surgen más contratiempos, subo las apuestas con sus garantías condicionadas (50.176 apuestas).
lleva desde las 17_00? pero no te tardaba solo dos horas?

bueno no se ,si has puesto vision=2 deberia tardarte unos 400 minutos, pongamos 7 horas... y te debería aparecer en la fila 2 de la hoja resultados las 8 apuestas mas optimas y en la celda a2 el numero de apuestas de las 51000 que lo logran, luego es fácil sacar el %.

cuando acabe dale a guardar y guarda una copia de ese excel en otro lado ,porque si lo ejecutas de nuevo ,se borra todo
Avatar de Usuario
Ogmios
11
11
Mensajes: 886
Registrado: Dom 17 Feb, 2019 7:08 pm

Re: Distribución Binomial

Mensaje por Ogmios »

Tardaba dos horas en calcular 100.000 combinaciones. Ahora estoy calculando todas las posibles de golpe.
No he tocado nada, estará activo visión=1.
"DONDE CAEN LAS PISADAS DEL MAESTRO, LOS OÍDOS DE AQUELLOS PREPARADOS PARA SU ENSEÑANZA SE ABREN DE PAR EN PAR."

EL KYBALION.
danvader99
11
11
Mensajes: 809
Registrado: Dom 29 Oct, 2017 8:20 pm

Re: Distribución Binomial

Mensaje por danvader99 »

con vision 1 tarda mas, eso si ,te sacara las 400.000 filas en hoja resultados, ahí estará la mejor haciendo el filtro en columna A

si en dos horas te saca 100.000....ponle 10-12 horas
Avatar de Usuario
Ogmios
11
11
Mensajes: 886
Registrado: Dom 17 Feb, 2019 7:08 pm

Re: Distribución Binomial

Mensaje por Ogmios »

Pero que significa hacer el filtro en columna A. Que tengo que poner en esa columna.
Y cuando tengo que hacerlo, cuando acabe de calcular, antes de guardarlo, o antes lo guardo y hago el filtro en la copia que me dijiste que guardara en otra ubicación.
"DONDE CAEN LAS PISADAS DEL MAESTRO, LOS OÍDOS DE AQUELLOS PREPARADOS PARA SU ENSEÑANZA SE ABREN DE PAR EN PAR."

EL KYBALION.
danvader99
11
11
Mensajes: 809
Registrado: Dom 29 Oct, 2017 8:20 pm

Re: Distribución Binomial

Mensaje por danvader99 »

cuando acabe de calcular guárdalo

vete a la hoja de resultados y veras 400.000 filas

selecciona la columna A y te vas a datos...filtro y marcas el mayor valor ,te quedara solo una fila de las 400.000 esa sera la mejor

si lo hicieras con vision=2 solo te apareceria una unica fila, no 400.000 y sera la misma que con la opcion anterior ,por eso va mas rapido ,no te saca toda la morralla, pero bueno a veces esta bien ver todo antes
danvader99
11
11
Mensajes: 809
Registrado: Dom 29 Oct, 2017 8:20 pm

Re: Distribución Binomial

Mensaje por danvader99 »

necesitas urgentemente no ya programar macros, que eso veo que va para largo, necesitas saber algo de Excel básico, lo de sacar filtros, eso es algo tan basico que me asusta que me preguntes..

a estudiar

:)
Avatar de Usuario
Ogmios
11
11
Mensajes: 886
Registrado: Dom 17 Feb, 2019 7:08 pm

Re: Distribución Binomial

Mensaje por Ogmios »

Pues tienes toda la razón. En cuanto pueda voy a estudiar un libro electrónico que compré en Amazon sobre las Macros en VBA, y tendré que buscar otro sobre Excel.
"DONDE CAEN LAS PISADAS DEL MAESTRO, LOS OÍDOS DE AQUELLOS PREPARADOS PARA SU ENSEÑANZA SE ABREN DE PAR EN PAR."

EL KYBALION.
Avatar de Usuario
Ogmios
11
11
Mensajes: 886
Registrado: Dom 17 Feb, 2019 7:08 pm

Re: Distribución Binomial

Mensaje por Ogmios »

Pues bueno, después de nueve horas y media terminó de calcularlo.
Salieron 6 grupos que reducían a 37.240 apuestas con 3 aciertos cada uno, por lo que también añado las 16 apuestas con sus garantías.
Si te fijas en las garantías (respecto a las 50.176 apuestas condicionadas), las apuestas que garantizan 3 aciertos son 32.120, no 37.240. Esto es cosa de los programas informáticos, que reparten las 5.120 apuestas que faltan entre otras categorías, pero no sé con que criterio lo hacen.
danvader99, te estoy enormemente agradecido por programar en Excel la aplicación, y por todo lo que me has ayudado. :have_a_nice_day:
Amigo Josera, muchas gracias a ti también por estar siempre ahí, al pie del cañón. :have_a_nice_day:
► Mostrar Spoiler
"DONDE CAEN LAS PISADAS DEL MAESTRO, LOS OÍDOS DE AQUELLOS PREPARADOS PARA SU ENSEÑANZA SE ABREN DE PAR EN PAR."

EL KYBALION.
Avatar de Usuario
Wandering
12
12
Mensajes: 1494
Registrado: Jue 26 Abr, 2018 8:50 pm

Re: Distribución Binomial

Mensaje por Wandering »

danvader99 escribió:
Sab 26 Sep, 2020 11:55 pm
necesitas urgentemente no ya programar macros, que eso veo que va para largo, necesitas saber algo de Excel básico, lo de sacar filtros, eso es algo tan basico que me asusta que me preguntes..

a estudiar

:)
Me apunto a este mensaje ya estas incando los codos en la mesa.
:grin:
:beer2: :money:
Responder