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 26 luglio 2025
    Bari
    81
    09
    05
    54
    10
    Cagliari
    56
    07
    45
    69
    64
    Firenze
    39
    16
    56
    29
    09
    Genova
    67
    12
    55
    74
    04
    Milano
    40
    30
    44
    63
    27
    Napoli
    63
    07
    74
    86
    81
    Palermo
    80
    34
    16
    27
    53
    Roma
    08
    78
    43
    03
    52
    Torino
    38
    84
    47
    57
    20
    Venezia
    88
    70
    85
    65
    24
    Nazionale
    36
    09
    43
    55
    10
    Estrazione Simbolotto
    Nazionale
    25
    23
    13
    40
    35

Ultimi Messaggi

Indietro
Alto