L'isocronismo simmetrico

circle77

Posted on 9/2/2020, 17:25

.

User deleted

Ciao a tutti belli e brutti

mi è capitato questo tra le mani

L'isocronismo simmetrico di Gianna Palumbo

molto interessante per certi versi.

X J-Gio91

per me è un vero mistero
sarebbe una piccola gioia riuscire a svelarlo

ho fatto lo script seguendo alla lettera tutte le istruzioni (rilette piu e piu volte).

infatti sembra beccare tutti i casi in maniera impeccabile.

ma ho provato a cercare proprio quei casi esposti nella statistica sull'articolo del giornale.

ho spostato il fine range in spaziometria e conteggiato solo in quei anni, ma non mi trova nemmeno un caso!
aNZI ME NE TROVA ALTRI MA NON QUELLI.

poi con il buco estrazionale proprio in quel periodo mi incasina pure le cose.

ho pensato di avere l'archivio sballato, invece ho controllato, e quei casi ci sono eccome!

per dincirindindina... (per non dire altro)

TUTTI GLI ALTRI CASI LI PASSA AL SETACCIO.

PERCHE NON TROVA PROPRIO QUELLI DELL'ARTICOLO?

Non mi sembra di aver sbagliato nulla ^_^

help me

ciao

questo è il resoconto degli ultimi 4 casi rintracciati in 500 estrazioni di analisi (tutti positivi)

TUTTI CON DOPPIA VINCITA AL 1° COLPO DI GIOCO!

CODICE

