INNOVATIVA RICERCA STATISTICA

[numerico]

un nuovo modo di utilizzare la somma di posizione è quella di usare come capogioco il miglior numero della graduatoria di ogni singola ruota, e a questo abbinare (per formare una o più coppie) o i superfrequenti, o i ritardatri, o gli scompensati, i bisincroni, i gemelli, i simmetrici, le figure ecc. In questo modo, se esce il capogioco si fa veramente ''tombola'' diversamente si procede con le normali progressioni. Per cui diamo sfogo alla fantasia, perchè in questa maniera se esce il capogioco c'è da guadagnàre e bene!
Beppignello uno script in questo senso, non sarebbe male!

 

[Beppignello]

si può provare, ma a mio avviso il miglior modo di arrivare all'ambo passa dal livello di frammentazione del ritardo.

applicazione che tempo fa, forse un paio d'anni or sono, avevo trattato qui.

 

[Beppignello]

Elenco Comb.incluse nella graduatoria......
01....BA 21//BA 16//
02....BA 06//BA 79//BA 55//BA 52//BA 19//
03....BA 57//BA 72//BA 27//BA 31//
04....BA 42//BA 58//BA 56//
05....BA 14//BA 44//
06....BA 71//BA 85//BA 47//BA 73//
07....BA 70//BA 08//
08....BA 23//
09....BA 61//BA 37//
10....BA 22//BA 81//BA 60//BA 04//
11....BA 20//


ESCE IL 27 1° colpo
ESCE IL 22 1° colpo
ESCE IL 52 2° colpo
ESCE il 47 2° colpo
ESCE il 37 3° COLPO
ESCE il 57 3° COLPO
ESCE il 58 4° colpo
ESCE il 60 4° colpo
ESCE il 14 4° colpo
ESCE il 20 al 5° colpo
ESCE IL 19 al 5° colpo
ESCE IL 31 AL 6° colpo
questa sera è uscito il 08 al 7° colpo
questa sera è uscito il 71 ed il nr. 70 al 8° colpo


mancano ancora 5 colpi alla fine della validità della tabella

 

[numerico]

si può provare, ma a mio avviso il miglior modo di arrivare all'ambo passa dal livello di frammentazione del ritardo.

applicazione che tempo fa, forse un paio d'anni or sono, avevo trattato qui.

Ok Beppignello per l'ambo......... ma a me interessa per l'ambata. Ad esempio se volessi giocare a Bari il 16 come capogioco (essendo il primo in graduatoria) e volessi abbinarci i gemelli, si genererebbero 8 coppie di ambate:
16-11
16-22
16-33
16-44
16-55
16-66
16-77
16-88
per cui, se esce il 16, faccio 8 ambate e stappo lo spumante...... diversamente continuo seguendo le progressioni.

 

[Beppignello]

si okey, ma lo script è obbligato ad appoggiarsi alle tabelle registrate, se facciamo riferimento al pgm spaziometria, altrimenti come si può fare?

i superfrequenti, cosa sono? i frequenti di lungo periodo? e quanti sono?
i ritardatari, cosa sono?, fino a che ritardo?
gli scompensati, idem.

i gemelli sono solo 8, i simmetrici, sono 30, le figure sono 10 numeri per ogni figura,
i bisincroni li abbiamo già visti sono numerosi, anche su unica ruota.

quali sono i parametri di tutte queste scelte.

ogni tipo ha magari dei valori diversi che vengono presi in esame

ed uno script non arriva a gestire tutte queste differenti analisi e considerazioni.

o i superfrequenti, o i ritardatri, o gli scompensati, i bisincroni, i gemelli, i simmetrici, le figure ecc.

 

[numerico]

si okey, ma lo script è obbligato ad appoggiarsi alle tabelle registrate, se facciamo riferimento al pgm spaziometria, altrimenti come si può fare?

i superfrequenti, cosa sono? i frequenti di lungo periodo? e quanti sono?
i ritardatari, cosa sono?, fino a che ritardo?
gli scompensati, idem.

