Per Salvo50 o altro scripter

[sorujoe]

Ho chiesto l'autorizzazione a chi ha creato lo script è me l'ha concessa. Chiedo gentilmente a chi come voi è in grado di farlo di adeguare questo script lotto per il 10elotto serale di SPAZIOMETRIA.
Vi prego aiutatemi Grazie:

Option Explicit
Sub Main
''''''' B E P P I G N E L L O
Dim numericercati,n,i,fine,fineciclo,xl,s,finale,retrit,retritmax,r,ct,w,rmin,j,jk,ia,k,xt,AmbiRitardovalido,ritardoattuale,rminn,cz,v
Dim RetIncrRitMax,RetFre,Inizio,Iniz,Ini,pj,n2,rt,o,Primirit,RUo,lu,jj,f,retestratti,retidestr,nru
Dim numeri(90),maxnumero(90),ruote(11),comb(999999,6),minim(90,90),ru(1)
'''''input
finale = InputBox("Estrazione n.",,EstrazioneFin)
numericercati = CInt(InputBox("Lunghetta di n.",,5))
s = CInt(InputBox("Sorte lunghetta ",,2))
nru = CInt(InputBox("n.Ruote con RC >= RX",,2))
rmin = "0.0.50.45.40.30.25.25.23.19.18.18.17.15.15.1 2.12.11.11.9.9.9.8.7.6.5.5.5.5.5"
Inizio = TimeValue(Time)
ReDim maxmax(30)
Call SplitByChar(rmin,".",maxmax)
'''''10 ruote
For r = 1 To 10
ruote(r) = r
Next
''''''''numeri
For i = 1 To numericercati
maxnumero(i) = 90 + i - numericercati
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''
'''' 'memorizza il ritardo minimo dei 4005 ambi sulle ruote individuate
For ia = 1 To 89
For j =(ia + 1) To 90
minim(ia,j) = AmboRitardoTurbo(11,ia,j,EstrazioneIni,finale)
xt = xt + 1
Messaggio(xt & " - " & numericercati)
Next
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''
n = 1
numeri = 1
'inizia la ricerca dei numeri
Do
fine = 1
n = n + 1
numeri = numeri(n - 1) + 1
xl = xl + 1
Messaggio("Attendere,per classi >5 tempi lunghi di elab.." & xl)
If ScriptInterrotto Then Exit Do
Do
If ScriptInterrotto Then Exit Do
If numeri > maxnumero Then
Do
n = n - 1
If n = 0 Then
fine = 0
Exit Do
End If
numeri = numeri + 1
If ScriptInterrotto Then Exit Do
Loop Until numeri <= maxnumero
'''''
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
''''' per la sorte delL'AMBO valorizza ritardo ed esclude lunghetta se il ritardo minore del minimo
If n > 1 Then
fineciclo = 1
AmbiRitardovalido = 0
For jk = 1 To(n - 1)
ritardoattuale = minim(numeri(jk),numeri)
If Int(ritardoattuale) < Int(maxmax(numericercati)) Then
Exit For
Else
AmbiRitardovalido = AmbiRitardovalido + 1
End If
Next
If AmbiRitardovalido =(n - 1) Then
If n = numericercati Then
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''
''''''trova per i 2 capogiochi i primi ambi ritardatari
If s = 2 And numericercati = 2 Then
Iniz = EstrazioneIni
Ini = finale
Primirit = " | "
For pj = 1 To 2
ReDim rita(90,2)
For n2 = 1 To 90
If Int(numeri(pj)) <> Int(n2) Then
rt = AmboRitardoTurbo(11,numeri(pj),n2,Iniz,Ini)
rita(n2,1) = FormattaStringa(rt,"000")
rita(n2,2) = n2
End If
Next
Call OrdinaMatrice(rita,- 1,1)
For o = 1 To 6
If rita(o,1) <> "" Then
Primirit = Primirit & rita(o,1) & "-"
End If
Next
Primirit = Primirit & " |"
Next
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''
Call StatisticaFormazioneTurbo(numeri,ruote,s,retrit,retritmax,RetIncrRitMax,RetFre,EstrazioneIni,finale)
cz = cz + 1
comb(cz,1) = FormattaStringa(retrit,"0000") & " / " & FormattaStringa(retritmax,"0000") & " " & Format2(RetFre) & " " & Primirit
comb(cz,6) = FormattaStringa(retrit,"0000")
lu = ""
For jj = 1 To n
lu = lu & Format2(numeri(jj)) & "."
Next
comb(cz,2) = lu
comb(cz,5) = 9999
'''LOOP 10 RUOTE x trovare sulle 10 ruote quelle con retrit>=retritmax
For RUo = 1 To 10
ru(1) = RUo
Call StatisticaFormazioneTurbo(numeri,ru,s,retrit,retritmax,RetIncrRitMax,RetFre,EstrazioneIni,finale)
If retrit >= retritmax Then
comb(cz,3) = comb(cz,3) & SiglaRuota(ru(1)) & "-"
comb(cz,4) = comb(cz,4) + 1

