Ciao Salvo il 24 viene inserito per avere la prima e la terza equazione.
Se trovi difficolta' a proseguire interrompi tutto.
Provo a inserire uno script trovato in rete per farti capire il procedimento delle tre equazioni.
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

=Fuori90 ((so(y-6)+90)-so(y-5))
df2(g)=di

sm2=Fuori90 (sm2+di

)
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