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
    giovedì 16 aprile 2026
    Bari
    17
    71
    26
    06
    73
    Cagliari
    35
    72
    04
    61
    78
    Firenze
    22
    30
    46
    57
    81
    Genova
    77
    48
    17
    59
    64
    Milano
    90
    02
    32
    08
    57
    Napoli
    04
    71
    12
    77
    76
    Palermo
    42
    87
    07
    24
    56
    Roma
    32
    67
    03
    44
    38
    Torino
    25
    48
    17
    09
    50
    Venezia
    15
    81
    10
    03
    86
    Nazionale
    76
    20
    38
    59
    80
    Estrazione Simbolotto
    Genova
    28
    04
    02
    41
    29
Indietro
Alto