49 números que se extraen de problema 7 reinas
Re: 49 números que se extraen de problema 7 reinas
Saludos.
Aunque a distancia... Sigo por aquí.
Feliz Navidad para todos. Sobre todo a los que saben apreciar mis firmas.
Y para los que no...
Aunque a distancia... Sigo por aquí.
Feliz Navidad para todos. Sobre todo a los que saben apreciar mis firmas.
Y para los que no...
Si quieres llegar a donde la mayoría no llega, debes hacer lo que la mayoría no hace.
- Salva(ALBO2001)
- 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
¡¡¡¡¡Felíz Navidad!!!!!!! Noega, próspero 2018 y muchísima salud, igualmente para todos.
Saludos.
Salva
Saludos.
Salva
Re: 49 números que se extraen de problema 7 reinas
Saludos.
Aunque a distancia... Sigo por aquí.
Feliz Navidad para todos y Prospero año nuevo 2018.
P.D. Me copiado el mensaje de Noega. Disculpas por la copia. Soy un vagon mas del
CONVOY
Las reinas no se si tendran solucion, seguro que la comprobación hace los movimientos.
Aunque a distancia... Sigo por aquí.
Feliz Navidad para todos y Prospero año nuevo 2018.
P.D. Me copiado el mensaje de Noega. Disculpas por la copia. Soy un vagon mas del
CONVOY
Las reinas no se si tendran solucion, seguro que la comprobación hace los movimientos.
Re: 49 números que se extraen de problema 7 reinas
Saludos.
Gracias Salva. Un placer compartir contigo esa jarra... y por supuesto con los demás.
Wandering... Siempre caballero. Sabes que cuando quieras y donde quieras. Estoy esperando ese " conjunto de vehículos que se desplazan en grupo para apoyarse mutuamente..."
Sería imprudente por mi parte intentar nombraros a todos... Pedro... Victorisaac... Ilutixop... Y muchos más... Que deciros... Lo sabéis...
Un abrazo... Y Feliz Navidad... Hasta Enero...
Gracias Salva. Un placer compartir contigo esa jarra... y por supuesto con los demás.
Wandering... Siempre caballero. Sabes que cuando quieras y donde quieras. Estoy esperando ese " conjunto de vehículos que se desplazan en grupo para apoyarse mutuamente..."
Sería imprudente por mi parte intentar nombraros a todos... Pedro... Victorisaac... Ilutixop... Y muchos más... Que deciros... Lo sabéis...
Un abrazo... Y Feliz Navidad... Hasta Enero...
Si quieres llegar a donde la mayoría no llega, debes hacer lo que la mayoría no hace.
- victorisaac
- 13
- Mensajes: 3305
- Registrado: Dom 13 Mar, 2011 1:06 am
Re: 49 números que se extraen de problema 7 reinas
Yo también quiero desearos felices fiestas a todos sin excepción. Me tomo este foro como un entretenimiento nada más, a pesar de que alguna vez se calienta el dedo. Salud y suerte
Enviado desde mi F3311 mediante Tapatalk
Enviado desde mi F3311 mediante Tapatalk
Re: 49 números que se extraen de problema 7 reinas
Hola, un Gran Abrazo a Tod@s, Feliz Navidad y Próspero Año 2018
Muchísima Salud y que la Fuerza y la Suerte siempre nos acompañen :-D :-D :-D :-D :-D :-D :-D :-D :-D :-D
Muchísima Salud y que la Fuerza y la Suerte siempre nos acompañen :-D :-D :-D :-D :-D :-D :-D :-D :-D :-D
-
- 10
- Mensajes: 207
- Registrado: Lun 14 Sep, 2009 6:47 pm
Re: 49 números que se extraen de problema 7 reinas
Felices fiestas a todos
Re: 49 números que se extraen de problema 7 reinas
Buenas noches,
Me uno a esos buenos deseos para todos.
Feliz Navidad para tod@s y que en el próximo Año 2018 sigamos estando por aquí!!!
Me uno a esos buenos deseos para todos.
Feliz Navidad para tod@s y que en el próximo Año 2018 sigamos estando por aquí!!!
Re: 49 números que se extraen de problema 7 reinas
Feliz Navidad y Prospero Año nuevo 2018.. :-D
A todos los foreros de buena voluntad y que la diosa fortuna nos sonría a tod@s.
Merry Christmas incluso a los romanos del foro!!!! :romano1:
Un Saludete
:-D :-D :-D
A todos los foreros de buena voluntad y que la diosa fortuna nos sonría a tod@s.
Merry Christmas incluso a los romanos del foro!!!! :romano1:
Un Saludete
:-D :-D :-D
Yo solo se que no se nada, y me gustaría saber, lo que el sabio mas sabio de la tierra, no sabe.
"Socrates"
"Socrates"
Re: 49 números que se extraen de problema 7 reinas
Feliz Navidad y próspero año 2018 a todos ,menos a dos,que ya sabeis quienes sois.
Lo único que no soporto en la vida es la maldad de las personas,y por ahí no entro.
Para los demás,que os toque pronto una de 6, de verdad.
(Algún día os dareis cuenta de que en la vida el dinero es lo último).
Abrazos
P.D. Pureta,te parecerá mentira estar esta Nochebuena en casa,después de lo del hospital...
Lo único que no soporto en la vida es la maldad de las personas,y por ahí no entro.
Para los demás,que os toque pronto una de 6, de verdad.
(Algún día os dareis cuenta de que en la vida el dinero es lo último).
Abrazos
P.D. Pureta,te parecerá mentira estar esta Nochebuena en casa,después de lo del hospital...
Re: 49 números que se extraen de problema 7 reinas
Digamos que espero que 2018 no se paresca al 2017.
Este año he tenido de todo menos salud, y solo apreciamos lo que tenemos, cuando nos falta. :lloron: :lloron: :lloron:
Así que estoy deseando que llegue 2018. He estado otro semana de baja por un virus y he trabajado semana y media en pleno ataque de gota (cojo), en fin deseo pasar pagina rapidito.
Un Saludete
:-D :-D :-D
Este año he tenido de todo menos salud, y solo apreciamos lo que tenemos, cuando nos falta. :lloron: :lloron: :lloron:
Así que estoy deseando que llegue 2018. He estado otro semana de baja por un virus y he trabajado semana y media en pleno ataque de gota (cojo), en fin deseo pasar pagina rapidito.
Un Saludete
:-D :-D :-D
Yo solo se que no se nada, y me gustaría saber, lo que el sabio mas sabio de la tierra, no sabe.
"Socrates"
"Socrates"
- Salva(ALBO2001)
- 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
Qué te recuperes pronto Pureta, y como muy bien dices...que el próximo 2018 sea mejor y saludable.
Un abrazo y ánimos.
Salva
Un abrazo y ánimos.
Salva
Re: 49 números que se extraen de problema 7 reinas
Cuidese Sr. Pureta.
Para el 2018, va a ser un desastre para mi.
Espero que para ustedes sea lo mejor de lo mejor.
Nos leeremos en el 2018.
Mientras tanto a disfrutar de las fiestas.
Para el 2018, va a ser un desastre para mi.
Espero que para ustedes sea lo mejor de lo mejor.
Nos leeremos en el 2018.
Mientras tanto a disfrutar de las fiestas.
Re: 49 números que se extraen de problema 7 reinas
Sr.Pureta,y Sr. Wandering.
Siento mucho el estado de salud de ustedes.
Espero que mejoren pronto,y en el próximo año,la salud la tengan perfecta.
Lamentablemente,en la vida, las cosas malas siempre les tocan a los buenos.
Mis mejores deseos. :winke:
Siento mucho el estado de salud de ustedes.
Espero que mejoren pronto,y en el próximo año,la salud la tengan perfecta.
Lamentablemente,en la vida, las cosas malas siempre les tocan a los buenos.
Mis mejores deseos. :winke:
Re: 49 números que se extraen de problema 7 reinas
las 16 Reinas (16R), tiene la friolera de 14772512 soluciones ¡¡
aquí una de ellas:
16 6 15 5 14 8 13 4 1 3 11 9 2 12 10 7
... seguimos investigando
aquí una de ellas:
16 6 15 5 14 8 13 4 1 3 11 9 2 12 10 7
... seguimos investigando
el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
Re: 49 números que se extraen de problema 7 reinas
Seguimos en la utilidad, trabajando.
Re: 49 números que se extraen de problema 7 reinas
hasta el infinito, Wandering..
el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
-
- 10
- Mensajes: 2
- Registrado: Mié 24 Jul, 2019 8:11 pm
Re: 49 números que se extraen de problema 7 reinas
Hola, he desarrollado un metodo que sirve para sacar soluciones particulares del problema de las 1000
reinas.
Esta en el link:
https://problema-de-las-1000-reinas-resuelto.blogspot.com/
Saludos.
reinas.
Esta en el link:
https://problema-de-las-1000-reinas-resuelto.blogspot.com/
Saludos.
Re: 49 números que se extraen de problema 7 reinas
Saludos,
una petición sobre el código Qbasic del problema de las 8 reinas, me ha hecho revisarlo y he confirmado que el reparto de apariciones de las mismas en el tablero de 8x8 casillas NO es homogéneo, es decir hay casillas con solo 4 apariciones, sumando todas las 92 soluciones y otras con 18 apariciones, lo que limita el uso de las soluciones como posible reducción, o no? si deseamos dar mas peso a ciertos números,....
pongo el código actualizado que lo lista y graba en fichero seguidamente y la aparición por casillas, éstas:
Apariciones de las 8 Reinas, en las 92 soluciones en un tablero de 8x8:
4 8 16 18 18 16 8 4
8 16 14 8 8 14 16 8
16 14 4 12 12 4 14 16
18 8 12 8 8 12 8 18
18 8 12 8 8 12 8 18
16 14 4 12 12 4 14 16
8 16 14 8 8 14 16 8
8 16 14 8 8 14 16 8
el resultado de ejecución del código QBasic (se archiva automáticamente en fichero: CAS_REIN.TXT) es éste:
92 Soluciones al problema: Ubicación de 8 Reinas en tablero de 8x8 casillas:
1 5 8 6 3 7 2 4
1 6 8 3 7 4 2 5
1 7 4 6 8 2 5 3
1 7 5 8 2 4 6 3
2 4 6 8 3 1 7 5
2 5 7 1 3 8 6 4
2 5 7 4 1 8 6 3
2 6 1 7 4 8 3 5
2 6 8 3 1 4 7 5
2 7 3 6 8 5 1 4
2 7 5 8 1 4 6 3
2 8 6 1 3 5 7 4
3 1 7 5 8 2 4 6
3 5 2 8 1 7 4 6
3 5 2 8 6 4 7 1
3 5 7 1 4 2 8 6
3 5 8 4 1 7 2 6
3 6 2 5 8 1 7 4
3 6 2 7 1 4 8 5
3 6 2 7 5 1 8 4
3 6 4 1 8 5 7 2
3 6 4 2 8 5 7 1
3 6 8 1 4 7 5 2
3 6 8 1 5 7 2 4
3 6 8 2 4 1 7 5
3 7 2 8 5 1 4 6
3 7 2 8 6 4 1 5
3 8 4 7 1 6 2 5
4 1 5 8 2 7 3 6
4 1 5 8 6 3 7 2
4 2 5 8 6 1 3 7
4 2 7 3 6 8 1 5
4 2 7 3 6 8 5 1
4 2 7 5 1 8 6 3
4 2 8 5 7 1 3 6
4 2 8 6 1 3 5 7
4 6 1 5 2 8 3 7
4 6 8 2 7 1 3 5
4 6 8 3 1 7 5 2
4 7 1 8 5 2 6 3
4 7 3 8 2 5 1 6
4 7 5 2 6 1 3 8
4 7 5 3 1 6 8 2
4 8 1 3 6 2 7 5
4 8 1 5 7 2 6 3
4 8 5 3 1 7 2 6
5 1 4 6 8 2 7 3
5 1 8 4 2 7 3 6
5 1 8 6 3 7 2 4
5 2 4 6 8 3 1 7
5 2 4 7 3 8 6 1
5 2 6 1 7 4 8 3
5 2 8 1 4 7 3 6
5 3 1 6 8 2 4 7
5 3 1 7 2 8 6 4
5 3 8 4 7 1 6 2
5 7 1 3 8 6 4 2
5 7 1 4 2 8 6 3
5 7 2 4 8 1 3 6
5 7 2 6 3 1 4 8
5 7 2 6 3 1 8 4
5 7 4 1 3 8 6 2
5 8 4 1 3 6 2 7
5 8 4 1 7 2 6 3
6 1 5 2 8 3 7 4
6 2 7 1 3 5 8 4
6 2 7 1 4 8 5 3
6 3 1 7 5 8 2 4
6 3 1 8 4 2 7 5
6 3 1 8 5 2 4 7
6 3 5 7 1 4 2 8
6 3 5 8 1 4 2 7
6 3 7 2 4 8 1 5
6 3 7 2 8 5 1 4
6 3 7 4 1 8 2 5
6 4 1 5 8 2 7 3
6 4 2 8 5 7 1 3
6 4 7 1 3 5 2 8
6 4 7 1 8 2 5 3
6 8 2 4 1 7 5 3
7 1 3 8 6 4 2 5
7 2 4 1 8 5 3 6
7 2 6 3 1 4 8 5
7 3 1 6 8 5 2 4
7 3 8 2 5 1 6 4
7 4 2 5 8 1 3 6
7 4 2 8 6 1 3 5
7 5 3 1 6 8 2 4
8 2 4 1 7 5 3 6
8 2 5 3 1 7 4 6
8 3 1 6 2 5 7 4
8 4 1 3 6 2 7 5
Total de apariciones de las 8 reinas por casillas:
A B C D E F G H
-- -- -- -- -- -- -- --
1 - 4 8 16 18 18 16 8 4
2 - 8 16 14 8 8 14 16 8
3 - 16 14 4 12 12 4 14 16
4 - 18 8 12 8 8 12 8 18
5 - 18 8 12 8 8 12 8 18
6 - 16 14 4 12 12 4 14 16
7 - 8 16 14 8 8 14 16 8
8 - 4 8 16 18 18 16 8 4
y el código QBasic que lo genera (se dan errores en el listado adjunto, si alguien lo quiere, me lo solicita por privado):
OPEN "CAS_REIN.TXT" FOR OUTPUT AS #1
PRINT #1, " 92 Soluciones al problema: Ubicacion de 8 Reinas en tablero de 8x8 casillas": PRINT #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:
PRINT #1, s1; s2; s3; s4; s5; s6; s7; s8
IF s1 = 1 THEN tcas(1, 1) = tcas(1, 1) + 1
IF s1 = 2 THEN tcas(2, 1) = tcas(2, 1) + 1
IF s1 = 3 THEN tcas(3, 1) = tcas(3, 1) + 1
IF s1 = 4 THEN tcas(4, 1) = tcas(4, 1) + 1
IF s1 = 5 THEN tcas(5, 1) = tcas(5, 1) + 1
IF s1 = 6 THEN tcas(6, 1) = tcas(6, 1) + 1
IF s1 = 7 THEN tcas(7, 1) = tcas(7, 1) + 1
IF s1 = 8 THEN tcas(8, 1) = tcas(8, 1) + 1
IF s2 = 1 THEN tcas(1, 2) = tcas(1, 2) + 1
IF s2 = 2 THEN tcas(2, 2) = tcas(2, 2) + 1
IF s2 = 3 THEN tcas(3, 2) = tcas(3, 2) + 1
IF s2 = 4 THEN tcas(4, 2) = tcas(4, 2) + 1
IF s2 = 5 THEN tcas(5, 2) = tcas(5, 2) + 1
IF s2 = 6 THEN tcas(6, 2) = tcas(6, 2) + 1
IF s2 = 7 THEN tcas(7, 2) = tcas(7, 2) + 1
IF s2 = 8 THEN tcas(8, 2) = tcas(8, 2) + 1
IF s3 = 1 THEN tcas(1, 3) = tcas(1, 3) + 1
IF s3 = 2 THEN tcas(2, 3) = tcas(2, 3) + 1
IF s3 = 3 THEN tcas(3, 3) = tcas(3, 3) + 1
IF s3 = 4 THEN tcas(4, 3) = tcas(4, 3) + 1
IF s3 = 5 THEN tcas(5, 3) = tcas(5, 3) + 1
IF s3 = 6 THEN tcas(6, 3) = tcas(6, 3) + 1
IF s3 = 7 THEN tcas(7, 3) = tcas(7, 3) + 1
IF s3 = 8 THEN tcas(8, 3) = tcas(8, 3) + 1
IF s4 = 1 THEN tcas(1, 4) = tcas(1, 4) + 1
IF s4 = 2 THEN tcas(2, 4) = tcas(2, 4) + 1
IF s4 = 3 THEN tcas(3, 4) = tcas(3, 4) + 1
IF s4 = 4 THEN tcas(4, 4) = tcas(4, 4) + 1
IF s4 = 5 THEN tcas(5, 4) = tcas(5, 4) + 1
IF s4 = 6 THEN tcas(6, 4) = tcas(6, 4) + 1
IF s4 = 7 THEN tcas(7, 4) = tcas(7, 4) + 1
IF s4 = 8 THEN tcas(8, 4) = tcas(8, 4) + 1
IF s5 = 1 THEN tcas(1, 5) = tcas(1, 5) + 1
IF s5 = 2 THEN tcas(2, 5) = tcas(2, 5) + 1
IF s5 = 3 THEN tcas(3, 5) = tcas(3, 5) + 1
IF s5 = 4 THEN tcas(4, 5) = tcas(4, 5) + 1
IF s5 = 5 THEN tcas(5, 5) = tcas(5, 5) + 1
IF s5 = 6 THEN tcas(6, 5) = tcas(6, 5) + 1
IF s5 = 7 THEN tcas(7, 5) = tcas(7, 5) + 1
IF s5 = 8 THEN tcas(8, 5) = tcas(8, 5) + 1
IF s6 = 1 THEN tcas(1, 6) = tcas(1, 6) + 1
IF s6 = 2 THEN tcas(2, 6) = tcas(2, 6) + 1
IF s6 = 3 THEN tcas(3, 6) = tcas(3, 6) + 1
IF s6 = 4 THEN tcas(4, 6) = tcas(4, 6) + 1
IF s6 = 5 THEN tcas(5, 6) = tcas(5, 6) + 1
IF s6 = 6 THEN tcas(6, 6) = tcas(6, 6) + 1
IF s6 = 7 THEN tcas(7, 6) = tcas(7, 6) + 1
IF s6 = 8 THEN tcas(8, 6) = tcas(8, 6) + 1
IF s7 = 1 THEN tcas(1, 7) = tcas(1, 7) + 1
IF s7 = 2 THEN tcas(2, 7) = tcas(2, 7) + 1
IF s7 = 3 THEN tcas(3, 7) = tcas(3, 7) + 1
IF s7 = 4 THEN tcas(4, 7) = tcas(4, 7) + 1
IF s7 = 5 THEN tcas(5, 7) = tcas(5, 7) + 1
IF s7 = 6 THEN tcas(6, 7) = tcas(6, 7) + 1
IF s7 = 7 THEN tcas(7, 7) = tcas(7, 7) + 1
IF s7 = 8 THEN tcas(8, 7) = tcas(8, 7) + 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
PRINT: PRINT #1, " "
PRINT " Total de apariciones de las 8 reinas por casillas: ": PRINT
PRINT #1, " Total de apariciones de las 8 reinas por casillas: ": PRINT #1, " "
PRINT " A B C D E F G H": PRINT #1, " A B C D E F G H"
PRINT " -- -- -- -- -- -- -- --": PRINT #1, " -- -- -- -- -- -- -- --"
FOR w = 1 TO 8: PRINT USING " # - "; w;: PRINT #1, USING " # - "; w;
FOR w2 = 1 TO 8
PRINT USING " ##"; tcas(w, w2);: PRINT #1, USING " ##"; tcas(w, w2);
'PRINT #1, tcas(w);
NEXT w2: PRINT: PRINT #1, " "
NEXT w
CLOSE #1
PRINT
LOCATE 25, 1: INPUT " Pulsa una tecla para finalizar. "; h: CLS: STOP
una petición sobre el código Qbasic del problema de las 8 reinas, me ha hecho revisarlo y he confirmado que el reparto de apariciones de las mismas en el tablero de 8x8 casillas NO es homogéneo, es decir hay casillas con solo 4 apariciones, sumando todas las 92 soluciones y otras con 18 apariciones, lo que limita el uso de las soluciones como posible reducción, o no? si deseamos dar mas peso a ciertos números,....
pongo el código actualizado que lo lista y graba en fichero seguidamente y la aparición por casillas, éstas:
Apariciones de las 8 Reinas, en las 92 soluciones en un tablero de 8x8:
4 8 16 18 18 16 8 4
8 16 14 8 8 14 16 8
16 14 4 12 12 4 14 16
18 8 12 8 8 12 8 18
18 8 12 8 8 12 8 18
16 14 4 12 12 4 14 16
8 16 14 8 8 14 16 8
8 16 14 8 8 14 16 8
el resultado de ejecución del código QBasic (se archiva automáticamente en fichero: CAS_REIN.TXT) es éste:
92 Soluciones al problema: Ubicación de 8 Reinas en tablero de 8x8 casillas:
1 5 8 6 3 7 2 4
1 6 8 3 7 4 2 5
1 7 4 6 8 2 5 3
1 7 5 8 2 4 6 3
2 4 6 8 3 1 7 5
2 5 7 1 3 8 6 4
2 5 7 4 1 8 6 3
2 6 1 7 4 8 3 5
2 6 8 3 1 4 7 5
2 7 3 6 8 5 1 4
2 7 5 8 1 4 6 3
2 8 6 1 3 5 7 4
3 1 7 5 8 2 4 6
3 5 2 8 1 7 4 6
3 5 2 8 6 4 7 1
3 5 7 1 4 2 8 6
3 5 8 4 1 7 2 6
3 6 2 5 8 1 7 4
3 6 2 7 1 4 8 5
3 6 2 7 5 1 8 4
3 6 4 1 8 5 7 2
3 6 4 2 8 5 7 1
3 6 8 1 4 7 5 2
3 6 8 1 5 7 2 4
3 6 8 2 4 1 7 5
3 7 2 8 5 1 4 6
3 7 2 8 6 4 1 5
3 8 4 7 1 6 2 5
4 1 5 8 2 7 3 6
4 1 5 8 6 3 7 2
4 2 5 8 6 1 3 7
4 2 7 3 6 8 1 5
4 2 7 3 6 8 5 1
4 2 7 5 1 8 6 3
4 2 8 5 7 1 3 6
4 2 8 6 1 3 5 7
4 6 1 5 2 8 3 7
4 6 8 2 7 1 3 5
4 6 8 3 1 7 5 2
4 7 1 8 5 2 6 3
4 7 3 8 2 5 1 6
4 7 5 2 6 1 3 8
4 7 5 3 1 6 8 2
4 8 1 3 6 2 7 5
4 8 1 5 7 2 6 3
4 8 5 3 1 7 2 6
5 1 4 6 8 2 7 3
5 1 8 4 2 7 3 6
5 1 8 6 3 7 2 4
5 2 4 6 8 3 1 7
5 2 4 7 3 8 6 1
5 2 6 1 7 4 8 3
5 2 8 1 4 7 3 6
5 3 1 6 8 2 4 7
5 3 1 7 2 8 6 4
5 3 8 4 7 1 6 2
5 7 1 3 8 6 4 2
5 7 1 4 2 8 6 3
5 7 2 4 8 1 3 6
5 7 2 6 3 1 4 8
5 7 2 6 3 1 8 4
5 7 4 1 3 8 6 2
5 8 4 1 3 6 2 7
5 8 4 1 7 2 6 3
6 1 5 2 8 3 7 4
6 2 7 1 3 5 8 4
6 2 7 1 4 8 5 3
6 3 1 7 5 8 2 4
6 3 1 8 4 2 7 5
6 3 1 8 5 2 4 7
6 3 5 7 1 4 2 8
6 3 5 8 1 4 2 7
6 3 7 2 4 8 1 5
6 3 7 2 8 5 1 4
6 3 7 4 1 8 2 5
6 4 1 5 8 2 7 3
6 4 2 8 5 7 1 3
6 4 7 1 3 5 2 8
6 4 7 1 8 2 5 3
6 8 2 4 1 7 5 3
7 1 3 8 6 4 2 5
7 2 4 1 8 5 3 6
7 2 6 3 1 4 8 5
7 3 1 6 8 5 2 4
7 3 8 2 5 1 6 4
7 4 2 5 8 1 3 6
7 4 2 8 6 1 3 5
7 5 3 1 6 8 2 4
8 2 4 1 7 5 3 6
8 2 5 3 1 7 4 6
8 3 1 6 2 5 7 4
8 4 1 3 6 2 7 5
Total de apariciones de las 8 reinas por casillas:
A B C D E F G H
-- -- -- -- -- -- -- --
1 - 4 8 16 18 18 16 8 4
2 - 8 16 14 8 8 14 16 8
3 - 16 14 4 12 12 4 14 16
4 - 18 8 12 8 8 12 8 18
5 - 18 8 12 8 8 12 8 18
6 - 16 14 4 12 12 4 14 16
7 - 8 16 14 8 8 14 16 8
8 - 4 8 16 18 18 16 8 4
y el código QBasic que lo genera (se dan errores en el listado adjunto, si alguien lo quiere, me lo solicita por privado):
OPEN "CAS_REIN.TXT" FOR OUTPUT AS #1
PRINT #1, " 92 Soluciones al problema: Ubicacion de 8 Reinas en tablero de 8x8 casillas": PRINT #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:
PRINT #1, s1; s2; s3; s4; s5; s6; s7; s8
IF s1 = 1 THEN tcas(1, 1) = tcas(1, 1) + 1
IF s1 = 2 THEN tcas(2, 1) = tcas(2, 1) + 1
IF s1 = 3 THEN tcas(3, 1) = tcas(3, 1) + 1
IF s1 = 4 THEN tcas(4, 1) = tcas(4, 1) + 1
IF s1 = 5 THEN tcas(5, 1) = tcas(5, 1) + 1
IF s1 = 6 THEN tcas(6, 1) = tcas(6, 1) + 1
IF s1 = 7 THEN tcas(7, 1) = tcas(7, 1) + 1
IF s1 = 8 THEN tcas(8, 1) = tcas(8, 1) + 1
IF s2 = 1 THEN tcas(1, 2) = tcas(1, 2) + 1
IF s2 = 2 THEN tcas(2, 2) = tcas(2, 2) + 1
IF s2 = 3 THEN tcas(3, 2) = tcas(3, 2) + 1
IF s2 = 4 THEN tcas(4, 2) = tcas(4, 2) + 1
IF s2 = 5 THEN tcas(5, 2) = tcas(5, 2) + 1
IF s2 = 6 THEN tcas(6, 2) = tcas(6, 2) + 1
IF s2 = 7 THEN tcas(7, 2) = tcas(7, 2) + 1
IF s2 = 8 THEN tcas(8, 2) = tcas(8, 2) + 1
IF s3 = 1 THEN tcas(1, 3) = tcas(1, 3) + 1
IF s3 = 2 THEN tcas(2, 3) = tcas(2, 3) + 1
IF s3 = 3 THEN tcas(3, 3) = tcas(3, 3) + 1
IF s3 = 4 THEN tcas(4, 3) = tcas(4, 3) + 1
IF s3 = 5 THEN tcas(5, 3) = tcas(5, 3) + 1
IF s3 = 6 THEN tcas(6, 3) = tcas(6, 3) + 1
IF s3 = 7 THEN tcas(7, 3) = tcas(7, 3) + 1
IF s3 = 8 THEN tcas(8, 3) = tcas(8, 3) + 1
IF s4 = 1 THEN tcas(1, 4) = tcas(1, 4) + 1
IF s4 = 2 THEN tcas(2, 4) = tcas(2, 4) + 1
IF s4 = 3 THEN tcas(3, 4) = tcas(3, 4) + 1
IF s4 = 4 THEN tcas(4, 4) = tcas(4, 4) + 1
IF s4 = 5 THEN tcas(5, 4) = tcas(5, 4) + 1
IF s4 = 6 THEN tcas(6, 4) = tcas(6, 4) + 1
IF s4 = 7 THEN tcas(7, 4) = tcas(7, 4) + 1
IF s4 = 8 THEN tcas(8, 4) = tcas(8, 4) + 1
IF s5 = 1 THEN tcas(1, 5) = tcas(1, 5) + 1
IF s5 = 2 THEN tcas(2, 5) = tcas(2, 5) + 1
IF s5 = 3 THEN tcas(3, 5) = tcas(3, 5) + 1
IF s5 = 4 THEN tcas(4, 5) = tcas(4, 5) + 1
IF s5 = 5 THEN tcas(5, 5) = tcas(5, 5) + 1
IF s5 = 6 THEN tcas(6, 5) = tcas(6, 5) + 1
IF s5 = 7 THEN tcas(7, 5) = tcas(7, 5) + 1
IF s5 = 8 THEN tcas(8, 5) = tcas(8, 5) + 1
IF s6 = 1 THEN tcas(1, 6) = tcas(1, 6) + 1
IF s6 = 2 THEN tcas(2, 6) = tcas(2, 6) + 1
IF s6 = 3 THEN tcas(3, 6) = tcas(3, 6) + 1
IF s6 = 4 THEN tcas(4, 6) = tcas(4, 6) + 1
IF s6 = 5 THEN tcas(5, 6) = tcas(5, 6) + 1
IF s6 = 6 THEN tcas(6, 6) = tcas(6, 6) + 1
IF s6 = 7 THEN tcas(7, 6) = tcas(7, 6) + 1
IF s6 = 8 THEN tcas(8, 6) = tcas(8, 6) + 1
IF s7 = 1 THEN tcas(1, 7) = tcas(1, 7) + 1
IF s7 = 2 THEN tcas(2, 7) = tcas(2, 7) + 1
IF s7 = 3 THEN tcas(3, 7) = tcas(3, 7) + 1
IF s7 = 4 THEN tcas(4, 7) = tcas(4, 7) + 1
IF s7 = 5 THEN tcas(5, 7) = tcas(5, 7) + 1
IF s7 = 6 THEN tcas(6, 7) = tcas(6, 7) + 1
IF s7 = 7 THEN tcas(7, 7) = tcas(7, 7) + 1
IF s7 = 8 THEN tcas(8, 7) = tcas(8, 7) + 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
PRINT: PRINT #1, " "
PRINT " Total de apariciones de las 8 reinas por casillas: ": PRINT
PRINT #1, " Total de apariciones de las 8 reinas por casillas: ": PRINT #1, " "
PRINT " A B C D E F G H": PRINT #1, " A B C D E F G H"
PRINT " -- -- -- -- -- -- -- --": PRINT #1, " -- -- -- -- -- -- -- --"
FOR w = 1 TO 8: PRINT USING " # - "; w;: PRINT #1, USING " # - "; w;
FOR w2 = 1 TO 8
PRINT USING " ##"; tcas(w, w2);: PRINT #1, USING " ##"; tcas(w, w2);
'PRINT #1, tcas(w);
NEXT w2: PRINT: PRINT #1, " "
NEXT w
CLOSE #1
LOCATE 25, 1: INPUT " Pulsa una tecla para finalizar. "; h: CLS: STOP
el Karma Instantáneo existe, REPARTE con los que COMPARTEN.