Richiesta script serie numeriche

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

Richiesta script serie numeriche

Messaggio da SeeLe8 » 09/04/2014, 13:32

Non so se sia fattibile una cosa del genere, ma ci provo...

Avrei bisogno di uno script che mi trovi una serie numerica composta da almeno 4 numeri (presenti nell'estrazione) a passo unico (qualsiasi) con "buchi" di 1 o 2 elementi mancanti:

Esempio:
17 ottobre 2013
serie numerica a passo 11 su NA-VE
59 +11 = 70 +11 = 81 +11 = 2 +11 = 13 +11 = 24 +11 = 35
elementi mancanti 81.2
al 1° colpo ambo 81.2 a VE

altro esempio:
5 novebre 2013
MI: 14
NA: 35
TO: 42.21.49

14 +7 = 21 +7 = 28 +7 = 35 +7 = 42+7= 49
elemento mancante 28
al 2° colpo ambata 28 a TO


Non importano le ruote in gioco e gli esiti, poi verifico io...
l'importante è che mi trovi le condizioni e che mi indichi numeri e ruote

GRAZIE!
:abb: :abb: :abb:
Immagine

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

Re: Richiesta script serie numeriche

Messaggio da Tatoo64 » 09/04/2014, 19:10

Grande intuito, certo che cercarli manualmente si diventa stupidi.............. io ho provato e a momenti scleravo....... cioè io sclero anche di mio ma con questa ricerca anzi no devo dire che mi sentivo quasi intelligente............

:laug: :laug: una via di mezzo ecco. :prof:
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 » 09/04/2014, 20:23

eh già! ormai avevo smesso di cercarle... :? :?:?
ma visti i risultati, se possiamo farci aiutare dalla tecnologia è meglio! :mrgreen:
Speriamo sia fattibile!
Immagine

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

Re: Richiesta script serie numeriche

Messaggio da DjNomade » 11/04/2014, 22:42

Purtroppo sono arrivato solo a questo i tuoi esempi non riesco a trovarli.....magari se legge enplein..... :dent:

Codice: Seleziona tutto

'http://www.pentambo.info/forum/viewtopic.php?f=23&p=24110#p24110
Sub main()
Dim nu1(5),nu2(5),nu3(5),ruota(2),ruote(1),ruot(1),nu(4)
Dim posta(1),poste(4),postee(4)

posta(1)=1:poste(2)=2:poste(3)=1
postee(2)=2:postee(3)=1:postee(4)=1

ce=InputBox("Quante estrazione vuoi controllare? ","estrazione",10)
k=InputBox ("per quanti colpi?","colpi di gioco",9)
ini=EstrazioneFin-ce
fin=EstrazioneFin
Scrivi "---------------------serie numeriche  BY SeeLe8",1
Scrivi "--------------------------------script by DjNomade",1
Scrivi String(70,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "& DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione (es,1)

For r1=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r1,p1)
b=Estratto(es,r1,p2)
For r2=r1+1 To 12
If r2=11 Then r2=12
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto(es,r2,p3)
d=Estratto(es,r2,p4)

nu(1)=a:nu(2)=b:nu(3)=c:nu(4)=d
Call OrdinaMatrice (nu,1)

ds1=Abs(nu(1)-nu(2))
ds2=Abs(nu(3)-nu(4))
If  (Massimo(a,b)<Minimo(c,d))Or (Massimo(c,d)<Minimo(a,b))  Then
If ( ds1=ds2/2 Or  ds2=ds1/2 )Or ( ds1=ds2/3 Or  ds2=ds1/3 )  Then
If  (Abs(Massimo(c,d)-Minimo(a,b))=Minimo(ds1,ds2)) Or (Abs(Massimo(a,b)-Minimo(c,d))=Minimo(ds1,ds2)) Then

If Abs(nu(1)-nu(2))=Massimo(ds1,ds2) Then amb=Fuori90(nu(1)+Minimo(ds1,ds2)):amb1=Fuori90(nu(1)+Minimo(ds1,ds2)+Minimo(ds1,ds2))
If amb1=nu(2) Then amb1=0
If Abs(nu(2)-nu(3))=Massimo(ds1,ds2) Then amb=Fuori90(nu(2)+Minimo(ds1,ds2)):amb1=Fuori90(nu(2)+Minimo(ds1,ds2)+Minimo(ds1,ds2))
If amb1=nu(3) Then amb1=0
If Abs(nu(3)-nu(4))=Massimo(ds1,ds2) Then amb=Fuori90(nu(3)+Minimo(ds1,ds2)):amb1=Fuori90(nu(3)+Minimo(ds1,ds2)+Minimo(ds1,ds2))
If amb1=nu(4) Then amb1=0
casi=casi+1:Scrivi String(44,"=")&" by DjNomade",1
ruota(1)=r1:ruota(2)=r2:ruote(1)=11:co=0
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)& " - "&StringaEstratti(es,r1)&" ] [ "&_
Format2(a)&"."&Format2(b)&" ] in "&(p1)&"^/"&(p2)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)& " - "&StringaEstratti(es,r2)&" ] [ "&_
Format2(c)&"."&Format2(d)&" ] in "&(p3)&"^/"&(p4)&"^ pos."
Scrivi String(70,"-")

 Scrivi "differenza "&format2(nu(1))&"."&format2(nu(2))&" = "&format2(Abs(nu(1)-nu(2)))&" / Differenza "&Format2(nu(3))&"."&format2(nu(4))&" = "&format2(Abs(nu(3)-nu(4)))

