Richiesta script serie numeriche

Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Re: Richiesta script serie numeriche

Messaggio da SeeLe8 » 14/04/2014, 23:17

è perfetto Enplein!! BREVISSIMO!! :su: :su: :su: :su:

Luca lo script serve orientativamente per trovare le concatenazioni di numeri, poi c'è da controllare se vanno bene,
se le chiusure non si trovano su altre ruote o in ambo nellestrazioni precedenti, ecc....
Sarebbe impossibile credo dire allo script di fare tutte ste cose, e non voglio neanche che i nostri grandi scripter impazziscano! :mrgreen:


Intanto posto un ambo da una condizione che avevo trovato a mano nell'ultima estrazione:

PA: 60.22.35.9.61

61 -13 = 48 -13 = 35 -13 = 22 -13 = 9 -13 = 86 -13 = 73 -13 = 60

tutti i numeri della cinquina di palermo sono coinvolti, mancano 48.86.73
il 48 lo troviamo a BA-VE e i numeri 9.35 stanno anche a MI

Le ruote son tante, ma potrebbe essere un solo ambo secco
PA-VE-BA-MI e tutte
ambo 86.73
terzina 86.73.48
Immagine

Avatar utente
luca92
Messaggi: 3401
Iscritto il: 14/04/2012, 23:13
Località: Milano

Re: Richiesta script serie numeriche

Messaggio da luca92 » 14/04/2014, 23:28

:laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug:



Allora devo dedurre che il mio PC è più vecchio di Lanci........... oh povero me............




Grazie per la previsione, convergo con l'86 su PA! :su:






Ciao
Luca

:abb:
Immagine




Immagine







Immagine

Avatar utente
DjNomade
Messaggi: 565
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

Re: Richiesta script serie numeriche

Messaggio da DjNomade » 15/04/2014, 1:40

Grazie Enplein!! :su: :su: :su: :su:

Avatar utente
Enplein
Messaggi: 49
Iscritto il: 27/10/2011, 20:58

Re: Richiesta script serie numeriche

Messaggio da Enplein » 15/04/2014, 15:43

In riferimento al 1° script, ho eliminato l'input per cercare le presenze 2 o 3 unificandolo con la ricerca
delle formule 1-3 / 2-2 / 3-1.
Considerando 10 estrazioni, il tempo di attesa del mio PC è stato di 00:09:13

Ciao, Enplein.



2° script

Codice: Seleziona tutto


Sub main()
Dim nu1(10),nu2(25),amb(2),ru1(1),ru2(1),ruote(2),ruot(1),nu(6)
Dim posta(1),poste(2)
posta(1)=1:poste(2)=1
rs=InputBox("Quante estrazione vuoi controllare? ","estrazione",10)
cl=InputBox ("per quanti colpi?","colpi di gioco",9)
ini=EstrazioneFin-rs
fin=EstrazioneFin
Scrivi "---------------------serie numeriche BY SeeLe8",1
Scrivi "--------------------------------script by Enplein",1
Scrivi String(70,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "& DataEstrazione(fin,1)&" ("&(fin-rs)&" estr.)",1
For es=ini To fin 
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione (es,1)
For r1=1 To 10
ru1(1)=r1
For r2=r1+1 To 12
If r2=11 Then r2=12
ru2(1)=r2
For i=1 To 90
For j=1 To 44
If j<>30 Then 
h=1
For x=1 To 5
nu(1)=i
h=h+1
nu(h)=Fuori90 (i+(j*x))
Next 
If nu(1)<>nu(6) Then 
sf1=SerieFreq (es,es,nu,ru1,1)
sf2=SerieFreq (es,es,nu,ru2,1)
If sf1>0 And sf2>0 And sf1+sf2=4 Then 
For z=1 To 5
nu1(z)=Estratto (es,r1,z)
nu1(z+5)=Estratto (es,r2,z)
Next
'Cerca i numeri mancanti
q=0 : Erase nu2
For w=1 To 6 : g=0
For k=1 To 10
If nu1(k)<>nu(w) Then g=g+1
Next
If g=10 Then q=q+1 : nu2(q)=nu(w)
Next 
If q=2 Then 
amb(1)=nu2(1) : amb(2)=nu2(2)
ruote(1)=r1 : ruote(2)=r2 : ruot(1)=11
casi=casi+1:Scrivi String(84,"=")&" by Enplein",1
co=0
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)& " - "&StringaEstratti(es,r1)&" ]  serie di 6 elem. "& StringaNumeri (nu)&_
"  Passo: "&j,1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)& " - "&StringaEstratti(es,r2)&" ]  Num. Mancanti in una serie di 6 elem. "&_
StringaNumeri (nu2),1
Scrivi String(84,"-")&" caso n° "&(casi),1
ImpostaGiocata 1,amb,ruote,posta,cl
ImpostaGiocata 2,amb,ruot,poste,cl
Gioca es
End If 
End If 
End If 
End If 
Next
Next 
Next:Next:Next
ScriviResoconto
Scrivi "---------------------serie numeriche BY SeeLe8",1
Scrivi "--------------------------------script by Enplein",1
End Sub 

Avatar utente
Tatoo64
Site Admin
Messaggi: 3841
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: Richiesta script serie numeriche

Messaggio da Tatoo64 » 15/04/2014, 18:41

Miiii Enplein ma il tuo pc che è un FERRARINO F40???

:cool: :dent:

A me dopo 20 minuti è uscita una finestrella con su scritto " MEMORIA INSUFFICIENTE, VADO IN PAUSA RITORNO FRA 30 MINUTI "

:laug: :laug:
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Re: Richiesta script serie numeriche

Messaggio da SeeLe8 » 15/04/2014, 19:42

io e il mio i7 viaggiamo a 1minuto e 42 secondi per controllare 10 estrazioni :dent:

Grazie mille Enplein!! è lo script che sognavo

Immagine Immagine Immagine
Immagine

Avatar utente
luca92
Messaggi: 3401
Iscritto il: 14/04/2012, 23:13
Località: Milano

Re: Richiesta script serie numeriche

Messaggio da luca92 » 15/04/2014, 21:14

:disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp:



Il mio povero PC è saltato in aria! E' morto e sepolto! Ha esalato il suo ultimo respiro!



Perchèèèèèèèèè??????????



PCCCCCCCCCCCCCCCCCCCCCCCCCCC!!!!!!!!!!!!!!!!!!!!!!!!





:disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp: :disp:
Ultima modifica di luca92 il 15/04/2014, 21:14, modificato 1 volta in totale.
Immagine




Immagine







Immagine

Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Re: Richiesta script serie numeriche

Messaggio da SeeLe8 » 29/04/2014, 16:21

Ciao Enplein,
finalmente ho avuto tempo di studiarmi lo scripr...
per ridurre la mole di condizioni, è possibile dirgli di trovare solo che condizioni che riportano 3 numeri su una ruota e almeno 2 sull'altra?
In questo modo la serie diventerebbe da 7 elementi (5 numeri della condizione di partenza + 2 chiusure).
Se non è troppo sbattimento...

Ti ringrazio!!
Immagine

Avatar utente
Enplein
Messaggi: 49
Iscritto il: 27/10/2011, 20:58

Re: Richiesta script serie numeriche

Messaggio da Enplein » 30/04/2014, 16:56

Ciao SeeLe8, è semplice.....ecco lo script con 7 elementi!!!!

Ciao, Enplein.

Codice: Seleziona tutto

Sub main()
Dim nu1(10),nu2(25),amb(2),ru1(1),ru2(1),ruote(2),ruot(1),nu(7)
Dim posta(1),poste(2)
posta(1)=1:poste(2)=1
rs=InputBox("Quante estrazione vuoi controllare? ","estrazione",10)
cl=InputBox ("per quanti colpi?","colpi di gioco",9)
ini=EstrazioneFin-rs
fin=EstrazioneFin
Scrivi "---------------------serie numeriche BY SeeLe8",1
Scrivi "--------------------------------script by Enplein",1
Scrivi String(70,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "& DataEstrazione(fin,1)&" ("&(fin-rs)&" estr.)",1
For es=ini To fin 
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione (es,1)
For r1=1 To 10
ru1(1)=r1
For r2=r1+1 To 12
If r2=11 Then r2=12
ru2(1)=r2
For i=1 To 90
For j=1 To 44
If j<>30 Then 
h=1
For x=1 To 6
nu(1)=i
h=h+1
nu(h)=Fuori90 (i+(j*x))
Next 
If nu(1)<>nu(7) Then 
sf1=SerieFreq (es,es,nu,ru1,1)
sf2=SerieFreq (es,es,nu,ru2,1)
If sf1>1 And sf2>1 And sf1+sf2=5 Then 
For z=1 To 5
nu1(z)=Estratto (es,r1,z)
nu1(z+5)=Estratto (es,r2,z)
Next
'Cerca i numeri mancanti
q=0 : Erase nu2
For w=1 To 7 : g=0
For k=1 To 10
If nu1(k)<>nu(w) Then g=g+1
Next
If g=10 Then q=q+1 : nu2(q)=nu(w)
Next 
If q=2 Then 
amb(1)=nu2(1) : amb(2)=nu2(2)
ruote(1)=r1 : ruote(2)=r2 : ruot(1)=11
casi=casi+1:Scrivi String(84,"=")&" by Enplein",1
co=0
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)& " - "&StringaEstratti(es,r1)&" ] serie di 7 elem. "& StringaNumeri (nu)&_
" Passo: "&j,1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)& " - "&StringaEstratti(es,r2)&" ] Num. Mancanti in una serie di 7 elem. "&_
StringaNumeri (nu2),1
Scrivi String(84,"-")&" caso n° "&(casi),1
ImpostaGiocata 1,amb,ruote,posta,cl
ImpostaGiocata 2,amb,ruot,poste,cl
Gioca es
End If 
End If 
End If 
End If 
Next
Next 
Next:Next:Next
ScriviResoconto
Scrivi "---------------------serie numeriche BY SeeLe8",1
Scrivi "--------------------------------script by Enplein",1
End Sub 

Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Re: Richiesta script serie numeriche

Messaggio da SeeLe8 » 30/04/2014, 23:19

MITICO!!!

:abb: :abb:
Immagine

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite