Comunque questo e' il metodo originale con il listato che rispecchia fedelmente le istruzioni di gioco,listato dal grandissimo Franco Florindi alias ENPLEIN,che saluto con immensa e immutabile stima.Franco lo reputo uno fra i piu' grandi scripter e conoscitori del mondo del lotto.Un abbraccio fraterno se leggerà questo post.
"in onore al Grande Maestro Ettore Tenuta, da conservare ..perchè questo fà parte del vero gioco del lotto.
Ricercare su due ruote nella stessa estrazione e in forma isotopa due numeri di cui uno sia il vertibile dell'altro.
Caratteristica principale è che l'ambo vertibile deve essere formato da un elemento pari e da uno dispari.
Sono esclusi gli ambi vertibili diametrali.
Ora attenzione eseguiamo lo sviluppo della previsione.
3 Marzo 2001
Napoli 76 ( 3° estratto pari )
Torino 67 ( 3° estratto dispari )
La prima operazione è quella di calcolare i diametrali dei due elementi per cui:
76+45= 31 (dispari )
67-45= 22 (pari)
sommiamo adesso gli elementi dispari: 31+67=98
sommiamo ora gli elementi pari: 76+22=98
dividiamo le somme per 2
98:2=49 uguale l'altro 98:2=49
ai risultati delle divisioni faremo il complementare a 90
90-49 =41 idem per l'altro 90-49= 41
ai risultanti delle sottrazioni ricaviamo le rispettive chiusure simmetriche a passo 30 per cui:
la chiusura simmetrica di 49 sarà 79 - 19
la chiusura simmetrica di 41 sarà 71 - 11
queste chiusure simmetriche le adopereremo per abbinarle all'ambata capogioco
Iter per il ricavo dell'ambata:
riprendiamo in considerazione i nostri due elementi vertibili andando a moltiplicarli tra loro per cui:
67*76=5092
tale prodotto lo andiamo a scomporre partendo da destra verso sinistra considerando due cifre alla volta per cui:
primo numero 92 che diventa col fuori90 2
secondo numero 50
Sommiamo gli elementi della scomposizione : 2+50 =52
poi tale somma la andiamo a complementare a 91 per cui:
91-52=39 che sarà la nostra ambata.
gli abbinamenti per ambo saranno i quattro elementi ricavati( chiusure simmetriche).
Le previsioni vanno giocate da 1 a 9 colpi facendo attenzione che l'ambata non sia presente nella data di estrazione e nelle 9 precedenti."
Sub main()
Dim ruote(2)
Dim amb(1),ab(4), num(2)
Dim posta(1),poste(2)
posta(1)=1

oste(2)=1
t=0
rs=InputBox("Quante estrazioni vuoi controllare?",,100)
cl=InputBox("Quanti colpi vuoi controllare?",,12)
ini= EstrazioneFin -rs
fin=EstrazioneFin
Scrivi
Scrivi String(40," ")&"****** RENDICONTO ****** ",1
Scrivi
Scrivi String(40," ")& DataEstrazione(ini)&" : "& DataEstrazione(fin)
ColoreTesto 1
Scrivi String(70,"=")&"listato by Enplein",1
ColoreTesto 0
For es = ini To fin
For r1=1 To 10
For p1=1 To 5
a1=Estratto(es,r1,p1)
For r2=r1+1 To 11
If r2=11 Then r2=12
a2=Estratto (es,r2,p1) : sa = Fuori90 (a1+a2)
If a1=Vert (a2)And Pari (sa)=False And a1<>Diametrale (a2) Then
x1=(sa+45)/2:x2=(90-x1)
ab(1)=Fuori90 (x1+30):ab(2)=Fuori90 (x1+60)
ab(3)=Fuori90 (x2+30):ab(4)=Fuori90 (x2+60)
aa=(a1*a2):ax1=Right (aa,2): ax2=Int ((aa-ax1)/100)
x3=Fuori90 (ax1+ax2)
amb(1)=91-x3
ruote(1)=r1:ruote(2)=r2
If SerieFreq (es-8,es,amb,ruote,1)=0 Then
t=t+1
Scrivi
Scrivi "-------------------------------------------------------------------------------------"
Scrivi " "& DataEstrazione(es)& " ["& StringaEstratti (es,r1)&"] "& SiglaRuota (r1)& " "& Format2(a1)&" Pos. "&p1&"^",1
Scrivi " "& DataEstrazione(es)& " ["& StringaEstratti (es,r2)&"] "& SiglaRuota (r2)& " "& Format2(a2)&" Pos. "&p1&"^"&_
" Prod. "& Format2 (aa)&" Scomp. "&ax2&" / "&ax1&" Som. "& Format2 (x3),1
Scrivi "------------------------------------------------------------------------------------"&"Giocata n° "& Format2(t)
ImpostaGiocata 1,amb,ruote,posta,cl,1
co=1
num(1)=amb(1)
For i=1 To 4
co=co+1
num(2)=ab(i)
ImpostaGiocata co,num,ruote,poste,cl,2
Next
Gioca es
End If
End If
Next
Next
Next
Next
ScriviResoconto 1
ScriviResoconto
ColoreTesto 1
Scrivi String(70,"=")&"listato da Enplein",1
ColoreTesto 0
End Sub
Da AMBOLOTTO.