| Metodologia ricavata da un principio che il lettore ha denominato " teoria posizionale dei numeri" la quale afferma che tra i vari numeri estratti esiste un legame che dipende dalla posizione assunta dai medesimi nel quadro estrazionale.
La procedura è la seguente:
si debbono rintracciare nella tabella che riporta le estrazioni sulle varie ruote ad una stessa data, 2 numeri appartenenti alla medesima terzina simmetrica posizionati su una stessa ruota oppure su ruote diverse; in questo ultimo caso i due numeri debbono essere però isotopi. Allo stesso tempo vanno ricercati altri 2 numeri che ho denominati "equivalenti" la cui differenza rispetto ai primi due sia uguale a 50 unità; questi ultimi possono trovarsi anche su ruote diverse da quella/e su cui insistono i primi due.
Il valore 50 è determinato dalla quantità complessiva dei numeri estratti a cui corrispondono appunto 50 posizioni assunte dagli stessi.
Preciso che gli equivalenti dei numeri compresi tra 1 e 40 si ottengono sommando ad essi il fisso 50; quelli dei numeri che vanno dal 51 al 90 sono dati sottraendo dai medesimi lo stesso fisso; i numeri della quarantina (da 41 a 50) non hanno invece equivalenti, perciò
Una volta rintracciate le due coppie di numeri si procederà effettuando le somme orizzontali, verticali e diagonali delle stesse ottenendo 4 numeri diversi tra loro più 2 numeri ripetuti;
Riporto un esempio riferito alla data del 13/10/2005 in cui furono estratti sulle ruote di CA e NA i numeri 39 e 9 rispettivamente (stessa terzina simmetrica) in posizione isotopa ( il 9 era inoltre presente anche a RO); sulla stessa ruota di CA fu estratto l'89 (equivalente al 39) e a VE il 59 (equivalente al 9).
Si può quindi procedere al calcolo seguente:
9-39-89-59
9+39=48--9+89=8—9+59=68—39+89=38—39+59=8—89+59=58
Il Numero 8 Ripetuto sarà L’ambata
I numeri che abbineremo il 48,68,38,58
La lunghetta 8,48,68,38,58
Da ottimi risultati Ciao drago2940
Sub main()
Dim nu1(10),nu2(10)
Dim ruote(10),ruota(10)
Dim posta(10),poste(2),post(3)
poste(2)=1
k=14
ruota(1)=11
fin=EstrazioneFin
ini=fin-300
For es=ini To fin
Messaggio es
For r1=1 To 11
If r1=11 Then r1=12
ruote(1)=r1
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2) : ds1=Distanza(n1,n2)
If ds1=30 Then
If n1>50 Then a1=n1-50
If n1<50 And n1<>Decina(4) Then a1=n1+50
If n2>50 Then a2=n2-50
If n2<50 And n2<>Decina(4) Then a2=n2+50
For r2=1 To 11
If r2=11 Then r2=12
ruote(2)=r2
For p3=1 To 5
n3=Estratto(es,r2,p3)
If n3=a1 Then
For r3=1 To 11
If r3=11 Then r3=12
ruote(3)=r3
For p4=1 To 5
n4=Estratto(es,r3,p4)
If n4=a2 Then
casi=casi+1
Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo distanza 30 < "&Format2(n1)&"."&Format2 (n2)&" >"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > Numero Equivalente < "&Format2(n3)&" >"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r3)& " "& StringaEstratti(es,r3)&_
" > Numero Equivalente < "&Format2(n4)&" <"
Scrivi String(65,"-")&" caso n° "&(casi):co=0
b1=Fuori90(n1+n2)
b2=Fuori90(n1+n3)
b3=Fuori90(n1+n4)
b4=Fuori90(n2+n3)
b5=Fuori90(n2+n4)
b6=Fuori90(n3+n4)
If b1=b2 Or b1=b3 Or b1=b4 Or b1=b5 Or b1=b6 Then z1=b1
If b2=b1 Or b2=b3 Or b2=b4 Or b2=b5 Or b2=b6 Then z1=b2
If b3=b1 Or b3=b2 Or b3=b4 Or b3=b5 Or b3=b6 Then z1=b3
If b4=b1 Or b4=b3 Or b4=b2 Or b4=b5 Or b4=b6 Then z1=b4
If b5=b1 Or b5=b3 Or b5=b2 Or b5=b5 Or b5=b6 Then z1=b5
If b6=b1 Or b6=b2 Or b6=b3 Or b6=b4 Or b6=b5 Then z1=b6
nu1(1)=z1
nu1(2)=b1
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=z1
nu1(2)=b2
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=z1
nu1(2)=b3
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=z1
nu1(2)=b4
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=z1
nu1(2)=b5
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=z1
nu1(2)=b6
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu2(1)=Fuori90(n1+n2)
nu2(2)=Fuori90(n1+n3)
nu2(3)=Fuori90(n1+n4)
nu2(4)=Fuori90(n2+n3)
nu2(5)=Fuori90(n2+n4)
nu2(6)=Fuori90(n3+n4)
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
Next
Next
End If
Next
Next
End If
Next:Next:Next:next
ScriviResoconto
End Sub
Questo Trova la distanza 30 e i numeri equivalenti in verticale e isotopi
<sub main()
Dim nu1(10),nu2(10)
Dim ruote(10),ruota(10)
Dim posta(10),poste(2)
poste(2)=1
k=14
ruota(1)=11
fin=EstrazioneFin
ini=fin-200
For es=ini To fin
Messaggio es
For r1=1 To 11
If r1=11 Then r1=12
ruote(1)=r1
For p1=1 To 4
n1=Estratto(es,r1,p1)
For r2=1 To 11
If r2=11 Then r2=12
ruote(2)=r2
For p2=1 To 5
n2=Estratto(es,r2,p2) : ds1=Distanza(n1,n2)
If ds1=30 And p1=p2 Then
If n1>50 Then a1=n1-50
If n1<50 And n1<>Decina(4) Then a1=n1+50
If n2>50 Then a2=n2-50
If n2<50 And n2<>Decina(4) Then a2=n2+50
For r3=1 To 11
If r3=11 Then r3=12
ruote(3)=r3
For p3=1 To 5
n3=Estratto(es,r3,p3)
If n3=a1 Then
For r4=1 To 11
If r4=11 Then r4=12
ruote(4)=r4
For p4=1 To 5
n4=Estratto(es,r4,p4)
If n4=a2 And p2=p3 And p3=p4 Then
casi=casi+1
Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > 1^ Num. distanza 30 < "&Format2(n1)&" >"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > 2^ Num. distanza 30 < "&Format2(n2)&" >"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r3)& " "& StringaEstratti(es,r3)&_
" > Numero Equivalente < "&Format2(n3)&" <"
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r4)& " "& StringaEstratti(es,r4)&_
" > Numero Equivalente < "&Format2(n4)&" <"
Scrivi String(65,"-")&" caso n° "&(casi):co=0
b1=Fuori90(n1+n2)
b2=Fuori90(n1+n3)
b3=Fuori90(n1+n4)
b4=Fuori90(n2+n3)
b5=Fuori90(n2+n4)
b6=Fuori90(n3+n4)
If b1=b2 Or b1=b3 Or b1=b4 Or b1=b5 Or b1=b6 Then z1=b1
If b2=b1 Or b2=b3 Or b2=b4 Or b2=b5 Or b2=b6 Then z1=b2
If b3=b1 Or b3=b2 Or b3=b4 Or b3=b5 Or b3=b6 Then z1=b3
If b4=b1 Or b4=b3 Or b4=b2 Or b4=b5 Or b4=b6 Then z1=b4
If b5=b1 Or b5=b3 Or b5=b2 Or b5=b5 Or b5=b6 Then z1=b5
If b6=b1 Or b6=b2 Or b6=b3 Or b6=b4 Or b6=b5 Then z1=b6
nu1(1)=z1
nu1(2)=b1
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=z1
nu1(2)=b2
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=z1
nu1(2)=b3
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=z1
nu1(2)=b4
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=z1
nu1(2)=b5
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=z1
nu1(2)=b6
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu2(1)=Fuori90(n1+n2)
nu2(2)=Fuori90(n1+n3)
nu2(3)=Fuori90(n1+n4)
nu2(4)=Fuori90(n2+n3)
nu2(5)=Fuori90(n2+n4)
nu2(6)=Fuori90(n3+n4)
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
Next
Next
End If
Next
Next
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
|
