Ciao Ricopio lo stesso disclaimer
questo script è per la ricerca dei biambi con ritardo >=300 su tt+nz
Lo script è da verificare,ho controllato con quello di luigi e i risultati sembrano coincidere, nei dati abbiamo quante estrazioni sono state coperte
ma questo valore devo verificarlo perche , coincide con luigi ma non con spaziometria.( devo capire perchè, al massimo lanciamo e sommiamo seriefreqturbo per le due combinazioni, per fare eventuali verifiche )
ora è abbastanza veloce, cerchero di fare l exe con twb ma con calma.
Rookie ,non so se ho capito bene cosa intendevi ma mi hai ispirato questa modifica allo script originale
Tutto da verificare
Non Serve un super pc, uno medio dovrebbe riuscire ad elaborare.
cinzia edisimone e rubino , mi dite voi quanto impiegate?
se andate indietro nel tempo ricordatevi di alzre il valore del ritardo minimo altrimenti la tabella non supporta troppe righe
se riuscite a fare il confronto con i risultati di luigi vediamo se coincidono grazie-
e' tardi spero di non aver copiato male qualcosa
Disclaimer d obbligo
' N.B:
' NON SI GARANTISCE CHE LO SCRIPT RESTITUISCA DATI ESATTI
' LO SCRIPT NON DEVE ESSERE MODIFICATO POTREBBE RICHIEDERE MOLTISSIME ORE PER COMPLETARE LA RICERCA
' LO SCRIPT è IMPOSTATO PER DEI PARAMETRI RICHIESTI
' PARAMETRO 1: INIZIO 7440
' PARAMETRO 2: RITARDO minimo consentito =300
' PARAMETRO 3: RUOTE: (1,2,3,4,5,6,7,8,9,10,12) =(tt+NZ)
' MAGGIORE E' IL RANGE DI ESTRAZIONI MAGGIORE SARA IL TEMPO DI IMPIEGO
' MAGGIARE SARA' IL RITARDO RICHIESTO , ESPONENZIALMENTE AUMENTERA IL NUMERO DI ORE PER LA RICERCA
' LO SCRIPT E' CUCITO ADDOSSO AI PARAMETRI RICHIESTI
' PER INTERROMPERE L ELABORAZIONE SARA' SUFFICENTE PREMERE IL TASTO STOP
' E' NECESSARIO AVERE UN PC POTENTE E MOLTO PERFOMANTE PER ESEGUIRE LO SCRIPT
' UN PC MEDIO CON POCA RAM O UN PROCESSORE INFERIORE A UN I7 DI ULTIMA GENERAZIONE
' FARà MOLTA FATICA A PORTARE A TERMINE L ELABORAZIONE , PERTANTO SE NE SCONSIGLIA
' L UTILIZZO
'IN NESSUN CASO L AUTORE SARA CONSIDERATO RESPONSABILE DELL UTILIZZO DEI DATI RICAVATI DALLO SCRIPT.
' DATI , CHE NON SI GARANTISCE SIANO ESATTI ED ACCURATI.
' vISTO CHE LO SCRIPT E IN CHIARO POTREBBE ESSERE MODIFICATO , POTREBBE ESSERE INSERITO CODICE NOCIVO, COME VIRUS TROJAN ECC.
' LO SCRIPT NON DEVE ESSERE VENDUTO DA NESSUNO IN QUANTO DONATO , E, FATTO SU RICHIESTA
' DELL UTENTE CINZIA27 , L IDEATRICE E PROMOTRICE DI QUESTA RICERCA.
' IN NESSUN CASO L AUTORE DELLO SCRIPT POTRA ESSERE RITENUTO RESPONSABILE DI EVENTUALI
'DANNI ,AI MEZZI INFORMATICI, PERDITE DI DATI , DI MEMORIA, DI DENARO O QUALSIASI ALTRA PERDITA.
' SOLO L UTILIZZATORE SARA RESPONSABILE DELL UTILIZZO DELLO STESSO.
' SE NON SI INTENDONO ACCETTARE ANCHE UNA SOLA DELLE CONDIZIONI , NON UTILIZZARE LO SCRIPT
Codice:
Option Explicit
' N.B:
' NON SI GARANTISCE CHE LO SCRIPT RESTITUISCA DATI ESATTI
' LO SCRIPT NON DEVE ESSERE MODIFICATO POTREBBE RICHIEDERE MOLTISSIME ORE PER COMPLETARE LA RICERCA
' LO SCRIPT è IMPOSTATO PER DEI PARAMETRI RICHIESTI
' PARAMETRO 1: INIZIO 7440
' PARAMETRO 2: RITARDO minimo consentito =300
' PARAMETRO 3: RUOTE: (1,2,3,4,5,6,7,8,9,10,12) =(tt+NZ)
' MAGGIORE E' IL RANGE DI ESTRAZIONI MAGGIORE SARA IL TEMPO DI IMPIEGO
' MAGGIARE SARA' IL RITARDO RICHIESTO , ESPONENZIALMENTE AUMENTERA IL NUMERO DI ORE PER LA RICERCA
' LO SCRIPT E' CUCITO ADDOSSO AI PARAMETRI RICHIESTI
' PER INTERROMPERE L ELABORAZIONE SARA' SUFFICENTE PREMERE IL TASTO STOP
' E' NECESSARIO AVERE UN PC POTENTE E MOLTO PERFOMANTE PER ESEGUIRE LO SCRIPT
' UN PC MEDIO CON POCA RAM O UN PROCESSORE INFERIORE A UN I7 DI ULTIMA GENERAZIONE
' FARà MOLTA FATICA A PORTARE A TERMINE L ELABORAZIONE , PERTANTO SE NE SCONSIGLIA
' L UTILIZZO
'IN NESSUN CASO L AUTORE SARA CONSIDERATO RESPONSABILE DELL UTILIZZO DEI DATI RICAVATI DALLO SCRIPT.
' DATI , CHE NON SI GARANTISCE SIANO ESATTI ED ACCURATI.
' vISTO CHE LO SCRIPT E IN CHIARO POTREBBE ESSERE MODIFICATO , POTREBBE ESSERE INSERITO CODICE NOCIVO, COME VIRUS TROJAN ECC.
' LO SCRIPT NON DEVE ESSERE VENDUTO DA NESSUNO IN QUANTO DONATO , E, FATTO SU RICHIESTA
' DELL UTENTE CINZIA27 , L IDEATRICE E PROMOTRICE DI QUESTA RICERCA.
' IN NESSUN CASO L AUTORE DELLO SCRIPT POTRA ESSERE RITENUTO RESPONSABILE DI EVENTUALI
'DANNI ,AI MEZZI INFORMATICI, PERDITE DI DATI , DI MEMORIA, DI DENARO O QUALSIASI ALTRA PERDITA.
' SOLO L UTILIZZATORE SARA RESPONSABILE DELL UTILIZZO DELLO STESSO.
' SE NON SI INTENDONO ACCETTARE ANCHE UNA SOLA DELLE CONDIZIONI , NON UTILIZZARE LO SCRIPT
Sub Main
Dim i,j,k,m,aN,stId,sId,Rit,RitMax,nTro,Y,pres
Dim aR:aR = Array(0,1,2,3,4,5,6,7,8,9,10,12)
Dim Ini:Ini = 7440 ' inquesta data sortisce la ruota nazionale
Dim Fin: Fin = EstrazioneFin
Dim nRitMin:nRitMin = 300
Dim aMat(4005,3)
For i = 1 To 89
For j = i + 1 To 90
DoEventsEx
If ScriptInterrotto Then Exit For
k = k + 1
aN = Array(0,i,j)
ReDim aRit(0),aId(0)
Call ElencoRitardiTurbo(aN,aR,2,Ini,Fin,aRit,aId)
If MassimoV(aRit,1,UBound(aRit)) >= nRitMin Then
Y = Y + 1:Call Messaggio("ambi Validi:" & Y)
sId = ""
For stId = 1 To UBound(aId) - 1
sId = sId & aId(stId) & "."
Next
aMat(k,1) = 1
aMat(k,2) = StringaNumeri(aN,,True)
aMat(k,3) = sId
End If
Next
Next
Dim aTab:aTab = Array(0,"ID","Formazione","RitMax","Rit","Sca","EstrCop")
Call InitTabella(aTab)
k = 0
sId = ""
For i = 1 To UBound(aMat) - 1
If aMat(i,1) = 1 Then
For j = i + 1 To UBound(aMat)
If aMat(j,1) = 1 Then
sId = "0." &(Ini - 1) & "." & aMat(i,3) & aMat(j,3) &(Fin + 1)
Dim aV:aV = Split(sId,".")
Call OrdinaMatriceTurbo(aV,1)
pres = 0
RitMax = 0
For k = 1 To UBound(aV) - 1
m = k + 1
If aV(m) <> aV(k) Then
pres = pres + 1
Rit =(aV(m) - aV(k)) - 1
If RitMax < Rit Then RitMax = Rit
End If
Next
If RitMax >= nRitMin Then
nTro = nTro + 1
aTab = Array(0,nTro,aMat(i,2) & "-" & aMat(j,2),RitMax,Rit,RitMax - Rit,pres - 1)
Call AddRigaTabella(aTab)
End If
End If
Call Messaggio("R1:" & i & "- R2:" & j & "- Tro:" & nTro)
DoEventsEx
If ScriptInterrotto Then Exit For
Next
End If
Next
CreaTabellaOrdinabile()
Scrivi TempoTrascorso
End Sub