If retrit < Int(comb(cz,5)) Then
comb(cz,5) = retrit
End If
End If
Next
'''''''''
numeri = numeri + 1
Else
fineciclo = 0
End If
Else
numeri = numeri + 1
fineciclo = 1
End If
Else
fineciclo = 0
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
If fine = 0 Then Exit Do End If
Loop Until fineciclo = 0
Loop Until fine = 0
ColoreTesto(2)
Scrivi "BEPxBYRON-5 ---- Combinazioni per ambo a Tutte e/o su Ruota aventi ritardo al Top",1
Scrivi "Lunghette con ritardo minimo " & maxmax(numericercati) & ": Sviluppate in classe = " & numericercati & " Per la sorte di.." & s,1
Scrivi "Condizione imposta: Nell'elenco ci sono solo Ritardi attuali >= Ritardo Massimo di Ruota ",1
Scrivi "da rilevazione a Tutte......." & finale & " / " & DataEstrazione(finale),1
If numericercati = 2 Then Scrivi "RC RX Freq. Ritardi Attuali 1°Capogioco 2° Capogioco Combinazione Lunghetta ",1
If numericercati <> 2 Then Scrivi "RcTT RxTT Frq. Combinazione Lunghetta ",1
Call OrdinaMatrice(comb,- 1,6)
ColoreTesto(0)
If cz = 0 Then
Scrivi " NEssuna combinazione nel ritardo minimo di " & maxmax(numericercati),1
Else
For v = 1 To cz
If comb(v,4) > nru Then
If comb(v,1) <> " " Then Scrivi comb(v,1) & " " & comb(v,2) & " Rmin. " & comb(v,5) & " " & comb(v,4) & "- Ruote.." & comb(v,3),1
'''verificaesito
ReDim nm(10),nur(10)
Call SplitByChar(comb(v,2),".",nm)
For f = 0 To numericercati - 1
nur(f + 1) = nm(f)
Next
Call VerificaEsitoTurbo(nur,ruote,finale + 1,s,,,,,retestratti,retidestr)
If retestratti <> "" Then
ColoreTesto(2)
Scrivi "---------- " & retidestr & ":.." & retestratti & " colpo n. " & retidestr - finale,1
ColoreTesto(0)
End If
End If
Next
End If
Scrivi:Scrivi:Scrivi "Totale Combinazioni...." & v - 1,1
ColoreTesto(2)
Scrivi "Tempo elaborazione.." & TempoTrascorso,1
End Sub

 

[Rubino]

ciao Byron

ma con questo script, che elabora principalmente per la sorte dell'ambo o due punti, al lotto nelle lunghetta, la vedo dura
modificarlo per il 10elotto.

cosa stai cercando di preciso?

- gli ambi più ritardatari attualmente
- i terni più ritardatari attualmente
- lunghette più ritardatarie di varie dimensioni per quanti punti?

o qualche altra cosa o lunghette fino a quanti numeri e per quali punteggi ?

 

[sorujoe]

Lunghetta ad esempio sestine per la sorte del 4 o cinquine per il 3 ....impostare lunghetta e sorte che è quello che fa questo script per il lotto ricercando i ritardi cronologici che da "x" estrazioni hanno raggiunto lo storico

 

[Rubino]

https://forum.lottoced.com/forum/lo...33-studio-matrice-universale-bep-rubino/page2

ti posso dare questo script, ma è cosa completamente diversa da quello sopra da te postato.

 

[sorujoe]

ma a me serve al 10elotto serale non estrazioni casuali

 

[sorujoe]

Estrazioni reali e l'output in ordine di ritardo cronologico dal più ritardatario a scendere sino a quello con ritardo cronologico minore

 

[sorujoe]

poi se metto estrazione 9500 lo script dovrebbe fare l'elaborazione e indicarmi le formazioni sfaldate e il colpo in cui è avvenuto lo sfaldamento ....siamo a 9626 concorsi ...dovrebbe vedere in avanti e fare lo spoglio delle vincite indicato il colpo

 

[Rubino]

L archivio 10 e lotto viene usato per ricercare i ritardi e le frequenze
lo script usal archivio reale

mentre per calcolare i 600 milioni di combinazioni che si possono formarecon 90 numeri sviluppati in sestina. Viene usata una funzione random


controlla con spaziometria o altro programma nella sessione 10 e lotto

 

[sorujoe]

ma non mostra le vincite facendo una analisi retro datata

 

[sorujoe]

penso non si possa fare cosi non ho dati affidabili e sempre uguali

 

[Rubino]

Non sono in grado di fare ciò che chiedi con uno script,
problema tempi di elaborazione di uno sviluppo integrale in cinquine o in sestine è proibitivo.

 

[Rubino]

Non sono in grado di fare ciò che chiedi con uno script,
problema tempi di elaborazione di uno sviluppo integrale in cinquine o in sestine è proibitivo.

non ti resta altro che provare a chiedere a LuigiB o qualche programmatore se riesce a fare qualche routine
che possa velocizzare i tempi per trovare le combinazioni con i ritardi attuali >= ritardi massimo


l'istruzione " Piuritardatari " per il 10elotto non esiste, a differenza che per il lotto.

 

[sorujoe]

Grazie Rubino ma Luigi credo abbia abbandonato il software per cui non lo disturbo ...grazie ancora

 

[sorujoe]

ciao Magia ho lanciato lo script ma il software lo utilizza per il lotto non 10elotto come devo fare?

 

[sorujoe]

dov'è?

 

[sorujoe]

si ma lavora randomizzato su x-mila sorteggi

 

[sorujoe]

se metto no 1 ma 10000 lavora sull'integrale e non random giusto?

 

[sorujoe]

a me interessa avere i dati integrali e facendo analisi con data retroattiva vedere gli sfaldamenti ....GRAZIE

 

[Rubino]

un passettino in avanti, grazie per l'aiuto di magia al quale chiedo:
possiamo, per velocizzare ulteriormente imporre una condizione, quella di somma? che dici?
comunque così già fa qualcosa. ma può non intercettare i massimi o i top di ritardo.

Option Explicit
'Combinazioni Random Ritardo=Ritardomax 10 e Lotto di Beppignello
'messaggio #27
'https://forum.lottoced.com/forum/lottoced/altri-giochi/2166433-studio-matrice-universale-bep-rubino/page2
Sub Main
   ColoreTesto(2)
   Scrivi "Bep-Byron- Combinazioni Random Ritardo>=Ritardomax 10 e Lotto ",1
   ColoreTesto(0)
   Dim Classe,aretcol,i,minr,retrit,retritmax,n,jj,de,xf
   ReDim comb(26000,4),aNumeri(90)
   Dim nSorte,Fine,QuantitaNumeriScelti,inizio,finale,frequenza,frreale,ritardomax,retestratti,retidestr
   Dim valoreInizioelaborazione,valorefineelaborazione,rittt,aretritardi,aretidestr,frer
   Dim numerocolonne,multiplocolonne,clssvil
   Set clssvil = GetMotoreSviluppoIntegrale
   '''''''''''
   Dim Tipoarchivio
   Tipoarchivio = ScegliArchivioDL
   If Tipoarchivio > 00 Then
      If Tipoarchivio = 02 Then
         If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
            Call AggiornaArchivioDL
         End If
      End If
      Call ImpostaArchivio10ELotto(Tipoarchivio)
      inizio = EstrazioneIniDL
      '''''''''''
      finale = EstrazioniArchivioDL
      Classe = CInt(InputBox("QUALE CLASSE DI SVILUPPO",,6))
      nSorte = CInt(InputBox("QUALE SORTE DI ESITO",,4))
      '''scelte automatiche per lunghette ed numero colonne ValoreFineElaborazione
      Fine = InputBox("All'estrazione n.",,finale)
      numerocolonne = CInt(InputBox("QUANTE COLONNE RANDOM ANALIZZARE (max 10000)",,10000))
      multiplocolonne = CInt(InputBox("FATTORE DI MOLTIPLICAZIONE COLONNE RANDOM (max 10000)",,1))
      valorefineelaborazione = numerocolonne * multiplocolonne
      '''rileva a campione Ritardo Minimo di classe scelta
      Call GetColonnaCasuale(Classe,aretcol)
      Call ElencoRitardiDL(aretcol,nSorte,inizio,Fine,aretritardi,aretidestr)
      minr = MassimoV(aretritardi,1)
      frer = UBound(aretritardi) - 1
      Scrivi " P a r a m e t r i I m p o s t a z i o n i ",1
      ColoreTesto(1)
      Scrivi " CLasse Sviluppo Lunghette " & Classe,1
      Scrivi " Sorte esaminata " & nSorte
      Scrivi " Situazione all'estrazione n." & Fine & " 1 0 e L o t t o ",1
      Scrivi " Default = 20000 * " & multiplocolonne & " = " & valorefineelaborazione,1
      Scrivi " Ritardo Minimo Massimo intercettato.." & minr & " Minima frequenza .." & frer & "...Comb." & StringaNumeri(aretcol,"-",True),1
      ColoreTesto(0)
      Scrivi "Rc-----Rx----FrReale---Combinazione-----------",1
      For i = valoreInizioelaborazione To valorefineelaborazione
         Call GetColonnaCasuale(Classe,aretcol)
         Call ElencoRitardiDL(aretcol,nSorte,inizio,Fine,aretritardi,aretidestr)
         frequenza = UBound(aretritardi) - 1
         Call StatisticaFormazioneDL(aretcol,nSorte,rittt,ritardomax,,,inizio,Fine)
         Call Messaggio("Colonne Analizzate : " & FormattaStringa(i,"00000") & " : " & "Colonne Trovate : " & n)
         Call AvanzamentoElab(valoreInizioelaborazione,valorefineelaborazione,i)
         If rittt >= minr Then
            If rittt >= ritardomax Then
               n = n + 1
               comb(n,1) = StringaNumeri(aretcol,".",True)
               comb(n,2) = rittt
               comb(n,3) = ritardomax
               comb(n,4) = frequenza
   '            Scrivi FormattaStringa(rittt,"0000") & " / " & FormattaStringa(ritardomax,"0000") & " " & FormattaStringa(frequenza,"0000") & " " & StringaNumeri(aretcol,".",True)
            End If
         End If
         If ScriptInterrotto Then Exit For
      Next
      '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''
      Call OrdinaMatrice(comb,- 1,2)
      For jj = 1 To n
      Scrivi FormattaStringa(comb(jj,2),"0000") & " / " & FormattaStringa(comb(jj,3),"0000") & "    " & FormattaStringa(comb(jj,4),"0000") & "    " & comb(jj,1)
      '''verifica esito
        ReDim aV(0),nr(Classe)
         Call SplitByChar(comb(jj,1),".",aV)
         xf = UBound(aV)
         For de = 0 To xf
            nr(de+1) = aV(de)
         Next
      Call VerificaEsitoDL(nr,Fine + 1,nSorte,,,,retestratti,retidestr)
      If retestratti <> "" Then
      ColoreTesto(2)
      Scrivi "---->  " & retidestr & "  colpo n." & retidestr - Fine & "                 n.usciti   " & retestratti,1
      ColoreTesto(0)
      End If
      Next
      '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''
      Scrivi TempoTrascorso,1
   End If
End Sub
Function ScegliArchivioDL()
   Dim aVoci : aVoci = Array(aVoci,"10 e lotto Serale","10 e lotto 5minuti")
   ScegliArchivioDL = ScegliOpzioneMenu(aVoci,01,"Scegli archivio 10eLotto")
End Function

 

[Rubino]

faccio una considerazione:
con 30 numeri per 8 punti, l'elaborazione di 10000 corrisponde un tempo 9 minuti, per trovare e verificare i risultati.



anche cambiando qualche istruzione nello script, il tempo di elaborazione non cambia, sempre circa 9 minuti.