Novità

Calcolo combinazioni

alexvisco

Member
Salve
Sono alla ricerca di un metodo per creare combinazioni di cinquine con tutti i 90 numeri, in pratica dovrebbero uscire 18 schedine
Ogni schedina deve avere una cinquina senza ripetizioni, chi mi può aiutare?
 

lotto_tom75

Advanced Premium Member
Salve
Sono alla ricerca di un metodo per creare combinazioni di cinquine con tutti i 90 numeri, in pratica dovrebbero uscire 18 schedine
Ogni schedina deve avere una cinquina senza ripetizioni, chi mi può aiutare?

Non credo di aver letto bene...
Ma se è così...
E' stata molto dura... ma
eccotelo...


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

dbr

Advanced Member >PLATINUM PLUS<
Ciao alexvisco
Ottima soluzione di lotto_tom75.... volendo puoi sostituire i numeri aTuo piacere.
La mia proposta è una versione costruita con chiave di rotazione.
Fai sempre le dovute verifiche e valutazioni prima di giocare.

chiave 18-18-18-18-18 > sistema 90,05,02,19 = colonne 18

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

alexvisco

Member
Non credo di aver letto bene...
Ma se è così...
E' stata molto dura... ma
eccotelo...


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

alexvisco

Member
Ciao alexvisco
Ottima soluzione di lotto_tom75.... volendo puoi sostituire i numeri aTuo piacere.
La mia proposta è una versione costruita con chiave di rotazione.
Fai sempre le dovute verifiche e valutazioni prima di giocare.

chiave 18-18-18-18-18 > sistema 90,05,02,19 = colonne 18

18 36 54 72 90
19 37 55 73 01
20 38 56 74 02
21 39 57 75 03
22 40 58 76 04
23 41 59 77 05
24 42 60 78 06
25 43 61 79 07
26 44 62 80 08
27 45 63 81 09
28 46 64 82 10
29 47 65 83 11
30 48 66 84 12
31 49 67 85 13
32 50 68 86 14
33 51 69 87 15
34 52 70 88 16
35 53 71 89 17
Perfetto, come sarebbe con chiave di rotazione?
 

joe

Advanced Member >PLATINUM PLUS<
Ma giocando tutte quelle ed ognuna di quelle,

c'è una stragrande maggioranza di Ambi che saranno estratti

e che non saranno vincenti.

Quasi nel rapporto 1 a 4900.

:)
 

joe

Advanced Member >PLATINUM PLUS<
Non so ma ogni cinquina sviluppa 10 ambi e 10 terni,

Se sono 18*10, sono 180 su 4005.

Molto meno per i terni (anche più difficili e meno convenienti)

Se ci sono consigli devono venire da un grande esperto di sistemi.

:)
 

Oscar

Advanced Member >GOLD<
Forse indendevi così

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

alexvisco

Member
Forse indendevi così

02 28 44 64 78
23 42 55 63 89
19 35 40 83 86
20 34 36 41 43
14 39 68 73 85
25 54 57 65 82
10 11 24 58 71
08 09 27 52 77
12 29 38 48 49
06 32 60 70 80
18 53 56 59 76
22 72 74 81 87
01 04 47 62 88
05 16 61 66 67
07 17 30 79 84
15 21 37 50 69
03 26 33 45 75
13 31 46 51 90
Si così, quale sarebbe il metodo? è possibile fare altre miscelazioni casuali? Grazie
 

joe

Advanced Member >PLATINUM PLUS<
Codice:
'18 cinquine casuali esclusive By Joe
Option Explicit
Sub Main
  Dim K,T,Nu(90)
  Do While K < 90
    T = NumeroCasuale(1,90)
    If Nu(T) = 0 Then
      K = K + 1
      Nu(T) = T
      Scrivi Format2(T) & Space(1),0,0
      If K Mod 5 = 0 Then Scrivi
    End If
  Loop
End Sub

:)
 

joe

Advanced Member >PLATINUM PLUS<
Codice:
'9 cinquine casuali PARI esclusive By Joe
Option Explicit
Sub Main
  Dim K,T,Nu(90)
  Do While K < 45
    T = NumeroCasuale(1,90)
    If Nu(T) = 0 And pari (T) Then
      K = K + 1
      Nu(T) = T
      Scrivi Format2(T) & Space(1),0,0
      If K Mod 5 = 0 Then Scrivi
    End If
  Loop
End Sub

Per quelle DISPARI si deve AGGIUNGERE NOT (prima di) PARI nella settima linea .

:)
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 26 aprile 2024
    Bari
    65
    67
    84
    22
    77
    Cagliari
    38
    09
    83
    18
    20
    Firenze
    76
    24
    78
    30
    40
    Genova
    50
    56
    61
    90
    57
    Milano
    87
    21
    15
    12
    79
    Napoli
    13
    66
    86
    25
    49
    Palermo
    72
    60
    68
    74
    09
    Roma
    23
    15
    43
    07
    75
    Torino
    82
    79
    31
    41
    64
    Venezia
    66
    89
    18
    80
    41
    Nazionale
    04
    24
    10
    69
    73
    Estrazione Simbolotto
    Genova
    33
    03
    16
    35
    32
Alto