Novità

Solo Un Grafico E Una Domandina Per Adesso...

lotto_tom75

Advanced Premium Member
soloungraficoperadesso.jpg

Se Tu, che stai leggendo questo brevissimo thread..., dovessi scegliere... tra le due linee soprastanti... Per quale colore... propenderesti per una teorica maggiore stabilità predittiva indipendentemente dalla struttura di numeri, sorte e ruota relativa?
Blu o Rosso? E perchè? :unsure:🙄🧐🤓
 
Ultima modifica:

Zac

Advanced Premium Member
Ciao Tom
Io propenderei per quella rossa, perchè se non erro è l'incremento massimo del ritardo storico, ovvero la differenza tra il ritardo attuale e quello storico. Nel caso poi che questa differenza sia 0 si potrebbe tentare di puntare la previsione per uno o tre colpi,
Buon pomeriggio
 

Zac

Advanced Premium Member
A proposito se non sbaglio le ambate ad attesa minima che vengono riportate in una sezione di spaziometria sono basate proprio sulla teoria suddetta, infatti quando una coppia di queste ambate supera il ritardo storico precedente, non vengono più segnalate.
Ciao
 

lotto_tom75

Advanced Premium Member
Ciao Sasa, il colore che hai scelto e' giusto... La motivazione un pò meno... 😉 . Il superamento controllato... della diff0 fa si che si crei la linea rossa... i cui apici rappresentano i valori attuali e storici rispetto il range temporale di volta in volta analizzato 🕰👋🙂
 
Ultima modifica:
  • Like
Reactions: Zac

lotto_tom75

Advanced Premium Member
Continuando questo breve excursus sull'incmax...

breve-excursus-incmax.jpg


Chiedo agli eventuali interessati che seguono questo thread come Sasa, se questo nuovo grafico si riferisse ad una potenziale 6ina x A su ruota unica sarebbe interessante? :unsure: E sia che rispondiate si o no perchè ❓
 

Zac

Advanced Premium Member
Come tu sai non sono molto ferrato e lo dimostrato già nella precedente risposta. Però da quello che ho capito la potenziale sestina potrebbe essere interessante considerato che nel periodo analizzato i valori attuali e storici non hanno superato le 35 estrazioni
Buona serata
 

lotto_tom75

Advanced Premium Member
Come tu sai non sono molto ferrato e lo dimostrato già nella precedente risposta. Però da quello che ho capito la potenziale sestina potrebbe essere interessante considerato che nel periodo analizzato i valori attuali e storici non hanno superato le 35 estrazioni
Buona serata
Stavolta invece Sasa hai risposto del tutto correttamente 👍👌🙂. I valori attuali e storici ovviamente sono riferiti all'incmax e non al ritardo standard. [Continue...]
 
  • Like
Reactions: Zac

lotto_tom75

Advanced Premium Member
Se gli apici rossi si riferissero, in un range temporale ampio (es. dal 1871), ad un valore <= 10 anzichè maggiore (es. il 35 di prima) sarebbe interessante o meno? E perchè? Inoltre.. da cosa potrebbe dipendere, sempre secondo te che leggi questo thread, questo cambiamento di "comportamento" statistico della linea rossa? :unsure:;):)
 

Zac

Advanced Premium Member
Chiaramente sarebbe interessantissimo il perchè è chiaro visto il 35 di prima. Per quanto riguarda il cambiamento statistico, lo ritengo, a mio avviso, "semplicemente" del tutto normale. Una mia domanda ma gli apici rossi inferiori a 10 sono riferiti sempre alla medesima sestina?
Ciao Tom
 

lotto_tom75

Advanced Premium Member
Chiaramente sarebbe interessantissimo il perchè è chiaro visto il 35 di prima. Per quanto riguarda il cambiamento statistico, lo ritengo, a mio avviso, "semplicemente" del tutto normale. Una mia domanda ma gli apici rossi inferiori a 10 sono riferiti sempre alla medesima sestina?
Ciao Tom

