Script per sistemi ridotti

[lotto_tom75]

Grazie, Lotto_tom75, io sono già contenta del tuo listato. Non pensavo nemmeno che fosse possibile,
dato che lo avevo già chiesto. Sei stato bravissimo. Ho voluto solo spiegare a Oscar il perché non ricerco un programma che esegua solo sistemi ridotti.
Gentilmente, mi hai proposto di richiamare i numeri da un vettore. Non so se ci riesco, se puoi farlo, mi faresti un' ulteriore cortesia, altrimenti provo a farlo io.
Grazie

Non so se è questo che intendi ma in questa versione sottostante i numeri sono presi dal vettore anzichè dalla tabella che è disattivata ma sempre presente nel caso volessi ripassare a quella. Nell'esempio nel vettore ci sono i primi 20 numeri ma tu puoi ovviamente mettere quelli che preferisci ricordandoti solo di lasciare il primo posto del vettore al valore 0. Come ti ho scritto anche nel codice, come commento in alto, se lasci grado di presenza 0 in pratica chiedi allo script di elaborarti tutte le formazioni per quella data classe scelta in modo integrale senza riduzione alcuna.

Sub Main

'nota: se lasci come grado di presenza 0 genererai tutte le formazioni integrali della classe impostata
' es. con i 20 numeri del vettore di esempio in classe 2 genererai tutte le 190 coppie possibili... ecc...

   Call sviluppaformazionidellaGvoluta
End Sub
Function sviluppaformazionidellaGvoluta
   Dim k
   Dim Classe,Sorte
   Dim acol
   'ReDim anum(90)
   Dim i
   Dim nSorte,Fine,QuantitaNumeriScelti,Inizio
   Dim coltot
   Dim contatore
   contatore = 1
   'ReDim anum(0)
   'QuantitaNumeriScelti = ScegliNumeri(anum)
   Dim anum
   anum = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20)
   Dim gvolutadipartenza
   Dim gvolutadiarrivo
   Dim Classedipartenza
   Dim Classediarrivo
   Classedipartenza = InputBox("Classe di partenza; la + piccola","Classe di partenza; la + piccola",2)
   Classediarrivo = InputBox("Classe di arrivo; la + grande; deve essere necessariamente diversa dalla + piccola","Classe di arrivo; la + grande",Classedipartenza + 1)
   gvolutadipartenza = InputBox("G voluta di partenza; la + piccola; scegliere 0 x sviluppo integrale","G di partenza; la + piccola; 0 x sviluppo integrale",0)'Classedipartenza)
   gvolutadiarrivo = InputBox("G voluta di arrivo; la + grande; scegliere 0 x sviluppo integrale","G di arrivo; la + grande; 0 x sviluppo integrale",0)'Classediarrivo)
   If Classedipartenza > Classediarrivo Or gvolutadipartenza > gvolutadiarrivo Then
      Call Messaggio("Fai attenzione ad Inserire i Valori nel Modo Corretto Indicato")
      Classedipartenza = InputBox("Classe di partenza; la + piccola","Classe di partenza; la + piccola",2)
      Classediarrivo = InputBox("Classe di arrivo; la + grande; deve essere necessariamente diversa dalla + piccola","Classe di arrivo; la + grande",Classedipartenza + 1)
      gvolutadipartenza = InputBox("G voluta di partenza; la + piccola; scegliere 0 x sviluppo integrale","G di partenza; la + piccola; 0 x sviluppo integrale",0)'Classedipartenza)
      gvolutadiarrivo = InputBox("G voluta di arrivo; la + grande; scegliere 0 x sviluppo integrale","G di arrivo; la + grande; 0 x sviluppo integrale",0)'Classediarrivo)
   End If
   Dim sfile
   Dim reportlunghettadoc
   ReDim raccoltanumeri(0)
   sfile = ".\matrice-numerica-desiderata.txt"
   Call CloseFileHandle(sfile) ' chiudo l'handle al file
   Call EliminaFile(sfile) ' cancella eventualmente il file se gia esiste
   sfile = ".\matrice-numerica-desiderata.txt"
   For Classe = Classedipartenza To Classediarrivo
      Sorte = SelEsito(gvolutadipartenza,gvolutadiarrivo)
      coltot = InitSviluppoIntegrale(anum,Classe) ' bisogna provare a sostituire questa riga...
      If coltot > 0 Then
         Do While GetCombSviluppoRid(acol,Sorte) = True
            i = i + 1
            contatore = contatore + 1
            Call AvanzamentoElab(1,coltot,i)
            Call Messaggio("Colonna " & i)
            reportlunghettadoc = StringaNumeri(acol,,True)
            Call Scrivi(StringaNumeri(acol))
            Call ScriviFile(sfile,reportlunghettadoc,False,True) ' scrivo anche sul file preposto
            If ScriptInterrotto Then Exit Do
         Loop
      End If
   Next
   Call CloseFileHandle(sfile) ' chiudo l'handle al file
   Scrivi
   Scrivi "righe totali: " & contatore - 1
   Scrivi
   Scrivi
   Scrivi "formazioni integrali: " & coltot
   Scrivi
   Scrivi
   Scrivi "formazioni ridotte: " & i
   Scrivi
   Scrivi
   Scrivi "da classe: " & Classedipartenza & " a classe " & Classediarrivo
   Scrivi
   Scrivi
   Scrivi "per grado di presenza da: " & gvolutadipartenza & " a grado di presenza " & gvolutadiarrivo
   Scrivi
End Function
Function SelEsito(gvolutadipartenza,gvolutadiarrivo)
   Dim ret
   Dim aVoci
   For ret = gvolutadipartenza To gvolutadiarrivo
      SelEsito = ret
   Next
End Function

 

[Oscar]

Grazie, Oscar, ma a me serve un listato a meno che il programma non mi faccia un sistema ridotto e condizionato come si deve. L' unico modo che conosco è quello manuale ma i grandi numeri richiedono tempo e fanno aumentare il rischio di errori.
Poniamo ad esempio che voglia fare un sistema in terzine garanzia ambo ( tranne tra figure uguali), cioè chiedo che tutti i numeri si abbinino tra di loro meno quelli aventi due figure uguali.

12,38,46,57,73,74
Sono presenti:
figura 1 46.73
figura 2 38.74
figura 3 12.57
Svilupperò le seguenti terzine
12,38,46
12,73,74
38,57,73
46,57,74
se non ho fatto errori, si sono abbinati tutti i numeri tranne quelli di uguale figura.
Il listato deve semplicemente fare quanto sopra, può accadere però che, a differenza dell' esempio sopra, coi numeri che si hanno non si riesca a comporre terzine complete ( che sarebbe l' ideale) in questo caso si lasciano fuori le coppie che non riescono a formare la terzina.
ad esempio, se aggiungiamo il 76

12,38,46
12,73,74
38,57,73
46,57,76
Rimangono fuori e si escludono
12.76
38,76
46,74
57,74

Per Lotto_Tom 75. Ora è molto più chiaro. Farò delle prove e ti farò sapere. Intanto se puoi ricavare qualcosa da quanto detto per Oscar... Mi piacerebbe un listato a questi livelli.

IL programma della Happysoft è professionale e fa tutto quello che vuoi anche oltre , in quanto a creare un listato del genere non è una cosa così semplice

In oltre che tu sappia che tutti i programmi professionali hanno queste funzioni , basta saperle usare

 

[Oscar]

Questi sono 90 numeri a garanzia AMBO sono 1042 combinazioni senza ripetizione delle figure (ma il ridotto mormale a garanzia AMBO sono solamente 976 )

1 2 3
1 4 5
1 6 7
1 8 9
1 11 12
1 13 14
1 15 16
1 17 18
1 20 21
1 22 23
1 24 25
1 26 27
1 29 30
1 31 32
1 33 34
1 35 36
1 38 39
1 40 41
1 42 43
1 44 45
1 47 48
1 49 50
1 51 52
1 53 54
1 56 57
1 58 59
1 60 61
1 62 63
1 65 66
1 67 68
1 69 70
1 71 72
1 74 75
1 76 77
1 78 79
1 80 81
1 83 84
1 85 86
1 87 88
1 89 90
2 4 6
2 5 7
2 8 10
2 9 12
2 13 15
2 14 16
2 17 19
2 18 21
2 22 24
2 23 25
2 26 28
2 27 30
2 31 33
2 32 34
2 35 37
2 36 39
2 40 42
2 41 43
2 44 46
2 45 48
2 49 51
2 50 52
2 53 55
2 54 57
2 58 60
2 59 61
2 62 64
2 63 66
2 67 69
2 68 70
2 71 73
2 72 75
2 76 78
2 77 79
2 80 82
2 81 84
2 85 87
2 86 88
3 4 7
3 5 6
3 8 11
3 9 10
3 13 16
3 14 15
3 17 20
3 18 19
3 22 25
3 23 24
3 26 29
3 27 28
3 31 34
3 32 33
3 35 38
3 36 37
3 40 43
3 41 42
3 44 47
3 45 46
3 49 52
3 50 51
3 53 56
3 54 55
3 58 61
3 59 60
3 62 65
3 63 64
3 67 70
3 68 69
3 71 74
3 72 73
3 76 79
3 77 78
3 80 83
3 81 82
3 85 88
3 86 87
4 8 12
4 9 11
4 10 14
4 15 17
4 16 18
4 19 20
4 21 23
4 24 26
4 25 27
4 28 29
4 30 32
4 33 35
4 34 36
4 37 38
4 39 41
4 42 44
4 43 45
4 46 47
4 48 50
4 51 53
4 52 54
4 55 56
4 57 59
4 60 62
4 61 63
4 64 65
4 66 68
4 69 71
4 70 72
4 73 74
4 75 77
4 78 80
4 79 81
4 82 83
4 84 86
4 87 89
4 88 90
5 8 13
5 9 15
5 10 11
5 12 16
5 17 21
5 18 20
5 19 22
5 24 27
5 25 26
5 28 30
5 29 31
5 33 36
5 34 35
5 37 39
5 38 40
5 42 45
5 43 44
5 46 48
5 47 49
5 51 54
5 52 53
5 55 57
5 56 58
5 60 63
5 61 62
5 64 66
5 65 67
5 69 72
5 70 71
5 73 75
5 74 76
5 78 81
5 79 80
5 82 84
5 83 85
5 87 90
5 88 89
6 8 14
6 9 13
6 10 12
6 11 16
6 17 22
6 18 23
6 19 21
6 20 25
6 26 30
6 27 29
6 28 31
6 32 35
6 34 37
6 36 38
6 39 40
6 41 44
6 43 46
6 45 47
6 48 49
6 50 53
6 52 55
6 54 56
6 57 58
6 59 62
6 61 64
6 63 65
6 66 67
6 68 71
6 70 73
6 72 74
6 75 76
6 77 80
6 79 82
6 81 83
6 84 85
6 86 89
7 8 15
7 9 14
7 10 13
7 11 17
7 12 18
7 19 23
7 20 22
7 21 24
7 26 31
7 27 32
7 28 33
7 29 35
7 30 36
7 37 40
7 38 41
7 39 42
7 44 48
7 45 49
7 46 50
7 47 51
7 53 57
7 54 58
7 55 59
7 56 60
7 62 66
7 63 67
7 64 68
7 65 69
7 71 75
7 72 76
7 73 77
7 74 78
7 80 84
7 81 85
7 82 86
7 83 87
8 16 19
8 18 22
8 20 23
8 21 25
8 24 28
8 27 31
8 29 32
8 30 33
8 34 38
8 36 40
8 37 41
8 39 43
8 42 46
8 45 50
8 47 52
8 48 51
8 49 54
8 55 58
8 56 59
8 57 60
8 61 65
8 63 68
8 64 67
8 66 69
8 70 74
8 72 77
8 73 76
8 75 78
8 79 83
8 81 86
8 82 85
8 84 87
9 16 17
9 19 24
9 20 26
9 21 22
9 23 28
9 25 29
9 30 31
9 32 37
9 33 38
9 34 39
9 35 40
9 41 46
9 42 47
9 43 48
9 44 49
9 50 55
9 51 56
9 52 57
9 53 58
9 59 64
9 60 65
9 61 66
9 62 67
9 68 73
9 69 74
9 70 75
9 71 76
9 77 82
9 78 83
9 79 84
9 80 85
10 15 18
10 16 20
10 17 23
10 21 26
10 22 27
10 24 29
10 25 30
10 31 35
10 32 36
10 33 39
10 34 40
10 38 42
10 41 45
10 43 47
10 44 50
10 48 52
10 49 53
10 51 57
10 54 59
10 56 61
10 58 62
10 60 66
10 63 69
10 65 68
10 67 71
10 70 76
10 72 78
10 74 77
10 75 79
10 80 86
10 81 87
10 83 88
10 84 89
10 85 90
11 13 18
11 14 19
11 15 21
11 22 26
11 23 27
11 24 30
11 25 28
11 31 36
11 32 39
11 33 37
11 34 41
11 35 42
11 40 44
11 43 49
11 45 51
11 46 52
11 48 53
11 50 54
11 55 60
11 57 61
11 58 63
11 59 66
11 62 68
11 64 69
11 67 72
11 70 77
11 71 78
11 73 79
11 75 80
11 76 81
11 82 87
11 84 88
11 85 89
11 86 90
12 13 17
12 14 20
12 15 19
12 22 28
12 23 26
12 24 31
12 25 32
12 27 33
12 29 34
12 35 41
12 36 42
12 37 43
12 38 44
12 40 45
12 46 49
12 47 50
12 51 55
12 52 56
12 53 59
12 54 60
12 58 64
12 61 67
12 62 69
12 63 70
12 65 71
12 68 72
12 73 78
12 74 79
12 76 80
12 77 81
12 82 88
12 83 86
13 19 25
13 20 24
13 21 27
13 23 29
13 26 32
13 28 34
13 30 35
13 33 41
13 36 43
13 37 42
13 38 45
13 39 44
13 46 51
13 47 53
13 48 54
13 50 56
13 52 59
13 55 61
13 57 62
13 60 64
13 63 71
13 65 70
13 66 72
13 68 74
13 69 73
13 75 81
13 77 83
13 78 82
13 79 86
13 80 87
13 84 90
14 17 24
14 18 25
14 21 28
14 22 29
14 26 33
14 27 34
14 30 37
14 31 38
14 35 39
14 36 44
14 40 46
14 42 48
14 43 51
14 45 52
14 47 54
14 49 55
14 53 60
14 56 62
14 57 63
14 58 65
14 61 69
14 64 70
14 66 71
14 67 73
14 72 79
14 74 80
14 75 82
14 76 83
14 78 84
14 81 88
15 20 27
15 22 30
15 23 31
15 25 35
15 26 34
15 28 32
15 29 36
15 37 44
15 38 43
15 39 45
15 40 47
15 41 48
15 46 53
15 49 56
15 50 57
15 52 58
15 54 61
15 55 62
15 59 63
15 64 71
15 65 72
15 66 70
15 67 74
15 68 75
15 73 80
15 76 82
15 77 84
15 79 85
15 81 89
15 83 90
16 21 29
16 22 32
16 23 30
16 24 35
16 26 36
16 27 37
16 28 38
16 31 39
16 33 40
16 41 47
16 42 49
16 44 51
16 45 53
16 46 54
16 48 55
16 50 58
16 56 63
16 57 64
16 59 65
16 60 67
16 62 72
16 66 73
16 68 76
16 69 75
16 71 77
16 74 81
16 78 85
16 80 90
16 82 89
17 25 31
17 27 38
17 28 36
17 29 33
17 30 34
17 32 40
17 37 45
17 39 46
17 41 49
17 42 50
17 43 54
17 47 55
17 48 56
17 51 58
17 52 60
17 57 65
17 59 67
17 61 68
17 63 73
17 64 72
17 66 74
17 69 76
17 70 78
17 75 83
17 77 85
17 79 87
17 82 90
18 24 32
18 26 37
18 28 35
18 29 39
18 30 38
18 31 41
18 33 43
18 34 42
18 40 48
18 44 52
18 46 56
18 47 57
18 49 59
18 50 60
18 51 61
18 53 64
18 55 65
18 58 66
18 62 70
18 67 75
18 68 78
18 69 77
18 71 79
18 73 83
18 74 82
18 76 84
18 80 88
19 26 38
19 27 35
19 29 40
19 30 41
19 31 42
19 32 43
19 33 44
19 34 45
19 36 47
19 39 49
19 48 58
19 50 61
19 51 59
19 52 62
19 53 63
19 54 65
19 56 66
19 57 67
19 60 68
19 69 79
19 70 80
19 71 81
19 72 83
19 74 84
19 75 85
19 76 86
19 77 87
19 78 88
20 28 39
20 30 40
20 31 37
20 32 42
20 33 45
20 34 44
20 35 43
20 36 41
20 46 57
20 48 59
20 49 60
20 50 62
20 51 63
20 52 64
20 53 61
20 54 66
20 55 67
20 58 68
20 69 80
20 70 81
20 71 82
20 72 84
20 73 85
20 75 86
20 76 87
20 77 88
20 78 89
20 79 90
21 31 43
21 32 38
21 33 46
21 34 47
21 35 45
21 36 49
21 37 50
21 40 51
21 41 52
21 42 53
21 44 54
21 55 63
21 56 64
21 58 69
21 59 70
21 60 71
21 61 72
21 62 73
21 65 76
21 67 77
21 68 79
21 74 85
21 78 86
21 83 89
22 33 47
22 34 46
22 35 48
22 36 50
22 37 51
22 38 52
22 39 53
22 41 54
22 42 55
22 43 56
22 44 57
22 45 59
22 60 70
22 61 71
22 62 74
22 63 75
22 64 77
22 65 73
22 66 78
22 68 80
22 69 81
22 72 82
22 79 89
23 33 48
23 34 49
23 35 46
23 36 51
23 37 47
23 38 53
23 39 52
23 40 54
23 42 56
23 43 55
23 44 58
23 45 57
23 60 72
23 61 73
23 62 75
23 63 74
23 64 76
23 65 78
23 66 79
23 67 80
23 69 82
23 70 83
23 71 84
24 34 48
24 36 46
24 37 49
24 38 50
24 39 47
24 40 52
24 41 53
24 43 57
24 44 55
24 45 56
24 54 62
24 58 70
24 59 71
24 61 74
24 63 76
24 64 75
24 65 77
24 66 80
24 67 79
24 68 81
24 72 85
24 73 84
25 33 49
25 36 48
25 37 53
25 38 46
25 39 50
25 40 55
25 41 51
25 42 54
25 44 56
25 45 58
25 47 59
25 57 68
25 60 73
25 62 76
25 63 77
25 64 74
25 65 75
25 66 81
25 67 78
25 69 83
25 71 85
25 72 80
26 39 51
26 40 50
26 41 55
26 42 52
26 43 58
26 45 60
26 46 59
26 47 61
26 48 63
26 49 57
26 54 64
26 56 67
26 65 79
26 66 76
26 68 82
26 69 84
26 70 85
26 72 86
26 73 81
26 74 87
26 75 88
26 77 90
27 39 55
27 40 53
27 41 56
27 42 57
27 43 50
27 44 59
27 46 58
27 47 60
27 48 61
27 49 62
27 51 64
27 52 65
27 66 77
27 67 82
27 68 83
27 69 85
27 70 84
27 71 86
27 73 87
27 74 88
27 75 89
28 40 56
28 41 57
28 42 58
28 43 53
28 44 60
28 45 61
28 47 62
28 48 65
28 49 63
28 50 66
28 51 67
28 52 68
28 54 69
28 59 72
28 70 86
28 71 83
28 74 89
28 75 87
28 76 88
28 78 90
29 37 48
29 41 58
29 42 59
29 43 60
29 44 61
29 45 55
29 46 62
29 49 64
29 50 63
29 51 66
29 52 67
29 53 68
29 54 70
29 57 69
29 71 87
29 72 88
29 73 86
29 75 90
29 76 89
30 42 61
30 43 59
30 44 63
30 45 62
30 46 60
30 47 58
30 49 65
30 50 64
30 51 68
30 52 69
30 53 67
30 54 71
30 55 70
30 56 72
30 73 88
30 74 86
30 76 90
30 77 89
31 44 64
31 45 65
31 46 61
31 47 63
31 48 60
31 50 69
31 51 62
31 52 66
31 53 70
31 54 68
31 55 71
31 56 73
31 57 72
31 59 74
32 44 65
32 45 64
32 46 63
32 47 66
32 48 62
32 49 61
32 51 70
32 52 71
32 53 69
32 54 67
32 55 72
32 56 75
32 57 73
32 58 74
32 60 76
33 50 65
33 52 63
33 53 66
33 54 73
33 55 68
33 56 70
33 57 71
33 58 72
33 59 75
33 61 76
33 62 77
33 64 79
33 67 81
33 74 90
34 50 67
34 51 65
34 53 72
34 54 74
34 55 66
34 56 68
34 57 76
34 58 71
34 59 69
34 60 75
34 62 78
34 63 80
34 64 81
34 73 89
35 47 64
35 49 66
35 50 70
35 51 72
35 52 73
35 54 75
35 55 69
35 56 76
35 57 74
35 58 77
35 59 78
35 60 79
35 61 81
35 63 82
35 65 84
35 67 83
35 68 85
36 52 74
36 53 65
36 55 75
36 56 69
36 57 70
36 58 73
36 59 76
36 60 77
36 61 78
36 62 79
36 64 80
36 66 82
36 67 84
36 68 87
36 71 88
37 52 72
37 54 76
37 56 71
37 57 77
37 58 75
37 59 79
37 60 74
37 61 80
37 62 81
37 63 78
37 65 85
37 66 83
37 67 86
37 68 84
37 69 88
37 70 87
38 48 64
38 49 68
38 51 71
38 54 77
38 55 76
38 57 78
38 58 79
38 59 73
38 60 80
38 61 75
38 62 82
38 63 84
38 66 85
38 67 87
38 69 86
38 70 89
39 54 78
39 56 77
39 58 80
39 59 81
39 60 82
39 61 83
39 62 85
39 63 79
39 64 86
39 65 87
39 67 88
39 68 89
39 69 90
40 57 79
40 59 80
40 60 81
40 61 77
40 62 83
40 63 86
40 64 78
40 65 82
40 66 87
40 68 88
40 69 89
40 70 90
41 60 83
41 61 82
41 62 84
41 63 85
41 64 87
41 65 80
41 66 88
41 67 89
41 71 90
42 62 86
42 63 83
42 64 84
42 65 81
42 66 89
42 67 90
42 70 82
43 62 87
43 63 89
43 64 83
43 65 86
43 66 90
44 66 86
44 68 90
44 72 87
46 65 88
46 72 89
47 73 90

 

