Novità

Per salvo50 aiuto per uno script su terne di somma uguale

Matematico

Advanced Member >PLATINUM<
Ciao salvo50 , cortesemente ti chiedo uno script che mi calcoli tutte le possibili terne con la stessa somma .su unica ruota...praticamente tutte le terne che si formano con i 10 estratti di BARI..credo si formino 120 terni con 10 numeri
Esempio:

25.08.2018- Ba 76.61.26.29.60
28.08.2018- Ba 57.80.47.77.45

76+61+26= 73
76+61+29= 76
76+61+60= 17
61+26+29= 26
61+26+60= 57
26+29+60= 25
--------------
57+80+47= 04 *
57+80+77= 34 *
57+80+45= 02 *
80+47+77= 24
80+47+45= 82
47+77+45= 79
-------------
76+61+57= 14
76+61+80= 37
76+61+47= 04 *
76+61+77= 34 *
76+61+45= 02 *
61+26+57= 54
61+26+80= 77
61+26+47= 44
61+26+77= 74
61+26+45= 42

E cosi via...

Grazie sempre :-)
 
Ultima modifica:
Matematico;n2129329 ha scritto:
Ciao salvo50 , cortesemente ti chiedo uno script che mi calcoli tutte le possibili terne con la stessa somma .su unica ruota...praticamente tutte le terne che si formano con i 10 estratti di BARI..credo si formino 120 terni con 10 numeri
Esempio:

Ciao a Tutti

Ciao Matematico

Per me non è una cosa semplice fare questo tipo di script, e in questo periodo sono impegnato con altro, quindi passo la palla ai VERI SCRIPTERS
 
Ciao,

per non lasciarti senza risposta ho scritto questo:

Codice:
Option Explicit
Sub Main
  Dim Ini,Fin,Es,R,E,A,B,C,K
  Dim S,T(270)
  Ini = EstrazioneFin : Fin = EstrazioneFin
  For Es = Ini To Fin
    For R = 1 To 1
      E = Split("0." & StringaEstratti(Es - 1,R) & "." & StringaEstratti(Es ,R),".")
      Scrivi SiglaRuota(R) & "  " & StringaNumeri(E,,True)
      For A = 1 To 8
        For B = A + 1 To 9
          For C = B + 1 To 10
            S = CInt(E(A)) + CInt(E(B)) + CInt(E(C))
            T(S) = T(S) + 1
          Next
        Next
      Next
      For A = 1 To 8
        For B = A + 1 To 9
          For C = B + 1 To 10
            K = K + 1
            Scrivi FormatSpace(K,3,True) & "  ",0,0
            Scrivi Format2(E(A)) & "+" & Format2(E(B)) & "+" & Format2(E(C)) & " = ",0,0
            S = CInt(E(A)) + CInt(E(B)) + CInt(E(C))
            If E(A) = E(B) Or E(A) = E(C) Or E(B) = E(C) Then ColoreTesto 2
            Scrivi FormatSpace(S,3,True) & " "  &  String  (T(S),"*")
            ColoreTesto 0
          Next
        Next
      Next
    Next
  Next
End Sub

Tuttavia è diverso da quanto hai chiesto e

siccome io ritengo che gli estratti non debbano MAI essere sommati ...

... non mi chiedere di modificarlo o espanderlo o di inserirci il fuori90,

perché per me, già così è, già ben oltre ... i limiti.

:)
 
Ultima modifica:
joe;n2129570 ha scritto:
Ciao,

per non lasciarti senza risposta ho scritto questo:

Codice:
Option Explicit
Sub Main
Dim Ini,Fin,Es,R,E,A,B,C,K
Dim S,T(270)
Ini = EstrazioneFin : Fin = EstrazioneFin
For Es = Ini To Fin
For R = 1 To 1
E = Split("0." & StringaEstratti(Es - 1,R) & "." & StringaEstratti(Es ,R),".")
Scrivi SiglaRuota(R) & " " & StringaNumeri(E,,True)
For A = 1 To 8
For B = A + 1 To 9
For C = B + 1 To 10
S = CInt(E(A)) + CInt(E(B)) + CInt(E(C))
T(S) = T(S) + 1
Next
Next
Next
For A = 1 To 8
For B = A + 1 To 9
For C = B + 1 To 10
K = K + 1
Scrivi FormatSpace(K,3,True) & " ",0,0
Scrivi Format2(E(A)) & "+" & Format2(E(B)) & "+" & Format2(E(C)) & " = ",0,0
S = CInt(E(A)) + CInt(E(B)) + CInt(E(C))
If S = 63 Then ColoreTesto 2
Scrivi FormatSpace(S,3,True) & " " & String (T(S),"*")
ColoreTesto 0
Next
Next
Next
Next
Next
End Sub

Tuttavia è diverso da quanto hai chiesto e

siccome io ritengo che gli estratti non debbano MAI essere sommati ...

... non mi chiedere di modificarlo o espanderlo o di inserirci il fuori90,

perché per me, già così è, già ben oltre ... i limiti.

:)

Ciao a Tutti

Praticamente fino a metà script l'avevo fatto quasi uguale, poi non sono più riuscito ad andare avanti, domanda come faccio a confrontare le stesse variabili, boh..., Joe con la sua classe ed esperienza ha fatto il raddoppio delle stesse variabili, a parte il fatto che in questo periodo ho problemi familiari e quindi non mi posso applicare più di tanto, ma comunque neache fra centanni avrei pensato alla soluzione adottata da Joe.

Grazie Joe, un'altra pillolina da aggiungere nella cartella PILLOLINE DI JOE
 
Vi ringrazio e vi informo che ho modificato un pochino, lo script,

presente al messaggi #3. Per verificare, l'effetto di questa modifica,

è utile retrocedere il limite dell'archivio al 16/08/2018 ed osservare le formazioni in colore rosso,

dovute alla presenza del 71 che si è ripetuto a Bari.

:)
 
Praticamente se 2 estratti sono uguali la somma è rossa, il 21/08/2018 si ripete 84, il 23/08/2018 si ripetano sia 84 che il 3, una sciccheria in più
 
Cias Salvo, si.

03.84 genererà molte più somme ripetute (6)

In sintesi ottiene ... in somma ... lo stesso risultato

(più confuso e laborioso) di quello ricavabile

dalla semplice osservazione degli estratti.

:)
 
Ultima modifica:
Grazie joe, una chicca in più molto gradita...in effetti questo elaborato diventa anche un metodo x ricavare estratti molto probabili.
Ho notato che se si calcolano le somme tipo su BA-CA ; CA-FI; FI-GE ...il metodo è ancora più efficace.
Si potrebbe apportare la modifica al listato che già hai realizzato joe ?
 
Matematico;n2129806 ha scritto:
Grazie joe, una chicca in più molto gradita...in effetti questo elaborato diventa anche un metodo x ricavare estratti molto probabili.
Ho notato che se si calcolano le somme tipo su BA-CA ; CA-FI; FI-GE ...il metodo è ancora più efficace.
Si potrebbe apportare la modifica al listato che già hai realizzato joe ?

Ciao a Tutti

Ho aggiunto il numero estrazione, data, e numeri, anche se quest'ultimi sono dei doppioni

Lo script è da riprendere c'era un errorre

Codice:
 Option Explicit
Sub Main
   Dim Ini,Fin,Es,R,E,A,B,C,K,R1
   Dim S,T(270)
   Ini = EstrazioneFin : Fin = EstrazioneFin
   For Es = Ini To Fin
      For R = 1 To 10
         R1 = R + 1
         If R1 = 11 Then R1 = 12
         E = Split("0." & StringaEstratti(Es,R) & "." & StringaEstratti(Es,R1),".")
         Scrivi
         ColoreTesto 2
         Scrivi String(52,"*")
         ColoreTesto 0
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R) & " " & StringaEstratti(Es,R),1
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
         ColoreTesto 2
         Scrivi
         Scrivi SiglaRuota(R) & " - " & SiglaRuota(R1),1,0 : ColoreTesto 0
         Scrivi "  " & StringaNumeri(E,,True)
         For A = 1 To 8
            For B = A + 1 To 9
               For C = B + 1 To 10
                  S = CInt(E(A)) + CInt(E(B)) + CInt(E(C))
                  T(S) = T(S) + 1
               Next
            Next
         Next
         For A = 1 To 8
            For B = A + 1 To 9
               For C = B + 1 To 10
                  K = K + 1
                  Scrivi FormatSpace(K,3,True) & "  ",0,0
                  Scrivi Format2(E(A)) & "+" & Format2(E(B)) & "+" & Format2(E(C)) & " = ",0,0
                  S = CInt(E(A)) + CInt(E(B)) + CInt(E(C))
                  If E(A) = E(B) Or E(A) = E(C) Or E(B) = E(C) Then ColoreTesto 2
                  Scrivi FormatSpace(S,3,True) & " " & String(T(S),"*")
                  ColoreTesto 0
               Next
            Next
         Next
      Next
   Next
End Sub
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 ottobre 2025
    Bari
    04
    25
    41
    83
    90
    Cagliari
    16
    81
    09
    87
    82
    Firenze
    67
    13
    08
    49
    39
    Genova
    29
    61
    54
    15
    22
    Milano
    06
    11
    08
    48
    53
    Napoli
    60
    13
    46
    67
    63
    Palermo
    78
    72
    54
    02
    58
    Roma
    35
    47
    89
    25
    77
    Torino
    39
    27
    35
    30
    85
    Venezia
    36
    32
    47
    63
    73
    Nazionale
    17
    33
    10
    51
    28
    Estrazione Simbolotto
    10
    11
    43
    13
    04
Indietro
Alto