Novità

Richiesta script statistico sulla tendenza delle ultime sortite

abasul

Super Member >PLATINUM<
Carissimo Luigi,

Sia ben inteso che io non ho alcuna intenzione di proseguire all'infinito con te questa discussione.

Ripeto per l'ennesima volta, che nessuno mette in dubbio le capacità di Cinzia come scripter, ma sei pregato di rileggere i nostri interventi prima di emettere giudizi affrettati nei miei confronti.
Nell'intervento n° 27 del 17/9/18; 4° rigo, Cinzia espressamente mi porta a conoscenza che fa un po' fatica a comprendere le mie idee da mettere in pratica per lo sviluppo del suo listato. E nel proseguo del nostro percorso questa lacuna si è ancor di più accentuata: purtroppo non ci possiamo fare niente.
Eppure non sembra di essermi rincoglionito tutto in una volta.
Riguardo al tuo programma di Spaziometria, che molti di questo Forum neanche sanno, quando qualche anno fa ti avevo richiesto una collaborazione per apportare varie implementazioni allo stesso e che senza alcun dubbio hanno contribuito a far diventare grande Spaziometria, insieme abbiamo inserito, ma con le mie idee e non certo con le tue (perché tu non hai fatto altro che metterle soltanto in pratica): "La combinazione sopra e sotto la media"; "Statistica su ambate ciclometriche"; "Previsione con ambate ciclometriche" Implementazioni vari su statistiche per ricavare fogli in Excel; e anche con Rubino, sono riuscito a portare a termine importanti script statistici.
Quindi non ritengo giusto, da parte tua, schierarti a favore della bravura di Cinzia, ma allo stesso tempo darmi addosso.
Ti chiedo allora gentilmente di non chiamarmi più in causa su una discussione che per me, con dispiacere, si è conclusa. Grazie.
 
Ultima modifica:
L

LuigiB

Guest
Ciao Abasul nemmeno io ci tengo a fare polemica quindi non ti rispondo su tutti i punti che hai toccato.
Ho solo 2 cose da dire , una a te e cioè che dato il presupposto di avere di fronte una persona intelligente il fatto che non abbia capito possa dipendere proprio dalla spiegazione.
Un 'altra a Cinzia come incoraggiamento a programmare e a fare script , piu persone ci sono che imparano a programmare piu si misura la bontà dei metodi che vengono in mente agli studiosi.

un saluto ..
 
L

LuigiB

Guest
tante volte qualcuno voglia continuare , questo è lo script ottenuto dopo la lettura del primo post.
verificare sempre se funziona ..

Codice:
Option Explicit
Class clsCombinazione
   Private aNum
   Private aRitardi
   Private aRetIdEstr
   Private mSequenzaCrescente
   Private mSequenzaDecrescente
   Public Property Get SequenzaCrescente
      SequenzaCrescente = mSequenzaCrescente
   End Property
   Public Property Get SequenzaDecrescente
      SequenzaDecrescente = mSequenzaDecrescente
   End Property
   Public Property Get Combinazione
      Combinazione = StringaNumeri(aNum,,True)
   End Property

   Public Property Get StringaElencoRitardi(nDaPrendere)
      Dim nPresi,k
      Dim sRet


      k = UBound(aRitardi)
      Do While nPresi < nDaPrendere
         sRet = aRitardi(k) & "-" & sRet
         nPresi = nPresi + 1
         k = k - 1
         If k = 0 Then Exit Do
      Loop
      StringaElencoRitardi = RimuoviLastChr(sRet,"-")
   End Property
   Sub SetNumeri(aNumTmp)
      aNum = aNumTmp
   End Sub
   Sub CalcolaRitardi(nEstrInizio,nEstrFine,aRuote,nSorte)
      Call ElencoRitardiTurbo(aNum,aRuote,nSorte,nEstrInizio,nEstrFine,aRitardi,aRetIdEstr)
      Call CalcolaValoreSeqCrescente
      Call CalcolaValoreSeqDecrescente
   End Sub
   Sub CalcolaValoreSeqCrescente
      Dim k
      Dim nElem
      Dim nV
      nElem = UBound(aRitardi)
      For k = nElem To 2 Step - 1
         If aRitardi(k) > aRitardi(k - 1) Then
            nV = nV + 1
         Else
            Exit For
         End If
      Next
      mSequenzaCrescente = nV
   End Sub
   Sub CalcolaValoreSeqDecrescente
      Dim k
      Dim nElem
      Dim nV
      nElem = UBound(aRitardi)
      For k = nElem To 2 Step - 1
         If aRitardi(k) < aRitardi(k - 1) Then
            nV = nV + 1
         Else
            Exit For
         End If
      Next
      mSequenzaDecrescente = nV
    End Sub
