capthegamer
Junior Member
14 + 25 = 39
90 - 39 = 51
90 - 39 = 51
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Script su Metodi Cabalistici, Ciclometrici & C.
- Creatore Discussione salvo50
- Data di inizio
salvo50
Advanced Member >PLATINUM PLUS<
Allora ricapitoliamo
Quel 75 che dice che è la somma della cinquina sotto, lo ricaviamo da calcoli fatti prima
ma comunque deve corrispondere alla somma della cinquina sotto, oppure è un caso
Se non è un caso ma deve essere uguale alla somma della cinquina sotto, e se non
corrispondere cosa facciamo, si procede lo stesso oppure si salta l'estrazione?
Adesso è tutto più chiaro, resta solo il dubbio del rigo sopra
Ma riguardo al Byron, ce ne ho almeno una ventina di versioni tutte diverse
perchè con questo metodo ognuno si fa le sue regole, anche adesso questi
calcoli che stai proponendo, non ricordo bene ma mi sembra, di non averli
mai fatti, e ne deduco che è un'altra versione del metodo Byron.
Dovresti postare lo script del Byron che hai, e io le applicherò le modifiche
che hai chiesto.
Quel 75 che dice che è la somma della cinquina sotto, lo ricaviamo da calcoli fatti prima
ma comunque deve corrispondere alla somma della cinquina sotto, oppure è un caso
Se non è un caso ma deve essere uguale alla somma della cinquina sotto, e se non
corrispondere cosa facciamo, si procede lo stesso oppure si salta l'estrazione?
Adesso è tutto più chiaro, resta solo il dubbio del rigo sopra
Ma riguardo al Byron, ce ne ho almeno una ventina di versioni tutte diverse
perchè con questo metodo ognuno si fa le sue regole, anche adesso questi
calcoli che stai proponendo, non ricordo bene ma mi sembra, di non averli
mai fatti, e ne deduco che è un'altra versione del metodo Byron.
Dovresti postare lo script del Byron che hai, e io le applicherò le modifiche
che hai chiesto.
capthegamer
Junior Member
Ciao Salvo dovresti riprendere uno dei script del byron che hai fatto tu e apportare le modifiche.
Grazie.
Grazie.
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
Ciao Everita
La cinquina sotto risulta essere 63 - 89 - 82 - 06 -15.
Con questa cinquina cosa ci faccio, cioè a cosa mi serve nel Byron.
---------------------------------------------------------------------------------------------------------
In questo caso le due cinquine con la matrice 7 x 5 del byron danno le tre equazioni a 90.
Qui proprio non ho la più pallida idea di cosa sia questa matrice 7x5 , può darsi che come
dici tu, io l'abbia già fatto, ma non mi ricordo niente.
--------------------------------------------------------------------------------------------------------------------------------------
Le due ambate sono 24 - 69.
Il 24 e' il numero che chiude il quadrato a destra in basso.
A destra e in basso non vedo nessun 24,
--------------------------------------------------------------------
Per il numero 69 le spiegazioni sono chiare
Ciao Everita
La cinquina sotto risulta essere 63 - 89 - 82 - 06 -15.
Con questa cinquina cosa ci faccio, cioè a cosa mi serve nel Byron.
---------------------------------------------------------------------------------------------------------
In questo caso le due cinquine con la matrice 7 x 5 del byron danno le tre equazioni a 90.
Qui proprio non ho la più pallida idea di cosa sia questa matrice 7x5 , può darsi che come
dici tu, io l'abbia già fatto, ma non mi ricordo niente.
--------------------------------------------------------------------------------------------------------------------------------------
Le due ambate sono 24 - 69.
Il 24 e' il numero che chiude il quadrato a destra in basso.
A destra e in basso non vedo nessun 24,
--------------------------------------------------------------------
Per il numero 69 le spiegazioni sono chiare
capthegamer
Junior Member
| 9 | 54 | 9 | 19 | 41 | 64 | ||||
| 15 | 6 | 42 | 33 | 14 | 63 | 89 | |||
| 6 | 42 | 33 | 14 | 63 | 89 | 82 | |||
| 42 | 33 | 14 | 63 | 89 | 82 | 6 | |||
| 33 | 14 | 63 | 89 | 82 | 6 | 15 | |||
| 14 | 63 | 89 | 82 | 6 | 15 | 24 | |||
| 20 | 68 | 61 | 11 | 74 | 75 | 36 | somma delle colonne | ||
| 42 | 7 | 50 | 27 | 89 | 39 | differenza delle somme |
capthegamer
Junior Member
Ciao Salvo la matrice viene cosi.
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Da questo quadrato deduco che quella cinquina che ti ho chiesto a cosa serve.
Serve a compilare il quadrato sopra, ma nei primi post che hai chiesto questo
script, non l'avevi detto, quindi come facevo io a capire questo procedimento.
capthegamer
Junior Member
Ciao Salvo dovevo postarla prima.
Ok quando puoi.
Ok quando puoi.
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Ciao Everita
In questo periodo ho molto da fare di mio per motivi personali
non ho molto tempo per dedicarmi agli script, quindi prima di
procedere volevo avere le idee chiare.
Avevo espresso dei dubbi, ma ci ho ripensato, lo faccio a modo mio
Ciao Everita
In questo periodo ho molto da fare di mio per motivi personali
non ho molto tempo per dedicarmi agli script, quindi prima di
procedere volevo avere le idee chiare.
Avevo espresso dei dubbi, ma ci ho ripensato, lo faccio a modo mio
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
Quel 24 in basso a destra, come lo hai ottenuto, perché nello script
che sto usando io c'è 78,
nello script che sto usando io probabilmente si calcola diversamente
dallo script che hai preso il quadro
Per questo ti avevo scritto di mettere il tuo script.
capthegamer
Junior Member
Ciao Salvo quel 24 inserito in basso a destra facendo la somma dell'ultima colonna a destra = 36 + 15 ( primo estratto cinquina sopra ) = 51
Che sarebbe la somma delle differenze superiori e inferiori.
Che sommandolo ( 51 ) alla somma delle colonne ( 20 + 68 + 61 + 11 + 74 + 75 ) = 309 fuori 90 = 39 ( escluso il 36 )
51 + 39 = 90
Poi sommando cinquina sotto ( 75 ) + 36 = 111 fuori 90 = 21.
90 - 21 = 69.
Ecco le due ambate 24 - 69.
Che sarebbe la somma delle differenze superiori e inferiori.
Che sommandolo ( 51 ) alla somma delle colonne ( 20 + 68 + 61 + 11 + 74 + 75 ) = 309 fuori 90 = 39 ( escluso il 36 )
51 + 39 = 90
Poi sommando cinquina sotto ( 75 ) + 36 = 111 fuori 90 = 21.
90 - 21 = 69.
Ecco le due ambate 24 - 69.
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
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
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Ciao Everita
Ho fatto partire lo script anche dall'estrazione 1 per vedere quanti riscontri c'erano,
ma in tutto l'archivio c'è solo quella dell'esempio.
Se c'è qualcosa che non corrisponde fammelo sapere
Ciao Everita
Ho fatto partire lo script anche dall'estrazione 1 per vedere quanti riscontri c'erano,
ma in tutto l'archivio c'è solo quella dell'esempio.
Se c'è qualcosa che non corrisponde fammelo sapere
Codice:
Option Explicit
Sub Main
Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11
Dim D12,D13,D14,D15,D16,D17
Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5,XB3
Dim R1,Es,Casi,SoC1,SoC2,SoMe,Clp
Dim So1,So2,So3,So4,S7_4,X,S13,S14
Dim S1,S2,S3,S4,S5,S6,S7,S10,S11,S12
Dim FIn,Ini,Equ1,Equ2,Equ3,S11a
Dim Salvo50,Met,Dop,Ins1,Ins2,Ins3
Dim Posta(2),Ambo(2),Ruo(2)
Posta(2) = 1
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,7943))
Ins1 = InputBox("Se vuoi includere la prima equazione metti 1 altrimenti un'altro numero qualsiasi ",Salvo50,1)
Ins2 = InputBox("Se vuoi includere la seconda equazione metti 1 altrimenti un'altro numero qualsiasi ",Salvo50,1)
Ins3 = InputBox("Se vuoi includere la terza equazione metti 1 altrimenti un'altro numero qualsiasi ",Salvo50,1)
Clp = CInt(InputBox(" Quanti colpi di gioco? ",Salvo50,12))
FIn = EstrazioneFin
Scrivi Space(8) & " Modifica al Metodo Byron di EveritaC - Script Salvo50" & Space(8),1,,4,,3,,1
For Es = Ini To FIn
AvanzamentoElab Ini,FIn,Es
Messaggio Es & " Tempo Trascorso " & TempoTrascorso
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
A1 = Estratto(Es,R1,1)
If isNumeroValidoLotto(A1) Then
A2 = Estratto(Es,R1,2)
A3 = Estratto(Es,R1,3)
A4 = Estratto(Es,R1,4)
A5 = Estratto(Es,R1,5)
SoC1 = SommaEstratti(Es,R1)
Met = 0 : Dop = 0
If pari(A3) Then
Met = A3\2
Dop = Fuori90(A3 * 2)
End If
If dispari(A3) Then Dop = Fuori90(A3 * 2)
So1 = Fuori90(A1 + A2)
If So1 = Met Or So1 = Dop Then
B1 = Fuori90(A1 + A2 + A3)
B2 = Fuori90(A3 + A4 + A5) '
So2 = Fuori90(A3 + A4)
So3 = Fuori90(So2 + A1)
So4 = Fuori90(B1 + B2 + A2 + A1)
XB3 = So2 + 90 + 90
B3 = Fuori90(XB3 - B1 - B2 - A2 - A1)
B4 = A2
B5 = A1
SoC2 = Fuori90(B1 + B2 + B3 + B4 + B5)
'-----------------------------------------
S1 = Fuori90(A1 + A2 + A3 + A4 + A5)
S2 = Fuori90(A2 + A3 + A4 + A5 + B1)
S3 = Fuori90(A3 + A4 + A5 + B1 + B2)
S4 = Fuori90(A4 + A5 + B1 + B2 + B3)
S5 = Fuori90(A5 + B1 + B2 + B3 + B4)
S6 = Fuori90(B1 + B2 + B3 + B4 + B5)
D1 = Fuori90(90 +(A1 - A2))
D2 = Fuori90(90 +(A2 - A3))
D3 = Fuori90(90 +(A3 - A4))
D4 = Fuori90(90 +(A4 - A5))
D5 = Fuori90(90 +(A5 - B1))
D6 = Fuori90(90 +(B1 - B2))
'----------------------------
' D7 = Fuori90(90 +(A5 - B1))
' D8 = Fuori90(90 +(B1 - B2))
' D9 = Fuori90(90 +(B2 - B3))
' D10 = Fuori90(90 +(B3 - B4))
' D11 = Fuori90(90 +(B4 - B5))
'
D12 = Fuori90(90 +(S1 - S2))
D13 = Fuori90(90 +(S2 - S3))
D14 = Fuori90(90 +(S3 - S4))
D15 = Fuori90(90 +(S4 - S5))
D16 = Fuori90(90 +(S5 - S6))
S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D12 + D13 + D14 + D15 + D16)
S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6) ' Somma delle somme delle prime 6 colonne
S12 = Fuori90(S10 + S11)
S7_4 = Fuori90(B2 + B3 + B4 + B5) 'Somma della settima colonna
X = Fuori90(((S6 + 90) - S11) - S7_4)
S7 = Fuori90(X + B2 + B3 + B4 + B5) ' Somma della settima colonna più incognita
S11a = Fuori90(S11 + S7) ' Somma delle somme delle 7 colonne
S13 = Fuori90(SoC2 + A1)
S14 = Fuori90(S11a + A1)
D17 = Fuori90((90 + S6) - S7)'distanza tra somma 6a colonna e somma 7a colonna
SoMe = Fuori90(SoC2 + S7)
SoMe = ComplAdX(SoMe)
Equ1 = S12
Equ2 = S13
Equ3 = S14
If((Ins1 = 1 And Equ1 = 90)Or(Ins1 <> 1))And((Ins2 = 1 And Equ2 = 90)Or(Ins2 <> 1)) _
And((Ins3 = 1 And Equ3 = 90)Or(Ins3 <> 1)) Then
Ambo(1) = X : Ambo(2) = SoMe
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi(" Estrazione n." & FormattaStringa(Es,"0000") & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1' & " Somma = " & Format2(SoC1),1
Scrivi
Scrivi Space(11) & Format2(A1) & " + " & Format2(A2) & " = " & Format2(So1),1,0
Scrivi " Metà o doppio del terzo estratto " & Format2(A3),1
Scrivi Space(11) & Format2(A1) & " + " & Format2(A2) & " + " & Format2(A3) & " = ",1,0
Scrivi Format2(B1) & " Primo numero seconda cinquina",1,,,1
Scrivi Space(11) & Format2(A3) & " + " & Format2(A4) & " + " & Format2(A5) & " = ",1,0
Scrivi Format2(B2) & " Secondo numero seconda cinquina",1,,,1
Scrivi Space(11) & Format2(A3) & " + " & Format2(A4) & " = " & Format2(So2),1,0
Scrivi " + " & Format2(A1) & " = " & Format2(So3),1 '" Secondo numero seconda cinquina",1
Scrivi Space(11) & Format2(So2) & " + " & 90 & " + " & 90,1,0
Scrivi " - " & Format2(B1) & " - " & Format2(B2) & " - " & Format2(A2),1,0 '" Terzo numero seconda cinquina",1
Scrivi " - " & Format2(A1) & " = ",1,0
Scrivi Format2(B3) & " Terzo numero seconda cinquina",1,,,1
Scrivi Space(11) & "Il 2° numero prima cinquina è ",1,0
Scrivi Format2(A2) & " = al 4° numero seconda cinquina",1,,,1
Scrivi Space(11) & "Il 1° numero prima cinquina è ",1,0
Scrivi Format2(A1) & " = al 5° numero seconda cinquina",1,,,1
Scrivi Space(23) & "Seconda Cinquina ",1,,,2
Scrivi Space(21) & Format2(B1) & " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4) & " ",1,0
Scrivi Format2(B5) & " somma " & Format2(SoC2),1
Scrivi
Scrivi Space(20) & Format2(D1) & " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4),1,0
Scrivi " " & Format2(D5) & " " & Format2(D6) & Space(9) & " Differenze dei numeri della prima riga ",1
Scrivi Space(20) & String(20,"-")
Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4),1,0
Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1
Scrivi Space(20) & Format2(A2) & " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1,0
Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1
Scrivi Space(20) & Format2(A3) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0
Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4) & Space(19) & "Somma delle Differenze = ",1,0
Scrivi Format2(S10),1,,,1
Scrivi Space(20) & Format2(A4) & " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1,0
Scrivi " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1
Scrivi Space(20) & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1,0
Scrivi " " & Format2(B4) & " " & Format2(B5),1,0
Scrivi " " & Format2(X),1,,,2
Scrivi Space(20) & String(20,"-")
Scrivi Space(20) & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
Scrivi " " & Format2(S5) & " " & Format2(S6) & " " & Format2(S7),1,0
Scrivi Space(3) & "(" & Format2(S11) & " = Somma delle somme delle prime 6 colonne)",1,0
Scrivi " " & Format2(S11) & " + " & "somma settima colonna " & Format2(S7) & " = " & Format2(S11a),1
Scrivi
Scrivi Space(20) & Format2(D12) & " " & Format2(D13) & " " & Format2(D14),1,0
Scrivi " " & Format2(D15) & " " & Format2(D16) & " (" & Format2(D17) & ")" & Space(9) & "Differenze delle somme",1
Scrivi Space(20) & String(20,"-")
Scrivi
Scrivi Space(20) & Format2(S10) & " + " & Format2(S11) & " = " & Format2(Equ1) & " 1ª Equazione ",1
Scrivi Space(20) & Format2(SoC2) & " + " & Format2(A1) & " = " & Format2(Equ2) & " 2ª Equazione ",1
Scrivi Space(20) & Format2(A1) & " + " & Format2(S11a) & " = " & Format2(Equ3) & " 3ª Equazione ",1
Scrivi
'---------------------------------------------------------------------------------------------------
Ruo(1) = R1
ImpostaGiocata 1,Ambo,Ruo,Posta,Clp
Gioca Es
End If
End If
End If
If ScriptInterrotto Then Exit For
Next
If ScriptInterrotto Then Exit For
Next
ScriviResoconto
Scrivi TempoTrascorso
End SubUltima estrazione Lotto
-
Estrazione del lotto
sabato 14 febbraio 2026Bari6439402769Cagliari4906340203Firenze7904561708Genova0927361637Milano6789176368Napoli9019340943Palermo5173390265Roma2377684457Torino3761389074Venezia2151838923Nazionale6128675623Estrazione Simbolotto
Cagliari
3739414413
