vincenzo1957
Junior Member
innanzi tutto buona domenica a tutti!
sono nuovo come iscritto ma vi seguo da un bel pò.
Avrei un metodo,fatto intorno all'anno 2000 come da titolo fatto da me da una idea del Prof M. Palumbo sulla diametria dei numeri e riadattato.
il metodo e questo:
Per applicare il metodo bisogna rintracciare su 2 coppie di ruote (non ha importanza se consecutive o diametrali) 2 numeri isotopi uguali e che abbiano distanza cifraria uguale.
Es. del 03/03/1999 N° 18
Ba 51 Ca 62 Mi 51 Na 62
5-1=4
Uguale distanza tra le cifre
6-2=4
Adesso si fà una progressione:
62-51=11
51-11=40 & 62+11=73
(con eventuale fuori 90)
Abbiamo ottenuto i numeri 40-73 che sono gli abbinamenti per ambo.
51+62=40+73=23 . Questo é l’abbinamento per Quaterna.
45(FISSO) – 23=22 Capogioco
22+45(FISSO)=67
22+67=89 Questo è l’abbinamento per terno.
Infine il vertibile dell’abbinamento x quaterna
é l’abbinamento per la cinquina, quindi:
23 vertibile 32
(tutte le operazioni si intendono col fuori 90)
Previsione: BA/CA/MI/NA
Ambi 22-40 / 22-73
Terni 22-40-89 / 22-73-89
Quaterne 22-40-89-23 / 22-73-89-23
Cinquine 22-40-89-23-32 / 22-73-89-23-32
Esito: 9° colpo Ca
22-73
22-73-89
22-73-89-23
22-73-89-23-32
Il gioco va seguito x max 10 estrazioni.
Controllare esiti di sfaldamento anticipati.
ho abbozzato uno script ma mi sono perso
Codice:
Sub Main()
Dim ruota(10)
Dim posta(5)
Dim n(10)
posta(1) = 1
k = 10 '<-------- numero colpi
ini = 6790 '<---- estrazione di inizio ricerca ( 3950 inizio Archivio senza buchi estrazionali 14-09-1946 )
fin = 6790
For es = ini To fin '<------------------------------- ciclo estrazioni da controllare
For r1 = 1 To 7 '<---------------------------- ciclo prima ruota
For r2 = r1 + 1 To 8 '<--------------------- ciclo seconda ruota
For r3 = r2 + 1 To 9 '<---------- ciclo terza ruota
For r4 = r3 + 1 To 11 '<---------- ciclo quarta ruota
For p = 1 To 5 '<-------------------------------- ciclo posizione estratti
a = Estratto(es,r1,p) '<------------------ estratto prima ruota
b = Estratto(es,r2,p) '<------------- estratto secondo ruota
c = Estratto(es,r3,p) '<---- estratto terza ruota
d = Estratto(es,r4,p) '<---- estratto quarta ruota
Figura(a)
Figura(b)
Figura(c)
Figura(d)
x1 = Decina(a) - Cadenza(a)
If Cadenza(a) > Decina(a) Then
x1 = Cadenza(a) - Decina(a)
End If
x2 = Decina(b) - Cadenza(b)
If Cadenza(b) > Decina(b) Then
x2 = Cadenza(b) - Decina(b)
End If
x3 = Decina(c) - Cadenza(c)
If Cadenza(c) > Decina(c) Then
x3 = Cadenza(c) - Decina(c)
End If
x4 = Decina(d) - Cadenza(d)
If Cadenza(d) > Decina(d) Then
x4 = Cadenza(d) - Decina(d)
End If
'la linea seguente è da ricontrollare
If a = b And c = d And x1 = x2 And x3 = x4 Or a = c And b = d And x1 = x3 And x2 = x4 Or a = d And b = c And x1 = x4 And x2 = x3 Then '<-- se trova due estratti uguali cerca anche il terzo
y1 = Abs(a - b)
y2 = Fuori90(a + y1)
If y2 = b Then
y2 = Fuori90(b + y1)
y3 = Abs(a - y1)
Else
y2 = Fuori90(b + y1)
If y2 = a Then
y2 = Fuori90(a + y1)
y3 = Abs(b - y1)
End If
End If
Scrivi "_________________________________________________ _______________"
Scrivi
Scrivi "Numeri ripetuti isotopi su " & NomeRuota(r1) & " " & CInt(a) & " " & NomeRuota(r2) & " " & CInt(b) & " " & NomeRuota(r3) & " " & CInt(c) & " " & NomeRuota(r4) & " " & CInt(d)
ruota(1) = r1 ' <----- prima ruota
ruota(2) = r2 ' <----- seconda ruota
ruota(3) = r3 '<----- terza ruota
ruota(4) = r4 '<----- quarta ruota
n(1) = Vert(a) '<----- numero da giocare
n(2) = Vert(b) '<----- numero da giocare
Scrivi n(1) '<----- numero da giocare
Scrivi n(2) '<----- numero da giocare
'queste linee mi servivano a capire cosa fà il programma
'Scrivi "Distanza cifre"
'Scrivi x1
'Scrivi x2
'Scrivi x3
'Scrivi x4
'Scrivi "Figure"
'Scrivi Figura(a)
'Scrivi Figura(b)
'Scrivi Figura(c)
'Scrivi Figura(d)
'Scrivi "Decine"
'Scrivi Decina(a)
'Scrivi Decina(b)
'Scrivi Decina(c)
'Scrivi Decina(d)
'Scrivi "cadenze"
'Scrivi Cadenza(a)
'Scrivi Cadenza(b)
'Scrivi Cadenza(c)
'Scrivi Cadenza(d)
'Scrivi y1
'Scrivi y2
'Scrivi y3
'------------------------------------------------------------------
ImpostaGiocata 1,n,ruota,posta,k,1 '<--- imposta la giocata
Gioca es '<----------------------------- gioca la formazione impostata
End If
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
Function DiametraleInDecina(numero)
numero = Fuori90(numero)
If numero Mod 10 < 6 Then
DiametraleInDecina = Fuori90(numero + 5)
Else
DiametraleInDecina = numero - 5
End If
End Function
grazie dell'attenzione!
P.S. lo script in origine era con l'8 adesso con spaziometria.
sono nuovo come iscritto ma vi seguo da un bel pò.
Avrei un metodo,fatto intorno all'anno 2000 come da titolo fatto da me da una idea del Prof M. Palumbo sulla diametria dei numeri e riadattato.
il metodo e questo:
Per applicare il metodo bisogna rintracciare su 2 coppie di ruote (non ha importanza se consecutive o diametrali) 2 numeri isotopi uguali e che abbiano distanza cifraria uguale.
Es. del 03/03/1999 N° 18
Ba 51 Ca 62 Mi 51 Na 62
5-1=4
Uguale distanza tra le cifre
6-2=4
Adesso si fà una progressione:
62-51=11
51-11=40 & 62+11=73
(con eventuale fuori 90)
Abbiamo ottenuto i numeri 40-73 che sono gli abbinamenti per ambo.
51+62=40+73=23 . Questo é l’abbinamento per Quaterna.
45(FISSO) – 23=22 Capogioco
22+45(FISSO)=67
22+67=89 Questo è l’abbinamento per terno.
Infine il vertibile dell’abbinamento x quaterna
é l’abbinamento per la cinquina, quindi:
23 vertibile 32
(tutte le operazioni si intendono col fuori 90)
Previsione: BA/CA/MI/NA
Ambi 22-40 / 22-73
Terni 22-40-89 / 22-73-89
Quaterne 22-40-89-23 / 22-73-89-23
Cinquine 22-40-89-23-32 / 22-73-89-23-32
Esito: 9° colpo Ca
22-73
22-73-89
22-73-89-23
22-73-89-23-32
Il gioco va seguito x max 10 estrazioni.
Controllare esiti di sfaldamento anticipati.
ho abbozzato uno script ma mi sono perso
Codice:
Sub Main()
Dim ruota(10)
Dim posta(5)
Dim n(10)
posta(1) = 1
k = 10 '<-------- numero colpi
ini = 6790 '<---- estrazione di inizio ricerca ( 3950 inizio Archivio senza buchi estrazionali 14-09-1946 )
fin = 6790
For es = ini To fin '<------------------------------- ciclo estrazioni da controllare
For r1 = 1 To 7 '<---------------------------- ciclo prima ruota
For r2 = r1 + 1 To 8 '<--------------------- ciclo seconda ruota
For r3 = r2 + 1 To 9 '<---------- ciclo terza ruota
For r4 = r3 + 1 To 11 '<---------- ciclo quarta ruota
For p = 1 To 5 '<-------------------------------- ciclo posizione estratti
a = Estratto(es,r1,p) '<------------------ estratto prima ruota
b = Estratto(es,r2,p) '<------------- estratto secondo ruota
c = Estratto(es,r3,p) '<---- estratto terza ruota
d = Estratto(es,r4,p) '<---- estratto quarta ruota
Figura(a)
Figura(b)
Figura(c)
Figura(d)
x1 = Decina(a) - Cadenza(a)
If Cadenza(a) > Decina(a) Then
x1 = Cadenza(a) - Decina(a)
End If
x2 = Decina(b) - Cadenza(b)
If Cadenza(b) > Decina(b) Then
x2 = Cadenza(b) - Decina(b)
End If
x3 = Decina(c) - Cadenza(c)
If Cadenza(c) > Decina(c) Then
x3 = Cadenza(c) - Decina(c)
End If
x4 = Decina(d) - Cadenza(d)
If Cadenza(d) > Decina(d) Then
x4 = Cadenza(d) - Decina(d)
End If
'la linea seguente è da ricontrollare
If a = b And c = d And x1 = x2 And x3 = x4 Or a = c And b = d And x1 = x3 And x2 = x4 Or a = d And b = c And x1 = x4 And x2 = x3 Then '<-- se trova due estratti uguali cerca anche il terzo
y1 = Abs(a - b)
y2 = Fuori90(a + y1)
If y2 = b Then
y2 = Fuori90(b + y1)
y3 = Abs(a - y1)
Else
y2 = Fuori90(b + y1)
If y2 = a Then
y2 = Fuori90(a + y1)
y3 = Abs(b - y1)
End If
End If
Scrivi "_________________________________________________ _______________"
Scrivi
Scrivi "Numeri ripetuti isotopi su " & NomeRuota(r1) & " " & CInt(a) & " " & NomeRuota(r2) & " " & CInt(b) & " " & NomeRuota(r3) & " " & CInt(c) & " " & NomeRuota(r4) & " " & CInt(d)
ruota(1) = r1 ' <----- prima ruota
ruota(2) = r2 ' <----- seconda ruota
ruota(3) = r3 '<----- terza ruota
ruota(4) = r4 '<----- quarta ruota
n(1) = Vert(a) '<----- numero da giocare
n(2) = Vert(b) '<----- numero da giocare
Scrivi n(1) '<----- numero da giocare
Scrivi n(2) '<----- numero da giocare
'queste linee mi servivano a capire cosa fà il programma
'Scrivi "Distanza cifre"
'Scrivi x1
'Scrivi x2
'Scrivi x3
'Scrivi x4
'Scrivi "Figure"
'Scrivi Figura(a)
'Scrivi Figura(b)
'Scrivi Figura(c)
'Scrivi Figura(d)
'Scrivi "Decine"
'Scrivi Decina(a)
'Scrivi Decina(b)
'Scrivi Decina(c)
'Scrivi Decina(d)
'Scrivi "cadenze"
'Scrivi Cadenza(a)
'Scrivi Cadenza(b)
'Scrivi Cadenza(c)
'Scrivi Cadenza(d)
'Scrivi y1
'Scrivi y2
'Scrivi y3
'------------------------------------------------------------------
ImpostaGiocata 1,n,ruota,posta,k,1 '<--- imposta la giocata
Gioca es '<----------------------------- gioca la formazione impostata
End If
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
Function DiametraleInDecina(numero)
numero = Fuori90(numero)
If numero Mod 10 < 6 Then
DiametraleInDecina = Fuori90(numero + 5)
Else
DiametraleInDecina = numero - 5
End If
End Function
grazie dell'attenzione!
P.S. lo script in origine era con l'8 adesso con spaziometria.
Ultima modifica:
rolleyes: quasi 20 anni fà) pubblicato un articolo sull'argomento che se non vado errato era: OGGI è DI SCENA IL FISSO 45.
.