i gemelli sono solo 8, i simmetrici, sono 30, le figure sono 10 numeri per ogni figura,
i bisincroni li abbiamo già visti sono numerosi, anche su unica ruota.

quali sono i parametri di tutte queste scelte.

ogni tipo ha magari dei valori diversi che vengono presi in esame

ed uno script non arriva a gestire tutte queste differenti analisi e considerazioni.

OK per l'appoggio all'archivio di Spaziometria.
per i superfrequenti , i meno frequenti e i ritardatari opterei per l'archivio ridotto alle ultime 80 estrazioni e per un massimo di 7 elementi ognuna. Le altre tipologie tipo figure, radicali ecc.. le lascerei alla discrezionalità del giocatore. Lo script si limiterà quindi a fornire il capogioco di ogni ruota fornendo anche l'informazione dei 7 numeri più ritardati, i 7 num. più freq. e quelli meno freq. Così composto è fattibile uno script?
Grazie per l'attenzione.

P.S.: Ogni idea, ogni suggerimento, ogni miglioramento ben venga!

 

[sersam]

Ciao ragazzi

Perché no!
Ho dei numeri da dare su ogni singola ruota,
se sono uguali ai vostri forse l'aiuto c'è! (una ruota alla volta magari..)

Devo soltanto calibrare bene i parametri di ricerca e poi siamo sintonizzati sulla stessa onda di frequenza se tutto va bene

tentiamo?

 

[SeiDue3]

Bravi Tutti vedo che state per ottener in definitivo uno script ! Buon proseguimento degli sforzi . Grazie !
Buona giornata !

 

[Beppignello]

1) capo gioco richiesta immessa dall'utente
2) ruota scelta dell'utente
3) grandezza del ciclo o periodo per rilevare i 7-8 abbinamenti migliori x tipologia

Rilevare i migliori 7-8 abbinamenti tra

i 90 in ritardo
i 90 in frequenza

In 80 estrazioni In un ciclo cosi' corto quelli scompensati non hanno senso perche' corrispondono quasi totalmente ai ritardatari, pero' proverò a controllare se sono diversi da quelli con meno uscite

premessa e considerazione

che attualmente e' già rilevabile con l'ultimo script postato

1) seleziono per ordinare la colonna ritardo ottengo i migliori per ritardo
2) seleziono per ordinare la colonna frequenza ottengo i migliori per frequenza

3) seleziono somma idr+idf ottengo i migliori per somma posizione

4) unica differenza e' che ho creato lo script guardando all' isocronia e non alla singola ruota.
l'ultimo che sto testando in 13 colpi e' su singola ruota, ma in parte ragiona diversamente perche' va a studiare come mettere insieme una lunghetta con caratteristiche miste e cercare di riordinarla e organizzarla i classi giocabili ma per sorti maggiori dell'estratto



5)

 

[Beppignello]

