LottoFacile 2 Osvaldo Manara

« Older   Newer »
 
  Share  
.
  1.  
    .
    Avatar

    sean69

    Group
    Administrator
    Posts
    5,897
    Location
    Provincia di Roma..

    Status
    Offline
    Per quanto riguarda i Listati L8+ dei metodi presenti in questa Sezione,preciso che sono stati trovati in rete senza saperne l'Autore( trovati in un unico pacchetto, zippato): se qualcuno riesce ad indentificarsi nell'autore,e' pienamente autorizzato a rivendicarne il proprio operato.Sono pubblicati su questo Forum solo ed esclusivamente per essere messi a disposizione di tutti,ogni consiglio e modifica e' ben accetto,grazie..



    LottoFacile 2 ( Osvaldo Manara )

    Il procedimento si basa sull'uscita di due ambi DIAMETRALI presenti nella stessa estrazione, su due ruote differenti , anche non necessariamente nella stessa posizione . La regola fondamentale per ricavare previsioni più efficaci è che i due ambi siano unici in tutta l'estrazione , altrimenti avremmo un eccesso di frequenza che non ci permetterebbe di vincere.La previsione è più efficace su ruote diametrali ma van bene anche quelle non diametrali.
    Il resto , i calcoli vanno bene , elenco i consigli scritti:
    si consiglia di sospendere il gioco di ambata dopo il primo esito e si consiglia di proseguire il gioco per la sorte di ambo.
    Per rendere la previsione più sicura verificare a ritroso l'eventuale esito anticipato nelle tre estrazioni precedenti e anche nell'estrazione di rilevamento dell'ambata e dell'ambo , se cosi fosse si mettono in gioco solo i 4 ambi secchi.
    Se queste regole vengono rispettate con scrupolo le vincite non mancheranno.



    Condizione:uscita di soli due ambi diametrali ,su qualsiasi ruota e qualsiasi posto.
    Iter:
    fare la somma dei numeri in orizzontale (fuori 90)
    fare la sottrazione dei numeri in verticale.
    sommiamo fra loro le due somme ed avremo il numero base.
    il diametrale del numero base sarà l'ambata.
    per gli ambi faremo cosi':
    1° ambo = ambata con numero base.
    2° ambo = ambata con numero avuto dalle sottrazioni verticali.
    3° ambo = numero base con numero avuto salle sottrazioni verticali.
    4° ambo = ambata con il 5° estratto della ruota di Roma.

    trascrivo l'esempio dell'opuscolo:
    87 + 42 = 129 - 90 = 39
    - -
    85 + 40 = 125 - 90 = 35
    = =
    2 2

    39 + 35 = 74 diametrale 29

    previsione:
    ambata 29
    ambi secchi 29 - 74 , 29 - 02 , 74 - 02 , 29 - 40

    formare due terzine per la sorte del terno:

    29 - 74 - 02 , 29 - 74 - 40

    per 10 colpi.


    Ecco il Listato L8+:

    CODICE
    Sub main()
    Dim numeri1(2),numeri2(2),numeri3(3),numeri4(4)
    Dim ruote(2),ruot(1)
    Dim posta(1),poste(2),post(3),pos(4)
    posta(1)=5:poste(2)=2
    post(2)=2.5:post(3)=0.5
    pos(2)=4.4:pos(3)=0.4:pos(4)=0.2
    ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8080)
    k=InputBox ("Per quanti colpi?","colpi di gioco",14)
    ini=ce
    fin=EstrazioneFin
    Scrivi "Lotto Facile 2 di Osvaldo Manara ",1
    Scrivi String(76,"=")
    Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
    DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"
    For es=ini To EstrazioneFin
    Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione(es,1)
    For r1=1 To 9
    For p1=1 To 4
    For p2=p1+1 To 5
    a=Estratto (es,r1,p1):b=Estratto (es,r1,p2)
    dis1=Distanza(a,b)
    If dis1=45 Then
    For r2=r1+1 To 10 'solo ruote cons / diam / simm (gemm)
    If r2<>r1 And Distanza(r2,r1)=5 Or r2=r1+1 Or r2=11-r1 Then 'solo ruote cons / diam / simm (gemm)
    For p3=1 To 4
    For p4=p3+1 To 5
    c=Estratto(es,r2,p3):d=Estratto(es,r2,p4)
    dis2=Distanza(c,d)
    'If p1=p3 And p2=p4 Then 'isotopi
    If dis2=45 Then
    s1=Fuori90(a+b) 'somma in orr
    s2=Fuori90(c+d) 'somma in orr
    n3=Fuori90(s1+s2)'numero base 2^ bb
    n4=Diametrale(n3)'ambata
    d1=Fuori90(90+(a-c)) 'diff in vert 1^ abb
    d2=Fuori90(90+(b-d)) 'diff in vert 1^ abb
    If d1=d2 Then
    n5=d '3^ abb
    casi=casi+1:Scrivi String(64,"="),1
    Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "&StringaEstratti(es,r1)&_
    " ] [ "&Format2(a)&"."&Format2(b)&" ] in "&(p1)&"^/"&(p2)&"^ pos. dist. "&(dis1)
    Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)&" - "&StringaEstratti(es,r2)&_
    " ] [ "&Format2(c)&"."&Format2(d)&" ] in "&(p3)&"^/"&(p4)&"^ pos. dist. "&(dis2)
    Scrivi String(64,"-")&" caso n° "&(casi)
    Scrivi "somma orr. [ "&Format2(a)&"."&Format2(b)&" ] = "&(s1)
    Scrivi "somma orr. [ "&Format2(c)&"."&Format2(d)&" ] = "&(s2)
    Scrivi "dist. vert. [ "&Format2(a)&"."&Format2(c)&" ] = "&(d1)
    Scrivi "dist. vert. [ "&Format2(b)&"."&Format2(d)&" ] = "&(d2)
    Scrivi "numero base (somme orrizz.) = "&format2(n3)
    Scrivi "diametr. numero base = "&format2(n4)&" ambata"
    Scrivi String(76,"-")
    ruote(1)=r1:ruote(2)=r2:ruot(1)=11:co=0
    numeri1(1)=n4
    co=co+1
    ImpostaGiocata co,numeri1,ruote,posta,k,1
    numeri2(1)=n4:numeri2(2)=d1
    co=co+1
    ImpostaGiocata co,numeri2,ruote,poste,k
    numeri2(1)=n4:numeri2(2)=n3
    co=co+1
    ImpostaGiocata co,numeri2,ruote,poste,k
    numeri2(1)=n4:numeri2(2)=n5
    co=co+1
    ImpostaGiocata co,numeri2,ruote,poste,k
    numeri3(1)=d1
    numeri3(2)=n3:numeri3(3)=n5
    co=co+1
    ImpostaGiocata co,numeri3,ruote,post,k
    numeri4(1)=d1
    numeri4(2)=n4:numeri4(3)=n3:numeri4(4)=n5
    co=co+1
    ImpostaGiocata co,numeri4,ruote,pos,k
    co=co+1
    ImpostaGiocata co,numeri4,ruot,pos,k
    Gioca es
    End If
    End If
    'End If 'isotopi
    Next : Next
    End If
    Next
    End If
    Next : Next : Next : Next
    ScriviResoconto
    End Sub



    Sono graditi i vostri voti per aiutare questo Forum a crescere.Grazie!imageclicca qui


    Saluti,sean69!!


    image
     
    Top
    .
  2.  
    .
    Avatar

    Advanced Member

    Group
    Amministratrice
    Posts
    1,570
    Location
    Emilia Romagna

    Status
    Offline
    MILLE GRAZIE SEAN
     
    Top
    .
  3. Riddler
     
    .

    User deleted


    GRAZIE MILLE!
     
    Top
    .
2 replies since 11/3/2011, 20:02   2201 views
  Share  
.