R
Roby
Guest
nuovo tentativo valido per 10 colpi
GENOVA
Estratto 57
posizioni 1° e 2°
GENOVA
Estratto 57
posizioni 1° e 2°
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
jp4
Advanced Member >PLATINUM<
plutone 101
Advanced Member
ok ci sono anch'io meno 6
R
Roby
Guest
storico 574 su genova e a distanza 9 conc. da storico assoluto sulle 10 ruote
sono quasi 32 cicli (574/18) di 18 che non si ripete nei primi 10 colpi successivi all'ultima uscita precedente
la media è nella parte alta oltre i 550
statisticamente c'è, ha tutte le carte in ordine per poter dare soddisfazione, vediamo come la vede chi gestisce il banco.
sono quasi 32 cicli (574/18) di 18 che non si ripete nei primi 10 colpi successivi all'ultima uscita precedente
la media è nella parte alta oltre i 550
statisticamente c'è, ha tutte le carte in ordine per poter dare soddisfazione, vediamo come la vede chi gestisce il banco.
Ultima modifica:
plutone 101
Advanced Member
bravissimo per il 57 consigliato e soprattutto la posizione.
R
Roby
Guest
è andato anche il 57 a Genova
mi può bastare anche così!
peccato perché avevo caricato l'ambo secco 57 con 68 di Miki55, ma si è fermato al 57 67.
poteva essere un buon regolo per le ferie pagate, invece così non è stato.
sarà per la prossima!
mi può bastare anche così!
peccato perché avevo caricato l'ambo secco 57 con 68 di Miki55, ma si è fermato al 57 67.
poteva essere un buon regolo per le ferie pagate, invece così non è stato.
sarà per la prossima!
Ultima modifica:
R
Roby
Guest
ciao roberta78
la terzina 27 82 90 su genova è arrivata al suo storico
ritardo 54 su maxsto 54
pertanto può essere arrivata alla rottura, dove si frantumera con almeno 1 estratto.
c'è un però, che questi 3 estratti sono i primi più ritardatari su questa ruota in questo momento, questo particolare mi lascia
per mia esperienza, in dubbio come risultato favorevole.(cioè sono combattuto)
dovremmo preventivare almeno 13 colpi per sicurezza, ma sono troppi.
quindi il 90 personalmente non lo gioco.
la terzina 27 82 90 su genova è arrivata al suo storico
ritardo 54 su maxsto 54
pertanto può essere arrivata alla rottura, dove si frantumera con almeno 1 estratto.
c'è un però, che questi 3 estratti sono i primi più ritardatari su questa ruota in questo momento, questo particolare mi lascia
per mia esperienza, in dubbio come risultato favorevole.(cioè sono combattuto)
dovremmo preventivare almeno 13 colpi per sicurezza, ma sono troppi.
quindi il 90 personalmente non lo gioco.
R
Roby
Guest
con questo script si rileva che sulla ruota di Genova
la coppia 27 82 ¨¨ in buona posizione per dare 1 estratto
RIT.68 max 68 incr.27
l'estratto 27 dovrebbe arrivare in 1° o 4° posizione det.
l'estratto 82 dovrebbe arrivare in 2° o 3° posizione det.
si arriva a questa previsione utilizzando la frequenza delle uscite nelle 3 sezione dove vengono estratti
i numeri del lotto
VENUS NORD-CENTRO-SUD, in particolare si vede la combinazione elaborando la situazione C=Centro
questi i numeri prossimi allo sfaldamento anche a Cagliari o a Firenze per una ripetizione.
[codice]
Scrivi "Venus Nord - Centro - Sud ",1
Scrivi "=================== by rubino",1
Scrivi
'La BaseF Venus-Nord
'21.11.2013 Analisi Frequenza su Genova Milano Torino Venezia
'La BaseF Venus-Centro
'21.11.2013 Analisi Frequenza su Cagliari Firenze Roma Nazionale
'La BaseF Venus-Sud
'21.11.2013 Analisi Frequenza su Bari Napoli Palermo
Sub Main()
Dim nu(1),ru1(1),ru2(1),nr(1),ruote(2),ar(4)
Dim fin,Ini,venus,ei,csm,r1,rt1,r2,rt2,cs,est,fr1,fr2,n,lim,prov,Classe,s,ri,estRA,iix,t,rax,i,tirub1,tirub2,irub1,irub2,rub,mm,nx
Dim colonne,scolonna,y,j,ic,iin,rut,RetRit,retritmax,RetIncrRitMax,RetFre,g,CT,Retesito,RetEstratti,RetIdEstr,RetColpi,rita1,rita2,dal,d,vv,p,znx
fin = InputBox("Estrazione n.",,EstrazioneFin)
venus = InputBox("Venus Nord - Centro - Sud ",,"N")
ei = InputBox(" Rileva indietro n.estrazioni ",,7)
s = CInt(InputBox("Sorte (1=ESTRATTO 2=AMBO) ",,1))
If s = 1 Then
dal = fin - 50
mm = InputBox("USCITE nel Mese ",,"06")
End If
Classe = InputBox("Sviluppa in classe ",,2)
If venus = "N" Then
ar(1) = 4
ar(2) = 5
ar(3) = 9
ar(4) = 10
lim = 4
prov = " *NORD* "
End If
If venus = "C" Then
ar(1) = 2
ar(2) = 3
ar(3) = 8
ar(4) = 12
lim = 4
prov = " *CENTRO* "
End If
If venus = "S" Then
ar(1) = 1
ar(2) = 6
ar(3) = 7
lim = 3
prov = " *SUD* "
End If
ColoreTesto(2)
Scrivi " Analisi Coppie di Ruote da VENUS " & prov,1
Scrivi " Analisi fatta su 2 Ruote su " & ei & " estrazioni " & fin + 1 - ei & "/" & DataEstrazione(fin + 1 - ei) & " e " & fin & "/" & DataEstrazione(fin),1
Scrivi " Richiesta analisi stat. Mese ( " & mm & " ) ",1
Scrivi
ColoreTesto(0)
For r1 = 1 To lim
rt1 = ar(r1) : ru1(1) = ar(r1)
For r2 = r1 + 1 To lim
If r2 <> 11 Then
rt2 = ar(r2) : ru2(1) = ar(r2) : cs = 0 : rita1 = "":rita2 = "":estRA = ""
ReDim sinu(90)
For n = 1 To 90
nr(1) = n
fr1 = SerieFreq(fin -(ei - 1),fin - 1,nr,ru1,1)
fr2 = SerieFreq(fin -(ei - 1),fin - 1,nr,ru2,1)
If fr1 > 0 And fr2 > 0 Then
cs = cs + 1
sinu(cs) = Format2(n)
estRA = estRA & Format2(n) & "."
rita1 = rita1 & Format2(EstrattoRitardoTurbo(rt1,n,fin - 250,fin)) & "."
rita2 = rita2 & Format2(EstrattoRitardoTurbo(rt2,n,fin - 250,fin)) & "."
End If
Next
ColoreTesto(1)
Scrivi "Numeri validi dal " & fin & "/" & DataEstrazione(fin) & " Ricerca della Sintonia sulle ruote di " & _
NomeRuota(rt1) & "." & NomeRuota(rt2) & " con " + Format2(cs) & " numeri",1
Scrivi
''''trova uscite nel mese ultimi anni
If s = 1 Then
ReDim nm(1),aru(1)
colonne = SviluppoIntegrale(sinu,1)
For y = 1 To UBound(colonne)
Scrivi "--------------------------------------------------",1
scolonna = ""
If ScriptInterrotto Then Exit For
Call AvanzamentoElab(1,UBound(colonne),y)
For j = 1 To 1
scolonna = scolonna & Format2(colonne(y,j)) & " "
nm(j) = colonne(y,j)
Next
''''prima ruota
ReDim aru(1),aretritardi(0),aretidestr(0)
aru(1) = rt1
Call ElencoRitardiTurbo(nm,aru,1,fin - 1000,fin,aretritardi,aretidestr)
nx = UBound(aretidestr) - 1
Scrivi Format2(nm(1)) & "..." & SiglaRuota(aru(1)) & "....." & fin - 1000 & ".." & fin
For znx = 1 To nx
d = DataEstrazione(aretidestr(znx))
If Mid(d,4,2) = mm Then
p = Posizione(aretidestr(znx),aru(1),nm(1))
ColoreTesto(2)
Scrivi " " & SiglaRuota(aru(1)) & "...." & aretidestr(znx) & " - " & d & "...." & Format2(nm(1)) & ".....P.Det." & p,1
ColoreTesto(0)
End If
Next
''''seconda ruota
ReDim aru(1),aretritardi(0),aretidestr(0)
aru(1) = rt2
Call ElencoRitardiTurbo(nm,aru,1,fin - 1000,fin,aretritardi,aretidestr)
nx = UBound(aretidestr) - 1
Scrivi Format2(nm(1)) & "..." & SiglaRuota(aru(1)) & "....." & fin - 1000 & ".." & fin
For znx = 1 To nx
d = DataEstrazione(aretidestr(znx))
If Mid(d,4,2) = mm Then
p = Posizione(aretidestr(znx),aru(1),nm(1))
ColoreTesto(1)
Scrivi " " & SiglaRuota(aru(1)) & "...." & aretidestr(znx) & " - " & d & "...." & Format2(nm(1)) & ".....P.Det." & p,1
ColoreTesto(0)
End If
Next
Next
End If
ColoreTesto(0)
Scrivi String((cs*3),"*")
Scrivi " Sviluppata in classe " & Classe & " per la sorte..." & s,1
Scrivi "------------------------------------------------------------------------------------------------",1
ColoreTesto(0)
ReDim atit(43),aval(43),MAXMAX(12),nm(5)
' preimposto i titoli delle colonne
atit(1) = " Prog. "
atit(2) = " Nr.Comb. "
atit(3) = " "
atit(4) = " BA "
atit(5) = " CA "
atit(6) = " FI "
atit(7) = " GE "
atit(8) = " MI "
atit(9) = " NA "
atit(10) = " PA "
atit(11) = " RO "
atit(12) = " TO "
atit(13) = " VE "
atit(14) = " TT "
atit(15) = " NZ "
atit(16) = " "
atit(17) = " BA max"
atit(18) = " CA max"
atit(19) = " FI max"
atit(20) = " GE max"
atit(21) = " MI max"
atit(22) = " NA max"
atit(23) = " PA max"
atit(24) = " RO max"
atit(25) = " TO max"
atit(26) = " VE max"
atit(27) = " TT max"
atit(28) = " NZ max"
atit(29) = " "
atit(30) = " BA Incr"
atit(31) = " CA Incr"
atit(32) = " FI Incr"
atit(33) = " GE Incr"
atit(34) = " MI Incr"
atit(35) = " NA Incr"
atit(36) = " PA Incr"
atit(37) = " RO Incr"
atit(38) = " TO Incr"
atit(39) = " VE Incr"
atit(40) = " TT Incr"
atit(41) = " NZ Incr"
atit(42) = " 1° IC "
atit(43) = " 2° IC "
' ' inizializzo la tabella
SetTableWidth("90%")
Call InitTabella(atit,2,"center",1.4,5,"Cambria")
'''' sviluppa integrale in ambi
If cs > 0 Then
colonne = SviluppoIntegrale(sinu,Classe)
For y = 1 To UBound(colonne)
scolonna = ""
If ScriptInterrotto Then Exit For
Call AvanzamentoElab(1,UBound(colonne),y)
For j = 1 To Classe
scolonna = scolonna & Format2(colonne(y,j)) & " "
nm(j) = colonne(y,j)
Next
irub1 = "" : irub2 = ""
'''''----------------------------------------------------------------------------------
''''' calcola 1° e 2° Ic
tirub1 = 0 : tirub2 = 0:aval(42) = 0 : aval(43) = 0
For i = 1 To Classe
rub = Int(EstrattoRitardo(rt1,nm(i),,fin))
irub1 = Round(rub/6,2)
tirub1 = tirub1 + irub1
rub = Int(EstrattoRitardo(rt2,nm(i),,fin))
irub2 = Round(rub/6,2)
tirub2 = tirub2 + irub2
Next
aval(42) = tirub1: aval(43) = tirub2
'''''----------------------------------------------------------------------------------
ReDim art(2)
art(1) = rt1 : art(2) = rt2
'''verifica esito nel mese successivo
Call VerificaEsitoTurbo(nm,art,fin + 1,s,9,,Retesito,RetColpi,RetEstratti,RetIdEstr)
If RetIdEstr <> 0 Then
Scrivi RetIdEstr & " " & RetEstratti & " " & Retesito & "...al colpo n.." & FormatSpace(RetColpi,6) & FormatSpace(" COMB.Nr." & StringaNumeri(nm,"."),15) & " ic..." & aval(42) & " - " & aval(43),1
End If
'''''----------------------------------------------------------------------------------
ReDim rt(1)
ic = 3 : iin = 16 : iix = 29
For rut = 1 To 12
rt(1) = rut
Call StatisticaFormazioneTurbo(nm,rt,s,RetRit,retritmax,RetIncrRitMax,,EstrazioneIni,fin)
ic = ic + 1 : iin = iin + 1 : iix = iix + 1
aval(ic) = Int(RetRit)
aval(iin) = retritmax
aval(iix) = RetIncrRitMax
If aval(iin) > MAXMAX(rut) Then
MAXMAX(rut) = aval(iin)
End If
Next
CT = CT + 1
aval(1) = CT
aval(2) = scolonna
aval(3) = " "
For g = 17 To 27
If aval(g) > 0 Then
Call AddRigaTabella(aval,Bianco_,"center",1)
Call SetColoreCella(Int(rt1 + 3),RGB(125,187,104),vbBlue)
Call SetColoreCella(Int(rt2 + 3),RGB(125,187,104),vbBlue)
If aval(14) >= 2 Then
Call SetColoreCella(14,RGB(70,60,162),vbYellow)
End If
Exit For
End If
Next
For g = 17 To 27
If aval(g) > 0 Then
Call SetColoreCella(3,RGB(55,57,130),vbBlue)
Call SetColoreCella(2,RGB(74,155,60),vbWhite)
Call SetColoreCella(16,RGB(55,57,130),vbBlue)
If Int(aval(g - 13)) >= Int(aval(g)) Then
Call SetColoreCella(Int(g),RGB(255,255,128),vbBlue)
Call SetColoreCella(Int(g - 13),RGB(255,255,128),vbBlue)
Call SetColoreCella(Int(g + 13),RGB(255,255,128),vbBlue)
End If
End If
Next
If aval(42) >= 1 And aval(43) >= 1 Then
Call SetColoreCella(42,RGB(254,250,169),vbBlue)
Call SetColoreCella(43,RGB(254,250,169),vbBlue)
Call SetColoreCella(1,RGB(254,250,169),vbBlue)
Call SetColoreCella(2,RGB(254,250,169),vbBlue)
End If
'''''------------------------------------------------------------------------------------------
Next
Scrivi "------------------------------------------------------------------------------------------------",1
ColoreTesto(2)
' OrdinaMatrice sinu,1
Scrivi "Numeri..................." & estRA,1
ColoreTesto(1)
Scrivi "Rit. 1 Ruota........" & SiglaRuota(rt1) & " " & rita1,1
Scrivi "Rit. 2 Ruota........" & SiglaRuota(rt2) & " " & rita2,1
Scrivi
ColoreTesto(0)
Call CreaTabella(14)
rax = ""
For t = 1 To 12
rax = rax & FormatSpace(MAXMAX(t),1) & " "
Next
Scrivi " MAXMAX " & rax,1
Scrivi
End If
End If
Next
Next
Scrivi
End Sub
[/codice]
la coppia 27 82 ¨¨ in buona posizione per dare 1 estratto
RIT.68 max 68 incr.27
l'estratto 27 dovrebbe arrivare in 1° o 4° posizione det.
l'estratto 82 dovrebbe arrivare in 2° o 3° posizione det.
si arriva a questa previsione utilizzando la frequenza delle uscite nelle 3 sezione dove vengono estratti
i numeri del lotto
VENUS NORD-CENTRO-SUD, in particolare si vede la combinazione elaborando la situazione C=Centro
questi i numeri prossimi allo sfaldamento anche a Cagliari o a Firenze per una ripetizione.
[codice]
Scrivi "Venus Nord - Centro - Sud ",1
Scrivi "=================== by rubino",1
Scrivi
'La BaseF Venus-Nord
'21.11.2013 Analisi Frequenza su Genova Milano Torino Venezia
'La BaseF Venus-Centro
'21.11.2013 Analisi Frequenza su Cagliari Firenze Roma Nazionale
'La BaseF Venus-Sud
'21.11.2013 Analisi Frequenza su Bari Napoli Palermo
Sub Main()
Dim nu(1),ru1(1),ru2(1),nr(1),ruote(2),ar(4)
Dim fin,Ini,venus,ei,csm,r1,rt1,r2,rt2,cs,est,fr1,fr2,n,lim,prov,Classe,s,ri,estRA,iix,t,rax,i,tirub1,tirub2,irub1,irub2,rub,mm,nx
Dim colonne,scolonna,y,j,ic,iin,rut,RetRit,retritmax,RetIncrRitMax,RetFre,g,CT,Retesito,RetEstratti,RetIdEstr,RetColpi,rita1,rita2,dal,d,vv,p,znx
fin = InputBox("Estrazione n.",,EstrazioneFin)
venus = InputBox("Venus Nord - Centro - Sud ",,"N")
ei = InputBox(" Rileva indietro n.estrazioni ",,7)
s = CInt(InputBox("Sorte (1=ESTRATTO 2=AMBO) ",,1))
If s = 1 Then
dal = fin - 50
mm = InputBox("USCITE nel Mese ",,"06")
End If
Classe = InputBox("Sviluppa in classe ",,2)
If venus = "N" Then
ar(1) = 4
ar(2) = 5
ar(3) = 9
ar(4) = 10
lim = 4
prov = " *NORD* "
End If
If venus = "C" Then
ar(1) = 2
ar(2) = 3
ar(3) = 8
ar(4) = 12
lim = 4
prov = " *CENTRO* "
End If
If venus = "S" Then
ar(1) = 1
ar(2) = 6
ar(3) = 7
lim = 3
prov = " *SUD* "
End If
ColoreTesto(2)
Scrivi " Analisi Coppie di Ruote da VENUS " & prov,1
Scrivi " Analisi fatta su 2 Ruote su " & ei & " estrazioni " & fin + 1 - ei & "/" & DataEstrazione(fin + 1 - ei) & " e " & fin & "/" & DataEstrazione(fin),1
Scrivi " Richiesta analisi stat. Mese ( " & mm & " ) ",1
Scrivi
ColoreTesto(0)
For r1 = 1 To lim
rt1 = ar(r1) : ru1(1) = ar(r1)
For r2 = r1 + 1 To lim
If r2 <> 11 Then
rt2 = ar(r2) : ru2(1) = ar(r2) : cs = 0 : rita1 = "":rita2 = "":estRA = ""
ReDim sinu(90)
For n = 1 To 90
nr(1) = n
fr1 = SerieFreq(fin -(ei - 1),fin - 1,nr,ru1,1)
fr2 = SerieFreq(fin -(ei - 1),fin - 1,nr,ru2,1)
If fr1 > 0 And fr2 > 0 Then
cs = cs + 1
sinu(cs) = Format2(n)
estRA = estRA & Format2(n) & "."
rita1 = rita1 & Format2(EstrattoRitardoTurbo(rt1,n,fin - 250,fin)) & "."
rita2 = rita2 & Format2(EstrattoRitardoTurbo(rt2,n,fin - 250,fin)) & "."
End If
Next
ColoreTesto(1)
Scrivi "Numeri validi dal " & fin & "/" & DataEstrazione(fin) & " Ricerca della Sintonia sulle ruote di " & _
NomeRuota(rt1) & "." & NomeRuota(rt2) & " con " + Format2(cs) & " numeri",1
Scrivi
''''trova uscite nel mese ultimi anni
If s = 1 Then
ReDim nm(1),aru(1)
colonne = SviluppoIntegrale(sinu,1)
For y = 1 To UBound(colonne)
Scrivi "--------------------------------------------------",1
scolonna = ""
If ScriptInterrotto Then Exit For
Call AvanzamentoElab(1,UBound(colonne),y)
For j = 1 To 1
scolonna = scolonna & Format2(colonne(y,j)) & " "
nm(j) = colonne(y,j)
Next
''''prima ruota
ReDim aru(1),aretritardi(0),aretidestr(0)
aru(1) = rt1
Call ElencoRitardiTurbo(nm,aru,1,fin - 1000,fin,aretritardi,aretidestr)
nx = UBound(aretidestr) - 1
Scrivi Format2(nm(1)) & "..." & SiglaRuota(aru(1)) & "....." & fin - 1000 & ".." & fin
For znx = 1 To nx
d = DataEstrazione(aretidestr(znx))
If Mid(d,4,2) = mm Then
p = Posizione(aretidestr(znx),aru(1),nm(1))
ColoreTesto(2)
Scrivi " " & SiglaRuota(aru(1)) & "...." & aretidestr(znx) & " - " & d & "...." & Format2(nm(1)) & ".....P.Det." & p,1
ColoreTesto(0)
End If
Next
''''seconda ruota
ReDim aru(1),aretritardi(0),aretidestr(0)
aru(1) = rt2
Call ElencoRitardiTurbo(nm,aru,1,fin - 1000,fin,aretritardi,aretidestr)
nx = UBound(aretidestr) - 1
Scrivi Format2(nm(1)) & "..." & SiglaRuota(aru(1)) & "....." & fin - 1000 & ".." & fin
For znx = 1 To nx
d = DataEstrazione(aretidestr(znx))
If Mid(d,4,2) = mm Then
p = Posizione(aretidestr(znx),aru(1),nm(1))
ColoreTesto(1)
Scrivi " " & SiglaRuota(aru(1)) & "...." & aretidestr(znx) & " - " & d & "...." & Format2(nm(1)) & ".....P.Det." & p,1
ColoreTesto(0)
End If
Next
Next
End If
ColoreTesto(0)
Scrivi String((cs*3),"*")
Scrivi " Sviluppata in classe " & Classe & " per la sorte..." & s,1
Scrivi "------------------------------------------------------------------------------------------------",1
ColoreTesto(0)
ReDim atit(43),aval(43),MAXMAX(12),nm(5)
' preimposto i titoli delle colonne
atit(1) = " Prog. "
atit(2) = " Nr.Comb. "
atit(3) = " "
atit(4) = " BA "
atit(5) = " CA "
atit(6) = " FI "
atit(7) = " GE "
atit(8) = " MI "
atit(9) = " NA "
atit(10) = " PA "
atit(11) = " RO "
atit(12) = " TO "
atit(13) = " VE "
atit(14) = " TT "
atit(15) = " NZ "
atit(16) = " "
atit(17) = " BA max"
atit(18) = " CA max"
atit(19) = " FI max"
atit(20) = " GE max"
atit(21) = " MI max"
atit(22) = " NA max"
atit(23) = " PA max"
atit(24) = " RO max"
atit(25) = " TO max"
atit(26) = " VE max"
atit(27) = " TT max"
atit(28) = " NZ max"
atit(29) = " "
atit(30) = " BA Incr"
atit(31) = " CA Incr"
atit(32) = " FI Incr"
atit(33) = " GE Incr"
atit(34) = " MI Incr"
atit(35) = " NA Incr"
atit(36) = " PA Incr"
atit(37) = " RO Incr"
atit(38) = " TO Incr"
atit(39) = " VE Incr"
atit(40) = " TT Incr"
atit(41) = " NZ Incr"
atit(42) = " 1° IC "
atit(43) = " 2° IC "
' ' inizializzo la tabella
SetTableWidth("90%")
Call InitTabella(atit,2,"center",1.4,5,"Cambria")
'''' sviluppa integrale in ambi
If cs > 0 Then
colonne = SviluppoIntegrale(sinu,Classe)
For y = 1 To UBound(colonne)
scolonna = ""
If ScriptInterrotto Then Exit For
Call AvanzamentoElab(1,UBound(colonne),y)
For j = 1 To Classe
scolonna = scolonna & Format2(colonne(y,j)) & " "
nm(j) = colonne(y,j)
Next
irub1 = "" : irub2 = ""
'''''----------------------------------------------------------------------------------
''''' calcola 1° e 2° Ic
tirub1 = 0 : tirub2 = 0:aval(42) = 0 : aval(43) = 0
For i = 1 To Classe
rub = Int(EstrattoRitardo(rt1,nm(i),,fin))
irub1 = Round(rub/6,2)
tirub1 = tirub1 + irub1
rub = Int(EstrattoRitardo(rt2,nm(i),,fin))
irub2 = Round(rub/6,2)
tirub2 = tirub2 + irub2
Next
aval(42) = tirub1: aval(43) = tirub2
'''''----------------------------------------------------------------------------------
ReDim art(2)
art(1) = rt1 : art(2) = rt2
'''verifica esito nel mese successivo
Call VerificaEsitoTurbo(nm,art,fin + 1,s,9,,Retesito,RetColpi,RetEstratti,RetIdEstr)
If RetIdEstr <> 0 Then
Scrivi RetIdEstr & " " & RetEstratti & " " & Retesito & "...al colpo n.." & FormatSpace(RetColpi,6) & FormatSpace(" COMB.Nr." & StringaNumeri(nm,"."),15) & " ic..." & aval(42) & " - " & aval(43),1
End If
'''''----------------------------------------------------------------------------------
ReDim rt(1)
ic = 3 : iin = 16 : iix = 29
For rut = 1 To 12
rt(1) = rut
Call StatisticaFormazioneTurbo(nm,rt,s,RetRit,retritmax,RetIncrRitMax,,EstrazioneIni,fin)
ic = ic + 1 : iin = iin + 1 : iix = iix + 1
aval(ic) = Int(RetRit)
aval(iin) = retritmax
aval(iix) = RetIncrRitMax
If aval(iin) > MAXMAX(rut) Then
MAXMAX(rut) = aval(iin)
End If
Next
CT = CT + 1
aval(1) = CT
aval(2) = scolonna
aval(3) = " "
For g = 17 To 27
If aval(g) > 0 Then
Call AddRigaTabella(aval,Bianco_,"center",1)
Call SetColoreCella(Int(rt1 + 3),RGB(125,187,104),vbBlue)
Call SetColoreCella(Int(rt2 + 3),RGB(125,187,104),vbBlue)
If aval(14) >= 2 Then
Call SetColoreCella(14,RGB(70,60,162),vbYellow)
End If
Exit For
End If
Next
For g = 17 To 27
If aval(g) > 0 Then
Call SetColoreCella(3,RGB(55,57,130),vbBlue)
Call SetColoreCella(2,RGB(74,155,60),vbWhite)
Call SetColoreCella(16,RGB(55,57,130),vbBlue)
If Int(aval(g - 13)) >= Int(aval(g)) Then
Call SetColoreCella(Int(g),RGB(255,255,128),vbBlue)
Call SetColoreCella(Int(g - 13),RGB(255,255,128),vbBlue)
Call SetColoreCella(Int(g + 13),RGB(255,255,128),vbBlue)
End If
End If
Next
If aval(42) >= 1 And aval(43) >= 1 Then
Call SetColoreCella(42,RGB(254,250,169),vbBlue)
Call SetColoreCella(43,RGB(254,250,169),vbBlue)
Call SetColoreCella(1,RGB(254,250,169),vbBlue)
Call SetColoreCella(2,RGB(254,250,169),vbBlue)
End If
'''''------------------------------------------------------------------------------------------
Next
Scrivi "------------------------------------------------------------------------------------------------",1
ColoreTesto(2)
' OrdinaMatrice sinu,1
Scrivi "Numeri..................." & estRA,1
ColoreTesto(1)
Scrivi "Rit. 1 Ruota........" & SiglaRuota(rt1) & " " & rita1,1
Scrivi "Rit. 2 Ruota........" & SiglaRuota(rt2) & " " & rita2,1
Scrivi
ColoreTesto(0)
Call CreaTabella(14)
rax = ""
For t = 1 To 12
rax = rax & FormatSpace(MAXMAX(t),1) & " "
Next
Scrivi " MAXMAX " & rax,1
Scrivi
End If
End If
Next
Next
Scrivi
End Sub
[/codice]
Ultima modifica:
R
Roby
Guest
ciao
credo che una delle due cadrà a breve, diciamo 5-6 colpi potrebbero bastare
ma interessanti sono le posizioni determinate.
credo che una delle due cadrà a breve, diciamo 5-6 colpi potrebbero bastare
ma interessanti sono le posizioni determinate.
vincenzo4221
Advanced Member >PLATINUM<
BRAVISSIMO E GENEROSISSIMO RUBINO , grazie x i tuoi studi e per il bel regalo , da utilizzare x noi appassionati, io in merito anche a Genova ho delle convergenze , credo che finalmente ho imparato qualcosa , grazie a voi tutti .
Le mie convergenze su genova: mi appare il 27 su diverse statistiche, inoltre presente su parecchie coppie in Equil. Inst., ed l''82 è molto favorito dalla spinta del rapporto tra frequenza e ritardo , ma pensavo fosse presto , faccio ancora qualke ricerca sulla coppia e poi decido l'inizio gioco.
Le mie convergenze su genova: mi appare il 27 su diverse statistiche, inoltre presente su parecchie coppie in Equil. Inst., ed l''82 è molto favorito dalla spinta del rapporto tra frequenza e ritardo , ma pensavo fosse presto , faccio ancora qualke ricerca sulla coppia e poi decido l'inizio gioco.
vincenzo4221
Advanced Member >PLATINUM<
Chiedo se si può modificare lo script , in modo da ottenere di poter scegliere la ruota (anche singola, meglio 2) e un gruppo di numeri da analizzare sempre in coppia (certo sarebbe meglio anche poter decidere se analizzare x nro singolo , coppia o terzina , ma mi accontento).
ciccioriccio
Advanced Member >PLATINUM PLUS<
Ciao lo vorrei sapere anche io in quanti colpi dovrebbe sfaldare? E meglio giicare come ambo oppure ambate?
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 03 maggio 2025Bari3133535773Cagliari4020721916Firenze7144617046Genova5036592546Milano7085388301Napoli2855584824Palermo1462401253Roma6536395725Torino2743662234Venezia0945589066Nazionale6889143925Estrazione Simbolotto
Milano
3402320907
