Per Mike58 o chi riesce

[solare]

Ciao, questo è un listato fatto da mike58. quello che chiedo io, se possibile è:
Alla fine dell'analisi avere un resoconto delle previsioni convergenti . Penso possa essere un miglioramento
Sub Main()
'Primi 10 più frequenti usciti dopo il numero Spia a scelta- QUANDO LA FREQUENZA DI UN NUMERO E' > 9 MICIDIALE '
Dim ruote(1)
Dim posta(1)
Dim num(90,4)
Dim uscito(90,2)
Dim anum(10)
Dim nume(90,4)
my = MsgBox("1 - numeri rilevati " & Chr(13) & "2 - frequenza nei cicli dei numeri " & Chr(13) & "3 - Ritardo dei numeri rilevati " & Chr(13) & "4 - Frequenza numeri ultimi 10 colpi",,"LETTURA NUMERI RICAVATI")
ne = CInt(InputBox("Estrazioni di Controllo","NUMERO ESTRAZIONI",45))
r = InputBox("Su quale ruota?","RUOTA DI CONTROLLO",1)
my = MsgBox("INSERIRE I NUMERI IN ORDINE CRESCENTE " & Chr(13) & " DAL PIU' PICCOLO AL PIU' GRANDE",,"INSERIMENTO NUMERI SPIA")
E1 = CInt(InputBox("1° numero spia","1° NUMERO SPIA",18))
E2 = CInt(InputBox("2° numero spia","2° NUMERO SPIA",22))
E3 = CInt(InputBox("3° numero spia","3° NUMERO SPIA",38))
E4 = CInt(InputBox("4° numero spia","4° NUMERO SPIA",57))
E5 = CInt(InputBox("5° numero spia","5° NUMERO SPIA",80))
colpi = InputBox("Quanti colpi?","NUMERO COLPI",5)
ruote(1) = r
ini = EstrazioneFin - ne
fin = EstrazioneFin
Scrivi " Analisi dal " & DataEstrazione(ini) & " a " & DataEstrazione(fin)
Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
For sp = E1 To E5
If sp = E1 Or sp = E2 Or sp = E3 Or sp = E4 Or sp = E5 Then
Messaggio " Spia: " & Format2(sp) & " < Script by Mike58 >"
Call AvanzamentoElab(E1,E5,sp)
For i = 1 To 90
num(i,1) = 0
num(i,2) = 0
num(i,4) = 0
Next
co = 0
For es = ini To fin
If Posizione(es,r,sp) > 0 Then
co = co + 1
ess = es + colpi
If ess > fin Then ess = fin End If
For a = es + 1 To ess
For v = 1 To 90
Next
For e = 1 To 5
n = Estratto(a,r,e)
num(n,1) = n
If Posizione(a,r,num(n,1)) Then num(n,2) = num(n,2) + 1
frc = num(n,2)
fru = EstrattoFrequenzaTurbo(r,n,es + 1,es + colpi)
num(n,2) = frc
rit = EstrattoRitardoTurbo(r,n,Ini,fin)
rtsp = EstrattoRitardoTurbo(r,sp,Ini,fin)
num(n,3) = rit
num(n,4) = fru
Next
Next
End If
Next
OrdinaMatrice num,- 1,2
per = Int((co/100)*65)
If rtsp < 10 Then
Scrivi "_________________________________________________________________"
ColoreTesto 1
Scrivi "Numero spia: " & Format2(sp) & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & Format2(co) & " colpi " & Format2(colpi),0,0
ColoreTesto 2
Scrivi " - Rit. Spia.. " & Format2(rtsp),0,0
ColoreTesto 7
Scrivi " ---> Spia attiva per " &(colpi - rtsp) & " Colpi ",1
ColoreTesto 0
'
Else
Scrivi "_________________________________________________________________"
Scrivi "Numero spia: " & Format2(sp) & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & Format2(co) & " colpi " & Format2(colpi),0,0
ColoreTesto 2
Scrivi " - Rit. Spia.. " & Format2(rtsp)
ColoreTesto 0
End If
riga = "Num. "
riga1 = "Freq. "
riga2 = "Rit. "
riga3 = "Ult.cc "
For i = 1 To 10
riga = riga & FormatSpace(num(i,1),3) & " "
riga1 = riga1 & FormatSpace(Eval(num(i,2)),4) & " "
riga2 = riga2 & FormatSpace(Eval(num(i,3)),4) & " "
riga3 = riga3 & FormatSpace(Eval(num(i,4)),4) & " "
anum(i) = num(i,1)
sf2 = SerieFreqTurbo(Ini,fin,anum,ruote,2)
sf3 = SerieFreqTurbo(Ini,fin,anum,ruote,3)
sr2 = SerieRitardoTurbo(Ini,fin,anum,ruote,2)
sr3 = SerieRitardoTurbo(Ini,fin,anum,ruote,3)
Next
Scrivi riga,1
ColoreTesto 2
Scrivi riga1
ColoreTesto 7
Scrivi riga2
ColoreTesto 1
Scrivi riga3
ColoreTesto 0
Scrivi String(65,"-")
Scrivi"Frequenza combinazione per ambo " & sf2
Scrivi"Frequenza combinazione per terno " & sf3
Scrivi"Ritardo combinazione per ambo " & sr2
Scrivi"Ritardo combinazione per terno " & sr3
End If
Next
End Sub

 

[trivellatomariotretre33]

Complimenti a Mike58, o provato quanto scritto da Solare ti posso assicurare che le convergenze sono una vera chicca ,solo che per evidenziare le convergenze manualmente si perde tanto tempo . Speriamo venga fatta questa modifica richiesta da Solare.

 

[Master]

Buonasera
Provate questa modifica

 [B]Sub[/B] [B]Main[/B]()
      'Primi 10 più frequenti usciti dopo il numero Spia a scelta- QUANDO LA FREQUENZA DI UN NUMERO E' > 9 MICIDIALE '
[B]Dim[/B] [B]ruote[/B](1)
[B]Dim[/B] [B]posta[/B](1)
[B]Dim[/B] [B]num[/B](90,4)
[B]Dim[/B] [B]uscito[/B](90,2)
[B]Dim[/B] [B]anum[/B](10)
[B]Dim[/B] [B]nume[/B](90,4)
[B]Dim[/B] [B]VetN[/B],[B]VetQ[/B]
      my [B]=[/B] [B]MsgBox[/B]("1 - numeri rilevati " [B]&[/B] [B]Chr[/B](13) [B]&[/B] "2 - frequenza nei cicli dei numeri " [B]&[/B] [B]Chr[/B](13) [B]&[/B] "3 - Ritardo dei numeri rilevati " [B]&[/B] [B]Chr[/B](13) [B]&[/B] "4 - Frequenza numeri ultimi 10 colpi",,"LETTURA NUMERI RICAVATI")
      ne [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("Estrazioni di Controllo","NUMERO ESTRAZIONI",45))
      r [B]=[/B] [B]InputBox[/B]("Su quale ruota?","RUOTA DI CONTROLLO",1)
      my [B]=[/B] [B]MsgBox[/B]("INSERIRE I NUMERI IN ORDINE CRESCENTE " [B]&[/B] [B]Chr[/B](13) [B]&[/B] " DAL PIU' PICCOLO AL PIU' GRANDE",,"INSERIMENTO NUMERI SPIA")
      E1 [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("1° numero spia","1° NUMERO SPIA",18))
      E2 [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("2° numero spia","2° NUMERO SPIA",22))
      E3 [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("3° numero spia","3° NUMERO SPIA",38))
      E4 [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("4° numero spia","4° NUMERO SPIA",57))
      E5 [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("5° numero spia","5° NUMERO SPIA",80))
      colpi [B]=[/B] [B]InputBox[/B]("Quanti colpi?","NUMERO COLPI",5)
[B]ruote[/B](1) [B]=[/B] r
      ini [B]=[/B] [B]EstrazioneFin[/B] [B]-[/B] ne
      fin [B]=[/B] [B]EstrazioneFin[/B]
[B]Scrivi[/B] " Analisi dal " [B]&[/B] [B]DataEstrazione[/B](ini) [B]&[/B] " a " [B]&[/B] [B]DataEstrazione[/B](fin)
[B]Scrivi[/B] "Primi 10 più frequenti usciti dopo il numero Spia entro i " [B]&[/B] colpi [B]&[/B] " colpi",1
[B]For[/B] sp [B]=[/B] E1 [B]To[/B] E5
[B]If[/B] sp [B]=[/B] E1 [B]Or[/B] sp [B]=[/B] E2 [B]Or[/B] sp [B]=[/B] E3 [B]Or[/B] sp [B]=[/B] E4 [B]Or[/B] sp [B]=[/B] E5 [B]Then[/B]
[B]Messaggio[/B] " Spia: " [B]&[/B] [B]Format2[/B](sp) [B]&[/B] " < Script by Mike58 >"
[B]Call[/B] [B]AvanzamentoElab[/B](E1,E5,sp)
[B]For[/B] i [B]=[/B] 1 [B]To[/B] 90
[B]num[/B](i,1) [B]=[/B] 0
[B]num[/B](i,2) [B]=[/B] 0
[B]num[/B](i,4) [B]=[/B] 0
[B]Next[/B]
                  co [B]=[/B] 0
[B]For[/B] es [B]=[/B] ini [B]To[/B] fin
[B]If[/B] [B]Posizione[/B](es,r,sp) [B]>[/B] 0 [B]Then[/B]
                             co [B]=[/B] co [B]+[/B] 1
                             ess [B]=[/B] es [B]+[/B] colpi
[B]If[/B] ess [B]>[/B] fin [B]Then[/B] ess [B]=[/B] fin [B]End[/B] [B]If[/B]
[B]For[/B] a [B]=[/B] es [B]+[/B] 1 [B]To[/B] ess
[B]For[/B] v [B]=[/B] 1 [B]To[/B] 90
[B]Next[/B]
[B]For[/B] e [B]=[/B] 1 [B]To[/B] 5
                                         n [B]=[/B] [B]Estratto[/B](a,r,e)
[B]num[/B](n,1) [B]=[/B] n
[B]If[/B] [B]Posizione[/B](a,r,[B]num[/B](n,1)) [B]Then[/B] [B]num[/B](n,2) [B]=[/B] [B]num[/B](n,2) [B]+[/B] 1
                                         frc [B]=[/B] [B]num[/B](n,2)
                                         fru [B]=[/B] [B]EstrattoFrequenzaTurbo[/B](r,n,es [B]+[/B] 1,es [B]+[/B] colpi)
[B]num[/B](n,2) [B]=[/B] frc
                                         rit [B]=[/B] [B]EstrattoRitardoTurbo[/B](r,n,Ini,fin)
                                         rtsp [B]=[/B] [B]EstrattoRitardoTurbo[/B](r,sp,Ini,fin)
[B]num[/B](n,3) [B]=[/B] rit
[B]num[/B](n,4) [B]=[/B] fru
[B]Next[/B]
[B]Next[/B]
[B]End[/B] [B]If[/B]
[B]Next[/B]
[B]OrdinaMatrice[/B] [B]num[/B],[B]-[/B] 1,2
                  per [B]=[/B] [B]Int[/B]((co[B]/[/B]100)[B]*[/B]65)
[B]If[/B] rtsp [B]<[/B] 10 [B]Then[/B]
[B]Scrivi[/B] "_________________________________________________ ________________"
[B]ColoreTesto[/B] 1
[B]Scrivi[/B] "Numero spia: " [B]&[/B] [B]Format2[/B](sp) [B]&[/B] " su " [B]&[/B] [B]FormatSpace[/B]([B]NomeRuota[/B](r),10) [B]&[/B] " casi = " [B]&[/B] [B]Format2[/B](co) [B]&[/B] " colpi " [B]&[/B] [B]Format2[/B](colpi),0,0
[B]ColoreTesto[/B] 2
[B]Scrivi[/B] " - Rit. Spia.. " [B]&[/B] [B]Format2[/B](rtsp),0,0
[B]ColoreTesto[/B] 7
[B]Scrivi[/B] " ---> Spia attiva per " [B]&[/B](colpi [B]-[/B] rtsp) [B]&[/B] " Colpi ",1
[B]ColoreTesto[/B] 0
                        '
[B]Else[/B]
[B]Scrivi[/B] "_________________________________________________ ________________"
[B]Scrivi[/B] "Numero spia: " [B]&[/B] [B]Format2[/B](sp) [B]&[/B] " su " [B]&[/B] [B]FormatSpace[/B]([B]NomeRuota[/B](r),10) [B]&[/B] " casi = " [B]&[/B] [B]Format2[/B](co) [B]&[/B] " colpi " [B]&[/B] [B]Format2[/B](colpi),0,0
[B]ColoreTesto[/B] 2
[B]Scrivi[/B] " - Rit. Spia.. " [B]&[/B] [B]Format2[/B](rtsp)
[B]ColoreTesto[/B] 0
[B]End[/B] [B]If[/B]
                  riga [B]=[/B] "Num.   "
                  riga1 [B]=[/B] "Freq.  "
                  riga2 [B]=[/B] "Rit.   "
                  riga3 [B]=[/B] "Ult.cc "
[B]For[/B] i [B]=[/B] 1 [B]To[/B] 10
                        riga [B]=[/B] riga [B]&[/B] [B]FormatSpace[/B]([B]num[/B](i,1),4) [B]&[/B] " "
                        riga1 [B]=[/B] riga1 [B]&[/B] [B]FormatSpace[/B](Eval([B]num[/B](i,2)),4) [B]&[/B] " "
                        riga2 [B]=[/B] riga2 [B]&[/B] [B]FormatSpace[/B](Eval([B]num[/B](i,3)),4) [B]&[/B] " "
                        riga3 [B]=[/B] riga3 [B]&[/B] [B]FormatSpace[/B](Eval([B]num[/B](i,4)),4) [B]&[/B] " "
[B]anum[/B](i) [B]=[/B] [B]num[/B](i,1)
                        xx [B]=[/B] xx [B]+[/B] 1
[B]ReDim[/B] [B]Preserve[/B] [B]TuttiNum[/B](xx)
[B]TuttiNum[/B](xx) [B]=[/B] [B]anum[/B](i)
                        sf2 [B]=[/B] [B]SerieFreqTurbo[/B](Ini,fin,[B]anum[/B],[B]ruote[/B],2)
                        sf3 [B]=[/B] [B]SerieFreqTurbo[/B](Ini,fin,[B]anum[/B],[B]ruote[/B],3)
                        sr2 [B]=[/B] [B]SerieRitardoTurbo[/B](Ini,fin,[B]anum[/B],[B]ruote[/B],2)
                        sr3 [B]=[/B] [B]SerieRitardoTurbo[/B](Ini,fin,[B]anum[/B],[B]ruote[/B],3)
[B]Next[/B]
[B]Scrivi[/B] riga,1
[B]ColoreTesto[/B] 2
[B]Scrivi[/B] riga1
[B]ColoreTesto[/B] 7
[B]Scrivi[/B] riga2
[B]ColoreTesto[/B] 1
[B]Scrivi[/B] riga3
[B]ColoreTesto[/B] 0
[B]Scrivi[/B] [B]String[/B](65,"-")
[B]Scrivi[/B]"Frequenza combinazione per ambo " [B]&[/B] sf2
[B]Scrivi[/B]"Frequenza combinazione per terno " [B]&[/B] sf3
[B]Scrivi[/B]"Ritardo combinazione per ambo " [B]&[/B] sr2
[B]Scrivi[/B]"Ritardo combinazione per terno " [B]&[/B] sr3
[B]End[/B] [B]If[/B]
[B]Next[/B]
[B]Scrivi[/B]
[B]Call[/B] [B]NumeriRipetutiRilevatiV[/B]([B]TuttiNum[/B],[B]VetN[/B],[B]VetQ[/B])
[B]Scrivi[/B] "Numeri Ripetuti       : " [B]&[/B] [B]StringaNumeri[/B]([B]VetN[/B],,1),1,,,1
[B]Scrivi[/B] "Quanti Convergenti    : " [B]&[/B] [B]StringaNumeri[/B]([B]VetQ[/B],,1),1,,,2
[B]End[/B] [B]Sub[/B]

 

[solare]

[SUP]Ciao Master, grazie infinite per la modifica,,,,,,,,,Perfetto...!![/SUP]

 

[trivellatomariotretre33]

Ottimo grazie MASTER una stretta di mano chilometrica unitamente a Solare e MIKE58.

 

[claudio8]

Mi spieghereste se avete verificato questa affermazione di Mike "QUANDO LA FREQUENZA DI UN NUMERO E' > 9 MICIDIALE " e con quali parametro di nunero estrazioni. - ne = CInt(InputBox("Estrazioni di Controllo","NUMERO ESTRAZIONI",45))

 

[solare]

Ciao claudio8, il listato di cui sopra io lo trovato in rete così come è stato inserito nel forum. Per quanto riguarda la validità nonché la richiesta che ho fatto per far aggiungere numeri convergenti personalmente ho potuto constatare in varie prove che i numeri con minimo tre convergenze risultavano essere ottimi. Io ho fatto la statistica inserendo 90 estrazioni.

 

[claudio8]

Grazie, Solare, proverò anche io, un saluto.

 

[adispo2000]

CIAO MASTER POSSO CON UNO SCRIPT ANALIZZARE UN ARCHIVIO PER POI FARE DELLE PREVISIONI?

 

[Master]

Ciao
con gli script si può fare di tutto, basta esserne capaci, io purtroppo non sono uno di quelli, mi arrangio a fare dei piccoli script non troppo complessi
buona giornata