No. Il cambiamento (abbassamento...) di livello degli apici rossi della domanda precedente non può essere riferito alla stessa condizione (classe sorte e ruota) del grafico precedente... Ma appunto da cosa potrebbe dipendere secondo te ❓ Aiutino: ci sono varie opzioni... ;) 👋🙂
 

Zac

Advanced Premium Member
Potrebbe essere riferito alla sorte 'estratto? Perchè il valore dieci mi sembra un po basso per ambo. A meno che non sia riferito a una decina o più
 

lotto_tom75

Advanced Premium Member
Potrebbe essere riferito alla sorte 'estratto? Perchè il valore dieci mi sembra un po basso per ambo. A meno che non sia riferito a una decina o più
Esattamente... hai appena elencato due delle n possibilità di abbassamento di livello incmax. Complimenti Sasa 👍👌👏 😉

Ovvero riportandole sotto:
Il valore di incmax e la sua teorica stabilità può essere notevolmente diminuito grazie alle seguenti procedure metodologiche ulteriori:

1) abbassamento della sorte di ricerca
2) aumento di classe della formazione di ricerca

Ma non solo...

Qualcuno/a altro/a, oltre al grande e attento Sasa, vuole provare a pensare ad altre opzioni che portino all'abbassamento quasi matematico di questo valore ingiustamente non considerato abbastanza? ;)
 
  • Like
Reactions: Zac

lotto_tom75

Advanced Premium Member
Visto che qui di volontari disposti a venire alla lavagna... 👨‍🏫:LOL: per proporre delle risposte al riguardo ce ne sono davvero pochi... :D oggi proseguo io... con l'elenco di altre possibilità di riduzione del valore incmax 👇☝️🤓

3) considerare + ruote unite
4) considerare lunghette base di partenza doc con parametri specifici doc


Al momento non me ne vengono altre in mente... Se e appena mi si paleseranno le aggiungerò a questa breve lista :)

Se a qualcuno/a oltre Sasa interessa l'argomento poi posterò anche uno scriptino che molti anni fa richiesi ai grandi Luigi e I legend, che saluto, e che appunto serve ad analizzare "manualmente" le situazione di incmax teoricamente ottimale a partire da una qualsivoglia propria micro,media o macro lunghetta ottenuta da un qualunque proprio sviluppo riduzionale predittivo. Così sarà possibile seguire anche per ognuno personalmente i vari eventuali futuri esempi analoghi ai precedenti postati sopra con tanto di dettagli parametrici relativi.
 

lotto_tom75

Advanced Premium Member
Nonostante attualmente il pubblico dei "like" e commenti... x questo thread con +500 visite sia piuttosto esiguo... :D Ecco lo scriptino menzionato sopra e realizzatomi su mia richiesta diversi anni fa dai grandi LuigiB e I legend, che risaluto e ringrazio, e che serve per analizzare qualsiasi formazione di classe da 1 a 90 dal punto di vista incmax ovvero appunto dalla specifica e interessante prospettiva dell'incremento massimo di ritardo protratto nel tempo... ;)

Codice:
Option Explicit 'mod
Class clsParStat
   Dim idEstr
   Dim RitMax
   Dim IncrRitMax
End Class
Sub Main
   Dim idEstr,Ruota,Sorte
   Dim Inizio,Fine
   Dim k,p,i,r,pMax
   Dim Rit,RitMax,IncRitMax,Fre
   Dim collStoria
   Dim cParStat
   Dim bEstrValida
   Set collStoria = GetNewCollection
   Inizio = EstrazioneIni
   Fine = EstrazioneFin
   ReDim aN(90)
   If ScegliFormazione(aN) Then
      ReDim aRuoteSel(12)
      Ruota = ScegliRuotaEx(aRuoteSel)
      Sorte = ScegliEsito
      If Ruota > 0 And Sorte > 0 Then
         For idEstr = Inizio To Fine
            If Ruota = 11 Then
               bEstrValida = False
               pMax = 0
               For r = 1 To 10
                  If Estratto(idEstr,r,1) > 0 Then bEstrValida = True
                  p = 0
                  For k = 1 To 5
                     If aN(Estratto(idEstr,r,k)) Then
                        p = p + 1
                     End If
                  Next
                  If p > pMax Then pMax = p
               Next
               If bEstrValida Then
                  If pMax >= Sorte Then
                     If IncRitMax > 0 Then
                        Set cParStat = New clsParStat
                        cParStat.idEstr = idEstr - 1
                        cParStat.RitMax = RitMax
                        cParStat.IncrRitMax = IncRitMax
                        collStoria.Add cParStat
                     End If
                     Rit = 0
                     Fre = Fre + 1
                     IncRitMax = 0
                  Else
                     Rit = Rit + 1
                     If Rit > RitMax Then
                        IncRitMax = IncRitMax + 1
                        RitMax = Rit
                     End If
                  End If
               End If
           
            ElseIf Ruota = 13 Then
               bEstrValida = False
               pMax = 0
               For r = 1 To 12
                  If aRuoteSel(r) Then
                     If Estratto(idEstr,r,1) > 0 Then bEstrValida = True
                     p = 0
                     For k = 1 To 5
                        If aN(Estratto(idEstr,r,k)) Then
                           p = p + 1
                        End If
                     Next
                     If p > pMax Then pMax = p
                  End If
               Next
               If bEstrValida Then
                  If pMax >= Sorte Then
                     If IncRitMax > 0 Then
                        Set cParStat = New clsParStat
                        cParStat.idEstr = idEstr - 1
                        cParStat.RitMax = RitMax
                        cParStat.IncrRitMax = IncRitMax
                        collStoria.Add cParStat
                     End If
                     Rit = 0
                     Fre = Fre + 1
                     IncRitMax = 0
                  Else
                     Rit = Rit + 1
                     If Rit > RitMax Then
                        IncRitMax = IncRitMax + 1
                        RitMax = Rit
                     End If
                  End If
               End If

            Else
               If Estratto(idEstr,Ruota,1) > 0 Then
                  p = 0
                  For k = 1 To 5
                     If aN(Estratto(idEstr,Ruota,k)) Then
                        p = p + 1
                     End If
                  Next
                  If p >= Sorte Then
                     If IncRitMax > 0 Then
                        Set cParStat = New clsParStat
                        cParStat.idEstr = idEstr - 1
                        cParStat.RitMax = RitMax
                        cParStat.IncrRitMax = IncRitMax
                        collStoria.Add cParStat
                     End If
                     Rit = 0
                     Fre = Fre + 1
                     IncRitMax = 0
                  Else
                     Rit = Rit + 1
                     If Rit > RitMax Then
                        IncRitMax = IncRitMax + 1
                        RitMax = Rit
                     End If
                  End If
               End If
            End If
            Call AvanzamentoElab(Inizio,Fine,idEstr)
            If ScriptInterrotto Then Exit For
         Next
         If IncRitMax > 0 Then
            Set cParStat = New clsParStat
            cParStat.idEstr = idEstr - 1
            cParStat.RitMax = RitMax
            cParStat.IncrRitMax = IncRitMax
            collStoria.Add cParStat
         End If
         Call GestioneOutput(collStoria,RitMax,aN,Sorte,Inizio,Fine,Ruota,Rit,Fre,aRuoteSel)
      Else
         MsgBox "Ruota non valida"
      End If
   End If
End Sub
Function ScegliFormazione(aN)
   Dim sFormazione
   Dim k,i
   sFormazione = InputBox("Inserire la formazione da analizzare separando i numeri che la compongono con il punto",,"1.10.20")
   ReDim aV(0)
   Call SplitByChar(sFormazione,".",aV)
   For k = 0 To UBound(aV)
      If Int(aV(k)) > 0 And Int(aV(k)) <= 90 Then
         aN(Int(aV(k))) = True
         i = i + 1
      End If
   Next
   If i > 0 Then ScegliFormazione = True
End Function
Sub GestioneOutput(coll,RitMax,aN,Sorte,Inizio,Fine,Ruota,Rit,Fre,aRuoteSel)
   Dim x,y,k
   Dim sFrz
   Dim clsP
   For k = 1 To 90
      If aN(k) Then
         sFrz = sFrz & Format2(k) & "."
      End If
   Next
   sFrz = Left(sFrz,Len(sFrz) - 1)
   If Ruota = 13 Then
      Call Scrivi("Sulla ruota di        : " & GetStringaRuote(aRuoteSel))

   Else
      Call Scrivi("Sulla ruota di        : " & NomeRuota(Ruota))
   End If
   Call Scrivi("Classe di sviluppo     : " & "quella decisa")
   Call Scrivi("Sorte ricercata       : " & Sorte)
   Call Scrivi("Formazione analizzata : " & sFrz)
   Call Scrivi("Da Estrazione         : " & GetInfoEstrazione(Inizio))
   Call Scrivi("A  Estrazione         : " & GetInfoEstrazione(Fine))
   Call Scrivi
   Call Scrivi("Ritardo              : " & Rit)
   Call Scrivi("RitardoMax           : " & RitMax)
   Call Scrivi("Frequenza            : " & Fre)
   Call Scrivi
   Call Scrivi("Dettaglio evoluzione RitMax",True)
   For Each clsP In coll
      Call Scrivi("Estrazione : " & FormatSpace(clsP.idEstr,5,True) & _
      " RitMax : " & FormatSpace(clsP.RitMax,5,True) & _
      " InccrRitMax : " & FormatSpace(clsP.IncrRitMax,5,True))
   Next
   Call Scrivi
   Call Scrivi("Grafico di confronto RitMax / IncRitMax",True)
   Call PreparaGrafico("",0,coll.count,0,RitMax,1,5)
   ' prima riga
   ReDim aV(coll.count,2)
   For Each clsP In coll
      x = x + 1
      aV(x,1) = x
      aV(x,2) = clsP.RitMax
   Next
   Call DisegnaLineaGrafico(aV,vbBlue,"RitMax")
   x = 0
   ReDim aV(coll.count,2)
   For Each clsP In coll
      x = x + 1
      aV(x,1) = x
      aV(x,2) = clsP.IncrRitMax
   Next
   Call DisegnaLineaGrafico(aV,vbRed,"IncRitMax")
   ' scrive grafico nell'output
   Call InserisciGrafico
End Sub
Function GetStringaRuote(aRuoteSel)
   Dim k
   Dim s

   For k = 1 To 12
      If aRuoteSel(k) Then
         s = s & SiglaRuota(k) & " "
      End If
   Next
   GetStringaRuote = s
End Function
Function ScegliRuotaEx(aRuoteSel)

   Dim k

   If MsgBox("Vuoi elaborare su piu ruote ?",vbQuestion + vbYesNo) = vbYes Then
      ReDim aV(10)
      ReDim aVociSel(10)
  
      For k = 1 To 10
         aV(k - 1) = NomeRuota(k)
      Next
      aV(10) = "Nazionale"
  
      Call ScegliDaLista(aV,aVociSel,"Selezione ruote")
      For k = 0 To 9
         aRuoteSel(k + 1) = aVociSel(k)
      Next
      aRuoteSel(12) = aVociSel(10)
      ScegliRuotaEx = 13
   Else
      ReDim aV(12)
      For k = 1 To 12
         aV(k) = NomeRuota(k)
      Next
      ScegliRuotaEx = ScegliOpzioneMenu(aV)
   End If
End Function

per adesso forse non vi dirà un granchè ma andando avanti.., se deciderete di seguire questa breve introduzione al corposo argomento che vi sta dietro, vi renderete conto di quanto possa tornarvi utile per questo particolare tipo di ricerca... 🤖
 
Ultima modifica:
  • Like
Reactions: Zac

lotto_tom75

Advanced Premium Member
Un'altra domanduzza...

E' teoricamente più interessante analizzare x incmax un gruppo corposo di elementi o un gruppo molto più contenuto? E perchè? :unsure:🥸

