-Ambata e ambo da numeri cadenza zero in posizione isotopa due

[Mauro-emme]

Sub Main
Dim Nu(2),Ru(2),aN(3),Posta(3),X
Posta(1) = 1
Posta(2) = 1
Posta(3) = 1
X = InputBox("Inserire il numero delle estrazioni da controllare: ","Script di Mauro Milanetto per https://forum.lottoced/",157)
Ini = EstrazioneFin - X
fin = EstrazioneFin
Scrivi " --------------------------------------------------------------------------------"
Scrivi " | Il metodo consiste nel puntare sulle ambate in posizione |"
Scrivi " | quindi il risultato economico è maggiore di quello cal- |"
Scrivi " | colato da Spaziometria. Per trovare la posizione stò e- |"
Scrivi " | laborando una funzione direttamente nello script, già |"
Scrivi " | testato e funzionante! Si basa sull'esperienza manuale e |"
Scrivi " | sul fatto, incontrovertibile, che i numeri si ripetono! |"
Scrivi " --------------------------------------------------------------------------------"
Scrivi
Scrivi

For es = Ini To fin
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p = 1 To 5
a = Estratto(es,r1,p)
b = Estratto(es,r2,p)
a1 = Estratto(es,r1,1)
a2 = Estratto(es,r1,2)
a3 = Estratto(es,r1,3)
a4 = Estratto(es,r1,4)
a5 = Estratto(es,r1,5)
b1 = Estratto(es,r2,1)
b2 = Estratto(es,r2,2)
b3 = Estratto(es,r2,3)
b4 = Estratto(es,r2,4)
b5 = Estratto(es,r2,5)

If Cadenza(a) = 0 And Cadenza(b) = 0 Then
If r2 - r1 = 1 Then
k = k + 1
Nu(1) = a
Nu(2) = b
Ru(1) = r1
Ru(2) = r2
aN(1) = Fuori90(a/10 & b/10)
aN(2) = Fuori90(b/10 & a/10)
aN(3) = Fuori90(a/10 + b/10)
Scrivi String(100,"^") & " Caso n. " & k
Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab & a & " Posiz. " & p
Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r2) & vbTab & b & " Posiz. " & p
Scrivi String(100,"-")
Scrivi a1 & " " & a2 & " " & a3 & " " & a4 & " " & a5
Scrivi b1 & " " & b2 & " " & b3 & " " & b4 & " " & b5
clp = 5
If aN(1) = aN(2) Then aN(2) = Vert(aN(1))

ImpostaGiocata 1,aN,Ru,Posta,clp,1

Gioca es,1
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

 

[deejay]

Scusami Mauro....per chi non possiede il programma per visualizzare le previsioni, quali sono?

 

[curioso]

Ciao potresti descrivere come si ricavano le previsioni per i comuni mortali magari con qualche esempio? Grazie

 

[Sheena]

Sub Main
Dim Nu(2),Ru(2),aN(3),Posta(3),X
Posta(1) = 1
Posta(2) = 1
Posta(3) = 1
X = InputBox("Inserire il numero delle estrazioni da controllare: ","Script di Mauro Milanetto per https://forum.lottoced/",157)
Ini = EstrazioneFin - X
fin = EstrazioneFin
Scrivi " --------------------------------------------------------------------------------"
Scrivi " | Il metodo consiste nel puntare sulle ambate in posizione |"
Scrivi " | quindi il risultato economico è maggiore di quello cal- |"
Scrivi " | colato da Spaziometria. Per trovare la posizione stò e- |"
Scrivi " | laborando una funzione direttamente nello script, già |"
Scrivi " | testato e funzionante! Si basa sull'esperienza manuale e |"
Scrivi " | sul fatto, incontrovertibile, che i numeri si ripetono! |"
Scrivi " --------------------------------------------------------------------------------"
Scrivi
Scrivi

For es = Ini To fin
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p = 1 To 5
a = Estratto(es,r1,p)
b = Estratto(es,r2,p)
a1 = Estratto(es,r1,1)
a2 = Estratto(es,r1,2)
a3 = Estratto(es,r1,3)
a4 = Estratto(es,r1,4)
a5 = Estratto(es,r1,5)
b1 = Estratto(es,r2,1)
b2 = Estratto(es,r2,2)
b3 = Estratto(es,r2,3)
b4 = Estratto(es,r2,4)
b5 = Estratto(es,r2,5)

If Cadenza(a) = 0 And Cadenza(b) = 0 Then
If r2 - r1 = 1 Then
k = k + 1
Nu(1) = a
Nu(2) = b
Ru(1) = r1
Ru(2) = r2
aN(1) = Fuori90(a/10 & b/10)
aN(2) = Fuori90(b/10 & a/10)
aN(3) = Fuori90(a/10 + b/10)
Scrivi String(100,"^") & " Caso n. " & k
Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab & a & " Posiz. " & p
Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r2) & vbTab & b & " Posiz. " & p
Scrivi String(100,"-")
Scrivi a1 & " " & a2 & " " & a3 & " " & a4 & " " & a5
Scrivi b1 & " " & b2 & " " & b3 & " " & b4 & " " & b5
clp = 5
If aN(1) = aN(2) Then aN(2) = Vert(aN(1))

ImpostaGiocata 1,aN,Ru,Posta,clp,1

Gioca es,1
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

Buongiorno Mauro non ho capito come si ricava la previsione é se c è in corso

 

[Mauro-emme]

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Caso n. 68
[10042] [ 19] 12.02.2022 RO 10 Posiz. 3
[10042] [ 19] 12.02.2022 TO 50 Posiz. 3
----------------------------------------------------------------------------------------------------
03 69 10 42 18
79 49 50 87 61
Estrazione generatrice del pronostico 10042 [ 19 - 12/02/2022]
G 0001 Numeri in gioco : 15.51.06 su RO TO per Estratto,Ambo,Terno
V N. [15.51.06 ] [RO] [.. 15 .. .. 51] C. 3 Ambo 10045 [ 22 - 19/02/2022]
Interrotta per esito verificato

1) 10 E 50 SONO DEI NUMERI A CADENZA ZERO E SONO IN POSIZIONE ISOTOPA (STESSA POSIZIONE).
2) SI PRENDE IL NUMERO SENZA LO ZERO: 10 DIVENTA 1, 50 DIVENTA 5 E SI FORMA LA PRIMA AMBATA ACCOPPIANDO 1 E 5, CIOE' 15
3) SI TROVA IL VERTIBILE, DI 15 E' 51
4) SI SOMMA 1 E 5 CHE DA 6 TERZA AMBATA
5) 15 E 51 SONO LE AMBATE DA GIOCARE SULLE RUOTE DELL'ESTRAZIONE GENERATRICE RO E TO (BISOGNA TROVARE LA POSIZIONE SCORRENDO INDIETRO NEL TEMPO E TROVANDO LE DUE CON MAGGIOR FREQUENZA
6) 15 E 51 PER AMBO SECCO
7) 15, 51 E 6 PER TERNO SECCO

CIAO A PRESTO

------------------------

LISTATO CORRETTO E PIU' EFFICACE:

Sub Main
Dim Nu(2),Ru(2),aN(3),Posta(3),X
Posta(1) = 1
Posta(2) = 1
Posta(3) = 1
X = InputBox("Inserire il numero delle estrazioni da controllare: ","Script di Mauro Milanetto per https://forum.lottoced/",157)
Ini = EstrazioneFin - X
fin = EstrazioneFin
Scrivi " --------------------------------------------------------------------------------"
Scrivi " | Il metodo consiste nel puntare sulle ambate in posizione |"
Scrivi " | quindi il risultato economico è maggiore di quello cal- |"
Scrivi " | colato da Spaziometria. Per trovare la posizione stò e- |"
Scrivi " | laborando una funzione direttamente nello script, già |"
Scrivi " | testato e funzionante! Si basa sull'esperienza manuale e |"
Scrivi " | sul fatto, incontrovertibile, che i numeri si ripetono! |"
Scrivi " --------------------------------------------------------------------------------"
Scrivi
Scrivi

For es = Ini To fin
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p = 1 To 5
a = Estratto(es,r1,p)
b = Estratto(es,r2,p)
a1 = Estratto(es,r1,1)
a2 = Estratto(es,r1,2)
a3 = Estratto(es,r1,3)
a4 = Estratto(es,r1,4)
a5 = Estratto(es,r1,5)
b1 = Estratto(es,r2,1)
b2 = Estratto(es,r2,2)
b3 = Estratto(es,r2,3)
b4 = Estratto(es,r2,4)
b5 = Estratto(es,r2,5)
If Cadenza(a) = 0 And Cadenza(b) = 0 Then
If r2 - r1 = 1 Then
k = k + 1
Nu(1) = a
Nu(2) = b
Ru(1) = r1
Ru(2) = r2
aN(1) = Fuori90(a/10 & b/10)
aN(2) = Vert(aN(1))
aN(3) = Fuori90(a/10 + b/10)
Scrivi String(100,"^") & " Caso n. " & k
Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab & a & " Posiz. " & p
Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r2) & vbTab & b & " Posiz. " & p
Scrivi String(100,"-")
Scrivi a1 & " " & a2 & " " & a3 & " " & a4 & " " & a5
Scrivi b1 & " " & b2 & " " & b3 & " " & b4 & " " & b5
clp = 5
If aN(1) = aN(2) Then aN(2) = Vert(aN(1))

ImpostaGiocata 1,aN,Ru,Posta,clp,1

Gioca es,1
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

 

[briccone]

Ciao Mauro-emme,
si ripresenta a BA CA sempre
15 51 ambo
15 51 6 ambo e terno.

Io ci provo.

briccone