Novità

Richiesta script

Bubblegum

Super Member >GOLD<
Ciao ragazzi , vorrei chiedere ai maestri se potessero realizzare uno script che ricerchi 2 elementi di una terzina simmetrica qualsiasi , uno in una ruota ed uno in un'altra in qualsiasi posizione estrattitva ma non isotopi.
Mentre isotopi ad essi vi devono essere due estratti la cui somma sia uguale a quella del terzo elemento mancante .
Esempio :

BA 12-35-29-15-55
RO 27-88-36-72-90

A BA il primo estratto è il 12 mentre a RO il quarto estratto è 72 , quindi della terzina simmetrica 12-42-72 manca il 42 .
42 dato dalla somma degli isotopi 27 e 15

Grazie
 
Ciao Bubblegum,

per quanto riguarda la ricerca è un po complicata

specie se non la si gestisce con accortezza ... ma si fa.

Però bisognerebbe sapere come organizzarsi per gestire questi numeri.

Puoi fare un esempio anche in questo senso.

:) Grazie

Per controllo:

Codice:
24.05.2018 NA 03 PA 63 x 39+84 = 33
24.05.2018 PA 70 NZ 40 x 85+15 = 10
09.06.2018 CA 15 GE 75 x 82+53 = 45
12.06.2018 MI 36 NZ 06 x 70+86 = 66
14.06.2018 BA 77 TO 17 x 09+38 = 47
14.06.2018 GE 53 PA 83 x 78+35 = 23
19.06.2018 FI 28 VE 88 x 59+89 = 58
03.07.2018 MI 79 VE 19 x 88+51 = 49
05.07.2018 GE 54 TO 24 x 46+38 = 84
12.07.2018 NA 06 PA 66 x 57+69 = 36
07.08.2018 CA 66 FI 06 x 52+74 = 36
07.08.2018 CA 24 NZ 54 x 18+66 = 84
16.08.2018 TO 82 NZ 52 x 11+11 = 22
18.08.2018 MI 86 RO 56 x 84+32 = 26
25.08.2018 TO 45 VE 15 x 52+23 = 75
25.08.2018 VE 84 NZ 24 x 59+85 = 54
28.08.2018 PA 42 RO 12 x 57+15 = 72
01.09.2018 MI 90 TO 60 x 58+62 = 30
04.09.2018 TO 67 VE 07 x 68+59 = 37
02.10.2018 RO 40 TO 10 x 47+23 = 70
04.10.2018 CA 38 GE 08 x 34+34 = 68
04.10.2018 CA 77 NA 17 x 38+09 = 47
09.10.2018 CA 14 TO 44 x 44+30 = 74
13.10.2018 MI 51 PA 81 x 70+41 = 21
16.10.2018 BA 59 MI 29 x 39+50 = 89
16.10.2018 FI 71 PA 41 x 24+77 = 11
30.10.2018 MI 80 PA 50 x 04+16 = 20
02.11.2018 NA 36 RO 06 x 74+82 = 66
08.11.2018 GE 62 NA 02 x 29+03 = 32
11.12.2018 CA 78 GE 48 x 50+58 = 18
22.12.2018 CA 12 NA 72 x 68+64 = 42
22.12.2018 GE 52 VE 22 x 42+40 = 82
24.12.2018 GE 42 VE 12 x 20+52 = 72
29.12.2018 CA 69 NA 39 x 21+78 = 09
05.02.2019 PA 67 RO 37 x 23+74 = 07
12.02.2019 NA 86 TO 56 x 49+67 = 26
23.02.2019 BA 81 NA 51 x 83+28 = 21
23.02.2019 CA 40 VE 70 x 19+81 = 10
02.03.2019 BA 12 VE 42 x 71+01 = 72
02.03.2019 CA 16 RO 46 x 71+05 = 76
12.03.2019 BA 05 NA 35 x 66+89 = 65
04.04.2019 BA 78 MI 48 x 28+80 = 18
09.04.2019 BA 54 GE 84 x 17+07 = 24
16.04.2019 GE 77 TO 47 x 45+62 = 17
23.04.2019 BA 31 GE 01 x 47+14 = 61
23.04.2019 BA 30 TO 90 x 89+61 = 60
46 casi in 156 Estrazioni
 
Ciao Joe ,

