Per gli scripter

[Roby]

7,800293E-02... (se quel E-02 che non so cosa significhi, è una cosa normale allora è tutto ok, ho messo nVoltePerTest = 100)
anche se non ci ho capito nulla

StatisticaFormazioneTurbo secondi = 7,800293E-02
Rit    = 63
ritmax  = 1669
Incrmax = 0
freq    = 23

StatisticaFormazione secondi = 0,5469971
Rit    = 63
ritmax  = 1669
Incrmax = 0
freq    = 23

----------------------------------------------------------------------------------------------------
RitardoCombinazioneTurbo secondi = 1,600647E-02
Rit    = 63

RitardoCombinazione secondi = 0
Rit    = 63

----------------------------------------------------------------------------------------------------
SerieRitardoTurbo secondi = 1,499939E-02
Rit    = 63

SerieRitardo secondi = 0
Rit    = 63

----------------------------------------------------------------------------------------------------
SerieStoricoTurbo secondi = 6,300354E-02
ritmax  = 1669

SerieStorico secondi = 0,5149994
ritmax  = 1669

----------------------------------------------------------------------------------------------------
SerieFrequenzaTurbo secondi = 7,800293E-02
freq    = 23

SerieFrequenza secondi = 0,5159912
freq    = 23

----------------------------------------------------------------------------------------------------
AmboRitardoTurbo secondi = 0
Rit    = 63

AmboRitardo secondi = 1,600647E-02
Rit    = 63

----------------------------------------------------------------------------------------------------
AmboFrequenzaTurbo secondi = 6,199646E-02
freq    = 23

AmboFrequenza secondi = 0,5469971
freq    = 23

----------------------------------------------------------------------------------------------------
AmboStoricoTurbo secondi = 6,300354E-02
ritmax  = 1669

AmboStorico secondi = 0,5149994
ritmax  = 1669

----------------------------------------------------------------------------------------------------
AmboIncrStoricoTurbo secondi = 6,300354E-02
Incrmax = 0

AmboIncrStorico secondi = 0,5469971
Incrmax = 0

----------------------------------------------------------------------------------------------------
RitardoEstrattoTurbo secondi = 0
Rit    = 14

RitardoEstratto secondi = 0
Rit    = 14

----------------------------------------------------------------------------------------------------
EstrattoRitardoTurbo secondi = 1,499939E-02
Rit    = 31

EstrattoRitardo secondi = 0
Rit    = 31

----------------------------------------------------------------------------------------------------
EstrattoFrequenzaTurbo secondi = 7,800293E-02
freq    = 460

EstrattoFrequenza secondi = 0,5159912
freq    = 460

----------------------------------------------------------------------------------------------------
EstrattoStoricoTurbo secondi = 7,800293E-02
ritmax  = 90

EstrattoStorico secondi = 0,5160065
ritmax  = 90

----------------------------------------------------------------------------------------------------
EstrattoIncrStoricoTurbo secondi = 7,800293E-02
Incrmax = 0

EstrattoIncrStorico secondi = 0,5149994
Incrmax = 0

----------------------------------------------------------------------------------------------------
StatisticaGruppoFormazioniTurbo secondi = 0,2350006
Rit    = 4
ritmax  = 24
freq    = 2813

StatisticaGruppoFormazioni secondi = 16,937
Rit    = 4
ritmax  = 24
freq    = 2813

----------------------------------------------------------------------------------------------------
VerificaEsitoTurbo secondi = 1,599121E-02

[05004] [ 49] 03.12.1966 Ambo colpi : 5 RO .. .. 12 .. 04
VerificaEsito secondi = 0

[05004] [ 49] 03.12.1966 Ambo colpi : 5 RO .. .. 12 .. 04
----------------------------------------------------------------------------------------------------
Numero 01 2
Numero 02 1
Numero 03 1
Numero 04 1
Numero 05 2
Numero 06 1
Numero 07 1
Numero 08 1
Numero 09 6
Numero 10 1
RitPosTurbo secondi = 0,4370117

Numero 01 2
Numero 02 1
Numero 03 1
Numero 04 1
Numero 05 2
Numero 06 1
Numero 07 1
Numero 08 1
Numero 09 6
Numero 10 1
RitPos secondi = 1,485001

----------------------------------------------------------------------------------------------------
GeneraAnaliticoTurbo secondi = 1,499939E-02

81
GeneraAnalitico  secondi = 6,298828E-02

81
----------------------------------------------------------------------------------------------------
Bari 27.12.2012

Pos Nu  Pos  Ritardo
01  01  48        90
02  02  18        70
03  03  11        66
04  04  21        61
05  05  65        56
06  06  32        54
07  07  26        50
08  08  39        49
09  09  40        49
10  10  85        48
NumeroPosRit PosNumeroRit Turbo secondi = 0

Bari 27.12.2012

Pos Nu  Pos  Ritardo
01  01  48        90
02  02  18        70
03  03  11        66
04  04  21        61
05  05  65        56
06  06  32        54
07  07  26        50
08  08  39        49
09  09  40        49
10  10  85        48
NumeroPosRit PosNumeroRit secondi = 0

----------------------------------------------------------------------------------------------------

 

[LuigiB]

si , è normalissimo , è un numero molto piccolo espresso in notazione scientifica.Vuol dire che ci ha messo pochisimo.

