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
    sabato 09 maggio 2026
    Bari
    65
    02
    64
    85
    33
    Cagliari
    28
    76
    58
    69
    64
    Firenze
    15
    87
    69
    64
    22
    Genova
    36
    34
    40
    55
    52
    Milano
    66
    27
    36
    11
    56
    Napoli
    51
    75
    66
    38
    24
    Palermo
    28
    41
    02
    40
    44
    Roma
    38
    34
    07
    36
    16
    Torino
    54
    62
    73
    64
    30
    Venezia
    81
    41
    84
    64
    89
    Nazionale
    05
    56
    68
    71
    31
    Estrazione Simbolotto
    Milano
    32
    27
    22
    20
    13
Indietro
Alto