Richiesta script

[Bubblegum]

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

 

[joe]

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:

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

 

[Bubblegum]

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

 

[joe]

Buona Sera a tutte/i.

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

 

[Bubblegum]

Grazie mille Joe , buon weekend

 

[salvo50]

Ciao a Tutti.

Grazie Joe, mooolto istruttivo.