LottoGAM Forum

RICHIESTA SCRIPT

« Older   Newer »
  Share  
view post Posted on 11/10/2023, 18:50

Top Member

Group:
Member
Posts:
3,901

Status:


Ciao a tutti,
avrei bisogno di uno script che mi producesse tutte le terne di ambi consecutivi possibili.
In pratica utilizzando tutti i 90 ambi consecutivi da 1.2 / 2.3 fino a 90.1 ne dovrebbe prendere tre per volta in tutte le combinazioni possibili in questo formato testo, per creare una tabella con L8+

1.2;7.8;20.21

10.11;15.16;30.31

e così via.

So che dovrebbe essere molto semplice per chi ne è capace, ma per me è impossibile.
Ringrazio chiunque abbia tempo e pazienza per farlo, ciao a tutti,

Matteo
 
Top
view post Posted on 11/10/2023, 19:19
Avatar

granatiere granitico

Group:
Member
Posts:
22,909
Location:
La prima capitale d'Italia

Status:


mfr_bl1
 
Top
view post Posted on 11/10/2023, 19:30
Avatar

Top Member

Group:
Member
Posts:
559

Status:


Ciao Matteo sono 105.995 combinazioni se non ho errato.
comunque ecco lo script per spaziometria dovrebbe funzionare anche in l8 ( che non ho ).


Sub Main
Dim Nu(6)
For n1 = 1 To 87
Nu(1) = n1
n2 = n1 + 1
Nu(2) = n2
For n3 = n2 + 1 To 88
If n3 > Nu(2) Then Nu(3) = n3
n4 = n3 + 1
Nu(4) = n4
For n5 = n4 + 1 To 89
If n5 > Nu(4) Then Nu(5) = n5
Nu(6) = n5 + 1
k = k + 1
Scrivi FormatSpace(k,10) & StringaNumeri(Nu,,1)
Next
Next
Next
End Sub


105990 83.84.86.87.89.90
105991 83.84.87.88.89.90
105992 84.85.86.87.88.89
105993 84.85.86.87.89.90
105994 84.85.87.88.89.90
105995 85.86.87.88.89.90
 
Top
view post Posted on 11/10/2023, 20:25

Top Member

Group:
Member
Posts:
3,901

Status:


Ciao Mike,
grazie per la tua premura.
Lo script per ogni riga mi produce in pratica una sestina, mentre io cerco un triambo, cioè ognuno degli ambi dovrebbe essere separato dall'altro da un ; oppure, come fa Spaziometria per le formazioni multiple con /

105990 83.84;86.87;89.90
105991 83.84;87.88;89.90
105992 84.85;86.87;88.89
105993 84.85;86.87;89.90
105994 84.85;87.88;89.90
105995 85.86;87.88;89.90

Inoltre se lo consideriamo consecutivo arriviamo fino all'ambo 90.01; in questo caso i triambi dovrebbero essere 17480.

Ciao e grazie ancora,
Matteo
 
Top
view post Posted on 11/10/2023, 20:33
Avatar

Top Member

Group:
Member
Posts:
559

Status:


prova cosi allora sono sempre setine ma separate da ;
Sub Main
Dim A(2),B(2),C(2)
For n1 = 1 To 88
n2 = n1 + 1
For n3 = n2 + 1 To 89
n4 = n3 + 1
For n5 = n4 + 1 To 90
n6 = n5 + 1
A(1) = n1 : A(2) = n2
B(1) = n3 : B(2) = n4
C(1) = Fuori90(n5) : C(2) = Fuori90(n6)
k = k + 1
Scrivi StringaNumeri(A,,1) & ";" & StringaNumeri(B,,1) & ";" & StringaNumeri(C,,1)
Next
Next
Next
Scrivi k,1
End Sub
 
Top
view post Posted on 11/10/2023, 20:50

Top Member

Group:
Member
Posts:
3,901

Status:


Grazie Mike,
il formato è quello giusto, però mi sembra che manca l'abbinamento tra l'ambo 1.2 e l'ambo 2.3.
Dovrebbero essere 17480,

Ci siamo quasi, ciao,
Matteo

Ciao Mike,
mi sembra che mancano anche gli accoppiamenti tra l'ambo 2.3 e 3.4, allo stesso modo mancano 3.4 e 4.5 e via così.

Cioè mi sembra che manchino gli ambi che sono uno successivo all'altro.
Ciao e ancora grazie,
Matteo
 
Top
view post Posted on 11/10/2023, 21:05
Avatar

Top Member

Group:
Member
Posts:
559

Status:


dovrebbero essere queste 117.480 terni
Sub Main
Dim Rit,Max,Freq,sGruppo
Dim A(2)
Dim B(2)
Dim C(2)
For n1 = 1 To 88
n2 = n1 + 1
For n3 = n1 + 1 To 89
n4 = n3 + 1
For n5 = n3 + 1 To 90
n6 = n5 + 1
A(1) = n1 : A(2) = n2
B(1) = n3 : B(2) = n4
C(1) = Fuori90(n5) : C(2) = Fuori90(n6)
k = k + 1
Scrivi StringaNumeri(A,,1) & ";" & StringaNumeri(B,,1) & ";" & StringaNumeri(C,,1)
Next
Next
Next
Scrivi k,1
End Sub
 
Top
view post Posted on 11/10/2023, 21:15

Top Member

Group:
Member
Posts:
3,901

Status:


Bravissimo Mike,
non avevo dubbi, da un controllo veloce mi sembra che siano quelli giusti.
Per chi non avesse molta dimestichezza, questi triambi possono dirci il ritardo di tre ambi consecutivi per la sortita di uno di essi a ruota, a più ruote o a Tutte e naturalmente gli storici.
Ci si può divertire, ciao e un grosso grazie a te che hai reso possibile questo,
Matteo
 
Top
view post Posted on 11/10/2023, 21:23
Avatar

Top Member

Group:
Member
Posts:
559

Status:


Bene Matteo, se ci saranno sviluppi.... vediamo come poter estrapolare una buona previsione.

Ciao
 
Top
view post Posted on 18/10/2023, 15:21

Senior

Group:
Member
Posts:
148

Status:


QUOTE (New Mat @ 11/10/2023, 19:50) 
Ciao a tutti,
avrei bisogno di uno script che mi producesse tutte le terne di ambi consecutivi possibili.
In pratica utilizzando tutti i 90 ambi consecutivi da 1.2 / 2.3 fino a 90.1 ne dovrebbe prendere tre per volta in tutte le combinazioni possibili in questo formato testo, per creare una tabella con L8+

1.2;7.8;20.21

10.11;15.16;30.31

e così via.

So che dovrebbe essere molto semplice per chi ne è capace, ma per me è impossibile.
Ringrazio chiunque abbia tempo e pazienza per farlo, ciao a tutti,

Matteo

Ciao Matteo,
Mi ricorda quando cercavo le combinazioni perfette per le mantovane per tende da interni nel mio salotto. Così tante opzioni e combinaison! 😂 Purtroppo non sono un esperto di script, ma spero che qualcuno qui possa aiutarti. Buona fortuna con la tua ricerca e spero che tu trovi la combinazione perfetta, come per le tende !
 
Top
9 replies since 11/10/2023, 18:50   315 views
  Share