OK Claudio,ti posto 2 script il 1° creato da me è prettamente statistico per farti capire cosa vorrei ottenere.
Nel 2° vorrei trovarci il relativo ritardo del numero calcolato e lo sfaldamento.
Purtroppo quando si deve correggere qualche cosa fatto da altri(Ramco) non si riesce sempre a trovare il giusto codice.
Spero che sia di tuo interesse e se puoi(ma ne sono certo) trova le righe da corregere.
1° script
-------------------------
Sub Main
'numeri più frequenti su range stabilito.........................'
Dim anum(90),ru(1),freq1(90,5)
ru(1) = r1
r1 = CInt(InputBox(" quale ruota analizzare ? ",,8))
periodo = CInt(InputBox(" quante estrazioni vuoi analizzare ? ",,200))
sfald = CInt(InputBox(" quante estrazioni controllo per sfaldamento?",,9))
'r1 = 8
Iniz = EstrazioneFin - periodo
fine = EstrazioneFin
Scrivi" Numeri + frequenti sulla ruota di : " & NomeRuota(r1) & " Analisi su n°... " & periodo & " estrazioni ",1,- 1,2
Scrivi String(140,"_")
Scrivi""
Scrivi" N°" & " FREQUENZE " & "- RITARDO CORRENTE " & " - RITARDO STORICO " & " - PRESENZE SU ULTIME 18 ESTARZIONI"_
& " --- Estrazione ultima -> " & StringaEstratti(EstrazioneFin,r1),1,- 1,6
Scrivi String(140,"_")
For x = 1 To 90
fre1 = EstrattoFrequenza(r1,x,Iniz,fine)
rit1 = EstrattoRitardo(r1,x,Iniz,fine)
rts = EstrattoStorico(r1,x,Iniz,fine)
fr18 = EstrattoFrequenza(r1,x,fine - 18,fine)
freq1(x,0) = x
freq1(x,1) = fre1
freq1(x,2) = rit1
freq1(x,3) = rts
freq1(x,4) = fr18
Next
'ruota ordina per più frequenti e scrivi
OrdinaMatrice freq1,- 1,1
f = 2
For y = 1 To 90
f = f + 1
anum
= freq1(y,0)
If freq1(y,2) = 0 Then
ColoreTesto 2
abbinamenti = abbinamenti & freq1(y,0) & " "
Scrivi Format2(freq1(y,0)) & " ---> " & Format2(freq1(y,1)) & " ... Ritarda da ... " & Format2(freq1(y,2)) & " --- ritardo storico ... " & freq1(y,3)_
& " ... frequenti nei 18 ultimi concorsi... " & freq1(y,4) & " ---> uscito ultima estrazione "
Else
ColoreTesto 1
If freq1(y,2) <= 9 Then ' se da errore togli lo spazio a =<
Scrivi Format2(freq1(y,0)) & " ---> " & Format2(freq1(y,1)) & " ... Ritarda da ... " & Format2(freq1(y,2)) & " --- ritardo storico ... " & freq1(y,3)_
& " ... frequenti nei 18 ultimi concorsi... " & freq1(y,4) & " ---> sfaldato nei ultimi " & sfald & " concorsi "
Else
ColoreTesto 0
abbinamenti = abbinamenti & freq1(y,0) & " "
Scrivi Format2(freq1(y,0)) & " ---> " & Format2(freq1(y,1)) & " ... Ritarda da ... " & Format2(freq1(y,2)) & " --- ritardo storico ... " & freq1(y,3)_
& " ... frequenti nei 18 ultimi concorsi... " & freq1(y,4),1
End If
End If
Next
End Sub
2° script per corezione
------------------------------------
'Estratto + num fisso su ruota e tutte
'Ramco 20/08/2010
'Per Mike58 Forum
Sub Main()
'estratti sommativi di RAMCO per Mike58'
Dim nam(90,10),nn(1),ruota(1),nt(90,10),n3(90,10),n4(90,10),n5(90,10)
nru1 = CInt(InputBox("Ruota Scelta : ","RUOTA",1))
ne = InputBox("Numero estrazioni:","ESTRAZIONI",240)
ncg = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",13))
ruota(1) = nru1
For x = 1 To 90
For y = 1 To 10
nam(x,y) = 0 : nt(x,y) = 0 : n3(x,y) = 0 : n4(x,y) = 0 : n5(x,y) = 0
Next
Next
p = 1 : p2 = 2 : p3 = 3 : p4 = 4 : p5 = 5
casi = 0
ini = EstrazioneFin - ne
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = 1 Then ' < < < - - indicato l'indice mensile
Messaggio(es)
casi = casi + 1
'la riga sotto per controllare le estrazioni se non si vuole mettere apice davanti
Scrivi Format2(casi) & ") " & DataEstrazione(es) & " [" & es & "] " & SiglaRuota(nru1) & " " & StringaEstratti(es,nru1)
co = 0
For nu = 1 To 90
co = co + 1
a = Estratto(es,nru1,p) : aa = Estratto(es,nru1,p2): a3 = Estratto(es,nru1,p3)
b = Fuori90(a + nu) : bb = Fuori90(aa + nu) : b3 = Fuori90(a3 + nu)
a4 = Estratto(es,nru1,p4) : a5 = Estratto(es,nru1,p5)
b4 = Fuori90(a4 + nu) : b5 = Fuori90(a5 + nu)
nam(co,1) = co : nt(co,1) = co : n3(co,