Option Explicit
Sub Main
Dim rie(90,15),ar(1),an(1)
Dim n,fine,r,e,t,ix,v,det,iy,w,z,Ini,vv,zz,we,key1,key2,ele,y,iz
r = CInt(InputBox("Ruota",,1))
fine = InputBox("Estrazione n.",,EstrazioneFin)
det = InputBox("Dettaglio Graduatorie",,"NO")
''''''crea tabella combinazione con doppia sincronia e sincro-isocronia
Dim atitolo(17),aris(17)
'''''''''''''''''''''''''''''''''''''''''''''''''e x p o r t e x c e l ''''''''''''''''''''''''''''''''''''''''''''''
'''''' tabella in output è possibile esportarla in excel cliccando l'icona del programma FOGLIO ELETTRONICO
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''
atitolo(1) = " ID "
atitolo(2) = " Ruota "
atitolo(3) = " Nr. "
atitolo(4) = " RaE "
atitolo(5) = " Gr.1 "
atitolo(6) = " Fre "
atitolo(7) = " Gr.2 "
atitolo(8) = " IdR+IdF "
atitolo(9) = " "
atitolo(10) = " key1 "
atitolo(11) = " key2 "
atitolo(12) = " key3 "
SetTableWidth("85%px")
Call InitTabella(atitolo,2,"left",1.5,5,"Cambria")
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''
''''''''''ritardo''''
For n = 1 To 90
iy = iy + 1
rie(iy,2) = Format2(n)
rie(iy,3) = Int(EstrattoRitardoTurbo(r,n,EstrazioneIni,fine))
rie(iy,4) = Int(EstrattoFrequenzaTurbo(r,n,EstrazioneIni,fine) )
rie(iy,5) = 0
rie(iy,6) = 0
rie(iy,7) = 0
rie(iy,8) = 0
rie(iy,9) = 0
key1 = FormattaStringa(rie(iy,3),"000") & FormattaStringa(rie(iy,4),"000")
key2 = FormattaStringa(rie(iy,4),"000") & FormattaStringa(rie(iy,3),"000")
rie(iy,13) = key1
rie(iy,14) = key2
rie(iy,15) = 0
Next
''''graduatoria ritardo
Call OrdinaMatrice(rie,- 1,3)
we = 0
If det <> "NO" Then
Scrivi " Ruota di ...." & NomeRuota(r),1
Scrivi " E L E N C O X R I T A R D O ",1
Scrivi "ID Nr Rit Fre ",1
End If
For e = 1 To 90
If rie(e,2) > 0 Then
we = we + 1
rie(e,5) = we
rie(e,6) = 0
rie(e,7) = 0
rie(iy,8) = 0
If det <> "NO" Then Scrivi Format2(we) & "....." & rie(e,2) & "..." & FormattaStringa(rie(e,3),"000") & "..." & rie(e,4) & "....G1.." & rie(e,5)
End If
Next
''''graduatoria frequenza
Call OrdinaMatrice(rie,1,4)
we = 0
If det <> "NO" Then
Scrivi " Ruota di ...." & NomeRuota(r),1
Scrivi " E L E N C O X f r e q u e n z a ",1
Scrivi "ID Nr Rit Fre ",1
End If
For e = 1 To 90
If rie(e,2) <> "" Then
If rie(e,4) > 0 Then
we = we + 1
rie(e,7) = we
rie(e,8) = FormattaStringa(rie(e,7) + rie(e,5),"0000")
If det <> "NO" Then Scrivi Format2(we) & "....." & rie(e,2) & "..." & FormattaStringa(rie(e,3),"000") & "..." & rie(e,4) & "....G2..." & rie(e,7)
End If
End If
Next
' ''''' graduatoria di somma
ColoreTesto(1)
Scrivi " Graduatoria Per Somma Pos.Ritardo e Frequenza....all'estrazione n." & fine & "/" & DataEstrazione(fine),1
Scrivi " Ruota di " & NomeRuota(r),1
ColoreTesto(0)
Call OrdinaMatrice(rie,1,8)
For t = 1 To 90
If rie(t,8) > 0 And rie(t,5) > 0 And rie(t,7) > 0 Then
'''''''''''''''''''''''''''''''''''''''''''''''
v = v + 1
If det <> "NO" Then Scrivi "Grad.pos.." & FormattaStringa(v,"000") & " comb.Nr.." & rie(t,2) & " Rae..." & FormattaStringa(rie(t,3),"000") & " Freq..." & FormattaStringa(rie(t,4),"0000") & " Somma.." & FormattaStringa(rie(t,8),"0000") & " = " & Format2(rie(t,5)) & " // " & Format2(rie(t,7))
'''''''''''''''''scrivi tabella'''''''''''''''''''''''''''''''''''''''''
aris(1) = FormattaStringa(v,"00")
aris(2) = SiglaRuota(r)
aris(3) = rie(t,2)
aris(4) = rie(t,3)
aris(5) = rie(t,5)
aris(6) = rie(t,4)
aris(7) = rie(t,7)
aris(8) = rie(t,8)
aris(9) = rie(t,15)
aris(10) = rie(t,13)
aris(11) = rie(t,14)
aris(12) = FormattaStringa(rie(t,7),"0000") & "//" & rie(t,14)
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
Call AddRigaTabella(aris,,,1)
Call SetColoreCella(3,RGB(155,255,155),vbBlack)
Call SetColoreCella(8,RGB(255,255,202),vbBlack)
End If
Next
''''''''''''''''''''''''''''''''''''''''' g r a d u a t o r i e i 7 migliori
ColoreTesto(2)
''''''''''''''calcola 7 migliori
'''''idr+idf
ele = ""
For z = 1 To 7
ele = ele & Format2(rie(z,2)) & "."
Next
Scrivi "-7 Migliori IdR+IdF...Capogioco....." & ele
'''''Ritardo
ele = ""
Call OrdinaMatrice(rie,- 1,3)
For z = 1 To 7
ele = ele & Format2(rie(z,2)) & "."
Next
Scrivi "-7 Più in Ritardo..................." & ele
'''''Frequenti
ele = ""
Call OrdinaMatrice(rie,1,4)
For z = 1 To 7
ele = ele & Format2(rie(z,2)) & "."
Next
Scrivi "-7 Più Frequenti ..................." & ele
'''''SottoFrequenti
ele = ""
Call OrdinaMatrice(rie,- 1,4)
For z = 1 To 7
ele = ele & Format2(rie(z,2)) & "."
Next
Scrivi "-7 Sotto Frequenti ................." & ele
ColoreTesto(0)
'''''''''''''''''radicali
 ReDim nm(32,2)
 iz = 0
 For z = 1 To 90
  For y = 1 To 8
   If Radicale(Int(rie(z,2))) = y Then
    iz = iz + 1
    nm(iz,1) = rie(z,2)
    nm(iz,2) = rie(z,3)
   End If
  Next
 Next
 ele = ""
 Call OrdinaMatrice(nm,- 1,2)
 For z = 1 To 7
  ele = ele & Format2(nm(z,1)) & "."
 Next
 Scrivi "-7 Radicali più in Ritardo.........." & ele
 '''''''''''''''''Gemelli
 ReDim nm(90,2)
 iz = 0
 For z = 1 To 90
  If Gemello(rie(z,2)) = True Then
   iz = iz + 1
   nm(iz,1) = rie(z,2)
   nm(iz,2) = rie(z,3)
  End If
 Next
 ele = ""
 Call OrdinaMatrice(nm,- 1,2)
 For z = 1 To 7
  ele = ele & Format2(nm(z,1)) & "."
 Next
 Scrivi "-7 Gemelli più in Ritardo..........." & ele


