Script biambo

Cinzia27 · 18 Aprile 2023

Evidentemente non l'ho trascritto sul forum, dato che lo script ( quello che uso nell'altro programma) lo riporta
34.53;37.39 Sto: 48 At: 12

'Script usato per i risultati definitivi - Cinzia
Option Explicit
Sub main()

Dim ambi(4005,2)
Dim biambo(2,2)
Dim ru(2)
Dim so
Dim i,j,c,rt,st

ru(1)=11
ru(2)=12
so=2

For i= 34 To 89
For j= i+1 To 90
c=c+1
ambi(c,1)=i
ambi(c,2)=j
Next
Next

For i=19 To 4004 ' cambiare 1 con un numero superiore
biambo(1,1)=ambi(i,1)
biambo(2,1)=ambi(i,2)
For j=i+1 To 4005'i
biambo(1,2)=ambi(j,1)
biambo(2,2)=ambi(j,2)
rt=SerieRitardo (EstrazioneFin-51 , EstrazioneFin,biambo,ru,so)
If rt<14 Then 'imposta il ritardo attuale
st=SerieStorico (7440, EstrazioneFin,biambo,ru,so)
If st<160 Then 'imposta il ritardo storico

Scrivi CStr(biambo(1,1)) & "." & CStr(biambo(2,1)) & ";" & _
CStr(biambo(1,2)) & "." & CStr(biambo(2,2)) & vbtab & " Sto:" & _
FormatSpace(st,4,1)& " At:" &(FormatSpace(rt,4,1))
End If
End If

Next
Next

End Sub

Cinzia27 · 18 Aprile 2023

Ottimo Edesimone
Manca dalla 15 alla 20 e poi abbiamo finito.

01.05	51.81	Att	3	Sto	45
01.09	06.89	Att	3	Sto	47
01.22	31.52	Att	37	Sto	47
01.22	45.74	Att	28	Sto	49
01.22	47.55	Att	37	Sto	49
01.22	64.74	Att	20	Sto	49
02.08	08.42	Att	43	Sto	48
03.69	31.67	Att	38	Sto	45
04.46	06.89	Att	3	Sto	49
04.51	06.89	Att	3	Sto	49
04.51	22.30	Att	1	Sto	46
04.51	22.47	Att	6	Sto	49
04.61	06.89	Att	3	Sto	46
06.17	08.61	Att	9	Sto	47
06.30	63.80	Att	15	Sto	48
06.57	26.30	Att	8	Sto	49
06.77	10.13	Att	27	Sto	48
06.84	54.65	Att	0	Sto	49
06.89	15.34	Att	3	Sto	49
06.89	27.66	Att	3	Sto	49
06.89	33.36	Att	3	Sto	48
06.89	36.74	Att	3	Sto	49
06.89	40.82	Att	3	Sto	48
07.48	38.61	Att	2	Sto	48
08.18	48.67	Att	9	Sto	49
08.62	09.56	Att	10	Sto	47
08.63	20.51	Att	8	Sto	49
08.85	57.80	Att	1	Sto	48
09.45	75.82	Att	11	Sto	49
10.13	61.69	Att	22	Sto	48
10.13	82.86	Att	27	Sto	48
10.34	75.82	Att	11	Sto	49
10.44	64.78	Att	35	Sto	49
10.70	33.36	Att	11	Sto	49
da inizio matrice fino "i" = 845
da "i" 2176 a fine matrice
0014118 Ambo 11.16 32.76 RitATT 005 RitSTO 047 Pre 169 0053865 Ambo 11.29 15.21 RitATT 001 RitSTO 049 Pre 173 0357034 Ambo 12.49 16.51 RitATT 028 RitSTO 049 Pre 155 0396934 Ambo 12.62 22.47 RitATT 006 RitSTO 048 Pre 193
Ambo 13.47 43.51 RitATT 021 RitSTO 049 Pre 195 Ambo 13.47 61.69 RitATT 021 RitSTO 045 Pre 198 Ambo 14.29 75.82 RitATT 007 RitSTO 049 Pre 169 Ambo 14.63 74.90 RitATT 000 RitSTO 049 Pre 176 Ambo 14.85 70.80 RitATT 000 RitSTO 049 Pre 171
Manca dalla 15 alla 20
0390077 Ambo 23.54 36.74 RitATT 020 RitSTO 049 Pre 153 0576391 Ambo 24.72 65.79 RitATT 031 RitSTO 046 Pre 185 0749526 Ambo 25.89 42.79 RitATT 018 RitSTO 048 Pre 192 0093714 Ambo 26.71 47.62 RitATT 032 RitSTO 048 Pre 172 0094153 Ambo 26.71 59.63 RitATT 014 RitSTO 049 Pre 178 0002094 Ambo 29.31 32.58 RitATT 013 RitSTO 049 Pre 167 0039119 Ambo 29.50 63.80 RitATT 024 RitSTO 049 Pre 175 0050647 Ambo 29.56 82.86 RitATT 035 RitSTO 049 Pre 193 0105003 Ambo 29.86 42.87 RitATT 005 RitSTO 049 Pre 172

30.59	44.63	Att	2	Sto	47
30.87	63.80	Att	15	Sto	49
31.77	34.53	Att	11	Sto	44
31.90	79.86	Att	15	Sto	49
32.57	65.83	Att	1	Sto	49
32.79	57.80	Att	1	Sto	49
33.38	43.50	Att	25	Sto	49
33.38	68.81	Att	28	Sto	49
34.53	37.39	Att	11	Sto	44
37.41	39.55	Att	15	Sto	48
37.47	43.87	Att	23	Sto	49
37.49	48.67	Att	9	Sto	49
37.73	45.74	Att	7	Sto	48
38.65	82.86	Att	2	Sto	49
39.74	59.61	Att	2	Sto	49
42.77	85.88	Att	4	Sto	48
47.54	73.89	Att	3	Sto	49
54.84	80.82	Att	10	Sto	49
60.88	73.89	Att	8	Sto	48
73.87	85.88	Att	8	Sto	49

Mat · 18 Aprile 2023

Ciao Cinzia,
per non creare confusione, apro un altro post con i dati seguendo i miei parametri, se a qualcuno interessano, ciao
Matteo

i legend · 18 Aprile 2023

Ciao
NON SI GARANTISCE CHE I DATI SIANO ESATTI

Codice:

Non si garantisce che i dati siano esatti
Archivio 7440,10225
Come filtro Rmax ho inserito 50 compreso
id;Ambo1;Ambo2;Rmax;Rc
1; 01.05 ; 51.81 ;45;3
2; 01.09 ; 06.89 ;47;3
3; 01.09 ; 63.80 ;50;5
4; 01.22 ; 29.66 ;50;37
5; 01.22 ; 31.52 ;47;37
6; 01.22 ; 45.74 ;49;28
7; 01.22 ; 47.55 ;49;37
8; 01.22 ; 64.74 ;49;20
9; 01.67 ; 27.33 ;50;0
10; 01.88 ; 88.90 ;50;40
11; 02.08 ; 08.42 ;48;43
12; 02.11 ; 07.50 ;50;32
13; 03.69 ; 31.67 ;45;38
14; 03.69 ; 33.46 ;50;45
15; 04.46 ; 06.89 ;49;3
16; 04.51 ; 06.89 ;49;3
17; 04.51 ; 22.30 ;46;1
18; 04.51 ; 22.47 ;49;6
19; 04.51 ; 41.58 ;50;32
20; 04.51 ; 85.88 ;50;34
21; 04.59 ; 53.68 ;50;11
22; 04.61 ; 06.89 ;46;3
23; 04.61 ; 12.39 ;50;7
24; 05.43 ; 56.61 ;50;15
25; 05.56 ; 20.82 ;50;11
26; 05.57 ; 49.58 ;50;12
27; 06.17 ; 08.61 ;47;9
28; 06.30 ; 63.80 ;48;15
29; 06.57 ; 11.58 ;50;8
30; 06.57 ; 26.30 ;49;8
31; 06.74 ; 37.90 ;50;0
32; 06.77 ; 10.13 ;48;27
33; 06.84 ; 09.78 ;50;0
34; 06.84 ; 54.65 ;49;0
35; 06.84 ; 72.88 ;50;0
36; 06.89 ; 08.84 ;50;3
37; 06.89 ; 11.76 ;50;3
38; 06.89 ; 15.34 ;49;3
39; 06.89 ; 19.27 ;50;3
40; 06.89 ; 21.65 ;50;3
41; 06.89 ; 27.66 ;49;3
42; 06.89 ; 33.36 ;48;3
43; 06.89 ; 36.74 ;49;3
44; 06.89 ; 40.82 ;48;3
45; 06.89 ; 56.68 ;50;1
46; 06.89 ; 66.73 ;50;3
47; 06.90 ; 45.76 ;50;19
48; 07.20 ; 71.86 ;50;7
49; 07.48 ; 38.61 ;48;2
50; 07.53 ; 28.31 ;50;17
51; 07.55 ; 32.75 ;50;33
52; 08.18 ; 48.67 ;49;9
53; 08.42 ; 30.77 ;50;43
54; 08.51 ; 26.85 ;50;5
55; 08.62 ; 09.56 ;47;10
56; 08.63 ; 20.51 ;49;8
57; 08.85 ; 57.80 ;48;1
58; 09.15 ; 16.19 ;50;3
59; 09.45 ; 75.82 ;49;11
60; 10.11 ; 10.13 ;50;2
61; 10.13 ; 20.80 ;50;27
62; 10.13 ; 61.69 ;48;22
63; 10.13 ; 68.81 ;50;27
64; 10.13 ; 82.86 ;48;27
65; 10.34 ; 75.82 ;49;11
66; 10.44 ; 64.78 ;49;35
67; 10.70 ; 33.36 ;49;11
68; 11.16 ; 32.76 ;47;5
69; 11.29 ; 15.21 ;49;1
70; 11.29 ; 64.74 ;50;1
71; 11.33 ; 42.45 ;50;27
72; 11.58 ; 41.90 ;50;27
73; 11.58 ; 73.89 ;50;27
74; 11.61 ; 30.42 ;50;2
75; 12.49 ; 16.51 ;49;28
76; 12.56 ; 58.76 ;50;25
77; 12.62 ; 22.47 ;48;6
78; 12.62 ; 27.33 ;50;17
79; 12.62 ; 44.73 ;50;7
80; 12.68 ; 42.60 ;50;16
81; 12.80 ; 73.89 ;50;18
82; 13.20 ; 43.73 ;50;1
83; 13.44 ; 25.36 ;50;11
84; 13.47 ; 15.61 ;50;8
85; 13.47 ; 22.39 ;50;2
86; 13.47 ; 43.51 ;49;21
87; 13.47 ; 61.69 ;45;21
88; 13.48 ; 34.70 ;50;8
89; 14.22 ; 65.79 ;50;27
90; 14.29 ; 75.82 ;49;11
91; 14.63 ; 74.90 ;49;0
92; 14.80 ; 49.90 ;50;30
93; 14.85 ; 70.80 ;49;0
94; 15.59 ; 32.74 ;50;1
95; 15.81 ; 31.77 ;50;9
96; 15.82 ; 37.41 ;49;14
97; 15.82 ; 81.90 ;50;14
98; 16.68 ; 51.81 ;49;21
99; 17.20 ; 51.78 ;50;2
100; 17.22 ; 29.34 ;47;33
101; 17.56 ; 37.42 ;50;4
102; 18.25 ; 29.59 ;50;5
103; 18.45 ; 23.76 ;50;13
104; 18.52 ; 43.73 ;48;1
105; 18.52 ; 67.69 ;50;7
106; 19.24 ; 72.89 ;50;28
107; 20.39 ; 33.48 ;49;2
108; 20.45 ; 58.68 ;50;9
109; 20.51 ; 42.60 ;47;16
110; 20.51 ; 63.80 ;48;37
111; 20.54 ; 30.85 ;49;10
112; 20.55 ; 30.33 ;50;26
113; 20.55 ; 58.90 ;49;5
114; 20.65 ; 33.78 ;50;13
115; 20.81 ; 65.69 ;49;2
116; 20.82 ; 48.68 ;50;3
117; 21.47 ; 71.86 ;50;8
118; 21.81 ; 37.90 ;50;41
119; 22.47 ; 65.84 ;50;6
120; 22.49 ; 76.81 ;50;6
121; 23.45 ; 35.39 ;50;1
122; 23.54 ; 36.74 ;49;20
123; 24.72 ; 65.79 ;46;31
124; 24.88 ; 31.62 ;50;17
125; 25.33 ; 37.90 ;50;29
126; 25.33 ; 59.79 ;50;29
127; 25.84 ; 43.90 ;50;34
128; 25.89 ; 42.79 ;48;18
129; 26.48 ; 66.81 ;50;5
130; 26.60 ; 41.45 ;50;44
131; 26.71 ; 47.62 ;48;32
132; 26.71 ; 59.63 ;49;14
133; 26.85 ; 45.74 ;50;5
134; 28.67 ; 80.82 ;50;32
135; 29.31 ; 32.58 ;49;13
136; 29.50 ; 63.80 ;49;24
137; 29.56 ; 82.86 ;49;35
138; 29.62 ; 44.69 ;50;17
139; 29.86 ; 42.87 ;49;5
140; 30.33 ; 79.89 ;50;26
141; 30.59 ; 44.63 ;47;2
142; 30.77 ; 73.90 ;50;1
143; 30.87 ; 63.80 ;49;15
144; 31.34 ; 41.90 ;50;2
145; 31.34 ; 57.80 ;50;1
146; 31.77 ; 34.53 ;44;11
147; 31.90 ; 79.86 ;49;15
148; 32.57 ; 65.83 ;49;1
149; 32.79 ; 57.80 ;49;1
150; 33.36 ; 78.87 ;50;11
151; 33.38 ; 43.50 ;49;25
152; 33.38 ; 68.81 ;49;28
153; 34.53 ; 37.39 ;48;11
154; 35.37 ; 59.69 ;50;1
155; 37.41 ; 39.55 ;48;15
156; 37.47 ; 43.87 ;49;23
157; 37.49 ; 48.67 ;49;9
158; 37.73 ; 45.74 ;48;7
159; 38.65 ; 82.86 ;49;2
160; 39.74 ; 59.61 ;49;2
161; 40.77 ; 46.51 ;50;19
162; 42.77 ; 85.88 ;48;4
163; 45.51 ; 76.77 ;50;4
164; 47.51 ; 48.81 ;50;41
165; 47.54 ; 73.89 ;49;3
166; 47.78 ; 73.89 ;50;22
167; 47.82 ; 53.68 ;50;3
168; 48.67 ; 76.81 ;50;10
169; 49.68 ; 57.80 ;50;0
170; 54.84 ; 80.82 ;49;10
171; 57.65 ; 82.83 ;50;13
172; 57.80 ; 65.89 ;50;1
173; 58.90 ; 82.86 ;50;5
174; 60.88 ; 73.89 ;48;8
175; 61.69 ; 80.82 ;50;22
176; 73.87 ; 85.88 ;49;8

Solo per confronto dati
ho impiegato 3 ore ma se qualcuno ha un i7 recente ( senza scomodare super pc quantistici) dovrebbe essere molto piu veloce .

ovviamente è una routine ad Hoc .
un abito cucito su questa ricerca.
se i risultati sono esatti tutti sarebbe grandioso

io ho trovato questi risultati Ma bisogna controllare non so se sono esatti

edesimone · 18 Aprile 2023

Cinzia27 lanciato ora 15-20

Cinzia27 · 18 Aprile 2023

Controllo subito, Ilegend

Cinzia27 · 18 Aprile 2023

Fatto, Ilegend, i risultati collimano esattamente con la tabella, devi solo depennare i biambi con st 50, dato che tutta
la ricerca si basa sullo storico <50.
Anche gli attuali corrispondono, tranne il 14.29/75.82 che attualmente è 12, da te 11. nella tabella 7.
Ma è l'unico.
Resta da aspettare Edesimone per fare il confronto con 15-20.

Se non sono indiscreta
è più veloce la tua routine? Hai avuto tutti i risultati insieme o giorno per giorno?
Complimenti comunque!

i legend · 18 Aprile 2023

In 3 ore tutta la ricerca
Con un i5 o i7 recente dovrebbe essere più veloce.

Ho scritto in csv così si può portare in foglio di calcolo e filtrare.

i legend · 19 Aprile 2023

Se tutti i risultati risultassero esatti , posto lo script sarebbe interessante vedere la velocità con pc più recenti del mio,

Buona notte a tutti

edesimone · 19 Aprile 2023

i legend se metti lo script provo io con i7, naturalmente deve girare su spaziometria

edesimone · 19 Aprile 2023

Cinzia27 Risultato finale 15-20
0187245 Ambo 15.82 37.41 RitATT 014 RitSTO 049 Pre 194
0353072 Ambo 16.68 51.81 RitATT 021 RitSTO 049 Pre 167
0425079 Ambo 17.22 29.34 RitATT 033 RitSTO 047 Pre 169
0695606 Ambo 18.52 43.73 RitATT 001 RitSTO 048 Pre 189
1018842 Ambo 20.39 33.48 RitATT 002 RitSTO 049 Pre 179
1048836 Ambo 20.51 42.60 RitATT 016 RitSTO 047 Pre 185
0002093 Ambo 20.51 63.80 RitATT 037 RitSTO 048 Pre 197
0008035 Ambo 20.54 30.85 RitATT 010 RitSTO 049 Pre 173
0011764 Ambo 20.55 58.90 RitATT 005 RitSTO 049 Pre 175
0075288 Ambo 20.81 65.69 RitATT 002 RitSTO 049 Pre 183

silop2005 · 19 Aprile 2023

SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e SpazioLight.net V.1.0.38

======================

Ciao Cinzia ,

======================

ecco il secondo risultato dei biambi

======================

0052475 Ambo 13.47 43.51 RitATT 021 RitSTO 049 Pre 195

0053168 Ambo 13.47 61.69 RitATT 021 RitSTO 045 Pre 198

0223973 Ambo 14.29 75.82 RitATT 011 RitSTO 049 Pre 170

0322345 Ambo 14.63 74.90 RitATT 000 RitSTO 049 Pre 176

0385306 Ambo 14.85 70.80 RitATT 000 RitSTO 049 Pre 171

0587011 Ambo 15.82 37.41 RitATT 014 RitSTO 049 Pre 194

dopo ore 06:27:15

======================

ho ripreso dalla 1273 con ambo 16-59

sempre alla 1590 con ambo 20-90

Aspettiamo….

======================

Buon mercoledì a tutto il forum.

======================

A presto

Silop

Gam · 19 Aprile 2023

Cinzia27 ha scritto:
Gam, mi spieghi per favore nel dettaglio questi numeri che appaiono in output

In output
00:33:38
1108
1965
82378

E complimenti per lo script

Ciao Cinzia,
in ordine hai:

il tempo trascorso di elaborazione
l'ultimo "i" elaborato
l'ultimo "j" elaborato
il numero di biambi elaborati

Saluti

Gam · 19 Aprile 2023

Ciao a tutti, ho cercato di fare ordine, lasciando in "sospeso" i dati di cui non ho certa verifica. E in questo caso chiedo a voi di confermare.

NB: la colonna dei valori Attuali potrebbe non essere corretta, ma con un + o - 1 a seconda che qualche ricerca sia stata fatta prima e dopo l'estrazione di ieri sera, ma ininfluente sullo storico.

01.05	51.81	Att	3	Sto	45	Cinzia
01.09	06.89	Att	3	Sto	47	Cinzia
01.22	31.52	Att	37	Sto	47	Cinzia
01.22	45.74	Att	28	Sto	49	Cinzia
01.22	47.55	Att	37	Sto	49	Cinzia
01.22	64.74	Att	20	Sto	49	Cinzia
02.08	08.42	Att	43	Sto	48	Cinzia
03.69	31.67	Att	38	Sto	45	Cinzia
04.46	06.89	Att	3	Sto	49	Cinzia
04.51	06.89	Att	3	Sto	49	Cinzia
04.51	22.30	Att	1	Sto	46	Cinzia
04.51	22.47	Att	6	Sto	49	Cinzia
04.61	06.89	Att	3	Sto	46	Cinzia
06.17	08.61	Att	9	Sto	47	Cinzia
06.30	63.80	Att	15	Sto	48	Cinzia
06.57	26.30	Att	8	Sto	49	Cinzia
06.77	10.13	Att	27	Sto	48	Cinzia
06.84	54.65	Att	0	Sto	49	Cinzia
06.89	15.34	Att	3	Sto	49	Cinzia
06.89	27.66	Att	3	Sto	49	Cinzia
06.89	33.36	Att	3	Sto	48	Cinzia
06.89	36.74	Att	3	Sto	49	Cinzia
06.89	40.82	Att	3	Sto	48	Cinzia
07.48	38.61	Att	2	Sto	48	Gam	Dal 07 al 10 con “i” da 520 al 845
08.18	48.67	Att	9	Sto	49	Gam
08.62	09.56	Att	10	Sto	47	Gam
08.63	20.51	Att	8	Sto	49	Gam
08.85	57.80	Att	1	Sto	48	Gam
09.45	75.82	Att	11	Sto	49	Gam
10.13	61.69	Att	22	Sto	48	Gam
10.13	82.86	Att	27	Sto	48	Gam
10.34	75.82	Att	11	Sto	49	Gam
10.44	64.78	Att	35	Sto	49	Gam
10.70	33.36	Att	11	Sto	49	Gam	fino “i” = 845

Work in	progress					Silop2005	Dal 11 al 20 con “i” da 846 al 1590

11.16	32.76	Att	5	Sto	47	Silop2005	Dal 11 al … con “i” da 846 al 1018
11.29	15.21	Att	1	Sto	49	Silop2005
12.49	16.51	Att	28	Sto	49	Silop2005
12.62	22.47	Att	6	Sto	48	Silop2005

13.47	43.51	Att	21	Sto	49	Master	non si sa con certezza i di partenza e arrivo
13.47	61.69	Att	21	Sto	45	Master
14.29	75.82	Att	7	Sto	49	Master
14.63	74.90	Att	0	Sto	49	Master
14.85	70.80	Att	0	Sto	49	Master

15.82	37.41	Att	14	Sto	49	edesimone	Dal 15 al 20
16.68	51.81	Att	21	Sto	49	edesimone
17.22	29.34	Att	33	Sto	47	edesimone
18.52	43.73	Att	1	Sto	48	edesimone
20.39	33.48	Att	2	Sto	49	edesimone
20.51	42.60	Att	16	Sto	47	edesimone
20.51	63.80	Att	37	Sto	48	edesimone
20.54	30.85	Att	10	Sto	49	edesimone
20.55	58.90	Att	5	Sto	49	edesimone
20.81	65.69	Att	2	Sto	49	edesimone

23.54	36.74	Att	20	Sto	49	edesimone	Dal 21 al 29 con “i” da 1591 al 2175
24.72	65.79	Att	31	Sto	46	edesimone
25.89	42.79	Att	18	Sto	48	edesimone
26.71	47.62	Att	32	Sto	48	edesimone
26.71	59.63	Att	14	Sto	49	edesimone
29.31	32.58	Att	13	Sto	49	edesimone
29.50	63.80	Att	24	Sto	49	edesimone
29.56	82.86	Att	35	Sto	49	edesimone
29.86	42.87	Att	5	Sto	49	edesimone
30.59	44.63	Att	2	Sto	47	Cinzia	Dal 30 al 32 con “i” da 2176 al 4004
30.87	63.80	Att	15	Sto	49	Cinzia
31.77	34.53	Att	11	Sto	44	Cinzia
31.90	79.86	Att	15	Sto	49	Cinzia
32.57	65.83	Att	1	Sto	49	Cinzia
32.79	57.80	Att	1	Sto	49	Cinzia
33.38	43.50	Att	25	Sto	49	Cinzia
33.38	68.81	Att	28	Sto	49	Cinzia
34.53	31.77	Att	11	Sto	44	Cinzia
37.41	39.55	Att	15	Sto	48	Cinzia
37.47	43.87	Att	23	Sto	49	Cinzia
37.49	48.67	Att	9	Sto	49	Cinzia
37.73	45.74	Att	7	Sto	48	Cinzia
38.65	82.86	Att	2	Sto	49	Cinzia
39.74	59.61	Att	2	Sto	49	Cinzia
42.77	85.88	Att	4	Sto	48	Cinzia
47.54	73.89	Att	3	Sto	49	Cinzia
54.84	80.82	Att	10	Sto	49	Cinzia
60.88	73.89	Att	8	Sto	48	Cinzia
73.87	85.88	Att	8	Sto	49	Cinzia

Dovremmo quasi esserci

i legend · 19 Aprile 2023

Ciao a tutti

Queste ricerche sono per pc possenti.
Oppure si fa, come si è fatto questa volta in gruppo .

Stamattina ho rilanciato tutto e ci ha messo un po meno , a pc riposato e fresco.
Ora sono fuori perché ho degli impegni. Verso l una piu o meno posto lo script così chi vuole può provarlo

Per curiosità proverò a eseguire anche lo script del bravissimo gam.
Ciao a tutti e a dopo.

rubino2 · 19 Aprile 2023

con spaziometria. totale biambi ha impiegato 5ore 53 minuti sul mio pc.

Cinzia27 · 19 Aprile 2023

edesimone ha scritto:
Cinzia27 Risultato finale 15-20
0187245 Ambo 15.82 37.41 RitATT 014 RitSTO 049 Pre 194
0353072 Ambo 16.68 51.81 RitATT 021 RitSTO 049 Pre 167
0425079 Ambo 17.22 29.34 RitATT 033 RitSTO 047 Pre 169
0695606 Ambo 18.52 43.73 RitATT 001 RitSTO 048 Pre 189
1018842 Ambo 20.39 33.48 RitATT 002 RitSTO 049 Pre 179
1048836 Ambo 20.51 42.60 RitATT 016 RitSTO 047 Pre 185
0002093 Ambo 20.51 63.80 RitATT 037 RitSTO 048 Pre 197
0008035 Ambo 20.54 30.85 RitATT 010 RitSTO 049 Pre 173
0011764 Ambo 20.55 58.90 RitATT 005 RitSTO 049 Pre 175
0075288 Ambo 20.81 65.69 RitATT 002 RitSTO 049 Pre 183

Confrontati anche i biambi 15-20 elaborati da Edesimone con quelli di Ilegend.
Tutti giusti.
Sono 82 biambi.
Qui la lista di Ilegend fino a storico 49
Siete stati tutti bravissimi. Grazie

01.05 ; 51.81 ;45;3
01.09 ; 06.89 ;47;3
01.22 ; 31.52 ;47;37
01.22 ; 45.74 ;49;28
01.22 ; 47.55 ;49;37
01.22 ; 64.74 ;49;20
02.08 ; 08.42 ;48;43
03.69 ; 31.67 ;45;38
04.46 ; 06.89 ;49;3
04.51 ; 06.89 ;49;3
04.51 ; 22.30 ;46;1
04.51 ; 22.47 ;49;6
04.61 ; 06.89 ;46;3
06.17 ; 08.61 ;47;9
06.30 ; 63.80 ;48;15
06.57 ; 26.30 ;49;8
06.77 ; 10.13 ;48;27
06.84 ; 54.65 ;49;0
06.89 ; 15.34 ;49;3
06.89 ; 27.66 ;49;3
06.89 ; 33.36 ;48;3
06.89 ; 36.74 ;49;3
06.89 ; 40.82 ;48;3
07.48 ; 38.61 ;48;2
08.18 ; 48.67 ;49;9
08.62 ; 09.56 ;47;10
08.63 ; 20.51 ;49;8
08.85 ; 57.80 ;48;1
09.45 ; 75.82 ;49;11
10.13 ; 61.69 ;48;22
10.13 ; 82.86 ;48;27
10.34 ; 75.82 ;49;11
10.44 ; 64.78 ;49;35
10.70 ; 33.36 ;49;11
11.16 ; 32.76 ;47;5
11.29 ; 15.21 ;49;1
12.49 ; 16.51 ;49;28
12.62 ; 22.47 ;48;6
13.47 ; 43.51 ;49;21
13.47 ; 61.69 ;45;21
14.29 ; 75.82 ;49;11
14.63 ; 74.90 ;49;0
14.85 ; 70.80 ;49;0
15.82 ; 37.41 ;49;14
16.68 ; 51.81 ;49;21
17.22 ; 29.34 ;47;33
18.52 ; 43.73 ;48;1
20.39 ; 33.48 ;49;2
20.51 ; 42.60 ;47;16
20.51 ; 63.80 ;48;37
20.54 ; 30.85 ;49;10
20.55 ; 58.90 ;49;5
20.81 ; 65.69 ;49;2
23.54 ; 36.74 ;49;20
24.72 ; 65.79 ;46;31
25.89 ; 42.79 ;48;18
26.71 ; 47.62 ;48;32
26.71 ; 59.63 ;49;14
29.31 ; 32.58 ;49;13
29.50 ; 63.80 ;49;24
29.56 ; 82.86 ;49;35
29.86 ; 42.87 ;49;5
30.59 ; 44.63 ;47;2
30.87 ; 63.80 ;49;15
31.77 ; 34.53 ;44;11
31.90 ; 79.86 ;49;15
32.57 ; 65.83 ;49;1
32.79 ; 57.80 ;49;1
33.38 ; 43.50 ;49;25
33.38 ; 68.81 ;49;28
34.53 ; 37.39 ;48;11
37.41 ; 39.55 ;48;15
37.47 ; 43.87 ;49;23
37.49 ; 48.67 ;49;9
37.73 ; 45.74 ;48;7
38.65 ; 82.86 ;49;2
39.74 ; 59.61 ;49;2
42.77 ; 85.88 ;48;4
47.54 ; 73.89 ;49;3
54.84 ; 80.82 ;49;10
60.88 ; 73.89 ;48;8
73.87 ; 85.88 ;49;8

i legend · 19 Aprile 2023

Ciao a tutti , posto lo script
Lo script è cucito addosso ai parametri della ricerca , modificarlo potra solo peggiorare le prestazioni
Inserisco le raccomandazioni anche qui sul post.

per favore se non avete un pc performante evitate di lanciarlo.

Ho lasciato il messaggio per farvi valutare a che iterazioni si è e a quante formazioni sono state trovate
se si remma lo script guadagnera parecchio in velocita. ( almeno sul mio pc)

ho lanciato lo script di Gam
a spanne il mio potrebbe essere piu veloce.
se qualcuno lo utilizza mi faccia sapere i tempi. i risultati confrontati sembrano corretti, ma andare sempre con i piedi di piombo
questi sono gli avvisi presenti anche nello script
' N.B:
' NON SI GARANTISCE CHE LO SCRIPT RESTITUISCA DATI ESATTI
' LO SCRIPT NON DEVE ESSERE MODIFICATO POTREBBE RICHIEDERE MOLTISSIME ORE PER COMPLETARE LA RICERCA
' LO SCRIPT è IMPOSTATO PER DEI PARAMETRI RICHIESTI
' PARAMETRO 1: INIZIO 7440
' PARAMETRO 2: RITARDO <=49
' PARAMETRO 3: RUOTE: (1,2,3,4,5,6,7,8,9,10,12) =(tt+NZ)
' MAGGIORE E' IL RANGE DI ESTRAZIONI MAGGIORE SARA IL TEMPO DI IMPIEGO
' MAGGIARE SARA' IL RITARDO RICHIESTO , ESPONENZIALMENTE AUMENTERA IL NUMERO DI ORE PER LA RICERCA
' LO SCRIPT E' CUCITO ADDOSSO AI PARAMETRI RICHIESTI
' PER INTERROMPERE L ELABORAZIONE SARA' SUFFICENTE PREMERE IL TASTO STOP
' E' NECESSARIO AVERE UN PC POTENTE E MOLTO PERFOMANTE PER ESEGUIRE LO SCRIPT
' UN PC MEDIO CON POCA RAM O UN PROCESSORE INFERIORE A UN I7 DI ULTIMA GENERAZIONE
' FARà MOLTA FATICA A PORTARE A TERMINE L ELABORAZIONE , PERTANTO SE NE SCONSIGLIA
' L UTILIZZO
'IN NESSUN CASO L AUTORE SARA CONSIDERATO RESPONSABILE DELL UTILIZZO DEI DATI RICAVATI DALLO SCRIPT.
' DATI , CHE NON SI GARANTISCE SIANO ESATTI ED ACCURATI.
' vISTO CHE LO SCRIPT E IN CHIARO POTREBBE ESSERE MODIFICATO , POTREBBE ESSERE INSERITO CODICE NOCIVO, COME VIRUS TROJAN ECC.
' LO SCRIPT NON DEVE ESSERE VENDUTO DA NESSUNO IN QUANTO DONATO , E, FATTO SU RICHIESTA
' DELL UTENTE CINZIA27 , L IDEATRICE E PROMOTRICE DI QUESTA RICERCA.
' IN NESSUN CASO L AUTORE DELLO SCRIPT POTRA ESSERE RITENUTO RESPONSABILE DI EVENTUALI
'DANNI ,AI MEZZI INFORMATICI, PERDITE DI DATI , DI MEMORIA, DI DENARO O QUALSIASI ALTRA PERDITA.
' SOLO L UTILIZZATORE SARA RESPONSABILE DELL UTILIZZO DELLO STESSO.
' SE NON SI INTENDONO ACCETTARE ANCHE UNA SOLA DELLE CONDIZIONI , NON UTILIZZARE LO SCRIPT

Codice:

Option Explicit
' N.B:
' NON SI GARANTISCE CHE LO SCRIPT RESTITUISCA DATI ESATTI
' LO SCRIPT NON DEVE ESSERE MODIFICATO POTREBBE RICHIEDERE MOLTISSIME ORE PER COMPLETARE LA RICERCA
' LO SCRIPT è IMPOSTATO PER DEI PARAMETRI RICHIESTI
' PARAMETRO 1: INIZIO 7440
' PARAMETRO 2: RITARDO <=49
' PARAMETRO 3: RUOTE: (1,2,3,4,5,6,7,8,9,10,12)  =(tt+NZ)
' MAGGIORE E' IL RANGE DI ESTRAZIONI MAGGIORE SARA IL TEMPO DI IMPIEGO
' MAGGIARE SARA' IL RITARDO RICHIESTO  , ESPONENZIALMENTE AUMENTERA IL NUMERO DI ORE PER LA RICERCA
' LO SCRIPT E' CUCITO ADDOSSO AI PARAMETRI RICHIESTI
' PER INTERROMPERE L ELABORAZIONE SARA' SUFFICENTE PREMERE IL TASTO STOP
' E' NECESSARIO AVERE UN PC POTENTE E MOLTO PERFOMANTE PER ESEGUIRE LO SCRIPT
' UN PC MEDIO CON POCA RAM O UN PROCESSORE INFERIORE A UN I7 DI ULTIMA GENERAZIONE
' FARà MOLTA FATICA A PORTARE A TERMINE L ELABORAZIONE , PERTANTO SE NE SCONSIGLIA
' L UTILIZZO
'IN NESSUN CASO L AUTORE SARA CONSIDERATO RESPONSABILE DELL UTILIZZO DEI DATI RICAVATI DALLO SCRIPT.
' DATI , CHE NON SI GARANTISCE SIANO ESATTI ED ACCURATI.
' vISTO CHE LO SCRIPT E IN CHIARO POTREBBE ESSERE MODIFICATO , POTREBBE ESSERE INSERITO CODICE NOCIVO, COME VIRUS TROJAN ECC.
' LO SCRIPT NON DEVE ESSERE VENDUTO DA NESSUNO IN QUANTO DONATO , E, FATTO SU RICHIESTA
' DELL UTENTE CINZIA27 , L IDEATRICE E PROMOTRICE DI QUESTA RICERCA.
' IN NESSUN CASO L AUTORE DELLO SCRIPT POTRA ESSERE RITENUTO RESPONSABILE DI EVENTUALI
'DANNI ,AI MEZZI INFORMATICI, PERDITE DI DATI , DI MEMORIA, DI DENARO O QUALSIASI ALTRA PERDITA.
' SOLO L UTILIZZATORE SARA RESPONSABILE DELL UTILIZZO DELLO STESSO.
' SE NON SI INTENDONO ACCETTARE ANCHE UNA SOLA DELLE CONDIZIONI , NON UTILIZZARE LO SCRIPT
Sub Main
    Dim aAmbi(4005,4)
    Dim aR:aR = Array(0,1,2,3,4,5,6,7,8,9,10,12)
    Dim e1,e2,k,aN,i,j
    Dim sIdEstr
    Dim Ini:Ini = 7440
    Dim Fin:Fin = EstrazioneFin
   
    Dim sid1,sid2,atemp,sRit,RitMax,Rit
    Dim LimRitMax:LimRitMax = 49
    Dim bRet,ntro,Rc
    Dim t:t = Timer
    For e1 = 1 To 89
        For e2 = e1 + 1 To 90
            k = k + 1
            aN = Array(0,e1,e2)
            aAmbi(k,1) = StringaNumeri(aN,,True)
            ReDim aRit(0),aId(0)
            Call ElencoRitardiTurbo(aN,aR,2,Ini,Fin,aRit,aId)
            sIdEstr = ""
            For i = 1 To UBound(aId) - 1
                sIdEstr = sIdEstr & aId(i) & "."
            Next
          
            aAmbi(k,2) = sIdEstr
            aAmbi(k,3) = aRit(1)
            aAmbi(k,4) = aRit(UBound(aRit))
        Next
    Next
    Scrivi FormattaSecondi(Timer - t)
    ntro = 0
    k = 0
    t = Timer
    For e1 = 1 To 4004
        For e2 = e1 + 1 To 4005
            If ScriptInterrotto Then Exit For
            If Minimo(aAmbi(e1,3),aAmbi(e2,3)) < LimRitMax Then
            Rc = Minimo(aAmbi(e1,4),aAmbi(e2,4))
                If Rc < LimRitMax Then
                    sid1 = aAmbi(e1,2)
                    sid2 = aAmbi(e2,2)
                    Call ConcatenaIdEstr(Ini,Fin,sid1,sid2,atemp)
                    RitMax = 0
                    bRet = True
                    sRit = ""
                    For i = 1 To UBound(atemp) - 1
                        j = i + 1
                        If atemp(j) <> atemp(i) Then
                            Rit =(atemp(j) - atemp(i)) - 1
                            If Rit > LimRitMax Then bRet = False:Exit For
                            If RitMax < Rit Then RitMax = Rit
                           ' sRit = sRit & Rit & ";"
                        End If
                    Next
                    If bRet Then
                        ntro = ntro + 1
                        Scrivi ntro & " ; " & aAmbi(e1,1) & " ; " & aAmbi(e2,1) & " ; " & RitMax & " ; " & Rc
                    End If
                    DoEventsEx
                End If
            End If
            k = k + 1
' questa sotto è  la eiga da remmare se si vuole aumentare la velocità ma non si avranno riferimenti.
           Call Messaggio(k & "  " & ntro)
        Next
    Next
   ' Scrivi k
    Scrivi FormattaSecondi(Timer - t)
End Sub
Sub ConcatenaIdEstr(Ini,Fin,sId1,sId2,aTemp)
    Dim s:s = ""
    s = "0." &(Ini - 1) & "." & sId1 & sId2 &(Fin + 1)
    aTemp = Split(s,".")
    Call OrdinaMatriceTurbo(aTemp,1)
End Sub
Function FormattaSecondi(s)
    'Questa Function trasforma il numero di secondi passato come parametro in una stringa
    ' passando i secondi si ottengono ore  minuti e secondi  in formato hh:mm:ss
    ' s ---> Numero di secondi da formattare
    ' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
    Dim hh
    Dim Mm
    Dim Ss
    Dim TimeStr
    hh = s \ 3600
    Mm =(s Mod 3600) \ 60
    Ss = s -((hh * 3600) +(Mm * 60))
    TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
    FormattaSecondi = TimeStr
End Function

i legend · 19 Aprile 2023

Per favore non quotate lo script , che se ci fosse qualcosa da correggere lo facciamo solo in un post.
Grazie .

Cinzia27 · 19 Aprile 2023

Grazie, Ilegend per lo script.
Oltre ad essere stato utilissimo al caso, sarà per me un'ottima fonte di insegnamento.

I biambi ricavati grazie al nostro lavoro sono 82.
Il ritardo storico oscilla tra 44 (1 solo caso) e 49.
Con questo script molto semplice si ha la situazione dei ritardi attuali sotto mano.

Codice:

'Biambi con massimo storico da 44 a 49 - sulle 11 ruote dall'estrazione 7440
Sub Main
Dim ru(11)
Dim r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11
Dim n(2),n1(2)