grazie per l'interessamento e complimenti per le tue capacità .

Ho notato che sommando il terzo elemento , quello mancante , ai due estratti che lo generano ,

otteniamo due valori , con i loro rispettivi diametrali , che danno spesso vincite multiple di ambo-

ambetto a ruota e tt. (spero di aver fatto giusti i calcoli)

23-04-2019

BA 31 GE 01 , 47 + 14 = 61

Faremo

61 + 47 = 18 + 45 = 63

61 + 14 = 75 - 45 = 30

Ambi 18-30 , 18-75 ; 75-63 , 30-63 BA/GE/TT

Quartina 18-63-75-30 BA/GE

5°MI 18-30
6°GE 75-30
10°BA 18-30

---------------------------

23-04-2019

BA 30 TO 90 , 89 + 61 = 60

60 + 89 = 59 - 14

60 + 61 = 31 - 76

Ambi 59-31 , 59-76 , 31-14 ,14-76 BA/TO/TT

Quartina 14-59-31-76 BA/TO

4°FI 59-76
7°CA 14-59
10°NA 14-31
13°VE 59-76

-----------------------------

01-09-2018

MI 90 TO 60 , 58 + 62 = 30

30 + 58 = 88-43

30 + 62 = 02-47

Ambi 88-02 , 88-47 , 02-43 , 43-47 MI/TO/TT

Quartina 02-43-47-88 MI/TO

2°RO 43-47
3°NZ 43-47
6°NZ 02-43
15°TO/VE 02-88

--------------------------------

12-07-2018

NA 06 PA 66 , 57 + 69 = 36

36 + 57 = 03-48

36 + 69 = 15-60

Ambi 03-15 , 03-60 , 15-48 , 60-48 NA/PA/TT

Quartina 03-15-48-60 NA/PA

1°TO 03-15-48
2°GE 15-60
3°NA 15-60
11°NA 48-60
15°PA 48-60

--------------------------

09-10-2018

CA 14 TO 44 , 30 + 44 = 74

74 + 30 = 14-59

74 + 44 = 28 -73

Ambi 14-28 , 14-73 , 59-28 , 59-73 CA/TO/TT

Quartina 14-28-59-73 CA/TO

10°PA 28-73

--------------------------

05-02-2019

PA 67 RO 37 , 23 + 74 = 07

07 + 23 = 30-75

07 + 74 = 81-36

Ambi 30-81 , 30-36 , 75-81 , 75-36 PA/RO/TT

Quartina 20-36-75-81 PA/RO

1°TO 30-81
11°FI 36-81
14°TO 75-81

----------------------------

13-10-2018

MI 51 PA 81 , 70 + 41 = 21

21 + 70 = 01-46

21 + 41 = 62-17

Ambi 01-62 , 01-17 , 46-17 , 46-62 MI/PA/TT

Quartina 01-46-17-62 MI/PA

2°MI 62-17
5°RO 01-62
11°RO 01-62
11°GE 17-62
14°BA 01-46
15°TO 46-62

--------------------------------------

25-08-2018

TO 45 VE 15 , 52+23 = 75

75 + 52 = 37-82

75 + 23 = 08-53

Ambi 37-08 , 37-53 , 08-82 , 82-53 TO/VE/TT

Quartina 08-37-53-82 TO/VE

1°TO 81-37-07-83-35 (ambetto)
2°TO 37-53
3°TO 53-38 (ambetto)
18°NA 08-82

----------------------------------------------

23-02-2019

CA 40 VE 70 , 19 + 81 = 10

10 + 19 = 29-74

10 + 81 = 01-46

Ambi 29-01 , 29-46 , 74-01 , 74-46 CA/TO/TT

Quartina 01-29-46-74 CA/TO

5°CA 46-73 (ambetto)
8°PA 29-01
8°VE 29-90 (ambetto)

---------------------------------------

02-11-2018

NA 36 RO 06 , 74 + 82 = 66

66 + 74 = 50-05

66 * 82 = 58-13

Ambi 50-58 , 50-13 , 05-58 , 05-13 NA/RO/TT

Quartina 05-13-50-58 NA/RO

1°GE 05-50
6°RO 05-58
7°NA 13-58
13°PA 05-58
16°BA 13-58
16°RO 13-04

---------------------------------

12-03-2019

BA 05 NA 35 , 89 + 66 = 65

65 + 89 = 64-19

65 + 66 = 41-86

Ambi 64-41 , 64-86 , 19-41 , 19-86 BA/NA/TT

Quartina 19-64-41-86 BA/NA

5°FI 19-86

-----------------------------

19-06-2018

FI 28 VE 88 , 59 + 89 = 58

58 + 59 = 27-72

58 + 89 = 57-12

Ambi 27-57 , 27-12 , 72-57 , 72-12 FI/VE/TT

Quartina 27-12-57-72 FI/VE

2°VE 12-57
3°FI 12-28 (ambetto)
4°FI 57-72
7°VE 12-73 (ambetto)

-----------------------------

Ciao
 
Buona Sera a tutte/i.

Codice:
Option Explicit
Sub Main
'Metodo di Bubblegum Ricerca Coppia Simmetrica e Chiusura di Somma.
'Script By Joe V.4.0 del 24/05/2019
  Dim Ini,Fin,Es,R1,R2,P1,P2,A,B,C,D,E,G,K
  Dim M(4),Nu(2),Lu(4),Ru(2),Rt(3),Po(2),Pl(3),Co
  Po(2) = 1 : Pl(2) = .9 : Pl(3) = .1 : Rt(3) = TT_ : Co = 13
  Ini = EstrazioneFin - 155 : Fin = EstrazioneFin
  For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es : G = 0
    For R1 = 1 To 10
      For P1 = 1 To 5
        A = Estratto(Es,R1,P1)
        For R2 = R1 + 1 To 12 : If R2 = 11 Then R2 = 12
          For P2 = 1 To 5
            If P1 <> P2 Then
              B = Estratto(Es,R2,P2)
              If Distanza(A,B) = 30 Then
                E = Fuori90(A + 30) : If E = B Then E = Fuori90(A + 60)
                C = Estratto(Es,R1,P2) : D = Estratto(Es,R2,P1)
                If Fuori90(C + D) = E Then
                  M(1) = Fuori90(E + C) : M(2) = Fuori90(E + D)
                  M(3) = Fuori90(E + C + 45) : M(4) = Fuori90(E + D - 45)
                  Ru(1) = R1 : Ru(2) = R2
                  Nu(1) = M(1) : Nu(2) = M(4) : OrdinaMatrice Nu,False
                  G = G + 1 : ImpostaGiocata G,Nu,Ru,Po,Co,2
                  Nu(1) = M(1) : Nu(2) = M(2): OrdinaMatrice Nu,False
                  G = G + 1 : ImpostaGiocata G,Nu,Ru,Po,Co,2
                  Nu(1) = M(2) : Nu(2) = M(3): OrdinaMatrice Nu,False
                  G = G + 1 : ImpostaGiocata G,Nu,Ru,Po,Co,2
                  Nu(1) = M(4) : Nu(2) = M(3): OrdinaMatrice Nu,False
                  G = G + 1 : ImpostaGiocata G,Nu,Ru,Po,Co,2
                  Rt(1) = R1: Rt(2) = R2 : OrdinaMatrice M,False
                  G = G + 1 : ImpostaGiocata G,M,Rt,Pl,Co,3
                End If 'Chiusura di Somma Simmetrica
              End If 'Simmetrici
            End If 'Non Isotopi
            Next'P2
          Next 'R2
        Next 'P1
      Next 'R1
      If G > 0 Then
        K = K + 1 : Scrivi String(106,"=") & FormatSpace(K,4,True),True
        Gioca Es,True,,True,True
      End If
    Next 'Es
    Scrivi : ScriviResoconto
End Sub

:)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 07 giugno 2025
    Bari
    76
    01
    50
    74
    87
    Cagliari
    13
    76
    67
    43
    59
    Firenze
    37
    17
    71
    48
    23
    Genova
    54
    58
    44
    48
    46
    Milano
    48
    09
    86
    77
    44
    Napoli
    38
    25
    17
    19
    82
    Palermo
    81
    66
    78
    72
    05
    Roma
    70
    27
    83
    44
    71
    Torino
    79
    86
    53
    03
    89
    Venezia
    78
    18
    33
    79
    38
    Nazionale
    49
    63
    48
    86
    68
    Estrazione Simbolotto
    Napoli
    43
    08
    01
    35
    15
Indietro
Alto