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
    venerdì 11 luglio 2025
    Bari
    39
    28
    27
    01
    80
    Cagliari
    54
    79
    69
    43
    61
    Firenze
    62
    60
    86
    80
    05
    Genova
    45
    10
    42
    79
    84
    Milano
    28
    59
    23
    46
    11
    Napoli
    01
    55
    52
    50
    39
    Palermo
    75
    17
    74
    82
    54
    Roma
    38
    13
    79
    25
    44
    Torino
    68
    29
    26
    40
    06
    Venezia
    46
    84
    64
    27
    67
    Nazionale
    72
    77
    46
    61
    23
    Estrazione Simbolotto
    Nazionale
    12
    34
    36
    10
    39
Indietro
Alto