Spia 90 su Roma

[Yugioh71]

Buona domenica a tutti. Posto un mio metodo che ricava una cinquina da giocare sulle ruote di Bari e Cagliari, ogni qualvolta viene estratto il numero “spia 90” sulla ruota di Roma.
Con l’estrazione del 29.03.2025 il nr. 90 è sortito in 3ª posizione sulla ruota di Roma.
Riporto gli esiti del metodo calcolati sugli ultimi 15 casi compresi nel periodo che va dal 02.11.2023 ad oggi.
Casi esaminati: 15
Casi Positivi: 13
Casi negativi: 01
In gioco: 01 (dal 01.04.2025)
Colpi di gioco: 10 + 1 (recupero)
Totale vincite (comprese le vincite multiple e gli ambi che si sono formati con i terni)
Ambate vinte: 31
Ambi vinti: 31
Terni: 10
Previsione attualmente in gioco dal 1° Aprile 2025:
BARI/CAGLIARI
Ambata: 31
Lunghetta per sorti superiori: 31- 60-11-76-78

 

[giorgio 2]

grazie, per favore hai la statistica x vedere i vari esiti, a che colpo sono usciti gli ambi perchè nei conteggi ci capisco poco, mi faresti un gran favore, grazie

 

[Yugioh71]

Allego la statistica del metodo

 

[giorgio 2]

scusa Yugioh71 le volevo chiedere se conviene giocare l 'ambata e gli abbinamenti o l'intera cinquina, grazie​

​

 

[Yugioh71]

Io preferisco la cinquina. L'ambata se non è determinata non è mai conveniente. Comunque può essere una buona base nel caso ci fossero convergenze, con altri metodi, su quelle ruote

 

[antonioquagliozzi]

salve complemento a 91 come si fa' grazie

 

[Yugioh71]

salve complemento a 91 come si fa' grazie

Buongiorno, per il complemento 91 basta calcolare la distanza che c'è tra il numero in esame e il 91.
Esempio: prendo in considerazione il nostro caso:
Compl.91 al 4 Roma +75
29.03.2025 il 4° estratto: 30
Calcolo: 30+75=105(-90)= 15
Compl.91: 91-15= 76

 

[antonioquagliozzi]

grazie

 

[ERMANNO]

Buongiorno gruppo ... su Bari nell'ultima estrazione, dei 5 numeri da mettere in gioco, sono già usciti 31 e 78. Si prosegue ugualmente???? buona giornata

 

[Yugioh71]

Buongiorno gruppo ... su Bari nell'ultima estrazione, dei 5 numeri da mettere in gioco, sono già usciti 31 e 78. Si prosegue ugualmente???? buona giornata

Non è da escludere che gli stessi si possono ripresentare su Bari o uscire sulla ruota di Cagliari. Oramai ogni estrazione è una sorpresa

 

[LoneWolf]

Allego la statistica del metodo

Non si legge Bene l'allegato ; Grazie

 

[Yugioh71]

Non si legge Bene l'allegato ; Grazie

In giornata vedrò di sistemarlo e pubblicarlo

 

[Yugioh71]

Non si legge Bene l'allegato ; Grazie

 

[antonioquagliozzi]

serve script in ambo e in cinquina,grazie

 

[Yugioh71]

serve script in ambo e in cinquina,grazie

Spero che qualche altro componente, capace, del gruppo lo possa sviluppare

 

[LoneWolf]

serve script in ambo e in cinquina,grazie

Io ho una bozza, per ora, di script; la posizione del 90 sortito preferisco chiederla con Input; Scrivero' la correzione piu avanti:

Option Explicit
Sub Main
' Spia90Roma.ls V.1.6.34 del 31/03/2025
' Script per Spaziometria
'
' Link - https://forum.lottoced.com/threads/spia-90-su-roma.2222511/
'
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
Dim poste(5)

Dim spia,ini,fin,cp,n,e,app,app1,app2,app3,ru,pos,r1,flarit

Dim Importi(2,12)

Importi(1,1) = 1
Importi(1,2) = 2
Importi(1,3) = 4
Importi(1,4) = 8
Importi(1,5) = 16
Importi(1,6) = 32
Importi(1,7) = 64
Importi(1,8) = 128
Importi(1,9) = 256
Importi(1,10) = 512
Importi(1,11) = 1024
Importi(1,12) = 2048

Importi(2,1) = 1
Importi(2,2) = 1
Importi(2,3) = 2
Importi(2,4) = 3
Importi(2,5) = 5
Importi(2,6) = 8
Importi(2,7) = 10
Importi(2,8) = 13
Importi(2,9) = 15
Importi(2,10) = 20
Importi(2,11) = 25
Importi(2,12) = 30

posta(1) = 1
posta(2) = 0
poste(1) = 0
poste(2) = 1

spia = 90
ru = 8
pos = 2

ini = InputBox("Da quale Estrazione vuoi controllare [nr.9572 02/01/2019]?",,10500)
ru = InputBox("Per quale Ruota 1-12, vuoi giocare Num. Spia?",,8)
pos = InputBox("Per quale Posizione 1-5, vuoi giocare Num. Spia?",,2)
flarit = InputBox("Vuoi evidenziare Ritardi Correnti? 1 = Si / Zero = No",,0)
cp = InputBox("Per quanti colpi vuoi giocare?",,6)

ColoreTesto 1
Scrivi String(37,32) & " Estrazione per Ruota: " & ru & " In Posizione: " & pos & " numero spia 90 - Ambo Secco Bari/Cagliari - ",1
Scrivi

ColoreTesto 0

fin = EstrazioneFin

For n = ini To fin

'If(spia = Estratto(n,8,1) Or spia = Estratto(n,8,2) Or spia = Estratto(n,8,3) Or spia = Estratto(n,8,4) Or spia = Estratto(n,8,5)) Then

If(spia = Estratto(n,ru,pos)) Then

'
ReDim MatriceCaselleDaEvid(ru,1)
'
MatriceCaselleDaEvid(1,0) = ru
MatriceCaselleDaEvid(1,1) = pos
'
Call DisegnaEstrazione(n,MatriceCaselleDaEvid)

ruote(1) = 1
ruote(2) = 2
ruote(3) = 0

ColoreTesto 2 :Scrivi "-- Nell' estrazione di ROMA esce Spia 90, Preparo Ambata e Ambo Secco Bari-Cagliari -- script: Spia90Roma.ls ",1

' app = CStr(Estratto(n,8,4))

If e = 1 Then
app3 = CInt(app1)
Else
app3 = CInt(CInt(app1) + CInt(app2))
End If

numeri1(1) = Vert(Fuori90(Estratto(n,8,4) + 73))
numeri1(2) = 91 - Fuori90(Estratto(n,8,4) + 75)

app = Fuori90(Estratto(n,8,3) + 16)

e = Len(app)
If e = 1 Then ' numero ompreso tra 1 e 9
If app < 5 Then numeri1(3) = app + 5 Else numeri1(3) = app - 5 End If
If app = 0 Then numeri1(3) = 90 End If
Else
app1 = Mid(app,1,1)
app2 = Mid(app,2,1)
If app2 = 0 Then
numeri1(3) = app - 5
Else
If app2 > 4 Then
numeri1(3) = app - 5
Else
numeri1(3) = app + 5
End If
End If
End If

' numeri1(3) = Diametrale (Fuori90(Estratto(n,8,3) + 16)) ' Calcolo il diametrale in decina

app = Fuori90(Estratto(n,8,4) + 43)

e = Len(app)
If e = 1 Then ' numero ompreso tra 1 e 9
If app < 5 Then numeri1(4) = app + 5 Else numeri1(3) = app - 5 End If
If app = 0 Then numeri1(4) = 90 End If
Else
app1 = Mid(app,1,1)
app2 = Mid(app,2,1)
If app2 = 0 Then
numeri1(4) = app - 5
Else
If app2 > 4 Then
numeri1(4) = app - 5
Else
numeri1(4) = app + 5
End If
End If
End If

app = Fuori90(Estratto(n,8,5) + 25)

e = Len(app)
If e = 1 Then ' numero ompreso tra 1 e 9
If app < 5 Then numeri1(5) = app + 5 Else numeri1(3) = app - 5 End If
If app = 0 Then numeri1(5) = 90 End If
Else
app1 = Mid(app,1,1)
app2 = Mid(app,2,1)
If app2 = 0 Then
numeri1(5) = app - 5
Else
If app2 > 4 Then
numeri1(5) = app - 5
Else
numeri1(5) = app + 5
End If
End If
End If

If flarit = 1 Then
For r1 = 1 To 2 ' Ruote di Bari e Ca
Scrivi ""
Scrivi "Num:" & Format2(numeri1(1)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(1))) & " Num:" & Format2(numeri1(2)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(2))) & " Num:" & Format2(numeri1(3)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(3))) & " "
Scrivi "Num:" & Format2(numeri1(4)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(4))) & " Num:" & Format2(numeri1(5)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(5))) & " Ruota: " & NomeRuota(r1)
' Scrivi ""
Next
End If

ImpostaGiocata 1,numeri1,ruote,posta,eval(cp),1

ImpostaProgressione 1,Importi

ImpostaGiocata 1,numeri1,ruote,poste,eval(cp),1

ImpostaProgressione 2,Importi

Gioca n

End If

Next
Scrivi

ScriviResoconto ' Questo OK

Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13")

End Sub
'

 

[LoneWolf]

Nuova Versione dello Script:

Option Explicit
Sub Main
' Spia90Roma.ls V.1.6.34 del 31/03/2025
' Script per Spaziometria
'
' Link - https://forum.lottoced.com/threads/spia-90-su-roma.2222511/
'
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
Dim poste(5)

Dim spia,ini,fin,cp,n,e,app,app1,app2,app3,ru,pos,r1,flarit,p,tro,bloc

Dim Importi(2,12)

Importi(1,1) = 1
Importi(1,2) = 2
Importi(1,3) = 4
Importi(1,4) = 8
Importi(1,5) = 16
Importi(1,6) = 32
Importi(1,7) = 64
Importi(1,8) = 128
Importi(1,9) = 256
Importi(1,10) = 512
Importi(1,11) = 1024
Importi(1,12) = 2048

Importi(2,1) = 1
Importi(2,2) = 1
Importi(2,3) = 2
Importi(2,4) = 3
Importi(2,5) = 5
Importi(2,6) = 8
Importi(2,7) = 10
Importi(2,8) = 13
Importi(2,9) = 15
Importi(2,10) = 20
Importi(2,11) = 25
Importi(2,12) = 30

posta(1) = 1
posta(2) = 0
poste(1) = 0
poste(2) = 1

spia = 90
ru = 8
pos = 2

ini = InputBox("Da quale Estrazione vuoi controllare [nr.9572 02/01/2019]?",,10250)
ru = InputBox("Per quale Ruota 1-12, vuoi giocare Num. Spia?",,8)
bloc = InputBox("Vuoi terminare al primo Riscontro valido?",,0)
flarit = InputBox("Vuoi evidenziare Ritardi Correnti? 1 = Si / Zero = No",,0)
cp = InputBox("Per quanti colpi vuoi giocare?",,12)

fin = EstrazioneFin

For n = ini To fin

tro = 0
For p = 1 To 5
If(spia = Estratto(n,ru,p)) Then tro = 1: pos = p End If
Next

If tro = 1 Then

ColoreTesto 1
Scrivi String(37,32) & " Estrazione per Ruota: " & ru & " In Posizione: " & pos & " numero spia 90 - Ambo Secco Bari/Cagliari - ",1
Scrivi
ColoreTesto 0

'
ReDim MatriceCaselleDaEvid(ru,1)
'
MatriceCaselleDaEvid(1,0) = ru
MatriceCaselleDaEvid(1,1) = pos
'
Call DisegnaEstrazione(n,MatriceCaselleDaEvid)

ruote(1) = 1
ruote(2) = 2

ColoreTesto 2 :Scrivi "-- Nell' estrazione di ROMA esce Spia 90, Preparo Ambata e Ambo Secco Bari-Cagliari -- script: Spia90Roma.ls ",1

' app = CStr(Estratto(n,8,4))

If e = 1 Then
app3 = CInt(app1)
Else
app3 = CInt(CInt(app1) + CInt(app2))
End If

numeri1(1) = Vert(Fuori90(Estratto(n,8,4) + 73))
numeri1(2) = 91 - Fuori90(Estratto(n,8,4) + 75)

app = Fuori90(Estratto(n,8,3) + 16)

e = Len(app)
If e = 1 Then ' numero ompreso tra 1 e 9
If app < 5 Then numeri1(3) = app + 5 Else numeri1(3) = app - 5 End If
If app = 0 Then numeri1(3) = 90 End If
Else
app1 = Mid(app,1,1)
app2 = Mid(app,2,1)
If app2 = 0 Then
numeri1(3) = app - 5
Else
If app2 > 4 Then
numeri1(3) = app - 5
Else
numeri1(3) = app + 5
End If
End If
End If

' numeri1(3) = Diametrale (Fuori90(Estratto(n,8,3) + 16)) ' Calcolo il diametrale in decina

app = Fuori90(Estratto(n,8,4) + 43)

e = Len(app)
If e = 1 Then ' numero ompreso tra 1 e 9
If app < 5 Then numeri1(4) = app + 5 Else numeri1(3) = app - 5 End If
If app = 0 Then numeri1(4) = 90 End If
Else
app1 = Mid(app,1,1)
app2 = Mid(app,2,1)
If app2 = 0 Then
numeri1(4) = app - 5
Else
If app2 > 4 Then
numeri1(4) = app - 5
Else
numeri1(4) = app + 5
End If
End If
End If

app = Fuori90(Estratto(n,8,5) + 25)

e = Len(app)
If e = 1 Then ' numero ompreso tra 1 e 9
If app < 5 Then numeri1(5) = app + 5 Else numeri1(3) = app - 5 End If
If app = 0 Then numeri1(5) = 90 End If
Else
app1 = Mid(app,1,1)
app2 = Mid(app,2,1)
If app2 = 0 Then
numeri1(5) = app - 5
Else
If app2 > 4 Then
numeri1(5) = app - 5
Else
numeri1(5) = app + 5
End If
End If
End If

If flarit = 1 Then
For r1 = 1 To 2
Scrivi ""
Scrivi "Num:" & Format2(numeri1(1)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(1))) & " Num:" & Format2(numeri1(2)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(2))) & " Num:" & Format2(numeri1(3)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(3))) & " "
Scrivi "Num:" & Format2(numeri1(4)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(4))) & " Num:" & Format2(numeri1(5)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(5))) & " Ruota: " & NomeRuota(r1)
' Scrivi ""
Next
End If

ImpostaGiocata 1,numeri1,ruote,posta,eval(cp),bloc

ImpostaProgressione 1,Importi

ImpostaGiocata 1,numeri1,ruote,poste,eval(cp),bloc

ImpostaProgressione 2,Importi

Gioca n

End If

Next
Scrivi

ScriviResoconto ' Questo OK

Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13")

End Sub
'

Alcuni risultati sono non corrispondenti allo specchietto dell'Autore !
comunque la maggior parte e' OK

 

[LoneWolf]

Vedi l'allegato 2299817Vedi l'allegato 2299818

Salve YuGioh71 , Ho inserito un paio di Script; il Secondo molto corrispondente con i tuoi risultati:
Una piccola differenza il 3 5 2024 ho un 20 al posto del 15 , e' non esce terno ma ambo a CA ( 31 - 78 )
Hai modo di far girare lo Script ? E controllare Grazie

 

[LoneWolf]

Spero che qualche altro componente, capace, del gruppo lo possa sviluppare

Spero possiate verificare ( Solo il secondo e' completo ) che il sistema riportato e' veramente efficace !

 

[Yugioh71]

Salve YuGioh71 , Ho inserito un paio di Script; il Secondo molto corrispondente con i tuoi risultati:
Una piccola differenza il 3 5 2024 ho un 20 al posto del 15 , e' non esce terno ma ambo a CA ( 31 - 78 )
Hai modo di far girare lo Script ? E controllare Grazie

Non appena riesco controllo subito. Comunque ottimo lavoro, grazie