Per salvo50 aiuto per uno script su terne di somma uguale

[Matematico]

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

 

[salvo50]

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

 

[joe]

Ciao,

per non lasciarti senza risposta ho scritto questo:

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.

 

[Matematico]

Grazie di cuore joe , è proprio come lo volevo io ...sei fantastico !

Notte

 

[salvo50]

Ciao,

per non lasciarti senza risposta ho scritto questo:

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

 

[Matematico]

Ringrazio anche te salvo50, sò che quando puoi sei sempre generoso e disponibile
Un saluto a tutti!

 

[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.

 

[salvo50]

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ù

 

[joe]

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.

 

[Matematico]

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 ?

 

[salvo50]

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

 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