Novità

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

lotto_tom75

Premium Member
Messaggi
7.861
Punti reazione
102
Punti
63
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 :)
 
B

Beppignello

Guest
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
 
Ultima modifica di un moderatore:

lotto_tom75

Premium Member
Messaggi
7.861
Punti reazione
102
Punti
63
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

Advanced Member >PLATINUM<
Messaggi
1.085
Punti reazione
4
Punti
38
Script veramente bello!!!! complimenti a chi lo ha pensato e a chi lo ha realizzato(y)(y)
 

solare

Advanced Member >PLATINUM<
Messaggi
1.368
Punti reazione
29
Punti
48
Ottimo listato complimenti !!!
non sarebbe male inserire la possibilità della selezione del mese.
 

ppaaoolloo

Super Member >PLATINUM<
Messaggi
287
Punti reazione
3
Punti
18
ciao
sarebbe possibile avere lo stesso script anche per il 10elotto?

ringrazio anticipatamente
 

lotto_tom75

Premium Member
Messaggi
7.861
Punti reazione
102
Punti
63
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 :(:)
 
B

Beppignello

Guest
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ì:

frealeini = UBound(aretritardi) - 1
farò dei controlli
 
B

Beppignello

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

Advanced Premium Member
Messaggi
20.481
Punti reazione
113
Punti
63
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
 
B

Beppignello

Guest
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

Premium Member
Messaggi
7.861
Punti reazione
102
Punti
63
Come direbbe Homer...

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

Beppignello :eek:o_O😜:D

Lo script è semplicemente PERFETTO (y) :cool:


GRAZIE MILLE grandissimo ;)
 

Nikor

Advanced Member >PLATINUM<
Messaggi
1.616
Punti reazione
223
Punti
63
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
Estraz.n.9689 / 01.10.2019
Poi passo all'ultimo scritto che recita:
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

Advanced Member >PLATINUM<
Messaggi
1.616
Punti reazione
223
Punti
63
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.
 
B

Beppignello

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

Cattura.GIF

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


Cattura2.GIF
 

Nikor

Advanced Member >PLATINUM<
Messaggi
1.616
Punti reazione
223
Punti
63
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.

Advanced Premium Member
Messaggi
20.481
Punti reazione
113
Punti
63
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.

Advanced Premium Member
Messaggi
20.481
Punti reazione
113
Punti
63
Si capito come funziona ma credo che non sarebbe male per il 10elotto serale anzi ottimo,ci puoi provare ?grazie.
 

Nikor

Advanced Member >PLATINUM<
Messaggi
1.616
Punti reazione
223
Punti
63
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.
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 07 dicembre 2019
    Bari
    19
    09
    20
    16
    01
    Cagliari
    76
    60
    80
    06
    47
    Firenze
    43
    88
    78
    73
    83
    Genova
    46
    20
    79
    54
    04
    Milano
    30
    31
    46
    24
    19
    Napoli
    42
    86
    20
    06
    07
    Palermo
    66
    04
    81
    53
    09
    Roma
    55
    81
    32
    25
    13
    Torino
    69
    21
    52
    32
    72
    Venezia
    44
    22
    37
    80
    32
    Nazionale
    19
    88
    32
    60
    90
Alto