Novità

Condizioni Rare

Leggendo qui e li, vedo postata un immagine che conosco bene
che mi riporta in mente un mio metodo spia.

quindi prima che me ne scordo

L'immagine è questa, dove si vedono tutti i numeri primi entro il 90.




PRIMI.png


Potete notare che gli unici numeri primi diciamo "Orfani" sono il "2" e il "5".

Ambo spia particolare composto da numeri primi.

Il 05/03/2024 è uscito a Milano.

se vi va, fate uno script statistico...

Non ricordo bene, ma mi sembra che il n° 6 era fra i numeri in gioco dopo...
in caso mi ricordo bene, il 6 è già uscito a milano al 3°colpo purtroppo, ma non finisce qui...

vedete voi, io non mi ricordo bene e non ho sottomano nulla.

spero solo di far cosa gradita
 
Metodo Empirico


8-5.png





Quando il 5° estratto di bari è il numeretto " 8 ".

Mi ricordo che se le condizioni erano giuste,
significava pioggia di gemelli in un ciclo di estrazioni.

Qualcuno può facilmente verificare e magari individuare
i gemelli più forti per ambate e ambo.

Ad ogni modo monitorare la situazione gemelli...

Eventualmente postate qui la vostra analisi a beneficio di tutti.

ciao
 
Non disdegnare che anche

Dopo la sortita del numeretto "8" in quinta posizione a bari

Monitorare la situazione gemelli anche a Tutte le ruote diventa interessante

sopratutto se avete gemelli vostri che vi saltellano qui e li...
 
Grande Baffo, diamo una prova della bontà, poi ognuno lo sistemerà come vuole... (y)
Option Explicit
' da un'idea di BaffoBlù
Sub Main
Dim FIn,Es,Ini,Caso,x
Dim R1,R2,R3,P1,P2,P3,A,B,C,D,E
Dim Ambo(8),Ruo(12),Ruo1(1),Posta(5)
x = CInt(InputBox("Quante estrazioni vuoi controllare?",,3000))
Posta(2) = 1
Posta(3) = 0.5
Ini = EstrazioneFin - x
FIn = EstrazioneFin
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
R1 = 1
R2 = 2
R3 = 6
For P1 = 5 To 5
A = Estratto(Es,R1,P1)
If A = 8 Then
Ambo(1) = 11 : Ambo(2) = 22 : Ambo(3) = 33:Ambo(4) = 44:Ambo(5) = 55 : Ambo(6) = 66 : Ambo(7) = 77:Ambo(8) = 88
Caso = Caso + 1
ColoreTesto 1
Scrivi String(89,"-")
ColoreTesto 1
Scrivi DataEstrazione(Es,1) & " < " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1) & _
" > < " & Format2(A),1
Ruo(1) = R1:Ruo(2) = R2:Ruo(3) = R3
Ruo1(1) = 11
ImpostaGiocata 2,Ambo,Ruo,Posta,17
'ImpostaGiocata 3,Ambo,Ruo1,Posta,17
Gioca Es,1
End If
Next
Next
ScriviResoconto
End Sub
 
Grande Baffo, diamo una prova della bontà, poi ognuno lo sistemerà come vuole... (y)
Option Explicit
' da un'idea di BaffoBlù
Sub Main
Dim FIn,Es,Ini,Caso,x
Dim R1,R2,R3,P1,P2,P3,A,B,C,D,E
Dim Ambo(8),Ruo(12),Ruo1(1),Posta(5)
x = CInt(InputBox("Quante estrazioni vuoi controllare?",,3000))
Posta(2) = 1
Posta(3) = 0.5
Ini = EstrazioneFin - x
FIn = EstrazioneFin
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
R1 = 1
R2 = 2
R3 = 6
For P1 = 5 To 5
A = Estratto(Es,R1,P1)
If A = 8 Then
Ambo(1) = 11 : Ambo(2) = 22 : Ambo(3) = 33:Ambo(4) = 44:Ambo(5) = 55 : Ambo(6) = 66 : Ambo(7) = 77:Ambo(8) = 88
Caso = Caso + 1
ColoreTesto 1
Scrivi String(89,"-")
ColoreTesto 1
Scrivi DataEstrazione(Es,1) & " < " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1) & _
" > < " & Format2(A),1
Ruo(1) = R1:Ruo(2) = R2:Ruo(3) = R3
Ruo1(1) = 11
ImpostaGiocata 2,Ambo,Ruo,Posta,17
'ImpostaGiocata 3,Ambo,Ruo1,Posta,17
Gioca Es,1
End If
Next
Next
ScriviResoconto
End Sub
 
Grande Baffo, diamo una prova della bontà, poi ognuno lo sistemerà come vuole... (y)
Option Explicit
' da un'idea di BaffoBlù
Sub Main
Dim FIn,Es,Ini,Caso,x
Dim R1,R2,R3,P1,P2,P3,A,B,C,D,E
Dim Ambo(8),Ruo(12),Ruo1(1),Posta(5)
x = CInt(InputBox("Quante estrazioni vuoi controllare?",,3000))
Posta(2) = 1
Posta(3) = 0.5
Ini = EstrazioneFin - x
FIn = EstrazioneFin
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
R1 = 1
R2 = 2
R3 = 6
For P1 = 5 To 5
A = Estratto(Es,R1,P1)
If A = 8 Then
Ambo(1) = 11 : Ambo(2) = 22 : Ambo(3) = 33:Ambo(4) = 44:Ambo(5) = 55 : Ambo(6) = 66 : Ambo(7) = 77:Ambo(8) = 88
Caso = Caso + 1
ColoreTesto 1
Scrivi String(89,"-")
ColoreTesto 1
Scrivi DataEstrazione(Es,1) & " < " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1) & _
" > < " & Format2(A),1
Ruo(1) = R1:Ruo(2) = R2:Ruo(3) = R3
Ruo1(1) = 11
ImpostaGiocata 2,Ambo,Ruo,Posta,17
'ImpostaGiocata 3,Ambo,Ruo1,Posta,17
Gioca Es,1
End If
Next
Next
ScriviResoconto
End Sub
grazie toon, spero piaccia e porti ad altri spunti...
 
La giostra gira....


Altro metodo, applicabile solo quando arriva la condizione

Quando il 1°estratto di bari è un numeretto
ed il 5°estratto di bari dell'estrazione successiva è anche un
numeretto, potremo agire per ricavare la previsione.

le ambate a bari saranno proprio i numeretti di cui sopra.

possiamo ricavare una terzina per ambo a Ba e Ca
sommiamo i 2 numeretti.
la somma sarà il primo numero della terzina
il secondo numero è il complementare a 90 del primo numero.
il terzo numero è sempre il 90.

gli esiti possono farsi aspettare, ma arrivano...

guardate a bari che bei numeretti, proprio come ci si aspetta dalla
condizione...




1-5.png
 
Si appena fatto i calcoli ..
Su Ba e Ca
Ms mi sembra di aver capito che anche i numererai stessi , ovvero 8 e 9 saranno da mettere in gioco su Ba ..
Credo di aver capito così
 
Posto anche il mio sull'8 e i gemelli a BA
Codice:
'Metodo Baffoblù:8 in 5p a BA
'Gemelli in gioco
'Script Cinzia27

Sub main()
Dim n(8)
Dim ruota(1)
Dim posta(2)
posta(1)=1
posta(2)=1

fin=EstrazioneFin
ini=fin-1000
r=1
ruota(1)=r
n(1)=11
n(2)=22
n(3)=33
n(4)=44
n(5)=55
n(6)=66
n(7)=77
n(8)=88


For es=ini To fin
AvanzamentoElab ini,fin,es



a=Estratto(es,r,5)

If a=8 Then
 
Scrivi a
Scrivi StringaNumeri(n)
ImpostaGiocata  1,n,ruota,posta,7,2
Gioca es

End If
Next

Scrivi

ScriviResoconto

End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 06 febbraio 2026
    Bari
    09
    55
    48
    87
    35
    Cagliari
    08
    23
    16
    43
    34
    Firenze
    01
    26
    82
    69
    84
    Genova
    77
    04
    26
    23
    83
    Milano
    89
    78
    30
    19
    76
    Napoli
    78
    55
    72
    18
    54
    Palermo
    23
    59
    87
    44
    18
    Roma
    41
    18
    67
    02
    14
    Torino
    09
    75
    73
    59
    78
    Venezia
    58
    33
    67
    62
    46
    Nazionale
    57
    69
    68
    58
    37
    Estrazione Simbolotto
    Cagliari
    01
    21
    05
    44
    25
Indietro
Alto