|
|
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!clicca qui
Saluti,sean69!!
|
|