Call CreaTabellaOrdinabile(8,1,1)
End Sub

prima bozza

lasciare per il momento tutto così come default

va be, si può cambiare la ruota naturalmente a scelta

ed il periodo di fine

l'estrazione iniziale la dovete gestire voi dal pgm spaziometria
in basso della schermata ci sono
estrazione iniziale e quella finale

a vostra scelta è il periodo di estrazioni da esaminare.

 

[Beppignello]

attenzione alla coppia di estratti 89 02

che in pochi colpi dovrebbe uscire qualcosa.



buona giornata

 

[numerico]

attenzione alla coppia di estratti 89 02

che in pochi colpi dovrebbe uscire qualcosa.



buona giornata

in quale ruota?

 

[genios]

Beppignello ottimo script (#590) aggiungerei una colonna per la somma del ritardo attuale più i 9 ritardi consecutivi .

Ciao Eugenio

 

[Beppignello]

Attenzione al ritardo 26, numeri in eccesso

FIRENZE in particolare
[IMG2=JSON]{"data-align":"none","data-size":"custom","src":"http:\/\/funkyimg.com\/i\/2jEFS.jpg"}[/IMG2]


con l'aiuto della doppia sincronia

[IMG2=JSON]{"data-align":"none","data-size":"custom","src":"http:\/\/funkyimg.com\/i\/2jEGw.jpg"}[/IMG2]


[IMG2=JSON]{"data-align":"none","data-size":"custom","src":"http:\/\/funkyimg.com\/i\/2jEGx.jpg"}[/IMG2]




Previsione FIRENZE estratto 2x1 nr. 59 45

 

[Beppignello]

per il momento per i nr.89 02 non ho trovato corrispondenza con la doppia sincronia, ma da somma pos. IDR+IDF, che aggancia numeri non corrispondenti per sincronia ma per somma
trovo

BARI 02 89
TORINO 89
VENEZIA 02



x genios

troppe colonne da aggiungere, si può mettere un totale dei 10 Ult.ritardi.
ma che te ne fai, li puoi rilevare con spaziometria basta fare stat.veloce inserire il nr.che vuoi e ti da l'elenco sotto a sx

a meno che ti serva per fare tot.ult.10 ritardi /10 e trovare una media dei ritardi ultimi per capire se è frequente o sotto frequente.
ma se no a che serve? come si può usare questo dato ai fini statistici rilevanti?.

 

[genios]

Beppignello la colonna e soltanto una somma del ritardo attuale + i 9 precedenti . E' una somma di 10 ritardi .Non sono 10 colonne .

a meno che ti serva per fare tot.ult.10 ritardi /10 e trovare una media dei ritardi ultimi per capire se è frequente o sotto frequente.
ma se no a che serve? come si può usare questo dato ai fini statistici rilevanti?.

Si prendono in considerazione per il gioco i numeri che hanno somma dei 10 ritardi inferiori alle 100 estrazioni e quelli con somma ritardi sopra le 360 estrazioni .
Ciao Eugenio

 

[numerico]

prima bozza

lasciare per il momento tutto così come default

va be, si può cambiare la ruota naturalmente a scelta

ed il periodo di fine

l'estrazione iniziale la dovete gestire voi dal pgm spaziometria
in basso della schermata ci sono
estrazione iniziale e quella finale

a vostra scelta è il periodo di estrazioni da esaminare.

[/QUOTE]

Ok grazie. Non so se hài fatto caso che restringendo l'archivio di Spaziometrîa àd 80 estrazioni, i valori dei più frequenti vanno a finire tra i meno frequenti e viceversa. Inoltre, non so se voluta o meno, tra i radicali ed i gemelli, quei numeri che hanno ritardo zero non vengono stampati.
inutile dire che sono in trepidante attesa della seconda bozza! Grazie ancora. Buona serata

 

[Beppignello]

Option Explicit
Sub Main
 Dim rie(90,15),ar(1),an(1)
 Dim n,fine,r,e,t,ix,v,det,iy,w,z,Ini,vv,zz,we,key1,key2,ele,y,iz,aretritardi,aretidestr,limusc,nusc,Totrit
 r = CInt(InputBox("Ruota",,1))
 fine = InputBox("Estrazione n.",,EstrazioneFin)
 det = InputBox("Dettaglio Graduatorie",,"NO")
 ''''''crea tabella combinazione con doppia sincronia e sincro-isocronia
 Dim atitolo(17),aris(17)
 '''''''''''''''''''''''''''''''''''''''''''''''''e x p o r t e x c e l ''''''''''''''''''''''''''''''''''''''''''''''
 '''''' tabella in output è possibile esportarla in excel cliccando l'icona del programma FOGLIO ELETTRONICO
 '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''
 atitolo(1) = " ID "
 atitolo(2) = " Ruota "
 atitolo(3) = " Nr. "
 atitolo(4) = " RaE "
 atitolo(5) = " Gr.1 "
 atitolo(6) = " Fre "
 atitolo(7) = " Gr.2 "
 atitolo(8) = " IdR+IdF "
 atitolo(9) = " "
 atitolo(10) = " Tot.10Rit"
 atitolo(11) = " key1 "
 atitolo(12) = " key2 "
 atitolo(13) = " key3 "
 SetTableWidth("85%px")
 Call InitTabella(atitolo,2,"left",1.5,5,"Cambria")
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''
 ''''''''''ritardo''''
 For n = 1 To 90
  iy = iy + 1
  rie(iy,2) = Format2(n)
  rie(iy,3) = Int(EstrattoRitardoTurbo(r,n,EstrazioneIni,fine))
  rie(iy,4) = Int(EstrattoFrequenzaTurbo(r,n,EstrazioneIni,fine))
  rie(iy,5) = 0
  rie(iy,6) = 0
  rie(iy,7) = 0
  rie(iy,8) = 0
  rie(iy,9) = 0
  key1 = FormattaStringa(rie(iy,3),"000") & FormattaStringa(rie(iy,4),"000")
  key2 = FormattaStringa(rie(iy,4),"000") & FormattaStringa(rie(iy,3),"000")
  rie(iy,13) = key1
  rie(iy,14) = key2
  rie(iy,15) = 0
 Next
 ''''graduatoria ritardo
 Call OrdinaMatrice(rie,- 1,3)
 we = 0
 If det <> "NO" Then
  Scrivi " Ruota di ...." & NomeRuota(r),1
  Scrivi " E L E N C O X R I T A R D O ",1
  Scrivi "ID Nr Rit Fre ",1
 End If
 For e = 1 To 90
  If rie(e,2) > 0 Then
   we = we + 1
   rie(e,5) = we
   rie(e,6) = 0
   rie(e,7) = 0
   rie(iy,8) = 0
   If det <> "NO" Then Scrivi Format2(we) & "....." & rie(e,2) & "..." & FormattaStringa(rie(e,3),"000") & "..." & rie(e,4) & "....G1.." & rie(e,5)
  End If
 Next
 ''''graduatoria frequenza
 Call OrdinaMatrice(rie,1,4)
 we = 0
 If det <> "NO" Then
  Scrivi " Ruota di ...." & NomeRuota(r),1
  Scrivi " E L E N C O X f r e q u e n z a ",1
  Scrivi "ID Nr Rit Fre ",1
 End If
 For e = 1 To 90
  If rie(e,2) <> "" Then
   If rie(e,4) > 0 Then
    we = we + 1
    rie(e,7) = we
    rie(e,8) = FormattaStringa(rie(e,7) + rie(e,5),"0000")
    If det <> "NO" Then Scrivi Format2(we) & "....." & rie(e,2) & "..." & FormattaStringa(rie(e,3),"000") & "..." & rie(e,4) & "....G2..." & rie(e,7)
   End If
  End If
 Next
 ' ''''' graduatoria di somma
 ColoreTesto(1)
 Scrivi " Graduatoria Per Somma Pos.Ritardo e Frequenza....all'estrazione n." & fine & "/" & DataEstrazione(fine),1
 Scrivi " Ruota di " & NomeRuota(r),1
 ColoreTesto(0)
 Call OrdinaMatrice(rie,1,8)
 For t = 1 To 90
   '''''''''''''''''''''''''''''''''''''''''''''''
   v = v + 1
   If det <> "NO" Then Scrivi "Grad.pos.." & FormattaStringa(v,"000") & " comb.Nr.." & rie(t,2) & " Rae..." & FormattaStringa(rie(t,3),"000") & " Freq..." & FormattaStringa(rie(t,4),"0000") & " Somma.." & FormattaStringa(rie(t,8),"0000") & " = " & Format2(rie(t,5)) & " // " & Format2(rie(t,7))
   '''''''''''''''''scrivi tabella'''''''''''''''''''''''''''''''''''''''''
   aris(1) = FormattaStringa(v,"00")
   aris(2) = SiglaRuota(r)
   aris(3) = rie(t,2)
   aris(4) = rie(t,3)
   aris(5) = rie(t,5)
   aris(6) = rie(t,4)
   aris(7) = rie(t,7)
   aris(8) = rie(t,8)
   aris(9) = rie(t,15)
   aris(11) = rie(t,13)
   aris(12) = rie(t,14)
   aris(13) = FormattaStringa(rie(t,7),"0000") & "//" & rie(t,14)
   '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
   '''calcolo totale ritardo ult.10 ritardi (9PREC+ATTUALE)
   an(1) = rie(t,2) : ar(1) = r
   Call ElencoRitardiTurbo(an,ar,1,EstrazioneIni,fine,aretritardi,aretidestr)
   limusc = UBound(aretritardi)
   If limusc > 0 And limusc > 10 Then
   nusc = limusc - 10 : Totrit = 0
   For nusc = nusc + 1 To limusc - 1
    Totrit = Totrit + aretritardi(nusc)
   Next
   aris(10) = Totrit + rie(t,3)
   Else
   aris(10) = 0
   End If
   '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
   Call AddRigaTabella(aris,,,1)
   Call SetColoreCella(3,RGB(155,255,155),vbBlack)
   Call SetColoreCella(8,RGB(255,255,202),vbBlack)
 Next
 ''''''''''''''''''''''''''''''''''''''''' g r a d u a t o r i e i 7 migliori
 ColoreTesto(2)
 ''''''''''''''calcola 7 migliori
 '''''idr+idf
 ele = ""
 Call OrdinaMatrice(rie,- 1,8)
 For z = 1 To 7
  ele = ele & Format2(rie(z,2)) & "."
 Next
 Scrivi "-7 Migliori IdR+IdF...Capogioco....." & ele
 '''''Ritardo
 ele = ""
 Call OrdinaMatrice(rie,- 1,3)
 For z = 1 To 7
  ele = ele & Format2(rie(z,2)) & "."
 Next
 Scrivi "-7 Più in Ritardo..................." & ele
 '''''Frequenti
 ele = ""
 Call OrdinaMatrice(rie,1,4)
 For z = 1 To 7
  ele = ele & Format2(rie(z,2)) & "."
 Next
 Scrivi "-7 Sotto Frequenti ................." & ele
 '''''SottoFrequenti
 ele = ""
 Call OrdinaMatrice(rie,- 1,4)
 For z = 1 To 7
  ele = ele & Format2(rie(z,2)) & "."
 Next
 Scrivi "-7 Più   Frequenti ................." & ele
 ColoreTesto(0)
 '''''''''''''''''radicali
 ReDim nm(32,2)
 iz = 0
 For z = 1 To 90
  For y = 1 To 8
   If Radicale(Int(rie(z,2))) = y Then
    iz = iz + 1
    nm(iz,1) = rie(z,2)
    nm(iz,2) = rie(z,3)
   End If
  Next
 Next
 ele = ""
 Call OrdinaMatrice(nm,- 1,2)
 For z = 1 To 7
  ele = ele & Format2(nm(z,1)) & "."
 Next
 Scrivi "-7 Radicali più in Ritardo.........." & ele
 '''''''''''''''''Gemelli
 ReDim nm(90,2)
 iz = 0
 For z = 1 To 90
  If Gemello(rie(z,2)) = True Then
   iz = iz + 1
   nm(iz,1) = rie(z,2)
   nm(iz,2) = rie(z,3)
  End If
 Next
 ele = ""
 Call OrdinaMatrice(nm,- 1,2)
 For z = 1 To 7
  ele = ele & Format2(nm(z,1)) & "."
 Next
 Scrivi "-7 Gemelli più in Ritardo..........." & ele
 Call CreaTabellaOrdinabile(8,1,1)
End Sub

corretto qualche errore.

i dati attuali dovrebbero essere giusti.

ho controllato solo bari.

 

[rudivall]

Grazie mille Beppignello per la tua pazienza e per il tuo altruismo, stai offrendoci ottime opportunità per studiare, grazie ancora....

 

[numerico]

Beppignello Grazie, come al solito per quello che stai facendo. Ho riscontrato che i migliori 7 sono pescati tra i peggiori in graduatoria (forse la causa è questa istruzione col segno meno davanti all'1 << Call OrdinaMatrice(rie, -1,8)>>.
Poi ho notato che se un numero in ritardo ha posizione 3 e lo stesso numero ha frequenza zero e posizione zero, il programma nel fare la somma 3+0 restituisce zero, falsando così la graduatoria.
P.S.: la verifica degli esiti, in questa versione, non è prevista?
Un cordiale saluto.