Richiesta script statistico sulla tendenza delle ultime sortite

[abasul]

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.

 

[LuigiB]

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 ..

 

[LuigiB]

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

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]

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

 

[LuigiB]

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]

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

 

[Excptmode]

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

 

[Excptmode]

per questa sera ci sono queste in prima linea​

09.61.72
29.34.67
26.41.72

vediamo cosa succede

Tutte / Napoli e Cagliari

 

[Excptmode]

Al 2 tentativo esce ambo 26 41 tutte venezia

 

[Alien.]

Ciao,scusami ma una terzina su tutte per ambo da una vincita 7 €euro !

 

[Excptmode]

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.

 

[Excptmode]

prossimi colpi

26 38 45
07 26 75

 

[Excptmode]

a colpo ambo 26 75
Tutte / bari

 

[Excptmode]

prossimi colpi

39.48.67

27.39.65

 

[Excptmode]

Al 2 colpo ambo a tutte / Torino 39 48

 

[Excptmode]

prossimi colpi

45 67 82
07 39 43

 

[freenglish]

bravo
freenglish

 

[Excptmode]

per prova, 3 colpi

ambo secco 07 39 TUTTE E GENOVA

 

[freenglish]

grazie mille
freenglish

 

[freenglish]

cortesemente, l'uscita a Palermo del mix due giocate . 39 82 .
inficia la giocata?
razie della risposta
freenglish