Ambo diametrale in diagonale.

Juri · 19 Agosto 2018

Ciao a tutti.

Qui c'è l'allegato e se non si puo' mettere vi spiego le info a mano.Questo in 3 estrazioni di distanza diventa complicati cercarli a mano.
Dalle prove effettuate l'ambata è molto forte se non ritarda.

Grazie mille.

Buona domenica.

salvo50 · 21 Agosto 2018

Juri;n2127436 ha scritto:
Ciao a tutti.

Qui c'è l'allegato e se non si puo' mettere vi spiego le info a mano.Questo in 3 estrazioni di distanza diventa complicati cercarli a mano.
Dalle prove effettuate l'ambata è molto forte se non ritarda.

Grazie mille.

Buona domenica.

Ciao a Tutti.

Non si riesce a leggere bene, ho cercato nel web e ambi diametrali in diagonali ce ne sono parecchie, tutti con calcoli diversi, quindi prova a spiegarlo.

joe · 21 Agosto 2018

Buon Giorno a tutte/i.

Con un saluto a Gaetano, dovesse leggerci ...

... e con le scuse a Salvo per aver manomesso il suo lavoro

non avendo voglia di scrivere tutto ex-novo,

ho apportato semplici modifiche, allo script che ha recentemente pubblicato,

per ritrovare in archivio ed elencare il caso in oggetto.

Codice:

 Option Explicit
Sub Main()
   Dim Quante,Dist,Rit,Ini,Fin,Es,Ex,R1,R2,P1,P2,A,B,C,D,SR,Cont
   Dim n1(2),n2(2),ruote(3),ruota(4),posta(1),poste(2),post(3),ru(1)
   posta(1) = 1 : poste(2) = 1 : post(2) = 1 : post(3) = 1
   Quante = CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","•damper•",0))
   'If Quante = False Then Exit Sub
   'Dist = CInt(InputBox("Quale Distanza",,45))
   Rit = InputBox("Quale Ritardo ruota2 ricercare",,10)
   Scrivi "Ambo stessa Posizione 2 Ruote e con Distanza Diagonale = 45" & Dist,1,,,,3,,1
   Scrivi  
   'Fin = EstrazioneFin
   Fin = 9394
   Ini = Fin - Quante
   For Es = Ini To Fin
      Messaggio "[" & Es & "]ª"
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For Ex = Es - Rit To Es 
                  For R2 = R1 +1  To 12
                     If R2 = 11 Then R2 = 12
                     C = Estratto(Ex,R2,P1)
                     D = Estratto(Ex,R2,P2)
                     If (A = Diametrale (D)) And (B = Diametrale (C))  Then
                        n1(1) = A
                        n1(2) = B
                        n2(1) = C
                        n2(2) = D
                        ru(1) = R2
                        SR = SerieRitardo(Ini,Es,n2,ru,2)
                        If SR < Rit Then
                           Cont = Cont + 1 : Scrivi
                           ColoreTesto 2 : Scrivi String(41,32) & " Caso n° " & Cont,1 : ColoreTesto 0 : Scrivi
                           Scrivi GetInfoEstrazione(Es) & vbTab & SiglaRuota(R1) & vbTab & StringaEstratti(Es,R1),1,0
                           Scrivi Space(10) & StringaNumeri(n1,,1) & vbTab & "(" & P1 & "-" & P2 & ")",1
                           Scrivi 'Space(74) & " " & "       Distanze   " & Dist
                           Scrivi GetInfoEstrazione(Ex) & vbTab & SiglaRuota(R2) & vbTab & StringaEstratti(Ex,R2),1,0
                           Scrivi Space(10) & StringaNumeri(n2,,1) & vbTab & "(" & P1 & "-" & P2 & ")" & vbTab & SR,1
                           'Gioca es
                           Scrivi String(90,"=")
                        End If
                     End If :
                  Next :
               Next :
            Next
         Next
      Next
   Next
   'ScriviResoconto
   ColoreTesto 2
End Sub

salvo50 · 21 Agosto 2018