r1 = 1:r2 = 2:r3 = 3:r4 = 4:r5 = 5:r6 = 6:r7 = 7:r8 = 8:r9 = 9:r10 = 10:r11 = 12
ru(1) = r1:ru(2) = r2:ru(3) = r3:ru(4) = r4:ru(5) = r5:ru(6) = r6:ru(7) = r7:ru(8) = r8:ru(9) = r9:ru(10) = r10:ru(11) = r11



 i = 1 : j = 5 : i1 = 51 : j1 = 81
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)
 
 i = 0:j = 0:i1 = 0:j1 = 0
 
  i = 1 : j = 9 : i1 = 6 : j1 = 89
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)
 
 
 

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 1 : j = 22 : i1 = 31 : j1 = 52
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 1 : j = 22 : i1 = 45 : j1 = 74
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 1 : j = 22 : i1 = 47 : j1 = 55
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 1 : j = 22 : i1 = 64 : j1 = 74
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)


  i = 0:j = 0:i1 = 0:j1 = 0
  i = 2 : j = 8 : i1 = 8 : j1 = 42
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)



  i = 0:j = 0:i1 = 0:j1 = 0
  i = 3 : j = 69 : i1 = 31 : j1 = 67
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)



  i = 0:j = 0:i1 = 0:j1 = 0
  i = 4 : j = 46 : i1 = 6: j1 = 89
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 4 : j = 51 : i1 = 6: j1 = 89
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 4 : j = 51 : i1 = 22 : j1 = 30
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 4 : j = 51 : i1 = 22 : j1 = 47
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 4 : j = 61 : i1 = 6 : j1 = 89
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)


  i = 0:j = 0:i1 = 0:j1 = 0
  i = 6: j = 17 : i1 = 8 : j1 = 61
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 6: j = 30 : i1 = 63 : j1 = 80
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 6: j = 57 : i1 = 26 : j1 = 30
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)


  i = 0:j = 0:i1 = 0:j1 = 0
  i = 6: j = 77 : i1 = 10 : j1 = 13
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)


  i = 0:j = 0:i1 = 0:j1 = 0
  i = 6: j = 84 : i1 = 54 : j1 = 65
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

 
  i = 0:j = 0:i1 = 0:j1 = 0
  i = 6: j = 89 : i1 = 15 : j1 = 34
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

 
  i = 0:j = 0:i1 = 0:j1 = 0
  i = 6: j = 89 : i1 = 27 : j1 = 66
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 6: j = 89 : i1 = 33 : j1 = 36
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 6: j = 89 : i1 = 36 : j1 = 74
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 6: j = 89 : i1 = 40 : j1 = 82
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)






  i = 0:j = 0:i1 = 0:j1 = 0
  i = 7: j = 48 : i1 = 38 : j1 = 61
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

 
  i = 0:j = 0:i1 = 0:j1 = 0
  i = 8: j = 18 : i1 = 48 : j1 = 67
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

 
  i = 0:j = 0:i1 = 0:j1 = 0
  i = 8: j = 62 : i1 = 9: j1 = 56
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 8: j = 63 : i1 = 20: j1 = 51
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 8: j = 85 : i1 = 57: j1 = 80
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)



  i = 0:j = 0:i1 = 0:j1 = 0
  i = 9: j = 45 : i1 = 75: j1 = 82
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 10: j = 13 : i1 = 61: j1 = 69
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 10: j = 13 : i1 = 82: j1 = 86
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 10: j = 34 : i1 = 75: j1 = 82
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 10: j = 44 : i1 = 64: j1 = 78
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 10: j = 70 : i1 = 33: j1 = 36
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 11: j = 16 : i1 = 32: j1 = 76
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)


  i = 0:j = 0:i1 = 0:j1 = 0
  i = 11: j = 29 : i1 = 15: j1 = 21
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 12: j = 49 : i1 = 16: j1 = 51
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 12: j = 62 : i1 = 22: j1 = 47
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 13: j = 47 : i1 = 43: j1 = 51
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)


  i = 0:j = 0:i1 = 0:j1 = 0
  i = 13: j = 47 : i1 = 61: j1 = 69
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 14: j = 29 : i1 = 75: j1 = 82
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 14: j = 63 : i1 = 74: j1 = 90
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 14: j = 85 : i1 = 70: j1 = 80
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 15: j = 82 : i1 = 37: j1 = 41
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 16: j = 68 : i1 = 51: j1 = 81
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 17: j = 22 : i1 = 29: j1 = 34
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 18: j = 52 : i1 = 43: j1 = 73
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 20: j = 39 : i1 = 33: j1 = 48
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 20: j = 51 : i1 = 42: j1 = 60
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 20: j = 51 : i1 = 63: j1 = 80
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 20: j = 54 : i1 = 30: j1 = 85
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 20: j = 55 : i1 = 58: j1 = 90
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 20: j = 81 : i1 = 65: j1 = 69
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 23: j = 54 : i1 = 36: j1 = 74
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 24: j = 72 : i1 = 65: j1 = 79
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 25: j = 89 : i1 = 42: j1 = 79
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 26: j = 71 : i1 = 47: j1 = 62
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 26: j = 71 : i1 = 59: j1 = 63
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 29: j = 31 : i1 = 32: j1 = 58
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 29: j = 50 : i1 = 63: j1 = 80
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 29: j = 56 : i1 = 82: j1 = 86
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)


  i = 0:j = 0:i1 = 0:j1 = 0
  i = 29: j = 86 : i1 = 42: j1 = 87
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)


  i = 0:j = 0:i1 = 0:j1 = 0
  i = 30: j = 59 : i1 = 44: j1 = 63
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 30: j = 87 : i1 = 63: j1 = 80
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 31: j = 77 : i1 = 34: j1 = 53
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 31: j = 90 : i1 = 79: j1 = 86
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 32: j = 57 : i1 = 65: j1 = 83
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 32: j = 79 : i1 = 57: j1 = 80
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 33: j = 38 : i1 = 43: j1 = 50
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 33: j = 38 : i1 = 68: j1 = 81
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 34: j = 53 : i1 = 37: j1 = 39
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)


  i = 0:j = 0:i1 = 0:j1 = 0
  i = 37: j = 41 : i1 = 39: j1 = 55
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)


  i = 0:j = 0:i1 = 0:j1 = 0
  i = 37: j = 47 : i1 = 43: j1 = 87
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)


  i = 0:j = 0:i1 = 0:j1 = 0
  i = 37: j = 49 : i1 = 48: j1 = 67
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)


  i = 0:j = 0:i1 = 0:j1 = 0
  i = 37: j = 73 : i1 = 45: j1 = 74
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 38: j = 65 : i1 = 82: j1 = 86
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 39: j = 74 : i1 = 59: j1 = 61
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 42: j = 77 : i1 = 85: j1 = 88
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 47: j = 54 : i1 = 73: j1 = 89
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 54: j = 84 : i1 = 80: j1 = 82
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 60: j = 88 : i1 = 73: j1 = 89
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)

  i = 0:j = 0:i1 = 0:j1 = 0
  i = 73: j = 87 : i1 = 85: j1 = 88
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 rt = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,2)
 rt1 = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n1,ru,2)
 m = Minimo(rt,rt1)
Scrivi StringaNumeri(n) & ";" & StringaNumeri(n1) & " " & FormatSpace(m,4,1)
End Sub

Script biambo

Premium Member

Premium Member

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

Premium Member

Premium Member

Premium Member

Premium Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Member

Member

Premium Member

Super Member >PLATINUM<

Premium Member

Premium Member

Premium Member

Premium Member