Novità

Per Salvo50

G

giorgio1960

Super Member >GOLD<
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
 
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.

Codice: 
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
 
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

Codice: 
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
 
ciao salvo hai ragione , avevo letto male il metodo. adesso provo i listato
speravo lo facessi per L8 ,mi adatterò.

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

grazie
Clicca per espandere...
Codice: 
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?
 
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.
 
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 ha scritto:
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.
Clicca per espandere...
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
 
ciao salvo , forse , l'ho costruito per L8 , lo posto qui sai controllarlo se è giusto?
Codice: 
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
 
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
 
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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto