Solo Un Grafico E Una Domandina Per Adesso...

[Cinzia27]

Complimenti a Tom che l' ha scovata e a Nikor dato che è la prima del suo sistema.

Buondì Cinzia, intendi dire qualcosa di simile al gruppo delle 23 decine incmax doc postate sopra che se riunite riformano la 39ina abs?

Non necessariamente potrebbero avere una base comune.
Il sistema di Nikor ne contiene 104 e hanno una base comune che è la 39ina.
Si tratterebbe di scoprire se a prescindere dalla base comune esiste un numero inferiore di decine o di formazioni
minori che soddisfa il requisito abs. E' un lavoro complesso.
Un primo passo seppure piccolo è scartare le formazioni mai uscite per terno.

 

[lotto_tom75]

Complimenti a Tom che l' ha scovata e a Nikor dato che è la prima del suo sistema.

Non necessariamente potrebbero avere una base comune.
Il sistema di Nikor ne contiene 104 e hanno una base comune che è la 39ina.
Si tratterebbe di scoprire se a prescindere dalla base comune esiste un numero inferiore di decine o di formazioni
minori che soddisfa il requisito abs. E' un lavoro complesso.
Un primo passo seppure piccolo è scartare le formazioni mai uscite per terno.

E complimenti a te Cinzia, che hai dato la parte + importante x questo sviluppo ovvero la 39ina abs! Per quanto riguarda la nuova riduzione se ho ben capito vorresti scartare tra le 104 10ine quelle che non hanno dato ancora eventualmente tre punti su tt e nz unite dalla 7440?

 

[Cinzia27]

Ciao, Tom.
Grazie, Tom ma il merito è soprattutto tuo .
La nuova riduzione è un pensiero ancora non del tutto delineato, ma vi farò sapere. Non si tratta delle 104 decine, credo che
non ne troveremo nessuna intatta per terno.

Volevo anche segnalare la cinquina con 39 numeri su ( Roma) .
Inoltre con l' ottimo sistema di Nikor sono uscite 2 quaterne e 19 terni.

 

[Bepy78]

Buona sera ragazzi scusate se mi intrometto. Premetto che qualche anno fa Nikor mi aveva scritto alcuni sistemi e devo dire che è bravissimo. Ora chiedevo ma il sistema da 104 decine ci può cadere dentro anche una cinquina?

 

[lotto_tom75]

Buongiorno raga,


.05.17.18.31.39.52.54.71.77.80 | ruote unite: 1.2.3.4.5.6.7.8.9.10.12 s 4 ra 1021 rs 1021 incmax 453 fq 7

analoga a quella della precedente Q a colpo sul colosseo...

Sperem in un bi$

x Cinzia: controllato... e come avevi correttamente ipotizzato tu non c'è alcuna 10inag3 by 104 con fq0 xT su TTeNZunite dalla 7440. La minima fq relativa si attesta sul valore 240 ca (a memoria...). Non solo dallo stesso tipo di analisi (salvo errori) sembrerebbe che non ci sia neppure una 10inag3 by 104 con fq0 x Q su TTeNZ unite dalla 7440!. La minima fq risontrata in questo caso sarebbe 5.

x Bepy: io lascio la parola a Nikor o a Cinzia



Nessunissima Certezza Solo Pochissima_issima Probability

 

[Bepy78]

Buongiorno raga,


.05.17.18.31.39.52.54.71.77.80 | ruote unite: 1.2.3.4.5.6.7.8.9.10.12 s 4 ra 1021 rs 1021 incmax 453 fq 7

analoga a quella della precedente Q a colpo sul colosseo...

Sperem in un bi$

x Cinzia: controllato... e come avevi correttamente ipotizzato tu non c'è alcuna 10inag3 by 104 con fq0 xT su TTeNZunite dalla 7440. La minima fq relativa si attesta sul valore 240 ca (a memoria...). Non solo dallo stesso tipo di analisi (salvo errori) sembrerebbe che non ci sia neppure una 10inag3 by 104 con fq0 x Q su TTeNZ unite dalla 7440!. La minima fq risontrata in questo caso sarebbe 5.

x Bepy: io lascio la parola a Nikor o a Cinzia



Nessunissima Certezza Solo Pochissima_issima Probability

Grazie Tom allora aspetto gentilmente una risposta da Nikor o Cinzia

 

[fida]

Grazie Tom allora aspetto gentilmente una risposta da Nikor o Cinzia

Ciao Tom..dove vanno giocati questi numeri?

 

[lotto_tom75]

Ciao Tom..dove vanno giocati questi numeri?

TT e NZ dal terno in su.
+ FI-TO se si vuole tentare anche una o + ruote singole...

Good Luck



Nessuna Certezza Solo Poca Poca Probabilità

 

[Nikor]

... Ora chiedevo ma il sistema da 104 decine ci può cadere dentro anche una cinquina?

Un saluto ai partecipanti provo a dare una risposta alla legittima domanda di Bepy78,
Il Sys. Di ( 104 ) decine ha una specifica condizione, ovvero che indovinando 3 numeri sui 39 in pronostico in una delle qualsiasi Cinquine estratte al Lotto darà sempre una garanzia al 100% di vedere incolonnato un minimo di ( 3 Punti su una delle decine ) sui 5 numeri che vengono estratti!

Le cose cambiano se vogliamo trovare nello sviluppo 4 punti oppure un 5 punti.

Essendo l’elaborato costruito per un punteggio del ( 3*3 ) il 4 punti è solo probabile in percentuale ( perché altrimenti si dovrebbe costruire un ( 4*4 ) che significherebbe mettere in campo [ 629 Decine ] dove con queste nuove Decine se indoviniamo 4 numeri sui 39 in pronostico troveremo minimo un 4 punti sicuro al 100% sui 5 numeri estratti!

Fatte queste premesse torniamo alla domanda che ci pone Bepy78 , se è possibile che si incolonni un punteggio in decina uguale alla Cinquina! Le percentuali sono queste:
Per il nostro ( 3*3 di 104 Decine ) se indoviniamo 5 numeri sui 39 in pronostico il 4 Punti è al 76,5%

X il 5 punti la percentuale si abbassa drasticamente fino al 4,36% ( valori in percentuale tagliati per difetto )

Nel caso volessimo invece sapere quante decine ci servirebbero se avessimo la fortuna di indovinare 5 numeri sui 39 = ad ( abs 39 ) in pronostico e trovare un 5 Punti nello sviluppo?
Ne servono [ 4.373 ]!
in effetti se dovessimo controllare e verificare i punteggi potremmo notare che le 104 Decine sul range considerato hanno fatto solo 12 volte 5 punti ( Cinquina ) ! mentre il punteggio del ( 4 Punti Quaterna ) è stato fatto almeno più di una volta dalle decine prese singolarmente… per un totale complessivo di congrui che supera le 1.100 uscite di presenze!
Nikor.

 

[Bepy78]

Un saluto ai partecipanti provo a dare una risposta alla legittima domanda di Bepy78,
Il Sys. Di ( 104 ) decine ha una specifica condizione, ovvero che indovinando 3 numeri sui 39 in pronostico in una delle qualsiasi Cinquine estratte al Lotto darà sempre una garanzia al 100% di vedere incolonnato un minimo di ( 3 Punti su una delle decine ) sui 5 numeri che vengono estratti!

Le cose cambiano se vogliamo trovare nello sviluppo 4 punti oppure un 5 punti.

Essendo l’elaborato costruito per un punteggio del ( 3*3 ) il 4 punti è solo probabile in percentuale ( perché altrimenti si dovrebbe costruire un ( 4*4 ) che significherebbe mettere in campo [ 629 Decine ] dove con queste nuove Decine se indoviniamo 4 numeri sui 39 in pronostico troveremo minimo un 4 punti sicuro al 100% sui 5 numeri estratti!

Fatte queste premesse torniamo alla domanda che ci pone Bepy78 , se è possibile che si incolonni un punteggio in decina uguale alla Cinquina! Le percentuali sono queste:
Per il nostro ( 3*3 di 104 Decine ) se indoviniamo 5 numeri sui 39 in pronostico il 4 Punti è al 76,5%

X il 5 punti la percentuale si abbassa drasticamente fino al 4,36% ( valori in percentuale tagliati per difetto )

Nel caso volessimo invece sapere quante decine ci servirebbero se avessimo la fortuna di indovinare 5 numeri sui 39 = ad ( abs 39 ) in pronostico e trovare un 5 Punti nello sviluppo?
Ne servono [ 4.373 ]!
in effetti se dovessimo controllare e verificare i punteggi potremmo notare che le 104 Decine sul range considerato hanno fatto solo 12 volte 5 punti ( Cinquina ) ! mentre il punteggio del ( 4 Punti Quaterna ) è stato fatto almeno più di una volta dalle decine prese singolarmente… per un totale complessivo di congrui che supera le 1.100 uscite di presenze!
Nikor.

Grazie mille Nikor per l'esauriente risposta. No troppe colonne,sarebbe da investire una barca di soldi, comunque gentilissimo e grazie per il tempo dedicato...un saluto al gruppo

 

[Cinzia27]

Buona sera ragazzi scusate se mi intrometto. Premetto che qualche anno fa Nikor mi aveva scritto alcuni sistemi e devo dire che è bravissimo. Ora chiedevo ma il sistema da 104 decine ci può cadere dentro anche una cinquina?

Ciao, Bepy78.
Potrebbe sporadicamente avvenire.
Se tu imposti a 5 la sorte dello script che ho postato indietro sul sistema di Nikor ottieni questo output, in cui si nota
che l' evento si verificato ma raramente.


1) 12.10.2006) 7659) Tu Nz 05.16.24.28.39.47.65.66.80.90 fr 2 st 6880 rt pr 6880 rt 2397
2) 23.11.2006) 7677) Tu Nz 28.29.31.54.57.61.65.87.88.90 fr 1 st 7676 rt pr 7676 rt 2379
3) 18.09.2007) 7805) Tu Nz 06.12.24.29.37.47.57.74.85.88 fr 2 st 6237 rt pr 6237 rt 2251
4) 22.06.2010) 8237) Tu Nz 02.16.21.35.41.43.61.66.83.87 fr 1 st 8236 rt pr 8236 rt 1819
5) 07.05.2015) 9000) Tu Nz 02.05.06.10.12.16.21.22.29.31 fr 1 st 8999 rt pr 8999 rt 1056
6) 16.04.2016) 9148) Tu Nz 05.15.21.29.40.47.61.71.80.85 fr 2 st 6140 rt pr 3006 rt 908
7) 29.01.2022) 10036) Tu Nz 02.17.22.29.41.42.57.71.83.88 fr 1 st 10035 rt pr 10035 rt 20

Mentre se imposti la sorte la sorte a 4, hai praticamente la quaterna quasi a colpo.

Il sistema di Nikor è a garanzia 3 se escono 3 numeri qualsiasi della 39ina abs.
La quantità di formazioni (104) alla quale è sceso è ottima.
Di più non si può chiedere.

Tutto il lavoro che è stato fatto da noi è per il terno.
Se si cambia sorte, cambia tutto e si ricomincia da capo, la nuova mega formazione potrebbe avere numeri diversi da questa 39ina
e non sarà certamente una 39ina, dato che la quantità di numeri richiesta per ottenere abs per quaterna o cinquina sarà di gran lunga maggiore.

 

[Bepy78]

Ciao, Bepy78.
Potrebbe sporadicamente avvenire.
Se tu imposti a 5 la sorte dello script che ho postato indietro sul sistema di Nikor ottieni questo output, in cui si nota
che l' evento si verificato ma raramente.


1) 12.10.2006) 7659) Tu Nz 05.16.24.28.39.47.65.66.80.90 fr 2 st 6880 rt pr 6880 rt 2397
2) 23.11.2006) 7677) Tu Nz 28.29.31.54.57.61.65.87.88.90 fr 1 st 7676 rt pr 7676 rt 2379
3) 18.09.2007) 7805) Tu Nz 06.12.24.29.37.47.57.74.85.88 fr 2 st 6237 rt pr 6237 rt 2251
4) 22.06.2010) 8237) Tu Nz 02.16.21.35.41.43.61.66.83.87 fr 1 st 8236 rt pr 8236 rt 1819
5) 07.05.2015) 9000) Tu Nz 02.05.06.10.12.16.21.22.29.31 fr 1 st 8999 rt pr 8999 rt 1056
6) 16.04.2016) 9148) Tu Nz 05.15.21.29.40.47.61.71.80.85 fr 2 st 6140 rt pr 3006 rt 908
7) 29.01.2022) 10036) Tu Nz 02.17.22.29.41.42.57.71.83.88 fr 1 st 10035 rt pr 10035 rt 20

Mentre se imposti la sorte la sorte a 4, hai praticamente la quaterna quasi a colpo.

Il sistema di Nikor è a garanzia 3 se escono 3 numeri qualsiasi della 39ina abs.
La quantità di formazioni (104) alla quale è sceso è ottima.
Di più non si può chiedere.

Tutto il lavoro che è stato fatto da noi è per il terno.
Se si cambia sorte, cambia tutto e si ricomincia da capo, la nuova mega formazione potrebbe avere numeri diversi da questa 39ina
e non sarà certamente una 39ina, dato che la quantità di numeri richiesta per ottenere abs per quaterna o cinquina sarà di gran lunga maggiore.

Ciao Cinzia hai ragione concordo con te, sai poi con gli script e l'enorme lavoro che state facendo non ne capisco nulla,non sono molto bravo con il computer come voi, siete bravissimi e mi piace seguirvi come maestri. Comunque grazie mille per le considerazioni un saluto a presto

 

[Bepy78]

Buongiorno Cinzia, Tom e Nikor...
premetto che sono in casa col Covid, quindi ho un po più di tempo,però come dicevo ieri, io di computer non ne capisco un tubo...script..abs...Incmax...per me è fantascienza credetemi e col tempo mi sono servito solo di carta e penna, ma detto questo veniamo al dunque...se ho capito bene nella discussione si parla di 39 numeri su tutte che Tom cerca con un programma e Cinzia e Nikor con sistemi e altri programmi,perfezionano il tutto giusto? Se non sono di troppo,vi svelerei io 39 numeri su tutte (in realtà 40,ma bastano 39) e crededemi sono tanta roba, è da tempo che ce l'ho,ma come diceva Nikor ieri ci vogliono 4.373 decine per una cinquina. Se volete mi introduco nel vostro studio???

 

[lotto_tom75]

Un saluto a tutti

Visto l'interesse per le abs e la richiesta di Bepy seguita dalla dettagliatissima risposta di Nikor e la successiva implementazione descrittiva di Cinzia oggi per il mio compleanno vi condivido questo mio scriptino che mi sono costruito tempo fa proprio per cercare abs e non solo in modo random progressivo...

Include anche la 80 abs che risponde in parte alla questione di Cinzia su quanto debba essere ampia una lunghetta per essere abs x C su TT . X Q mi pare basti una classe 63 ma la dovrei ritrovare...

Ovviamente è nato per essere utilizzato a partire dai 90 o da qualsiasi altro gruppo numerico base si desideri e non solo per rilevare condizioni abs di ra=rs=incmax=0 per la sorte di ricerca su una o più ruote unite, ma anche per qualsiasi altro tipo di filtro (ad es. commentato c'è quello di abasul).

Lo script, configurato di base per l'analisi su TTeNZ unite, implementa anche una sezione verifica esiti e un alert vocale (attivabili entrambi da codice) che può essere di simpatica compagnia durante le proprie ricerche e riduzioni ed essendo io un fan sfegatato della Marvel, di Iron Man e di simili amenità l'ho chiamato ironbot progressivo. Progressivo per la sua elaborazione riduzionale di una stessa formazione di partenza via via ridotta in modo random...

Buona caccia alle abs o semi abs + corte possibili e auguri di pronta guarigione al fedelissimo e attento Beby che sono felicissimo di avere "a bordo"

Option Explicit
Sub Main
   'descrizione script + lunga
   'iron bot di tipo progressivo per il rilevamento di classi con soddisfatto qualsiasi determinato filtro voluto (es. condizione abs)
   'nessuna certezza per l'esito della formazione in output eventualmente rilevata solo poca probabilità
   'configurato di base con gruppo nlt abs 80 x CsuTTdal 1871
   'listato e ricerca by lotto_tom75
   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
   Dim diffdecisa
   Dim quantestrazionidallafine
   Dim filexanalisicollimanze
   Dim Iniziorange
   Dim counter
   Dim casiesaminati
   Dim casipositivi
   Dim casinegativi
   Dim casiattivi
   Dim estrazionidaanalizzare
   Dim quanteiterazioni
   Dim contaiterazioni
   Dim filenumericoiniziale
   'Dim filenumericoiniziale
   Dim aRuoteTmp
   Dim sfile
   Dim sFiles
   Dim aLunghette
   Dim sFiletxt
   Dim contatore
   Dim c,alunghetta
   Dim partida
   Dim Classefinale
   Dim idestrazione
   Dim sortediverifica
   Dim esito
   Dim entrocolpi
   Dim alcolponumero
   Dim estratti
   Dim estrazionediuscita
   Dim vettorediverifica
   'gruppo Doc 80 abs x C su TT
   grupponumericobaseiniziale = Array(0,01,02,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,31,32,33,34,36,37,38,39,40,41,42,44,45,46,47,48,49,50,51,52,53,54,55,57,58,59,61,62,63,65,66,67,68,69,70,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90)
   filexanalisicollimanze = ".\filexanalisicollimanze.txt"
   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
   counter = 0
   casiesaminati = 0
   casipositivi = 0
   casinegativi = 0
   casiattivi = 0
   estrazionidaanalizzare = EstrazioneFin '0  ' 315 '220 '290 '360
   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))
   'diffdecisa = CInt(InputBox("Desideri una DIFF particolare <=? Se si indicala adesso",,0))
   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
   'cancello e ricreo il file x analisi collimanze
   If FileEsistente(filexanalisicollimanze) Then
      Call EliminaFile(filexanalisicollimanze)
   End If
   filexanalisicollimanze = ".\filexanalisicollimanze.txt"
   ' fine inizializzazione file collimanze
   For contaiterazioni = 1 To quanteiterazioni
      Dim sfilereportdinamico,Classedinamicaprogressiva
      sfilereportdinamico = ".\risultanzadinamica.txt"

      filenumericoiniziale = ".\risultanzadinamica.txt"
      'cancello e ricreo il file numerico iniziale
      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)

      numerocolonnerandomtotale = numerocolonne * multiplocolonne
      valoreInizioelaborazione = 1
      valorefineelaborazione = numerocolonnerandomtotale '...

      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_
      'aRuote(1) = NZ_
      'aRuote(1) = aRuote
      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),",",aSelNum)
            Call SplitByChar("." & aRighe(k),".",aNum)
         End If
      Next

      sFiletxt = ".\risultanzadinamica.txt"

      partida = Classe - puntidipartenzadasottrarre
      'Classefinale = 36
      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 "Analizzatore lunghette desiderate di gruppo numerico desiderato per sorte desiderata in quantità di colonne random desiderate (max 100 mln)"
      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 elaborate: " & numerocolonnerandomtotale,0,0,1,4,5
      Scrivi
      'Scrivi ColoreTesto("0")
      Scrivi "Totale estrazioni elaborate: " & ff,0,0,1,4,5
      Scrivi
      Scrivi
      Scrivi "Estrazione inizio... " & DataEstrazione(Inizio) & "  Estrazione fine... " & DataEstrazione(EstrazioneFin) '& " estrazione intermedia di analisi " & idestrazione
      Scrivi
      'Scrivi "Ruota Analizzata... " & NomeRuota(ruota),0,0,0,4,5
      'Dim r
      'Scrivi "Ruota/e Analizzata/e... " & SiglaRuota(aRuoteSel),0,0,0,4,5
      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("Elaborazione con archivio lotto aggiornato al : " & giorno(EstrazioneFin) & "-" & Mese(EstrazioneFin) & "-" & Anno(EstrazioneFin))
      Call Scrivi

      For idestrazione = Inizio To Fine

         For i2 = partida To Classefinale Step - puntiriduzioneadognipassaggio
            'dopo la lettura del file txt devo svuotare anche il relativo vettore anum per caricarlo con i nuovi valori...
            ReDim aNum(0)
            Call Messaggio("Lettura file di testo")
            ReDim aRighe(0)
            'Call LeggiRigheFileDiTesto(sFile,aRighe)
            sFiletxt = ".\risultanzadinamica.txt"
            LeggiRigheFileDiTesto sFiletxt,aRighe
            For k = 0 To UBound(aRighe)
               If aRighe(k) <> "" Then
                  ReDim aSelNum(0)
                  'Call SplitByChar("," & aRighe(k),",",aSelNum)
                  Call SplitByChar("." & aRighe(k),".",aNum)
               End If
            Next
            'fine svuotamente vettore aNum
            For i = valoreInizioelaborazione To valorefineelaborazione
               'For k = 1 To RuoteSelezionate
               Dim NomeRuotaNome
               If RuoteSelezionate > 1 Then
                  NomeRuotaNome = "ruote decise unite"
               Else
                  NomeRuotaNome = SiglaRuota(aRuote(1)) '& SiglaRuota(aRuote(2))
               End If

               Call Messaggio("c" & i2 & " nr " & 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)
               Call AvanzamentoElab(1,valorefineelaborazione,i)
               'Call Messaggio("                         Colonna " & i)
               Dim Diff
               Diff = RetRitMax - RetRit1
               'FILTRO ABASUL
               If RetRit1 > 0 And RetRitMax > 0 Then
                  Dim datoabasul
                  datoabasul =(RetRit1/RetRitMax) * 100
               End If
               'fine filtro abasul
               'If(RetRit1 >= raminimostandard And RetRit1 <= ramassimotop And RetRitMax <= ramassimotop And datoabasul >= 45 And datoabasul <= 75) Then 'Diff <= diffdecisa) Then 'And RetIncrRitMax = Incmaxdeciso
               'If(RetRit1 >= raminimostandard And RetRit1 <= ramassimotop And RetRitMax <= ramassimotop And Diff = 0 And RetIncrRitMax = 0) Then 'Diff <= diffdecisa) Then 'And RetIncrRitMax = Incmaxdeciso
               If(RetRit1 >= raminimostandard And RetRit1 <= ramassimotop And RetRitMax <= ramassimotop And Diff = 0 And RetIncrRitMax = 0) Then 'Diff <= diffdecisa) Then 'And RetIncrRitMax = Incmaxdeciso
                  'Scrivi
                  'Call Scrivi("PROVA OUTPUT SECONDO FILTRO ABASUL con sole formazioni con ra distante dal rispettivo rs x A in terzina tra il 45% e 75%")
                  'Call Scrivi("<font color=green>OK la formazione ha passato il filtro abasul per A in 3ina con valore di filtro: </font>" & datoabasul)
                  Call Scrivi("Ruota n. " & StringaNumeri(aRuote) & " Colonna: " & i & " " & StringaNumeri(aRetcol,,True) & " RA " & RetRit1 & " RS " & RetRitMax & " INCMAX " & RetIncrRitMax & " FQ " & RetFreq & " Diff " & Diff & " classe " & i2 & " sorte " & nSorte & " riga " & counter)
                  '
                  counter = counter + 1
                  Dim reportlunghettadoc
                  '
                  'Dim sfilereportdinamico,Classedinamicaprogressiva
                  sfilereportdinamico = ".\risultanzadinamica.txt"
                  Dim sfileclassedinamica
                  sfileclassedinamica = ".\classedinamica" '& i2 & ".txt"
                  reportlunghettadoc = StringaNumeri(aRetcol,,True)
                  'Classedinamicaprogressiva = reportlunghettadoc
                  'scrivi file
                  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)
                  'se la classe corrisponde all'ultima della ricerca scrivi la lunghetta dinamica relativa nel file x analisi collimanze...
                  'Dim filexanalisicollimanze
                  'filexanalisicollimanze = ".\filexanalisicollimanze.txt"
                  If i2 = Classefinale Or i2 = Classefinale + 1 Or i2 = Classefinale + 2 Or i2 = Classefinale + 3 Or i2 = Classefinale + 4 Or i2 = Classefinale + 5 Then
                     Call ScriviFile(filexanalisicollimanze,reportlunghettadoc,False,True)
                     Call CloseFileHandle(filexanalisicollimanze)
                     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
                        'Scrivi "<font color=green><strong>OK</strong></font>"
                        'Scrivi "Estratti " & estratti & " all'estrazione numero " & estrazionediuscita & " e al colpo numero " & alcolponumero & " sul numero totale di " & entrocolpi & " colpi"
                        ''Call PlayWav("C:\silenzio.wav",1,"ok")
                        casipositivi = casipositivi + 1
                     Else
                        Call Scrivi("Ruota 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>"
                        'Call PlayWav("C:\silenzio.wav",1,"no") ' sulla ruota di " & NomeRuota(aRuote(1)))
                        If crt > 0 Then
                           casiattivi = casiattivi + 1
                        Else
                           casinegativi = casinegativi + 1
                        End If
                        'Dim crt ' colpi restanti teorici
                        'crt = entrocolpi - (EstrazioneFin - idestrazione)
                        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
                  'reportlunghettadoc = "Ruota: " & SiglaRuota(aRuote(1)) & " Colonna: " & i & " " & StringaNumeri(aRetcol,,True) & " RA " & RetRit1 & " RS " & RetRitMax & " INCMAX " & RetIncrRitMax & " FQ " & RetFreq & " Diff " & Diff & " classe " & i2 & " sorte " & nSorte & " riga " & counter
                  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
            'counter=0
            If ScriptInterrotto Then Exit For
            'dopo la lettura del file txt devo svuotare anche il relativo vettore anum per caricarlo con i nuovi valori...
            'ReDim aNum(0)
            'fine svuotamente vettore aNum
            If ScriptInterrotto Then Exit For
         Next ' x i2
         'dopo ogni estrazione esaminata è necessario eliminare e ricreare il file risultanzadinamica e ripopolarlo con la
         'lunghetta absolute o gruppo numerico desiderati....
         sfilereportdinamico = ".\risultanzadinamica.txt"
         If FileEsistente(sfilereportdinamico) Then
            Call EliminaFile(sfilereportdinamico)
         End If
         sfilereportdinamico = ".\risultanzadinamica.txt"
         'gruppo Doc 80 abs x C su TT
         grupponumericobaseiniziale = Array(0,01,02,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,31,32,33,34,36,37,38,39,40,41,42,44,45,46,47,48,49,50,51,52,53,54,55,57,58,59,61,62,63,65,66,67,68,69,70,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90)
         Call ScriviFile(sfilereportdinamico,StringaNumeri(grupponumericobaseiniziale))
         Call CloseFileHandle(sfilereportdinamico)
         'fine rigenerazione fil txt risultanzadinamica di base
         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 = "./"
   Dim i
   ReDim aV(0)
   Call ElencoFileInDirectory(sDir,aV,".txt")
   i = ScegliOpzioneMenu(aV,,"Scegli il file txt desiderato")
   'For i = 1 To UBound (aV)
   'ScegliFiletxt = sDir & aV(i) & ".txt"
   ScegliFiletxt = ".\risultanzadinamica.txt"
   Call Scrivi("file" & i)
   'Next
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

 

[Bepy78]

Tantissimi auguri di buon compleanno Tom e grazie mille per le belle parole. Però come ti dicevo io non sò nulla dello script e di come si legge... magari ci provate voi 3 a sviluppare il tutto ed io prendo solo gli appunti come gli alunni.
I numeri sono questi-----1-2-3-4-68-65-5-6-7-8-9-10-11-12-13-14-15-16-17-70-72-18-19-20-21-22-23-76-78-24-25-26-27-28-29-30-73-75-31-32-33-63-61-34-35-36-37-38-39-40-------
Questi sono i numeri e fatene tesoro

 

[Nikor]

Mi associo all'ugurio di pronta guarigione per Bepy78 .

Un augurio anche a Tom:

Nikor.

 

[Serse]

Mi accodo buon compleanno Lotto_tom75

 

[lotto_tom75]

Tantissimi auguri di buon compleanno Tom e grazie mille per le belle parole. Però come ti dicevo io non sò nulla dello script e di come si legge... magari ci provate voi 3 a sviluppare il tutto ed io prendo solo gli appunti come gli alunni.
I numeri sono questi-----1-2-3-4-68-65-5-6-7-8-9-10-11-12-13-14-15-16-17-70-72-18-19-20-21-22-23-76-78-24-25-26-27-28-29-30-73-75-31-32-33-63-61-34-35-36-37-38-39-40-------
Questi sono i numeri e fatene tesoro

Mi associo all'ugurio di pronta guarigione per Bepy78 .

Un augurio anche a Tom:
Vedi l'allegato 2231550
Nikor.

Mi accodo buon compleanno Lotto_tom75

Grazie friends!

 

[Bepy78]

Grazie mille Nikor se hai notato ho postato i numeri...ci pensate voi a formulare il tutto?

 

[Cinzia27]

BUON COMPLEANNO, TOM