27-50-81-90

« Older   Newer »
 
  Share  
.
  1.     +1   -1
     
    .
    Avatar

    https://dartbosspluto610.forumfree.it/

    Group
    Member
    Posts
    13,751
    Reputation
    0

    Status
    Anonymous
    prima che leggiate questo post, ascoltiamo bella musica....







    la metto anche quì

    dall'estrazione di ieri sera sulla ruota capitolina è sortito il 52. due ambi frequenti che escono dopo il 52 (in tre colpi) sono 81-90 e 50-81. del resto se andiamo a ritroso ( 1500 estr.) il 52 ( sempre nei tre colpi) ha anticipato ben 28 volte l'uscita dell ambata 81 e, come se non bastasse, anticipa anche il 27 proprio con l'81. da una piccola tecnica personale, che metto nello spoiler il listato, sommando al terzo di roma (73) il secondo di torino (17) abbiamo una bella chiusura 90.
    pertanto;

    roma 27-50-81-90 tre colpi. ciauz.

    SPOILER (click to view)
    Sub main()
    Dim nu1(10),nu2(10)
    Dim ruote(10),ruota(10)
    Dim posta(10),poste(5),posto(5)
    poste(1) = 1:poste(2) = 2
    posto(2) = 2 ' < < < < < < < < < < < < < < < < < ambo a tutte
    fin = EstrazioneFin
    ini = fin - 180
    For es = ini To fin
    AvanzamentoElab ini,fin,es
    For r1 = 8 To 8
    For p1 = 3 To 3
    n1 = Estratto(es,8,3)
    For r2 = 9 To 9
    For p3 = 2 To 2
    n3 = Estratto(es,9,2)
    casi = casi + 1:Scrivi String(75," = "),1
    Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
    " Posizione - > " & Format2(p1) & " numero - > " & Format2(n1) & " ."
    Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
    " Posizione - > " & Format2(p3) & "numero - > " & Format2(n3) & "."
    Scrivi String(65," - ") & " caso n° " &(casi)
    ruote(1) = r1
    ruote(2) = r2
    ruota(1) = 11 ' < < < < < < < < < < < < < < tutte le ruote
    k = 5:co = 0
    nu2(1) = Fuori90(n1 + n3)
    nu2(2) = Vert(nu2(1))
    posta(1) = 1 : posta(p1 + 5) = 1 : posta(p3 + 5) = 1
    co = co + 1
    ImpostaGiocata co,nu2,ruote,posta,k
    co = co + 1 'nuova giocata
    ImpostaGiocata co,nu2,ruota,posto,k ' < < < < < < < < < < ruota per tutte

    Erase posta
    Gioca es
    Next
    Next
    Next
    Next
    Next
    ScriviResoconto
    End Sub
     
    Top
    .
0 replies since 25/4/2011, 10:11   40 views
  Share  
.