Dragon 45
Per poter applicare la seguente tecnica occorre rintracciare, nella stessa estrazione, due ambi diametrali, cioe di distanza 45.
Una volta rintracciati tali ambi li disporremo in quadrato e ne calcoleremo la somma comune (A);
di seguito calcoleremo i punti medi del suddetto quadrato (B) e (C).
Ora sommeremo il numero A con B e C,ottenendo cosi due nuovi numeri che chiameremo V e Z.
L’ambata sarà costituita dalla somma di V e Z.
Esempio:
04/08/99
Torino…..54 – 09……dist. 45
Venezia…66 – 21…...dist. 45
organizziamo la classica quadratura :
54 – 09
66 – 21
----------
30 30 …30( A )…con il fuori 90
calcoliamo i punti medi :
66 – 54 =12:2=6
66 – 6=
---------> 60( B )
54 + 6 =
21 – 9 = 12:2=6
21 – 6 =
---------> 15( C )
09 + 6 =
Sommiamo , ora , A con B e C :
A + B= V.....30 + 60=90(V)
A + C= Z.....30 + 15=45(Z)
L’ambata da mettere in gioco sulle due ruote sarà costituita dalla somma di V e Z :
90 + 45 = 135 – 90 = 45 ambata
Per tentare l’ ambo abbineremo all’ambata il proprio diametrale ( che si calcola addizionando
il fisso 45 ) e gli elementi maggiori dei due ambi rintracciati , nel nostro caso 66 e 54.
Pervisione finale
Torino – Venezia
45 ambata
45 – 66
45 – 54
45 – 90
ambi anche a tutte
consiglio giocare anche la terzina 66-54-90 per copertura della previsione ok!
ecco lo script x gio62
Scrivi
Scrivi
Scrivi
ColoreTesto 0
Scrivi String(1," ")&"**Dragon 45**",0
ColoreTesto 0
Sub main()
Dim amb(1),n(3),nn(3)
Dim ambo1(4),ambo2(2),ambo3(2)
Dim lg(4)
Dim ruote(2)
Dim ruota(1)
Dim ruotas (10)
Dim post(1)
Dim posta(2)
Dim poste(4)
post(1)=1
posta(2)=3.50
poste(2)=3.50
poste(3)=1
poste(4)=.50
ca=0
fin=EstrazioneFin
ini=fin-14
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 9 : For p=1 To 4 : For q=p+1 To 5
a=Estratto (es,r,p) : b=Estratto (es,r,q)
d1=Distanza (a,b)
If d1=45 Then
For r1=r+1 To 10 : For p1=1 To 4 : For q1=p1+1 To 5
c=Estratto (es,r1,p1) : d=Estratto (es,r1,q1)
d2=Distanza (c,d)
ax=a :if b>a Then ax=b
cx=c:if d>c Then cx=d
If d2=45 Then
'Quadratura
sv1=Fuori90 (a+c) : sv2=Fuori90 (b+d)
sd1=Fuori90 (a+d) : sd2=Fuori90 (b+c)
If sv1=sv2 And sd1=sd2 Then
If Pari (sv1)=True Then
nr1= Fuori90((sv1+sv1+(sv1\2)+Diametrale(sv1\2))) : amb(1)=nr1 : n1=Diametrale(Fuori90((sv1+sv1+(sv1\2)+Diametrale(sv1\2)))) : n2=Fuori90 (n1+30) : n3=Fuori90 (n2+30):n4=Abs(a-c)
nn1=Diametrale (n1) : nn2=Fuori90 (nn1+30) : nn3=Fuori90 (nn1+60) : ab1=n3 : ab2=nn2 : ab3=n2 : ab4=nn3
End If
If Pari (sv1)=False Then
nr1= Fuori90((sd1+sd1+(sd1\2)+Diametrale(sd1\2))) : amb(1)=nr1 : n1=Diametrale(Fuori90((sd1+sd1+(sd1\2)+Diametrale(sd1\2)))) : n2=Fuori90 (n1+30) : n3=Fuori90 (n1+60):n4=Abs(a-d)
nn1=Diametrale (n1) : nn2=Fuori90 (nn1+30) : nn3=Fuori90 (nn2+30) : ab1=n3 : ab2=nn2 : ab3=n2 : ab4=nn3
End If
n(1)=n1 : n(2)=n2 : n(3)=n3
nn(1)=nn1 : nn(2)=nn3 : nn(3)=nn2
ambo1(1)=n1
ambo1(3)=nr1
lg(1)=nr1 : lg(2)=n1 : lg(3)=ax : lg(4)=cx
ruote(1)=r
ruote(2)=r1
ruotas(10)=11
ca=ca+1
Scrivi
Scrivi
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r),2)&" "& StringaEstratti (es,r)&" [Pos. "&p&" "&q& "] " & Format2(a) &" "& Format2 (b)&_
" Dist.: "& Format2(d1)&" Somma Vert.: "& Format2(sv1)&" * "& StringaNumeri
,1
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r1),2)&" "& StringaEstratti (es,r1)&" [Pos. "&p1&" "&q1& "] "& Format2 (c) &" "& Format2 (d)&_
" Dist.: "& Format2(d2)&" Somma Diag.: "& Format2(sd1)&" * "& StringaNumeri(nn),1
ImpostaGiocata 1,amb,ruote,post,14,1
ImpostaGiocata 2,ambo1,ruote,posta,14,3
ImpostaGiocata 3,lg,ruote,poste,14,3
ImpostaGiocata 4,lg,ruotas,poste,14,3
Gioca es
End If
End If
Next
Next
Next
End If
Next
Next
Next
Next
ColoreTesto 0
Scrivi "================================================================================================"
Scrivi " casi giocabili: "& ca ,1
Scrivi "================================================================================================"
ColoreTesto 0
