|
|
|
Salve a voi tutti,ecco 2 nuovi listati L8+ da usare quando vogliamo usare metodi tipo" trovare il terno spia 20-21-22",cioe' quando il Terno da trovare e' della stessa decina,sia naturale(es. dal 21-30) sia cabalististica(es. dal 20 al 29):entrambi hanno in previsione una Terzina(questa la dovete trovare voi..) per Ambo e Terno Frequente su 2 ruote a scelta,ma volendo si puo' optare anche per il gioco di ambata,cambiando alcuni parametri..
Ricordo che le decine cabalistiche sono combinazioni di 10 numeri ciascuna. Ogni combinazione è costituita dai numeri che fanno parte di una stessa decade. Fa eccezione la decina 0 che fra i suoi elementi ha anche il 90.
Riportiamo ad esempio qualche decina cabalistica:
Decina 0 90 1 2 3 4 5 6 7 8 9
Decina 1 10 11 12 13 14 15 16 17 18 19
Decina 2 20 21 22 23 24 25 26 27 28 29
Decina 3 30 31 32 33 34 35 36 37 38 39
Invece le decine naturali sono 10. La prima decina è costituita dai numeri che vanno dall'uno al 10, la seconda dai numeri dall'11 al 20, la terza dai numeri dal 21 al 30 e così via.
Primo Listato:Terno Spia in Decina Cabalistica
in quest'esempio ,dopo la sortita di un Terno Spia della Decina Cabalistica 20-29 su Venezia,gioca su Firenze e Torino la Terzina Frequente(x A/T) 22-23-24 :
CODICE Sub main()
Dim nu(10)
Dim num(10)
Dim ru(1)
Dim rut(2)
Dim poste(4)
'poste(1)=1
poste(2)=1
poste(3)=0.05
'poste(4)=0.05
fin=EstrazioneFin
ini= fin-1250
For n = ini To fin
AvanzamentoElab ini,fin,n
Erase nu
dc=2 ' imposta la decina
y=0
For x=0 To 9
y=y+1
nu(y)=(dc*10)+x
If nu(y)=0 Then nu(y)=90
Next
r=10 '<<<<<<<<<<<ruota base
ru(1)=r
r1=3 '<<<<<<<<<<<ruota giocata
r2=9 '<<<<<<<<<<<ruota giocata
rut(1)=r1
rut(2)=r2
If SerieFreq (n,n,nu,ru,3)>0 Then' cambia 3 con 2 se vuoi almeno ambo, con 4 se vuoi almeno quaterna, ecc.
riga="" : co=0
For p= 1 To 5
For i= 1 To 10
If Estratto(n,r,p)= nu(i) Then
co=co+1
riga=riga &" "& nu(i)
End If
Next
Next
ColoreTesto 2
Scrivi "Trovati "& co &" numeri : "& riga,1
ColoreTesto 1
Scrivi DataEstrazione(n)&" ["&Left(NomeRuota(r),2)&"] "& StringaEstratti (n,r),1
num(1)=22: num(2)=23: num(3)=24: '<<<<<<<<<<<<<<<<metti le prev. che vuoi
ImpostaGiocata 1,num,rut,poste,14
Gioca n
Scrivi String(60,"-")
End If
Next : : ScriviResoconto : End Sub
Infatti il risultato e' questo:
CODICE Trovati 3 numeri : 22 29 24
06.07.2002 [Ve] 56.79.22.29.24
sab 06.07.2002 [7140]
G 1: AT 22.23.24 Fi To 14/14
negativo
------------------------------------------------------------
Trovati 3 numeri : 20 25 21
25.09.2002 [Ve] 65.20.72.25.21
mer 25.09.2002 [7163]
G 1: AT 22.23.24 Fi To 14/14
negativo
------------------------------------------------------------
Trovati 3 numeri : 20 29 22
17.07.2004 [Ve] 20.29.39.22.85
sab 17.07.2004 [7357]
G 1: AT 22.23.24 Fi To 14/14
negativo
------------------------------------------------------------
Trovati 3 numeri : 23 24 25
12.09.2006 [Ve] 23.74.10.24.25
mar 12.09.2006 [7646]
G 1: AT 22.23.24 Fi To 14/14
negativo
------------------------------------------------------------
Trovati 3 numeri : 28 27 24
28.11.2006 [Ve] 28.27.24.14.04
mar 28.11.2006 [7679]
G 1: AT 22.23.24 Fi To 14/14
negativo
------------------------------------------------------------
Trovati 3 numeri : 24 23 25
07.08.2007 [Ve] 24.23.77.25.33
mar 07.08.2007 [7787]
G 1: AT 22.23.24 Fi To 14/14
negativo
------------------------------------------------------------
Trovati 3 numeri : 28 29 24
05.11.2009 [Ve] 57.28.29.24.73
gio 05.11.2009 [8139]
G 1: AT 22.23.24 Fi To 14/14
negativo
------------------------------------------------------------
Trovati 3 numeri : 20 23 21
26.05.2011 [Ve] 56.20.23.21.81
gio 26.05.2011 [8382]
G 1: AT 22.23.24 Fi To 0/14
n.i. (14 colpi)
------------------------------------------------------------
Secondo Listato:Terno Spia in Decina Naturale
in quest'esempio ,dopo la sortita di un Terno Spia della Decina Naturale 21-30 su Venezia,gioca su Firenze e Torino la Terzina Frequente(x A/T) 22-23-24 :
CODICE Sub main()
Dim nu(10)
Dim num(10)
Dim ru(1)
Dim rut(2)
Dim poste(4)
'poste(1)=1
poste(2)=1
poste(3)=0.05
'poste(4)=0.05
fin=EstrazioneFin
ini= fin-2000
For n = ini To fin
AvanzamentoElab ini,fin,n
Erase nu
dc=2 ' imposta la decina
For x=0 To 10
nu(x)=(dc*10)+x
Next
r=10 '<<<<<<<<<<<ruota base
ru(1)=r
r1=3 '<<<<<<<<<<<ruota giocata
r2=9 '<<<<<<<<<<<ruota giocata
rut(1)=r1
rut(2)=r2
If SerieFreq (n,n,nu,ru,3)>0 Then' cambia 3 con 2 se vuoi almeno ambo, con 4 se vuoi almeno quaterna, ecc.
riga="" : co=0
For p= 1 To 5
For i= 1 To 10
If Estratto(n,r,p)= nu(i) Then
co=co+1
riga=riga &" "& nu(i)
End If
Next
Next
ColoreTesto 2
Scrivi "Trovati "& co &" numeri : "& riga,1
ColoreTesto 1
Scrivi DataEstrazione(n)&" ["&Left(NomeRuota(r),2)&"] "& StringaEstratti (n,r),1
num(1)=22: num(2)=23: num(3)=24: '<<<<<<<<<<<<<<<<metti le prev. che vuoi
ImpostaGiocata 1,num,rut,poste,14
Gioca n
Scrivi String(60,"-")
End If
Next : : ScriviResoconto : End Sub
Infatti il risultato e' questo:
CODICE ------------------------------------------------------------
Trovati 3 numeri : 30 27 24
27.08.1994 [Ve] 30.27.51.52.24
sab 27.08.1994 [6451]
G 1: AT 22.23.24 Fi To 14/14
negativo
------------------------------------------------------------
Trovati 3 numeri : 29 25 30
03.09.1994 [Ve] 55.61.29.25.30
sab 03.09.1994 [6452]
G 1: AT 22.23.24 Fi To 14/14
negativo
------------------------------------------------------------
Trovati 3 numeri : 26 23 30
02.05.2001 [Ve] 26.50.11.23.30
mer 02.05.2001 [7016]
G 1: AT 22.23.24 Fi To 14/14
negativo
------------------------------------------------------------
Trovati 3 numeri : 22 30 21
06.06.2001 [Ve] 73.77.22.30.21
mer 06.06.2001 [7026]
G 1: AT 22.23.24 Fi To 14/14
negativo
------------------------------------------------------------
Trovati 3 numeri : 22 29 24
06.07.2002 [Ve] 56.79.22.29.24
sab 06.07.2002 [7140]
G 1: AT 22.23.24 Fi To 14/14
negativo
------------------------------------------------------------
Trovati 3 numeri : 30 28 29
07.06.2003 [Ve] 30.34.55.28.29
sab 07.06.2003 [7241]
G 1: AT 22.23.24 Fi To 14/14
negativo
------------------------------------------------------------
Trovati 3 numeri : 23 24 25
12.09.2006 [Ve] 23.74.10.24.25
mar 12.09.2006 [7646]
G 1: AT 22.23.24 Fi To 14/14
negativo
------------------------------------------------------------
Trovati 3 numeri : 28 27 24
28.11.2006 [Ve] 28.27.24.14.04
mar 28.11.2006 [7679]
G 1: AT 22.23.24 Fi To 14/14
negativo
------------------------------------------------------------
Trovati 3 numeri : 24 23 25
07.08.2007 [Ve] 24.23.77.25.33
mar 07.08.2007 [7787]
G 1: AT 22.23.24 Fi To 14/14
negativo
------------------------------------------------------------
Trovati 3 numeri : 28 29 24
05.11.2009 [Ve] 57.28.29.24.73
gio 05.11.2009 [8139]
G 1: AT 22.23.24 Fi To 14/14
negativo
------------------------------------------------------------
Spero di aver reso cosa gradita,un saluto a tutti voi,sean69!!
Sono graditi i vostri voti per aiutare questo Forum a crescere.Grazie!
|
|
.
Offline
Web