Richiesta possibile script

[Bubblegum]

Ciao forum , vorrei chiedere ai maestri se possono realizzare uno script che ricerchi in solo due ruote ( se fosse possibile scegliere se unite o meno , diametrali o gemelle ) due ambi isotopi i cui estratti ( se fosse possibile scegliere se uniti o meno) siano costituiti dal più piccolo e dal più grande .
Posizioni estratti uniti : 1-2 ; 2-3 ; 3-4 ; 4-5 ; 5-1
Martedi 20 aprile 2017
BA 80-61-73-67-77 ---- (1°-2°)
FI 16-69-48-38-61---- (1°-2°)
Sono le uniche due ruote in cui le posizioni 1-2 sono occupate dall'estratto più grande e da quello più piccolo (in questo caso uniti)
Ho osservato che tendono a ripetersi in ambo sia nelle stesse ruote che in altre , per il momento basterebbe questo per vedere se si possono trovare altre soluzioni
Comunque due colpi prima era uscito a BA il 61-80 , quindici colpi prima FI 16-80 , teniamo conto che nella stessa estrazione del 20 aprile 2017 era presente a FI anche il 61 che formava l'ambo di BA (80-61)
Esiti :
4° colpo : MI-PA 16-69
5° : GE 16-69
6° : PA 80-61
8° : NA 80-61
10°: BA 16-61
Grazie

 

[Mike58]

Ciao Bubblegum, prova cosi

Sub Main
   Dim nu(5),nn(5),ru(3),aN(2),po(2),ps(2),uN(2),posta(2)
   posta(2) = 1
   '9306
   Ini = EstrazioneFin - 100
   fin = EstrazioneFin
   For es = Ini To fin
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            For p1 = 1 To 5
               For p2 = 1 To 5
                  nu(p1) = Estratto(es,r1,p1)
                  nn(p2) = Estratto(es,r2,p2)
                  aN(1) = MassimoV(nu)
                  aN(2) = MinimoV(nu,1,- 1)
                  po(1) = Posizione(es,r1,aN(1))
                  po(2) = Posizione(es,r1,aN(2))
                  uN(1) = MassimoV(nn)
                  uN(2) = MinimoV(nn,1,- 1)
                  ps(1) = Posizione(es,r2,uN(1))
                  ps(2) = Posizione(es,r2,uN(2))
                  ru(1) = r1
                  ru(2) = r2
                  ru(3) = 11
               Next
            Next
            If r2 = r1 + 1 Or r2 = RuotaDiametrale(r1) Or r2 = RuotaGemella(r1) Then
               If po(2) = po(1) + 1 Or Differenza(po(1),po(2)) = 4 Then
                  If po(1) = ps(1) Or po(1) = ps(2) Then
                     If po(2) = ps(1) Or po(2) = ps(2) Then
                     k = k + 1
                     Call Messaggio("Script MinimoE & MassimoE ******* By Mike58 ******** Trovate  " & k)
                     Call AvanzamentoElab(Ini,fin,es)
                       If r2 = r1+1 Then rigo = "Ruote Unite"
                       If r2 = RuotaDiametrale(r1) Then rigo = "Ruote Diametrali"
                       If r2 = RuotaGemella(r1) Then rigo = "Ruote Gemelle"
                        Scrivi String(150,"=") & " Caso n. " & k
                        Scrivi GetInfoEstrazione(es) & vbTab & StringaEstratti(es,r1) & vbTab  & StringaNumeri(aN,,1) & vbTab & SiglaRuota(r1) & vbTab & StringaNumeri(po)
                        Scrivi GetInfoEstrazione(es) & vbTab & StringaEstratti(es,r2) & vbTab  & StringaNumeri(uN,,1) & vbTab & SiglaRuota(r2) & vbTab & StringaNumeri(ps)
                        Scrivi String(130,"-") & " " & rigo
                        ImpostaGiocata 1,aN,ru,posta,25
                        ImpostaGiocata 2,uN,ru,posta,25
                        Gioca es,1
                     End If
                  End If
               End If
            End If
            
         Next
      Next
     If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
End Sub

 

[Bubblegum]

Ciao Mike58 ,
Sei stato molto gentile , è perfetto !
Grazie mille e buona serata .