EstraCode Studio

[InRicordo]

Edoardo_95, è semplicemente fantastico il tuo programma! Allego "a beneficio di tutti" uno script fatto in "quattro mani" ciclometrico che cerca due ambi con uguale distanza. A parte la richiesta fatta sopra per quanto riguarda le intelligenze artificiali... quando abbiamo il risultato, esiste un modo per averlo a "tutto schermo"? O con una finestra separata in modo tale da avere tutte le informazioni come diciamo dalle mie parti "belle e stampate in faccia"?

Script usato :

Sub Main()
' 1. Scelta dell'arco temporale (200 estrazioni predefinite)
Dim fine = EstrazioniArchivio()
Dim inizio = Math.Max(1, fine - 199)
If Not ScegliRange(inizio, fine) Then Return

' 2. Scelta della distanza specifica tramite riquadro opzioni
' Creiamo un elenco di opzioni da 0 (Tutte) a 45
Dim opzioniDistanza(45) As String
opzioniDistanza(0) = "Tutte le distanze"
For d = 1 To 45
opzioniDistanza(d) = "Distanza " & d
Next

' Mostra il riquadro interattivo all'utente per scegliere la distanza
Dim indiceScelto = ScegliOpzione(opzioniDistanza, "Seleziona la distanza ciclometrica da cercare:")
If indiceScelto < 0 Then Return ' Gestione dell'Annulla

Dim distanzaCercata = indiceScelto

' 3. Intestazione del report statistico
Scrivi("<b>ANALISI AVANZATA STRUTTURE CICLOMETRICHE ISOTOPE</b>", True)
Scrivi("Periodo di ricerca: Da concorso " & inizio & " a " & fine)
If distanzaCercata = 0 Then
Scrivi("Ricerca impostata su: <b>Tutte le distanze ciclometriche</b>")
Else
Scrivi("Ricerca impostata su: <b>Solo Distanza " & distanzaCercata & "</b>")
End If
Scrivi("--------------------------------------------------------------------------------")

Dim contatoreStrutture = 0

' 4. Ciclo principale sulle estrazioni dello storico
For concorso = inizio To fine

' Ciclo per la prima ruota (Bari=1 fino a Nazionale=11)
For r1 = 1 To 11
' Ciclo per la seconda ruota
For r2 = r1 + 1 To 11

' Ciclo sulle posizioni isotope (posA e posB)
For posA = 1 To 5
For posB = posA + 1 To 5

' Lettura dei 4 estratti coinvolti
Dim n1_r1 = Estratto(concorso, r1, posA)
Dim n2_r1 = Estratto(concorso, r1, posB)
Dim n1_r2 = Estratto(concorso, r2, posA)
Dim n2_r2 = Estratto(concorso, r2, posB)

' Controllo validità dati storici
If n1_r1 > 0 And n1_r2 > 0 Then

' Calcolo distanze orizzontali (sulle singole ruote)
Dim dist_orizz_r1 = Distanza(n1_r1, n2_r1)
Dim dist_orizz_r2 = Distanza(n1_r2, n2_r2)

' Verifica uguaglianza orizzontale e filtro della distanza scelta
If dist_orizz_r1 = dist_orizz_r2 And (distanzaCercata = 0 Or dist_orizz_r1 = distanzaCercata) Then

' Calcolo delle distanze verticali
Dim dist_vert_1 = Distanza(n1_r1, n1_r2)
Dim dist_vert_2 = Distanza(n2_r1, n2_r2)

' INSERIMENTO: Calcolo delle distanze diagonali (incrociate)
Dim dist_diag_1 = Distanza(n1_r1, n2_r2)
Dim dist_diag_2 = Distanza(n2_r1, n1_r2)

contatoreStrutture = contatoreStrutture + 1

' Costruzione dei testi informativi per l'output
Dim infoEs = "Concorso " & concorso & " del " & DataEstrazione(concorso)
Dim infoRuote = NomeRuota(r1) & " e " & NomeRuota(r2)
Dim infoPos = "(Posizioni " & posA & "°-" & posB & "°)"

Scrivi(infoEs & " - Ruote: " & infoRuote & " " & infoPos)
Scrivi(" -> Ambo " & NomeRuota(r1) & ": " & n1_r1 & "-" & n2_r1 & " (Dist. Orizzontale: " & dist_orizz_r1 & ")")
Scrivi(" -> Ambo " & NomeRuota(r2) & ": " & n1_r2 & "-" & n2_r2 & " (Dist. Orizzontale: " & dist_orizz_r2 & ")")
Scrivi(" -> <i>Distanze Verticali calcolate: " & dist_vert_1 & " e " & dist_vert_2 & "</i>")
Scrivi(" -> <i>Distanze Diagonali calcolate: " & dist_diag_1 & " e " & dist_diag_2 & "</i>")

' Se anche le distanze verticali sono simmetriche, calcoliamo la chiusura geometrica
If dist_vert_1 = dist_vert_2 Then
Scrivi(" <b>STRUTTURA AD ARMONIA PERFETTA (QUADRATO ISO-DISTANTE)</b>", True)

' INSERIMENTO: Calcolo del quarto elemento di chiusura (Somma diagonale comune)
Dim sommaDiagonale = Fuori90(n1_r1 + n2_r2)
Dim numeroChiusura = Fuori90(sommaDiagonale - n2_r1)
If numeroChiusura = 0 Then numeroChiusura = 90

Scrivi(" -> <b>Numero di Chiusura consigliato come pronostico: " & numeroChiusura & "</b>")
End If

Scrivi("--------------------------------------------------------------------------------")
End If

End If

Next
Next

Next
Next

Next

Scrivi("<b>Elaborazione terminata.</b> Trovate " & contatoreStrutture & " configurazioni nel periodo richiesto.", True)
End Sub

Ottimo lavoro tanto che "me ne sono impossessato" e ho voluto vedere che risultati dava (nel suo non ci sono, ma io ho considerato anche i laterali. La ricerca utilizza le estrazioni suggerite dal programma e la distanza 33. La ricerca viene fatta sulle 9 estrazioni successive. I risultati non sono male:


I laterali usciti sono davvero molti

Esempio:




Considerando tutte le estrazioni:


Penso che venderò il suo programma spacciandolo per mio.
Scusi l'intromissione.

 

[Edoardo_95]

Sto lavorando a pieno regime per pubblicare il nuovo aggiornamento entro questa sera. Da domani abbandonerò temporaneamente il progetto causa lavoro per alcuni giorni. Dopo alcune imprecazioni contro LottoPython (credimi è stato davvero difficile ahahahah) sono riuscito ad implementare anche la richiesta dell'utilizzo di modelli locali però qui devo necessariamente aggiungere una premessa fondamentale:

NON MI ASSUMO ALCUNA RESPONSABILITA' DI CIO' CHE NE FARETE.
Utilizzare modelli locali (hardware permettendo) consente anche di eseguire modelli ABLITERATED ed HERETIC, ovvero modelli linguistici open-weight modificati attraverso interventi matematici sui loro pesi interni, con l'obiettivo di ridurre drasticamente o eliminare i meccanismi di rifiuto e le restrizioni di sicurezza presenti nei modelli originali.

In parole semplici, questi modelli sono progettati per rispondere anche a richieste che le intelligenze artificiali tradizionali tenderebbero a rifiutare. Questo, però, non garantisce che siano completamente privi di limitazioni o filtri.

Traduzione per i neofiti: È un'intelligenza artificiale senza freni. In parole povere, è un modello che è stato modificato per ridurre o eliminare gran parte delle restrizioni e dei meccanismi di rifiuto normalmente presenti nelle IA tradizionali.

Questo significa che, a differenza dei modelli convenzionali, potrebbe rispondere anche a richieste che normalmente verrebbero rifiutate perché considerate pericolose, inappropriate, illegali o contrarie alle politiche di sicurezza.

E qui arriva la parte importante.

Non confondete l'assenza di censura con una maggiore intelligenza, affidabilità o accuratezza. Un modello senza filtri non è necessariamente un modello migliore: è semplicemente un modello con meno limitazioni su ciò che è disposto a generare.

Ho deciso di implementare questa possibilità perché credo nella libertà di scelta, nella sperimentazione e nel diritto di utilizzare strumenti locali senza dipendere necessariamente da servizi esterni o dalle restrizioni imposte dai rispettivi fornitori.

Ma libertà significa anche responsabilità.

Quello che farete con questi modelli, le informazioni che genererete e l'eventuale utilizzo dei loro output saranno esclusivamente sotto la vostra responsabilità.

Io vi fornisco lo strumento, non un lasciapassare per fare qualsiasi cosa vi passi per la testa.

E soprattutto ricordate: se un'intelligenza artificiale vi risponde senza esitazioni, non significa che abbia ragione. Significa soltanto che ha deciso di rispondervi.

Detto questo, preparate l'hardware, perché con il prossimo aggiornamento le possibilità di sperimentazione aumenteranno parecchio.

​

​

 

[Edoardo_95]

EstraCode Studio 2.17.2 Beta​

2.9.1 Beta — Salvataggio degli script personali

• Corretto il blocco che impediva il salvataggio nella cartella personale conservata dopo l’aggiornamento della versione installata.
• Uniformata la gestione dei permessi per creazione, sovrascrittura e Salva con nome.
• Mantenuta la separazione tra il profilo della versione installata e quello della copia di sviluppo.
• Verificati salvataggio di file nuovi ed esistenti, caratteri accentati, codifica e indicazione delle modifiche salvate nell’editor.
• Nessuna modifica ai calcoli statistici.

2.9.2 Beta — Guida contestuale con F1

• Corretta l’apertura della guida relativa alla funzione o procedura riconosciuta nell’editor.
• Gestito il nome selezionato nei suggerimenti anche quando ancora parzialmente digitato.
• Migliorato il riconoscimento della chiamata durante la scrittura dei parametri, comprese chiamate annidate e istruzioni su più righe.
• Corretto il comando F1 della finestra principale, che poteva intercettare il tasto e aprire il benvenuto.
• Conservata l’apertura della pagina iniziale tramite Aiuto → Guida.
• Aggiornato l’installer protetto, mantenendo l’identità dell’applicazione e la conservazione dei dati personali.

2.11.0 Beta — Cruscotto statistico senza scrivere codice

• Introdotta una finestra dedicata alle analisi statistiche, con interfaccia Krypton e supporto ai quattro temi.
• Aggiunte tre modalità:
  • classifica dei singoli numeri per estratto;
  • statistica di una formazione unica;
  • confronto della stessa formazione fra più ruote.
• Selezione dei numeri attraverso la griglia, comprese preselezioni personali e casuali.
• Scelta delle ruote, della sorte e dell’intervallo mediante progressivi o periodi rapidi.
• Calcolo di frequenza, ritardo, ritardo massimo e incremento con lo stesso motore Turbo utilizzato dagli script.
• Gestione esplicita della disponibilità storica delle ruote.
• Tabella ordinabile cliccando sulle intestazioni e riepilogo della riga selezionata.
• Grafici a colonne, barre e linea, con scelta del valore statistico da rappresentare.
• Generazione di uno script commentato, con tabella e grafico, apribile nell’editor senza avvio o salvataggio automatici.
• Esportazione HTML autonoma con parametri, grafico e impronta dell’archivio; esportazione dei dati per fogli di calcolo.
• Elaborazione asincrona con avanzamento e interruzione.
• Indicazione dei risultati non più aggiornati dopo una modifica dei parametri o dell’archivio.
• Guida dedicata, ricercabile, stampabile e raggiungibile con F1.

2.12.0 Beta — Verifica storica dei metodi e menu riorganizzato

• Introdotta la verifica storica dei metodi, con concorsi di origine, sorte, ruote e numero di colpi configurabili.
• Verifica degli esiti a partire dal concorso successivo a quello di rilevamento.
• Aggiunti tre metodi pronti:
  • spia con formazione fissa;
  • somma di due posizioni con diametrale;
  • numeri più frequenti su una profondità storica scelta.
• Possibilità di scrivere una routine personale VB.NET Calcola, salvata in un file .ecmetodo.
• Disponibile ContestoMetodo per consultare estratti, presenze, disponibilità, frequenze, ritardi, classifiche e fuori 90, limitando i dati al concorso corrente.
• Scelta fra casi indipendenti oppure esclusione delle nuove formazioni fino alla conclusione del caso in corso.
• Indicazione delle sovrapposizioni escluse.
• Distinzione tra casi positivi, negativi, ancora aperti e con dati incompleti.
• Percentuale calcolata sui soli casi positivi e negativi, con copertura storica esplicita.
• Tabella ordinabile, dettagli del primo esito e grafico dei colpi.
• Report HTML autonomo con parametri, casi, codice del metodo e impronta dell’archivio.
• Esecuzione in un processo separato, interrompibile anche se una routine personale entra in un ciclo infinito.
• Analisi su una copia verificata dell’archivio; nessuna pubblicazione di rapporti parziali dopo l’interruzione.
• Riorganizzato il menu principale: nuova sezione Analisi e raggruppamenti per debug, tempi, recupero, trasferimenti e disposizione dell’ambiente.
• Aggiunta la relativa documentazione.

2.12.1 Beta — Correzione dei selettori

• Risolto il blocco delle tendine Tipo e Sorte nel cruscotto dopo il caricamento dell’archivio o il termine del calcolo.
• Applicata la stessa correzione ai selettori della verifica storica dei metodi.
• Conservata la regola della classifica dei singoli numeri, che utilizza la sorte Estratto.
• Formazione unica e confronto fra ruote continuano a consentire le altre sorti.
• Calcoli statistici invariati.

2.13.0 Beta — Cruscotto ampliato

• Aggiunto l’inserimento manuale dei numeri, sincronizzato con la griglia.
• Accettati spazio, punto, punto e virgola, trattino e virgola come separatori, anche combinati.
• Eliminazione dei duplicati e controllo dei valori compresi tra 1 e 90. Il trattino separa numeri, senza creare intervalli.
• Aggiunta la scelta tra ruote unite e separate, sia nella classifica dei numeri sia nella formazione unica.
• Conservato il confronto fra ruote, senza costruire combinazioni mescolando estratti di ruote differenti.
• Ampliate le informazioni della tabella:
  • ruote e sorte;
  • esiti per ruota e combinazioni uscite;
  • frequenza percentuale;
  • indice frequenza × ritardo;
  • media delle attese concluse;
  • frequenza teorica, scarto e scarto standardizzato;
  • prima e ultima uscita;
  • estremi del periodo e concorsi esaminati;
  • differenza tra ritardo massimo e attuale.
• Distinti chiaramente concorsi favorevoli, esiti sulle singole ruote e combinazioni effettivamente uscite.
• Aggiunto lo storico della riga selezionata con concorso, data, ruota, numeri presenti, combinazioni e ritardo precedente all’esito.
• Introdotte sette analisi grafiche:
  • frequenze cumulative osservate e teoriche;
  • andamento del ritardo;
  • distribuzione delle attese concluse;
  • frequenze mensili;
  • frequenze per cicli configurabili;
  • media progressiva dei ritardi conclusi;
  • scarto cumulativo e standardizzato.
• Aggiunti otto periodi storici rapidi: archivio completo, dieci ruote, estrazioni continue, seconda estrazione settimanale, introduzione della Nazionale, terza estrazione, Venus e quarta estrazione settimanale.
• Periodi risolti attraverso le date effettive dell’archivio, senza progressivi fissi.
• Aggiornati script generati ed esportazioni con le nuove informazioni.
• Ridotta la memoria mantenendo il dettaglio cronologico soltanto della riga selezionata.
• Migliorato il layout per 1280×768 e ampliata la guida con formule, convenzioni ed esempi.

2.14.0 Beta — Output indipendente e schermo intero

• Aggiunto Apri output separato, disponibile anche mentre si consulta il codice di uno script già eseguito.
• Introdotta una finestra autonoma per ogni risultato, identificata dal nome e dallo stato dello script.
• Possibilità di massimizzare il risultato, spostarlo su un altro monitor e consultarlo mentre l’IDE è minimizzato.
• F11 attiva lo schermo intero; Esc ripristina la finestra precedente.
• Ripristino di posizione, dimensioni e stato della finestra.
• Apertura del risultato senza rieseguire lo script, mantenendo immagini, grafici, risorse e tabelle interattive.
• Aggiornamento automatico della sola finestra associata quando si riesegue lo script.
• Risultato precedente disponibile durante il nuovo calcolo.
• Cambio dello script attivo senza sostituire i risultati già aperti in altre finestre.
• Sincronizzazione del nome e dell’avviso relativo alle modifiche successive all’elaborazione.
• Comandi per HTML autonomo, pacchetto ZIP, stampa, PDF e ritorno allo script.
• Corretta l’esportazione dei report riaperti con nomi diversi da quello standard, evitando di includere altri report della stessa cartella.
• Chiusura coordinata con lo script, Chiudi tutti e uscita dall’applicazione, rispettando le richieste di salvataggio.
• Gestita la chiusura durante l’inizializzazione di WebView2.
• Guida aggiornata per finestre separate, più monitor ed esportazioni.

2.15.0 Beta — Grafici interattivi e dimensione del testo

• Aggiunta Impostazioni → Testo dei pannelli, con dimensioni indipendenti da 8 a 24 punti per:
  
  • Esplora e Funzioni;
  • elenco Problemi.
• Anteprima, ripristino separato, annullamento e salvataggio persistente delle preferenze.
• Adeguamento delle righe e delle colonne alla dimensione scelta, mantenendo indipendente il carattere dell’editor.
• Integrato Apache ECharts 6.1.0, con risorse locali per la consultazione offline.
• Motore condiviso fra output degli script, finestre separate, cruscotto e verifica storica dei metodi.
• Aggiunti zoom con rotella, pulsanti, cursori e selezione rettangolare.
• Spostamento dell’intervallo, ritorno alla vista precedente e ripristino.
• Selezione dei limiti numerici o delle date nei grafici collegati ai progressivi dell’archivio.
• Legenda cliccabile per mostrare o nascondere serie e visualizzazione dei valori al passaggio del mouse.
• Esportazione PNG della vista corrente, HTML autonomo e stampa/PDF statici.
• Conservazione di tutti i punti originali, senza campionamento.
• Riuso delle istanze grafiche e ridimensionamento automatico, riducendo ricreazioni e risorse duplicate.
• Conservate le firme delle funzioni grafiche esistenti.
• Resi interattivi i principali grafici a linee, spline, gradini, colonne, barre, aree, punti e relative varianti supportate.
• Supportate torta e ciambella con una serie e valori non negativi.
• Conservato il rendering statico per i tipi speciali non convertibili senza modificarne il significato.
• Preservata la riga zero delle matrici di DisegnaGrafico come riga di dati effettivi.
• Disponibile l’immagine originale per mantenere la rappresentazione PNG e le precedenti impostazioni 3D.
• Verificate punto per punto le sette analisi storiche del cruscotto.
• Migliorate date, progressivi, etichette e associazione tra tabella e grafico.
• Valori non definiti mantenuti distinti dallo zero.
• Separati gli assi dello scarto osservato/teorico e dello scarto standardizzato.
• Sincronizzati grafico ed esportazioni durante il cambio della riga selezionata.
• Aggiornata la guida su grafici, matrici, tipi supportati ed esportazioni.

2.16.0 Beta — Nuovo elenco Problemi

• Ricostruito il pannello con controlli Krypton e categorie Tutti, Errori, Avvisi e Messaggi, con contatori.
• Ricerca per descrizione, codice, script e riga.
• Griglia con tipo, codice, descrizione, script, riga e colonna.
• Ordinamento, colonne ridimensionabili e spostabili, selezione multipla e descrizioni su più righe.
• Apertura del punto interessato tramite doppio clic, Invio o menu contestuale.
• Avviso quando lo script è stato modificato dopo la compilazione.
• Copia del singolo problema, della descrizione, delle righe selezionate, di tutti gli errori o dell’intero elenco.
• Pulsante sulla destra per copiare l’elenco completo, comprese le voci nascoste dai filtri.
• Scorciatoie Ctrl+C, Ctrl+Maiusc+C e Ctrl+F.
• Inclusione della diagnostica di debug e analisi dei tempi.
• Avvisi ancora consultabili dopo un’esecuzione riuscita.
• Messaggi espliciti per compilazione in corso, elenco vuoto e ricerca senza risultati.
• Aggiunto Chiedi all’assistente AI dal menu contestuale.
• Preparazione della domanda nella chat dello script corretto, con descrizione, codice diagnostico e posizione.
• Conservazione delle bozze delle altre conversazioni.
• Invio sempre controllato dall’utente e rispetto dell’opzione di condivisione del codice.
• Migliorato il comportamento degli alberi durante cambi di tema e carattere, conservando la struttura aperta.
• Gestita la chiusura rapida delle impostazioni durante il caricamento dell’anteprima.
• Aggiornata la guida del pannello Problemi e del debug.

2.17.0 Beta — Assistente riorganizzato e modelli locali

• Categorie del pannello Problemi presentate come pulsanti di Krypton Navigator, con icone distinte e contatori.
• Uniformate le dimensioni delle icone.
• Separata la conversazione dall’area di scrittura.
• Riorganizzati nuova chat, configurazione, selezione del provider e del modello.
• Comandi Invia/Ferma nella stessa posizione; ricerca nella guida e revisione del codice vicine all’area di composizione.
• Configurazione distinta per account Copilot e server locali.
• Aggiunto il supporto a Ollama e LM Studio sul proprio PC, senza account Copilot.
• Elenco dei modelli, risposte progressive, interruzione e gestione degli errori di connessione, modello o credenziali.
• Conservazione separata degli indirizzi e dei modelli dei diversi provider.
• Token locale facoltativo protetto per l’utente Windows.
• Riferimenti della guida e firme delle funzioni disponibili anche per i modelli locali.
• Contesto configurabile, inizialmente limitato a 8.192 token.
• Nessun download automatico dei modelli o passaggio automatico al cloud.
• Suggerimenti AI nell’editor utilizzabili con il provider selezionato, inizialmente disattivati.
• Richieste locali serializzate e completamenti interrotti dopo sei secondi.
• Indicazione del provider e del modello utilizzati nella risposta.
• Segnalazione delle risposte interrotte o troncate; codice incompleto escluso dalle proposte applicabili.
• Corretta l’intestazione della chat dopo il cambio dello script.
• Conservata la posizione di lettura dei messaggi precedenti.
• Guida dell’assistente aggiornata e documentazione DocFX rigenerata.

2.17.1 Beta — Menu italiano e riferimenti dell’assistente

• Corretto il menu del tasto destro dell’editor: sfondo opaco, bordo e selezione leggibili nei quattro temi.
• Sistemata la visualizzazione anche quando il menu supera i confini dell’editor.
• Caricate le risorse italiane ufficiali di Monaco per menu, comandi, ricerca e messaggi interni.
• Traduzione applicata anche al confronto delle proposte di codice.
• Conservati i comandi esistenti, compresa la formattazione.
• Migliorata la ricerca dei riferimenti dell’assistente: considera anche le funzioni presenti nel codice effettivamente condiviso.
• Utilizzato il parser VB.NET per riconoscere le chiamate anche con sintassi incompleta.
• Esclusi stringhe e commenti dal riconoscimento delle chiamate.
• Priorità alle firme collegate allo script e alla diagnostica corrente.
• Condivisione della diagnostica con codice, riga, colonna e distinzione tra compilazione attuale e precedente.
• Disponibilità di un breve estratto del codice compilato quando lo script è cambiato dopo l’errore.
• Rispetto dell’opzione Includi il codice, senza lettura automatica degli altri documenti.
• Miglioramenti applicati sia a Copilot sia ai modelli locali.

2.17.2 Beta — Correzione del ridisegno dei grafici

• Corretto il difetto che produceva rettangoli mancanti, residui o deformazioni durante il passaggio del mouse, l’aggiornamento dei valori e lo zoom.
• Sostituito il ridisegno parziale con il ridisegno completo della superficie del grafico.
• Conservati tooltip, puntatori, legenda, zoom, selezione dell’intervallo ed esportazioni.
• Nessuna modifica alle statistiche, ai dati delle serie o alle chiamate degli script.
• Verificata la correzione nei quattro temi con colonne, barre, linee e aree.
• Ripetute le verifiche funzionali e numeriche dei grafici.

Download : EstraCodeStudio-2.17.2​

 

[lotto_tom75]

Come dicono a Oxford... "me cojoni!"

 

[senzapensare]

Ottimo lavoro tanto che "me ne sono impossessato" e ho voluto vedere che risultati dava (nel suo non ci sono, ma io ho considerato anche i laterali. La ricerca utilizza le estrazioni suggerite dal programma e la distanza 33. La ricerca viene fatta sulle 9 estrazioni successive. I risultati non sono male:

Vedi l'allegato 2322359
I laterali usciti sono davvero molti

Esempio:

Vedi l'allegato 2322360
Vedi l'allegato 2322361

Considerando tutte le estrazioni:
Vedi l'allegato 2322362

Penso che venderò il suo programma spacciandolo per mio.
Scusi l'intromissione.

Simpaticissimo InRicordo, hai tutta la mia benedizione! E quando sarai ricco...vienimi a trovare con il tuo nuovo yacht fiammante

 

[senzapensare]

EstraCode Studio 2.17.2 Beta​

2.9.1 Beta — Salvataggio degli script personali

• Corretto il blocco che impediva il salvataggio nella cartella personale conservata dopo l’aggiornamento della versione installata.
• Uniformata la gestione dei permessi per creazione, sovrascrittura e Salva con nome.
• Mantenuta la separazione tra il profilo della versione installata e quello della copia di sviluppo.
• Verificati salvataggio di file nuovi ed esistenti, caratteri accentati, codifica e indicazione delle modifiche salvate nell’editor.
• Nessuna modifica ai calcoli statistici.

2.9.2 Beta — Guida contestuale con F1

• Corretta l’apertura della guida relativa alla funzione o procedura riconosciuta nell’editor.
• Gestito il nome selezionato nei suggerimenti anche quando ancora parzialmente digitato.
• Migliorato il riconoscimento della chiamata durante la scrittura dei parametri, comprese chiamate annidate e istruzioni su più righe.
• Corretto il comando F1 della finestra principale, che poteva intercettare il tasto e aprire il benvenuto.
• Conservata l’apertura della pagina iniziale tramite Aiuto → Guida.
• Aggiornato l’installer protetto, mantenendo l’identità dell’applicazione e la conservazione dei dati personali.

2.11.0 Beta — Cruscotto statistico senza scrivere codice

• Introdotta una finestra dedicata alle analisi statistiche, con interfaccia Krypton e supporto ai quattro temi.
• Aggiunte tre modalità:
  • classifica dei singoli numeri per estratto;
  • statistica di una formazione unica;
  • confronto della stessa formazione fra più ruote.
• Selezione dei numeri attraverso la griglia, comprese preselezioni personali e casuali.
• Scelta delle ruote, della sorte e dell’intervallo mediante progressivi o periodi rapidi.
• Calcolo di frequenza, ritardo, ritardo massimo e incremento con lo stesso motore Turbo utilizzato dagli script.
• Gestione esplicita della disponibilità storica delle ruote.
• Tabella ordinabile cliccando sulle intestazioni e riepilogo della riga selezionata.
• Grafici a colonne, barre e linea, con scelta del valore statistico da rappresentare.
• Generazione di uno script commentato, con tabella e grafico, apribile nell’editor senza avvio o salvataggio automatici.
• Esportazione HTML autonoma con parametri, grafico e impronta dell’archivio; esportazione dei dati per fogli di calcolo.
• Elaborazione asincrona con avanzamento e interruzione.
• Indicazione dei risultati non più aggiornati dopo una modifica dei parametri o dell’archivio.
• Guida dedicata, ricercabile, stampabile e raggiungibile con F1.

2.12.0 Beta — Verifica storica dei metodi e menu riorganizzato

• Introdotta la verifica storica dei metodi, con concorsi di origine, sorte, ruote e numero di colpi configurabili.
• Verifica degli esiti a partire dal concorso successivo a quello di rilevamento.
• Aggiunti tre metodi pronti:
  • spia con formazione fissa;
  • somma di due posizioni con diametrale;
  • numeri più frequenti su una profondità storica scelta.
• Possibilità di scrivere una routine personale VB.NET Calcola, salvata in un file .ecmetodo.
• Disponibile ContestoMetodo per consultare estratti, presenze, disponibilità, frequenze, ritardi, classifiche e fuori 90, limitando i dati al concorso corrente.
• Scelta fra casi indipendenti oppure esclusione delle nuove formazioni fino alla conclusione del caso in corso.
• Indicazione delle sovrapposizioni escluse.
• Distinzione tra casi positivi, negativi, ancora aperti e con dati incompleti.
• Percentuale calcolata sui soli casi positivi e negativi, con copertura storica esplicita.
• Tabella ordinabile, dettagli del primo esito e grafico dei colpi.
• Report HTML autonomo con parametri, casi, codice del metodo e impronta dell’archivio.
• Esecuzione in un processo separato, interrompibile anche se una routine personale entra in un ciclo infinito.
• Analisi su una copia verificata dell’archivio; nessuna pubblicazione di rapporti parziali dopo l’interruzione.
• Riorganizzato il menu principale: nuova sezione Analisi e raggruppamenti per debug, tempi, recupero, trasferimenti e disposizione dell’ambiente.
• Aggiunta la relativa documentazione.

2.12.1 Beta — Correzione dei selettori

• Risolto il blocco delle tendine Tipo e Sorte nel cruscotto dopo il caricamento dell’archivio o il termine del calcolo.
• Applicata la stessa correzione ai selettori della verifica storica dei metodi.
• Conservata la regola della classifica dei singoli numeri, che utilizza la sorte Estratto.
• Formazione unica e confronto fra ruote continuano a consentire le altre sorti.
• Calcoli statistici invariati.

2.13.0 Beta — Cruscotto ampliato

• Aggiunto l’inserimento manuale dei numeri, sincronizzato con la griglia.
• Accettati spazio, punto, punto e virgola, trattino e virgola come separatori, anche combinati.
• Eliminazione dei duplicati e controllo dei valori compresi tra 1 e 90. Il trattino separa numeri, senza creare intervalli.
• Aggiunta la scelta tra ruote unite e separate, sia nella classifica dei numeri sia nella formazione unica.
• Conservato il confronto fra ruote, senza costruire combinazioni mescolando estratti di ruote differenti.
• Ampliate le informazioni della tabella:
  • ruote e sorte;
  • esiti per ruota e combinazioni uscite;
  • frequenza percentuale;
  • indice frequenza × ritardo;
  • media delle attese concluse;
  • frequenza teorica, scarto e scarto standardizzato;
  • prima e ultima uscita;
  • estremi del periodo e concorsi esaminati;
  • differenza tra ritardo massimo e attuale.
• Distinti chiaramente concorsi favorevoli, esiti sulle singole ruote e combinazioni effettivamente uscite.
• Aggiunto lo storico della riga selezionata con concorso, data, ruota, numeri presenti, combinazioni e ritardo precedente all’esito.
• Introdotte sette analisi grafiche:
  • frequenze cumulative osservate e teoriche;
  • andamento del ritardo;
  • distribuzione delle attese concluse;
  • frequenze mensili;
  • frequenze per cicli configurabili;
  • media progressiva dei ritardi conclusi;
  • scarto cumulativo e standardizzato.
• Aggiunti otto periodi storici rapidi: archivio completo, dieci ruote, estrazioni continue, seconda estrazione settimanale, introduzione della Nazionale, terza estrazione, Venus e quarta estrazione settimanale.
• Periodi risolti attraverso le date effettive dell’archivio, senza progressivi fissi.
• Aggiornati script generati ed esportazioni con le nuove informazioni.
• Ridotta la memoria mantenendo il dettaglio cronologico soltanto della riga selezionata.
• Migliorato il layout per 1280×768 e ampliata la guida con formule, convenzioni ed esempi.

2.14.0 Beta — Output indipendente e schermo intero

• Aggiunto Apri output separato, disponibile anche mentre si consulta il codice di uno script già eseguito.
• Introdotta una finestra autonoma per ogni risultato, identificata dal nome e dallo stato dello script.
• Possibilità di massimizzare il risultato, spostarlo su un altro monitor e consultarlo mentre l’IDE è minimizzato.
• F11 attiva lo schermo intero; Esc ripristina la finestra precedente.
• Ripristino di posizione, dimensioni e stato della finestra.
• Apertura del risultato senza rieseguire lo script, mantenendo immagini, grafici, risorse e tabelle interattive.
• Aggiornamento automatico della sola finestra associata quando si riesegue lo script.
• Risultato precedente disponibile durante il nuovo calcolo.
• Cambio dello script attivo senza sostituire i risultati già aperti in altre finestre.
• Sincronizzazione del nome e dell’avviso relativo alle modifiche successive all’elaborazione.
• Comandi per HTML autonomo, pacchetto ZIP, stampa, PDF e ritorno allo script.
• Corretta l’esportazione dei report riaperti con nomi diversi da quello standard, evitando di includere altri report della stessa cartella.
• Chiusura coordinata con lo script, Chiudi tutti e uscita dall’applicazione, rispettando le richieste di salvataggio.
• Gestita la chiusura durante l’inizializzazione di WebView2.
• Guida aggiornata per finestre separate, più monitor ed esportazioni.

2.15.0 Beta — Grafici interattivi e dimensione del testo

• Aggiunta Impostazioni → Testo dei pannelli, con dimensioni indipendenti da 8 a 24 punti per:
  • Esplora e Funzioni;
  • elenco Problemi.
• Anteprima, ripristino separato, annullamento e salvataggio persistente delle preferenze.
• Adeguamento delle righe e delle colonne alla dimensione scelta, mantenendo indipendente il carattere dell’editor.
• Integrato Apache ECharts 6.1.0, con risorse locali per la consultazione offline.
• Motore condiviso fra output degli script, finestre separate, cruscotto e verifica storica dei metodi.
• Aggiunti zoom con rotella, pulsanti, cursori e selezione rettangolare.
• Spostamento dell’intervallo, ritorno alla vista precedente e ripristino.
• Selezione dei limiti numerici o delle date nei grafici collegati ai progressivi dell’archivio.
• Legenda cliccabile per mostrare o nascondere serie e visualizzazione dei valori al passaggio del mouse.
• Esportazione PNG della vista corrente, HTML autonomo e stampa/PDF statici.
• Conservazione di tutti i punti originali, senza campionamento.
• Riuso delle istanze grafiche e ridimensionamento automatico, riducendo ricreazioni e risorse duplicate.
• Conservate le firme delle funzioni grafiche esistenti.
• Resi interattivi i principali grafici a linee, spline, gradini, colonne, barre, aree, punti e relative varianti supportate.
• Supportate torta e ciambella con una serie e valori non negativi.
• Conservato il rendering statico per i tipi speciali non convertibili senza modificarne il significato.
• Preservata la riga zero delle matrici di DisegnaGrafico come riga di dati effettivi.
• Disponibile l’immagine originale per mantenere la rappresentazione PNG e le precedenti impostazioni 3D.
• Verificate punto per punto le sette analisi storiche del cruscotto.
• Migliorate date, progressivi, etichette e associazione tra tabella e grafico.
• Valori non definiti mantenuti distinti dallo zero.
• Separati gli assi dello scarto osservato/teorico e dello scarto standardizzato.
• Sincronizzati grafico ed esportazioni durante il cambio della riga selezionata.
• Aggiornata la guida su grafici, matrici, tipi supportati ed esportazioni.

2.16.0 Beta — Nuovo elenco Problemi

• Ricostruito il pannello con controlli Krypton e categorie Tutti, Errori, Avvisi e Messaggi, con contatori.
• Ricerca per descrizione, codice, script e riga.
• Griglia con tipo, codice, descrizione, script, riga e colonna.
• Ordinamento, colonne ridimensionabili e spostabili, selezione multipla e descrizioni su più righe.
• Apertura del punto interessato tramite doppio clic, Invio o menu contestuale.
• Avviso quando lo script è stato modificato dopo la compilazione.
• Copia del singolo problema, della descrizione, delle righe selezionate, di tutti gli errori o dell’intero elenco.
• Pulsante sulla destra per copiare l’elenco completo, comprese le voci nascoste dai filtri.
• Scorciatoie Ctrl+C, Ctrl+Maiusc+C e Ctrl+F.
• Inclusione della diagnostica di debug e analisi dei tempi.
• Avvisi ancora consultabili dopo un’esecuzione riuscita.
• Messaggi espliciti per compilazione in corso, elenco vuoto e ricerca senza risultati.
• Aggiunto Chiedi all’assistente AI dal menu contestuale.
• Preparazione della domanda nella chat dello script corretto, con descrizione, codice diagnostico e posizione.
• Conservazione delle bozze delle altre conversazioni.
• Invio sempre controllato dall’utente e rispetto dell’opzione di condivisione del codice.
• Migliorato il comportamento degli alberi durante cambi di tema e carattere, conservando la struttura aperta.
• Gestita la chiusura rapida delle impostazioni durante il caricamento dell’anteprima.
• Aggiornata la guida del pannello Problemi e del debug.

2.17.0 Beta — Assistente riorganizzato e modelli locali

• Categorie del pannello Problemi presentate come pulsanti di Krypton Navigator, con icone distinte e contatori.
• Uniformate le dimensioni delle icone.
• Separata la conversazione dall’area di scrittura.
• Riorganizzati nuova chat, configurazione, selezione del provider e del modello.
• Comandi Invia/Ferma nella stessa posizione; ricerca nella guida e revisione del codice vicine all’area di composizione.
• Configurazione distinta per account Copilot e server locali.
• Aggiunto il supporto a Ollama e LM Studio sul proprio PC, senza account Copilot.
• Elenco dei modelli, risposte progressive, interruzione e gestione degli errori di connessione, modello o credenziali.
• Conservazione separata degli indirizzi e dei modelli dei diversi provider.
• Token locale facoltativo protetto per l’utente Windows.
• Riferimenti della guida e firme delle funzioni disponibili anche per i modelli locali.
• Contesto configurabile, inizialmente limitato a 8.192 token.
• Nessun download automatico dei modelli o passaggio automatico al cloud.
• Suggerimenti AI nell’editor utilizzabili con il provider selezionato, inizialmente disattivati.
• Richieste locali serializzate e completamenti interrotti dopo sei secondi.
• Indicazione del provider e del modello utilizzati nella risposta.
• Segnalazione delle risposte interrotte o troncate; codice incompleto escluso dalle proposte applicabili.
• Corretta l’intestazione della chat dopo il cambio dello script.
• Conservata la posizione di lettura dei messaggi precedenti.
• Guida dell’assistente aggiornata e documentazione DocFX rigenerata.

2.17.1 Beta — Menu italiano e riferimenti dell’assistente

• Corretto il menu del tasto destro dell’editor: sfondo opaco, bordo e selezione leggibili nei quattro temi.
• Sistemata la visualizzazione anche quando il menu supera i confini dell’editor.
• Caricate le risorse italiane ufficiali di Monaco per menu, comandi, ricerca e messaggi interni.
• Traduzione applicata anche al confronto delle proposte di codice.
• Conservati i comandi esistenti, compresa la formattazione.
• Migliorata la ricerca dei riferimenti dell’assistente: considera anche le funzioni presenti nel codice effettivamente condiviso.
• Utilizzato il parser VB.NET per riconoscere le chiamate anche con sintassi incompleta.
• Esclusi stringhe e commenti dal riconoscimento delle chiamate.
• Priorità alle firme collegate allo script e alla diagnostica corrente.
• Condivisione della diagnostica con codice, riga, colonna e distinzione tra compilazione attuale e precedente.
• Disponibilità di un breve estratto del codice compilato quando lo script è cambiato dopo l’errore.
• Rispetto dell’opzione Includi il codice, senza lettura automatica degli altri documenti.
• Miglioramenti applicati sia a Copilot sia ai modelli locali.

2.17.2 Beta — Correzione del ridisegno dei grafici

• Corretto il difetto che produceva rettangoli mancanti, residui o deformazioni durante il passaggio del mouse, l’aggiornamento dei valori e lo zoom.
• Sostituito il ridisegno parziale con il ridisegno completo della superficie del grafico.
• Conservati tooltip, puntatori, legenda, zoom, selezione dell’intervallo ed esportazioni.
• Nessuna modifica alle statistiche, ai dati delle serie o alle chiamate degli script.
• Verificata la correzione nei quattro temi con colonne, barre, linee e aree.
• Ripetute le verifiche funzionali e numeriche dei grafici.

Download : EstraCodeStudio-2.17.2​

Come direbbe Rocchio Schiavone...STI CAZZI!!! GRAZIE X TUTTO... Ma sei di un'altra dimensione!

 

[Edoardo_95]

Come dicono a Oxford... "me cojoni!"

Ti ho pensato. Ricordi il tuo famoso script sill'incremento del ritardo massimo?

Option Explicit On

' Ricerca delle formazioni in base agli incrementi del ritardo massimo.
' Crediti dello script originale: I Legend, Tom, silop e Luigi.

Sub Main()
    Dim archivio = "", distanza = 0
    If Not ScegliArchivioDiLavoro(archivio, distanza) Then Return

    Try
        Dim inizio = 1, fine = EstrazioniArchivio()
        If Not ScegliRange(inizio, fine) Then Return
        If fine <= inizio Then Return

        Dim sorte = ScegliEsito()
        If sorte = 0 Then Return

        Dim ruote = Nothing
        If ScegliRuote(ruote) = 0 Then Return

        Dim filtro = ScegliOpzione({"Annulla",
            "Ultimo incremento = massimo degli incrementi precedenti",
            "Ultimo incremento >= massimo degli incrementi precedenti",
            "Ultimo incremento <= massimo degli incrementi precedenti"},
            "Condizione da verificare")
        If filtro = 0 Then Return

        Dim minimo = 5
        If Not ScegliIntero(minimo,
            "Numero minimo di incrementi richiesti", 5, 1) Then Return

        Dim modo = ScegliOpzione({"Annulla",
            "Da file TXT",
            "Da file COL testuale",
            "Formazioni casuali",
            "Sviluppo integrale dai numeri scelti"},
            "Origine delle formazioni")
        If modo = 0 Then Return

        Dim totale = PreparaFormazioni(modo, sorte)
        If totale = 0 Then Return

        Dim raccolta = GetNewCollection()
        Dim formazione = Nothing
        Dim nProdotte = 0

        While GetProssimaFormazione(formazione)
            If ScriptInterrotto() Then Exit While

            Dim risultato = AnalizzaFormazioneTurbo(
                formazione, ruote, sorte, inizio, fine)

            ' Conta le formazioni effettivamente analizzate.
            nProdotte += 1

            If RispettaCondizione(risultato, filtro, minimo, fine) Then
                If modo = 3 Then
                    ' Nel casuale contiamo tutti i tentativi,
                    ' ma conserviamo una sola copia della formazione valida.
                    AggiungiElementoUnico(raccolta, risultato,
                        "N" & StringaNumeri(risultato.Numeri))
                Else
                    raccolta.Add(risultato)
                End If
            End If

            If nProdotte Mod 50 = 0 OrElse nProdotte = totale Then
                Messaggio("Esaminate: " & nProdotte &
                          " - Valide: " & raccolta.Count)
                AvanzamentoElab(0, totale, nProdotte)
            End If
        End While

        Scrivi("Archivio: " & archivio, Grassetto:=True)
        Scrivi("Intervallo: " & GetInfoEstrazione(inizio) &
               " - " & GetInfoEstrazione(fine))
        Scrivi("Sorte: " & NomeSorte(sorte))
        Scrivi("Ruote: " & StringaRuote(ruote))
        Scrivi("Filtro: " & DescrizioneFiltro(filtro))
        Scrivi("Numero minimo di incrementi: " & minimo)
        Scrivi("Formazioni previste: " & totale)
        Scrivi("Formazioni esaminate: " & nProdotte &
               " - Valide: " & raccolta.Count)

        If raccolta.Count = 0 Then
            Scrivi("Nessuna formazione rispetta le condizioni.")
            Return
        End If

        ' True ordina dal valore maggiore al minore.
        ' OrdinaRaccolta restituisce la raccolta ordinata.
        raccolta = OrdinaRaccolta(raccolta, "IncrRitMax", True)

        ' True aggiunge i grafici.
        ' Imposta False se vuoi soltanto i risultati testuali.
        Dim mostraGrafici = True

        For Each risultato In raccolta
            Scrivi("")
            Scrivi("Formazione: " & StringaNumeri(risultato.Numeri),
                   Grassetto:=True)

            If distanza <> 0 Then
                Scrivi("Numeri verifica: " &
                    NumeriVerifica(risultato, inizio, fine, distanza))
            End If

            Scrivi("Ritardo: " & risultato.Ritardo)
            Scrivi("Ritardo massimo: " & risultato.RitardoMax)
            Scrivi("Frequenza: " & risultato.Frequenza)
            Scrivi("Incremento attuale del massimo: " &
                   risultato.IncrRitMax)
            Scrivi("Massimo incremento precedente: " &
                   risultato.MassimoIncrementoPrecedente)
            Scrivi("Ultimo incremento: " & risultato.UltimoIncremento)
            Scrivi("Elenco incrementi: " &
                   StringaNumeri(risultato.Incrementi, "."))
            Scrivi("Numero incrementi: " & risultato.NumeroIncrementi)

            If mostraGrafici Then DisegnaIncrementi(risultato)
        Next
    Finally
        ' Ripristina l'archivio configurato anche in caso di errore
        ' o di uscita anticipata dalle scelte precedenti.
        RipristinaArchivioDiLavoro()
    End Try
End Sub

Function PreparaFormazioni(modo, sorte)
    ' TXT e COL testuali utilizzano lo stesso lettore.
    If modo = 1 OrElse modo = 2 Then
        Dim file = ScegliFileFormazioni(modo = 2)
        If file = "" Then Return 0

        Return InitFormazioniDaFile(file)
    End If

    Dim bacino = Nothing
    If ScegliNumeri(bacino) = 0 Then Return 0

    If UBound(bacino) < sorte Then
        MostraMessaggio("Scegli almeno " & sorte &
                       " numeri per la sorte richiesta.")
        Return 0
    End If

    Dim classe = sorte
    If Not ScegliIntero(classe,
        "Quanti numeri deve contenere ogni formazione?",
        sorte, sorte, UBound(bacino)) Then Return 0

    If modo = 3 Then
        Dim quantita = 10
        If Not ScegliIntero(quantita,
            "Quante formazioni casuali vuoi produrre?",
            10, 1) Then Return 0

        Return InitFormazioniCasuali(bacino, classe, quantita)
    End If

    Return InitFormazioniIntegrali(bacino, classe)
End Function

Function RispettaCondizione(risultato, filtro, minimo, fine)
    ' Senza incrementi non esiste un ultimo incremento da confrontare.
    If risultato.NumeroIncrementi = 0 OrElse
       risultato.NumeroIncrementi < minimo Then Return False

    ' UltimoRitardo corrisponde all'ultimo elemento
    ' dell'elenco dei ritardi utilizzato nello script originale.
    If risultato.UltimoRitardo <= 0 OrElse
       risultato.UltimaEstrazioneIncremento <> fine Then Return False

    Dim ultimo = risultato.UltimoIncremento
    Dim precedente = risultato.MassimoIncrementoPrecedente

    Select Case filtro
        Case 1
            Return ultimo = precedente
        Case 2
            Return ultimo >= precedente
        Case 3
            Return ultimo <= precedente
    End Select

    Return False
End Function

Function DescrizioneFiltro(filtro)
    Select Case filtro
        Case 1
            Return "Ultimo incremento = massimo precedente"
        Case 2
            Return "Ultimo incremento >= massimo precedente"
        Case 3
            Return "Ultimo incremento <= massimo precedente"
    End Select

    Return "Filtro non valido"
End Function

Function NumeriVerifica(risultato, inizio, fine, distanza)
    ' Mantiene la formula originale, basata sulla lunghezza del periodo.
    ' Numeri restituisce una copia: non modifichiamo la formazione analizzata.
    Dim numeri = risultato.Numeri
    Dim spostamento = Fuori90(
        ((fine - inizio + 1) Mod 90) * distanza)

    For i = 1 To UBound(numeri)
        numeri(i) = Fuori90(numeri(i) + spostamento)
    Next

    Return StringaNumeri(numeri, ".", True)
End Function

Sub DisegnaIncrementi(risultato)
    If risultato.NumeroIncrementi = 0 Then Return

    ' I tre vettori hanno gli stessi indici:
    ' concorso, incremento registrato e nuovo ritardo massimo.
    Dim concorsi = risultato.IdIncrementi
    Dim incrementi = risultato.Incrementi
    Dim massimi = risultato.RitardiMassimi

    PreparaGraficoAutomatico(
        "Formazione " & StringaNumeri(risultato.Numeri))

    DisegnaLineaGraficoDaVettori(
        concorsi, incrementi, Rosso_(), "Incremento ritardo massimo")

    DisegnaLineaGraficoDaVettori(
        concorsi, massimi, Blu_(), "Ritardo massimo")

    InserisciGrafico()
End Sub

Questa è la versione per ECS. Inoltre ho aggiunto le funzioni di RICERCALUNGHETTENET. Quindi troverai "RicercaLunghetteRitardo" e "RicercaLunghetteFrequenza".
Qui ti potrai sbizzarrire all'impazzata

 

[Lottopython]

Sto lavorando a pieno regime per pubblicare il nuovo aggiornamento entro questa sera. Da domani abbandonerò temporaneamente il progetto causa lavoro per alcuni giorni. Dopo alcune imprecazioni contro LottoPython (credimi è stato davvero difficile ahahahah) sono riuscito ad implementare anche la richiesta dell'utilizzo di modelli locali però qui devo necessariamente aggiungere una premessa fondamentale:

NON MI ASSUMO ALCUNA RESPONSABILITA' DI CIO' CHE NE FARETE.
Utilizzare modelli locali (hardware permettendo) consente anche di eseguire modelli ABLITERATED ed HERETIC, ovvero modelli linguistici open-weight modificati attraverso interventi matematici sui loro pesi interni, con l'obiettivo di ridurre drasticamente o eliminare i meccanismi di rifiuto e le restrizioni di sicurezza presenti nei modelli originali.

In parole semplici, questi modelli sono progettati per rispondere anche a richieste che le intelligenze artificiali tradizionali tenderebbero a rifiutare. Questo, però, non garantisce che siano completamente privi di limitazioni o filtri.

Traduzione per i neofiti: È un'intelligenza artificiale senza freni. In parole povere, è un modello che è stato modificato per ridurre o eliminare gran parte delle restrizioni e dei meccanismi di rifiuto normalmente presenti nelle IA tradizionali.

Questo significa che, a differenza dei modelli convenzionali, potrebbe rispondere anche a richieste che normalmente verrebbero rifiutate perché considerate pericolose, inappropriate, illegali o contrarie alle politiche di sicurezza.

E qui arriva la parte importante.

Non confondete l'assenza di censura con una maggiore intelligenza, affidabilità o accuratezza. Un modello senza filtri non è necessariamente un modello migliore: è semplicemente un modello con meno limitazioni su ciò che è disposto a generare.

Ho deciso di implementare questa possibilità perché credo nella libertà di scelta, nella sperimentazione e nel diritto di utilizzare strumenti locali senza dipendere necessariamente da servizi esterni o dalle restrizioni imposte dai rispettivi fornitori.

Ma libertà significa anche responsabilità.

Quello che farete con questi modelli, le informazioni che genererete e l'eventuale utilizzo dei loro output saranno esclusivamente sotto la vostra responsabilità.

Io vi fornisco lo strumento, non un lasciapassare per fare qualsiasi cosa vi passi per la testa.

E soprattutto ricordate: se un'intelligenza artificiale vi risponde senza esitazioni, non significa che abbia ragione. Significa soltanto che ha deciso di rispondervi.

Detto questo, preparate l'hardware, perché con il prossimo aggiornamento le possibilità di sperimentazione aumenteran

sapevo di aspettarmi imprecazioni di ogni ...spero a fin di bene visto l'importante risultato .
un abbraccio Edoardo a presto risentirci

 

[lotto_tom75]

Ti ho pensato. Ricordi il tuo famoso script sill'incremento del ritardo massimo?

Option Explicit On

' Ricerca delle formazioni in base agli incrementi del ritardo massimo.
' Crediti dello script originale: I Legend, Tom, silop e Luigi.

Sub Main()
    Dim archivio = "", distanza = 0
    If Not ScegliArchivioDiLavoro(archivio, distanza) Then Return

    Try
        Dim inizio = 1, fine = EstrazioniArchivio()
        If Not ScegliRange(inizio, fine) Then Return
        If fine <= inizio Then Return

        Dim sorte = ScegliEsito()
        If sorte = 0 Then Return

        Dim ruote = Nothing
        If ScegliRuote(ruote) = 0 Then Return

        Dim filtro = ScegliOpzione({"Annulla",
            "Ultimo incremento = massimo degli incrementi precedenti",
            "Ultimo incremento >= massimo degli incrementi precedenti",
            "Ultimo incremento <= massimo degli incrementi precedenti"},
            "Condizione da verificare")
        If filtro = 0 Then Return

        Dim minimo = 5
        If Not ScegliIntero(minimo,
            "Numero minimo di incrementi richiesti", 5, 1) Then Return

        Dim modo = ScegliOpzione({"Annulla",
            "Da file TXT",
            "Da file COL testuale",
            "Formazioni casuali",
            "Sviluppo integrale dai numeri scelti"},
            "Origine delle formazioni")
        If modo = 0 Then Return

        Dim totale = PreparaFormazioni(modo, sorte)
        If totale = 0 Then Return

        Dim raccolta = GetNewCollection()
        Dim formazione = Nothing
        Dim nProdotte = 0

        While GetProssimaFormazione(formazione)
            If ScriptInterrotto() Then Exit While

            Dim risultato = AnalizzaFormazioneTurbo(
                formazione, ruote, sorte, inizio, fine)

            ' Conta le formazioni effettivamente analizzate.
            nProdotte += 1

            If RispettaCondizione(risultato, filtro, minimo, fine) Then
                If modo = 3 Then
                    ' Nel casuale contiamo tutti i tentativi,
                    ' ma conserviamo una sola copia della formazione valida.
                    AggiungiElementoUnico(raccolta, risultato,
                        "N" & StringaNumeri(risultato.Numeri))
                Else
                    raccolta.Add(risultato)
                End If
            End If

            If nProdotte Mod 50 = 0 OrElse nProdotte = totale Then
                Messaggio("Esaminate: " & nProdotte &
                          " - Valide: " & raccolta.Count)
                AvanzamentoElab(0, totale, nProdotte)
            End If
        End While

        Scrivi("Archivio: " & archivio, Grassetto:=True)
        Scrivi("Intervallo: " & GetInfoEstrazione(inizio) &
               " - " & GetInfoEstrazione(fine))
        Scrivi("Sorte: " & NomeSorte(sorte))
        Scrivi("Ruote: " & StringaRuote(ruote))
        Scrivi("Filtro: " & DescrizioneFiltro(filtro))
        Scrivi("Numero minimo di incrementi: " & minimo)
        Scrivi("Formazioni previste: " & totale)
        Scrivi("Formazioni esaminate: " & nProdotte &
               " - Valide: " & raccolta.Count)

        If raccolta.Count = 0 Then
            Scrivi("Nessuna formazione rispetta le condizioni.")
            Return
        End If

        ' True ordina dal valore maggiore al minore.
        ' OrdinaRaccolta restituisce la raccolta ordinata.
        raccolta = OrdinaRaccolta(raccolta, "IncrRitMax", True)

        ' True aggiunge i grafici.
        ' Imposta False se vuoi soltanto i risultati testuali.
        Dim mostraGrafici = True

        For Each risultato In raccolta
            Scrivi("")
            Scrivi("Formazione: " & StringaNumeri(risultato.Numeri),
                   Grassetto:=True)

            If distanza <> 0 Then
                Scrivi("Numeri verifica: " &
                    NumeriVerifica(risultato, inizio, fine, distanza))
            End If

            Scrivi("Ritardo: " & risultato.Ritardo)
            Scrivi("Ritardo massimo: " & risultato.RitardoMax)
            Scrivi("Frequenza: " & risultato.Frequenza)
            Scrivi("Incremento attuale del massimo: " &
                   risultato.IncrRitMax)
            Scrivi("Massimo incremento precedente: " &
                   risultato.MassimoIncrementoPrecedente)
            Scrivi("Ultimo incremento: " & risultato.UltimoIncremento)
            Scrivi("Elenco incrementi: " &
                   StringaNumeri(risultato.Incrementi, "."))
            Scrivi("Numero incrementi: " & risultato.NumeroIncrementi)

            If mostraGrafici Then DisegnaIncrementi(risultato)
        Next
    Finally
        ' Ripristina l'archivio configurato anche in caso di errore
        ' o di uscita anticipata dalle scelte precedenti.
        RipristinaArchivioDiLavoro()
    End Try
End Sub

Function PreparaFormazioni(modo, sorte)
    ' TXT e COL testuali utilizzano lo stesso lettore.
    If modo = 1 OrElse modo = 2 Then
        Dim file = ScegliFileFormazioni(modo = 2)
        If file = "" Then Return 0

        Return InitFormazioniDaFile(file)
    End If

    Dim bacino = Nothing
    If ScegliNumeri(bacino) = 0 Then Return 0

    If UBound(bacino) < sorte Then
        MostraMessaggio("Scegli almeno " & sorte &
                       " numeri per la sorte richiesta.")
        Return 0
    End If

    Dim classe = sorte
    If Not ScegliIntero(classe,
        "Quanti numeri deve contenere ogni formazione?",
        sorte, sorte, UBound(bacino)) Then Return 0

    If modo = 3 Then
        Dim quantita = 10
        If Not ScegliIntero(quantita,
            "Quante formazioni casuali vuoi produrre?",
            10, 1) Then Return 0

        Return InitFormazioniCasuali(bacino, classe, quantita)
    End If

    Return InitFormazioniIntegrali(bacino, classe)
End Function

Function RispettaCondizione(risultato, filtro, minimo, fine)
    ' Senza incrementi non esiste un ultimo incremento da confrontare.
    If risultato.NumeroIncrementi = 0 OrElse
       risultato.NumeroIncrementi < minimo Then Return False

    ' UltimoRitardo corrisponde all'ultimo elemento
    ' dell'elenco dei ritardi utilizzato nello script originale.
    If risultato.UltimoRitardo <= 0 OrElse
       risultato.UltimaEstrazioneIncremento <> fine Then Return False

    Dim ultimo = risultato.UltimoIncremento
    Dim precedente = risultato.MassimoIncrementoPrecedente

    Select Case filtro
        Case 1
            Return ultimo = precedente
        Case 2
            Return ultimo >= precedente
        Case 3
            Return ultimo <= precedente
    End Select

    Return False
End Function

Function DescrizioneFiltro(filtro)
    Select Case filtro
        Case 1
            Return "Ultimo incremento = massimo precedente"
        Case 2
            Return "Ultimo incremento >= massimo precedente"
        Case 3
            Return "Ultimo incremento <= massimo precedente"
    End Select

    Return "Filtro non valido"
End Function

Function NumeriVerifica(risultato, inizio, fine, distanza)
    ' Mantiene la formula originale, basata sulla lunghezza del periodo.
    ' Numeri restituisce una copia: non modifichiamo la formazione analizzata.
    Dim numeri = risultato.Numeri
    Dim spostamento = Fuori90(
        ((fine - inizio + 1) Mod 90) * distanza)

    For i = 1 To UBound(numeri)
        numeri(i) = Fuori90(numeri(i) + spostamento)
    Next

    Return StringaNumeri(numeri, ".", True)
End Function

Sub DisegnaIncrementi(risultato)
    If risultato.NumeroIncrementi = 0 Then Return

    ' I tre vettori hanno gli stessi indici:
    ' concorso, incremento registrato e nuovo ritardo massimo.
    Dim concorsi = risultato.IdIncrementi
    Dim incrementi = risultato.Incrementi
    Dim massimi = risultato.RitardiMassimi

    PreparaGraficoAutomatico(
        "Formazione " & StringaNumeri(risultato.Numeri))

    DisegnaLineaGraficoDaVettori(
        concorsi, incrementi, Rosso_(), "Incremento ritardo massimo")

    DisegnaLineaGraficoDaVettori(
        concorsi, massimi, Blu_(), "Ritardo massimo")

    InserisciGrafico()
End Sub

Questa è la versione per ECS. Inoltre ho aggiunto le funzioni di RICERCALUNGHETTENET. Quindi troverai "RicercaLunghetteRitardo" e "RicercaLunghetteFrequenza".
Qui ti potrai sbizzarrire all'impazzata

Addirittura salva l'output in pdf e html (e in questo caso pure in modalità interattiva!)

Archivio: Archivio Lotto
Intervallo: 1 - 1 - 07/01/1871 - 10945 - 166 - 16/10/2026
Sorte: E
Ruote: MI
Filtro: Ultimo incremento = massimo precedente
Numero minimo di incrementi: 5
Formazioni previste: 82251
Formazioni esaminate: 82251 - Valide: 1

Formazione: 24.26.27.34
Ritardo: 30
Ritardo massimo: 30
Frequenza: 2233
Incremento attuale del massimo: 5
Massimo incremento precedente: 5
Ultimo incremento: 5
Elenco incrementi: 2.2.1.5.1.5
Numero incrementi: 6

Formazione 24.26.27.34​

​

​

​

Non ho più lacrime per emozionarmi maggiormente... ​

​

PS: Se vuoi puoi sbizzarirti pure tu nel cercare di implementare anche i nuovi incmaxP, incmax III. Ad ogni modo proverò a ricreare anche io i relativi script ECS ovviamente solo grazie alle mie fedeli AI. Se ci riuscirò ovviamente li condividerò qui in questo tuo thread e nella mia sezione tom's bakery . COMPLIMENTI E GRAZIE MAGO! ps2: secondo me stai seriamente raggiungendo e a breve superando il Maestro L.B. ​

 

[InRicordo]

La mia versione usa le strazioni avvenute su Andromeda
Ecchebrioshfritta! Prima facevo disastri solo su Python e C++ ora anche su vb.net, anche se questo script sembra fatto su un Gabi.net

 

[fillott0]

LivelloFacile - AbbinamentiSuccessivi
' Obiettivo: Elencare i numeri usciti nei tre concorsi successivi alla spia, sulla stessa ruota.
' Modifica i dati di esempio e premi F5. F1 apre la guida della funzione.
Sub Main()
' Dim crea una variabile: il nome conserva il valore scritto dopo =.
' Nothing indica che il contenuto non è ancora disponibile; la chiamata lo prepara o lo riceve.
' Nei vettori Lotto lo zero iniziale è riservato: i numeri utili iniziano dall’indice 1.
' If esegue una scelta; Not ne inverte il senso. Return termina subito questo script.
' Il ciclo ripete le istruzioni interne: For visita i valori, While continua finché la condizione è vera.
' & unisce un testo a un valore per scriverli insieme nell’output.
' True significa sì e False significa no: il nome del parametro indica quale scelta fai.
' Scrivi mostra il risultato; se ometti le opzioni usa testo normale e va a capo.
' Grassetto=True: scrive il testo in grassetto.
Scrivi("AbbinamentiSuccessivi - Prova pratica", Grassetto:=True)
Dim spia = 5
' Ultimo progressivo dell’intervallo o concorso fino al quale svolgere la ricerca.
Dim fine = EstrazioniArchivio()-5, inizio = Math.Max(1, fine - 199)
Dim risultati = Nothing
' nSpia: numero la cui uscita avvia il conteggio degli abbinamenti.
' Inizio: primo concorso compreso nella ricerca.
' Fine: ultimo concorso compreso nella ricerca.
' Ruota: ruota da esaminare: BA_() significa Bari; {0, BA_()} è il vettore per la stessa scelta.
AbbinamentiSuccessivi(spia, risultati, inizio, fine, RO_(), Colpi:=3)
' Colonna 1 = numero; colonna 2 = frequenza. Riga zero riservata.
For riga = 1 To risultati.GetUpperBound(0)
If risultati(riga, 2) = 0 Then Exit For
Scrivi(FormattaStringa(risultati(riga, 1), "00") & " : " & risultati(riga, 2))
Next
End Sub

Da questo script dove l'output mi da questo risultato23 : 6
17 : 5
09 : 4 da un controllo fatto su excel i numeri dell'output sono un pò diversi almeno controllando le tre estrazioni successive alla spia (5) ruota di RO nelle199 estrazioni antecedenti la data del 10/10/26 dove appunto c'è il num 5 . Il fatto che successivamente a questa data non sono usciti uno di questi num è ininfluente. è che non mi trovo il controllo delle 199 estraz.precedenti. dove sbaglio ? dove non ho capito?

 

[Edoardo_95]

LivelloFacile - AbbinamentiSuccessivi
' Obiettivo: Elencare i numeri usciti nei tre concorsi successivi alla spia, sulla stessa ruota.
' Modifica i dati di esempio e premi F5. F1 apre la guida della funzione.
Sub Main()
' Dim crea una variabile: il nome conserva il valore scritto dopo =.
' Nothing indica che il contenuto non è ancora disponibile; la chiamata lo prepara o lo riceve.
' Nei vettori Lotto lo zero iniziale è riservato: i numeri utili iniziano dall’indice 1.
' If esegue una scelta; Not ne inverte il senso. Return termina subito questo script.
' Il ciclo ripete le istruzioni interne: For visita i valori, While continua finché la condizione è vera.
' & unisce un testo a un valore per scriverli insieme nell’output.
' True significa sì e False significa no: il nome del parametro indica quale scelta fai.
' Scrivi mostra il risultato; se ometti le opzioni usa testo normale e va a capo.
' Grassetto=True: scrive il testo in grassetto.
Scrivi("AbbinamentiSuccessivi - Prova pratica", Grassetto:=True)
Dim spia = 5
' Ultimo progressivo dell’intervallo o concorso fino al quale svolgere la ricerca.
Dim fine = EstrazioniArchivio()-5, inizio = Math.Max(1, fine - 199)
Dim risultati = Nothing
' nSpia: numero la cui uscita avvia il conteggio degli abbinamenti.
' Inizio: primo concorso compreso nella ricerca.
' Fine: ultimo concorso compreso nella ricerca.
' Ruota: ruota da esaminare: BA_() significa Bari; {0, BA_()} è il vettore per la stessa scelta.
AbbinamentiSuccessivi(spia, risultati, inizio, fine, RO_(), Colpi:=3)
' Colonna 1 = numero; colonna 2 = frequenza. Riga zero riservata.
For riga = 1 To risultati.GetUpperBound(0)
If risultati(riga, 2) = 0 Then Exit For
Scrivi(FormattaStringa(risultati(riga, 1), "00") & " : " & risultati(riga, 2))
Next
End Sub

Da questo script dove l'output mi da questo risultato23 : 6
17 : 5
09 : 4 da un controllo fatto su excel i numeri dell'output sono un pò diversi almeno controllando le tre estrazioni successive alla spia (5) ruota di RO nelle199 estrazioni antecedenti la data del 10/10/26 dove appunto c'è il num 5 . Il fatto che successivamente a questa data non sono usciti uno di questi num è ininfluente. è che non mi trovo il controllo delle 199 estraz.precedenti. dove sbaglio ? dove non ho capito?

Attualmente non sono al computer. Però ora ti chiarisco una riga

Dim fine = EstrazioniArchivio()-5, inizio = Math.Max(1, fine - 199)

"Fine" sarà uguale alle estrazioni in archivio meno cinque (se per esempio le estrazioni sono 10.000 - 5 = 9995)

"Inizio" sarà uguale al massimo valore compreso nelle parantesi di Math.max.
Quindi inizio = 9995 - 199 = 9796

9796 è maggiore di 1? Si
Allora Math.max restituirà 9796.


Quindi si avrà

Inizio = 9796
Fine = 9995

Se nella tua ricerca dovrai valutare esattamente 199 estrazioni a ritroso dalla data del 10/10/2026.

Allora dovrà essere così

Fine = ID estrazione del 10/10/2026 (non avendo il computer non saprei)

Inizio = Fine - 199

Spero di esserti stato di aiuto

 

[fillott0]

si è proprio giusto il ragionamento che hai fatto . Infatti era mia intenzione con quella riga di codice " Dim fine = EstrazioniArchivio()-5, inizio = Math.Max(1, fine - 199)" vedere se nell'intervallo che va dalla data 10/10/2026(10942) a ritroso x 199 estraz al 30/10/2025 (10744) ci fossero 6 '23' come mi da l'output dell'esecuzione dello script (tanto x vedere se anche se nelle 4 estrazioni successive a quella del 10/10/26 si fosse verificato l'uscita del 23, non tanto per se fosse uscito, in quanto era ll'unico con 6 uscite e mi era facile controllare) Il fatto però che di 23 ne tovo solo 5 . Può essere benissimo che io abbia l'archivio con qualche sbaglippure che nell'estraz. del 4/11/25 (10747) questa: 65.23.67.5.72 però qui è solo un abbinamento, quindi ha conteggioato pure questo '23' ? Stessa cosa me la fa col num pronosticato 17 dice 5 sortite ma io ne trovo 4+ una in abbinamento estraz 26/6/2026 (10881) 65.29.05.52.17

​

 

[Edoardo_95]

Hai fatto bene a controllare: per confrontare i risultati dobbiamo usare esattamente lo stesso intervallo e lo stesso criterio di conteggio.

Ho verificato il funzionamento della funzione.

Lo script non imposta una data fissa. Questa istruzione:

Dim fine = EstrazioniArchivio() - 5
sceglie il quinto concorso precedente all’ultimo presente nell’archivio. Non indica necessariamente il 10/10/2026 e, aggiornando l’archivio, cambia anche l’intervallo analizzato.

Inoltre:
Dim inizio = Math.Max(1, fine - 199)
comprende 200 concorsi, contando sia quello iniziale sia quello finale, se l’archivio contiene abbastanza estrazioni.

La funzione cerca tutte le uscite del 5 su Roma nell’intervallo. Per ciascuna conta i numeri estratti nei tre concorsi successivi, sempre su Roma, escludendo l’estrazione della spia.

Ci sono però due dettagli da considerare nel controllo Excel:
La ricerca si ferma a fine. Se il 5 compare proprio nell’ultimo concorso dell’intervallo, non vengono analizzati i suoi successivi. Se compare nel penultimo, viene analizzato soltanto un concorso successivo.

Ogni uscita della spia costituisce un caso indipendente. Se le finestre di tre concorsi si sovrappongono, una stessa estrazione può contribuire al conteggio più volte.

Inoltre, un numero uscito in due dei tre concorsi viene contato due volte.

Quindi 23 : 6 significa sei occorrenze conteggiate nelle finestre successive alle spie; non necessariamente sei estrazioni distinte.

Per vedere subito quali estremi sta usando lo script, aggiungi:

Scrivi("Inizio: " & GetInfoEstrazione(inizio))

Scrivi("Fine: " & GetInfoEstrazione(fine))

Scrivi("Concorsi nell’intervallo: " & (fine - inizio + 1))

Se su Excel hai selezionato le spie nei 199 concorsi precedenti al 10 ottobre, oppure hai contato comunque tutti i loro tre successivi oltre la data finale, stai confrontando due ricerche differenti.

Questo può spiegare lo scostamento, ma senza confrontare le singole estrazioni non posso confermare che i valori 6, 5 e 4 siano corretti nel tuo caso.

Se il modo in cui è impostata la funzione pensi sia sbagliata dimmelo senza problemi e faremo un sondaggio per vedere se va modificata

si è proprio giusto il ragionamento che hai fatto . Infatti era mia intenzione con quella riga di codice " Dim fine = EstrazioniArchivio()-5, inizio = Math.Max(1, fine - 199)" vedere se nell'intervallo che va dalla data 10/10/2026(10942) a ritroso x 199 estraz al 30/10/2025 (10744) ci fossero 6 '23' come mi da l'output dell'esecuzione dello script (tanto x vedere se anche se nelle 4 estrazioni successive a quella del 10/10/26 si fosse verificato l'uscita del 23, non tanto per se fosse uscito, in quanto era ll'unico con 6 uscite e mi era facile controllare) Il fatto però che di 23 ne tovo solo 5 . Può essere benissimo che io abbia l'archivio con qualche sbaglippure che nell'estraz. del 4/11/25 (10747) questa: 65.23.67.5.72 però qui è solo un abbinamento, quindi ha conteggioato pure questo '23' ? Stessa cosa me la fa col num pronosticato 17 dice 5 sortite ma io ne trovo 4+ una in abbinamento estraz 26/6/2026 (10881) 65.29.05.52.17

​

 

[Edoardo_95]

Il dettaglio che hai individuato è utile, ma la presenza del 5 nella stessa estrazione del 23 o del 17 non basta per escluderla dal conteggio.

La funzione non conta gli abbinamenti nell’estrazione della spia, ma quell’estrazione può essere uno dei tre concorsi successivi a una spia precedente.

Per esempio:
Nell’estrazione 10747, il 23 viene contato se il 5 era già uscito su Roma in almeno una delle estrazioni 10744, 10745 o 10746.

Il 5 presente nella 10747 avvia invece una nuova finestra sui concorsi successivi.

Nell’estrazione 10881, il 17 viene contato se il 5 era uscito in almeno una delle estrazioni 10878, 10879 o 10880.

Se nei tre concorsi precedenti ci sono due uscite della spia, quel numero viene contato due volte: ogni spia apre una ricerca indipendente.

Quindi non presumerei un errore nel tuo archivio. Prima controllerei queste estrazioni precedenti: potrebbero spiegare esattamente quell’occorrenza in più. Se invece non contengono il 5, quelle due estrazioni non dovrebbero contribuire al conteggio e bisogna approfondire il confronto.

C’è anche una piccola differenza nell’intervallo: con fine = 10942, l’istruzione inizio = fine - 199 restituisce 10743, non 10744. Lo script esamina quindi 200 concorsi inclusi gli estremi.

Per analizzare precisamente 10744–10942, puoi impostare:
Dim inizio = 10744
Dim fine = 10942
Con questi estremi uguali e contando separatamente le finestre di ogni spia, il confronto con Excel deve coincidere.