Mentre attendo una qualche vostra eventuale risposta al riguardo vi lascio un piccolo pensierino di "studio"...

4.5.6.7.10.11.19.21.22.23.27.28.29.32.33.35.36.38


Chi vuole la analizzi per incmax su NZ a 360°... e mi dica magari poi cosa ne pensa... ;)
 
Ultima modifica:

Serse

Super Member >PLATINUM<
lotto_tom75 ti faccio i complimenti per la tua voglia di coinvolgere e stimolare commenti ,io leggo incuriosito ma ahimè lo sfruttare software o analizzare masse di numeri per me è ostico ma rinnovo i complimenti per la tua passione nel condividere i tuoi studi. 👏
 

lotto_tom75

Advanced Premium Member
lotto_tom75 ti faccio i complimenti per la tua voglia di coinvolgere e stimolare commenti ,io leggo incuriosito ma ahimè lo sfruttare software o analizzare masse di numeri per me è ostico ma rinnovo i complimenti per la tua passione nel condividere i tuoi studi. 👏

Grazie serse ma in che senso ti è ostico? Ad esempio.. hai importato la 18ina sopra indicata nello script sopra condiviso e che puoi aprire ed eseguire dalla sezione "elabora script" del mitico spaziometria? :unsure:
 

Zac

Advanced Premium Member
Ciao Tom
Ho provato ad analizzare la 18ina con spaziometria per ambo sulla ruota di Bari. Ho ottenuto il seguente risultato
Ritardo attuale 8
Ritardomax 25

Non ho però ben compreso i valori di dettaglio Incmax che erano 2.1.1.1.1.2 ma a lato ve ne erano altri di cui uno più alto che era 14
Cosa significa?
 

lotto_tom75

Advanced Premium Member
Ciao Tom
Ho provato ad analizzare la 18ina con spaziometria per ambo sulla ruota di Bari. Ho ottenuto il seguente risultato
Ritardo attuale 8
Ritardomax 25

Non ho però ben compreso i valori di dettaglio Incmax che erano 2.1.1.1.1.2 ma a lato ve ne erano altri di cui uno più alto che era 14
Cosa significa?

Sasa se rileggi l'invito... 👆 👇

"Chi vuole la analizzi per incmax su NZ a 360°..."

Con l'occasione ti faccio una piccola precisazione per te e per chi volesse cimentarsi...

Per 360° intendo dire varie sorti...

Nell'analisi suddetta dovrebbe risultarti qualcosa di "interessante" dal punto di vista statistico...

I valori cui ti riferisci sono appunto i valori di incmax nel tempo... che lo script evidenzia in orizzontale dopo la voce incrementi.

Se hai altre domande sono qui... 👋🙂
 
  • Like
Reactions: Zac

Zac

Advanced Premium Member
Mi sono infatti accorto che la ruota era la NZ
Ho rifatto l'analisi su questa ruota x ambo e terno è se non ho sbagliato ho ottenuto questi risultati
X ambo ritardo attuale 7 ritardo massimo 32 mentre il valore maggiore di incmax mi risulta 13
x terno ritardo attuale 78 ritardo massimo 78 mentre il valore maggiore di incmax risulta 15

Dimmi se sbaglio ma la situazione per terno mi sembra ottimale, In teoria si potrebbe avere un terno nella 18ina nei 15 colpi?
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 04 ottobre 2022
    Bari
    38
    84
    22
    32
    04
    Cagliari
    32
    53
    59
    34
    48
    Firenze
    44
    30
    72
    25
    50
    Genova
    52
    77
    12
    56
    05
    Milano
    16
    27
    53
    55
    32
    Napoli
    25
    69
    30
    33
    45
    Palermo
    36
    25
    77
    07
    30
    Roma
    68
    43
    87
    19
    86
    Torino
    41
    87
    14
    18
    45
    Venezia
    18
    71
    09
    73
    57
    Nazionale
    10
    28
    70
    52
    24
    Estrazione Simbolotto
    26
    19
    41
    12
    42
Alto