[Cinzia27]

Ciao, Oscar.
Mi stai dicendo che la condizione come quella che abbiamo preso come esempio (senza ripetizione delle figure) non fa risparmiare il numero di combinazioni dato che il ridotto normale a garanzia AMBO ne estrae 976 anziché 1042 ?
90 numeri in un sistema ridotto garanzia 2-2 io finora l' ho trovato con 1350 formazioni.
Quindi sei molto avanti. Happysoft esegue sistemi condizionati ridotti anche in versione demo ?
Potresti postare il ridotto normale a garanzia AMBO con 976 combinazioni ?
Grazie del contributo.

 

[Oscar]

Su 90 numeri no su pochi è possibile , da altra parte come tutte le condizioni funzionano cos'ì come condizionato sono di meno , ma se applichi il ridotto sono sempre di più a meno che non metti più condizioni ( il motivo ; senza condizioni ti da il ridotto assoluto , mentre con le condizioni no)

 

[Cinzia27]

Grazie, Oscar della risposta.
Ringrazio anche Lotto_tom75 che si è prodigato nella modifica che gli avevo richiesto al suo script. Chiedo a Lotto_tom75 se è possibile aggiungere degli array con dei sottogruppi di numeri in modo da operare condizionamento più riduzione.
Posto questo piccolo script per esplicitare il tipo di condizioni . Ogni combinazione ha al massimo un solo numero di ogni sottogruppo. Mi rivolgo principalmente a Lotto_tom75 che ha il fatto il listato, ma, ovviamente, sono graditi anche altri interventi.

Sub main()

Dim terni(3)


numeri=Array(12,37,45,53,60,67,70,72,84)

num1=Array(12,37,45)
num2=Array(53,60,"")
num3=Array(67,70,"")
num4=Array(72,84,"")

x=UBound(numeri)
y=UBound(num1)


For i= 0 To x
terni(1)=numeri(i)
For j= i+1 To x
terni(2)=numeri(j)
For k= j+1 To x
terni(3)=numeri(k)

sp1=0:sp2=0:sp3=0:sp4=0

For n1= 1 To 3
For n2 = 0 To y
If terni(n1)=num1(n2) Then sp1=sp1+1
If terni(n1)=num2(n2) Then sp2=sp2+1
If terni(n1)=num3(n2) Then sp3=sp3+1
If terni(n1)=num4(n2) Then sp4=sp4+1
next:next

If  sp1<2 And sp2<2  And sp3<2 And sp4<2 Then
Scrivi StringaNumeri (terni)
End If
Next
Next
Next

End Sub

 

[lotto_tom75]

Grazie, Oscar della risposta.
Ringrazio anche Lotto_tom75 che si è prodigato nella modifica che gli avevo richiesto al suo script. Chiedo a Lotto_tom75 e agli altri bravi scripter se è possibile aggiungere nello scipt di Lotto_tom75 degli array con dei sottogruppi di numeri, come nell' esempio sottostante.
Se si potesse, è la risposta finale alla mia richiesta.

Sub main()

Dim terni(3)
r=11
ruote(1)=r

numeri=Array(12,37,45,53,60,67,70,72,84)

num1=Array(12,37,45)
num2=Array(53,60,"")
num3=Array(67,70,"")
num4=Array(72,74,"")

x=UBound(numeri)
y=UBound(num1)


For i= 0 To x
terni(1)=numeri(i)
For j= i+1 To x
terni(2)=numeri(j)
For k= j+1 To x
terni(3)=numeri(k)

sp1=0:sp2=0:sp3=0:sp4=0

For n1= 1 To 3
For n2 = 0 To y
If terni(n1)=num1(n2) Then sp1=sp1+1
If terni(n1)=num2(n2) Then sp2=sp2+1
If terni(n1)=num3(n2) Then sp3=sp3+1
If terni(n1)=num4(n2) Then sp4=sp4+1
next:next

If sp1<2 And sp2<2 And sp3<2 And sp4<2 Then
Scrivi StringaNumeri (terni)
End If
Next
Next
Next

End Sub

Si si può però ricordati di mettere come primo elemento di ogni vettore caricato lo 0.

In giornata guardo di postarti il code modificato con il caricamento multivettore...

 

[lotto_tom75]

Cinzia modifica fatta... ma mi sono confuso... Ti ho postato il code modificato con la tua ultima richiesta sul caricamento multi vettore qui nell'altro tuo thread e non qui sotto.

 

[Cinzia27]

Sono andata a riprenderlo.
Appena finisce di girare quello sugli ambi mai sortiti in coppia lo provo.
Grazie ancora

 

[Oscar]

49 numeri ridotto a garanzia AMBO (ridotto standard) escludendo le figure uguali sono 310 combinazioni
49 numeri applicando il ridotto ottimizzato a garanzia AMBO escludendo le figure uguali sono 182 combinazioni



Ridotto standard
1 2 3
1 4 5
1 6 7
1 8 9
1 11 12
1 13 14
1 15 16
1 17 18
1 20 21
1 22 23
1 24 25
1 26 27
1 29 30
1 31 32
1 33 34
1 35 36
1 38 39
1 40 41
1 42 43
1 44 45
1 47 48
2 4 6
2 5 7
2 8 10
2 9 12
2 13 15
2 14 16
2 17 19
2 18 21
2 22 24
2 23 25
2 26 28
2 27 30
2 31 33
2 32 34
2 35 37
2 36 39
2 40 42
2 41 43
2 44 46
2 45 48
3 4 7
3 5 6
3 8 11
3 9 10
3 13 16
3 14 15
3 17 20
3 18 19
3 22 25
3 23 24
3 26 29
3 27 28
3 31 34
3 32 33
3 35 38
3 36 37
3 40 43
3 41 42
3 44 47
3 45 46
4 8 12
4 9 11
4 10 14
4 15 17
4 16 18
4 19 20
4 21 23
4 24 26
4 25 27
4 28 29
4 30 32
4 33 35
4 34 36
4 37 38
4 39 41
4 42 44
4 43 45
4 46 47
5 8 13
5 9 15
5 10 11
5 12 16
5 17 21
5 18 20
5 19 22
5 24 27
5 25 26
5 28 30
5 29 31
5 33 36
5 34 35
5 37 39
5 38 40
5 42 45
5 43 44
5 46 48
5 47 49
6 8 14
6 9 13
6 10 12
6 11 16
6 17 22
6 18 23
6 19 21
6 20 25
6 26 30
6 27 29
6 28 31
6 32 35
6 34 37
6 36 38
6 39 40
6 41 44
6 43 46
6 45 47
6 48 49
7 8 15
7 9 14
7 10 13
7 11 17
7 12 18
7 19 23
7 20 22
7 21 24
7 26 31
7 27 32
7 28 33
7 29 35
7 30 36
7 37 40
7 38 41
7 39 42
7 44 48
7 45 49
8 16 19
8 18 22
8 20 23
8 21 25
8 24 28
8 27 31
8 29 32
8 30 33
8 34 38
8 36 40
8 37 41
8 39 43
8 42 46
9 16 17
9 19 24
9 20 26
9 21 22
9 23 28
9 25 29
9 30 31
9 32 37
9 33 38
9 34 39
9 35 40
9 41 46
9 42 47
9 43 48
9 44 49
10 15 18
10 16 20
10 17 23
10 21 26
10 22 27
10 24 29
10 25 30
10 31 35
10 32 36
10 33 39
10 34 40
10 38 42
10 41 45
10 43 47
11 13 18
11 14 19
11 15 21
11 22 26
11 23 27
11 24 30
11 25 28
11 31 36
11 32 39
11 33 37
11 34 41
11 35 42
11 40 44
11 43 49
12 13 17
12 14 20
12 15 19
12 22 28
12 23 26
12 24 31
12 25 32
12 27 33
12 29 34
12 35 41
12 36 42
12 37 43
12 38 44
12 40 45
12 46 49
13 19 25
13 20 24
13 21 27
13 23 29
13 26 32
13 28 34
13 30 35
13 33 41
13 36 43
13 37 42
13 38 45
13 39 44
14 17 24
14 18 25
14 21 28
14 22 29
14 26 33
14 27 34
14 30 37
14 31 38
14 35 39
14 36 44
14 40 46
14 42 48
15 20 27
15 22 30
15 23 31
15 25 35
15 26 34
15 28 32
15 29 36
15 37 44
15 38 43
15 39 45
15 40 47
15 41 48
16 21 29
16 22 32
16 23 30
16 24 35
16 26 36
16 27 37
16 28 38
16 31 39
16 33 40
16 41 47
16 42 49
17 25 31
17 27 38
17 28 36
17 29 33
17 30 34
17 32 40
17 37 45
17 39 46
17 41 49
18 24 32
18 26 37
18 28 35
18 29 39
18 30 38
18 31 41
18 33 43
18 34 42
18 40 48
19 26 38
19 27 35
19 29 40
19 30 41
19 31 42
19 32 43
19 33 44
19 34 45
19 36 47
19 39 49
20 28 39
20 30 40
20 31 37
20 32 42
20 33 45
20 34 44
20 35 43
20 36 41
21 31 43
21 32 38
21 33 46
21 34 47
21 35 45
21 36 49
22 33 47
22 34 46
22 35 48
23 33 48
23 34 49
23 35 46
23 37 47
24 34 48
24 36 46
24 37 49
24 39 47
25 33 49
25 36 48
25 38 46
29 37 48

 

[Cinzia27]

Ciao, Oscar. Grazie della disponibilità. La figura era un esempio. Le perfomances dei sistemi mi sembrano ottime.
Ti è possibile fare un ridotto ottimizzato di 90 numeri senza nessuna condizione ?

 

[Oscar]

Eccolo garanzia AMBO 660 combinazioni

1 2 9
1 3 10
1 4 11
1 5 12
1 6 13
1 7 14
1 8 15
1 16 31
1 17 32
1 18 33
1 19 34
1 20 35
1 21 36
1 22 37
1 23 38
1 24 39
1 25 40
1 26 41
1 27 42
1 28 43
1 29 44
1 30 45
2 3 11
2 4 12
2 5 13
2 6 14
2 7 15
2 8 10
2 16 32
2 17 33
2 18 34
2 19 35
2 20 36
2 21 37
2 22 38
2 23 39
2 24 40
2 25 41
2 26 42
2 27 43
2 28 44
2 29 45
2 30 31
3 4 13
3 5 14
3 6 15
3 7 9
3 8 12
3 16 33
3 17 34
3 18 35
3 19 36
3 20 37
3 21 38
3 22 39
3 23 40
3 24 41
3 25 42
3 26 43
3 27 44
3 28 45
3 29 31
3 30 32
4 5 15
4 6 9
4 7 10
4 8 14
4 16 34
4 17 35
4 18 36
4 19 37
4 20 38
4 21 39
4 22 40
4 23 41
4 24 42
4 25 43
4 26 44
4 27 45
4 28 31
4 29 32
4 30 33
5 6 10
5 7 11
5 8 9
5 16 35
5 17 36
5 18 37
5 19 38
5 20 39
5 21 40
5 22 41
5 23 42
5 24 43
5 25 44
5 26 45
5 27 31
5 28 32
5 29 33
5 30 34
6 7 12
6 8 11
6 16 36
6 17 37
6 18 38
6 19 39
6 20 40
6 21 41
6 22 42
6 23 43
6 24 44
6 25 45
6 26 31
6 27 32
6 28 33
6 29 34
6 30 35
7 8 13
7 16 37
7 17 38
7 18 39
7 19 40
7 20 41
7 21 42
7 22 43
7 23 44
7 24 45
7 25 31
7 26 32
7 27 33
7 28 34
7 29 35
7 30 36
8 16 38
8 17 39
8 18 40
8 19 41
8 20 42
8 21 43
8 22 44
8 23 45
8 24 31
8 25 32
8 26 33
8 27 34
8 28 35
8 29 36
8 30 37
9 10 13
9 11 14
9 12 15
9 16 39
9 17 40
9 18 41
9 19 42
9 20 43
9 21 44
9 22 45
9 23 31
9 24 32
9 25 33
9 26 34
9 27 35
9 28 36
9 29 37
9 30 38
10 11 15
10 12 14
10 16 40
10 17 41
10 18 42
10 19 43
10 20 44
10 21 45
10 22 31
10 23 32
10 24 33
10 25 34
10 26 35
10 27 36
10 28 37
10 29 38
10 30 39
11 12 13
11 16 41
11 17 42
11 18 43
11 19 44
11 20 45
11 21 31
11 22 32
11 23 33
11 24 34
11 25 35
11 26 36
11 27 37
11 28 38
11 29 39
11 30 40
12 16 42
12 17 43
12 18 44
12 19 45
12 20 31
12 21 32
12 22 33
12 23 34
12 24 35
12 25 36
12 26 37
12 27 38
12 28 39
12 29 40
12 30 41
13 14 15
13 16 43
13 17 44
13 18 45
13 19 31
13 20 32
13 21 33
13 22 34
13 23 35
13 24 36
13 25 37
13 26 38
13 27 39
13 28 40
13 29 41
13 30 42
14 16 44
14 17 45
14 18 31
14 19 32
14 20 33
14 21 34
14 22 35
14 23 36
14 24 37
14 25 38
14 26 39
14 27 40
14 28 41
14 29 42
14 30 43
15 16 45
15 17 31
15 18 32
15 19 33
15 20 34
15 21 35
15 22 36
15 23 37
15 24 38
15 25 39
15 26 40
15 27 41
15 28 42
15 29 43
15 30 44
16 17 24
16 18 25
16 19 26
16 20 27
16 21 28
16 22 29
16 23 30
17 18 26
17 19 27
17 20 28
17 21 29
17 22 30
17 23 25
18 19 28
18 20 29
18 21 30
18 22 24
18 23 27
19 20 30
19 21 24
19 22 25
19 23 29
20 21 25
20 22 26
20 23 24
21 22 27
21 23 26
22 23 28
24 25 28
24 26 29
24 27 30
25 26 30
25 27 29
26 27 28
28 29 30
31 32 39
31 33 40
31 34 41
31 35 42
31 36 43
31 37 44
31 38 45
32 33 41
32 34 42
32 35 43
32 36 44
32 37 45
32 38 40
33 34 43
33 35 44
33 36 45
33 37 39
33 38 42
34 35 45
34 36 39
34 37 40
34 38 44
35 36 40
35 37 41
35 38 39
36 37 42
36 38 41
37 38 43
39 40 43
39 41 44
39 42 45
40 41 45
40 42 44
41 42 43
43 44 45
46 47 54
46 48 55
46 49 56
46 50 57
46 51 58
46 52 59
46 53 60
46 61 76
46 62 77
46 63 78
46 64 79
46 65 80
46 66 81
46 67 82
46 68 83
46 69 84
46 70 85
46 71 86
46 72 87
46 73 88
46 74 89
46 75 90
47 48 56
47 49 57
47 50 58
47 51 59
47 52 60
47 53 55
47 61 77
47 62 78
47 63 79
47 64 80
47 65 81
47 66 82
47 67 83
47 68 84
47 69 85
47 70 86
47 71 87
47 72 88
47 73 89
47 74 90
47 75 76
48 49 58
48 50 59
48 51 60
48 52 54
48 53 57
48 61 78
48 62 79
48 63 80
48 64 81
48 65 82
48 66 83
48 67 84
48 68 85
48 69 86
48 70 87
48 71 88
48 72 89
48 73 90
48 74 76
48 75 77
49 50 60
49 51 54
49 52 55
49 53 59
49 61 79
49 62 80
49 63 81
49 64 82
49 65 83
49 66 84
49 67 85
49 68 86
49 69 87
49 70 88
49 71 89
49 72 90
49 73 76
49 74 77
49 75 78
50 51 55
50 52 56
50 53 54
50 61 80
50 62 81
50 63 82
50 64 83
50 65 84
50 66 85
50 67 86
50 68 87
50 69 88
50 70 89
50 71 90
50 72 76
50 73 77
50 74 78
50 75 79
51 52 57
51 53 56
51 61 81
51 62 82
51 63 83
51 64 84
51 65 85
51 66 86
51 67 87
51 68 88
51 69 89
51 70 90
51 71 76
51 72 77
51 73 78
51 74 79
51 75 80
52 53 58
52 61 82
52 62 83
52 63 84
52 64 85
52 65 86
52 66 87
52 67 88
52 68 89
52 69 90
52 70 76
52 71 77
52 72 78
52 73 79
52 74 80
52 75 81
53 61 83
53 62 84
53 63 85
53 64 86
53 65 87
53 66 88
53 67 89
53 68 90
53 69 76
53 70 77
53 71 78
53 72 79
53 73 80
53 74 81
53 75 82
54 55 58
54 56 59
54 57 60
54 61 84
54 62 85
54 63 86
54 64 87
54 65 88
54 66 89
54 67 90
54 68 76
54 69 77
54 70 78
54 71 79
54 72 80
54 73 81
54 74 82
54 75 83
55 56 60
55 57 59
55 61 85
55 62 86
55 63 87
55 64 88
55 65 89
55 66 90
55 67 76
55 68 77
55 69 78
55 70 79
55 71 80
55 72 81
55 73 82
55 74 83
55 75 84
56 57 58
56 61 86
56 62 87
56 63 88
56 64 89
56 65 90
56 66 76
56 67 77
56 68 78
56 69 79
56 70 80
56 71 81
56 72 82
56 73 83
56 74 84
56 75 85
57 61 87
57 62 88
57 63 89
57 64 90
57 65 76
57 66 77
57 67 78
57 68 79
57 69 80
57 70 81
57 71 82
57 72 83
57 73 84
57 74 85
57 75 86
58 59 60
58 61 88
58 62 89
58 63 90
58 64 76
58 65 77
58 66 78
58 67 79
58 68 80
58 69 81
58 70 82
58 71 83
58 72 84
58 73 85
58 74 86
58 75 87
59 61 89
59 62 90
59 63 76
59 64 77
59 65 78
59 66 79
59 67 80
59 68 81
59 69 82
59 70 83
59 71 84
59 72 85
59 73 86
59 74 87
59 75 88
60 61 90
60 62 76
60 63 77
60 64 78
60 65 79
60 66 80
60 67 81
60 68 82
60 69 83
60 70 84
60 71 85
60 72 86
60 73 87
60 74 88
60 75 89
61 62 69
61 63 70
61 64 71
61 65 72
61 66 73
61 67 74
61 68 75
62 63 71
62 64 72
62 65 73
62 66 74
62 67 75
62 68 70
63 64 73
63 65 74
63 66 75
63 67 69
63 68 72
64 65 75
64 66 69
64 67 70
64 68 74
65 66 70
65 67 71
65 68 69
66 67 72
66 68 71
67 68 73
69 70 73
69 71 74
69 72 75
70 71 75
70 72 74
71 72 73
73 74 75
76 77 84
76 78 85
76 79 86
76 80 87
76 81 88
76 82 89
76 83 90
77 78 86
77 79 87
77 80 88
77 81 89
77 82 90
77 83 85
78 79 88
78 80 89
78 81 90
78 82 84
78 83 87
79 80 90
79 81 84
79 82 85
79 83 89
80 81 85
80 82 86
80 83 84
81 82 87
81 83 86
82 83 88
84 85 88
84 86 89
84 87 90
85 86 90
85 87 89
86 87 88
88 89 90

 

[Oscar]

 

[.Lucio.]

con visual puoi ridurre masse numeriche come piace a te,ma anche come piace a venus.

 

[Cinzia27]

Scusami, Oscar. Ma i numeri non si abbinano tutti. L' uno non si abbina con numeri superiori al 45, idem il 2, ecc.

 

[Oscar]

Certo che no perchè è a garanzia AMBO (no Terno)

come vedi qui sotto 1-30-45 è l'ultimo nella colonna dove vedi 1 iniziale

1 30 45

 

[Cinzia27]

Ciao, Oscar. Io vorrei che i numeri si abbinassero tutti fra loro una volta. Siete gentili ad intervenire tu e Lucio, ma per non farvi perdere tempo tornerei alla richiesta di partenza: listato per sistemi ridotti, poi se si riesce si applicano delle condizioni. Non ho ancora avuto modo di provare l' ultima versione di Lotto_tom75 perché sto facendo girare il mio script sugli ambi mai sortiti contemporaneamente. Grazie ad entrambi

 

[Cinzia27]

Ciao, Lotto_tom75. Ho provato l' ultima versione, non ci siamo. La formazione deve contenere un solo numero per ognuno degli array e in più non ci devono essere abbinamenti ripetuti. Capisco che è difficile.
In ogni caso ti ringrazio per l' aiuto.

 

[Oscar]

Ci sono 3 modi per ridurre un sistema di terzine a garanzia Ambo 1° RIDOTTO ASSOLUTO che è quello che da meno combinazioni di tutti , 2° RIDOTTO OTTIMIZZATO , si può dire la via di mezzo 3° RIDOTTO STANDARD che è quello che da piu combinazioni di tutti

Qui sotto è ridotto standard a garanzia AMBO combinazioni 1002

1 2 3
1 4 5
1 6 7
1 8 9
1 10 11
1 12 13
1 14 15
1 16 17
1 18 19
1 20 21
1 22 23
1 24 25
1 26 27
1 28 29
1 30 31
1 32 33
1 34 35
1 36 37
1 38 39
1 40 41
1 42 43
1 44 45
1 46 47
1 48 49
1 50 51
1 52 53
1 54 55
1 56 57
1 58 59
1 60 61
1 62 63
1 64 65
1 66 67
1 68 69
1 70 71
1 72 73
1 74 75
1 76 77
1 78 79
1 80 81
1 82 83
1 84 85
1 86 87
1 88 89
2 4 6
2 5 7
2 8 10
2 9 11
2 12 14
2 13 15
2 16 18
2 17 19
2 20 22
2 21 23
2 24 26
2 25 27
2 28 30
2 29 31
2 32 34
2 33 35
2 36 38
2 37 39
2 40 42
2 41 43
2 44 46
2 45 47
2 48 50
2 49 51
2 52 54
2 53 55
2 56 58
2 57 59
2 60 62
2 61 63
2 64 66
2 65 67
2 68 70
2 69 71
2 72 74
2 73 75
2 76 78
2 77 79
2 80 82
2 81 83
2 84 86
2 85 87
2 88 90
3 4 7
3 5 6
3 8 11
3 9 10
3 12 15
3 13 14
3 16 19
3 17 18
3 20 23
3 21 22
3 24 27
3 25 26
3 28 31
3 29 30
3 32 35
3 33 34
3 36 39
3 37 38
3 40 43
3 41 42
3 44 47
3 45 46
3 48 51
3 49 50
3 52 55
3 53 54
3 56 59
3 57 58
3 60 63
3 61 62
3 64 67
3 65 66
3 68 71
3 69 70
3 72 75
3 73 74
3 76 79
3 77 78
3 80 83
3 81 82
3 84 87
3 85 86
3 89 90
4 8 12
4 9 13
4 10 14
4 11 15
4 16 20
4 17 21
4 18 22
4 19 23
4 24 28
4 25 29
4 26 30
4 27 31
4 32 36
4 33 37
4 34 38
4 35 39
4 40 44
4 41 45
4 42 46
4 43 47
4 48 52
4 49 53
4 50 54
4 51 55
4 56 60
4 57 61
4 58 62
4 59 63
4 64 68
4 65 69
4 66 70
4 67 71
4 72 76
4 73 77
4 74 78
4 75 79
4 80 84
4 81 85
4 82 86
4 83 87
5 8 13
5 9 12
5 10 15
5 11 14
5 16 21
5 17 20
5 18 23
5 19 22
5 24 29
5 25 28
5 26 31
5 27 30
5 32 37
5 33 36
5 34 39
5 35 38
5 40 45
5 41 44
5 42 47
5 43 46
5 48 53
5 49 52
5 50 55
5 51 54
5 56 61
5 57 60
5 58 63
5 59 62
5 64 69
5 65 68
5 66 71
5 67 70
5 72 77
5 73 76
5 74 79
5 75 78
5 80 85
5 81 84
5 82 87
5 83 86
6 8 14
6 9 15
6 10 12
6 11 13
6 16 22
6 17 23
6 18 20
6 19 21
6 24 30
6 25 31
6 26 28
6 27 29
6 32 38
6 33 39
6 34 36
6 35 37
6 40 46
6 41 47
6 42 44
6 43 45
6 48 54
6 49 55
6 50 52
6 51 53
6 56 62
6 57 63
6 58 60
6 59 61
6 64 70
6 65 71
6 66 68
6 67 69
6 72 78
6 73 79
6 74 76
6 75 77
6 80 86
6 81 87
6 82 84
6 83 85
7 8 15
7 9 14
7 10 13
7 11 12
7 16 23
7 17 22
7 18 21
7 19 20
7 24 31
7 25 30
7 26 29
7 27 28
7 32 39
7 33 38
7 34 37
7 35 36
7 40 47
7 41 46
7 42 45
7 43 44
7 48 55
7 49 54
7 50 53
7 51 52
7 56 63
7 57 62
7 58 61
7 59 60
7 64 71
7 65 70
7 66 69
7 67 68
7 72 79
7 73 78
7 74 77
7 75 76
7 80 87
7 81 86
7 82 85
7 83 84
8 16 24
8 17 25
8 18 26
8 19 27
8 20 28
8 21 29
8 22 30
8 23 31
8 32 40
8 33 41
8 34 42
8 35 43
8 36 44
8 37 45
8 38 46
8 39 47
8 48 56
8 49 57
8 50 58
8 51 59
8 52 60
8 53 61
8 54 62
8 55 63
8 64 72
8 65 73
8 66 74
8 67 75
8 68 76
8 69 77
8 70 78
8 71 79
8 80 88
8 81 89
8 82 90
9 16 25
9 17 24
9 18 27
9 19 26
9 20 29
9 21 28
9 22 31
9 23 30
9 32 41
9 33 40
9 34 43
9 35 42
9 36 45
9 37 44
9 38 47
9 39 46
9 48 57
9 49 56
9 50 59
9 51 58
9 52 61
9 53 60
9 54 63
9 55 62
9 64 73
9 65 72
9 66 75
9 67 74
9 68 77
9 69 76
9 70 79
9 71 78
9 80 89
9 81 88
9 83 90
10 16 26
10 17 27
10 18 24
10 19 25
10 20 30
10 21 31
10 22 28
10 23 29
10 32 42
10 33 43
10 34 40
10 35 41
10 36 46
10 37 47
10 38 44
10 39 45
10 48 58
10 49 59
10 50 56
10 51 57
10 52 62
10 53 63
10 54 60
10 55 61
10 64 74
10 65 75
10 66 72
10 67 73
10 68 78
10 69 79
10 70 76
10 71 77
10 80 90
10 82 88
10 83 89
11 16 27
11 17 26
11 18 25
11 19 24
11 20 31
11 21 30
11 22 29
11 23 28
11 32 43
11 33 42
11 34 41
11 35 40
11 36 47
11 37 46
11 38 45
11 39 44
11 48 59
11 49 58
11 50 57
11 51 56
11 52 63
11 53 62
11 54 61
11 55 60
11 64 75
11 65 74
11 66 73
11 67 72
11 68 79
11 69 78
11 70 77
11 71 76
11 81 90
11 82 89
11 83 88
12 16 28
12 17 29
12 18 30
12 19 31
12 20 24
12 21 25
12 22 26
12 23 27
12 32 44
12 33 45
12 34 46
12 35 47
12 36 40
12 37 41
12 38 42
12 39 43
12 48 60
12 49 61
12 50 62
12 51 63
12 52 56
12 53 57
12 54 58
12 55 59
12 64 76
12 65 77
12 66 78
12 67 79
12 68 72
12 69 73
12 70 74
12 71 75
12 84 88
12 85 89
12 86 90
13 16 29
13 17 28
13 18 31
13 19 30
13 20 25
13 21 24
13 22 27
13 23 26
13 32 45
13 33 44
13 34 47
13 35 46
13 36 41
13 37 40
13 38 43
13 39 42
13 48 61
13 49 60
13 50 63
13 51 62
13 52 57
13 53 56
13 54 59
13 55 58
13 64 77
13 65 76
13 66 79
13 67 78
13 68 73
13 69 72
13 70 75
13 71 74
13 84 89
13 85 88
13 87 90
14 16 30
14 17 31
14 18 28
14 19 29
14 20 26
14 21 27
14 22 24
14 23 25
14 32 46
14 33 47
14 34 44
14 35 45
14 36 42
14 37 43
14 38 40
14 39 41
14 48 62
14 49 63
14 50 60
14 51 61
14 52 58
14 53 59
14 54 56
14 55 57
14 64 78
14 65 79
14 66 76
14 67 77
14 68 74
14 69 75
14 70 72
14 71 73
14 84 90
14 86 88
14 87 89
15 16 31
15 17 30
15 18 29
15 19 28
15 20 27
15 21 26
15 22 25
15 23 24
15 32 47
15 33 46
15 34 45
15 35 44
15 36 43
15 37 42
15 38 41
15 39 40
15 48 63
15 49 62
15 50 61
15 51 60
15 52 59
15 53 58
15 54 57
15 55 56
15 64 79
15 65 78
15 66 77
15 67 76
15 68 75
15 69 74
15 70 73
15 71 72
15 85 90
15 86 89
15 87 88
16 32 48
16 33 49
16 34 50
16 35 51
16 36 52
16 37 53
16 38 54
16 39 55
16 40 56
16 41 57
16 42 58
16 43 59
16 44 60
16 45 61
16 46 62
16 47 63
16 64 80
16 65 81
16 66 82
16 67 83
16 68 84
16 69 85
16 70 86
16 71 87
16 72 88
16 73 89
16 74 90
17 32 49
17 33 48
17 34 51
17 35 50
17 36 53
17 37 52
17 38 55
17 39 54
17 40 57
17 41 56
17 42 59
17 43 58
17 44 61
17 45 60
17 46 63
17 47 62
17 64 81
17 65 80
17 66 83
17 67 82
17 68 85
17 69 84
17 70 87
17 71 86
17 72 89
17 73 88
17 75 90
18 32 50
18 33 51
18 34 48
18 35 49
18 36 54
18 37 55
18 38 52
18 39 53
18 40 58
18 41 59
18 42 56
18 43 57
18 44 62
18 45 63
18 46 60
18 47 61
18 64 82
18 65 83
18 66 80
18 67 81
18 68 86
18 69 87
18 70 84
18 71 85
18 72 90
18 74 88
18 75 89
19 32 51
19 33 50
19 34 49
19 35 48
19 36 55
19 37 54
19 38 53
19 39 52
19 40 59
19 41 58
19 42 57
19 43 56
19 44 63
19 45 62
19 46 61
19 47 60
19 64 83
19 65 82
19 66 81
19 67 80
19 68 87
19 69 86
19 70 85
19 71 84
19 73 90
19 74 89
19 75 88
20 32 52
20 33 53
20 34 54
20 35 55
20 36 48
20 37 49
20 38 50
20 39 51
20 40 60
20 41 61
20 42 62
20 43 63
20 44 56
20 45 57
20 46 58
20 47 59
20 64 84
20 65 85
20 66 86
20 67 87
20 68 80
20 69 81
20 70 82
20 71 83
20 76 88
20 77 89
20 78 90
21 32 53
21 33 52
21 34 55
21 35 54
21 36 49
21 37 48
21 38 51
21 39 50
21 40 61
21 41 60
21 42 63
21 43 62
21 44 57
21 45 56
21 46 59
21 47 58
21 64 85
21 65 84
21 66 87
21 67 86
21 68 81
21 69 80
21 70 83
21 71 82
21 76 89
21 77 88
21 79 90
22 32 54
22 33 55
22 34 52
22 35 53
22 36 50
22 37 51
22 38 48
22 39 49
22 40 62
22 41 63
22 42 60
22 43 61
22 44 58
22 45 59
22 46 56
22 47 57
22 64 86
22 65 87
22 66 84
22 67 85
22 68 82
22 69 83
22 70 80
22 71 81
22 76 90
22 78 88
22 79 89
23 32 55
23 33 54
23 34 53
23 35 52
23 36 51
23 37 50
23 38 49
23 39 48
23 40 63
23 41 62
23 42 61
23 43 60
23 44 59
23 45 58
23 46 57
23 47 56
23 64 87
23 65 86
23 66 85
23 67 84
23 68 83
23 69 82
23 70 81
23 71 80
23 77 90
23 78 89
23 79 88
24 32 56
24 33 57
24 34 58
24 35 59
24 36 60
24 37 61
24 38 62
24 39 63
24 40 48
24 41 49
24 42 50
24 43 51
24 44 52
24 45 53
24 46 54
24 47 55
24 64 88
24 65 89
24 66 90
24 72 80
24 73 81
24 74 82
24 75 83
24 76 84
24 77 85
24 78 86
24 79 87
25 32 57
25 33 56
25 34 59
25 35 58
25 36 61
25 37 60
25 38 63
25 39 62
25 40 49
25 41 48
25 42 51
25 43 50
25 44 53
25 45 52
25 46 55
25 47 54
25 64 89
25 65 88
25 67 90
25 72 81
25 73 80
25 74 83
25 75 82
25 76 85
25 77 84
25 78 87
25 79 86
26 32 58
26 33 59
26 34 56
26 35 57
26 36 62
26 37 63
26 38 60
26 39 61
26 40 50
26 41 51
26 42 48
26 43 49
26 44 54
26 45 55
26 46 52
26 47 53
26 64 90
26 66 88
26 67 89
26 72 82
26 73 83
26 74 80
26 75 81
26 76 86
26 77 87
26 78 84
26 79 85
27 32 59
27 33 58
27 34 57
27 35 56
27 36 63
27 37 62
27 38 61
27 39 60
27 40 51
27 41 50
27 42 49
27 43 48
27 44 55
27 45 54
27 46 53
27 47 52
27 65 90
27 66 89
27 67 88
27 72 83
27 73 82
27 74 81
27 75 80
27 76 87
27 77 86
27 78 85
27 79 84
28 32 60
28 33 61
28 34 62
28 35 63
28 36 56
28 37 57
28 38 58
28 39 59
28 40 52
28 41 53
28 42 54
28 43 55
28 44 48
28 45 49
28 46 50
28 47 51
28 68 88
28 69 89
28 70 90
28 72 84
28 73 85
28 74 86
28 75 87
28 76 80
28 77 81
28 78 82
28 79 83
29 32 61
29 33 60
29 34 63
29 35 62
29 36 57
29 37 56
29 38 59
29 39 58
29 40 53
29 41 52
29 42 55
29 43 54
29 44 49
29 45 48
29 46 51
29 47 50
29 68 89
29 69 88
29 71 90
29 72 85
29 73 84
29 74 87
29 75 86
29 76 81
29 77 80
29 78 83
29 79 82
30 32 62
30 33 63
30 34 60
30 35 61
30 36 58
30 37 59
30 38 56
30 39 57
30 40 54
30 41 55
30 42 52
30 43 53
30 44 50
30 45 51
30 46 48
30 47 49
30 68 90
30 70 88
30 71 89
30 72 86
30 73 87
30 74 84
30 75 85
30 76 82
30 77 83
30 78 80
30 79 81
31 32 63
31 33 62
31 34 61
31 35 60
31 36 59
31 37 58
31 38 57
31 39 56
31 40 55
31 41 54
31 42 53
31 43 52
31 44 51
31 45 50
31 46 49
31 47 48
31 69 90
31 70 89
31 71 88
31 72 87
31 73 86
31 74 85
31 75 84
31 76 83
31 77 82
31 78 81
31 79 80

 

[Cinzia27]

Continuano a non esserci tutti gli abbinamenti ad es. il 32 col 74, il 34 con l' 80 e via dicendo.