La cosa importante è che i risultati forniti dalle nuove funzioni combacino con le rispettive vecchie.

ciao

 

[Roby]

Si nel mio output combaciano tutte
Buon Anno Luigi, a te e a tutti gli amici del Forum
Ciao e grazie

 

[LuigiB]

benissimo ... ricambio gli auguri a te e a tutti ciao

 

[LuigiB]

ciao Rubino , hai ragione c'era un errore nel calcolo della frequenza quando le ruote sono piu di una. Ora l'ho corretto , a breve posto l'aggiornamento.
Voi aiutatemi a verificare , da quello che posso dire nel calcolo a ruota singola tutto combacia quindi concentriamo la vverifica su ruote miste e tutte.

 

[Mike58]

Ciao Rubino, allarmato dal mancato esito del tuo script , ho testato altri script ma il risultato è positivo cioè trova gli stessi dati.
Quindi la mia domanda è :

w1 = SerieFreq(es,es,a,ruota,2)
If w1 > 1 Then

cerchi l'ambo che deve essere > 1 ? (ma qui posso capire male, forse cerchi l'ambo doppio!!!)

se invece fai

If w1 > 0 Then

ottieni la scrittura dei risultati ma è questo l'allarme che mi ha spinto a scrivere, risultati differenti dal tuo output.
Problema negli archivi ?

Usato SerieFreq
8626....57 27 Trovato...2
8626....57 54 Trovato...2
8626....27 54 Trovato...2
----------------------
Usato SerieFreqTurbo
8626....57 27 Trovato...1
8626....57 54 Trovato...1
8626....27 54 Trovato...1



In attesa tua risposta e soprattutto di Luigi

un saluto

Mike


p.s. ho visto che luigi ha già risposto resta il quesito degli output diversi.

 

[Joe91]

Buon Giorno a tutti.

Per Mike ... se ti può essere utile, penso che Rubino, utilizzi una numerazione differente delle estrazioni.

Ho trovato piuttosto complicato lo script proposto e per capire cosa potesse NON FUNZIONARE l'ho semplificato.

Option Explicit
  Sub Main
  Dim r1,q,qq,es,p,pp,r2,w1,A(4),ruota(2)
  For  es = 8600 To EstrazioneFin 
 Scrivi String (40,"-")

  For r1 = 1 To 9 : ruota(1) = r1
   For q = 1 To 4
    For qq = q + 1 To 5
     A(1) = Estratto(es,r1,q)
     A(2) = Estratto(es,r1,qq)
      For r2 = r1 + 1 To 10 : ruota(2) = r2
       For p = 1 To 4
        For pp = p + 1 To 5
         A(3) = Estratto(es,r2,p)
         A(4) = Estratto(es,r2,pp)
          If (A(3) = A(1) And A(4) = A(2)) Or (A(3) = A(2) And A(4) = A(1)) Then
           'w1 = SerieFreqTurbo (es, es, a, ruota, 2)
           'If  w1 = 2 Then
            Scrivi es & "...." & Format2(A(1)) & " " & Format2(A(2)) & " Trovato... " & SiglaRuota(r1) & "-"& SiglaRuota(r2)'" & w1
           'End If
          End If
        Next
       Next
      Next
     Next
    Next
   Next
  Next 
 End Sub

Cosicchè si dimostra inutile l'utilizzo delle istruzioni incriminate.

Da questo è evidente che se esse funzionassero, rallenterebbero inutilmente e pesantemente lo script ...

ma per quest'altra strada ... non si risolve il problema del loro mancato funzionamento che,

come ha detto Luigi è già in fase di soluzione.

Approfitto per augurare Buone Festività a tutti e ringraziare Luigi per i continui miglioramenti al programma.

Cordiali saluti

 

[Mike58]

Grazie, Rubino , svelato l'arcano è sicuramente come dice Joe, (ciao Joe) c'è fra i nostri 2 archivi un problema di numerazione Archivio.
Io il tuo output me lo ritrovo alla 8625, che però utilizzando solo la funzioneTurbo > 0 ho questi output.

Usato SerieFreq
8625....66 62 Trovato...2
8625....49 72 Trovato...2
8625....79 69 Trovato...2
8625....89 04 Trovato...2
----------------------
Usato SerieFreqTurbo
8625....66 62 Trovato...1
8625....49 72 Trovato...1
8625....79 69 Trovato...1
8625....89 04 Trovato...1

 

[LuigiB]

ciao come ripeto nella funzione seriefrequenzaturbo c'era un problema che capita nella circostanza in cui l'anlisi è fatta su piu di una ruota contemporaneamente,
il problema l'ho gia corretto e ora lo script di rubino sul mio pc da gli stessi risultati sia usando òe funzioni turbo che non.
Ora prima di mettere la nuova versione aspetto se Miki si sbriga adarmi una certa tabellina che m i serve per fare un'implementazione che mi ha chiesto.

un saluto anche a Joe e un augurio di buon anno a tutti .

 

[LuigiB]

ciao, la nuova versione è in linea , fatemi sapere se dalle vostre prove risulta che le nuove funzioni danno i risultati esatti uguali a quelli delle vecchie e se il loro uso incrementa la velocità di esecuzione dei vostri script..

 

[LuigiB]

prova a ricompilarli