°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°1
07.11.2017 [ RO 68.28.02.10.69 [ TO 51.62.75.23.18
09.11.2017 [ RO 21.07.09.44.37 [ TO 61.22.21.08.25
07.11.2017 Ro 21 To 75 Isotopia Numerica Rispettata
09.11.2017 Ro 75 To 21 in 1° e in 3° Pos.
-----------------------------------------------------------------
Estrazione generatrice del pronostico 09393 [134 - 09/11/2017]
G 0001 Numeri in gioco : 21.75 su RO TO per Estratto
V N. [21.75 ] [RO] [75 .. .. .. ..] C. 1 Estratto 09394 [135 - 11/11/2017] [75.13.44.20.84]
V N. [21.75 ] [TO] [.. .. 21 .. ..] C. 1 Estratto 09394 [135 - 11/11/2017] [61.22.21.08.25]
Interrotta per esito verificato

°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°2
28.11.2017 [ GE 57.28.62.59.37 [ MI 83.22.32.74.81
30.11.2017 [ GE 63.59.22.62.32 [ MI 09.13.32.63.26
28.11.2017 Ge 63 Mi 74 Isotopia Numerica Rispettata
30.11.2017 Ge 74 Mi 63 in 1° e in 4° Pos.
-----------------------------------------------------------------
Estrazione generatrice del pronostico 09402 [143 - 30/11/2017]
G 0001 Numeri in gioco : 63.74 su GE MI per Estratto
V N. [63.74 ] [GE] [74 .. .. .. ..] C. 1 Estratto 09403 [144 - 02/12/2017] [74.72.89.90.59]
V N. [63.74 ] [MI] [.. .. .. 63 ..] C. 1 Estratto 09403 [144 - 02/12/2017] [09.13.32.63.26]
Interrotta per esito verificato

°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°3
19.04.2018 [ RO 16.07.10.33.38 [ TO 77.80.89.12.72
21.04.2018 [ RO 32.03.47.24.62 [ TO 57.06.32.29.87
19.04.2018 Ro 32 To 89 Isotopia Numerica Rispettata
21.04.2018 Ro 89 To 32 in 1° e in 3° Pos.
-----------------------------------------------------------------
Estrazione generatrice del pronostico 09463 [ 48 - 21/04/2018]
G 0001 Numeri in gioco : 32.89 su RO TO per Estratto
V N. [32.89 ] [RO] [89 .. .. .. ..] C. 1 Estratto 09464 [ 49 - 24/04/2018] [89.23.19.02.66]
V N. [32.89 ] [TO] [.. .. 32 .. ..] C. 1 Estratto 09464 [ 49 - 24/04/2018] [57.06.32.29.87]
Interrotta per esito verificato

°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°4
09.01.2020 [ RO 65.16.03.45.34 [ TO 08.33.11.51.06
11.01.2020 [ RO 88.81.54.24.90 [ TO 48.76.88.72.13
09.01.2020 Ro 88 To 11 Isotopia Numerica Rispettata
11.01.2020 Ro 11 To 88 in 1° e in 3° Pos.
-----------------------------------------------------------------
Estrazione generatrice del pronostico 09733 [ 5 - 11/01/2020]
G 0001 Numeri in gioco : 88.11 su RO TO per Estratto
V N. [88.11 ] [RO] [11 .. .. .. ..] C. 1 Estratto 09734 [ 6 - 14/01/2020] [11.26.28.69.44]
V N. [88.11 ] [TO] [.. .. 88 .. ..] C. 1 Estratto 09734 [ 6 - 14/01/2020] [48.76.88.72.13]
Interrotta per esito verificato

****************************************************************************************************
casi trovati : 4

SCRIPT BY CIRCLE77
+----------------------------------------+
| Prima Giocata : 9393 |
| Ultima Giocata : 9733 |
| Range : 341 |
| Casi giocab perc. : 1,173% |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| RESOCONTO | | DISTRIBUZIONE ESITI | | DISTRIBUZIONE ESITI PERCENTUALI | | DISTRIBUZIONE CASI |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati : 4 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT | Q | |
| Casi vincenti : 4 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos. : 100 % | | BA | | | | | | | BA | | | | | | | BA | | |
| Pronostici totali : 4 | | CA | | | | | | | CA | | | | | | | CA | | |
| Pronostici vinc. : 4 | | FI | | | | | | | FI | | | | | | | FI | | |
| Percentuale pos. : 100 % | | GE | 1| | | | | | GE | 12,5| | | | | | GE | 1| |
| Giocate in corso : 0 | | MI | 1| | | | | | MI | 12,5| | | | | | MI | 1| |
| Giocate terminate : 4 | | NA | | | | | | | NA | | | | | | | NA | | |
| Bollette giocate : 8 | | PA | | | | | | | PA | | | | | | | PA | | |
| Bollette vincenti : 8 | | RO | 3| | | | | | RO | 37,5| | | | | | RO | 3| |
| Attesa media : 1 | | TO | 3| | | | | | TO | 37,5| | | | | | TO | 3| |
| Spesa : 8,00 € | | VE | | | | | | | VE | | | | | | | VE | | |
| Vincita : 42,26 € | | NZ | | | | | | | NZ | | | | | | | NZ | | |
| Guadagno : 34,26 € | | TT | | | | | | | TT | | | | | | | TT | | |
| Perc. Rendimento : 428,28 % | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Mass. Esposizione : 2,00 € |
| Estratto su ruota : 8 |
| |
+----------------------------------------+

Questo è lo script

CODICE

Sub Main()
'L'ISOCRONISMO SIMMETRICO DI Gianna Palumbo
Dim rs,fin,Ini,es,r,r2,p1,p2,a,b,p3,p4,c,d,k,co
Dim posta(1)
Dim ruote(2)
Dim am(2)
posta(1) = 1
rs = InputBox("Quante estrazioni vuoi controllare?",,500)'5623)' dal 1950 senza buchi estrazionali
k = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
fin = EstrazioneFin
Ini = fin - rs
co = 0
ruote(1) = r
ruote(2) = r2
For es = Ini To fin
AvanzamentoElab Ini,fin,es
For r = 1 To 9
For r2 = r + 1 To r + 1
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r,p1)
b = Estratto(es,r2,p2)
If es < EstrazioneFin Then
For p3 = 1 To 4
For p4 = p3 + 1 To 5
c = Estratto(es + 1,r,p3)
d = Estratto(es + 1,r2,p4)
If(a = d And b = c) Then
If(d = a And c = b) Then
If p1 = p3 And p2 = p4 Then
am(1) = a
am(2) = b
ruote(1) = r
ruote(2) = r2
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es - 1) & " [ " & SiglaRuota(r) & " " & StringaEstratti(es - 1,r) & " [ " & SiglaRuota(r2) & " " & StringaEstratti(es,r2),1,,,1
Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " [ " & SiglaRuota(r2) & " " & StringaEstratti(es + 1,r2),1,,,1
Scrivi DataEstrazione(es - 1) & " " & Left(NomeRuota(r),2) & " " & Format2(a) & " " & Left(NomeRuota(r2),2) & " " & Format2(b) & " Isotopia Numerica Rispettata "
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),2) & " " & Format2(c) & " " & Left(NomeRuota(r2),2) & " " & Format2(d) & " in " & p1 & "° e in " & p2 & "° Pos."
Scrivi "-----------------------------------------------------------------"
ImpostaGiocata 1,am,ruote,posta,k,1
Gioca es,1,,1
End If
End If
End If
Next
Next
End If
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" SCRIPT BY CIRCLE77 "),1,3,0
ScriviResoconto
End Sub

.

circle77

Posted on 9/2/2020, 17:56

.

User deleted

^
^
^

.

J-Gio91

Posted on 10/2/2020, 21:10

.

Advanced Member

Group: Member

Posts: 1,601

Status: Offline

Bho !?!?! è un vero mistero.

Ogni codice diverso produce risultati diversi:

06.05.2010 GE 80 70 46 71 34 
08.05.2010 MI 51 71 26 70 31 
------------------------------
08.01.2011 MI 15 18 23 81 03 
11.01.2011 NA 23 37 15 16 07 
------------------------------
18.10.2011 NA 22 86 21 14 73 
20.10.2011 PA 86 22 30 41 05 
------------------------------
05.07.2014 PA 61 63 08 42 50 
08.07.2014 RO 08 02 61 55 27 
------------------------------
24.12.2014 TO 44 41 88 58 60 
27.12.2014 VE 88 74 44 33 81 
------------------------------
16.07.2015 BA 80 89 06 46 60 
18.07.2015 CA 44 06 89 28 88 
------------------------------
24.12.2015 FI 36 29 32 82 79 
28.12.2015 GE 89 32 29 05 07 
------------------------------
19.03.2016 MI 87 46 84 02 79 
22.03.2016 NA 46 87 30 37 36 
------------------------------
16.05.2017 NA 89 33 02 76 27 
18.05.2017 PA 33 89 42 30 50 
------------------------------
19.12.2017 NA 15 52 49 41 72 
21.12.2017 PA 41 51 39 15 16 
------------------------------
15.09.2018 BA 24 71 77 03 84 
18.09.2018 CA 77 17 24 70 69 
------------------------------
16.01.2020 MI 41 26 15 63 22 
18.01.2020 NA 22 77 89 19 41

Mi riservo di controllare meglio ... anche se prevedo sarà difficile trovare una quadra.

.

circle77

Posted on 11/2/2020, 00:44

.

User deleted

ho incominciato a fare script un po per sean e un po perchè me la quasi ordinato il dottore.
la memoria faceva un po cilecca...
le parole crociate son pallose a un certo punto. rispolverare spaziometria è stata una benedizione
poi se ti piace non ce niente di meglio per passatempo
risolvere certi problemi matematici è molto piu intrigante.
Questa volta è veramente strano
cavolo, lo script non avrebbe dovuto farseli sfuggire,
mi sembra di aver rispettato al 100% le condizioni di ricerca.
non mi ci sto proprio racapezzando. è assurdo!
tu non hai usato il mio script.
e te ne escono altri che il mio script non prende?
e i casi sul giornale nemmeno tu li prendi?
ma che succede? non mi sembra possibile!

Che vuoi dire con : "ogni codice diverso produce risultati diversi."

rileggo lo script e rileggo le condizioni

ma veramente sono basito senza parole

se riesci a venirne a capo ti prego illuminami che stanotte non c'ho quasi dormito

ciao mister J-Gio l'unico e irripetibile

.

J-Gio91

Posted on 11/2/2020, 09:58

.

Advanced Member

Group: Member

Posts: 1,601

Status: Offline

Riassumo cosa ho fatto per sommi capi.

Ho modificato un pò il tuo script semplificandolo.

Ad un certo punto i risultati "cambiavano"

nonostante secondo me le correzioni avrebbero dovuto essere "giuste".

Allora ho fatto un altro script "tutto mio" con un algoritmo diverso.

Ed ha prodotto risultati ancora diversi.

Ieri sera ne ho fatto un terzo ... ancora diverso ...

ed è quello che produce i risultati che ho allegato che apparentemente sembrano ancora differenti.

Pertanto e per ora sto cercando di riassumere e rendere "facilmente" confrontabili "i casi"

elencati nelle varie ri-edizioni della proposta iniziale ...

così da poterli contare, confrontare, convalidare, confermare ... o meno.

.

90TheFear

Posted on 11/2/2020, 12:12

.

User deleted

hei, lo conosco questo di Gianna Palumbo!

ci ho avuto a che fare in passato.

sono andato a riprenderlo...

sto diventando scemo...

Isocronismo Misterioso... <_<

.

J-Gio91

Posted on 11/2/2020, 19:28

.

Advanced Member

Group: Member

Posts: 1,601

Status: Offline

Buona serata a tutte/i.

Fortunatamente la descrizione di questo buon metodo statistico è completata da parecchi esempi,

dunque si può pervenire a quale algoritmo meglio lo rappresenta.

Il resoconto (severissimo come sempre) riferisce di un nulla di miracoloso.

Tuttavia questa tecnica fornisce indicazioni per "pochi casi" composti

da "pochi numeri" che in grande percentuale,

realizzano l'obiettivo entro "pochi colpi".

Per confronto con gli esempi proposti :

------------------------------------------------ 1
13.07.1940 RO 66 06 80 39 56  TO 55 21 81 79 27 
20.07.1940 RO 74 45 76 54 81  TO 23 41 56 46 80 
------------------------------------------------ 2
14.09.1940 CA 62 52 44 89 50  FI 70 45 33 60 66 
21.09.1940 CA 27 60 15 35 65  FI 22 83 18 52 76 
------------------------------------------------ 3
28.06.1941 FI 16 38 80 86 64  GE 45 56 82 79 86 
05.07.1941 FI 30 87 76 82 21  GE 62 26 86 75 08 
------------------------------------------------ 4
20.09.1941 GE 42 14 60 57 37  MI 10 05 81 70 36 
27.09.1941 GE 81 73 43 03 54  MI 36 12 42 48 82 
------------------------------------------------ 5
29.11.1941 GE 05 07 02 35 30  MI 60 05 82 32 46 
06.12.1941 GE 40 08 14 42 82  MI 19 74 30 77 71 
------------------------------------------------ 6
25.07.1942 NA 28 07 17 70 26  PA 40 71 79 47 03 
01.08.1942 NA 10 45 40 02 84  PA 17 52 48 74 82 
------------------------------------------------ 7
01.08.1942 FI 24 58 66 16 61  GE 89 33 34 64 88 
08.08.1942 FI 03 66 33 41 84  GE 09 66 07 62 15 
------------------------------------------------ 8
26.12.1942 GE 59 37 43 55 07  MI 79 20 64 44 40 
02.01.1943 GE 19 64 09 43 85  MI 06 73 37 69 70 
------------------------------------------------ 9
31.07.1943 RO 79 48 30 38 32  TO 25 68 81 39 04 
07.08.1943 RO 59 68 86 12 46  TO 56 48 29 89 76 
------------------------------------------------ 10
06.05.1944 TO 72 89 57 74 40  VE 72 10 24 85 38 
13.05.1944 TO 48 33 14 60 24  VE 05 46 40 74 24 
------------------------------------------------ 11
27.01.1945 MI 73 15 37 14 64  NA 57 23 38 36 59 
03.02.1945 MI 04 25 17 23 16  NA 12 14 28 56 81 
------------------------------------------------ 12
05.01.1946 MI 40 51 58 48 61  NA 56 60 74 37 41 
12.01.1946 MI 60 16 09 23 86  NA 62 40 64 81 26 
------------------------------------------------ 13
22.02.1947 FI 88 51 66 78 36  GE 13 90 79 24 36 
01.03.1947 FI 11 39 08 76 24  GE 77 10 47 36 85

Edited by J-Gio91 - 12/2/2020, 09:33

.

J-Gio91

Posted on 12/2/2020, 10:08

.

Advanced Member

Group: Member

Posts: 1,601

Status: Offline

Questa pagina di storia,

mi ricorda un pò quella di Cristoforo Colombo

l'uomo del circolo che ... partito per le Indie ... scopre l'America.

In sintesi ... è tutto un altro metodo!

Per capirlo e per spiegarmi, ho preso (tutti) gli esempi

e li ho disposti in sintesi ordinati in un foglio excel.

Poi alla nuova ENNESIMA PROVA ho ottenuto i risultati che ho già inserito al messaggio precedente.

Abbinandoli e confrontandoli sono tutti uguali.

Anche se il mio script ne elenca alcuni in più.

Ora ... dopo molti tentativi differenti questo script è molto ingarbugliato.

Però ha la possibilità e la caratteristica, di contenere l'algoritmo necessario alla soluzione.

Può essere semplificato, fino a distillarne l'essenziale.

Termino con l'immagine ove è riassunto quanto ho accennato.

Evidentemente con essa abbiamo il confronto di uguaglianza

tra quanto proposto nel testo originale ed i risultati dello script.

Cioè si può affermare che i risultati di tutti gli esempi presi dalla rivista (la colonna sinistra)

sono stati tutti rintracciati dallo script e sono elencati nella colonna di destra.

Dunque si ha la prova e si è al cospetto di una possibile soluzione.

... segue

Edited by J-Gio91 - 13/2/2020, 15:02

Attached Image

.

J-Gio91

Posted on 12/2/2020, 12:17

.

Advanced Member

Group: Member

Posts: 1,601

Status: Offline

Buon giorno a tutte/i.

Per la costruzione del nuovo script si devono osservare

alcune cose peraltro necessarie ed utili ad organizzare le variabili.

Le estrazioni, riportate negli esempi sono tra il 1939 ed 1947

Cioè riferite ad estrazioni con indice tra 3600 e 4000.

Riguardano 2 Date / 2 Ruote / 2 Posizioni.

Quindi è utile dimensionare le variabili ed attribuire loro un valore.

CODICE

Ini = 3600 : Fin = 4000

For Es = Ini To Fin ' dove Es diventa ed è l'estrazione attuale.
Ex = Es-1 'con cui si stabilisce che Ex è l'estrazione precedente.
For Res = 2 To 10 'Ruota Principale dell'estrazione Es
Rex = Res-1 'Ruota Precedente
For P = 1 To 5 'Per le 5 posizioni Attuali"
For Q = 1 To 5 'Per le 5 posizioni Precedenti"

'A,B,C,D per contenere la lettura dei 4 estratti da controllare.

Relativamente a P & Q mi permetto di sottolineare che

le posizioni potranno essere 1.2 / 1.3 / 1.4 ... fino a 4.5

Ma anche 5.4 e 5.1 ed anche 3.3 come 1.1.

Dunque per esse ...

NON si può utilizzare lo sviluppo combinatorio per 10 coppie di posizioni.

Perché gli scambi possono avvenire in 25 coppie di posizioni.

come (lottologicamente) i numeri possono scambiarsi ANCHE in una sola posizione.

... segue

Edited by J-Gio91 - 12/2/2020, 14:47

.

circle77

Posted on 12/2/2020, 15:12

.

User deleted

ecco cosa mi mancava, grazie J-Gio

le posizioni mi hanno fregato, non riuscivo a pensarci.

quindi io non ho fatto altro che prendere le classiche posizioni, ma non ho tenuto conto del resto che hai spiegato ottimamente.

io per il momento ho solo modificato il mio script per saltare le estrazioni che al posto dell'estratto c'è uno zero (estrazioni non fatte per guerra, ecc.)

Edited by circle77 - 12/2/2020, 22:32

.

J-Gio91

Posted on 12/2/2020, 15:20

.

Advanced Member

Group: Member

Posts: 1,601

Status: Offline

Un pò tra le righe nel messaggio precedente

e qui più esplicitamente, abbiamo detto che si possono legare tra loro

le estrazioni e le ruote. (in relazione del +/- 1 )

Mentre PER LE POSIZIONI NON E' POSSIBILE STABILIRE UN ORDINE.

Con riferimento a quanto già presentato

IMPONIAMO ESSERE "P" la Posizione della ruota e della Estrazione PRINCIPALE.

Di conseguenza "Q" diventa la Posizione SECONDARIA.

abbiamo:

13.07.1940 RO 66 06 80 39 56  TO 55 21 81 79 27 
20.07.1940 RO 74 45 76 54 81  TO 23 41 56 46 80

PERO' SE ... Es è seconda in ordine numerico in quanto è una data

e la Ruota Principale (Res) è anch'essa per seconda

in quanto Res = Rex+1 (dove Rex è in ordine numerico e scritta prima di Res) ...

Questo fa si che la prima variabile "A" non sia in alto a sinistra ma in basso a destra.

Posizionare correttamente le letture delle variabili è l'unica cosa veramente difficile.

A = Estratto (Es,Res,P) '= 56

B = Estratto (Ex,Rex,Q) '= 56

C = Estratto(Es,Rex,Q) '= 81

D = Estratto(Ex,Res,P) '= 81

Dunque la parte della ricerca statistica ed il ritrovamento della condizione cercata

termina con un semplice controllo:

If A= B And C= D Then

.... 'formazione giocata / controllo dei risultati.

End If

C'è solo da aggiungere e non dimenticare quando e quanto Circle77 ha riferito,

scrivendo di "estrazioni vuote"

Estrazioni nelle quali A,B,C e D potrebbero essere uguali tra loro perché sono essi-stessi degli "Zero".

Dunque è opportuno anteporre If A<>0 and B<> 0 and C<>0 And D<>0 Then

prima del test condizionale If A= B And C= D Then

Scrivi DataEstrazione(Es) & " " & A & " " & B & " " & C & " " & D

Con cui ci è permesso di controllare l'allineamento di date e numeri.

Edited by J-Gio91 - 12/2/2020, 18:30

.

circle77

Posted on 12/2/2020, 15:28

.

User deleted

grazie dell'ottima spegazione

mi sono accorto dopo che il mio script e sbagliato per via del "es+1" e "es-1".

chi legge non tenga conto dello script iniziale (è una mia svista,scusate)

ciao

Edited by circle77 - 12/2/2020, 22:34

.

J-Gio91

Posted on 12/2/2020, 16:23

.

Advanced Member

Group: Member

Posts: 1,601

Status: Offline

Ecco tutta la parte della ricerca statistica

ed una semplice visualizzazione dei risultati trovati.

CODICE

Option Explicit
Sub Main
Dim Ini,Fin,Es,Ex,Res,Rex,P,Q,A,B,C,D
Ini = 3600 : Fin = 4000
For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es : Ex = Es - 1
For Res = 2 To 10 : Rex = Res - 1
For P = 1 To 5
For Q = 1 To 5
A = Estratto(Es,Res,P) : B = Estratto(Ex,Rex,Q)
C = Estratto(Es,Rex,Q) : D = Estratto(Ex,Res,P)
If A <> 0 And B <> 0 And C <> 0 And D <> 0 Then
If A = B And C = D Then
Scrivi DataEstrazione(Es) & " ",0,0
Scrivi SiglaRuota(Rex) & " ",0,0
Scrivi SiglaRuota(Res) & " ",0,0
Scrivi Format2(B) & "." & Format2(C)
End If
End If
Next
Next
Next
Next
End Sub

.

sean69

Posted on 12/2/2020, 18:06

.