End Class
Sub Main
   Dim aNumeri
   Dim nClasse,nSorte
   Dim nIntegrali,aComb,cComb,nElaborate
   Dim nEstrIni,nEstrFin
   Dim CollComb
   Dim k,sTmp
   ReDim aRuote(1)
   nEstrIni = EstrazioneIni
   nEstrFin = EstrazioneFin
   aNumeri = GetANumeri
   aRuote(1) = BA_
   nClasse = 3
   nSorte = 2
   nIntegrali = InitSviluppoIntegrale(aNumeri,nClasse)
   Set CollComb = GetNewCollection
   Do While GetCombSviluppo(aComb)
      Set cComb = New clsCombinazione
      cComb.SetNumeri(aComb)
      Call cComb.CalcolaRitardi(nEstrIni,nEstrFin,aRuote,nSorte)
      CollComb.Add cComb
      nElaborate = nElaborate + 1
      Call AvanzamentoElab(1,nIntegrali,nElaborate)
      If ScriptInterrotto Then Exit Do
   Loop
   Call Messaggio("Ordinamento combinazioni per ritardo decrescente")
   Call OrdinaItemCollection(CollComb,"SequenzaDecrescente")
   Scrivi "Prime 10 combinazioni con ritardo decrescente",True
   Scrivi
   sTmp = FormatSpace("Combinazione",20) & " - " & FormatSpace("Valore",10) & " - " & "Elenco ultimi ritardi"
   Scrivi sTmp,True
   For k = 1 To 10
      Set cComb = CollComb(k)
      sTmp = FormatSpace(cComb.Combinazione,20) & " - " & FormatSpace(cComb.SequenzaDecrescente,10) & " - " & cComb.StringaElencoRitardi(cComb.SequenzaDecrescente + 1)
      Call Scrivi(sTmp)
   Next
   Call Messaggio("Ordinamento combinazioni per ritardo crescente")
   Call OrdinaItemCollection(CollComb,"SequenzaCrescente")

   Scrivi

   Scrivi "Prime 10 combinazioni con ritardo crescente",True
   Scrivi
   sTmp = FormatSpace("Combinazione",20) & " - " & FormatSpace("Valore",10) & " - " & "Elenco ultimi ritardi"
   Scrivi sTmp,True
   For k = 1 To 10
      Set cComb = CollComb(k)
      sTmp = FormatSpace(cComb.Combinazione,20) & " - " & FormatSpace(cComb.SequenzaCrescente,10) & " - " & cComb.StringaElencoRitardi(cComb.SequenzaCrescente + 1)
      Call Scrivi(sTmp)
   Next
End Sub
 

fillotto

Advanced Member >PLATINUM<
Capisco la ratio di rilevare in crescendo non potendo sempre crescere e quindi se si interrompe significa che interrompe uscendo
ma la rilevazione decrescente non riesco ad afferrarla
 
L

LuigiB

Guest
Mha presumo che lo scopo sia individuare delle situazioni "degne di nota" inoltre una sequenza crescente con l ultimo ritardo che ne so di 70 estrazioni si potrebbe tranquillamente interrompere con un ritardo di 69.....
 

abasul

Super Member >PLATINUM<
Ciao Cinzia,
Se riguardi il mio intervento n° 6 del 14/9/18, con i fatti puoi renderti conto di quanto sia importante lo script che però solo in parte siamo riusciti a mettere su insieme. L'ambo 1 - 34, che faceva parte della terzina
1 - 2 - 34 e al quale ambo avevo davo come probabilità d'uscita 33,6% entro una decina di colpi, nell'estrazione di ieri, 9534 04/10/2018, è sortito sulla ruota di Genova, di Roma e di Venezia.
Un saluto
 
Ultima modifica:

Excptmode

Member
queste tre terzine sono in prima linea per una uscita per la sorte di ambo

02.10.33
02.21.58
02.26.58

a colpo esce l'ambo 02 10 Tutte / venezia
-----------------------------------------------------

per questa sera ci sono queste in prima linea

09.61.72
29.34.67
26.41.72
 
Ultima modifica:

Alien.

Advanced Premium Member
Ciao,scusami ma una terzina su tutte per ambo da una vincita 7 €euro !
 
Ultima modifica:

Excptmode

Member
ciao Alien
scusami, ma giocati le ambate, magari 2x1 o 3x1

tre x tre, mi risultano essere 9 ambi
x 2 concorsi spesa 18 euro, vincita 25 lordi

mi sembra che qualcosa si porta a casa.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto