Solo Un Grafico E Una Domandina Per Adesso...

Cinzia27 · 14 Aprile 2022

Ciao, Nikor, Tom. Finora arriviamo a sfiorare 2500. Lo script è lento. Non è fruibile all' occorrenza. Secondo me conviene farlo girare per ricavare le novine che abbiano il massimo storico più basso per ambo, abbiamo detto 5, meglio se si trova ancor meno. Queste novine rimarrebbero fisse ( finché ovviamente non vengono depennate perché superano lo storico).
Tra esse si sceglie quelle a diff0 rs-ra.Poi come altro criterio la frequenza più alta.
Fatemi sapere cosa ne pensate.

Nikor · 14 Aprile 2022

Cinzia27 ha scritto:
La frequenza che dovrebbero avere le novine è di 2628. Arriviamo a circa 2400. Potrebbe andar bene?

La Frequenza globale di una Novina dovrebbe superare di gran lunga le ( 2628 ).
Solo perchè stiamo lavorando sui numeri in frequenza.

Credo ( ma vado a spanne ) che si possa arrivare ad un valore di ( 2.800 ) poi bisogna appurare di quanto possa salire ancora questo " ipotetico " valore , sarò più preciso appena trovo il tempo di stilare il codice e lanciarlo...

Per il ( RS = 5 ) sarà un grosso problema abbatterlo perchè bisogna considerare che a quel valore ci sono una miriade di formazioni di 9 numeri compresi nelle tue 11 abs di 23 numeri!
Ciao,.

Nikor.

lotto_tom75 · 15 Aprile 2022

lotto_tom75 ha scritto:
No effettivamente Cinzia anche un A in 5 colpi non sarebbe male

ma preferisco ancora 9ine by tue 23ine abs di questo tipo...

archivio lotto aggiornato al 14/4/2022

Ruote n. 1.2.3.4.5.6.7.8.9.10.12 Colonna: 23 12.16.28.29.43.51.61.73.74 RA 7 RS 7 INCMAX 0 FQ 2656 Diff 0 classe 9 sorte 2 riga 1

ribadisco che per adesso testerei quelle che hanno semplicemente... diff 0 incmax 0 con ra ed rs contenuti <= 10 e fq >= estrazionefin - 7440 come questa aggiornata... qui sopra...

Poi se ovviamente se ne trovasse altre analoghe con fq e presenze maggiori ben vengano!

Cinzia27 · 15 Aprile 2022

Ciao, Nikor. D novine in generale ce sono che superano di gran lunga 2628.
Ma dato che stiamo considerando le novine comprese nelle 11 23ine, il campo si restringe.
Se vogliamo partire dalla frequenza superiore a 2628, potrei provare a far girare lo script solo per trovare
quelle novine delle 23ine che la superano ( sperando che vi siano) e poi una volta trovate, estrapolare con un altro script quelle con ra=rs.
Come dicevo, il problema sono i tempi di elaborazione, non si può ogni volta riprendere le 23ine, occorre separare le novine.
E poi lavorare su di esse.
Comunque domani ci provo.

lotto_tom75 · 15 Aprile 2022

Cinzia27 ha scritto:
Ciao, Nikor. D novine in generale ce sono che superano di gran lunga 2628.
Ma dato che stiamo considerando le novine comprese nelle 11 23ine, il campo si restringe.
Se vogliamo partire dalla frequenza superiore a 2628, potrei provare a far girare lo script solo per trovare
quelle novine delle 23ine che la superano ( sperando che vi siano) e poi una volta trovate, estrapolare con un altro script quelle con ra=rs.
Come dicevo, il problema sono i tempi di elaborazione, non si può ogni volta riprendere le 23ine, occorre separare le novine.
E poi lavorare su di esse.
Comunque domani ci provo.

No effettivamente Cinzia anche un A in 5 colpi non sarebbe male

ma preferisco ancora 9ine by tue 23ine abs di questo tipo...

archivio lotto aggiornato al 14/4/2022

Ruote n. 1.2.3.4.5.6.7.8.9.10.12 Colonna: 23 12.16.28.29.43.51.61.73.74 RA 7 RS 7 INCMAX 0 FQ 2656 Diff 0 classe 9 sorte 2 riga 1

Questa non ti garba proprio eh...

Nessuna Certezza Solo Poca Probabilità

Cinzia27 · 15 Aprile 2022

Ho visto ora il post, Tom. Mantenendo la tua impostazione, ecco alcuni risultati. Ra=rs ma non ancora considerato l' incrMax.

Codice:

aa(1) = Array(0,74.55.13.56.88.29.39.53.81) st  fr 2481 n. estr.  at 6
aa(2) = Array(0,74.55.23.13.56.88.29.39.53) st  fr 2452 n. estr.  at 6
aa(3) = Array(0,83.38.50.65.56.88.46.53.81) st  fr 2465 n. estr.  at 7
aa(4) = Array(0,83.38.50.65.13.56.88.18.53) st  fr 2468 n. estr.  at 8
aa(5) = Array(0,83.38.50.5.65.56.88.46.81) st  fr 2463 n. estr.  at 7
aa(6) = Array(0,83.38.10.50.56.62.46.53.81) st  fr 2451 n. estr.  at 8
aa(7) = Array(0,83.74.55.13.56.88.39.53.81) st  fr 2453 n. estr.  at 6
aa(8) = Array(0,38.2.5.65.43.56.15.28.63) st  fr 2458 n. estr.  at 8
aa(9) = Array(0,38.55.50.5.65.43.56.15.28) st  fr 2452 n. estr.  at 7
aa(10) = Array(0,74.38.55.50.56.88.19.28.53) st  fr 2470 n. estr.  at 8
aa(11) = Array(0,83.38.65.43.56.16.15.28.63) st  fr 2460 n. estr.  at 10
aa(12) = Array(0,83.38.5.65.43.56.15.28.63) st  fr 2470 n. estr.  at 10
aa(13) = Array(0,83.38.50.65.43.56.15.28.63) st  fr 2477 n. estr.  at 10
aa(14) = Array(0,83.38.50.65.43.56.19.28.63) st  fr 2456 n. estr.  at 10
aa(15) = Array(0,83.38.2.65.43.56.16.15.28) st  fr 2453 n. estr.  at 9
aa(16) = Array(0,83.38.2.5.65.56.15.28.63) st  fr 2462 n. estr.  at 8
aa(17) = Array(0,83.38.2.5.65.43.56.28.63) st  fr 2456 n. estr.  at 8
aa(18) = Array(0,83.38.2.50.65.43.56.28.63) st  fr 2467 n. estr.  at 8
aa(19) = Array(0,83.38.2.50.5.65.43.56.15) st  fr 2454 n. estr.  at 9
aa(20) = Array(0,83.73.2.50.65.43.16.28.63) st  fr 2451 n. estr.  at 8
aa(21) = Array(0,83.73.2.50.5.65.43.28.63) st  fr 2458 n. estr.  at 8
aa(22) = Array(0,38.10.69.31.86.29.19.15.61) st  fr 2456 n. estr.  at 7
aa(23) = Array(0,74.38.2.33.78.60.82.8.61) st  fr 2453 n. estr.  at 8
aa(24) = Array(0,74.38.2.5.78.15.82.8.61) st  fr 2462 n. estr.  at 7
aa(25) = Array(0,73.74.2.23.33.78.60.8.51) st  fr 2454 n. estr.  at 8

Posto anche lo script con cui sto lavorando e vi do la buonanotte

Sub Main()
Dim ru(2),aa(11),ps(2)
ps(2) = 1
w = 2
z = 0
r = 11
r1 = 12
ru(1) = r
ru(2) = r1

aa(1) = Array(0,83,74,38,10,55,02,50,05,65,23,13,56,88,29,18,39,35,62,46,82,26,53,81)
aa(2) = Array(0,83,73,74,38,10,55,02,50,05,65,43,31,56,88,29,16,19,15,62,28,82,53,63)
aa(3) = Array(0,83,73,38,10,55,02,50,05,67,01,31,58,68,49,16,39,15,62,46,82,08,53,63)
aa(4) = Array(0,83,73,74,38,10,55,02,50,67,01,31,58,68,49,16,39,15,62,46,82,08,53,63)
aa(5) = Array(0,83,73,74,38,10,55,02,50,05,69,41,31,76,86,29,18,19,15,60,82,08,51,61)
aa(6) = Array(0,83,73,74,38,10,55,02,50,05,85,23,33,78,86,29,36,19,15,60,82,08,51,61)
aa(7) = Array(0,83,73,74,38,10,55,02,50,05,87,43,31,56,88,29,18,19,15,28,82,26,51,61)
aa(8) = Array(0,83,73,74,38,55,02,50,05,89,01,13,56,86,29,16,19,15,62,48,84,26,53,81)
aa(9) = Array(0,83,74,38,10,55,02,50,07,65,21,33,56,86,49,16,37,15,60,46,82,06,71,81)
aa(10) = Array(0,05,06,12,15,16,19,28,29,33,38,42,43,51,58,60,61,64,65,66,73,74,79,83)
aa(11) = Array(0,01,02,09,10,13,15,19,26,29,36,38,46,50,51,61,62,65,73,74,76,83,84,88)

For xx = 1 To 11

yy = UBound(aa(1))
For zz = 1 To yy
For zz1 = zz + 1 To yy
If ScriptInterrotto Then Exit For
For zz2 = zz1 + 1 To yy
If ScriptInterrotto Then Exit For
For zz3 = zz2 + 1 To yy
If ScriptInterrotto Then Exit For
For zz4 = zz3 + 1 To yy
If ScriptInterrotto Then Exit For
For zz5 = zz4 + 1 To yy
If ScriptInterrotto Then Exit For
For zz6 = zz5 + 1 To yy
If ScriptInterrotto Then Exit For
For zz7 = zz6 + 1 To yy
If ScriptInterrotto Then Exit For
For zz8 = zz7 + 1 To yy
If ScriptInterrotto Then Exit For
For zz9 = zz8 + 1 To yy
If ScriptInterrotto Then Exit For
For zz10 = zz9 + 1 To yy
If ScriptInterrotto Then Exit For
For zz11 = zz10 + 1 To yy
If ScriptInterrotto Then Exit For
For zz12 = zz11 + 1 To yy
For zz13 = zz12 + 1 To yy

a = aa(xx)
a(zz) = z
a(zz1) = z
a(zz2) = z
a(zz3) = z
a(zz4) = z
a(zz5) = z
a(zz6) = z
a(zz7) = z
a(zz8) = z
a(zz9) = z
a(zz10) = z
a(zz11) = z
a(zz12) = z
a(zz13) = z
'd=EstrazioneFin-7440
fr = SerieFreqTurbo(7440,EstrazioneFin,a,ru,w)
If fr > 2450 Then

rt = SerieRitardoTurbo(7440,EstrazioneFin,a,ru,w)

st = SerieStoricoTurbo(7440,EstrazioneFin,a,ru,w)
If st =rt Then
cc = cc + 1
Messaggio FormatSpace(cc,5,1) & ")" & StringaNumeri(a) & " st " & st & " fr " & fr & " n. estr. " & d& " at " & rt
Scrivi "aa(" &(cc) & ") = Array(0," & StringaNumeri(a) & " st " & st & " fr " & fr & " n. estr. " & d& " at " & rt
End If
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

Cinzia27 · 15 Aprile 2022

lotto_tom75 ha scritto:
Questa non ti garba proprio eh...

No, figurati. Era solo un'idea. Andiamo avanti nella tua direzione.

lotto_tom75 · 15 Aprile 2022

Cinzia27 ha scritto:
Ho visto ora il post, Tom. Mantenendo la tua impostazione, ecco alcuni risultati. Ra=rs ma non ancora considerato l' incrMax.

Codice:

aa(1) = Array(0,74.55.13.56.88.29.39.53.81) st fr 2481 n. estr. at 6 aa(2) = Array(0,74.55.23.13.56.88.29.39.53) st fr 2452 n. estr. at 6 aa(3) = Array(0,83.38.50.65.56.88.46.53.81) st fr 2465 n. estr. at 7 aa(4) = Array(0,83.38.50.65.13.56.88.18.53) st fr 2468 n. estr. at 8 aa(5) = Array(0,83.38.50.5.65.56.88.46.81) st fr 2463 n. estr. at 7 aa(6) = Array(0,83.38.10.50.56.62.46.53.81) st fr 2451 n. estr. at 8 aa(7) = Array(0,83.74.55.13.56.88.39.53.81) st fr 2453 n. estr. at 6 aa(8) = Array(0,38.2.5.65.43.56.15.28.63) st fr 2458 n. estr. at 8 aa(9) = Array(0,38.55.50.5.65.43.56.15.28) st fr 2452 n. estr. at 7 aa(10) = Array(0,74.38.55.50.56.88.19.28.53) st fr 2470 n. estr. at 8 aa(11) = Array(0,83.38.65.43.56.16.15.28.63) st fr 2460 n. estr. at 10 aa(12) = Array(0,83.38.5.65.43.56.15.28.63) st fr 2470 n. estr. at 10 aa(13) = Array(0,83.38.50.65.43.56.15.28.63) st fr 2477 n. estr. at 10 aa(14) = Array(0,83.38.50.65.43.56.19.28.63) st fr 2456 n. estr. at 10 aa(15) = Array(0,83.38.2.65.43.56.16.15.28) st fr 2453 n. estr. at 9 aa(16) = Array(0,83.38.2.5.65.56.15.28.63) st fr 2462 n. estr. at 8 aa(17) = Array(0,83.38.2.5.65.43.56.28.63) st fr 2456 n. estr. at 8 aa(18) = Array(0,83.38.2.50.65.43.56.28.63) st fr 2467 n. estr. at 8 aa(19) = Array(0,83.38.2.50.5.65.43.56.15) st fr 2454 n. estr. at 9 aa(20) = Array(0,83.73.2.50.65.43.16.28.63) st fr 2451 n. estr. at 8 aa(21) = Array(0,83.73.2.50.5.65.43.28.63) st fr 2458 n. estr. at 8 aa(22) = Array(0,38.10.69.31.86.29.19.15.61) st fr 2456 n. estr. at 7 aa(23) = Array(0,74.38.2.33.78.60.82.8.61) st fr 2453 n. estr. at 8 aa(24) = Array(0,74.38.2.5.78.15.82.8.61) st fr 2462 n. estr. at 7 aa(25) = Array(0,73.74.2.23.33.78.60.8.51) st fr 2454 n. estr. at 8

Sub Main()
Dim ru(2),aa(11),ps(2)
ps(2) = 1
w = 2
z = 0
r = 11
r1 = 12
ru(1) = r
ru(2) = r1

aa(1) = Array(0,83,74,38,10,55,02,50,05,65,23,13,56,88,29,18,39,35,62,46,82,26,53,81)
aa(2) = Array(0,83,73,74,38,10,55,02,50,05,65,43,31,56,88,29,16,19,15,62,28,82,53,63)
aa(3) = Array(0,83,73,38,10,55,02,50,05,67,01,31,58,68,49,16,39,15,62,46,82,08,53,63)
aa(4) = Array(0,83,73,74,38,10,55,02,50,67,01,31,58,68,49,16,39,15,62,46,82,08,53,63)
aa(5) = Array(0,83,73,74,38,10,55,02,50,05,69,41,31,76,86,29,18,19,15,60,82,08,51,61)
aa(6) = Array(0,83,73,74,38,10,55,02,50,05,85,23,33,78,86,29,36,19,15,60,82,08,51,61)
aa(7) = Array(0,83,73,74,38,10,55,02,50,05,87,43,31,56,88,29,18,19,15,28,82,26,51,61)
aa(8) = Array(0,83,73,74,38,55,02,50,05,89,01,13,56,86,29,16,19,15,62,48,84,26,53,81)
aa(9) = Array(0,83,74,38,10,55,02,50,07,65,21,33,56,86,49,16,37,15,60,46,82,06,71,81)
aa(10) = Array(0,05,06,12,15,16,19,28,29,33,38,42,43,51,58,60,61,64,65,66,73,74,79,83)
aa(11) = Array(0,01,02,09,10,13,15,19,26,29,36,38,46,50,51,61,62,65,73,74,76,83,84,88)

For xx = 1 To 11

yy = UBound(aa(1))
For zz = 1 To yy
For zz1 = zz + 1 To yy
If ScriptInterrotto Then Exit For
For zz2 = zz1 + 1 To yy
If ScriptInterrotto Then Exit For
For zz3 = zz2 + 1 To yy
If ScriptInterrotto Then Exit For
For zz4 = zz3 + 1 To yy
If ScriptInterrotto Then Exit For
For zz5 = zz4 + 1 To yy
If ScriptInterrotto Then Exit For
For zz6 = zz5 + 1 To yy
If ScriptInterrotto Then Exit For
For zz7 = zz6 + 1 To yy
If ScriptInterrotto Then Exit For
For zz8 = zz7 + 1 To yy
If ScriptInterrotto Then Exit For
For zz9 = zz8 + 1 To yy
If ScriptInterrotto Then Exit For
For zz10 = zz9 + 1 To yy
If ScriptInterrotto Then Exit For
For zz11 = zz10 + 1 To yy
If ScriptInterrotto Then Exit For
For zz12 = zz11 + 1 To yy
For zz13 = zz12 + 1 To yy

a = aa(xx)
a(zz) = z
a(zz1) = z
a(zz2) = z
a(zz3) = z
a(zz4) = z
a(zz5) = z
a(zz6) = z
a(zz7) = z
a(zz8) = z
a(zz9) = z
a(zz10) = z
a(zz11) = z
a(zz12) = z
a(zz13) = z
'd=EstrazioneFin-7440
fr = SerieFreqTurbo(7440,EstrazioneFin,a,ru,w)
If fr > 2450 Then

rt = SerieRitardoTurbo(7440,EstrazioneFin,a,ru,w)

st = SerieStoricoTurbo(7440,EstrazioneFin,a,ru,w)
If st =rt Then
cc = cc + 1
Messaggio FormatSpace(cc,5,1) & ")" & StringaNumeri(a) & " st " & st & " fr " & fr & " n. estr. " & d& " at " & rt
Scrivi "aa(" &(cc) & ") = Array(0," & StringaNumeri(a) & ")" & " st " & " fr " & fr & " n. estr. " & d& " at " & rt

End If
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

Ok Cinzia, thanks ma potremmo elaborare quella che ho trovato intanto... no?

Se verifichi con archivio aggiornato al 14/4/2022 questa formazione dalla 7440 x i parametri che ci siamo imposti... su TT e NZ unite per questo esperimento collettivo... vedrai che ci sono tutti...

12.16.28.29.43.51.61.73.74

derivante dalla tua 23ina abs
ra e rs contenuti <= 10
rs-ra = 0 (diff = 0)
incmax = 0
fq >= estrazionefin - 7440

'Notte

Nessuna Certezza Solo Poca Probabilità

Nikor · 15 Aprile 2022

Cinzia27 ha scritto:
Ciao, Nikor. D novine in generale ce sono che superano di gran lunga 2628.
Ma dato che stiamo considerando le novine comprese nelle 11 23ine, il campo si restringe.
Se vogliamo partire dalla frequenza superiore a 2628, potrei provare a far girare lo script solo per trovare
quelle novine delle 23ine che la superano ( sperando che vi siano) e poi una volta trovate, estrapolare con un altro script quelle con ra=rs.
Come dicevo, il problema sono i tempi di elaborazione, non si può ogni volta riprendere le 23ine, occorre separare le novine.
E poi lavorare su di esse.
Comunque domani ci provo.

Ciao, Nikor. D novine in generale ce sono che superano di gran lunga 2628.

Ciao Cinzia , sai bene che a volte sul forum non si riesce a spiegarsi nel modo corretto , o forse anche leggendo si interpretano male i dati.

Le Novine a cui accennavo con valore Frequenza oltre ( 2.800 ) non sono quelle eterogenee in generale , ma sono quelle che derivano da una delle tue 11 formazioni ( abs 23 )! ho fatto solo una considerazione teorica per esclusione.
Sono sicuro che nelle tue ( abs ) di 23 numeri ce ne siano parecchie che superino il valore che avevo citato a spanne, anticipo i tempi e se domani trovo un attimo te ne posto alcuna , ma sono sicuro che ce ne saranno più di una a valore ( > = 2.800 ) ! comprese nelle tue 23ine.

Nikor.

lotto_tom75 · 15 Aprile 2022

lotto_tom75 ha scritto:
Ciao Cinzia ottime queste tue 9ine in "superfrequenza" anche se con il mio post intendevo + qualcosa del genere...

Con archivio aggiornato al 12/4/2022

Ruote n. 1.2.3.4.5.6.7.8.9.10.12 Colonna: 19 16.28.29.43.51.61.73.74.83 RA 6 RS 6 INCMAX 0 FQ 2703 Diff 0 classe 9 sorte 2 riga 5

in quanto ho visto che tutte e tre le tue 9ine hanno un ra 0 e un rs <= 9 mentre appunto se vogliamo avere l'illusione che sfaldi a colpo bisognerebbe avere, oltre alla frequenza >= numero delle estrazioni esaminate, anche diff0 incmax 0

....

Nessuna Certezza Solo Poca Probabilità

Riguardo a questa 9ina e alle sue future eventuali analoghe mi appunto e condivido anche questo forse importantissimo accorgimento rilevato in output...

la coppia 61-83 sarebbe stata presente nei primi due livelli di ra min xAinA su TTeNZ unite dalla 7440 con ra <= 10 e pari a 7... e tra queste avrebbe avuto la terza diff min... pari a 115.

Combinazioni di classe 2 analizzate per punti 2 sulle ruote BA CA FI GE MI NA PA RO TO VE NZ
La seguente lista mostra le prime Combinazioni In Base al valore di Ritardo
Range analizzato [07440] [ 36] 04.05.2005 fino a [10067] [ 44] 12.04.2022
Estrazioni analizzate totali : 2628

...

formazione: 61.83 - FQ 79 - RA 7 - RS 122 - DIFF 115 - INCMAX 0 - contatore 30

...

In attesa della 9ina a fq >= 2800 con diff0 incmax0 x A su TTeNZ dalla 7440 by 23ina abs di Cinzia che rileverà Nikor

Cinzia27 · 15 Aprile 2022

Bene, Nikor. Mi fa piacere che ce ne siano. Voi avete mezzi più potenti per verificare. Io ho fatto girare un pò lo script poi mi sono arresa.
Invece ci va pazienza.Ora so che vale la pena lasciarlo elaborare.
Ve lo posto con i parametri voluti.

Codice:

Sub Main()
Dim ru(2),aa(11),ps(2)
ps(2) = 1
w = 2
z = 0
r = 11
r1 = 12
ru(1) = r
ru(2) = r1

aa(1) = Array(0,83,74,38,10,55,02,50,05,65,23,13,56,88,29,18,39,35,62,46,82,26,53,81)
aa(2) = Array(0,83,73,74,38,10,55,02,50,05,65,43,31,56,88,29,16,19,15,62,28,82,53,63)
aa(3) = Array(0,83,73,38,10,55,02,50,05,67,01,31,58,68,49,16,39,15,62,46,82,08,53,63)
aa(4) = Array(0,83,73,74,38,10,55,02,50,67,01,31,58,68,49,16,39,15,62,46,82,08,53,63)
aa(5) = Array(0,83,73,74,38,10,55,02,50,05,69,41,31,76,86,29,18,19,15,60,82,08,51,61)
aa(6) = Array(0,83,73,74,38,10,55,02,50,05,85,23,33,78,86,29,36,19,15,60,82,08,51,61)
aa(7) = Array(0,83,73,74,38,10,55,02,50,05,87,43,31,56,88,29,18,19,15,28,82,26,51,61)
aa(8) = Array(0,83,73,74,38,55,02,50,05,89,01,13,56,86,29,16,19,15,62,48,84,26,53,81)
aa(9) = Array(0,83,74,38,10,55,02,50,07,65,21,33,56,86,49,16,37,15,60,46,82,06,71,81)
aa(10) = Array(0,05,06,12,15,16,19,28,29,33,38,42,43,51,58,60,61,64,65,66,73,74,79,83)
aa(11) = Array(0,01,02,09,10,13,15,19,26,29,36,38,46,50,51,61,62,65,73,74,76,83,84,88)

For xx = 1 To 11


yy = UBound(aa(1))
For zz = 1 To yy
For zz1 = zz + 1 To yy
If ScriptInterrotto Then Exit For
For zz2 = zz1 + 1 To yy
If ScriptInterrotto Then Exit For
For zz3 = zz2 + 1 To yy
If ScriptInterrotto Then Exit For
For zz4 = zz3 + 1 To yy
If ScriptInterrotto Then Exit For
For zz5 = zz4 + 1 To yy
If ScriptInterrotto Then Exit For
For zz6 = zz5 + 1 To yy
If ScriptInterrotto Then Exit For
For zz7 = zz6 + 1 To yy
If ScriptInterrotto Then Exit For
For zz8 = zz7 + 1 To yy
If ScriptInterrotto Then Exit For
For zz9 = zz8 + 1 To yy
If ScriptInterrotto Then Exit For
For zz10 = zz9 + 1 To yy
If ScriptInterrotto Then Exit For
For zz11 = zz10 + 1 To yy
If ScriptInterrotto Then Exit For
For zz12 = zz11 + 1 To yy
For zz13 = zz12 + 1 To yy

a = aa(xx)
a(zz) = z
a(zz1) = z
a(zz2) = z
a(zz3) = z
a(zz4) = z
a(zz5) = z
a(zz6) = z
a(zz7) = z
a(zz8) = z
a(zz9) = z
a(zz10) = z
a(zz11) = z
a(zz12) = z
a(zz13) = z
d=EstrazioneFin-7440
fr = SerieFreqTurbo(7440,EstrazioneFin,a,ru,w)
If fr > d Then

rt = SerieRitardoTurbo(7440,EstrazioneFin,a,ru,w)


st = SerieStoricoTurbo(7440,EstrazioneFin,a,ru,w)
If st = rt Then
cc = cc + 1
Messaggio FormatSpace(cc,5,1) & ")" & StringaNumeri(a) & " fr " & fr & " n. estr. " & d & " st " & st& " at " & rt
Scrivi "aa(" &(cc) & ") = Array(0," & StringaNumeri(a) & " fr " & fr & " n. estr. " & d & " st " & st& " at " & rt
End If
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

lotto_tom75 · 15 Aprile 2022

Cinzia27 ha scritto:

Bene, Nikor. Mi fa piacere che ce ne siano. Voi avete mezzi più potenti per verificare. Io ho fatto girare un pò lo script poi mi sono arresa.
Invece ci va pazienza.Ora so che vale la pena lasciarlo elaborare.
Ve lo posto con i parametri voluti.

Codice:

Sub Main()
Dim ru(2),aa(11),ps(2)
ps(2) = 1
w = 2
z = 0
r = 11
r1 = 12
ru(1) = r
ru(2) = r1

aa(1) = Array(0,83,74,38,10,55,02,50,05,65,23,13,56,88,29,18,39,35,62,46,82,26,53,81)
aa(2) = Array(0,83,73,74,38,10,55,02,50,05,65,43,31,56,88,29,16,19,15,62,28,82,53,63)
aa(3) = Array(0,83,73,38,10,55,02,50,05,67,01,31,58,68,49,16,39,15,62,46,82,08,53,63)
aa(4) = Array(0,83,73,74,38,10,55,02,50,67,01,31,58,68,49,16,39,15,62,46,82,08,53,63)
aa(5) = Array(0,83,73,74,38,10,55,02,50,05,69,41,31,76,86,29,18,19,15,60,82,08,51,61)
aa(6) = Array(0,83,73,74,38,10,55,02,50,05,85,23,33,78,86,29,36,19,15,60,82,08,51,61)
aa(7) = Array(0,83,73,74,38,10,55,02,50,05,87,43,31,56,88,29,18,19,15,28,82,26,51,61)
aa(8) = Array(0,83,73,74,38,55,02,50,05,89,01,13,56,86,29,16,19,15,62,48,84,26,53,81)
aa(9) = Array(0,83,74,38,10,55,02,50,07,65,21,33,56,86,49,16,37,15,60,46,82,06,71,81)
aa(10) = Array(0,05,06,12,15,16,19,28,29,33,38,42,43,51,58,60,61,64,65,66,73,74,79,83)
aa(11) = Array(0,01,02,09,10,13,15,19,26,29,36,38,46,50,51,61,62,65,73,74,76,83,84,88)

For xx = 1 To 11


yy = UBound(aa(1))
For zz = 1 To yy
For zz1 = zz + 1 To yy
If ScriptInterrotto Then Exit For
For zz2 = zz1 + 1 To yy
If ScriptInterrotto Then Exit For
For zz3 = zz2 + 1 To yy
If ScriptInterrotto Then Exit For
For zz4 = zz3 + 1 To yy
If ScriptInterrotto Then Exit For
For zz5 = zz4 + 1 To yy
If ScriptInterrotto Then Exit For
For zz6 = zz5 + 1 To yy
If ScriptInterrotto Then Exit For
For zz7 = zz6 + 1 To yy
If ScriptInterrotto Then Exit For
For zz8 = zz7 + 1 To yy
If ScriptInterrotto Then Exit For
For zz9 = zz8 + 1 To yy
If ScriptInterrotto Then Exit For
For zz10 = zz9 + 1 To yy
If ScriptInterrotto Then Exit For
For zz11 = zz10 + 1 To yy
If ScriptInterrotto Then Exit For
For zz12 = zz11 + 1 To yy
For zz13 = zz12 + 1 To yy

a = aa(xx)
a(zz) = z
a(zz1) = z
a(zz2) = z
a(zz3) = z
a(zz4) = z
a(zz5) = z
a(zz6) = z
a(zz7) = z
a(zz8) = z
a(zz9) = z
a(zz10) = z
a(zz11) = z
a(zz12) = z
a(zz13) = z
d=EstrazioneFin-7440
fr = SerieFreqTurbo(7440,EstrazioneFin,a,ru,w)
If fr > d Then

rt = SerieRitardoTurbo(7440,EstrazioneFin,a,ru,w)


st = SerieStoricoTurbo(7440,EstrazioneFin,a,ru,w)
If st = rt Then
cc = cc + 1
Messaggio FormatSpace(cc,5,1) & ")" & StringaNumeri(a) & " fr " & fr & " n. estr. " & d & " st " & st& " at " & rt
Scrivi "aa(" &(cc) & ") = Array(0," & StringaNumeri(a) & " fr " & fr & " n. estr. " & d & " st " & st& " at " & rt
End If
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

Mai arrendersi...

post #234 a pagina 14

Modificalo con questo if che ti metto sotto mettendo come gruppo base nei due punti richiesti una qualunque tua 23ina abs (o fagli leggere in dinamica un file txt contenente tutte le tue 23ine abs) e avrai tutte le volte che vorrai... le 9ine, analoghe alla mia postata sopra e rispettanti il triplice filtro, in pochissimi minuti...

Codice:

If(RetRit1 >= raminimostandard And RetRit1 <= ramassimotop And RetRitMax <= ramassimotop And Diff = 0 And RetIncrRitMax = 0 And RetFreq >= ultimeestrazionianalizzate) Then 'Diff <= diffdecisa) Then

Easter Egg

silop2005 · 15 Aprile 2022

lotto_tom75 ha scritto:
Mai arrendersi...

post #234 a pagina 14

Modificalo con questo if che ti metto sotto mettendo come gruppo base nei due punti richiesti una qualunque tua 23ina abs (o fagli leggere in dinamica un file txt contenente tutte le tue 23ine abs) e avrai tutte le volte che vorrai... le 9ine, analoghe alla mia postata sopra e rispettanti il triplice filtro, in pochissimi minuti...

Codice:

If(RetRit1 >= raminimostandard And RetRit1 <= ramassimotop And RetRitMax <= ramassimotop And Diff = 0 And RetIncrRitMax = 0 And RetFreq >= ultimeestrazionianalizzate) Then 'Diff <= diffdecisa) Then

Easter Egg

=====================================================

SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e SpazioLight.net V.1.0.38

======================

Ciao LottoTom ,

======================

mi puoi dire in che punto deve essere messo il tuo "IF"

nello script di Cinzia ?

Ho ripristinato il mio precedente pc ASUS con il programma Spaziometria by LuigiB

e gli vorrei far "macinare" queste 23ine lunghette di Cinzia.

Aspetto tue notizie o di Cinzia.

======================

Buon venerdì a tutto il forum.

======================

A presto

Silop

lotto_tom75 · 15 Aprile 2022

silop2005 ha scritto:
=====================================================

SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e SpazioLight.net V.1.0.38
======================
Ciao LottoTom ,
======================
mi puoi dire in che punto deve essere messo il tuo "IF"
nello script di Cinzia ?
Ho ripristinato il mio precedente pc ASUS con il programma Spaziometria by LuigiB
e gli vorrei far "macinare" queste 23ine lunghette di Cinzia.
Aspetto tue notizie o di Cinzia.
======================
Buon venerdì a tutto il forum.
======================

A presto
Silop

Ciao big silop benvenuto a bordo...

l'if di cui sopra va messo nel mio script "ironbot progressivo" che trovi già linkato come post #234 della pagina 14 di questo stesso thread.

Nikor · 15 Aprile 2022

lotto_tom75 ha scritto:
In attesa della 9ina a fq >= 2800 con diff0 incmax0 x A su TTeNZ dalla 7440 by 23ina abs di Cinzia che rileverà Nikor

Ciao Tom , io avevo parlato di Frequenze globali x Ambo e non avrei la minima idea se la Novina rispetti i parametri che hai citato.
passo al dato:
L'array aa ( 8 ) processata non ha trovato nessun precedente storico < di 5 ! in pratica nessun valore = a 4 e centinaia le Novine con precedente = a 5.
Frequenze ( > = 2.870 ) sono 4 formazioni ; mentre tra le 2.800 & 2.870 a centinaia.
Posto le 2 con il massimo valore dalla 7.440 su ( TT ) & ( Nz ) unite x Ambo:
05-13-15-38-56-73-81-84-89 ( Freq-Globale = 2.891 ) !
01-05-15-38-56-73-81-84-89 ( Freq-Globale = 2.877 ) !

Numerose quelle con attuale 5 e storico 6, mi pare di aver visto passare anche un 5 su 5 .
Per l'incrementomax. alcuna a 14 attuale con incremento 6 , ho visto anche un attuale 12 con incremento 5
Rimane sempre il fatto che se si predilige un valore vengono penalizzati gli altri...

Ho fatto la veloce l'analisi solo perchè avevo toccato l'argomento Frequenze , ma non la rifarei perchè sullo scroll è un lavoraccio gestire le più di 800.000 formazioni e dopo ore passate tutti i giorni davanti al terminale , non me la sento più di stare più di 15/20 minuti incollato al PC.
Attendo le vostre buone nuove, Nikor.
.

Cinzia27 · 15 Aprile 2022

Ringrazio Silop della sua partecipazione.
Ho fatto girare il mio script( post 571) e sono andata a far la spesa. Al ritorno aveva terminato con una pagina bianca.
Sarà errato? Quell' if, Tom, a che punto lo devo mettere del listato pag. 14? Puoi postare lo script intero?

silop2005 · 15 Aprile 2022

SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e SpazioLight.net V.1.0.38

======================

Ciao LottoTom ,

======================

allora, se ho capito, questo tuo "IF" non lo debbo mettere nello script di Cinzia

ma, bensì, nel tuo "ironbot" che si trova a pag. 14 post.#274

e al posto della novantina di BASE

metto di volta in volta una delle 11 lunghette da 23ine di Cinzia.

Ho capito bene ?

Credo che il tuo "IF"

nel tuo script lo dovrei mettere al posto di questo if sotto :

'FILTRO ABASUL

If RetRit1 > 0 And RetRitMax > 0 Then

…......

Fammi sapere

Saluti a tutti i partecipanti.

======================

Buon venerdì a tutto il forum.

======================

A presto

Silop

Cinzia27 · 15 Aprile 2022

Bravo, Nikor. Ho visto il tuo post dopo che sono intervenuta. Allora ci sono.
A questo punto deve dedurre che il mio script sia errato.
Silop a che punto esattamente va messo quell' if ?

silop2005 · 15 Aprile 2022

SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e SpazioLight.net V.1.0.38

======================

Ciao Cinzia ,

======================

aspettiamo cosa dice LottoTom

oppure lo potrebbe mettere qui con la modifica.

======================

Buon venerdì a tutto il forum.

======================

A presto

Silop

lotto_tom75 · 15 Aprile 2022

Cinzia27 ha scritto:
Ringrazio Silop della sua partecipazione.
Ho fatto girare il mio script( post 571) e sono andata a far la spesa. Al ritorno aveva terminato con una pagina bianca.
Sarà errato? Quell' if, Tom, a che punto lo devo mettere del listato pag. 14? Puoi postare lo script intero?

silop2005 ha scritto:
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e SpazioLight.net V.1.0.38
======================
Ciao Cinzia ,
======================
aspettiamo cosa dice LottoTom
oppure lo potrebbe mettere qui con la modifica.
======================
Buon venerdì a tutto il forum.
======================

A presto
Silop

Vi facevo + "svelti"

A parte gli scherzi...

ecco l'ovetto già pulito... e scartato...

Se volete anche che ve lo mangi...

Codice:

Option Explicit
Sub Main    
   'listato e ricerca formazioni diff0 incmax0 fq doc by gruppi base scelti doc (abs o semi abs) o by 90 by lotto_tom75
   'Nessuna Certezza Solo Poca Probabilità
   Dim k
   Dim Classe
   Dim aCol
   ReDim aNum(90)
   Dim i,i2
   Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
   Dim ColTot,aRetcol
   Dim valoreInizioelaborazione,valorefineelaborazione
   Dim ruota
   Dim ff
   Dim numerocolonne
   Dim multiplocolonne
   Dim numerocolonnerandomtotale
   Dim ramassimotop
   Dim ramassimostandard
   Dim raminimostandard
   Dim Incmaxdeciso
   Dim puntidipartenzadasottrarre
   Dim puntiriduzioneadognipassaggio
   Dim grupponumericobaseiniziale
   grupponumericobaseiniziale = Array(0,5,6,12,15,16,19,28,29,33,38,42,43,51,58,60,61,64,65,66,73,74,79,83)
   Dim diffdecisa
   Dim quantestrazionidallafine
   Dim filexanalisicollimanze
   filexanalisicollimanze = ".\filexanalisicollimanze.txt"
   Dim Iniziorange
   Iniziorange = EstrazioneIni ' qui si puo' cambiare ogni volta il parametro relativo
   Fine = EstrazioneFin ' qui si puo' cambiare ogni volta il parametro relativo
   quantestrazionidallafine = Fine - Iniziorange
   Dim counter
   counter = 0
   Dim casiesaminati
   casiesaminati = 0
   Dim casipositivi
   Dim casinegativi
   Dim casiattivi
   casipositivi = 0
   casinegativi = 0
   casiattivi = 0
   Dim estrazionidaanalizzare
   estrazionidaanalizzare = EstrazioneFin '0  ' 315 '220 '290 '360
   Dim quanteiterazioni
   quanteiterazioni = CInt(InputBox("Quante iterazioni vuoi effettuare per questa analisi?",,1)) ' 100))
   Inizio = CInt(InputBox("Da quale estrazione vuoi partire per l'analisi?",,Iniziorange))
   Fine = CInt(InputBox("Quale estrazione vuoi impostare come ultima di studio?",,Fine))
   Classe = CInt(InputBox("QUALE GRUPPO NUMERICO ASSOLUTO O SEMI ASSOLUTO DI SVILUPPO",,UBound(grupponumericobaseiniziale) - 1)) '78)) 'provo a velocizzare ricerca facendola partire da una classe molto + ridotta rispetto la 73ina...
   Classefinale = CInt(InputBox("QUALE CLASSE FINALE DI SVILUPPO",,5))
   puntidipartenzadasottrarre = CInt(InputBox("DA QUANTI PUNTI PARTIRE IN MENO RISPETTO LA CLASSE DEL GRUPPO NUMERICO SCELTO",,1))
   puntiriduzioneadognipassaggio = CInt(InputBox("QUANTI PUNTI RIDUZIONALI SOTTRARRE AD OGNI PASSAGGIO",,1))
   nSorte = CInt(InputBox("QUALE SORTE DI RICERCA","sorte di ricerca",2))
   ff = CInt(InputBox("QUANTE ESTRAZIONI DALLA FINE",,estrazionidaanalizzare)) 'quantestrazionidallafine + 1))
   numerocolonne = CInt(InputBox("QUANTE COLONNE RANDOM ANALIZZARE (max 10000)",,100))
   multiplocolonne = CInt(InputBox("FATTORE DI MOLTIPLICAZIONE COLONNE RANDOM (max 10000)",,1))
   ramassimotop = CInt(InputBox("RITARDO MASSIMO TOP",,9000))
   raminimostandard = CInt(InputBox("RITARDO MINIMO STANDARD",,0))
   ramassimostandard = CInt(InputBox("RITARDO MASSIMO STANDARD",,ramassimotop))
   Incmaxdeciso = CInt(InputBox("INCMAX DA CUI PARTIRE",,0))
   Inizio = EstrazioneFin - ff
   If FileEsistente(filexanalisicollimanze) Then
      Call EliminaFile(filexanalisicollimanze)
   End If
   filexanalisicollimanze = ".\filexanalisicollimanze.txt"
   Dim contaiterazioni
   Dim partida
   Dim Classefinale
   partida = Classe - puntidipartenzadasottrarre
   Scrivi "Analizzatore lunghette desiderate di gruppo numerico desiderato",1,1,1,5,3
   Scrivi "per sorte desiderata in quantità di colonne Random desiderate (max 100 mln)",1,1,1,5,3
   Scrivi
   Scrivi
   Scrivi "By Lotto_tom75 - Numeri Lotto Team",1,1,1,4,2
   Scrivi
   Call Scrivi("Sviluppo Combinazioni del gruppo numerico assoluto o semi assoluto di classe " & Classe & " a partire dalla Classe ridotta " & partida)
   Call Scrivi("per la sorte di... " & NomeSorte(nSorte),1,1,2,4,4) ' size 5
   Scrivi
   Scrivi "Totale colonne random elaborate: " & numerocolonnerandomtotale,0,0,1,4,5
   Scrivi
   Scrivi "Totale estrazioni analizzate : " & ff,0,0,1,4,5
   Scrivi
   Dim ultimeestrazionianalizzate
   ultimeestrazionianalizzate = EstrazioneFin + 1 - Iniziorange
   Scrivi "Totale range temporale analizzato : ultime " &(EstrazioneFin - Iniziorange - 1) + 2 & " estrazioni"
   Scrivi
   Scrivi
   Scrivi "Estrazione inizio... " & DataEstrazione(Iniziorange) & " - " & GetInfoEstrazione(Iniziorange) & "  Estrazione fine... " & DataEstrazione(EstrazioneFin) & " - " & GetInfoEstrazione(EstrazioneFin) '& " estrazione intermedia di analisi " & idestrazione
   Scrivi
   For k = 1 To RuoteSelezionate
      Call Scrivi("Scelta ruota " & NomeRuota(aRuote(k)) & " - " & SiglaRuota(aRuote(k)))
   Next
   Scrivi
   Scrivi
   Scrivi "RA massimo impostato con scrittura su file e alert... RA= " & ramassimotop
   Scrivi
   Scrivi "RA medio impostato con scrittura su file e output... RA= " & ramassimostandard
   Scrivi
   Scrivi "Incmax da cui partire... Incmax= " & Incmaxdeciso
   Scrivi
   Call Scrivi
   Call Scrivi("Data elaborazione: " & giorno(EstrazioneFin) & "-" & Mese(EstrazioneFin) & "-" & Anno(EstrazioneFin))
   Call Scrivi
   For contaiterazioni = 1 To quanteiterazioni
      Dim sfilereportdinamico,Classedinamicaprogressiva
      sfilereportdinamico = ".\risultanzadinamica.txt"
      Dim filenumericoiniziale
      filenumericoiniziale = ".\risultanzadinamica.txt"
      If FileEsistente(filenumericoiniziale) Then
         Call EliminaFile(filenumericoiniziale)
      End If
      filenumericoiniziale = ".\risultanzadinamica.txt"
      Dim n
      sfileclassedinamica = ".\classedinamica" & n & ".txt"
      For n = 1 To 90
         If FileEsistente(".\classedinamica" & n & ".txt") Then
            Call EliminaFile(".\classedinamica" & n & ".txt")
         End If
         If ScriptInterrotto Then Exit For
      Next
      Call ScriviFile(filenumericoiniziale,StringaNumeri(grupponumericobaseiniziale))
      Call CloseFileHandle(filenumericoiniziale)
      Dim aRuoteTmp
      Dim sfile
      Dim sFiles
      Dim aLunghette
      Dim sFiletxt
      Dim contatore
      Dim c,alunghetta
      ReDim posizioni(5)
      posizioni(1) = 1 ' classe abs x 1p 35
      posizioni(2) = 2
      posizioni(3) = 3 ' classe abs x 3p unite 15
      posizioni(4) = 4 ' classe 10 x 4p unite
      posizioni(5) = 5 ' classe 10 x 5p unite
      numerocolonnerandomtotale = numerocolonne * multiplocolonne
      valoreInizioelaborazione = 1
      valorefineelaborazione = numerocolonnerandomtotale '...
      ReDim aRuote(0)
      ReDim aRuote(11) ' si considerano due ruote unite
      aRuote(1) = BA_
      aRuote(2) = CA_
      aRuote(3) = FI_
      aRuote(4) = GE_
      aRuote(5) = MI_
      aRuote(6) = NA_
      aRuote(7) = PA_
      aRuote(8) = RO_
      aRuote(9) = TO_
      aRuote(10) = VE_
      aRuote(11) = NZ_
      Call Messaggio("Lettura file di testo")
      ReDim aRighe(0)
      sFiletxt = ".\risultanzadinamica.txt"
      LeggiRigheFileDiTesto sFiletxt,aRighe
      For k = 0 To UBound(aRighe)
         If aRighe(k) <> "" Then
            ReDim aSelNum(0)
            Call SplitByChar("." & aRighe(k),".",aNum)
         End If
      Next
      sFiletxt = ".\risultanzadinamica.txt"
      Dim idestrazione
      For idestrazione = Inizio To Fine
         For i2 = partida To Classefinale Step - puntiriduzioneadognipassaggio
            ReDim aNum(0)
            Call Messaggio("Lettura file di testo")
            ReDim aRighe(0)
            sFiletxt = ".\risultanzadinamica.txt"
            LeggiRigheFileDiTesto sFiletxt,aRighe
            For k = 0 To UBound(aRighe)
               If aRighe(k) <> "" Then
                  ReDim aSelNum(0)
                  Call SplitByChar("." & aRighe(k),".",aNum)
               End If
            Next
            For i = valoreInizioelaborazione To valorefineelaborazione
               Dim NomeRuotaNome
               If RuoteSelezionate > 1 Then
                  NomeRuotaNome = "ruote decise unite"
               Else
                  NomeRuotaNome = SiglaRuota(aRuote(1)) '& SiglaRuota(aRuote(2))
               End If
               Call Messaggio("c" & i2 & " " & StringaNumeri(aRuote) & " s" & nSorte & " v " & counter & " " & Iniziorange & "-" & idestrazione & " rm " & raminimostandard & " es " & Fine - Inizio & " it " & contaiterazioni & " crt " & crt & " csi " & casiesaminati & " cs+ " & casipositivi & " cs- " & casinegativi & " csa " & casiattivi)
               Call GetColonnaCasuale(i2,aRetcol,aNum)
               Call StatisticaFormazioneTurbo(aRetcol,aRuote,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq,Iniziorange,idestrazione,,posizioni)
               Call AvanzamentoElab(1,valorefineelaborazione,i)
               Dim Diff
               Diff = RetRitMax - RetRit1
               If RetRit1 > 0 And RetRitMax > 0 Then
                  Dim datoabasul
                  datoabasul =(RetRit1/RetRitMax) * 100
               End If
               If(RetRit1 >= raminimostandard And RetRit1 <= ramassimotop And RetRitMax <= ramassimotop And Diff = 0 And RetIncrRitMax = 0 And RetFreq >= ultimeestrazionianalizzate) Then 'Diff <= diffdecisa) Then 'And RetIncrRitMax = Incmaxdeciso
                  Dim reportlunghettadoc
                  sfilereportdinamico = ".\risultanzadinamica.txt"
                  Dim sfileclassedinamica
                  sfileclassedinamica = ".\classedinamica" '& i2 & ".txt"
                  reportlunghettadoc = StringaNumeri(aRetcol,,True)
                  If FileEsistente(sfilereportdinamico) Then
                     Call EliminaFile(sfilereportdinamico)
                  End If
                  sfilereportdinamico = ".\risultanzadinamica.txt"
                  If FileEsistente(sfileclassedinamica) Then
                     Call EliminaFile(sfileclassedinamica)
                  End If
                  sfileclassedinamica = ".\classedinamica" & i2 & ".txt"
                  Call ScriviFile(sfilereportdinamico,reportlunghettadoc,False,True)
                  Call ScriviFile(sfileclassedinamica,reportlunghettadoc,False,True)
                  Call CloseFileHandle(sfilereportdinamico)
                  Call CloseFileHandle(sfileclassedinamica)
                  If i2 <= Classefinale Then
                     counter = counter + 1
                     Call Scrivi("Ruota: " & StringaNumeri(aRuote) & " Colonna: " & i & " " & StringaNumeri(aRetcol,,True) & " RA " & RetRit1 & " RS " & RetRitMax & " INCMAX " & RetIncrRitMax & " FQ " & RetFreq & " Diff " & Diff & " classe " & i2 & " sorte " & nSorte & " riga " & counter)
                     Call ScriviFile(filexanalisicollimanze,reportlunghettadoc,False,True)
                     Call CloseFileHandle(filexanalisicollimanze)
                     Dim sortediverifica
                     Dim esito
                     Dim entrocolpi
                     Dim alcolponumero
                     Dim estratti
                     Dim estrazionediuscita
                     Dim vettorediverifica
                     sortediverifica = 2
                     entrocolpi = 296 '270
                     Dim crt ' colpi restanti teorici
                     crt = entrocolpi -(EstrazioneFin - idestrazione)
                     Dim numerodicrtmaxvoluti
                     numerodicrtmaxvoluti = estrazionidaanalizzare - entrocolpi
                     Call SplitByChar(reportlunghettadoc,".",vettorediverifica)
                     Call VerificaEsito(vettorediverifica,aRuote,idestrazione + 1,sortediverifica,entrocolpi,,esito,alcolponumero,estratti,estrazionediuscita)
                     If esito <> "" Then
                        casipositivi = casipositivi + 1
                     Else
                        Call Scrivi("Ruote n. " & StringaNumeri(aRuote) & " Colonna: " & i & " " & StringaNumeri(aRetcol,,True) & " RA " & RetRit1 & " RS " & RetRitMax & " INCMAX " & RetIncrRitMax & " FQ " & RetFreq & " Diff " & Diff & " classe " & i2 & " sorte " & nSorte & " riga " & counter)
                        Scrivi "<font color=red><strong>NO non si è avuto alcun sfaldamento per adesso...</strong></font>"
                        If crt > 0 Then
                           casiattivi = casiattivi + 1
                        Else
                           casinegativi = casinegativi + 1
                        End If
                        Scrivi
                        Call Scrivi("<font color=green><strong>Colpi restanti teorici (CRT) : " & crt & "</strong></font>")
                        Scrivi
                        Call Scrivi("Tempo trascorso: " & TempoTrascorso)
                        Exit For
                     End If
                  End If
                  Call Messaggio("T R O V A T A! alla riga " & i)
                  Exit For
               End If
               If ScriptInterrotto Then Exit For
            Next ' x il numero di ricerche volute x ogni sotto classe esaminata
            If ScriptInterrotto Then Exit For
            If ScriptInterrotto Then Exit For
         Next ' x i2
         sfilereportdinamico = ".\risultanzadinamica.txt"
         If FileEsistente(sfilereportdinamico) Then
            Call EliminaFile(sfilereportdinamico)
         End If
         sfilereportdinamico = ".\risultanzadinamica.txt"
         grupponumericobaseiniziale = Array(0,5,6,12,15,16,19,28,29,33,38,42,43,51,58,60,61,64,65,66,73,74,79,83)
         Call ScriviFile(sfilereportdinamico,StringaNumeri(grupponumericobaseiniziale))
         Call CloseFileHandle(sfilereportdinamico)
         casiesaminati = casiesaminati + 1
         If ScriptInterrotto Or crt >= numerodicrtmaxvoluti Then Exit For
      Next ' x idestrazione
      If ScriptInterrotto Or crt < 0 Then Exit For : Scrivi "<font color=red>necessario aumento dei colpi di ricerca o la rivisitazione della stessa</font>"
   Next ' x iterazioni
End Sub
Function ScegliFiletxt(sDir)
   sDir = "./" '<--- SI PUO' QUESTO PERCORSO DI DEFAULT con quello che si preferisce.
   Dim i
   ReDim aV(0)
   Call ElencoFileInDirectory(sDir,aV,".txt")
   i = ScegliOpzioneMenu(aV,,"Scegli il file txt desiderato")
   ScegliFiletxt = ".\risultanzadinamica.txt"
   Call Scrivi("file" & i)
End Function
Sub PlayWav(sFile,nRepeat,sTesto)
   Dim oVoice,oSpFileStream
   Dim k
   Set oVoice = CreateObject("SAPI.SpVoice")
   Set oSpFileStream = CreateObject("SAPI.SpFileStream")
   For k = 1 To nRepeat
      oSpFileStream.Open sFile
      oVoice.SpeakStream oSpFileStream
      oSpFileStream.Close
   Next
   oVoice.Speak sTesto
End Sub

Solo Un Grafico E Una Domandina Per Adesso...

Premium Member

Premium Member

Advanced Premium Member

Premium Member

Advanced Premium Member

Premium Member

Premium Member

Advanced Premium Member

Premium Member

Advanced Premium Member

Premium Member

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Premium Member

Premium Member

Premium Member

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

Advanced Premium Member