49 números que se extraen de problema 7 reinas

Avatar de Usuario
juanknito
11
11
Mensajes: 583
Registrado: Dom 20 Mar, 2016 12:16 pm
Ubicación: Tenerife

49 números que se extraen de problema 7 reinas

Mensaje por juanknito »

Saludos,
Ahondando en la solución de ubicación de las 8 reinas de ajedrez, cuyo estudio realizaron matematicos como Gaus y otros, vemos que solo unos pocos casos (92) de 8x8x8x8x8x8x8x8=16.777.216 posibles, daban con la solución.


La disposición precisa de cada reina en el tablero parecen indicar que siguen una ley de geometría casi perfecta, que vamos a explorar pero adaptandolo a la Loto, con solo 7 reinas (7×7=49 casillas ).

En una grafica 3D se observa que forman una figura con una depresión central y subida en los bordes. Intentaremos ver que utilidad en cuanto a dispersion y ubicación de los 6 numeros en las 49 casillas y su ocurrencia numérica en cada una. Hacer incapié en que NO se trata de predecir nada (sinceramente? no creo que sea posible)
, SOLO ver si puede ayudar como forma de reducción basada en alguna ley geometrica.

para empezar, pongo las 40 soluciones que calcula la aplicacion en qbasic compartida en hilo informatica (Primeros pasos en Qbasic, adaptado al 1x2)


Las 40 soluciones al problema de 7 reinas en un tablero de 7x7 casillas:
(del total de 823.543 casos posibles, donde 40 son el 0,0069386 %).


1 _ 1 3 5 7 2 4 6
2 _ 1 4 7 3 6 2 5
3 _ 1 5 2 6 3 7 4
4 _ 1 6 4 2 7 5 3
5 _ 2 4 1 7 5 3 6
6 _ 2 4 6 1 3 5 7
7 _ 2 5 1 4 7 3 6
8 _ 2 5 3 1 7 4 6
9 _ 2 5 7 4 1 3 6
10 _ 2 6 3 7 4 1 5
11 _ 2 7 5 3 1 6 4
12 _ 3 1 6 2 5 7 4
13 _ 3 1 6 4 2 7 5
14 _ 3 5 7 2 4 6 1
15 _ 3 6 2 5 1 4 7
16 _ 3 7 2 4 6 1 5
17 _ 3 7 4 1 5 2 6
18 _ 4 1 3 6 2 7 5
19 _ 4 1 5 2 6 3 7
20 _ 4 2 7 5 3 1 6
21 _ 4 6 1 3 5 7 2
22 _ 4 7 3 6 2 5 1
23 _ 4 7 5 2 6 1 3
24 _ 5 1 4 7 3 6 2
25 _ 5 1 6 4 2 7 3
26 _ 5 2 6 3 7 4 1
27 _ 5 3 1 6 4 2 7
28 _ 5 7 2 4 6 1 3
29 _ 5 7 2 6 3 1 4
30 _ 6 1 3 5 7 2 4
31 _ 6 2 5 1 4 7 3
32 _ 6 3 1 4 7 5 2
33 _ 6 3 5 7 1 4 2
34 _ 6 3 7 4 1 5 2
35 _ 6 4 2 7 5 3 1
36 _ 6 4 7 1 3 5 2
37 _ 7 2 4 6 1 3 5
38 _ 7 3 6 2 5 1 4
39 _ 7 4 1 5 2 6 3
40 _ 7 5 3 1 6 4 2


editado 1 vez, para corregir el total de casos posibles de 7x7x7x7x7x7x7=823.543 (Gracias a Norega)
Última edición por juanknito el Mar 28 Nov, 2017 7:01 am, editado 1 vez en total.

el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
Avatar de Usuario
Salva(ALBO2001)
12
12
Mensajes: 1060
Registrado: Vie 26 Dic, 2003 5:34 pm
Ubicación: Zaragoza

Re: 49 números que se extraen de problema 7 reinas

Mensaje por Salva(ALBO2001) »

Hola Juanknito, he visto en éstos últimos días....tus interesantes planteamientos en el foro de 1X2, y yo estaba pensando en la posibilidad de poder aplicarlo a la loto, y mira por donde.... hoy veo que piensas lo mismo, :ok: será cuestión de estudiarlo detenidamente, y además ver la posibilidad de utilizar una cantidad de números inferior a los 49 ¿¿¿???

Con tu permiso..... mejor dicho....SIN tu permiso.... :-D pongo aquí el enlace del 1X2 para tenerlo a mano.

viewtopic.php?f=33&t=87919

viewtopic.php?f=34&t=87790

Saludos.

Salva
Avatar de Usuario
juanknito
11
11
Mensajes: 583
Registrado: Dom 20 Mar, 2016 12:16 pm
Ubicación: Tenerife

Re: 49 números que se extraen de problema 7 reinas

Mensaje por juanknito »

Hola Salva, un placer compartir ideas jeje


Por supuesto que me parece genial el conectar los diferentes post, que hablan de un mismo tema pero con dos posibles aplicaciones,... gracias por tu colaboración Salva..

Aprovecho y dejo disponible el código QBasic, de éste compilador de los 90 que averigua las 40 soluciones entre mas de 5 millones en un segundo,

