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ì 04 aprile 2025
    Bari
    37
    55
    29
    11
    70
    Cagliari
    10
    16
    04
    01
    81
    Firenze
    15
    62
    30
    85
    72
    Genova
    16
    07
    34
    25
    18
    Milano
    01
    77
    67
    72
    76
    Napoli
    47
    14
    55
    87
    45
    Palermo
    49
    90
    79
    66
    41
    Roma
    28
    14
    10
    65
    88
    Torino
    22
    60
    50
    04
    08
    Venezia
    23
    60
    74
    52
    43
    Nazionale
    74
    44
    90
    06
    56
    Estrazione Simbolotto
    Genova
    28
    22
    15
    36
    09

Ultimi Messaggi

Indietro
Alto