Uno script che riduca una lunghetta di classe ampia (es. 20ina) x FQ MAX

lotto_tom75 · 19 Settembre 2019

Per magia o altri super scripter in ascolto...

Esiste già o potete creare uno script che riduca una lunghetta di qualsiasi classe per lo step di riduzione voluto (es. a passo 1) ottenendo in output per ogni passaggio solo la lunghetta con FQ MAX di ricerca?

Es. fittizio

volessi ridurre in automatico questa lunghetta (20ina) fino alla classe 16 x step 1 x A su NZ conservando sempre e solo la risultanza per fq max ad ogni passaggio come si potrebbe fare?

2.3.6.17.19.20.21.22.27.28.29.34.39.61.67.78.82.85.87.88 [classe 20]

Grazie anticipate per l'eventuale code o dritta che eventualmente posterete

Beppignello · 20 Settembre 2019

ciao Lotto_Tom

se ho interpretato giusto quello che hai scritto, lo vedrei così:

1 soluzione ipotetica
1) la miglior frequenza su tutta la lunghetta
2) la miglior frequenza sulla combinazione e sorte voluta.

questo script interpreta la miglior frequenza su tutta la lunghetta

ma esiste l'altra possibilità che è quella di mantenere il miglior ambo o terno o quaterna o cinquina
frequente nella lunghetta,

ma bisogna allora fare o modificare lo script
ciao

Codice:

Option Explicit
Sub Main
   ''''2.3.6.17.19.20.21.22.27.28.29.34.39.61.67.78.82.85.87.88
   Dim es,fine,r,retfre,classei,classef,qt,nsorte
   Dim anum(90)
   r = InputBox("Ruota",,1)
   fine = InputBox("Estraz.n.",,EstrazioneFin)
   nsorte = InputBox("Sorte ",,2)
   classei = InputBox("Classe ini",,20)
   classef = InputBox("Classe fin",,16)
   qt = ScegliNumeri(anum)
   '''
   Scrivi "Ruota di " & NomeRuota(r)
   Scrivi "Estraz.n." & fine & " / " & DataEstrazione(fine)
   Scrivi
   Call Integrale(anum,classef,classei,nsorte,r,fine)
End Sub
Function Integrale(ANUM,Classei,classef,nsorte,r,fine)
   Dim coltot,i,acol,aretritardi,aretidestr,freale,frealeini,cl,hh,qtn
   Dim rt(1)
   rt(1) = r
   '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   Call ElencoRitardiTurbo(ANUM,rt,nsorte,3950,fine,aretritardi,aretidestr)
   frealeini = UBound(aretritardi)
   ColoreTesto(1)
   Scrivi "Sviluppo in Classe..." & classef,1
   Scrivi "Comb.Iniziale " & StringaNumeri(ANUM,".") & "   Freq." & frealeini,1
   ColoreTesto(0)
   '''''''S V I L U P P O    I N T E G R A L E   classe a decrescere
   For cl = 1 To classef - Classei
   ReDim rie(99999,2)
   Classei = classef - cl
   Scrivi
   ColoreTesto(1)
   Scrivi "Sviluppo In classe..." & Classei,1
   ColoreTesto(0)
   coltot = InitSviluppoIntegrale(ANUM,Classei)
   If coltot > 0 Then
      Do While GetCombSviluppo(acol) = True
         i = i + 1
         Call AvanzamentoElab(1,coltot,i)
         Call Messaggio("Colonna " & i)
         If ScriptInterrotto Then Exit Do
         Call ElencoRitardiTurbo(acol,rt,nsorte,3950,fine,aretritardi,aretidestr)
         freale = UBound(aretritardi)
          rie(i,1) = freale
          rie(i,2) = StringaNumeri(acol," ")
      Loop
      Call OrdinaMatrice(rie,- 1,1)
      Scrivi "---Miglior freq." & rie(1,1) & "   Comb." & rie(1,2),1
      '''sostituisci anum con nuova comb.
         ReDim av(90),ANUM(90)
         Call SplitByChar(rie(1,2)," ",av)
         qtn = UBound(av)
         For hh = 0 To qtn
            ANUM(hh + 1) = av(hh)
         Next
    End If
   Next
End Function

lotto_tom75 · 21 Settembre 2019

Semplicemente... S P E T T A C O L A R E ??? GRAZIE MILLE Beppignello!

Sei sicuramente uno dei TOP SCRIPTERS di questo meraviglioso e praticissimo forum! ??? ?

fillotto · 21 Settembre 2019

Script veramente bello!!!! complimenti a chi lo ha pensato e a chi lo ha realizzato

solare · 21 Settembre 2019

Ottimo listato complimenti !!!
non sarebbe male inserire la possibilità della selezione del mese.

pippopippo · 22 Settembre 2019

Buongiorno Beppignello, si potrebbe avere con lo stesso script anche il Ritardo Max?
grazie

ppaaoolloo · 28 Settembre 2019

ciao
sarebbe possibile avere lo stesso script anche per il 10elotto?

ringrazio anticipatamente

lotto_tom75 · 2 Ottobre 2019

Beppignello se adesso volessi ottenere l'inverso... ovvero ottenere la stessa cosa ma scegliendo ogni volta la frequenza minore... quale riga devo modificare del tuo fantastico script che mi hai fatto? Grazie se puoi indicarmi la riga e come modificarla anche

Per adesso avrei provato ad agire su questa

Codice:

Call OrdinaMatrice(rie,- 1,1)

ma niente da fare

Beppignello · 2 Ottobre 2019

devo controllare, ma credo che non trova qualcosa
basta togliere il segno meno per invertire l'ordinamento
Call OrdinaMatrice(rie,1,1)

, ma la selezione se trova zero o blanks
nelle prima riga ordinata
non fa nulla, esce dal loop perchè non riesce a ricostruire la nuova lunghetta per la classe nuova-1

ci sono anche 2 errorini, in verità se non seleziona bene qualcosa.
questa riga e quella sotto uguale, va corretta così:

Beppignello ha scritto:
frealeini = UBound(aretritardi) - 1

farò dei controlli

Beppignello · 2 Ottobre 2019

adesso mi sembra giusto

ho corretto qualche errore ed ho inserito la scelta tra A-ascendente D-Discendente
per le presenze reali

comunque sia, controllare sempre.

Codice:

Option Explicit
Sub Main
   ''''2.3.6.17.19.20.21.22.27.28.29.34.39.61.67.78.82.85.87.88
   Dim es,fine,r,retfre,classei,classef,qt,nsorte,Ord
   Dim anum(90)
   r = InputBox("Ruota",,1)
   fine = InputBox("Estraz.n.",,EstrazioneFin)
   nsorte = InputBox("Sorte ",,2)
   classei = InputBox("Classe ini",,20)
   classef = InputBox("Classe fin",,16)
   Ord = InputBox("Ordine Pres. A/D asc/disc ",,"A")
   qt = ScegliNumeri(anum)
   '''
   Scrivi "Ruota di " & NomeRuota(r)
   Scrivi "Estraz.n." & fine & " / " & DataEstrazione(fine)
   Scrivi
   Call Integrale(anum,classef,classei,nsorte,r,fine,Ord)
End Sub
Function Integrale(ANUM,Classef,Classei,nsorte,r,fine,Ord)
   Dim coltot,i,acol,aretritardi,aretidestr,freale,frealeini,cl,hh,qtn
   Dim rt(1)
   rt(1) = r
   '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   Call ElencoRitardiTurbo(ANUM,rt,nsorte,3950,fine,aretritardi,aretidestr)
   frealeini = UBound(aretritardi) - 1
   ColoreTesto(1)
   Scrivi "Sviluppo in Classe..." & Classei,1
   Scrivi "Comb.Iniziale " & StringaNumeri(ANUM,".") & "   Freq." & frealeini,1
   ColoreTesto(2)
   If Ord = "A" Then Scrivi "Richiesto Presenze Ascendenti",1
   If Ord = "D" Then Scrivi "Richiesto Presenze Discendenti",1   
   ColoreTesto(0)
   '''''''S V I L U P P O    I N T E G R A L E   classe a decrescere
   For cl = 1 To Classei - Classef
      ReDim rie(999,2)
      i = 0
      Classef = Classei - cl
      Scrivi
      ColoreTesto(1)
      Scrivi "Sviluppo In classe..." & Classef,1
      ColoreTesto(0)
      coltot = InitSviluppoIntegrale(ANUM,Classef)
      If coltot > 0 Then
         Do While GetCombSviluppo(acol) = True
            Call AvanzamentoElab(1,coltot,i)
            Call Messaggio("Colonna " & i)
            If ScriptInterrotto Then Exit Do
            Call ElencoRitardiTurbo(acol,rt,nsorte,3950,fine,aretritardi,aretidestr)
            freale = UBound(aretritardi) - 1
            If freale = 0 Then
               Scrivi StringaNumeri(acol,"-")
            Else
               i = i + 1
               rie(i,1) = freale
               rie(i,2) = StringaNumeri(acol," ")
            End If
         Loop
         Call OrdinaMatrice(rie,-1,1)
         If Ord = "D" Then
         For hh = 1 To i
         Scrivi rie(hh,2) & "   pres. " & rie(hh,1)
         Next
         Else
         hh = 2
         End If
         ColoreTesto(2)
         Scrivi "---Miglior freq." & rie(hh-1,1) & "   Comb." & rie(hh-1,2),1
         ColoreTesto(0)
         '''sostituisci anum con nuova comb.
         ReDim av(90),ANUM(90)
         Call SplitByChar(rie(hh - 1,2)," ",av)
         qtn = UBound(av)
         For hh = 0 To qtn
            ANUM(hh + 1) = av(hh)
         Next
      End If
   Next
End Function

Alien. · 3 Ottobre 2019

Ciao,chiedo scusa ma non ho ben capito cosa fa lo script: grazie.
Ruota di Bari
Estraz.n.9689 / 01.10.2019

Sviluppo in Classe...20
Comb.Iniziale 1.2.3.4.5.6.7.8.9.10 Freq.537
Richiesto Presenze Ascendenti

Sviluppo In classe...19

Sviluppo In classe...18

Sviluppo In classe...17

Sviluppo In classe...16

Beppignello · 3 Ottobre 2019

Alien

se inserisci una decina come pretendi che lo script calcoli classe 20?

dovresti inserire, faccio un esempio
classe iniziale = 10
selezioni i 10 numeri che vuoi
ma vuoi conoscere le varie combinazioni in classe 9-8-7-6-5-4-3
classe finale = 3
che sono con frequenza maggiore (A-Ascendente) o frequenza minore(D-discendente)

Ruota di Bari
Estraz.n.9689 / 01.10.2019

Sviluppo in Classe...10
Comb.Iniziale 1.2.3.4.5.6.7.8.9.10 Freq.537
Richiesto Presenze Ascendenti

Sviluppo In classe...9
---Miglior freq.458 Comb.1 2 3 4 6 7 8 9 10

Sviluppo In classe...8
---Miglior freq.381 Comb.1 2 3 4 6 8 9 10

Sviluppo In classe...7
---Miglior freq.309 Comb.1 2 3 4 8 9 10

Sviluppo In classe...6
---Miglior freq.236 Comb.1 2 4 8 9 10

Sviluppo In classe...5
---Miglior freq.169 Comb.1 2 8 9 10

Sviluppo In classe...4
---Miglior freq.108 Comb.1 2 9 10

Sviluppo In classe...3
---Miglior freq.59 Comb.2 9 10

lotto_tom75 · 3 Ottobre 2019

Come direbbe Homer...

M I T I C O
M I T I C I S S I M O

Beppignello

?

Lo script è semplicemente PERFETTO

GRAZIE MILLE grandissimo

Nikor · 3 Ottobre 2019

Ciao Bepp. scusa se intralcio questo tuo interessante thread, di solito seguo sempre chi propone costrutti mirati alla statistica e sistemistica mentre snobbo e non entro più nelle sezioni dei Pataccari!

Ti volevo cortesemente chiedere lumi, relativi al topic # 12 al quale avevi gentilmente risposto ad Alien, leggo ruota di Bari

Beppignello ha scritto:
Estraz.n.9689 / 01.10.2019

Poi passo all'ultimo scritto che recita:

Beppignello ha scritto:
Sviluppo In classe...3
---Miglior freq.59 Comb.2 9 10

Sicuramente mi sfugge qualche cosa, la decina naturale ( 01-10 ) sviluppata in classe ...3 leggo miglior freeq.59 con la combinazione ( 02-09-10 ) senza andare a rimuginare la differenza tra ( Freq. & Pres ) che sarebbe altro tema chiedo quale è il range di ricerca?
Come avevi scritto , è relativa a Bari oppure a tutte le ruote? e la Nazionale è inclusa? ed ancora la terzina ( 02-09-10 ) è relativa all'Ambo oppure al terno il quale mi sembra improbabile , come vedi la vecchiaia avanza anche per il sottoscritto e mi sarò di sicuro perso qualche cosa......

Grazie in anticipo per una tua cortese risposta, Nikor.

Nikor · 3 Ottobre 2019

OPS. scusami tanto Bepp. ho riletto il tutto e noto nello script che la classe di sviluppo è = a " 2 ! perdonami, a questo punto mi interessa solo il range ( periodo di ricerca su Bari ) perchè il mio DB. non collima con il dato..........

Grazie per la tua cortese attenzione, Nikor.

Beppignello · 3 Ottobre 2019

ciao Nikor

ho inserito il periodo iniziale e finale della ricerca
ed ho messo nell'intestazione la sorte che si richiede

ho corretto la descrizione da freq. a presenze, perchè ho usato il metodo di calcolare il tutto in funzione
delle reali presenze o uscite della combinazione lunghetta.

per riscontro prendo la classe 7
e vedo con statisticaveloce, corrisponde con 309 uscite

poi se non combacia con qualche altro ragionamento, attendo tue notizie.

aspetto conferma per ripostare lo script con gli ultimi aggiustamenti

Nikor · 3 Ottobre 2019

Ciao Bepp ( Rubino ) dopo cena ho fatto le dovute verifiche!
Premetto che come avevo già scritto non avevo letto il flusso dello script! Era stata una mia mancanza…..
( La mia mancanza era stata [ sorte 2 ] e [ range di ricerca ] che tu avevi BEN evidenziato nel codice!

Verifica Settina ………OK. Tutto Esatto !

Verifica Terzina…….. Stanby????? ………

Se le Settine verificate erano esatte al 100% perché non dovevano essere esatte anche le terzine?

Era stato proprio questo punto ad ingannarmi….. avevo richiesto dall’elaborazione le 2 formazioni top-ten in ( presenza ) & ( frequenza ) ed il mio codice mi dava questi risultati:
04-05-09 Presenze = 60 !
Al seguito la seconda in ordine proggressivo mi dava :
01-08-10 = 59 Presenze!
Come vedi nelle prime 2 non vi era traccia della tua ( 02-09-10 ) , se avessi ampliato l’output a 3 formazioni la tua sarebbe stata presente !

Abbiamo così risolto l’inghippo, per un appassionato di numeri come lo sono io è sempre un piacere leggerti , sono certo che nella prossima revisione potrai menzionare i dati che ho appena postato, in caso contrario il mio DB. È fallato !
Ciao, Buona Serata, Nikor.

Alien. · 3 Ottobre 2019

Beppignello ha scritto:
Alien

se inserisci una decina come pretendi che lo script calcoli classe 20?

dovresti inserire, faccio un esempio
classe iniziale = 10
selezioni i 10 numeri che vuoi
ma vuoi conoscere le varie combinazioni in classe 9-8-7-6-5-4-3
classe finale = 3
che sono con frequenza maggiore (A-Ascendente) o frequenza minore(D-discendente)

Ruota di Bari
Estraz.n.9689 / 01.10.2019

Sviluppo in Classe...10
Comb.Iniziale 1.2.3.4.5.6.7.8.9.10 Freq.537
Richiesto Presenze Ascendenti

Sviluppo In classe...9
---Miglior freq.458 Comb.1 2 3 4 6 7 8 9 10

Sviluppo In classe...8
---Miglior freq.381 Comb.1 2 3 4 6 8 9 10

Sviluppo In classe...7
---Miglior freq.309 Comb.1 2 3 4 8 9 10

Sviluppo In classe...6
---Miglior freq.236 Comb.1 2 4 8 9 10

Sviluppo In classe...5
---Miglior freq.169 Comb.1 2 8 9 10

Sviluppo In classe...4
---Miglior freq.108 Comb.1 2 9 10

Sviluppo In classe...3
---Miglior freq.59 Comb.2 9 10

Acc......cavolacci e ci credo che non andava bene.........e allora cosa dovrei giocare? classe 3 per ambo ?, grazie per la gentilezza.

Alien. · 3 Ottobre 2019

Si capito come funziona ma credo che non sarebbe male per il 10elotto serale anzi ottimo,ci puoi provare ?grazie.

Nikor · 4 Ottobre 2019

Un caro Saluto Bepp. nella titubanza che avessi il mio Data Base fallato , ho provato a rimarginare e ricontrollare le ultime 6.000 estrazioni. ( operazione non indolore ) purtroppo!

Bene posso ribadire ( non con assoluta certezza ) ! perché un margine di errore è sempre possibile negli archivi storici, che nella Decina Naturale ( 01-10 ) sul range patuito le maggiori 3 presenze sono queste:
04-05-09 ….( 60 )
01-08-10 ….(59 )
02-09-10 …( 59 )
Visto che c’ero ho voluto dare una scandagliata alle quartine :

Nell’ ordine progressivo giusta la quartina di Bepp. ! ed al seguito un’altra quartina alla pari con ( 108 ) presenze:
La , 02-04-05-09 . a seguire la 01-08-09-10 con 107 presenze.

Questi sono i dati che mi escono dalla mia elaborazione......

Nel caso tu avessi tempo e voglia mi potrai scrivere le possibili incongruenze.....

Un saluto da Nikor.

Uno script che riduca una lunghetta di classe ampia (es. 20ina) x FQ MAX

Advanced Premium Member

Beppignello

Guest

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Member

Super Member >PLATINUM<

Advanced Premium Member

Beppignello

Guest

Beppignello

Guest

Advanced Premium Member

Beppignello

Guest

Advanced Premium Member

Premium Member

Premium Member

Beppignello

Guest

Premium Member

Advanced Premium Member

Advanced Premium Member

Premium Member