Modificare Script

[flama]

Ciao a tutti, ho provato a modificare uno script che mi aveva creato Joe tempo fa per un metodo affine; premetto che è già un ottimo risultato che giri senza bloccarsi, però non assolve bene al compito.
Credo che il problema sia che non riesco a definire nella composizione dei numeri le "proprietà" che devono rispettare per fare i calcoli.
In sostanza si tratta di rintracciare la seguente condizione su una ruota: una terna composta da A+B=C ,ad esempio A= 58 ; B= 2; C= 60
Rintracciata la condizione si porrà in gioco l'ambo composto da:
C+B (ovvero la somma del numero maggiore col minore)
A-B (la differenza tra il numero mediano e il numero minore della terna)
Si giocherà per max 10 colpi per ambo e ambetto sulla ruota di calcolo e sulla sua gemella.

Option Explicit
Sub Main
   'Flama, a ruota terna composta da A+B=C ad esempio A= 58 ; B= 2; C= 60
   ' rintracciata la condizione si porrà in gioco l'ambo composto da
   ' C+B (ovvero la somma del num maggiore col minore)
   ' A-B (la differenza tra il numero mediano e il numero minore della terna)
   'per un massimo di 10 colpi sulla ruota di calcolo e sulla sua gemella
  
 Dim Ini,Fin,Es,R,P,E(5),P1,P2,T(3),G,Nu(3),Ru(2),Po(3)
 For R = 1 To 10
 Ru(1) = R : Po(2) = 1
  Ini = EstrazioneFin - 100 : Fin = EstrazioneFin
  For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es : G = 0
         For P = 1 To 5 : E(P) = Estratto(Es,R,P) : Next
      For P1 = 1 To 4 : T(1) = E(P1)
        For P2 = P1 + 1 To 5 : T(2) = E(P2)
          T(3) = T(1) + T(2)
          If T(1) <> T(3) And T(2) <> T(3) Then
            If Posizione(Es,R,T(3)) > 0 Then
              Ru(1) = R : Nu(1) = Fuori90(T(2) + T(3)) : Nu(2) = Fuori90(T(1) - T(2))
              Ru(2) = RuotaGemella(R) : Nu(1) = Fuori90(T(2) + T(3)) : Nu(2) = Fuori90(T(1) - T(2))
              G = G + 1
              ImpostaGiocata G,Nu,Ru,Po,10,2
            End If
          End If
        Next
      Next
      If G > 0 Then Gioca Es,True
  Next
   Next
  ScriviResoconto
End Sub

 

[druid]

Ciao Flama,
da cosa e' supportata questa tua ipotesi:
" Credo che il problema sia che non riesco a definire nella composizione dei numeri le "proprietà" che devono rispettare per fare i calcoli. "?
Per verificare la validita' di quanto sopra modifica l' istruzione
Ini = EstrazioneFin - 5
e lancia lo script.
"Tira fuori" 5 ambi.
Te ne risultano altri?
Sono corretti in base alle somme e alle differenze fra i numeri ottenuti?
Ciao

 

[flama]

Ciao Druid,
per proprietà( mi sarò espressa in modo generico forse) intendo che il calcolo deve utilizzare i numeri della terna A;B;C di somma C, rispettando il fatto che la sottrazione e l'addizione deve avvenire tra termini definiti. Esempio pratico il 14/05 esce a Palermo la seguente condizione:
58-60-2 di cui 60=58+2 (in ordine avremo C= A+B)
partendo da qui il calcolo da fare è
C+B = 60+2 ( quindi della terna il maggiore col minore) = 62
A-B = 58-2 ( mediano e minore) = 56
Otteniamo 62-56 da giocare su Palermo e Genova. esito in questo caso al secondo colpo a Genova ambo.
Il calcolo produce per ogni condizione sempre solo un ambo da giocare su due ruote per le sorti di ambo e ambetto.
Il mio problema principale nello script è non saper dare al programma l'identificazione di A e B,
poi fare in modo che i risultati siano ordinati anzichè per ruote, per data estrazione in modo che gli ultimi (ancora in corso) siano tutti in fondo.

 

[druid]

Ciao,
per ordinare i risultati per estrazione devi invertire i cicli for - next, quindi prima

For Es = Ini To Fin

e poi

For R = 1 To 10

Per quanto riguarda i risultati:
sappiamo che C e' sempre il maggiore essendo il risultato di una somma
il mediano e' il maggiore tra A e B
e il minore e' cmq il minore tra A e B;
quindi prima dei calcoli bastera' una if (le variabili chiamale come vuoi)

IF A<B Then
min=A
calcoli .....
else
min=B
calcoli .....
end if

Spero di essere stato chiaro.

Ciao

 

[flama]

Grazie Druid,
sei stato chiarissimo, ho applicato i tuoi suggerimenti e sono riuscita a capire un'altra cosa sul funzionamento di questo strumento.
Buona giornata

 

[joe]

Buona serata a tutte/i.

Tutto giusto ... Mi permetto di aggiungere alcune cose:

Avevo organizzato lo script affinché elencasse

i pronostici per "ruota" per favorire le ricerche di numeri comuni

a più pronostici in una stessa ruota.

Avevo scritto : T(3) = T(1) + T(2)

affinche T(3) rimanesse ENTRO90 (quando quasi tutti farebbero col Fuori90).

In questo caso e cosi facendo giustamente T(3) è sempre maggiore di T(1)

ed anche di T(2) non essendoci la possibilità di avere un T(1) o T(2) = Zero.

Avendo i 3 valori e vettore T ...

Forse potrebbe essere conveniente ordinare questo vettore ottenendo

T(1) = piccolo / T(2) = medio / T(3) = grande.

Però ripeto ... sono più scelte personali che dogmi in cui credere.

I suggerimenti quando funzionano sono buoni e giusti.

 

[flama]

Buona serata a tutte/i.

Tutto giusto ... Mi permetto di aggiungere alcune cose:

Avevo organizzato lo script affinché elencasse

i pronostici per "ruota" per favorire le ricerche di numeri comuni

a più pronostici in una stessa ruota.

Avevo scritto : T(3) = T(1) + T(2)

affinche T(3) rimanesse ENTRO90 (quando quasi tutti farebbero col Fuori90).

In questo caso e cosi facendo giustamente T(3) è sempre maggiore di T(1)

ed anche di T(2) non essendoci la possibilità di avere un T(1) o T(2) = Zero.

Avendo i 3 valori e vettore T ...

Forse potrebbe essere conveniente ordinare questo vettore ottenendo

T(1) = piccolo / T(2) = medio / T(3) = grande.

Però ripeto ... sono più scelte personali che dogmi in cui credere.

I suggerimenti quando funzionano sono buoni e giusti.

Buogiorno Joe,
grazie del tuo intervento, al tempo in effetti ti avevo chiesto di ottenere che il maggiore rimanesse entro 90, anche qui è necessario.
Nelle modifiche che ho fatto avevo provato ad ordinare i numeri in questo modo:
T(3) = T(1) + T(2)
If T(1) > T(2) And T(2) < T(3) Then
F = T(2)
in cui F è il numero che viene usato nel calcolo di entrambi i termini che compongono l'ambo da giocare.

 

[i legend]

A=2
B=58
C=58+2=60
D=?
E=?
Min ,max
If a<b then
Min=A
Max=B
Else
Min=B
Max=A
End if

D= c+min
E= max-min
Oppure ci sono le funzioni minimo e massimo
Se ho capito quello che si vuole ottenere
Ciao

 

[flama]

Grazie I Legend,
ogni lezione è bene accetta.

 

[joe]

Option Explicit
Sub Main
 ' Flama, a ruota si cerca una terna composta da A + B = C  Esempio :
 ' Palermo il 14/05/2020 sono Estratti 02 + 58 = 60
 ' rintracciata la condizione si porrà in gioco l'ambo composto da
 ' A + C (ovvero la somma del numero minore A con il maggiore C) = 62
 ' B - A (la differenza tra il numero mediano B e il numero minore della terna A) = 56
 ' per un massimo di 10 colpi sulla ruota di calcolo e sulla sua gemella = PA-GE
 ' Risultato Ambo 62.56 a Genova al 2° colpo
 Dim Ini,Fin,Es,R,P,E(5),P1,P2,T(3),G,K,Nu(3),Ru(2),Po(3)
 Ini = EstrazioneFin - 100 : Fin = EstrazioneFin : Po(2) = 1
 For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es : G = 0
  For R = 1 To 10
   For P = 1 To 5 : E(P) = Estratto(Es,R,P) : Next
   For P1 = 1 To 4 : T(1) = E(P1)
    For P2 = P1 + 1 To 5 : T(2) = E(P2)
     T(3) = T(1) + T(2)
     If T(1) <> T(3) And T(2) <> T(3) Then
      If Posizione(Es,R,T(3)) > 0 Then
       If G = 0 Then K = K + 1 : Scrivi String(103,"=") & FormatSpace(K,3,True),True : Scrivi
       Ru(1) = R : Ru(2) = RuotaGemella(R)
       OrdinaMatrice T,False
       ColoreTesto 1 : Scrivi SiglaRuota(R) & Space(2),True,False
       ColoreTesto 2 : Scrivi "A = " & Format2(T(1)) & " + B = " & Format2(T(2)) & " = C = " & Format2(T(3)),True,False
       ColoreTesto 1 : Scrivi Space(3) & Format2(T(1)) & " + " & Format2(T(3)) & " = " & Format2(Fuori90(T(1) + T(3))),True,False
       ColoreTesto 1 : Scrivi Space(3) & Format2(T(2)) & " - " & Format2(T(1)) & " = " & Format2(Fuori90(T(2) - T(1))),True,False
       ColoreTesto 0 : Scrivi
       Nu(1) = Fuori90(T(1) + T(3)) : Nu(2) = T(2) - T(1)
       G = G + 1
       ImpostaGiocata G,Nu,Ru,Po,7,2
      End If
     End If
    Next
   Next
  Next
  If G > 0 Then
   Scrivi
   Gioca Es,True
  End If
 Next
 ScriviResoconto
End Sub

 

[Armaus]

Ciao Druid,
per proprietà( mi sarò espressa in modo generico forse) intendo che il calcolo deve utilizzare i numeri della terna A;B;C di somma C, rispettando il fatto che la sottrazione e l'addizione deve avvenire tra termini definiti. Esempio pratico il 14/05 esce a Palermo la seguente condizione:
58-60-2 di cui 60=58+2 (in ordine avremo C= A+B)
partendo da qui il calcolo da fare è
C+B = 60+2 ( quindi della terna il maggiore col minore) = 62
A-B = 58-2 ( mediano e minore) = 56
Otteniamo 62-56 da giocare su Palermo e Genova. esito in questo caso al secondo colpo a Genova ambo.
Il calcolo produce per ogni condizione sempre solo un ambo da giocare su due ruote per le sorti di ambo e ambetto.
Il mio problema principale nello script è non saper dare al programma l'identificazione di A e B,
poi fare in modo che i risultati siano ordinati anzichè per ruote, per data estrazione in modo che gli ultimi (ancora in corso) siano tutti in fondo.

Complimenti Flama per la tua esposizione del metodo, in attesa che qualcuno gentilmente faccia uno script, volevo sapere se hai trovato altre estrazioni recenti con casi simili.
Grazie e saluti Armaus

 

[flama]

Grazie Joe per la correzione, sempre disponibile.
Armaus lo script è quello postato da Joe, io ho modificato la posta, inserendo anche la sorte di Estratto per facilitarmi la ricerca degli ambetti. Lo script da una visuale più ampia e il metodo va rivisto, può però essere utilizzato per convergenze varie.
Dal 14/05 si sono presentati altri 10 casi.
Ti riposto lo script con la variazione delle poste e dei colpi di gioco, sperando ti possa essere utile.
Saluti,
Flama

Option Explicit
Sub Main
 ' Flama, a ruota si cerca una terna composta da A + B = C  Esempio :
 ' Palermo il 14/05/2020 sono Estratti 02 + 58 = 60
 ' rintracciata la condizione si porrà in gioco l'ambo composto da
 ' A + C (ovvero la somma del numero minore A con il maggiore C) = 62
 ' B - A (la differenza tra il numero mediano B e il numero minore della terna A) = 56
 ' per un massimo di 10 colpi sulla ruota di calcolo e sulla sua gemella = PA-GE
 ' Risultato Ambo 62.56 a Genova al 2° colpo
 Dim Ini,Fin,Es,R,P,E(5),P1,P2,T(3),G,K,Nu(3),Ru(2),Po(3)
 Ini = EstrazioneFin - 70 : Fin = EstrazioneFin : Po(1) = 1 : Po(2) = 1
 For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es : G = 0
  For R = 1 To 10
   For P = 1 To 5 : E(P) = Estratto(Es,R,P) : Next
   For P1 = 1 To 4 : T(1) = E(P1)
    For P2 = P1 + 1 To 5 : T(2) = E(P2)
     T(3) = T(1) + T(2)
     If T(1) <> T(3) And T(2) <> T(3) Then
      If Posizione(Es,R,T(3)) > 0 Then
       If G = 0 Then K = K + 1 : Scrivi String(103,"=") & FormatSpace(K,3,True),True : Scrivi
       Ru(1) = R : Ru(2) = RuotaGemella(R)
       OrdinaMatrice T,False
       ColoreTesto 1 : Scrivi SiglaRuota(R) & Space(2),True,False
       ColoreTesto 2 : Scrivi "A = " & Format2(T(1)) & " + B = " & Format2(T(2)) & " = C = " & Format2(T(3)),True,False
       ColoreTesto 1 : Scrivi Space(3) & Format2(T(1)) & " + " & Format2(T(3)) & " = " & Format2(Fuori90(T(1) + T(3))),True,False
       ColoreTesto 1 : Scrivi Space(3) & Format2(T(2)) & " - " & Format2(T(1)) & " = " & Format2(Fuori90(T(2) - T(1))),True,False
       ColoreTesto 0 : Scrivi
       Nu(1) = Fuori90(T(1) + T(3)) : Nu(2) = T(2) - T(1)
       G = G + 1
       ImpostaGiocata G,Nu,Ru,Po,12,2 ' originali colpi 7
      End If
     End If
    Next
   Next
  Next
  If G > 0 Then
   Scrivi
   Gioca Es,True
  End If
 Next
 ScriviResoconto
End Sub