lo pueden usar, manipular y trasformar a su antojo,... al ser autodidacta éste código es seguramente mejorable, pero bajar de un segundo en la resolución ? ... para que ?

es éste (codigo realizado con QBasic64, gratuito):
por cierto Salva, para reducir a 6, 5,... etc. eliminar o poner (') apóstrofe que inutiliza la línea de codigo detrás de su posición..... donde aparezca s7, para que calcule las 6 reinas.



DIM s(8)
OPEN "CAS_REIN7.TXT" FOR OUTPUT AS #1

FOR s1 = 1 TO 7
FOR s2 = 1 TO 7: IF s2 - s1 = 1 OR s1 - s2 = 1 THEN GOTO noo
FOR s3 = 1 TO 7: IF s3 - s2 = 1 OR s2 - s3 = 1 THEN GOTO noo
FOR s4 = 1 TO 7: IF s3 - s4 = 1 OR s4 - s3 = 1 THEN GOTO noo
FOR s5 = 1 TO 7: IF s4 - s5 = 1 OR s5 - s4 = 1 THEN GOTO noo
FOR s6 = 1 TO 7: IF s5 - s6 = 1 OR s6 - s5 = 1 THEN GOTO noo
FOR s7 = 1 TO 7: IF s6 - s7 = 1 OR s7 - s6 = 1 THEN GOTO noo
' FOR s8 = 1 TO 8: IF s7 - s8 = 1 OR s8 - s7 = 1 THEN GOTO noo

' caza consecutivos:
IF s1 = s2 OR s1 = s3 OR s1 = s4 OR s1 = s5 OR s1 = s6 OR s1 = s7 OR s1 = s8 THEN GOTO noo

IF s2 = s3 OR s2 = s4 OR s2 = s5 OR s2 = s6 OR s2 = s7 OR s2 = s8 THEN GOTO noo

IF s3 = s4 OR s3 = s5 OR s3 = s6 OR s3 = s7 OR s3 = s8 THEN GOTO noo

IF s4 = s5 OR s4 = s6 OR s4 = s7 OR s4 = s8 THEN GOTO noo

IF s5 = s6 OR s5 = s7 OR s5 = s8 THEN GOTO noo

IF s6 = s7 OR s6 = s8 THEN GOTO noo

IF s7 = s8 THEN GOTO noo

'caza_diagonales:
IF s1 = s2 + 1 OR s1 = s3 + 2 OR s1 = s4 + 3 OR s1 = s5 + 4 OR s1 = s6 + 5 OR s1 = s7 + 6 THEN GOTO noo
IF s2 = s3 + 1 OR s2 = s4 + 2 OR s2 = s5 + 3 OR s2 = s6 + 4 OR s2 = s7 + 5 THEN GOTO noo
IF s3 = s4 + 1 OR s3 = s5 + 2 OR s3 = s6 + 3 OR s3 = s7 + 4 THEN GOTO noo
IF s4 = s5 + 1 OR s4 = s6 + 2 OR s4 = s7 + 3 THEN GOTO noo
IF s5 = s6 + 1 OR s5 = s7 + 2 THEN GOTO noo
IF s6 = s7 + 1 THEN GOTO noo

IF s1 = s2 - 1 OR s1 = s3 - 2 OR s1 = s4 - 3 OR s1 = s5 - 4 OR s1 = s6 - 5 OR s1 = s7 - 6 THEN GOTO noo
IF s2 = s3 - 1 OR s2 = s4 - 2 OR s2 = s5 - 3 OR s2 = s6 - 4 OR s2 = s7 - 5 THEN GOTO noo
IF s3 = s4 - 1 OR s3 = s5 - 2 OR s3 = s6 - 3 OR s3 = s7 - 4 THEN GOTO noo
IF s4 = s5 - 1 OR s4 = s6 - 2 OR s4 = s7 - 3 THEN GOTO noo
IF s5 = s6 - 1 OR s5 = s7 - 2 THEN GOTO noo
IF s6 = s7 - 1 THEN GOTO noo


ts1 = ts1 + s1: ts2 = ts2 + s2: ts3 = ts3 + s3: ts4 = ts4 + s4: ts5 = ts5 + s5: ts6 = ts6 + s6: ts7 = ts7 + s7: ts8 = ts8 + s8
cas = cas + 1: PRINT cas,: PRINT s1; s2; s3; s4; s5; s6; s7; s8
PRINT #1, cas, s1; s2; s3; s4; s5; s6; s7; s8
noo: excluidos

NEXT s7, s6, s5, s4, s3, s2, s1
PRINT
PRINT ts1; ts2; ts3; ts4; ts5; ts6; ts7; ts8
PRINT #1,
PRINT #1, ts1; ts2; ts3; ts4; ts5; ts6; ts7; ts8
CLOSE #1
PRINT "fin"
Última edición por juanknito el Mar 28 Nov, 2017 6:59 am, editado 1 vez en total.

el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
Avatar de Usuario
Noega
11
11
Mensajes: 853
Registrado: Jue 26 May, 2016 10:10 pm

Re: 49 números que se extraen de problema 7 reinas

Mensaje por Noega »

Saludos.
Contenido Oculto
Este foro requiere que este registrado e identificado para ver el contenido oculto.
Si quieres llegar a donde la mayoría no llega, debes hacer lo que la mayoría no hace.
Avatar de Usuario
juanknito
11
11
Mensajes: 583
Registrado: Dom 20 Mar, 2016 12:16 pm
Ubicación: Tenerife

Re: 49 números que se extraen de problema 7 reinas

Mensaje por juanknito »

Gracias Norega, actualizado a 823.543 casos.

editado el post donde dice quitar 7 para ajustar el código a menos reinas, debe decir s7
si tengo tiempo hoy pongo el codigo para 6, 5 y 4 reinas, (para 3 no hay solución).

la solución a las 9 reinas la tengo que chequear, ya que contenía fallos. (borrada)

de ésta de 7, si alguien detecta alguno, se lo agradezco, ya que no he podido chequearlo con detenimiento.

recordamos como comen y mueven las reinas de ajedrez (en todas direcciones rectas):

Imagen
servidores de imagenes

el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
Wandering

Re: 49 números que se extraen de problema 7 reinas

Mensaje por Wandering »

Hola JuanKnito.

En que lenjuage programas?

Si quieres me lo contestas en Mp o en este hilo.
ilutixop
10
10
Mensajes: 136
Registrado: Mar 26 Abr, 2011 5:23 am

Re: 49 números que se extraen de problema 7 reinas

Mensaje por ilutixop »

juanknito escribió:Hola Salva, un placer compartir ideas jeje


Por supuesto que me parece genial el conectar los diferentes post, que hablan de un mismo tema pero con dos posibles aplicaciones,... gracias por tu colaboración Salva..

Aprovecho y dejo disponible el código QBasic, de éste compilador de los 90 que averigua las 40 soluciones entre mas de 5 millones en un segundo,

lo pueden usar, manipular y trasformar a su antojo,... al ser autodidacta éste código es seguramente mejorable, pero bajar de un segundo en la resolución ? ... para que ?

es éste (codigo realizado con QBasic64, gratuito):
por cierto Salva, para reducir a 6, 5,... etc. eliminar o poner (') apóstrofe que inutiliza la línea de codigo detrás de su posición..... donde aparezca s7, para que calcule las 6 reinas.



DIM s(8)
OPEN "CAS_REIN7.TXT" FOR OUTPUT AS #1

FOR s1 = 1 TO 7
FOR s2 = 1 TO 7: IF s2 - s1 = 1 OR s1 - s2 = 1 THEN GOTO noo
FOR s3 = 1 TO 7: IF s3 - s2 = 1 OR s2 - s3 = 1 THEN GOTO noo
FOR s4 = 1 TO 7: IF s3 - s4 = 1 OR s4 - s3 = 1 THEN GOTO noo
FOR s5 = 1 TO 7: IF s4 - s5 = 1 OR s5 - s4 = 1 THEN GOTO noo
FOR s6 = 1 TO 7: IF s5 - s6 = 1 OR s6 - s5 = 1 THEN GOTO noo
FOR s7 = 1 TO 7: IF s6 - s7 = 1 OR s7 - s6 = 1 THEN GOTO noo
' FOR s8 = 1 TO 8: IF s7 - s8 = 1 OR s8 - s7 = 1 THEN GOTO noo

' caza consecutivos:
IF s1 = s2 OR s1 = s3 OR s1 = s4 OR s1 = s5 OR s1 = s6 OR s1 = s7 OR s1 = s8 THEN GOTO noo

IF s2 = s3 OR s2 = s4 OR s2 = s5 OR s2 = s6 OR s2 = s7 OR s2 = s8 THEN GOTO noo

IF s3 = s4 OR s3 = s5 OR s3 = s6 OR s3 = s7 OR s3 = s8 THEN GOTO noo

IF s4 = s5 OR s4 = s6 OR s4 = s7 OR s4 = s8 THEN GOTO noo

IF s5 = s6 OR s5 = s7 OR s5 = s8 THEN GOTO noo

IF s6 = s7 OR s6 = s8 THEN GOTO noo

IF s7 = s8 THEN GOTO noo

'caza_diagonales:
IF s1 = s2 + 1 OR s1 = s3 + 2 OR s1 = s4 + 3 OR s1 = s5 + 4 OR s1 = s6 + 5 OR s1 = s7 + 6 THEN GOTO noo
IF s2 = s3 + 1 OR s2 = s4 + 2 OR s2 = s5 + 3 OR s2 = s6 + 4 OR s2 = s7 + 5 THEN GOTO noo
IF s3 = s4 + 1 OR s3 = s5 + 2 OR s3 = s6 + 3 OR s3 = s7 + 4 THEN GOTO noo
IF s4 = s5 + 1 OR s4 = s6 + 2 OR s4 = s7 + 3 THEN GOTO noo
IF s5 = s6 + 1 OR s5 = s7 + 2 THEN GOTO noo
IF s6 = s7 + 1 THEN GOTO noo

IF s1 = s2 - 1 OR s1 = s3 - 2 OR s1 = s4 - 3 OR s1 = s5 - 4 OR s1 = s6 - 5 OR s1 = s7 - 6 THEN GOTO noo
IF s2 = s3 - 1 OR s2 = s4 - 2 OR s2 = s5 - 3 OR s2 = s6 - 4 OR s2 = s7 - 5 THEN GOTO noo
IF s3 = s4 - 1 OR s3 = s5 - 2 OR s3 = s6 - 3 OR s3 = s7 - 4 THEN GOTO noo
IF s4 = s5 - 1 OR s4 = s6 - 2 OR s4 = s7 - 3 THEN GOTO noo
IF s5 = s6 - 1 OR s5 = s7 - 2 THEN GOTO noo
IF s6 = s7 - 1 THEN GOTO noo


ts1 = ts1 + s1: ts2 = ts2 + s2: ts3 = ts3 + s3: ts4 = ts4 + s4: ts5 = ts5 + s5: ts6 = ts6 + s6: ts7 = ts7 + s7: ts8 = ts8 + s8
cas = cas + 1: PRINT cas,: PRINT s1; s2; s3; s4; s5; s6; s7; s8
PRINT #1, cas, s1; s2; s3; s4; s5; s6; s7; s8
noo: excluidos

NEXT s7, s6, s5, s4, s3, s2, s1
PRINT
PRINT ts1; ts2; ts3; ts4; ts5; ts6; ts7; ts8
PRINT #1,
PRINT #1, ts1; ts2; ts3; ts4; ts5; ts6; ts7; ts8
CLOSE #1
PRINT "fin"

Dice QB64 que hay un error de sintaxis en la linea 47.
Demos a cada día su afán y a la quiniela su oportunidad.
Avatar de Usuario
juanknito
11
11
Mensajes: 583
Registrado: Dom 20 Mar, 2016 12:16 pm
Ubicación: Tenerife

Re: 49 números que se extraen de problema 7 reinas

Mensaje por juanknito »

Wandering escribió:Hola JuanKnito.

En que lenjuage programas?

Si quieres me lo contestas en Mp o en este hilo.

en Qbasic64 para windows, en Qbasic64.net:

https://www.google.es/url?sa=t&rct=j&q= ... HeqHPVTbD3

el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
Avatar de Usuario
juanknito
11
11
Mensajes: 583
Registrado: Dom 20 Mar, 2016 12:16 pm
Ubicación: Tenerife

Re: 49 números que se extraen de problema 7 reinas

Mensaje por juanknito »

Hola ilutixop,

me comentas:
"Dice QB64 que hay un error de sintaxis en la linea 47.[/quote]


aunque a mi me funciona, te pongo el código retocado (ahora totaliza el total de apariciones de cada nº por casillas al final (6 nº), 92 en cada posición.

DIM s(8)
OPEN "CAS_REIN.TXT" FOR OUTPUT AS #1

FOR s1 = 1 TO 8
FOR s2 = 1 TO 8: IF s2 - s1 = 1 OR s1 - s2 = 1 THEN GOTO noo
FOR s3 = 1 TO 8: IF s3 - s2 = 1 OR s2 - s3 = 1 THEN GOTO noo
FOR s4 = 1 TO 8: IF s3 - s4 = 1 OR s4 - s3 = 1 THEN GOTO noo
FOR s5 = 1 TO 8: IF s4 - s5 = 1 OR s5 - s4 = 1 THEN GOTO noo
FOR s6 = 1 TO 8: IF s5 - s6 = 1 OR s6 - s5 = 1 THEN GOTO noo
FOR s7 = 1 TO 8: IF s6 - s7 = 1 OR s7 - s6 = 1 THEN GOTO noo
FOR s8 = 1 TO 8: IF s7 - s8 = 1 OR s8 - s7 = 1 THEN GOTO noo


IF s1 = s2 OR s1 = s3 OR s1 = s4 OR s1 = s5 OR s1 = s6 OR s1 = s7 OR s1 = s8 THEN GOTO noo

IF s2 = s3 OR s2 = s4 OR s2 = s5 OR s2 = s6 OR s2 = s7 OR s2 = s8 THEN GOTO noo

IF s3 = s4 OR s3 = s5 OR s3 = s6 OR s3 = s7 OR s3 = s8 THEN GOTO noo

IF s4 = s5 OR s4 = s6 OR s4 = s7 OR s4 = s8 THEN GOTO noo

IF s5 = s6 OR s5 = s7 OR s5 = s8 THEN GOTO noo

IF s6 = s7 OR s6 = s8 THEN GOTO noo

IF s7 = s8 THEN GOTO noo

caza_diagonales:
IF s1 = s2 + 1 OR s1 = s3 + 2 OR s1 = s4 + 3 OR s1 = s5 + 4 OR s1 = s6 + 5 OR s1 = s7 + 6 OR s1 = s8 + 7 THEN GOTO noo
IF s2 = s3 + 1 OR s2 = s4 + 2 OR s2 = s5 + 3 OR s2 = s6 + 4 OR s2 = s7 + 5 OR s2 = s8 + 6 THEN GOTO noo
IF s3 = s4 + 1 OR s3 = s5 + 2 OR s3 = s6 + 3 OR s3 = s7 + 4 OR s3 = s8 + 5 THEN GOTO noo
IF s4 = s5 + 1 OR s4 = s6 + 2 OR s4 = s7 + 3 OR s4 = s8 + 4 THEN GOTO noo
IF s5 = s6 + 1 OR s5 = s7 + 2 OR s5 = s8 + 3 THEN GOTO noo
IF s6 = s7 + 1 OR s6 = s8 + 2 THEN GOTO noo
IF s7 = s8 + 1 THEN GOTO noo

IF s1 = s2 - 1 OR s1 = s3 - 2 OR s1 = s4 - 3 OR s1 = s5 - 4 OR s1 = s6 - 5 OR s1 = s7 - 6 OR s1 = s8 - 7 THEN GOTO noo
IF s2 = s3 - 1 OR s2 = s4 - 2 OR s2 = s5 - 3 OR s2 = s6 - 4 OR s2 = s7 - 5 OR s2 = s8 - 6 THEN GOTO noo
IF s3 = s4 - 1 OR s3 = s5 - 2 OR s3 = s6 - 3 OR s3 = s7 - 4 OR s3 = s8 - 5 THEN GOTO noo
IF s4 = s5 - 1 OR s4 = s6 - 2 OR s4 = s7 - 3 OR s4 = s8 - 4 THEN GOTO noo
IF s5 = s6 - 1 OR s5 = s7 - 2 OR s5 = s8 - 3 THEN GOTO noo
IF s6 = s7 - 1 OR s6 = s8 - 2 THEN GOTO noo
IF s7 = s8 - 1 THEN GOTO noo

cas = cas + 1: PRINT cas,: PRINT s1; s2; s3; s4; s5; s6; s7; s8
IF s1 = 1 THEN tcas(1) = tcas(1) + 1
IF s1 = 2 THEN tcas(2) = tcas(2) + 1
IF s1 = 3 THEN tcas(3) = tcas(3) + 1
IF s1 = 4 THEN tcas(4) = tcas(4) + 1
IF s1 = 5 THEN tcas(5) = tcas(5) + 1
IF s1 = 6 THEN tcas(6) = tcas(6) + 1
IF s1 = 7 THEN tcas(7) = tcas(7) + 1
IF s1 = 8 THEN tcas(8) = tcas(8) + 1

IF s2 = 1 THEN tcas(1) = tcas(1) + 1
IF s2 = 2 THEN tcas(2) = tcas(2) + 1
IF s2 = 3 THEN tcas(3) = tcas(3) + 1
IF s2 = 4 THEN tcas(4) = tcas(4) + 1
IF s2 = 5 THEN tcas(5) = tcas(5) + 1
IF s2 = 6 THEN tcas(6) = tcas(6) + 1
IF s2 = 7 THEN tcas(7) = tcas(7) + 1
IF s2 = 8 THEN tcas(8) = tcas(8) + 1

IF s3 = 1 THEN tcas(1) = tcas(1) + 1
IF s3 = 2 THEN tcas(2) = tcas(2) + 1
IF s3 = 3 THEN tcas(3) = tcas(3) + 1
IF s3 = 4 THEN tcas(4) = tcas(4) + 1
IF s3 = 5 THEN tcas(5) = tcas(5) + 1
IF s3 = 6 THEN tcas(6) = tcas(6) + 1
IF s3 = 7 THEN tcas(7) = tcas(7) + 1
IF s3 = 8 THEN tcas(8) = tcas(8) + 1

IF s4 = 1 THEN tcas(1) = tcas(1) + 1
IF s4 = 2 THEN tcas(2) = tcas(2) + 1
IF s4 = 3 THEN tcas(3) = tcas(3) + 1
IF s4 = 4 THEN tcas(4) = tcas(4) + 1
IF s4 = 5 THEN tcas(5) = tcas(5) + 1
IF s4 = 6 THEN tcas(6) = tcas(6) + 1
IF s4 = 7 THEN tcas(7) = tcas(7) + 1
IF s4 = 8 THEN tcas(8) = tcas(8) + 1

IF s5 = 1 THEN tcas(1) = tcas(1) + 1
IF s5 = 2 THEN tcas(2) = tcas(2) + 1
IF s5 = 3 THEN tcas(3) = tcas(3) + 1
IF s5 = 4 THEN tcas(4) = tcas(4) + 1
IF s5 = 5 THEN tcas(5) = tcas(5) + 1
IF s5 = 6 THEN tcas(6) = tcas(6) + 1
IF s5 = 7 THEN tcas(7) = tcas(7) + 1
IF s5 = 8 THEN tcas(8) = tcas(8) + 1

IF s6 = 1 THEN tcas(1) = tcas(1) + 1
IF s6 = 2 THEN tcas(2) = tcas(2) + 1
IF s6 = 3 THEN tcas(3) = tcas(3) + 1
IF s6 = 4 THEN tcas(4) = tcas(4) + 1
IF s6 = 5 THEN tcas(5) = tcas(5) + 1
IF s6 = 6 THEN tcas(6) = tcas(6) + 1
IF s6 = 7 THEN tcas(7) = tcas(7) + 1
IF s6 = 8 THEN tcas(8) = tcas(8) + 1

IF s7 = 1 THEN tcas(1) = tcas(1) + 1
IF s7 = 2 THEN tcas(2) = tcas(2) + 1
IF s7 = 3 THEN tcas(3) = tcas(3) + 1
IF s7 = 4 THEN tcas(4) = tcas(4) + 1
IF s7 = 5 THEN tcas(5) = tcas(5) + 1
IF s7 = 6 THEN tcas(6) = tcas(6) + 1
IF s7 = 7 THEN tcas(7) = tcas(7) + 1
IF s7 = 8 THEN tcas(8) = tcas(8) + 1

IF s8 = 1 THEN tcas(1) = tcas(1) + 1
IF s8 = 2 THEN tcas(2) = tcas(2) + 1
IF s8 = 3 THEN tcas(3) = tcas(3) + 1
IF s8 = 4 THEN tcas(4) = tcas(4) + 1
IF s8 = 5 THEN tcas(5) = tcas(5) + 1
IF s8 = 6 THEN tcas(6) = tcas(6) + 1
IF s8 = 7 THEN tcas(7) = tcas(7) + 1
IF s8 = 8 THEN tcas(8) = tcas(8) + 1

PRINT #1, cas, s1; s2; s3; s4; s5; s6; s7; s8

noo:

NEXT s8, s7, s6, s5, s4, s3, s2, s1
FOR w = 1 TO 8
PRINT tcas(w);
PRINT #1, tcas(w);
NEXT w


CLOSE #1
PRINT "fin"

el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
Wandering

Re: 49 números que se extraen de problema 7 reinas

Mensaje por Wandering »

Cuando dice estan todas.

Se refiere a algo parecido a esto.
Imagen
Avatar de Usuario
Noega
11
11
Mensajes: 853
Registrado: Jue 26 May, 2016 10:10 pm

Re: 49 números que se extraen de problema 7 reinas

Mensaje por Noega »

Saludos.
Contenido Oculto
Este foro requiere que este registrado e identificado para ver el contenido oculto.
Si quieres llegar a donde la mayoría no llega, debes hacer lo que la mayoría no hace.
Avatar de Usuario
batet
14
14
Mensajes: 5620
Registrado: Jue 11 Ago, 2005 6:14 pm

Re: 49 números que se extraen de problema 7 reinas

Mensaje por batet »

Imagen

Esta imagen correspondria
1 _ 1 3 5 7 2 4 6

y si giramos el tablero 180°
35 _ 6 4 2 7 5 3 1
y nos quedan 20 columnas porque todas tienen una inversa.

corresponderian a los numeros:

01 09 18 28 30 39 48

Pero son 7 numeros y nos sobra uno .
como se podrian jugar solo 6 numeros ?

Se podria hacer las combinaciones de un tablero 6x6 y conformarnos
solo jugar 36.?
"He sudado más en el banquillo que algunos en el campo."
J.B. Toshack

 
Avatar de Usuario
juanknito
11
11
Mensajes: 583
Registrado: Dom 20 Mar, 2016 12:16 pm
Ubicación: Tenerife

Re: 49 números que se extraen de problema 7 reinas

Mensaje por juanknito »

las 75 soluciones de las 6 reinas:

... no le estoy dedicando mucho tiempo a las soluciones "menores",.. estoy viendo la solución de las 1000 reinas.


6 Reinas (75 casos):
1 3 6 2 7 5
1 3 7 2 4 8
1 3 7 2 8 5
1 3 8 6 4 2
1 4 2 8 6 3
1 4 7 5 8 2
1 7 2 8 6 4
1 8 6 2 7 5
2 4 1 7 5 3
2 4 1 8 5 3
2 4 6 8 5 1
2 4 7 1 8 5
2 4 7 1 8 6
2 7 1 6 8 5
2 7 3 1 8 4
2 7 3 1 8 5
2 7 3 6 8 1
2 7 3 6 8 5
2 8 1 7 4 6
2 8 3 1 7 5
2 8 3 7 4 1
2 8 6 1 7 5
3 1 6 2 5 7
3 1 6 8 5 2
3 1 6 8 5 7
3 1 7 2 8 6
3 1 7 5 8 2
3 1 7 5 8 6
3 1 8 2 5 7
3 7 2 8 1 4
3 7 2 8 5 1
3 7 2 8 6 1
3 7 2 8 6 4
3 8 2 5 1 6
3 8 2 7 1 6
4 1 3 5 7 2
4 1 3 8 6 2
4 1 7 2 6 3
4 1 7 2 6 8
4 1 8 2 5 3
4 1 8 2 5 7
4 1 8 2 7 3
4 1 8 5 7 2
4 2 7 5 1 8
4 2 8 5 7 1
4 2 8 6 1 3
4 2 8 6 1 7
4 7 1 8 5 2
4 7 1 8 6 2
4 7 3 8 6 1
4 7 3 8 6 2
4 8 1 5 7 2
4 8 3 5 7 1
4 8 3 5 7 2
5 2 6 1 7 4
5 2 8 1 4 7
5 2 8 1 7 4
5 2 8 6 4 1
5 2 8 6 4 7
5 3 1 6 4 2
5 3 1 6 8 2
5 3 1 7 4 2
5 3 1 7 4 6
5 3 1 7 4 8
5 3 8 6 4 1
5 3 8 6 4 2
5 7 1 6 8 2
5 7 2 6 8 1
5 8 1 7 4 2
5 8 1 7 4 6
5 8 6 1 7 2
8 3 1 7 5 2
8 4 1 7 5 2
8 4 2 7 5 1
8 4 7 1 6 2

el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
Avatar de Usuario
juanknito
11
11
Mensajes: 583
Registrado: Dom 20 Mar, 2016 12:16 pm
Ubicación: Tenerife

Re: 49 números que se extraen de problema 7 reinas

Mensaje por juanknito »

Norega,

no sé muy bien que quieres decir sin diagonales?¿ te puedes explicar mejor?

una de las cosas que me maravilla de éstos problemas, es que las soluciones de nR no sirven para n+1R, es como si todos los casos de nR dado, fueran basura al aumentar ó disminuir el n. de R (Reinas).

el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
Avatar de Usuario
batet
14
14
Mensajes: 5620
Registrado: Jue 11 Ago, 2005 6:14 pm

Re: 49 números que se extraen de problema 7 reinas

Mensaje por batet »

juanknito escribió:las 75 soluciones de las 6 reinas:

... no le estoy dedicando mucho tiempo a las soluciones "menores",.. estoy viendo la solución de las 1000 reinas.


6 Reinas (75 casos):
1 3 6 2 7 5
1 3 7 2 4 8
1 3 7 2 8 5
1 3 8 6 4 2
1 4 2 8 6 3
1 4 7 5 8 2
1 7 2 8 6 4
1 8 6 2 7 5
2 4 1 7 5 3
2 4 1 8 5 3
2 4 6 8 5 1
2 4 7 1 8 5
2 4 7 1 8 6
2 7 1 6 8 5
2 7 3 1 8 4
2 7 3 1 8 5
2 7 3 6 8 1
2 7 3 6 8 5
2 8 1 7 4 6
2 8 3 1 7 5
2 8 3 7 4 1
2 8 6 1 7 5
3 1 6 2 5 7
3 1 6 8 5 2
3 1 6 8 5 7
3 1 7 2 8 6
3 1 7 5 8 2
3 1 7 5 8 6
3 1 8 2 5 7
3 7 2 8 1 4
3 7 2 8 5 1
3 7 2 8 6 1
3 7 2 8 6 4
3 8 2 5 1 6
3 8 2 7 1 6
4 1 3 5 7 2
4 1 3 8 6 2
4 1 7 2 6 3
4 1 7 2 6 8
4 1 8 2 5 3
4 1 8 2 5 7
4 1 8 2 7 3
4 1 8 5 7 2
4 2 7 5 1 8
4 2 8 5 7 1
4 2 8 6 1 3
4 2 8 6 1 7
4 7 1 8 5 2
4 7 1 8 6 2
4 7 3 8 6 1
4 7 3 8 6 2
4 8 1 5 7 2
4 8 3 5 7 1
4 8 3 5 7 2
5 2 6 1 7 4
5 2 8 1 4 7
5 2 8 1 7 4
5 2 8 6 4 1
5 2 8 6 4 7
5 3 1 6 4 2
5 3 1 6 8 2
5 3 1 7 4 2
5 3 1 7 4 6
5 3 1 7 4 8
5 3 8 6 4 1
5 3 8 6 4 2
5 7 1 6 8 2
5 7 2 6 8 1
5 8 1 7 4 2
5 8 1 7 4 6
5 8 6 1 7 2
8 3 1 7 5 2
8 4 1 7 5 2
8 4 2 7 5 1
8 4 7 1 6 2
Mi idea era con un tablero de 6x6 .

Jugar solo 36 numeros .

P.D. Una reina sin diagonales es el mivimiento de una torre.
"He sudado más en el banquillo que algunos en el campo."
J.B. Toshack

 
Avatar de Usuario
Salva(ALBO2001)
12
12
Mensajes: 1060
Registrado: Vie 26 Dic, 2003 5:34 pm
Ubicación: Zaragoza

Re: 49 números que se extraen de problema 7 reinas

Mensaje por Salva(ALBO2001) »

Hola Juanknito, hola a todos.

Juanknito, ¡¡¡¡¡¡Gracias!!!!!! por tú trabajo y ponerlo a nuestra disposición.

Las 75 soluciones, son 100% compatibles ce on la Loto, y ello me ha permitido realizar un pequeño estudio de las mismas, el cual paso ha desglosar.

Partimos de la base..... de que 8 números al directo son 28 apuestas 100% al 6

Las garantías de las 75 soluciones son las siguientes......

26 que cubren el 6 = 92,857% de 1 a 13 de 6 + 15 a 47 de 5 + 23 a 59 de 4
2 que cubren el 5 = 100% de 14 a 15 de 5 + 60 a 61 de 4

75 soluciones + 28 del directo = 26 apuestas comunes.
92,857% al 6
100% al 5 (11 de 5)

Las 2 apuestas que faltal para cubrir el 100% se quedan en 7 números.
28,571% al 6
100% al 5 (2 de 5)
************************************************************
Ahora.... en base al orden de "salida" de las 75 soluciones, he creado 6 particiones.

Partición (01)
1 3 6 2 7 5----Garantías: 25% al 6 + 96,429% al 5 + 100% al 4 (8 de 4)
1 3 7 2 4 8
1 3 7 2 8 5
1 3 8 6 4 2
1 4 2 8 6 3
1 4 7 5 8 2
1 7 2 8 6 4
1 8 6 2 7 5 = 8 apuestas.
*******************
Partición (02)
2 4 1 7 5 3----Garantías: 35,714% al 6 + 100% al 5 (1 a 18)
2 4 1 8 5 3
2 4 6 8 5 1
2 4 7 1 8 5
2 4 7 1 8 6
2 7 1 6 8 5
2 7 3 1 8 4
2 7 3 1 8 5
2 7 3 6 8 1
2 7 3 6 8 5
2 8 1 7 4 6
2 8 3 1 7 5
2 8 3 7 4 1
2 8 6 1 7 5 = 14 apuestas.
********************
Partición (03)
3 1 6 2 5 7----25% al 6 + 100% al 5 (1 a 12)
3 1 6 8 5 2
3 1 6 8 5 7
3 1 7 2 8 6
3 1 7 5 8 2
3 1 7 5 8 6
3 1 8 2 5 7
3 7 2 8 1 4
3 7 2 8 5 1
3 7 2 8 6 1
3 7 2 8 6 4
3 8 2 5 1 6
3 8 2 7 1 6 = 13 apuestas.
********************
Partición (04)
4 1 3 5 7 2----Garantías: 39,286% al 6 + 100% al 5 (2 a 12)
4 1 3 8 6 2
4 1 7 2 6 3
4 1 7 2 6 8
4 1 8 2 5 3
4 1 8 2 5 7
4 1 8 2 7 3
4 1 8 5 7 2
4 2 7 5 1 8
4 2 8 5 7 1
4 2 8 6 1 3
4 2 8 6 1 7
4 7 1 8 5 2
4 7 1 8 6 2
4 7 3 8 6 1
4 7 3 8 6 2
4 8 1 5 7 2
4 8 3 5 7 1
4 8 3 5 7 2 = 19 apuestas.
********************
Partición (05)
5 2 6 1 7 4----Garantías: 46,429% al 6 + 100% al 5 (2 a 10)
5 2 8 1 4 7
5 2 8 1 7 4
5 2 8 6 4 1
5 2 8 6 4 7
5 3 1 6 4 2
5 3 1 6 8 2
5 3 1 7 4 2
5 3 1 7 4 6
5 3 1 7 4 8
5 3 8 6 4 1
5 3 8 6 4 2
5 7 1 6 8 2
5 7 2 6 8 1
5 8 1 7 4 2
5 8 1 7 4 6
5 8 6 1 7 2 = 17 apuestas.
********************
Partición (06)
8 3 1 7 5 2----Garantías:10,714% al 6 + 78,571% al 5 + 100% al 4 (4 de 4)
8 4 1 7 5 2
8 4 2 7 5 1
8 4 7 1 6 2 = 4 apuestas.

CONCLUSION:
De momento..... no le encuentro utilidad, quizás....¿¿¿??? la única utilidad que le "veo".... sería utilizar las 4 apuestas de la partición (06) y con ellas crear un "mantel" de 4 líneas de 36 números y con un total de 48 números de los 49. ¿¿¿¿????

¿Qué se os ocurre a vosotros?

Saludos.

Salva
Avatar de Usuario
Noega
11
11
Mensajes: 853
Registrado: Jue 26 May, 2016 10:10 pm

Re: 49 números que se extraen de problema 7 reinas

Mensaje por Noega »

Saludos.
Contenido Oculto
Este foro requiere que este registrado e identificado para ver el contenido oculto.
Si quieres llegar a donde la mayoría no llega, debes hacer lo que la mayoría no hace.
Avatar de Usuario
juanknito
11
11
Mensajes: 583
Registrado: Dom 20 Mar, 2016 12:16 pm
Ubicación: Tenerife

Re: 49 números que se extraen de problema 7 reinas

Mensaje por juanknito »

Saludos,

he quitado el post de la solución de las 512 Reinas, porque si complicado es el algoritmo de búsqueda, no se imaginan el de comprobación,..

he revisado parte de la solución y no estoy seguro de que sea 100% correcta, si alguien de los muchos que descargaron la solución propuesta, además la comprueba, estaría bien decirlo.

Norega,
el programa que genera las soluciones de hasta 8R, contempla las diagonales verticales y horizontales, que son el movimiento de la reina, tendría que ponerme a codificar de nuevo el programa.

como cojo unos días para trasladarme y ver a familiares, estimo que sera ya para despues de las vacaciones Navideñas..

el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
Avatar de Usuario
Noega
11
11
Mensajes: 853
Registrado: Jue 26 May, 2016 10:10 pm

Re: 49 números que se extraen de problema 7 reinas

Mensaje por Noega »

Saludos.
juanknito escribió: Norega,
el programa que genera las soluciones de hasta 8R, contempla las diagonales verticales y horizontales, que son el movimiento de la reina, tendría que ponerme a codificar de nuevo el programa.

como cojo unos días para trasladarme y ver a familiares, estimo que sera ya para despues de las vacaciones Navideñas..
Sin prisa...
Si quieres llegar a donde la mayoría no llega, debes hacer lo que la mayoría no hace.
Avatar de Usuario
victorisaac
13
13
Mensajes: 3305
Registrado: Dom 13 Mar, 2011 1:06 am

Re: 49 números que se extraen de problema 7 reinas

Mensaje por victorisaac »

Hola Noega, me alegra leerte de nuevo.

Me gustaba tu firma anterior sobre el talento, pero esta de ahora, está de arte :-D :-D :-D :-D :-D :-D
El azar es circunstancia y la suerte coincidencia.
Aplicar la circunstancia adecuada provocará la coincidencia

EUREKA
DIVIDE Y VENCERAS, MULTIPLICA Y MAS.
Imagen
Responder