NUOVO AMBIENTE SCRIPT AREA TECNICA

giomi · 17 Marzo 2023

errore mio

giomi · 17 Marzo 2023

errore mio

LuigiB · 17 Marzo 2023

io ho notato la differenza che è pieno di campi a 0 , il programam vede quanti numeri ci sono nella riga . .e li confronta con quelli che hai scritto tu , ta l'altro che mi risulti a me la max pos per statisticadovrebeb esser 6

giomi · 17 Marzo 2023

ciao luigi ,
scusa , ma mi semBra che l' impostazione sia giusta .
questa e una linea dell 'archivio

Codice:

16/03/2023 00:00:00; DATA ORA
0000032; INDICE ANNUALE
0000007; INDICE MENSILE
0000000; INDICE GIORNALIERO
25;28;36;45;48;86;50;51; ESTRATTI = 8 RUOTE = 1 ( 8 )
00;00;00;00;00; ESTRATTI VUOTI= 5 RUOTE = 1  ( 13 )
00;00;00;00;00; ESTRATTI VUOTI= 5 RUOTE = 1  ( 18 )
00;00;00;00;00; ESTRATTI VUOTI= 5 RUOTE = 1  ( 23 )
00;00;00;00;00; ESTRATTI VUOTI= 5 RUOTE = 1  ( 28 )
00;00;00;00;00; ESTRATTI VUOTI= 5 RUOTE = 1  ( 33 )
00;00;00;00;00; ESTRATTI VUOTI= 5 RUOTE = 1  ( 38 )
00;00;00;00;00; ESTRATTI VUOTI= 5 RUOTE = 1  ( 43 )
00;00;00;00;00; ESTRATTI VUOTI= 5 RUOTE = 1  ( 48 )
00;00;00;00;00; ESTRATTI VUOTI= 5 RUOTE = 1  ( 53 )
00;00 ESTRATTI VUOTI= 2 RUOTE = 1  ( 55 )

QUESTO E DEL LOTTO

24/01/2023 00:00:00; DATA ORA
0000010; INDICE ANNUALE
0000010; INDICE MENSILE
0000000; INDICE GIORNALIERO
78;09;84;86;15; ESTRATTI = 5 RUOTE = 1 ( 5 )
75;78;56;30;82; ESTRATTI = 5 RUOTE = 2 ( 10 )
20;64;36;53;78; ESTRATTI = 5 RUOTE = 3 ( 15 )
34;14;17;29;56; ESTRATTI = 5 RUOTE = 4 ( 20 )
35;17;74;90;25; ESTRATTI = 5 RUOTE = 5 ( 25 )
35;11;23;37;74; ESTRATTI = 5 RUOTE = 6 ( 30 )
27;57;37;02;68; ESTRATTI = 5 RUOTE = 7 ( 35 )
86;63;64;54;32; ESTRATTI = 5 RUOTE = 8 ( 40 )
22;67;33;13;11; ESTRATTI = 5 RUOTE = 9 ( 45 )
48;87;02;82;85; ESTRATTI = 5 RUOTE = 10 ( 50 )
39;19;34;21;37  ESTRATTI = 5 RUOTE = 11 ( 55 )

LuigiB · 17 Marzo 2023

non ci deve essere nessun estratto vuoto

giomi · 17 Marzo 2023

PER ESTRATTO VUOTO INTENDO "00"

rubino2 · 17 Marzo 2023

non si vede niente

postati male, li tolgo

giomi · 17 Marzo 2023

questa e un estrazione lotto con estratti che intendo vuoti

Codice:

07/01/1871 00:00:00; DATA ORA
0000001; INDICE ANNUALE
0000001; INDICE MENSILE
0000000; INDICE GIORNALIERO
00;00;00;00;00; ESTRATTI VUOTI = 5 RUOTE = 1 ( 5 )
00;00;00;00;00; ESTRATTI VUOTI = 5 RUOTE = 2 ( 10 )
15;71;18;64;81; ESTRATTI = 5 RUOTE = 3 ( 15 )
00;00;00;00;00; ESTRATTI VUOTI =  = 5 RUOTE = 4 ( 20 )
63;69;56;09;55; ESTRATTI = 5 RUOTE = 5 ( 25 )
36;22;73;24;31; ESTRATTI = 5 RUOTE = 6 ( 30 )
72;58;86;77;14; ESTRATTI = 5 RUOTE = 7 ( 35 )
42;33;20;18;79; ESTRATTI = 5 RUOTE = 8 ( 40 )
02;09;63;27;04; ESTRATTI = 5 RUOTE = 9 ( 45 )
29;52;31;80;07; ESTRATTI = 5 RUOTE = 10 ( 50 
00;00;00;00;00  ESTRATTI VUOTI =  = 5 RUOTE = 11 ( 55 )

LuigiB · 17 Marzo 2023

nelal riga ci sono x numeri che devono combaciare a quelli che imposti , ce siano a 0 o maggiri non cambia niente , il file deveessere pulito

giomi · 17 Marzo 2023

apuunto ci sono
ruote 1
numeri per ruota 8
numeri giocabili 90
max postatistica 8

happy · 17 Marzo 2023

lotto_tom75 ha scritto:
Spettacolare happy! Grazie

Volendo fare il pignolo... avrei notato solo una piccola incongruenza e se possibile vorrei poterla risolvere ovvero la linea degli incrementi nel grafico parte dal valore -63 cioè dal 2° valore del rispettivo vettore incrementi di esempio... mentre dovrebbe in realtà partire dal valore -4 (primo valore dell'array). Ho provato e riprovato a sistemarla ma senza esito. Tu ci riesci? Credo proprio di si a giudicare dalla tua abilità anche con i grafici Complimenti e grazie di nuovo happy. Domani proverò ad implementare questa tua soluzione grafica di incmax di terzo tipo in qualche script relativo... e se riuscirò vi posterò il relativo code e output di esempio di grafico incmax di 3° tipo ottenuto in run time

Ciao Tom

, vedi se va bene cosi.

Codice:

Option Explicit
Sub Main
   Call DisegnaGraficoIncrRitMax
End Sub
Sub DisegnaGraficoIncrRitMax
   Dim k
   Dim aRit
   Dim aIncrRit
   aRit = Array(79,75,12,100,550,440,62,31,39,27,259,132,77,186,167,244,38,220,217,45,18,362,310,90,39,53,68,70,194,211,21,132,4,253,300,447,99,34,17,29,233,202,167,90,137,307,6,161,3,238,52,245,20,35,53,147,30,150,104,170,32,492,40,142,94,303,155,143,63,99,5,13,15,13,40)
   aIncrRit = Array(- 4,- 63,88,450,- 110,- 378,- 31,8,- 12,232,- 127,- 55,109,- 19,77,- 206,182,- 3,- 172,- 27,344,- 52,- 220,- 51,14,15,2,124,17,- 190,111,- 128,249,47,147,- 348,- 65,- 17,12,204,- 31,- 35,- 77,47,170,- 301,155,- 158,235,- 186,193,- 225,15,18,94,- 117,120,- 46,66,- 138,460,- 452,102,- 48,209,- 148,- 12,- 80,36,- 94,8,2,- 2,27,- 27)
  
   Call PreparaGrafico("INCREMENTI",0,UBound(aRit) + 1,MinimoV(aIncrRit),MassimoV(aRit),1,20)
   ReDim aVrit(UBound(aRit),2)
   ReDim aVincr(UBound(aIncrRit),2)
   For k = LBound(aRit) To UBound(aRit)
      aVrit(k,1) = k + 1
      aVrit(k,2) = aRit(k)
      aVincr(k,1) = k + 1
      aVincr(k,2) = aIncrRit(k)
   Next
   Call DisegnaLineaGrafico(aVrit,vbBlue,"RitMax")
   Call DisegnaLineaGrafico(aVincr,vbRed,"IncrRitMax")
   Call InserisciGrafico
End Sub

Un saluto a tutti.

LuigiB · 17 Marzo 2023

LuigiB · 17 Marzo 2023

aggiornamento smess per alcune discrepanze nella visualizzazione delle estrazioni e del tabellone analitico se si utilizza larchivio superenalotto

LuigiB · 17 Marzo 2023

LuigiB · 17 Marzo 2023

aggiornamento smess

giomi · 17 Marzo 2023

ciao , ho risolto il dilemma , ed ho visto gli aggiornamenti ,
forse mi aveva tratto in inganno questa risposta

giomi ha scritto:
ciao,intanto auguri per il proseguimento dell' iniziativa(spero)
una domanda , gli archvi , in formato csv , devo essere in formato diciamo standard ,

Codice:

(dataora;indiceAnnuale;IndiceMensile;IndiceGiornaliero) = 4 + (n1;..;N55) = quantita dei numeri p.es 55 - 1 perche la funzione split torna un array che parte da 0

quindi per altri ipoteci giochi , l' archivio dovra contenere sempre lo stesso numero di parametri ,
quindi i dati non presenti dovranno esssere sosituiti da 0 (zero) , e/o da 00 (doppio zero)?

LuigiB ha scritto:
rispondendo a Giomi , in caso il tale valore non sia presente si puoò mettere 0 oppure omettere in pratica 2 separatori consecutivi con nessun valore in mezzo

ma comunque grazie e scusami per la mia insolenza

giomi · 17 Marzo 2023

cancello i messaggi inutili, visto che e' stata un mio sbaglio ,
grazie di nuovo

Mike58 · 17 Marzo 2023

Ho settato l'archivio SuperEnalotto e con le dovute accortezze Gli script per il lotto sono anch'essi utilizzabili per il superEnalotto e funzionanti nei codici.
Attendo comunque altre verifiche.

P.s. sono riuscito anch'io a creare qualche script con il Form ( grazie Rubino , ho un pochetto scopiazzato il tuo ) , ma ci vuole ancora tempo per aver la padronanza per questo nuovo progetto.

Un saluto a tutti.

lotto_tom75 · 17 Marzo 2023

happy ha scritto:

Ciao Tom

, vedi se va bene cosi.

Codice:

Option Explicit
Sub Main
   Call DisegnaGraficoIncrRitMax
End Sub
Sub DisegnaGraficoIncrRitMax
   Dim k
   Dim aRit
   Dim aIncrRit
   aRit = Array(79,75,12,100,550,440,62,31,39,27,259,132,77,186,167,244,38,220,217,45,18,362,310,90,39,53,68,70,194,211,21,132,4,253,300,447,99,34,17,29,233,202,167,90,137,307,6,161,3,238,52,245,20,35,53,147,30,150,104,170,32,492,40,142,94,303,155,143,63,99,5,13,15,13,40)
   aIncrRit = Array(- 4,- 63,88,450,- 110,- 378,- 31,8,- 12,232,- 127,- 55,109,- 19,77,- 206,182,- 3,- 172,- 27,344,- 52,- 220,- 51,14,15,2,124,17,- 190,111,- 128,249,47,147,- 348,- 65,- 17,12,204,- 31,- 35,- 77,47,170,- 301,155,- 158,235,- 186,193,- 225,15,18,94,- 117,120,- 46,66,- 138,460,- 452,102,- 48,209,- 148,- 12,- 80,36,- 94,8,2,- 2,27,- 27)
 
   Call PreparaGrafico("INCREMENTI",0,UBound(aRit) + 1,MinimoV(aIncrRit),MassimoV(aRit),1,20)
   ReDim aVrit(UBound(aRit),2)
   ReDim aVincr(UBound(aIncrRit),2)
   For k = LBound(aRit) To UBound(aRit)
      aVrit(k,1) = k + 1
      aVrit(k,2) = aRit(k)
      aVincr(k,1) = k + 1
      aVincr(k,2) = aIncrRit(k)
   Next
   Call DisegnaLineaGrafico(aVrit,vbBlue,"RitMax")
   Call DisegnaLineaGrafico(aVincr,vbRed,"IncrRitMax")
   Call InserisciGrafico
End Sub

Vedi l'allegato 2255710
Un saluto a tutti.

Grandissimo happy

Anche io con la dritta di giomi sono riuscito a risolvere il problema del primo valore. Ma a differenza tua ancora io non ho messo i ritardi... (anche se in realtà non sono essenziali dal punto di vista operativo). Ad ogni modo sono riuscito ad implementare il grafico nei risultati dinamici di incmax doc di terzo tipo come avevo anticipato e presto condividerò il tutto nella tom's bakery sperando poi di riuscire a rifare l'intero script... anche in twinbasic...

Un piccolo assaggio dell'implementazione...

RILEVATO CASO TEORICAMENTE OTTIMALE! by analisi di 117480 terzine x A in c3 su TT
30.47.88 - TT -s 2 -ra 64 -rs 64 -incmax 2 -freq 148 -inizio 8117 -fine 10212 classe 3 (segue relativo grafico dinamico)

incrementi e decrementi passati... .48.-36.-24.31.-23.34.-41.1.13.22.-36.10.-1.-12.24.-13.-11.5.0.13.-17.9.33.-38.7.-12.3.7.12.-3.-12.-7.13.-12.0.13.1.3.-16.5.8.16.-25.3.14.-10.0.-13.31.-8.-11.14.-8.-13.27.-15.-16.0.0.3.40.-37.-1.4.-10.42.-37.-5.9.-4.-3.1.16.-4.-1.-2.8.-15.-5.1.49.-31.-15.6.45.-45.-4.8.27.-38.3.9.-14.2.4.-1.30.12.-44.2.-3.3.-4.35.-32.8.28.-27.-2.-4.8.22.-16.-5.-9.-6.19.-7.-8.0.20.-22.6.-7.0.1.8.-6.10.-9.1.-6.-2.4.-2.4.2.2.34.-39.-1.2.9.49 classe 144
nValoreMinY -45
nValoreMaxY 49

Nessuna Certezza Solo Poca Probabilità

giomi · 17 Marzo 2023

LuigiB, perche' per il superenalotto , le statistiche avvengono solo su 6 numeri?

NUOVO AMBIENTE SCRIPT AREA TECNICA

Banned

Banned

LuigiB

Guest

Banned

LuigiB

Guest

Banned

Super Member >PLATINUM<

Banned

LuigiB

Guest

Banned

Super member

LuigiB

Guest

LuigiB

Guest

LuigiB

Guest

Allegati

LuigiB

Guest

Allegati

Banned

Banned

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Banned