Aiuto per script metodo

[s.studio]

Salve a tutti, è possibile riuscire ad avere uno script gentilmente del seguente ''metodo''?
Questo ''metodo'' nasce da ricerche fatte a occhio, quindi non so quanto valido. Non sapendo programmare., sto provando ad imparare smanettando un po'cambiando gli script presenti nel forum, e adattando qualche sommativo, nulla più.
Dunque:
Si ricercano in un quadro estrazionale, (Q1) un numero sortito 3 volte, di cui due in isotopia.
Si torna indietro di una estrazione. Nel quadro estrazionale(Q2) si ricerca il numero sortito nella stessa posizione del n. non isotopo.
Si sommano gli isotopi del Q1,con il fuori 90, e si aggiunge il numero ricercato nel Q2
Si sommano gli isotopi del Q1, con il fuori 90, e si sottrae il numero ricercato nel Q2
Si formerà un ambo a cui aggiungeremo il vertibile del n. Q1.
Infine avremo una terzina da mettere in gioco sulle 3 ruote di origine.
Vi posto un esempio:

Estrazione del 21-05-2022

Q1

BARI	42	28	73	64	30
CAGLIARI	48	20	07	34	67
FIRENZE	36	27	79	50	87
GENOVA	78	19	87	39	27
MILANO	84	07	83	66	09
NAPOLI	88	08	61	42	26
PALERMO	76	70	56	25	65
ROMA	66	07	88	01	24
TORINO	33	21	49	47	22
VENEZIA	88	11	65	69	37
NAZIONALE	38	31	27	22	14

Q2 19 MAGGIO

BARI	32	21	59	44	90
CAGLIARI	10	25	53	67	17
FIRENZE	07	57	11	01	60
GENOVA	29	51	41	56	48
MILANO	86	41	37	30	26
NAPOLI	33	54	78	41	19
PALERMO	23	13	06	81	56
ROMA	04	14	61	17	47
TORINO	03	42	34	69	59
VENEZIA	89	13	38	74	65
NAZIONALE	53	35	85	72	82

I NUMERI DA GIOCARE SARANNO

1) 88+88= 176 , 176-90=86 , 86+61=147 , 147-90=57
2) 88+88= 176 , 176-90=86 , 86-61= 25
3) Vertibile 88 = 89

57-25-89

Da giocare per ambo ambetto e terno sulle ruote di origine NAPOLI, ROMA , VENEZIA.
Estrazione del 07-06-2022

BARI 2 . 78 . 57 . 59 . 26
CAGLIARI 59 . 7 . 70 . 60 . 72
FIRENZE 56 . 27 . 69 . 79 . 66
GENOVA 4 . 39 . 84 . 30 . 69
MILANO 90 . 28 . 71 . 53 . 80
NAPOLI 11 . 28 . 43 . 52 . 58
PALERMO 3 . 54 . 10 . 41 . 15
ROMA 32 . 52 . 53 . 89 . 25 AMBO
TORINO 60 . 44 . 82 . 38 . 80
VENEZIA 27 . 60 . 23 . 82 . 48
NAZIONALE 45 . 68 . 11 . 54 . 40

Facendo una ricerca a mano c'è qualche risultato, ma non so a che punto validi ai fini statistici.
Se qualcuno ha voglia e tempo, lo ringrazio anticipatamente.
Se non dovessi avere riscontro , spero di aver fatto lo stesso cosa gradita, postando un mio metodo.
Un saluto a tutti!!!

 

[Ald]

Ciao vedi se va bene..
Sub Main()
Scrivi "_________________________script By Ald",True
Dim Anum(4),Aposte(2),Aruote(3)
For Est = EstrazioneFin - 30 To EstrazioneFin
For r1 = 1 To 10
For r2 = 1 To 9
For r3 = 1 To 8
If r1 <> r2 And R1 <> r3 And R2 <> r3 Then
For P1 = 1 To 5
For P2 = 1 To 5
For P3 = 1 To 5
For p4 = 1 To 5
If p1 = p2 And p3 = p4 Then
n1 = Estratto(Est,r1,p1)
n2 = Estratto(Est,r2,p2)
n3 = Estratto(Est,r3,p3)
n4 = Estratto(Est - 1,r3,p4)
If n1 = n2 And n2 = n3 And n3 <> n4 Then
Anum(2) = Fuori90((n1 + n2) + n4)
Anum(3) = Fuori90((n1 + n2) - n4)
Anum(4) = Vert(n1)
Aruote(1) = r1
Aruote(2) = r2
Aruote(3) = r3
'Aposte(1) = 1
Aposte(2) = 1
ImpostaGiocata 1,Anum,Aruote,Aposte,12
Gioca Est
Scrivi DataEstrazione(Est - 1) + " " + NomeRuota(r3) + " " + FormattaStringa(n4,"##00")
Scrivi DataEstrazione(Est) + " " + NomeRuota(r1) + " " + FormattaStringa(n1,"##00") + " " + NomeRuota(r2) + " " + FormattaStringa(n2,"##00") + " " + NomeRuota(r3) + " " + FormattaStringa(n3,"##00")
End If
End If
Next
Next
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

 

[s.studio]

Ciao vedi se va bene..
Sub Main()
Scrivi "_________________________script By Ald",True
Dim Anum(4),Aposte(2),Aruote(3)
For Est = EstrazioneFin - 30 To EstrazioneFin
For r1 = 1 To 10
For r2 = 1 To 9
For r3 = 1 To 8
If r1 <> r2 And R1 <> r3 And R2 <> r3 Then
For P1 = 1 To 5
For P2 = 1 To 5
For P3 = 1 To 5
For p4 = 1 To 5
If p1 = p2 And p3 = p4 Then
n1 = Estratto(Est,r1,p1)
n2 = Estratto(Est,r2,p2)
n3 = Estratto(Est,r3,p3)
n4 = Estratto(Est - 1,r3,p4)
If n1 = n2 And n2 = n3 And n3 <> n4 Then
Anum(2) = Fuori90((n1 + n2) + n4)
Anum(3) = Fuori90((n1 + n2) - n4)
Anum(4) = Vert(n1)
Aruote(1) = r1
Aruote(2) = r2
Aruote(3) = r3
'Aposte(1) = 1
Aposte(2) = 1
ImpostaGiocata 1,Anum,Aruote,Aposte,12
Gioca Est
Scrivi DataEstrazione(Est - 1) + " " + NomeRuota(r3) + " " + FormattaStringa(n4,"##00")
Scrivi DataEstrazione(Est) + " " + NomeRuota(r1) + " " + FormattaStringa(n1,"##00") + " " + NomeRuota(r2) + " " + FormattaStringa(n2,"##00") + " " + NomeRuota(r3) + " " + FormattaStringa(n3,"##00")
End If
End If
Next
Next
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

Grazie, molto gentile!