Ciao Joe, un tuo intervento è sempre ben accetto, anzi a volte ci spero che tu intervenga, al riguardo di manomettere, lo script in questione non è mio, credo che l'autore sia Damper, anche se l'aveva postato Mike, voglio dire che prima di te l'avevo già manomesso io, riguardo al metodo Diametrale in Diagonale, penso che la ricerca non si fermi così, sto cercando di capire cosa c'è scritto negli allegati postati da Juri e mi sembra di capire che dopo bisogna fare delle addizioni.

Juri · 21 Agosto 2018

Ci sono 2 foto.Non si vedono bene?Comunque 86+34= 30 poi 79-86 =75.Si ricerca indietro di max 4-5 estrazioni oppure avanti uno dei 2.Quando si trova si gioca l'altro numero non uscito per ambata.Uscito il 30 sulla nazionale.Si gioca il 75 con 41.
Al 3° c 75-41 naz.
Poi l'ultimo n° dei 4 usciti per ultimo si abbina per ambo e ambetto sulle 2 ruote.
Mi sono spiegato bene?

grazie.

salvo50 · 21 Agosto 2018

Nella rivista leggo che la distanza 45 deve essere in verticale o diagonale, però dato che l'hai chiamato - Ambo Diametrale in Diagonale - ho presupposto che la distanza 45 deve essere solo in diagonale, la ricerca dei 2 numeri l'ho fatto solo a ritroso.
Ho dimenticato l'ambetto, non so se c'è qualche funzione che lo cerca in automatico, altrimenti devo inserire la ricerca di altri 4 ambi.

Codice:

 'Metodo proposto da Juri da rivista
'Nella stessa estrazione si selezionano in due distinte ruote in forma unita
'o isotopa 2 coppie di ambi, nei quali vige la distanza 45 in diagonale, poi
'1) sommare i due estratti del primo ambo
'2) sommare i due estratti del secondo ambo
'3) sommare i primi 2 estratti
'4) sommare i secondi 2 estratti
'5) le prime 2 somme devono avere lo stesso valore
'6) le seconde 2 somme devono avere lo stesso valore ed essere diverso dal valore delle prime 2 somme
'7) cercare a ritroso per 5 estrazioni i due numeri ottenuti
'8) bloccare quando si trova un numero e l'ambata da giocare è il numero non trovato
'9) l'ambo è il numero non trovato, ed il secondo numero della seconda ruota
'
'script by Salvo50
Option Explicit
Sub Main()
   Dim Ini,Fin,Es,R1,R2,R3,E1,E2,E3,S1,S2,S3,S4,Ess
   Dim P1,P2,P3,P4,P5,P6,A,B,C,D,H,Caso,Casi,Clp
   Dim Num1(1),Num2(2),Ruote(3),Posta(1),Poste(2)
   Posta(1) = 1
   Poste(2) = 1
   Clp = CInt(InputBox("Quanti Colpi Vuoi Giocare?",,10))
   Ini = 9394 ' 9394 esempio nella rivista
   Fin = EstrazioneFin
   Call ScegliRange(Ini,Fin,Ini,EstrazioneFin)
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  If A = Diametrale(D) And B = Diametrale(C) Then
                     S1 = Fuori90(A + B) : S2 = Fuori90(C + D) : S3 = Fuori90(A + C) : S4 = Fuori90(B + D)
                     If S1 = S2 And S3 = S4 And S1 = Diametrale(S3) Then
                        For Ess =(Es - 1) To(Es - 5) Step - 1
                           For R3 = 1 To 12
                              If R3 = 11 Then R3 = 12
                              For P3 = 1 To 5
                                 H = Estratto(Ess,R3,P3)
                                 If H = S1 Xor H = S3 Then
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    ColoreTesto 1
                                    Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                    ColoreTesto 2
                                    Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                    ColoreTesto 0
                                    Scrivi
                                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                    For P4 = 1 To 5
                                       E1 = Estratto(Es,R1,P4)
                                       If E1 = A Or E1 = B Then
                                          Call ColoreTesto(2)
                                       Else
                                          Call ColoreTesto(0)
                                       End If
                                       Call Scrivi(Format2(E1) & " ",1,0)
                                       Call ColoreTesto(0)
                                    Next
                                    Scrivi
                                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                    For P5 = 1 To 5
                                       E2 = Estratto(Es,R2,P5)
                                       If E2 = C Or E2 = D Then
                                          Call ColoreTesto(2)
                                       Else
                                          Call ColoreTesto(0)
                                       End If
                                       Call Scrivi(Format2(E2) & " ",1,0)
                                       Call ColoreTesto(0)
                                    Next
                                    Scrivi
                                    Scrivi
                                    Scrivi Space(30) & Format2(S1) & " = " & Format2(A) & " + " & Format2(B),1
                                    Scrivi Space(30) & Format2(S2) & " = " & Format2(C) & " + " & Format2(D),1
                                    Scrivi Space(30) & Format2(S3) & " = " & Format2(A) & " + " & Format2(C),1
                                    Scrivi Space(30) & Format2(S4) & " = " & Format2(B) & " + " & Format2(D),1
                                    Scrivi
                                    Scrivi "  Numeri da cercare a ritroso ",1,0
                                    ColoreTesto 2
                                    Scrivi Format2(S1),1,0 : ColoreTesto 0
                                    Scrivi " oppure ",1,0
                                    ColoreTesto 2
                                    Scrivi Format2(S3),1 : ColoreTesto 0
                                    Scrivi
                                    Scrivi(" Estrazione n." & Format2(Ess) & " del " & DataEstrazione(Ess)),1,0
                                    Scrivi "  " & SiglaRuota(R3) & " ",1,0
                                    For P6 = 1 To 5
                                       E3 = Estratto(Ess,R3,P6)
                                       If E3 = H Then
                                          Call ColoreTesto(2)
                                       Else
                                          Call ColoreTesto(0)
                                       End If
                                       Call Scrivi(Format2(E3) & " ",1,0)
                                       Call ColoreTesto(0)
                                    Next
                                    Scrivi
                                    Scrivi
                                    If H = S1 Then
                                       Scrivi " Pronostico Ambata " & Format2(S3) & " Ambo = " & Format2(S3) & " " & Format2(D),1
                                       Scrivi
                                       Ruote(1) = R1
                                       Ruote(2) = R2
                                       Num1(1) = S3
                                       Num2(1) = S3
                                       Num2(2) = D
                                       ImpostaGiocata 1,Num1,Ruote,Posta,Clp
                                       ImpostaGiocata 2,Num2,Ruote,Poste,Clp
                                       Gioca Es
                                    End If
                                    If H = S3 Then
                                       Scrivi " Pronostico Ambata " & Format2(S1) & " Ambo = " & Format2(S1) & " " & Format2(D),1
                                       Scrivi
                                       Ruote(1) = R1
                                       Ruote(2) = R2
                                       Num1(1) = S1
                                       Num2(1) = S1
                                       Num2(2) = D
                                       ImpostaGiocata 1,Num1,Ruote,Posta,Clp
                                       ImpostaGiocata 2,Num2,Ruote,Poste,Clp
                                       Gioca Es
                                    End If
                                 End If
                              Next
                           Next
                        Next
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Juri · 21 Agosto 2018

Si può fare la ricerca anche in avanti?
Vedi bene questi 2 allegati?Strano che a me le veda bene.

Grazie mille.

salvo50 · 22 Agosto 2018

Juri;n2127697 ha scritto:
Si può fare la ricerca anche in avanti?

Non sò come fare per cercare nei due sensi nello stesso script, ma comunque l'ho ritenuto inutile, perchè ho notato che lo script nelle 5 estrazioni indietro ne trova più di uno numeri con le caratteristiche del sistema, nell'articolo c'è scritto di cercare in avanti solo se non ci sono riscontri all'indietro.

In questo script, a scelta ho inserito l'ambetto

