Enplein |
|
| CITAZIONE Osservando bene le due estrazioni consecutive di riferimento ho notato alcuni importanti particolare che serviranno di sicuro x avre un pronostico più affidabile:
Napoli 14 Gennaio 1802: 76.28.65.77.33
Napoli 30 Gennaio 1802: 41.60.61.59.63.
41.60.61.59.63 = somma dei 5 =284 fuori 90 = 14
Se osservi il 14 è il complemento a 90 del primo estratto della prima estarzione e cioè il 76 ...76+14=90
Quindi suppongo che questa sia una delle più importanti condizioni da ricercare nel quadro estrazionale.
Altra cosa a mio avviso importante visto che qui si tratta di equazion ia 90 , noto che se sommiamo il 2/3/4 estartto della seconda estrazione vi è la somm 90...infatti :60+61+59 =180 (90)
Altro particolare : 1° estratto prima estrazione =76
2°estratto seconda estrazione=41
76+41 = 27 a 90 = 63 che sarebbe il 5 ° estratto della seconda estrazione : 27+63 =90
ulteriore indizio :41+63 (1°e 5°estratto seconda estrazione) = ancora 14 che col 76 (primo estratto della prima estrazione) fà sempre 90
------------------------------------------------------------
Sarebbe molto utile un listato che vada a ricercare almeno 1 o 2 di queste condizioni sempre a ruota unica in 2 estrazioni successive
Oltre alle condizioni elencate da Luana, ho impostato la ricerca su 2 ruote in un range di estrazioni retroattive
da inserire con un inputbox.
Nella speranza di non aver commesso errori, inserisco lo script Byron 5x7 su 2 ruote.
Ciao, Enplein.Sub main()
Dim poste(5),posta(1)
Dim ruote(3),ruota(2)
Dim nr1(7),nr2(7),nr3(7),nr4(7),nr5(6)
Dim num(11),amb(2),lg(3)
Dim so(6)
Dim di(11)
Dim df1(6),df2(5)
Dim nume(90)
ColoreTesto 1
Scrivi : Scrivi
Scrivi " Lord Byron 5x7 cinquine a somma 90 su due ruote X Luana Forum LottoGam",1
Scrivi
Scrivi " Sviluppato e Programmato da Enplein.",1
Scrivi : Scrivi
ColoreTesto 0
qt=CInt (InputBox ("Quante estrazioni retroattive vuoi controllare?",,90))
t=0
fine=EstrazioneFin
ini=fine-500
For es=ini To fine
For r1=1 To 11
If r1=11 Then r1=12
Erase num
For i=1 To 5
num(i+5)=Estratto (es,r1,i)
Next
se2=Fuori90 (SommaEstratti (es,r1))
'1a condizione
If Fuori90 (num(7)+num(8)+num(9))=90 And Fuori90 (num(6)+num(10))=se2 Then
For r2=1 To 11
If r2=11 Then r2=12
'Ciclo per estrazioni retroattive
ok=0
For w=0 To qt
For i=1 To 5
num(i)=Estratto (es-w,r2,i)
Next
se1=Fuori90 (SommaEstratti (es-w,r2))
'2a condizione
If num(1)=(90-se2) Then
'3a condizione
If se2+num(1)=90 Then
'Matrice 5x7 Byron
For i=1 To 7:nr1(i)=num(i):Next
h=0
For i=2 To 8:h=h+1:nr2(h)=num(i):Next
h=0
For i=3 To 9:h=h+1:nr3(h)=num(i):Next
h=0
For i=4 To 10:h=h+1:nr4(h)=num(i):Next
h=0
For i=5 To 10:h=h+1:nr5(h)=num(i):Next
'Somma colonne con relativa somma
'Somma delle somme col.oriz.o
sm3=0
For i= 1 To 6
so(i)=Fuori90(num(i)+num(i+1)+num(i+2)+num(i+3)+num(i+4))
sm3=Fuori90 (sm3+so(i))
Next
For i=1 To 6
If so(i)<10 Then so(i)=90+so(i)
Next
'Somma delle differenzi col. oriz, h&o = codice
g=0 : sm1=0
For j= 1 To 6
g=g+1
di(j)=Fuori90 ((num(j)+90)-num(j+1))
df1(g)=di(j)
sm1=Fuori90 (sm1+di(j))
Next
g=0 : sm2=0
For y= 7 To 11
g=g+1
di(y)=Fuori90 ((so(y-6)+90)-so(y-5))
df2(g)=di(y)
sm2=Fuori90 (sm2+di(y))
Next
sm=Fuori90 (sm1+sm2)
'1a Equazione sm1+sm2+sm3=90
If Fuori90 (sm1+sm2+sm3)=90 Then
so7=Fuori90 ((so(6)+90)-sm3)
di12=sm3
numeri=0
snr=Fuori90 (nr1(7)+nr2(7)+nr3(7)+nr4(7))
numeri=Fuori90 ((90+so7)-snr)
num(11)=numeri
ok=1
'Previsione
sy=Fuori90 (so(6)+so7)
amb(1)=numeri : amb(2)=Fuori90 (180-sy)
lg(1)=amb(1):lg(2)=amb(2):lg(3)=sy
posta(1)=1
poste(2)=1
poste(3)=1
ruota(1)=r1 : ruota(2)=r2
ruote(1)=r1 : ruote(2)=r2 : ruote(3)=11
t=t+1
Scrivi "-----------------------------------"
Scrivi DataEstrazione (es-w)&" "& SiglaRuota(r2)&" "& Format2 (num(1))&"."& Format2 (num(2))&"."& Format2 (num(3))&"."& Format2 (num(4))&"."&_
Format2 (num(5)) &" [ S.E.1 "& Format2 (se1)&" ]"& Chr (10)&_
DataEstrazione (es)&" "& SiglaRuota(r1)&" "& Format2 (num(6))&"."& Format2 (num(7))&"."& Format2 (num(8))&"."& Format2 (num(9))&"."&_
Format2 (num(10))&" [ S.E.2 "& Format2 (se2)&" ] Range "&w&" Estraz.",1
Scrivi "----------------------------------------------------------Caso n°"&t& Chr (10)&_
"Dif. Rig. h "& StringaNumeri (df1)&" S.Dif.Sup."& Format2 (sm1)& Chr(10)&_
Space (13)&" a"&" b"&" c"&" d"&" e"&" f"&" g"& Chr (10) &_
Space (13)& StringaNumeri (nr1)&" h"& Chr (10)&_
Space (13)& StringaNumeri (nr2)&" i"& Chr (10)&_
Space (13)& StringaNumeri (nr3)&" l"& Chr (10)&_
Space (13)& StringaNumeri (nr4)&" m"& Chr (10)&_
Space (13)& StringaNumeri (nr5)&"("& Format2 (numeri)&")"&" n somma col. g "& Format2 (snr)& Chr (10)&_
"-----------------------------------"& Chr (10)&_
"Som. Col. V. "& StringaNumeri (so)&"("& Format2 (so7)&")"&" o"&" S.Somme = "& Format2 (sm3)& Chr (10)&_
"Dif. Rig. o "& StringaNumeri (df2)&"("& Format2 (di12)&")"&" S.Dif.Inf. = "& Format2 (sm2)&"+"& Format2 (sm1)&"="& Format2 (sm)& Chr (10)& Chr (10)&_
"1a Equaz. =90 "& " S.Dif.1+S.Dif.2+S. Somme "& Format2 (sm1)& " + "& Format2 (sm2)& " + "& Format2 (sm3)& Chr (10)&_
"1a Cond. =90 "& " 7° Estr.= "& Format2 (num(7))& " + 8° Estr. = "& Format2 (num(8))& " + 9° Estr. = "& Format2 (num(9))& Chr (10)&_
"2a Equaz. =90 "& " 1° Estr. = "& Format2 (num(1))&" + Somma cinquina Se2 = "& Format2 (se2),1
Scrivi "------------------------------------------------------"
ImpostaGiocata 1,amb,ruota,posta,12
ImpostaGiocata 2,lg,ruote,poste,12
Gioca (es)
End If
End If
End If
If ok=0 Then Exit For
Next
Next
End If
Next
Next
ScriviResoconto
End Sub N.B. Corretto...rifare il copia ed incolla Edited by Enplein - 17/6/2020, 15:31 |
| | |