Scrivi String(58,"-")&" caso n° "&(casi)
 
nu1(1)=amb
nu1(2)=amb1
co=co+1
ImpostaGiocata co,nu1,ruota,posta,k

Gioca es
End If
End If
End If
Next:next:Next:Next:Next:Next:Next
ScriviResoconto
Scrivi "---------------------serie numeriche  BY SeeLe8",1
Scrivi "--------------------------------script by DjNomade",1

End Sub 


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

Re: Richiesta script serie numeriche

Messaggio da Tatoo64 » 12/04/2014, 11:44

Ciao Djnomade lo script legge due distanze diverse su due ruote, da quello che ho capito deve cercare la stessa distanza su due ruote, giusto Seele???
Mors ego sum mortis, Vocor Agnus sum Leo fortis

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

Re: Richiesta script serie numeriche

Messaggio da DjNomade » 12/04/2014, 12:20

Si ma se metti i 4 numeri ritrovati in sequenza hanno lo stesso passo meno che due e da li ricava le ambate,
esempio

============================================ by DjNomade
gio 10.04.2014 [ Fi - 27.53.50.41.24 ] [ 27.24 ] in 1^/5^ pos.
gio 10.04.2014 [ Na - 17.85.23.22.18 ] [ 23.22 ] in 3^/4^ pos.
----------------------------------------------------------------------
differenza 22.23 = 01 / Differenza 24.27 = 03
---------------------------------------------------------- caso n° 33
gio 10.04.2014 [8832]
G 1: M 25.26 Fi Na 0/9
n.i. (9 colpi)

22 (+1) 23 (+1) 24 (+1) 25(+1)26 (+1)27






mar 08.04.2014 [ Mi - 90.44.13.54.17 ] [ 44.54 ] in 2^/4^ pos.
mar 08.04.2014 [ Ro - 26.64.74.42.59 ] [ 64.59 ] in 2^/5^ pos.
----------------------------------------------------------------------
differenza 44.54 = 10 / Differenza 59.64 = 05
---------------------------------------------------------- caso n° 30
mar 08.04.2014 [8831]
G 1: M 49 Mi Ro 1/9
in corso (1° su 9)
44 (+5) 49 (+5) 54 (+5) 59(+5)64

ciauzzzzz

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

Re: Richiesta script serie numeriche

Messaggio da Tatoo64 » 12/04/2014, 15:10

e si vero .......... ti a gà ragion............. ehehehhe GRAZIEEEEEEEE


ziaoooo
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 » 13/04/2014, 15:38

Grazie mille dj!!!!
+ o meno ci siamo... anche se non mi vede tutte le condizioni direi che è una buona base :ok:
Immagine

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

Re: Richiesta script serie numeriche

Messaggio da Enplein » 14/04/2014, 21:13

Ciao SeeLe8, la ricerca è complessa e lunga...ho seguito la soluzione di una serie di 6 numeri a passo X
da cercare su due ruote; inoltre ho inserito un input per determinare quanti numeri bisogna avere
su una ruota, e cioè 2 o 3.

Ciao, Enplein.

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)
ce=InputBox("Quanti numeri della serie vuoi in una cinquina? ","presenza",3)
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,ce)
sf2=SerieFreq (es,es,nu,ru2,ce)
If sf1>0 Or sf2>0 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
luca92
Messaggi: 3403
Iscritto il: 14/04/2012, 23:13
Località: Milano

Re: Richiesta script serie numeriche

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

AIUTOOOOOOOOOOOO!!!!!!!!!!!!!



Grazie Enplein per lo Script e brava a Seele per il metodo........... ma so' troppe Ambate, troppi numeri... e soprattutto TROPPO TEMPO CI IMPIEGA LO SCRIPT PER ELABORARE IL METODO!


Mi s'è impallato il PC!!!




AIUTOOOOOOOOOOO!!!!!!!!!!



:laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug: :laug:
Immagine




Immagine







Immagine

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite