Per Salvo50

[giorgio1960]

Ciao e buona sera a tutti
Scusa se approfitto della tua disponibilità
ti volevo chiedere se era possibile realizzare uno script relativo ad un metodo di Manara
Praticamente si tratta di rintracciare in posizione isotopa un ambo ripetuto
detto ambo deve necessariamente essere pari o dispari
in modo che la somma sia divisibile per due
Esempio
si rileva su due ruote qualsiasi l’ambo ripetuto 24.2
esso ha i requisiti richiesti per la nostra tecnica,
quindi possiamo ricavare la previsione
calcolo
24+2 = 26, il 26 va ora diviso per due ed otteniamo: 26:2 = 13.
Al 13 addizioneremo il fisso 45 ed avremo: 13+45 = 58.
Ora con il 58 si deve trovare la distanza con l’ambo base e
quindi si farà:
58-24 = 34,
poi 58-2 = 56,
siccome il 56 supera il limite 45, si farà il completamento a 90,
quindi:
90-56 = 34, il 34 sarà la futura ambata.

Per gli ambi abbineremo i numeri dell'ambo base (24.2) la relativa somma (26) e differenza (22)
quindi gli ambi saranno: 34.24/34.2/34.26/34.22.
in attesa anticipatamente ringrazio Giorgio

 

[franca46]

l'ambo non è necessario che sia isotopo

 

[salvo50]

Ciao a Tutti.

Ho cercato in altri siti questo metodo di Manara, perchè volevo essere sicuro che il suggerimento di Franca46 fosse giusto, quindi in un sito ho riscontrato che nelle prime spiegazioni recitava che si doveva rintracciare nelle stesse posizioni un ambo ripetuto, ma l'esempio lo fa con un ambo non isotopo, dove solo un estratto è isotopo ma però non lo menziona, quindi per essere sicuro al 100%, ho fatto un ulteriore prova, nelle spiegazioni dice che nell'anno 1992 ha riscontrato 38 condizioni valide, ho impostato dall'estrazione 6313 all'estrazione 6364 che corrisponde all'anno 1992 ed ho riscontrato 38 estrazioni valide, quindi gli ambi ripetuti possono essere completamente non isotopi.

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,E,xX,X,Clp,Es,Salvo50
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
   Dim Abb3,Abb4,Amba1,Amba2
   Dim Ruo(2),Po1(1),Po2(2),Ambo4(2)
   Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9850))'6531 esempio nelle spiegazioni
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,10))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(10) & "Ambo Ripetuto Pari O Dispari di Osvaldo Manara - Script Salvo50"& Space(10),1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               If(pari(A) And pari(B))Or(dispari(A) And dispari(B))Then
                  For R2 = R1 + 1 To 10
                     For P3 = 1 To 4
                        For P4 = P3 + 1 To 5
                           C = Estratto(Es,R2,P3)
                           D = Estratto(Es,R2,P4)
                           If(A = C And B = D) Or(A = D And B = C) Then
                              xX =(A + B) : X = xX / 2
                              E = Fuori90(X + 45)
                              Amba1 = Distanza(A,E)
                              Amba2 = Distanza(B,E)
                              Abb3 = Fuori90(A + B)
                              Abb4 = Differenza(A,B)
                              'A---B
                              '|   |
                              'C---D
                              Ambo1(1) = Amba1 : Ambo1(2) = A
                              Ambo2(1) = Amba1 : Ambo2(2) = B
                              Ambo3(1) = Amba1 : Ambo3(2) = Abb3
                              Ambo4(1) = Amba1 : Ambo4(2) = Abb4
                              Caso = Caso + 1
                              Casi = Casi + 1
                              Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                              Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R1) & " ",1,0
                              For P5 = 1 To 5
                                 E1 = Estratto(Es,R1,P5)
                                 If E1 = A Or E1 = B Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R2) & " ",1,0
                              For P6 = 1 To 5
                                 E2 = Estratto(Es,R2,P6)
                                 If E2 = C Or E2 = D Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi
                              Scrivi Space(17) & Format2(A) & " + " & Format2(B) & " = " & Format2(xX) & " / 2 = ",1,0
                              Scrivi Format2(X) & " + Il Fisso 45 = " & Format2(E),1
                              Scrivi
                              Scrivi Space(14) & " Distanza Ciclometrica Tra " & Format2(E) & " e " & Format2(A) & " = " & Format2(Amba1),1
                              Scrivi Space(14) & " Distanza Ciclometrica Tra " & Format2(E) & " e " & Format2(B) & " = " & Format2(Amba2) & " Ambata",1
                              Scrivi Space(25) & " Abbinamenti Per Ambo ",1,,,1
                              Scrivi Space(23) & "Estratto  " & Format2(A) & " Abbinamento 1 ",1
                              Scrivi Space(23) & "Estratto  " & Format2(B) & " Abbinamento 2 ",1
                              Scrivi Space(23) & Format2(A) & " + " & Format2(B) & " = " & Format2(Abb3) & " Abbinamento 3",1
                              Scrivi Space(23) & Format2(A) & " - " & Format2(B) & " = " & Format2(Abb4) & " Abbinamento 4",1
                              Scrivi
                              Ruo(1) = R1 : Ruo(2) = R2
                              ImpostaGiocata 1,Amba,Ruo,Po1,Clp,1
                              ImpostaGiocata 2,Ambo1,Ruo,Po2,Clp
                              ImpostaGiocata 3,Ambo2,Ruo,Po2,Clp
                              ImpostaGiocata 4,Ambo3,Ruo,Po2,Clp
                              ImpostaGiocata 5,Ambo4,Ruo,Po2,Clp
                              Gioca Es,1
                           End If
                        Next
                     Next
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[salvo50]

Scusate nello script postato c'è un errore, mi sono dimenticato di inserire l'ambata nel pronostico e siccome non me lo fa correggere, dice che il tempo è scaduto, boh

metto un altro script

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,E,xX,X,Clp,Es,Salvo50
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
   Dim Abb3,Abb4,Amba1,Amba2
   Dim Ruo(2),Po1(1),Po2(2),Ambo4(2)
   Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9850))'6531 esempio nelle spiegazioni
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,10))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(10) & "Ambo Ripetuto Pari O Dispari di Osvaldo Manara - Script Salvo50"& Space(10),1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               If(pari(A) And pari(B))Or(dispari(A) And dispari(B))Then
                  For R2 = R1 + 1 To 10
                     For P3 = 1 To 4
                        For P4 = P3 + 1 To 5
                           C = Estratto(Es,R2,P3)
                           D = Estratto(Es,R2,P4)
                           If(A = C And B = D) Or(A = D And B = C) Then
                              xX =(A + B) : X = xX / 2
                              E = Fuori90(X + 45)
                              
                              Amba1 = Distanza(A,E)
                              Amba2 = Distanza(B,E)
                              Abb3 = Fuori90(A + B)
                              Abb4 = Differenza(A,B)
                              'A---B
                              '|   |
                              'C---D
                               Amba(1) = Amba1

                              Ambo1(1) = Amba1 : Ambo1(2) = A
                              Ambo2(1) = Amba1 : Ambo2(2) = B
                              Ambo3(1) = Amba1 : Ambo3(2) = Abb3
                              Ambo4(1) = Amba1 : Ambo4(2) = Abb4
                              Caso = Caso + 1
                              Casi = Casi + 1
                              Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                              Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R1) & " ",1,0
                              For P5 = 1 To 5
                                 E1 = Estratto(Es,R1,P5)
                                 If E1 = A Or E1 = B Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R2) & " ",1,0
                              For P6 = 1 To 5
                                 E2 = Estratto(Es,R2,P6)
                                 If E2 = C Or E2 = D Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi
                              Scrivi Space(17) & Format2(A) & " + " & Format2(B) & " = " & Format2(xX) & " / 2 = ",1,0
                              Scrivi Format2(X) & " + Il Fisso 45 = " & Format2(E),1
                              Scrivi
                              Scrivi Space(14) & " Distanza Ciclometrica Tra " & Format2(E) & " e " & Format2(A) & " = " & Format2(Amba1),1
                              Scrivi Space(14) & " Distanza Ciclometrica Tra " & Format2(E) & " e " & Format2(B) & " = " & Format2(Amba2) & " Ambata",1
                              Scrivi Space(25) & " Abbinamenti Per Ambo ",1,,,1
                              Scrivi Space(23) & "Estratto  " & Format2(A) & " Abbinamento 1 ",1
                              Scrivi Space(23) & "Estratto  " & Format2(B) & " Abbinamento 2 ",1
                              Scrivi Space(23) & Format2(A) & " + " & Format2(B) & " = " & Format2(Abb3) & " Abbinamento 3",1
                              Scrivi Space(23) & Format2(A) & " - " & Format2(B) & " = " & Format2(Abb4) & " Abbinamento 4",1
                              Scrivi
                              Ruo(1) = R1 : Ruo(2) = R2
                              ImpostaGiocata 1,Amba,Ruo,Po1,Clp,1
                              ImpostaGiocata 2,Ambo1,Ruo,Po2,Clp
                              ImpostaGiocata 3,Ambo2,Ruo,Po2,Clp
                              ImpostaGiocata 4,Ambo3,Ruo,Po2,Clp
                              ImpostaGiocata 5,Ambo4,Ruo,Po2,Clp
                              Gioca Es,1
                           End If
                        Next
                     Next
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[franca46]

ciao salvo hai ragione , avevo letto male il metodo. adesso provo i listato
speravo lo facessi per L8 ,mi adatterò.

grazie

 

[franca46]

ciao salvo hai ragione , avevo letto male il metodo. adesso provo i listato
speravo lo facessi per L8 ,mi adatterò.

grazie

calcolo
24+2 = 26, il 26 va ora diviso per due ed otteniamo: 26:2 = 13.
Al 13 addizioneremo il fisso 45 ed avremo: 13+45 = 58.
Ora con il 58 si deve trovare la distanza  con l’ambo base e
quindi si farà:
58-24 = 34,
poi 58-2 = 56,
siccome il 56 supera il limite 45, si farà il completamento a 90,
quindi:
90-56 = 34, il 34 sarà la futura ambata.

io non sono tanto brava , ma questa parte è leggermente diversa ?
prima fa la sottrazione e poi la distanza? mi spieghi?

 

[salvo50]

Ciao Franca, non mi sono spiegato bene, avevi ragione tu, non devono per forza essere isotopi

Per la parte che ti sembra diversa, è diversa, ma è il risultato quello che conta, alla fine delle operazioni i due risultati devono essere uguali, e sono uguali, se io posso arrivare allo stesso risultato con meno operazioni, lo sfrutto.

 

[salvo50]

No non è possibile, rileggendo la mia risposta a Franca, volevo modificare una parte per renderla più comprensibile, non me lo fa fare, ma è una rogna, ma che è successo?

 

[salvo50]

Ciao Franca, non mi sono spiegato bene, avevi ragione tu, non devono per forza essere isotopi

Per la parte che ti sembra diversa, è diversa, ma è il risultato quello che conta, alla fine delle operazioni i due risultati devono essere uguali, e sono uguali, se io posso arrivare allo stesso risultato con meno operazioni, lo sfrutto.

Mi spiego meglio, sperando di non sbagliare, perchè non me lo fa correggere, Manara con quei calcoli menzionati da te, deve trovare la distanza ciclometrica, e se i calcoli devi farli a mano con carta e penna, sei obbligata a procedere come ha fatto l'autore, ma siccome con spaziometria con la funzione DISTANZA, la distanza ciclometrica la trova automaticamente, non c'è bisogno di fare tutti i passaggi

 

