AMBI VERTIBILI

Rispondi
Avatar utente
Tatoo64
Site Admin
Messaggi: 3898
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

AMBI VERTIBILI

Messaggio da Tatoo64 » 30/04/2016, 22:40

Ciao Djnomade, ci fai uno scriptino che cerchi gli ambi vertibili, tipo :

28-73
82-37
logicamente anche in ordine diverso tipo :

28-73
37-82

grazieeeeeeeee :evai:
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
DjNomade
Messaggi: 602
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

Re: AMBI VERTIBILI

Messaggio da DjNomade » 01/05/2016, 0:22

Controlla questo
Ciauz

Codice: Seleziona tutto

Sub Main()
   Scrivi "Ricerca AMBI VERTIBILI",1
   Scrivi
   Dim ruote(10),ambata(1),ambo1(2),ambo2(2),ambo3(2),quartina(4),ruota(10),h,y,posta(1),poste(2),postee(4)
   posta(1) = 1 : poste(2) = 1: postee(2) = 1 : postee(3) = 1 : postee(4) = 0.50
   EstrazioniLotto = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","",10)
  
   ini = EstrazioneFin - EstrazioniLotto
   fin = EstrazioneFin
   ini = fin - estrazionilotto
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      For r1 = 1 To 10
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               n1 = Estratto(es,r1,p1)
               n2 = Estratto(es,r1,p2)
               For r2 = r1 + 1 To 12
                  If r2 = 11  Then r2 = 12
                 
                  For p3 = 1 To 4
                     For p4 = p3 + 1 To 5
                        n3 = Estratto(es,r2,p3)
                        n4 = Estratto(es,r2,p4)

                        If (n1 = Vert(n3) And n2 = Vert(n4))Or (n1 = Vert(n4) And n2 = Vert(n3)) Then
                           casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
                           Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                           " > ambo < " & Format2(n1) & "." & Format2(n2) 
                           Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
                           " > ambo < " & Format2(n3) & "." & Format2(n4) 

                                                   End If
                        
                        Next
                       
                     Next
'                     End If
                     Next   
                     Next    
                     Next   
                     Next 
                     If ScriptInterrotto Then Exit For
                     Next     
                   
                     End Sub

Avatar utente
Tatoo64
Site Admin
Messaggi: 3898
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: AMBI VERTIBILI

Messaggio da Tatoo64 » 03/05/2016, 14:08

Grazie Djnomade, lo puoi modificare in modo che cerchi solo gli ambi diametrali-vertibili

:su:
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
DjNomade
Messaggi: 602
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

Re: AMBI VERTIBILI

Messaggio da DjNomade » 03/05/2016, 19:30

Ma sono cosi rari? 2 casi in 230 estrazioni

Codice: Seleziona tutto

Ricerca AMBI DIAMETRALI-VERTIBILI

=========================================================================== caso n° 1
sab 29.11.2014 < Mi 74.29.78.07.40 > ambo < 74.29
sab 29.11.2014 < Ro 87.24.47.22.07 > ambo < 47.22
=========================================================================== caso n° 2
sab 09.04.2016 < Ro 04.28.73.47.48 > ambo < 28.73
sab 09.04.2016 < Nz 09.37.82.32.39 > ambo < 37.82

Codice: Seleziona tutto



    Sub Main()
       Scrivi "Ricerca AMBI DIAMETRALI-VERTIBILI",1
       Scrivi
       Dim ruote(10),ambata(1),ambo1(2),ambo2(2),ambo3(2),quartina(4),ruota(10),h,y,posta(1),poste(2),postee(4)
       posta(1) = 1 : poste(2) = 1: postee(2) = 1 : postee(3) = 1 : postee(4) = 0.50
       EstrazioniLotto = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","",230)
     
       ini = EstrazioneFin - EstrazioniLotto
       fin = EstrazioneFin
       ini = fin - estrazionilotto
       For es = ini To fin
          AvanzamentoElab ini,fin,es
          For r1 = 1 To 10
             For p1 = 1 To 4
                For p2 = p1 + 1 To 5
                   n1 = Estratto(es,r1,p1)
                   n2 = Estratto(es,r1,p2)
                   For r2 = r1 + 1 To 12
                      If r2 = 11  Then r2 = 12
                     
                      For p3 = 1 To 4
                         For p4 = p3 + 1 To 5
                            n3 = Estratto(es,r2,p3)
                            n4 = Estratto(es,r2,p4)

                            If n1=Diametrale(n2)And((n1 = Vert(n3) And n2 = Vert(n4))Or (n1 = Vert(n4) And n2 = Vert(n3))) Then
                               casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
                               Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                               " > ambo < " & Format2(n1) & "." & Format2(n2)
                               Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
                               " > ambo < " & Format2(n3) & "." & Format2(n4)

                                                       End If
                           
                            Next
                           
                         Next
    '                     End If
                         Next   
                         Next   
                         Next   
                         Next
                         If ScriptInterrotto Then Exit For
                         Next     
                       
                         End Sub

Avatar utente
Tatoo64
Site Admin
Messaggi: 3898
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: AMBI VERTIBILI

Messaggio da Tatoo64 » 03/05/2016, 20:44

si rarissimi ma se è come dico io gli ultimi due anni dato 2 ambi a ruota e 3 a tutte vediamo coma va la cosa
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
Tatoo64
Site Admin
Messaggi: 3898
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: AMBI VERTIBILI

Messaggio da Tatoo64 » 07/05/2016, 15:07

Purtroppo essendo cosi rari questi ambi non riesco a fare uno studio, oltretutto l'altro ambo ha un vertibile gemello e quindi non rientra tra le possibili elaborazioni.......... chissà quando uscirà un altro ambo idoneo........

grazie Djnomade
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite