Numeri più Frequenti Su Cicli

[Blackmore]

I 5 Numeri più Frequenti su Ruota a scelta su ToT Cicli ed Estrazioni Impostabili tramite Inputbox

Codice: Seleziona tutto

Sub Main()
'I 5 Numeri più Frequenti su ToT cicli composti da ToT Estrazioni su Ruota a scelta
'Listed By Blackmore
Dim num(90,2)
Dim n(1),ruota(1)
r = InputBox("Analizza la Ruota N°","By Blackmore",1)
Cicli = InputBox("Cicli da analizzare ?","By Blackmore",25)
EstrazioniCiclo  = InputBox("Estrazioni per ciclo ?","By Blackmore",9)
ini  = EstrazioneFin + 1 - (Cicli*EstrazioniCiclo)
fin  = ini + EstrazioniCiclo - 1
ColoreTesto 1:Scrivi String(116,"="),1
Scrivi "RUOTA |  N1(FR) | N2(FR) | N3(FR) | N4(FR) | N5(FR) |   INIZIO CICLO  |  FINE CICLO   |    ESTRAZIONI    |  CICLO  |",0,1
Scrivi String(116,"="),1 :ColoreTesto 0
For c = 1 To cicli
AvanzamentoElab 1,cicli,c
For x = 1 To 90
n(1)=x
ruota(1)= r
fr = SerieFreq(ini,fin,n,ruota,1)
num(x,1)=x
num(x,2)=fr
Next
OrdinaMatrice num,-1,2
Scrivi " "& SiglaRuota(r)&"   |  ",0,0
For k= 1 To 5
Scrivi Format2(num(k,1)) & "("& Format2(num(k,2)) &") | ",0,0
Next
Scrivi "   "& DataEstrazione(ini)&"   |  "& DataEstrazione(fin)&"   |   "&  Format2(EstrazioniCiclo) &" Estrazioni  |    "& Format2(c)&"   |" 
fin = fin + EstrazioniCiclo
ini = ini + EstrazioniCiclo
Next
ColoreTesto 1:Scrivi String(116,"="),1
End Sub

[DjNomade]

Grazie Black

[zagort]

[51miky]

Sei una miniera Blackmore, grazie.

[ALIEN]

Ciao,senti ma da anche delle previsioni es:se volessi giocare per domani 9 aprile 2016......devo aspettare e aggiornare l'estrazioni che mi dia le frequenze? oppure....
Grazie,

[Blackmore]

No Alien, è solo statistico, se poi vuoi giocarteli, puoi farlo in ogni momento
perchè l'ultimo ciclo finisce con l'ultima estrazione che si ha in archivio
ma difficilmente vincono rimettendoli insieme così
si dovrebbero applicare ulteriori filtri statistici
ES: trova i 20 numeri + frequenti o in ritardo nelle ultime 90 o 180 o 360... estrazioni e con i numeri trovati
crei quartine/cinquine più frequenti, o ritardatarie per ambo
ci vuole molta pazienza......

[ALIEN]

acc...cavolacci....ma mi domandavo potresti es: per martedì prossimo 12 aprile mettere i numeri più frequenti da poter mettere in gioco,modificando il listato si lo so che mi hai spiegato che non è fattibile ma mi servirebbe per una statistica....grazie

[Blackmore]

Modificare... nada
se vuoi ho questo che fa la stessa cosa che ti ho spiegato sopra
solo che rileva le terzine... ma sono risultati a livello statistico, non vere previsioni
ciao

Codice: Seleziona tutto

Ruote: BARI.CAGLIARI
Frequenze Cercate: Dal 12.09.2015 Al 09.04.2016
Estrazioni Esaminate: 90

NUMERI                61.13.03.74.05.73.15.40.44.08.01.06.83.36.65
FREQUENZE             18.16.16.16.15.15.15.14.14.14.14.14.14.13.13
=====================================================================
Statistiche Terzine dal 1946 al 09.04.2016

TERZINE          FREQUENZE      RITARDI        STORICO

73.40.83            86            254            293
05.73.83            86            204            269
40.44.36            84            183            221
40.44.65            73            183            264
44.08.65            66            178            251
40.44.83            75            176            304
44.08.83            65            176            419
05.06.83            67            176            376
73.06.83            83            158            338
05.73.06            80            158            368

Codice: Seleziona tutto

Sub main()
'Elabora Frequenze e Genera Le Terzine più FRE/RIT per la sorte di Ambo... Script By Blackmore {2014}

Dim n1(90,2),ruota(2)

dataini = CInt(InputBox("CONTROLLO FREQUENZE  ESTRAZIONI",,90))
r1 = CInt(InputBox("RUOTA 1",,1))
r2 = CInt(InputBox("RUOTA 2",,2))
totnum = CInt(InputBox("TOT NUMERI + FREQUENTI",,15))
Ord = InputBox("Seleziona l'Ordine di Ricerca "& VbCrlf &"1 = Frequenze"& VbCrlf &"2 = Ritardi",,2)
Totcomb = InputBox("Visualizza le Prime ToT Terzine Per Ambo...",,10)
datafin = EstrazioneFin

Scrivi "Ruote: "& Ucase(NomeRuota(r1))&"."& Ucase(NomeRuota(r2))
Scrivi "Frequenze Cercate: Dal "+ DataEstrazione(datafin-dataini)+" Al "+DataEstrazione(datafin)
Scrivi "Estrazioni Esaminate: "& Dataini:scrivi

For es = datafin-dataini+1 To datafin
AvanzamentoElab datafin-dataini+1,datafin,es
conta=0

For r = 1 To 10
If r = r1  Or r = r2 Then

For pos = 1 To 5
a = Estratto(es,r,pos)

ruota(1)=r1
ruota(2)=r2

n1(a,1)=a
n1(a,2)=n1(a,2)+1

conta=conta+1
Next
End If
Next
Next
 
OrdinaMatrice n1,-1,2

For x = 1 To totnum
nstr = CStr(n1(x,1))
If Len(nstr) < 2 Then nstr = "0" + nstr
stringa1 = stringa1 + nstr
If x < totnum Then Stringa1 = Stringa1 + "."
nstr = CStr(n1(x,2))
If Len(nstr) < 2 Then nstr = "0" + nstr
stringa2 = stringa2 + nstr
If x < totnum Then Stringa2 = Stringa2 + "."
Next

Scrivi "NUMERI "+ Space(14)+" "+ stringa1,1
Scrivi "FREQUENZE "+ Space(11)+" "+ stringa2,1
Scrivi String(69,"=")
Scrivi "Statistiche Terzine dal 1946 al "& DataEstrazione(EstrazioneFin),1
Scrivi
Scrivi "TERZINE          FREQUENZE      RITARDI        STORICO"
Scrivi
   
Dim x1,x2,x3
Dim m(3)
Dim Ruote(2)
Ruote(1)=r1
Ruote(2)=r2

Dim Trz(4500,6)
k =0
   
For x1 = 1 To TotNum-2
For x2 = x1+1 To TotNum-1
For x3 = x2+1 To TotNum

m(1)= n1(x1,1)
m(2)= n1(x2,1)
m(3)= n1(x3,1)

fre = SerieFreq(3950,EstrazioneFin,m,ruote,2)
rit = SerieRitardo(3950,EstrazioneFin,m,ruote,2)
sto = SerieStorico(3950,EstrazioneFin,m,ruote,2)

k=k+1
Trz(k,1)=m(1)
Trz(k,2)=m(2)
Trz(k,3)=m(3)
Trz(k,4)=fre
Trz(k,5)=rit
Trz(k,6)=sto

Next
Next   
Next
OrdinaMatrice Trz,-1,Ord+3
   
For x1 = 1 To Totcomb
Scrivi Format2(Trz(x1,1))&"."& Format2(Trz(x1,2))&"."& Format2(Trz(x1,3))&" "& Space(11)&""& Format2(Trz(x1,4))&" "& Space(11)&""& Format2(Trz(x1,5))&" "& Space(11)&""& Format2(Trz(x1,6))
Next

End Sub

[ALIEN]

Ciao,già ho fatto un po di statistica si danno esito positivo ma fuori ruota ambi e terni su tutte dovrei giocare 5 ambi su 3/4 ruote quindi non conveniente....peccato.

[ALIEN]

il post sopra è riferito a I 5 Numeri più Frequenti su Ruota a scelta su ToT Cicli ed Estrazioni Impostabili tramite Inputbox
Grazie per il nuovo script lo provo poi ti dico....