Ambo in cadenza 3 sulla NZ sortito in 1° e 2° posizione

[Marco-elle]

Per gli amanti della Matematica sommativa,vi inserisco un metodo che calcola 1 cinquina da giocare su BA-CA
La condizione si verifi con l'uscita di un ambo in cadenza 3 sulla NZ nelle prime 2 posizioni.

Calcolo della cinquina:
1° di BA + 4° di PA + 1
2° di RO - 1° di NZ + 45
4° di BA + 4° di NZ + 16
1° di BA + 5° di CA +1
5° di RO + 1° di TO + 24

PS: c'è una previsione in corso che converge con una mia previsione
postata nella sezione "previsioni"

BA-CA 41-58-85-20-35
per le sorti di ambo,terno,quaterna,cinquina

[/SIZE][/FONT]Sub Main()
   ColoreTesto 2
   Scrivi "AMBI IN CADENZA 3 SORTITI SU NZ IN 1°/2° POSIZIONE "
   Scrivi "GIOCA 1 CINQUINA SU BA-CA "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(4)
   Dim ruota(2)
   Dim ambo(5)
   poste(2) = 1
   poste(3) = 1
   poste(4) = 1
   clp = 12
   ini = EstrazioneFin - 850
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      'For r1 = 1 To 11
      For p1 = 1 To 1
         For p2 = 2 To 2
            a = Estratto(es,12,p1)
            b = Estratto(es,12,p2)
            ok = 0
            If Cadenza(a) = 3 And Cadenza(b) = 3 Then
               ambo(1) = Fuori90(Estratto(es,1,1) + Estratto(es,7,4) + 1)
               ambo(2) = Fuori90(Estratto(es,8,2) - Estratto(es,12,1) + 45)
               ambo(3) = Fuori90(Estratto(es,1,4) + Estratto(es,12,4) + 16)
               ambo(4) = Fuori90(Estratto(es,1,1) + Estratto(es,2,5) + 1)
               ambo(5) = Fuori90(Estratto(es,8,5) + Estratto(es,9,1) + 24)
               ok = 1
            End If
            If ok = 1 Then
               co = co + 1
               ColoreTesto 1
               Scrivi String(80,"°") & " Caso n°" & co,1
               Scrivi DataEstrazione(es) & "   ambo in cadenza 3 sortito su NZ    " & a & " - " & b,1
               Scrivi String(80,"°"),1
               ColoreTesto 0
               ruota(1) = 1
               ruota(2) = 2
               ImpostaGiocata 1,ambo,ruota,poste,clp
               Gioca es,1
            End If
         Next
      Next
   Next
   ' Next
   ScriviResoconto
End Sub

[FONT=times new roman][SIZE=20px]

 

[Marco-elle]

inserisco il resoconto del metodo....

 

[Alien.]

è guardando la statistica ed il risultato dello script mi viene l'acquolina in bocca.... sperando che lottomatica non ci metta lo zampino..