metodo per ambate e ambo

[Zetrix]

a = 52
b = 53
c = 56

x bonalele
ho scritto un altra equazione sull'algebra..



[BA] [.. .. .. .. 55] C.1 Estratto 02580 [125 - 07/08/2025] [22.21.64.60.55]
[BA] [55 .. .. .. ..] C.3 Estratto 02582 [127 - 09/08/2025] [55.17.81.03.01]

[BA] [55 .. 81 .. ..] C.3 Ambo 02582 [127 - 09/08/2025] [55.17.81.03.01]

sulla scelta dell'ambo ci sono due ambi ma secondo una mia teoria
si puo scegliere solo un ambo ma devi vedere come sono estratti i numeri esclusi dalla equazione..
in questo esempio su ba i due numeri esclusi sono il 57 24
ecco qua si deve fare attenzione a come sono estratti..
1) 57 24 .....se il primo numero e maggiore del secondo numero allora si fa la somma
2) 24 57 ....se il primo numero e minore del secondo numero allora si fa la differenza

 

[Zetrix]

Anticipazione (Spoiler)

Sub Main
Dim T1,T2,T3,T4,T5,T6,T7
Dim A,B,C,X,Y,E,F,K
Dim N1,N2,N3,N4,N5,N6,N7
Dim ES,TV,R1,NX
Dim larghezze
Dim ambata1(2),ruota(5),ruote(5),posta(1),poste(2)
Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2)
posta(1) = 1
poste(2) = 1
NX = InputBox("Quale Ruota vuoi ?",,0)
TV = InputBox("Quante estrazioni vuoi controllare?",,0)
K = 0
For ES = EstrazioneFin - TV To EstrazioneFin
AvanzamentoElab EstrazioneFin - ES,EstrazioneFin,ES
For R1 = NX To NX
If R1 = 11 Then R1 = 12
For p1 = 1 To 3
p2 = p1 + 1
p3 = p2 + 1
'
A = Estratto(ES,R1,p1)
B = Estratto(ES,R1,p2)
C = Estratto(ES,R1,p3)
'
N1 = Estratto(ES,R1,1)
N2 = Estratto(ES,R1,2)
N3 = Estratto(ES,R1,1)
N4 = Estratto(ES,R1,5)
N5 = Estratto(ES,R1,4)
N6 = Estratto(ES,R1,5)
'
ReDim MatriceCaselleDaEvid(5,1)
MatriceCaselleDaEvid(1,0) = R1
MatriceCaselleDaEvid(1,1) = 1
MatriceCaselleDaEvid(2,0) = R1
MatriceCaselleDaEvid(2,1) = 2
MatriceCaselleDaEvid(3,0) = R1
MatriceCaselleDaEvid(3,1) = 3
MatriceCaselleDaEvid(4,0) = R1
MatriceCaselleDaEvid(4,1) = 4
MatriceCaselleDaEvid(5,0) = R1
MatriceCaselleDaEvid(5,1) = 5
Call DisegnaEstrazione(ES,MatriceCaselleDaEvid)
'
'
T1 = Array(T1," "," "," "," "," ")
'-------------------------------
'---------------------------------
'-------------------------------
T1 = Array(T1," y "," - a "," + b "," = ","c")
larghezze = Array(T1,4,4,4,4,4,4)
Call InitTabella(T1,Bianco_,"center",larghezze,Nero_,"raavi")
Call SetColoreCella(1,RGB(83,213,86),RGB(0,0,0))
Call SetColoreCella(2,RGB(234,232,134),RGB(0,0,0))
Call SetColoreCella(3,RGB(234,232,134),RGB(0,0,0))
Call SetColoreCella(4,RGB(83,213,86),RGB(0,0,0))
Call SetColoreCella(5,RGB(249,198,104),RGB(0,0,0))
'-------------------------------
Y = Fuori90(A - B + C)
'---------------------------------
T2 = Array(T2," y = " & Y," "," "," "," ")
larghezze = Array(T2,4,4,4,4,4,4)
Call AddRigaTabella(T2,Bianco_,"center",larghezze,Nero_,"raavi")
Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
'--------------------------------
'
If Fuori90(Y - A + B) = C Then
'
T3 = Array(T3,Y & " "," - " & A," + " & B," = ",C)
larghezze = Array(T3,4,4,4,4,4,4)
Call AddRigaTabella(T3,Bianco_,"center",larghezze,Nero_,"raavi")
Call SetColoreCella(1,RGB(83,213,86),RGB(0,0,0))
Call SetColoreCella(2,RGB(234,232,134),RGB(0,0,0))
Call SetColoreCella(3,RGB(234,232,134),RGB(0,0,0))
Call SetColoreCella(4,RGB(83,213,86),RGB(0,0,0))
Call SetColoreCella(5,RGB(249,198,104),RGB(0,0,0))
'--------------------------------
'
Call SetTableWidth("20%")
CreaTabella
'
'------------------------------
ruota(1) = R1
'-----------------------------
ruote(1) = R1
ruote(2) = 11
ruote(3) = 12
'----------------------------
If p1 = 1 And p2 = 2 And p3 = 3 Then
ambata1(1) = Y
ambo1(1) = Y
ambo1(2) = Fuori90(N5 + N6)
ambo2(1) = Y
ambo2(2) = Abs(N5 - N6)
Else
'
If p1 = 2 And p2 = 3 And p3 = 4 Then
ambata1(1) = Y
ambo1(1) = Y
ambo1(2) = Fuori90(N1 + N6)
ambo2(1) = Y
ambo2(2) = Abs(N1 - N6)
Else
'
If p1 = 3 And p2 = 4 And p3 = 5 Then
ambata1(1) = Y
ambo1(1) = Y
ambo1(2) = Fuori90(N1 + N2)
ambo2(1) = Y
ambo2(2) = Abs(N1 - N2)
End If
End If
End If
'
End If
ImpostaGiocata 1,ambata1,ruota,posta,K
Gioca ES,1,,1
Scrivi
Scrivi String(55,".")
Scrivi
ImpostaGiocata 1,ambo1,ruote,poste,K
ImpostaGiocata 2,ambo2,ruote,poste,K
Gioca ES,1,,1
Scrivi
Next
Next
Next
End Sub

ecco lo script

 

[bonalele]

62-38 ambo secco a firenze 1C come da script. Adesso bisogna capire come scegliere le previsioni migliori!
Ottimo Zetrix calcoli stupendi da approfondire

 

[Nancy 1948]

Anche questa sera 72-90 non si è visto

 

[trylli]

Peccato solo il 72 a Venezia ma bravo comunque