x Cinzia o chiunque vuole intervenire, da solo bivalenti a tutti gli ambi

« Older Newer »

Cinzia27

Posted on 15/12/2018, 19:07

Non so che dire, Santani.
Mi dispiace.

New Mat

Posted on 15/12/2018, 19:38

Top Member

Group:: Member

Posts:: 3,910

Status:

Sul mio pc lo script funziona con L8+,
ciao e grazie sempre a Cinzia,

Matteo

Cinzia27

Posted on 15/12/2018, 20:47

Grazie a Matteo per l' informazione.
Io uso Lottodesk.
Per Santani : posto la versione su 2 ruote.
Ho messo la parte che ti dà errore su unica riga.
Speriamo .

SPOILER (clicca per visualizzare)

'Santani - stesso ambo su 2 ruote con ritardo minimo da impostare - ritardo di caduta (Cinzia)
Sub main()
Dim n(2),ru(2)
f=EstrazioneFin
qe= CInt(InputBox(" Quante estrazioni vuoi esaminare ? ultime ",,100))
If qe="" Then Exit Sub
rm= CInt(InputBox(" Ritardo minimo",,1200))
If rm="" Then Exit Sub

Scrivi "Ritardo minimo "& rm
For es=f-qe To f
c=c+1
For r=1 To 10
For r1=r+1 To 11
If r1=11 Then r1=12
ru(1)=r
ru(2)=r1

For i=1 To 89
For j=i+1 To 90
n(1)=i
n(2)=j
If Estratto(es,r,1)>0 Then
If Estratto(es,r1,1)>0 Then

If SerieFreq(es,es,n,ru,2)>0 Then

ur=SerieRitardo(es-3000,es-1,n,ru,2)
If ur>rm Then
cc=cc+1
Scrivi " "&FormatSpace(cc,4,1)&" "&FormatSpace(es,4,1)&" "&siglaruota(r)&" "&siglaruota(r1)&" "&stringanumeri(n)&" ur "&FormatSpace(ur,4,1)&" ",0,0
If cc>1 Then Scrivi " colpi "&FormatSpace(c,4,1)Else Scrivi

c=0
End If
End If
End If
End If

Next
Next
Next
Next
Next
End Sub

santani

Posted on 15/12/2018, 21:04

Supporter

Group:: Member

Posts:: 40

Location:: Cesenatico

Status:

Grazie Cinzia27 ma purtroppo non va , ho provato anche con spaziometria, ma niente :cry:

Attached Image: errore

J-Gio91

Posted on 15/12/2018, 21:31

Top Member

Group:: Member

Posts:: 1,602

Status:

Ciao Santani,

Un caro saluto a Cinzia, Matteo & Co.

Ho provato e funziona sia in L8 sia con Spaziometria,

anche se è molto lento per l'enormità di calcoli che deve effettuare.

Probabilmente usi una vecchia versione di L8 che

non sopporta alcuni "parametri" dell'istruzione scrivi.

Non ho la possibilità di riprodurre l'errore ma ti consiglio di provare a sostituire

siglaruota con Left(NomeRuota,3).

Cinzia27

Posted on 15/12/2018, 22:58

Grazie, Joe, con la tua ottima memoria hai trovato la soluzione.Non ci possono essere altre
ragioni dell' errore.
Infatti nelle vecchissime versione di L8 l' istruzione siglaruota era nomeruota.
Ecco lo script adattato .

SPOILER (clicca per visualizzare)

Sub main()
'Santani - stesso ambo su 2 ruote con ritardo minimo da impostare - ritardo di caduta (Cinzia)

Dim n(2),ru(2)
f=EstrazioneFin
qe= CInt(InputBox(" Quante estrazioni vuoi esaminare ? ultime ",,100))
If qe="" Then Exit Sub
rm= CInt(InputBox(" Ritardo minimo",,1200))
If rm="" Then Exit Sub

Scrivi "Ritardo minimo "& rm
For es=f-qe To f
c=c+1
For r=1 To 10
For r1=r+1 To 11
If r1=11 Then r1=12
ru(1)=r
ru(2)=r1

For i=1 To 89
For j=i+1 To 90
n(1)=i
n(2)=j
If Estratto(es,r,1)>0 Then
If Estratto(es,r1,1)>0 Then

If SerieFreq(es,es,n,ru,2)>0 Then

ur=SerieRitardo(es-3000,es-1,n,ru,2)
If ur>rm Then
cc=cc+1
Scrivi " "&FormatSpace(cc,4,1)&" "&FormatSpace(es,4,1)&" "&Left(NomeRuota(r),2)&" "&Left(NomeRuota(r1),2)&" "&stringanumeri(n)&" ur "&FormatSpace(ur,4,1)&" ",0,0
If cc>1 Then Scrivi " colpi "&FormatSpace(c,4,1)Else Scrivi

c=0
End If
End If
End If
End If

Next
Next
Next
Next
Next
End Sub

Cinzia

Edited by Cinzia27 - 15/12/2018, 23:25

santani

Posted on 15/12/2018, 23:45

Supporter

Group:: Member

Posts:: 40

Location:: Cesenatico

Status:

Ringrazio tutti per l'aiuto

Cinzia27--- G73--- New Mat--- J-Gio91

ORA ALMENO CON SPAZIOMETRIA FUNZIONA , è un pò lento ma funziona

Grazie!

Edited by santani - 16/12/2018, 08:19

Gam73

Posted on 18/12/2018, 08:50

Top Member

Group:: Administrator

Posts:: 1,719

Status:

Ciao a tutti,
ho abbandonato per ora la strada della statistica con la sortita sulle ruote successive.
Troppo ingestibili i file dati prodotti (6milioni di righe di testo...per oltre 300MB di txt) e tempi di calcolo lunghetti.

Ho però utilizzato qualche funzione forse poco nota di SpazioMetria ottenendo risultati in termini di tempo di calcolo apprezzabili. Vediamo se i dati ottenuti possono tornare utili a Santani.
Allora, lo script in fase di test analizza tutti i 4005 ambi per la sorte di Ambo su 2-3 o 4 ruote per ora.
L'analisi sulle coppie di ruote impiega 1 minuto, quella su 3 ruote 3 minuti mentre quella su 4 circa 6 minuti.

I dati restituiti per ogni ambo sono rAtt (ritardo attuale), rSto (storico) e Incr (Incremento dell'attuale rispetto allo storico).
Ordinando per gli Att, dal 1946 ecco la TopTen:

Ruote Ambo- rAtt rSto Incr
GE TO 07.19 2300 2300 1724
PA RO 72.83 2149 2149 1514
FI GE 17.30 2095 2095 1200
BA TO 14.55 2086 2086 1578
BA VE 14.90 2073 2073 0938
BA CA 27.86 2004 2004 1359
NA VE 03.04 1982 1982 0399
GE TO 06.24 1902 1902 1357
CA MI 52.79 1901 1901 1394
GE TO 42.86 1898 1898 1224

Ordinando per rSto:
Ruote Ambo- rAtt rSto Incr
CA RO 35.78 0116 3086 0
CA FI 21.34 0193 2762 0
CA NA 05.51 0106 2673 0
MI TO 62.72 0071 2638 0
MI VE 28.71 0313 2582 0
CA GE 10.76 0113 2580 0
PA TO 30.72 0116 2578 0
BA NA 38.71 0122 2486 0
MI RO 34.86 0171 2483 0
BA CA 18.33 0014 2481 0

Ordinando per i maggiori incrementi degli attuali rispetto al precedente storico:
Ruote Ambo- rAtt rSto Incr
GE TO 07.19 2300 2300 1724
BA TO 14.55 2086 2086 1578
PA RO 72.83 2149 2149 1514
FI MI 29.41 1851 1851 1407
CA MI 52.79 1901 1901 1394
BA CA 27.86 2004 2004 1359
GE TO 06.24 1902 1902 1357
PA TO 34.51 1732 1732 1353
BA NA 44.64 1833 1833 1319
CA TO 21.55 1727 1727 1300

Passando alle 3 Ruote, ecco i migliori attuali:
Ruote---- Ambo rAtt rSto Incr
FI GE TO 06.24 1668 1668 1181
FI MI VE 38.85 1601 1601 1149
CA FI NA 40.66 1594 1594 1148
BA GE PA 55.63 1585 1585 1026
GE NA PA 07.42 1578 1578 0643
CA GE PA 65.86 1547 1547 1046
CA FI NA 46.89 1509 1509 0872
BA FI RO 50.60 1455 1455 1060
CA FI MI 23.41 1440 1440 0284
BA GE NA 32.38 1434 1434 0923

Ecco gli storici:
Ruote---- Ambo rAtt rSto Incr
FI PA TO 11.24 0306 2172 0
FI TO VE 11.79 0088 2164 0
CA FI GE 19.45 0129 2117 0
MI RO VE 22.42 0058 2023 0
BA FI TO 83.90 0008 2023 0
CA NA VE 05.51 0015 1969 0
BA CA RO 18.33 0014 1968 0
CA FI TO 04.17 0006 1956 0
BA PA TO 07.25 0192 1954 0
FI PA TO 30.72 0116 1925 0

E quelli per incremento:
Ruote Ambo---- rAtt rSto Incr
FI GE TO 06.24 1668 1668 1181
FI MI VE 38.85 1601 1601 1149
CA FI NA 40.66 1594 1594 1148
BA FI RO 50.60 1455 1455 1060
CA GE PA 65.86 1547 1547 1046
BA GE PA 55.63 1585 1585 1026
FI GE PA 22.52 1401 1401 0995
FI TO VE 06.24 1361 1361 0960
MI PA VE 46.47 1402 1402 0957
FI TO VE 60.74 1222 1222 0927

Passiamo infine alle 4 ruote, con gli attuali:
Ruote------- Ambo rAtt rSto Incr
FI GE TO VE 06.24 1361 1361 1040
GE MI RO VE 54.74 1305 1305 0905
BA PA RO TO 40.70 1266 1266 0593
CA FI GE MI 19.60 1183 1183 0455
CA FI MI VE 38.85 1147 1147 0772
BA GE PA RO 55.63 1125 1125 0634
BA CA FI MI 23.41 1122 1122 0204
MI PA RO VE 46.47 1118 1118 0791
CA NA PA RO 02.50 1117 1117 0794
GE MI RO VE 52.77 1114 1114 0799

Gli storici:
Ruote Ambo------- rAtt rSto Incr
BA FI MI TO 83.90 0008 1787 0
GE MI RO VE 22.42 0058 1609 0
CA FI PA TO 21.34 0193 1603 0
FI PA RO TO 11.24 0306 1594 0
CA GE PA RO 10.76 0113 1560 0
FI NA PA RO 15.84 0142 1543 0
BA CA FI GE 06.45 0000 1511 0
CA MI NA TO 28.79 0274 1506 0
GE MI RO TO 28.33 0070 1503 0
CA FI NA TO 28.79 0077 1489 0

Gli incrementi attuali:
Ruote Ambo------- rAtt rSto Incr
FI GE TO VE 06.24 1361 1361 1040
GE MI RO VE 54.74 1305 1305 0905
GE MI RO VE 52.77 1114 1114 0799
CA NA PA RO 02.50 1117 1117 0794
MI PA RO VE 46.47 1118 1118 0791
CA FI MI VE 38.85 1147 1147 0772
FI PA RO TO 14.39 1086 1086 0759
BA PA TO VE 27.41 1101 1101 0730
FI GE TO VE 60.74 1005 1005 0723
BA FI GE VE 01.86 1078 1078 0690

Trovate qualche conferma in merito?
Saluti

santani

Posted on 19/12/2018, 19:06

Supporter

Group:: Member

Posts:: 40

Location:: Cesenatico

Status:

Saluti a tutti.
Saluti a G73
Nelle mie ricerche quando quasi tutto ciò che mi può essere utile si basa sulle ricerche di vari tipi di ambi e su tutti gli ambi.
Meglio se incolonnati in base al ritardo attuale.
Ho cercato in spaziometria il tipo di ricerca che hai menzionato sopra , ma non l'ho trovata.
Qual'è il percorso che hai eseguito?

Grazie!

Gam73

Posted on 19/12/2018, 20:35

Top Member

Group:: Administrator

Posts:: 1,719

Status:

Ciao, si tratta di una funzione da utilizzare in uno script. L'ordinamento non è un problema. Previo utilizzo dei dati prodotti in Excel.
Nei prossimi giorni se qualcuno conferma la correttezza dei dati posto lo script nell'apposita sezione.
Saluti

Cinzia272

Posted on 19/12/2018, 22:41

Ciao, Gam.
Ho fatto qualche controllo a campione.
Lo storico e l' attuale corrispondono.
Questo incremento (1040) non mi è chiaro.
Lo storico è 451
Quindi 1361-451=910 e non 1040
Oppure mi sfugge qualcosa ?

FI GE TO VE 06.24 1361 1361 1040

Cinzia27

Posted on 19/12/2018, 22:46

Ragazzi, ho sbagliato a digitare il nome utente, ma sono sempre io :wacko:

Gam73

Posted on 21/12/2018, 09:08

Top Member

Group:: Administrator

Posts:: 1,719

Status:

Ciao Cinzia,
lo storico dal 1946 è di 311 colpi, ergo => 1.361-321 = 1.040
Tu forse hai fatto riferimento all'archivio dal 1871.
Saluti

Cinzia27

Posted on 22/12/2018, 20:44

E' come dici tu, Gam.
Chiedo scusa per la distrazione.
Ora ho provato dal 1946 e corrisponde.
Auguri a tutti.

Cinzia

28 replies since 10/12/2018, 16:24 610 views