[giorgio1960]

una buona serata a tutti
grazie Salvo

 

[franca46]

ciao salvo , ok grazie ancora

 

[franca46]

ciao salvo , forse , l'ho costruito per L8 , lo posto qui sai controllarlo se è giusto?

Sub main()
Dim rt(2),ruot(1),nu(3),nu1(5),pt(1),pos(3)
pt(1)=1
pos(2)=1 :pos(3)=1
clp=12

ini=EstrazioneFin -50
fin=EstrazioneFin
co=0
For es=ini To fin
   Messaggio es
   For r=1 To 10
      rt(1)=r
      For p=1 To 4
         For pp=p+1 To 5
            a=Estratto (es,r,p) : b=Estratto (es,r,pp)
            For rr=r+1 To 11
               If rr=11 Then rr=12
               rt(2)=rr
               For q=1 To 4
                  For qq=q+1 To 5
                     c=Estratto (es,rr,q) : d=Estratto (es,rr,qq)
                     If (a=c And b=d) Or (a=d And b=c) Then
If(Pari(a) And Pari(b) And Pari(c) And Pari(d)) Or(Not Pari(a) And Not Pari(b) And Not Pari(c) And Not Pari(d)) Then

                        co=co+1
Scrivi String (65,"=")&" Caso n° "& co
Scrivi DataEstrazione (es)&"  "& SiglaRuota (r)&"  "& StringaEstratti (es,r)&" Ambo "&a&"-"&b&" in pos. "&p&"^ e "&pp&"^"
Scrivi DataEstrazione (es)&"  "& SiglaRuota (rr)&"  "& StringaEstratti (es,rr)&" Ambo "&a&"-"&b&" in pos. "&q&"^ e "&qq&"^"
If p=q And pp=qq Then ColoreTesto 2 : txx=" Condizione  ISOTOPA " Else ColoreTesto 1 : txx=" Condizione non Isotopa"
'ColoreTesto 2
Scrivi "Gli Ambi sono in  "& txx
ColoreTesto 0

s1=(Fuori90(a+b)) : s2=s1/2 : s3=Diametrale(s2)
s4=Distanza(s3,a) : s5=Distanza(s3,b)

nu(1)=s4
nu(2)=s5
                        
ImpostaGiocata 1,nu,rt,pt,clp,0
nu1(1)=s4
nu1(2)=a
nu1(3)=b
nu1(4)=Fuori90(a+b)
nu1(5)=Abs(a-b)
ImpostaGiocata 2,nu1,rt,pos,clp,0
ruot(1)=11
ImpostaGiocata 3,nu1,ruot,pos,clp,0
                        Gioca es
                     End If
End If
                  Next
               Next
            Next
         Next
      Next
   Next
Next
'ScriviResoconto

End Sub

grazie

 

[salvo50]

Ciao Franca, ho lanciato i due script il tuo ed il mio e i risultati, cioè i numeri da giocare sono uguali, quindi il tuo script va bene, a colpo d'occhio nel tuo script ho notato queste 2 inesattezze

nu(1) e nu(2), ma se i calcoli sono giusti questi 2 valori sono sempre uguali, se non dovessero essere uguali è perche i calcoli sono sbagliati, quindi nu(2) è da eliminare.

l'altra cosa, ma non è importante puoi lasciarla anche come l'hai fatto, però per essere precisi nella riga
If(Pari(a) And Pari(b) And Pari(c) And Pari(d)) ecc...

Se sono pari A e B, di conseguenza sono obbligati ad essere pari anche C e D, perchè sono gli stessi numeri, infatti io in quella riga ho messo pari e dispari solo A e B

 

[franca46]

ciao salvo la parola dispari L8 me sa segna come errore , non so perchè.
comunque l'importante è che funzioni .
nu(2) si adesso lo elimino
Non l'ho fatto di sana pianta , non mi riesce , ho modificato uno che avevo.

grazie sempre