Codice:

 'Metodo proposto da Juri da rivista
'Nella stessa estrazione si selezionano in due distinte ruote in forma unita
'o isotopa 2 coppie di ambi, nei quali vige la distanza 45 in diagonale, poi
'1) sommare i due estratti del primo ambo
'2) sommare i due estratti del secondo ambo
'3) sommare i primi 2 estratti
'4) sommare i secondi 2 estratti
'5) le prime 2 somme devono avere lo stesso valore
'6) le seconde 2 somme devono avere lo stesso valore ed essere diverso dal valore delle prime 2 somme
'7) cercare a ritroso per 5 estrazioni i due numeri ottenuti
'8) bloccare quando si trova un numero e l'ambata da giocare è il numero non trovato
'9) l'ambo è il numero non trovato, ed il secondo numero della seconda ruota
'10) a scelta si può inserire la ricerca dell'ambetto
'script by Salvo50
Option Explicit
Sub Main()
   Dim Ini,Fin,Es,R1,R2,R3,E1,E2,E3,S1,S2,S3,S4,Ess
   Dim P1,P2,P3,P4,P5,P6,A,B,C,D,H,Caso,Casi,Clp
   Dim Num1(1),Num2(2),Num3(2),Num4(2),Num5(2),Num6(2)
   Dim Ruote(3),Posta(1),Poste(2),Ambetto
   Posta(1) = 1
   Poste(2) = 1
   Clp = CInt(InputBox("Quanti Colpi Vuoi Giocare?",,10))
   Ambetto = CInt(InputBox("Vuoi Giocare l'ambetto? SI = 1 - NO = 0",,0))
   Ini = 9374 ' 9394 esempio nella rivista
   Fin = EstrazioneFin
   Call ScegliRange(Ini,Fin,Ini,EstrazioneFin)
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  If A = Diametrale(D) And B = Diametrale(C) Then
                     S1 = Fuori90(A + B) : S2 = Fuori90(C + D) : S3 = Fuori90(A + C) : S4 = Fuori90(B + D)
                     If S1 = S2 And S3 = S4 And S1 = Diametrale(S3) Then
                        For Ess =(Es - 1) To(Es - 5) Step - 1
                           For R3 = 1 To 12
                              If R3 = 11 Then R3 = 12
                              For P3 = 1 To 5
                                 H = Estratto(Ess,R3,P3)
                                 If H = S1 Xor H = S3 Then
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    ColoreTesto 1
                                    Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                    ColoreTesto 2
                                    Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                    ColoreTesto 0
                                    Scrivi
                                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                    For P4 = 1 To 5
                                       E1 = Estratto(Es,R1,P4)
                                       If E1 = A Or E1 = B Then
                                          Call ColoreTesto(2)
                                       Else
                                          Call ColoreTesto(0)
                                       End If
                                       Call Scrivi(Format2(E1) & " ",1,0)
                                       Call ColoreTesto(0)
                                    Next
                                    Scrivi
                                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                    For P5 = 1 To 5
                                       E2 = Estratto(Es,R2,P5)
                                       If E2 = C Or E2 = D Then
                                          Call ColoreTesto(2)
                                       Else
                                          Call ColoreTesto(0)
                                       End If
                                       Call Scrivi(Format2(E2) & " ",1,0)
                                       Call ColoreTesto(0)
                                    Next
                                    Scrivi
                                    Scrivi
                                    Scrivi Space(30) & Format2(S1) & " = " & Format2(A) & " + " & Format2(B),1
                                    Scrivi Space(30) & Format2(S2) & " = " & Format2(C) & " + " & Format2(D),1
                                    Scrivi Space(30) & Format2(S3) & " = " & Format2(A) & " + " & Format2(C),1
                                    Scrivi Space(30) & Format2(S4) & " = " & Format2(B) & " + " & Format2(D),1
                                    Scrivi
                                    Scrivi "  Numeri da cercare a ritroso ",1,0
                                    ColoreTesto 2
                                    Scrivi Format2(S1),1,0 : ColoreTesto 0
                                    Scrivi " oppure ",1,0
                                    ColoreTesto 2
                                    Scrivi Format2(S3),1 : ColoreTesto 0
                                    Scrivi
                                    Scrivi(" Estrazione n." & Format2(Ess) & " del " & DataEstrazione(Ess)),1,0
                                    Scrivi "  " & SiglaRuota(R3) & " ",1,0
                                    For P6 = 1 To 5
                                       E3 = Estratto(Ess,R3,P6)
                                       If E3 = H Then
                                          Call ColoreTesto(2)
                                       Else
                                          Call ColoreTesto(0)
                                       End If
                                       Call Scrivi(Format2(E3) & " ",1,0)
                                       Call ColoreTesto(0)
                                    Next
                                    Scrivi
                                    Scrivi
                                    If H = S1 Then
                                       Scrivi " Pronostico Ambata " & Format2(S3) & " Ambo = " & Format2(S3) & " " & Format2(D),1
                                       Scrivi
                                       Ruote(1) = R1
                                       Ruote(2) = R2
                                       Num1(1) = S3
                                       Num2(1) = S3
                                       Num2(2) = D
                                       ImpostaGiocata 1,Num1,Ruote,Posta,Clp,1
                                       ImpostaGiocata 2,Num2,Ruote,Poste,Clp,2
                                       If Ambetto = 1 Then
                                          Num3(1) = S3 : Num3(2) = Fuori90(90 +(D - 1))
                                          Num4(1) = S3 : Num4(2) = Fuori90((D + 1))
                                          Num5(1) = Fuori90(90 +(S3 - 1)) : Num5(2) = D
                                          Num6(1) = Fuori90(S3 + 1) : Num6(2) = D
                                          ImpostaGiocata 3,Num3,Ruote,Poste,Clp
                                          ImpostaGiocata 4,Num4,Ruote,Poste,Clp
                                          ImpostaGiocata 5,Num5,Ruote,Poste,Clp
                                          ImpostaGiocata 6,Num6,Ruote,Poste,Clp
                                       End If
                                       Gioca Es
                                    End If
                                    If H = S3 Then
                                       Scrivi " Pronostico Ambata " & Format2(S1) & " Ambo = " & Format2(S1) & " " & Format2(D),1
                                       Scrivi
                                       Ruote(1) = R1
                                       Ruote(2) = R2
                                       Num1(1) = S1
                                       Num2(1) = S1
                                       Num2(2) = D
                                       ImpostaGiocata 1,Num1,Ruote,Posta,Clp,1
                                       ImpostaGiocata 2,Num2,Ruote,Poste,Clp,2
                                       If Ambetto = 1 Then
                                          Num3(1) = S1 : Num3(2) = Fuori90(90 +(D - 1))
                                          Num4(1) = S1 : Num4(2) = Fuori90((D + 1))
                                          Num5(1) = Fuori90(90 +(S1 - 1)) : Num5(2) = D
                                          Num6(1) = Fuori90(S1 + 1) : Num6(2) = D
                                          ImpostaGiocata 3,Num3,Ruote,Poste,Clp
                                          ImpostaGiocata 4,Num4,Ruote,Poste,Clp
                                          ImpostaGiocata 5,Num5,Ruote,Poste,Clp
                                          ImpostaGiocata 6,Num6,Ruote,Poste,Clp
                                       End If
                                       Gioca Es
                                    End If
                                 End If
                              Next
                           Next
                        Next
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Juri · 22 Agosto 2018

Grazie Salvo.

Cerca

Cerca

Ambo diametrale in diagonale.

Juri

Super Member >GOLD<

Allegati

salvo50

Advanced Member >PLATINUM PLUS<

joe

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

Juri

Super Member >GOLD<

salvo50

Advanced Member >PLATINUM PLUS<

Juri

Super Member >GOLD<

Allegati

salvo50

Advanced Member >PLATINUM PLUS<

Juri

Super Member >GOLD<

Ultima estrazione Lotto

Ultimi Messaggi