Novità

Ambate per Statistica

Xeroxs

Super Member >GOLD<
Messaggi
238
Punti reazione
16
Punti
18
Buongiorno a Tutti,
In questi giorni ho valutato diverse cose oltre a rileggere alcuni dei listati per migliorare non solo nella compilazione dello script ma anche per ricerche mirate.

Ho preparato uno script che parte da una condizione base che può essere qualunque cosa da un numero isotopo o da un ambo ripetuto su due Ruote, in questo caso parto da una semplice somma tra gli estratti che possono essere qualunque del quadro estrazionale, bene io mi sono calcolato 7 ambate date da operazioni diverse in modo da ricercare quale tra queste possa essere la migliore o le migliori.

E quì ho bisogno dei migliori tra di Voi che mi possano aiutare creando una tabella o qualcosa di simile che mi permette di valutare quali sono i migliori estratti per ambata o abbinamenti per convergenze.

Mi spiego con un esempio
in questo listato parto da una somma alla ultima del mese prendo 2 estratti e li sommo tra di loro, ricavo il numero base e da quì calcolo tutte le varie scelte fatte.

in questo esempio preso dallo script ricavo :

29.08.2020 ---> 13° Estrazione Mensile
Ambate da Mettere in gioco: 72-22-72-63-09-54-42

Numero Base per i calcoli di Ambata 27
72 Diametrale
22 Diametrale in Decina
72 Vertibile
63 Complemento a 90
09 Figura
54 Il Doppio del Numero Base
42 Sommativo + 15


bene da quì mi piacerebbe avere una tabella che evidenzi quali di questi calcoli risulta il migliore o meglio almeno 2 che nei mesi precedenti hanno dato una copertura totale per esito di ambata, ad esempio risultano buone il diametrale in decina ed il vertibile per presenza nei mesi precedenti su Bari o altra ruota o ruote scelte.

Se fattibile potrebbe essere utile non solo per me ma anche per altri utenti per ricerche più attendibili.

Ad esempio avere nella tabella magari scegliendo le Ruote o anche tutte le Ruote e indicare se hanno dato esito positivo o meno

elencando le varie condizioni di calcolo in orizzontale, ed in verticale avere le varie ruote con un qualcosa che mi evidenzi l'esito del calcolo per le vari condizioni, spero di essere stato chiaro .
Sperando che qualcuno possa avere l'idea per aiutarmi in queste mie valutazioni puramente statistiche

Vi allego Lo Script:

Codice:
Sub Main()
   Dim A,B,C,D,E,F,G,n1,n2,n3
   Dim ruote(3),Ambate(10),Ambi1(2),Ambi2(2),posta(1),poste(2)
   posta(1) = 1 : poste(2) = 1
   Scrivi String(16," ") & "****** Metodo - Test Per Ambate Migliori - Versione.1.0 ****** ",1
   Scrivi String(30," ") & "** Sommativo Per Indice Mensile ** ",1
   Scrivi String(36," ") & "****** By Xeroxs ****** ",1
   Scrivi
   ColoreTesto 1
   fin = EstrazioneFin
   ini = fin - 90 ' Quì modifichi quante estrazioni a Ritroso controllare
   For es = ini To fin
      'If IndiceMensile(es) = 1 Then
      If IsUltimaDelMese(Es) Then ' Questo se Usi Ultima del mese
         AvanzamentoElab ini,fin,es
         '-------------------------------------------------------------------------- Ruote di Gioco in Fase di Test
         ruote(1) = BA_ ' Ruota Migliore in Fase di Test
         'ruote(1) = CA_
         'ruote(1) = FI_
         '--------------------------------------------------------------------------  Quì scelgo la condizione o Gli Estratti
         n1 = Estratto(es,BA_,1)
         n2 = Estratto(es,BA_,5)
         '-------------------------------------------------------------------------- Quì Eseguo i calcoli del o per il Numero base
         n3 = Fuori90(Estratto(es,BA_,1) + Estratto(es,BA_,5))
         'n4 = Fuori90(Estratto(es,GE_,1) + Estratto(es,MI_,5))
         '--------------------------------------------------------------------------  Ambate
         A = Diametrale(n3)
         B = DiametraleD(n3)
         C = Vert(n3)
         D = ComplAdX(n3) ' Complemento a 90
         E = Figura(n3)
         F = Fuori90(2*(n1 + n2))
         G = Fuori90(n3 + 15) ' Al Numero Isotopo aggiungiamo un Fisso
         '-------------------------------------------------------------------------- Ambi Eventualmente da definire
         'Ambi1(1) = Ambate(1) : Ambi1(2) = Ambate(4)
         'Ambi2(1) = Ambate(2) : Ambi2(2) = Ambate(3)
         '--------------------------------------------------------------------------
         Ambate(1) = A : Ambate(2) = B : Ambate(3) = C : Ambate(4) = D : Ambate(5) = E : Ambate(6) = F : Ambate(7) = G
         'EliminaRipetuti(Ambate) ' Non so se utilizzare questa Funzione
         '--------------------------------------------------------------------------
         casi = casi + 1
         co = co + 1
         ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
         Scrivi "Test",1
         ColoreTesto 1:Scrivi DataEstrazione(es) & " ---> " & IndiceMensile(es) & "° Estrazione Mensile" & Chr(10) & _
         "Ambate da Mettere in gioco: " & Format2(Ambate(1)) & "-" & Format2(Ambate(2)) & "-" & Format2(Ambate(3)) & "-" & Format2(Ambate(4)) & "-" & Format2(Ambate(5)) & "-" & Format2(Ambate(6)) & "-" & Format2(Ambate(7)),1
         'ColoreTesto 1:Scrivi "Ambi da Mettere in gioco:  " & " " & Format2(nu(1)) & "-" & Format2(nu(4)) & " " & Format2(nu(2)) & "-" & Format2(nu(3)),1
         Scrivi "Numero Base per i calcoli di Ambata " & Format2(n3)
         Scrivi Format2(A) & " Diametrale "
         Scrivi Format2(B) & " Diametrale in Decina "
         Scrivi Format2(C) & " Vertibile "
         Scrivi Format2(D) & " Complemento a 90 "
         Scrivi Format2(E) & " Figura "
         Scrivi Format2(F) & " Il Doppio del Numero Base "
         Scrivi Format2(G) & " Sommativo + 15 "
         Scrivi
         ColoreTesto 0
         ImpostaGiocata 1,Ambate,ruote,posta,13,0 ' Quì imposti i colpi di gioco per l'ambata
         'ImpostaGiocata 2,Ambi1,ruote,poste,13,0 ' Quì imposti i colpi di gioco per il Primo Ambo
         'ImpostaGiocata 3,Ambi2,ruote,poste,13,0 ' Quì imposti i colpi di gioco per il Secondo Ambo
         Gioca es
      End If
   Next
   ScriviResoconto
End Sub

RingraziandoVi , sempre e Comunque.
 

joe

Advanced Member >PLATINUM<
Messaggi
1.332
Punti reazione
145
Punti
63
Ciao non vorrei sembrare scortese ... a non rispondere e più scortese ancora nel rispondere.

ma ...

Quando viene estratto un numero si suppone sia a caso o casuale.

Un secondo (terzo,quarto,quinto numero) è anch'esso casuale.

La somma, la differenza, la moltiplicazione può essere un risultato non casuale ?

Secondo me no.

Altrimenti sarebbe come dire che sommando il primo e l'ultimo estratto

si ottiene "sempre" (o più soventemente del solito) 91.

Io piuttosto formulerei un teorema inverso del tipo:

La somma di due numeri a caso è un numero a caso.

Ergo per giocare un numero a caso "è meglio" sia il più casuale possibile.

Cioè veramente a caso.

Ancor meglio se è un caso unico.

E per paradosso è più casuale sempre lo stesso ... piuttosto che sempre la stessa somma.

Perché per esempio la somma di 2 gemelli non ha un risultato del tutto casuale.

Ma questa somma appartiene a numero molto ristretto rispetto a 90.

Cioè può essere solo un gemello.

Ma ... sottolineando il ma sono opinioni personali.

Al dunque, se hai -enne- risultati predisponi -enne- variabili

Cadenze Dim CD
Decine Dim DC
Figure Dim FG
Complemento Dim CM ecc.

aumenti di 1 tutte le volte che hai un risultato in CD DC FG CM

Ad esempio CM = CM + 1

Alla fine CD DC FG CM conterranno naturalmente valori differenti.

:)
 

Xeroxs

Super Member >GOLD<
Messaggi
238
Punti reazione
16
Punti
18
Ciao, joe
Sempre originale nelle tue risposte.
Non sono uno che si offende se non si riceve una risposta, o se la riceve magari è una critica, ho deciso di partecipare a questo forum per imparare a tirar fuori grazie al programma alcune idee che se sviluppate a mano portano via del tempo, anche se per me e sempre bene fare le ricerche o studi scritti a mano perché aiutano a veder meglio le cose, ma a parte questo il programma o meglio gli script aiutano molto nelle ricerche, che siano calcoli o statistiche, ovvio potrei utilizzare il listato per ogni condizione da me ipotizzata, ora ho imparato a scrivere e modificare lo script, e seguendo i vostri consigli cercherò di scriverli meglio.
Qui non pretenderò mai nulla, chiedo gentilmente in questo caso ai migliori, perché penso che certe cose non sono alla portata di tutti, e spero che se qualcuno trovi del tempo possa aiutarmi a sviluppare le mie idee con uno script, purtroppo le tabelle o qualcosa di questo tipo al momento non sono "ancora" alla mia portata.

Ho visto e letto che nel passato qualcuno si arrabbiava se non si rispondeva alla loro richiesta ed ho notato che alcuni degli "scripters" ci restavano male, come se postare una richiesta fosse un poi un obbligo da parte vostra rispondere, così facendo hanno minato la vostra voglia di aiutare chi davvero poi non sa fare certe cose o ha solo voglia di imparare, ed è palese che qualcuno copia soltanto, ma questo purtroppo rispecchia molti aspetti della nostra società dove ci sono delle regole non scritte del reciproco rispetto che molti davvero molti non applicano, come diceva Totò signori si nasce e se si vedono delle sue interviste, si capisce che lo pensava davvero, ed era un signore nel vero senso della parola, ci sono persone che si limitano a vedere Totò attore, ma se lo vedi da un aspetto diverso emerge altro.
Io non giudico mi limito a cercare un aiuto per migliorare in quella che per me è una passione "i numeri" che studio da molti anni e mi piacerebbe poter vedere e capire il comportamento di certi numeri nel tempo " statistico" in questo caso sul loro vissuto, perché sono pienamente convinto che statistica non è certezza di vincita come un metodo positivo per anni non è eterno, ma sono alla ricerca di possibilità come gli script che in questo mi aiutano a sviluppare in modo diverso e concreto le mie idee.
Grazie joe.
Consigli, critiche, osservazioni sono uno spunto per non restare fermi per migliorarsi.
 

joe

Advanced Member >PLATINUM<
Messaggi
1.332
Punti reazione
145
Punti
63
Ok ... tutto bene.

La tabella naturalmente, deve essere riempita e per essere riempita,

si deve poter disporre dei dati per infarcirla.

Secondo me ci sono degli "equilibri" entro cui muoversi.

Provo a spiegarmi con un esempio

Se devo scrivere le 10 ruote meglio se scrivo :

For R = 1 To 10
Scrivi NomeRuota(R)
Next

Perché scrivo meno codice di quanto siano 10 righe.

Senza doverle mettere in ordine alfabetico, non dimenticarne qualcuna ...

e scriverle senza errori.

Se invece ho solo da elencare una o due ruote, non è opportuno,

scrivere un ciclo For-Next per questo.

Allo stesso modo per organizzare una tabella sono necessarie

diverse istruzioni se poi ci sono solo 3 o 4 dati secondo me

è meglio organizzarli a livello di output testuale dallo script.

Con scrivi.

Perché la tabella costituisce "un dispendio grande" rispetto al risultato.

Per costruire una tabella e per sommi capi ci vuole

un array contenente i titoli delle colonne

e con questo array si inizializza Call InitTabella (aTitoli)

poi si utilizza un Array per i Valori di ogni riga (aValori)

Si inseriscono, una ad una le righe della tabella, con i valori di ogni casella.

Call AddRigaTabella (aValori)

e quando si sono aggiunte (con add) tutte le righe.

Si può dar concretezza a questa famosa tabella con:

Call CreaTabella.

:)
 

Xeroxs

Super Member >GOLD<
Messaggi
238
Punti reazione
16
Punti
18
Grazie joe,
Apprezzo molto il tuo intervento e cercherò di analizzarne i vari punti esposti, utili per questo percorso.
 

joe

Advanced Member >PLATINUM<
Messaggi
1.332
Punti reazione
145
Punti
63
Qui di seguito,

c'è un piccolo script che espone in tabella i ritardi di tutti gli ambi-gemellari,

nelle 10 ruote ed il totale di questi 10 ritardi.

L'ho scritto per concretizzare con un esempio quanto veloce è lo script,

nel realizzare una tabella corposa, al confronto di un lavoro che

eseguito con carta e penna e comunque con l'aiuto di un Pc ... richiederebbe, ore ed ore.

Dal "concepimento" ... alla realizzazione (che è la fase più lunga)

ed il calcolo del risultato, (dopo le correzioni) per sommi capi sono 10 minuti.

Senza nessuna pretesa.

Come ho scritto è una idea giusto per dare un esempio.

Codice:
Option Explicit
Sub Main
   Dim aTitoli(13),aRitardi(13)
   Dim A,B,K,R,Rit,Tot
   aTitoli(1) = " N° "
   aTitoli(2) = " AMBO "
   Scrivi "Ritardo Ambo Gemellare By Joe",True
   For R = 1 To 10
      aTitoli(R + 2) = Space(1) & UCase(SiglaRuota(R)) & Space(1)
   Next
   aTitoli(13) = " TOT "
   Call InitTabella(aTitoli)
   For A = 11 To 77 Step 11
      For B = A + 11 To 88 Step 11
         K = K + 1
         Tot = 0
         aRitardi(1) = K
         aRitardi(2) = A & "." & B
         For R = 1 To 10
            Rit = AmboRitardoTurbo(R,A,B)
            aRitardi(R + 2) = Rit
            Tot = Tot + Rit
         Next
         aRitardi(13) = Tot
         Call AddRigaTabella(aRitardi)
      Next
   Next
   Call CreaTabella
End Sub
:)
 
Ultima modifica:

Xeroxs

Super Member >GOLD<
Messaggi
238
Punti reazione
16
Punti
18
Grazie Joè,
Ottima Tabella, Comincerò a studiarne la sua esecuzione per capire la sua composizione impostando titoli e valori da esporre. un ottimo spunto per studiare ed iniziare.
Scusa se Ti rispondo solo ora, visto ieri ma non avevo PC operativo.

Grazie ancora.
 

joe

Advanced Member >PLATINUM<
Messaggi
1.332
Punti reazione
145
Punti
63
Aggiungo un paio di cose che reputo importanti,

al fine di rendere anche più completo il mio intervento.

Visto come creare una tabella ...

nelle versioni più aggiornate di Spaziometria, LuigiB,

accogliendo anche un mio suggerimento ha modificato

ed aumentato la possibilità di ordinare le colonne.

Vi è poi un terzo array utilizzabile per cambiare il formato visivo

dei contenuti delle celle. Utile per esempio per distinguere i titoli,

oppure per porre in evidenza celle con valori interessanti,

perciò degni di essere posti in evidenza.

A seguito di queste altre possibilità ...

E' evidente che la tabella risulterà ancora più completa.

A discapito di una elaborazione più lenta.

Per fornire anche qui un piccolissimo esempio

sul come poter ordinare i risultati.

Per esempio quelli della "Colonna13"

che qui è la somma dei ritardi nelle 10 ruote,

è sufficiente cambiare la penultima riga dello script.

Ordinando così al computer di rendere ordinabile la tabella con

Call CreaTabellaOrdinabile (13,0)

I dati dovrebbero apparire già ordinati ma aggiungo che cliccando

sul titolo di OGNI colonna i ritardi saranno ordinati in quella colonna.

Così pure ri-cliccando la stessa colonna cambierà il verso dell'ordinamento,

che dall'essere dal più grande al più piccolo a

dal più piccolo al più grande

e viceversa.

:)
 

Xeroxs

Super Member >GOLD<
Messaggi
238
Punti reazione
16
Punti
18
Ciao, joe
Grazie anche per questi ultimi consigli.
Vedrò cosa riuscirò a tirar fuori...
 

Xeroxs

Super Member >GOLD<
Messaggi
238
Punti reazione
16
Punti
18
Buongiorno Joe, e a Tutti gli altri
Eccomi qui ad esporre quanto sono riuscito a creare, generare seguendo i consigli preziosi di Joe e leggendodove riuscivo a trovare qualcosa in merito a tabelle, array ed altro in modo da poter iniziare da una base per poter poi iniziare la creazione effettiva della tabella, ammetto di avere ancora molte difficoltà nel comprenderne appieno legami tra codici righe, calcoli da generare e poi inserirli nella giusta posizione in tabella, avrei voluto crearla in verticale per poter meglio visualizzare i dati nelle varie singole ruote ma purtroppo non ci sono riuscito in nessun modo, così raccogliendo quanto è pù avessi compreso ho generato la mia Tabella per Ogni Ruota in modo da vedere se riesco a trovare nei vari calcoli generati alcune possibilità di ricerca per le ambate, partendo da un numero base.

Intanto espongo dove mi sono perso:

iniziamo da questa parte del listato sulla scelta delle Ruote, in quanto avrei voluto con un input scegliere magari solo alcune ruote, ma penso che dopo tante "per me ore" ho perso lucidità e concentrazione per poterlo fare così sono arrivato a creare questo

For ruota = 1 To 11 ' Per Ciascuna Ruota
If ruota = 11 Then ruota = 12 '
ru(1) = ruota ' Vedo Esiti per Ciascuna Ruota
'ru(1) = 11 'Vedo Esiti su TT
'ru(1) = NZ_ ' Vedo una Singola Ruota Scelta

ma poi anche se ho lasciato le cose in questo modo almeno sono riuscito ad avere un out dei dati creati e generati.

Quì invece avrei voluto se ci fossi riuscito ad utilizzare questa

'ReDim Preserve ambata(i)
'ReDim Preserve ambata(7)
ambata(1) = DM
ambata(2) = DMD
ambata(3) = VR
ambata(4) = C90
ambata(5) = FG
ambata(6) = DP
ambata(7) = SOM

in modo migliore per automatizzare le cose che chiedo e quindi genero.

questo è il mio listato forse lo troverete un pò laborioso o macchinoso, ma per me sono stati passi da gigante aver ottenuto questo risultato.

Codice:
Option Explicit
Sub Main
   Dim ru(10),ruota,T,V,id,estratti,clp
   Dim A,B,NB,DM,DMD,VR,C90,FG,DP,SOM,Ini,Fin,Es
   ReDim ambata(7)
   ambata(7) = Es
   For ruota = 1 To 11 ' Per Ciascuna Ruota
      If ruota = 11 Then ruota = 12 '
      ru(1) = ruota ' Vedo Esiti per Ciascuna Ruota
      'ru(1) = 11 'Vedo Esiti su TT
      'ru(1) = NZ_ ' Vedo una Singola Ruota Scelta
      Fin = EstrazioneFin
      Ini = Fin - 200 ' Quì modifichi quante estrazioni a Ritroso controllare
      ColoreTesto 1
      Scrivi "Estrazione inizio.................... " & GetInfoEstrazione(Ini),3,2
      Scrivi "Estrazione fine...................... " & GetInfoEstrazione(Fin),3,2
      Scrivi "Ruota di rilevamento Calcoli......... " & NomeRuota(ruota),3,2
      Scrivi "Ruote di gioco....................... " & NomeRuota(ru(1)),3,2
      Scrivi
      Scrivi "Numero Base per i calcoli di Ambata = il 1° Estratto di Bari + il 5 Estratto di Bari",3,2
      T = Array(T,"ID Estraz.","Data","Calcolo","N° Base","Diametrale","Diam.In Dec.","Vert.","Compl. A 90","Figura","Doppio","Sommativo"," Ruota Per Verifica ambata","Colpo")
      Call InitTabella(T,,,3,2)
      For Es = Ini To Fin
         If IsUltimaDelMese(Es) Then
         'If IndiceMensile(Es) = 1 Then
                  AvanzamentoElab Ini,Fin,Es
                  '--------------------------------------------------------------------------  Quì scelgo la condizione o Gli Estratti
                  A = Estratto(Es,BA_,1)
                  B = Estratto(Es,BA_,5)
                  '-------------------------------------------------------------------------- Quì Eseguo i calcoli del o per il Numero base
                  NB = Fuori90(Estratto(Es,BA_,1) + Estratto(Es,BA_,5))
                  'n4 = Fuori90(Estratto(es,GE_,1) + Estratto(es,MI_,5))
                  '--------------------------------------------------------------------------  Ambate
                  DM = Diametrale(NB)
                  DMD = DiametraleD(NB)
                  VR = Vert(NB)
                  C90 = ComplAdX(NB) ' Complemento a 90
                  FG = Figura(NB)
                  DP = Fuori90(2*(A + B)) ' Il Doppio del Numero Base
                  SOM = Fuori90(NB + 15) ' Al Numero Isotopo aggiungiamo un Fisso
                  '--------------------------------------------------------------------------
                  'ReDim Preserve ambata(i)
                  'ReDim Preserve ambata(7)
                  ambata(1) = DM
                  ambata(2) = DMD
                  ambata(3) = VR
                  ambata(4) = C90
                  ambata(5) = FG
                  ambata(6) = DP
                  ambata(7) = SOM
            Call VerificaEsito(ambata,ru,Es + 1,1,13,,,clp,estratti,id)
            V = Array(V,Es,DataEstrazione(Es),A & " + " & B,NB,(ambata(1)),(ambata(2)),(ambata(3)),(ambata(4)),(ambata(5)),(ambata(6)),(ambata(7)),estratti,clp)
            Call AddRigaTabella(V,,,3)
         End If ' Chiude Indice
      Next
      Scrivi
      CreaTabella
      'CreaTabellaOrdinabile
   Next
End Sub

Ora vorrei migliorare la possibilità di visualizzare meglio i dati, ottenuti, come ad esempio evidenziare in numero uscito nella colonna dei calcoli o qualcosa che mi permette di capire quali sono le ambate migliori per avere una buona copertura nelle presenze nei mesi precedenti.

No so se qualcuno avrà voglia di aiutarmi, sempre che si possa fare sulla tabella che ho creato.

Penso di aver per il momento dato il massimo in questa nuova fase per la creazione delle tabelle, certo per mè è un enorme soddisfazione arrivare a questo punto, senza per questo volermi accontentare.

Sperando in un aiuto,

Vi Ringrazio comunque.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 26 settembre 2020
    Bari
    14
    86
    85
    68
    16
    Cagliari
    31
    45
    42
    79
    21
    Firenze
    74
    69
    10
    63
    35
    Genova
    67
    32
    79
    36
    66
    Milano
    89
    59
    36
    77
    90
    Napoli
    58
    33
    06
    18
    56
    Palermo
    30
    19
    62
    90
    17
    Roma
    33
    70
    35
    75
    21
    Torino
    15
    20
    57
    21
    35
    Venezia
    36
    29
    71
    15
    26
    Nazionale
    73
    02
    20
    72
    10
    Estrazione Simbolotto
    Palermo
    21
    07
    14
    16
    18
Alto