Sub Main()
'Forum Ambolotto X lotoelotto_Il Punto Diametrale di Fabarri by listed_Enplein
Dim n1(2),n2(2),n(3),rt(2),pt(1),ptt(2),pttt(3),amb(1),ab1(2),ab2(2),ab3(2),ab4(2),lg(5)
pt(1) = 1
ptt(2) = 1
pttt(2) = 1.50
pttt(3) = .50
clp = 12
ini = EstrazioneFin - 50
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
For r1 = 1 To 10
For p1 = 1 To 4 : For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1) : b = Estratto(es,r1,p2)
dab = Distanza(a,b):n1(1) = a : n1(2) = b
OrdinaMatrice n1,1
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
For p3 = 1 To 4 : For p4 = p3 + 1 To 5
c = Estratto(es,r2,p3):d = Estratto(es,r2,p4)
dcd = Distanza(c,d):n2(1) = c : n2(2) = d
OrdinaMatrice n2,1
If dab = dcd And(n1(2) = n2(1) Or n1(1) = n2(2)) Then
If n1(2) = n2(1) Then n(1) = n1(1):n(2) = n1(2):n(3) = n2(2)
If n1(1) = n2(2) Then n(1) = n2(1):n(2) = n2(2):n(3) = n1(2)
'Previsione
amb(1) = Diametrale(n(2))
ab1(1) = amb(1):ab1(2) = Fuori90((n(1) + 90) - dab)
ab2(1) = amb(1):ab2(2) = Fuori90(n(3) + dab)
ab3(1) = amb(1):ab3(2) = Diametrale(ab1(2))
ab4(1) = amb(1):ab4(2) = Diametrale(ab2(2))
lg(1) = amb(1):lg(2) = ab1(2):lg(3) = ab2(2):lg(4) = ab3(2):lg(5) = ab4(2)
rt(1) = r1 : rt(2) = r2
co = co + 1
Scrivi String(55,"=") & " Caso n°" & co
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " [" & _
Format2(a) & " " & Format2(b) & "] Dist. " & Format2(dab) & " Pos. " & p1 & "^ " & p2 & "^" & Chr(10) & _
DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " [" & _
Format2(c) & " " & Format2(d) & "] Dist. " & Format2(dcd) & " Pos. " & p3 & "^ " & p4 & "^" & Chr(10) & _
"Triade composta con Elemento Mediano in posizione centrale",1
ColoreTesto 2
Scrivi "TRIADE " & Format2(n(1)) & " (" & Format2(dab) & ") " & Format2(n(2)) & _
" (" & Format2(dab) & ") " & Format2(n(3)),1
ColoreTesto 0
ImpostaGiocata 1,amb,rt,pt,clp,1
ImpostaGiocata 2,ab1,rt,ptt,clp,2
ImpostaGiocata 3,ab2,rt,ptt,clp,2
ImpostaGiocata 4,ab3,rt,ptt,clp,2
ImpostaGiocata 5,ab4,rt,ptt,clp,2
ImpostaGiocata 6,lg,rt,pttt,clp,3
Gioca es
End If
Next : Next
Next
Next : Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi String(27,32) & "Il Punto Diametrale di Fabarri ",1
Scrivi
Scrivi String(38,32) & "Listed by Enplein",1
ColoreTesto 0
End Sub |
|
PUNTO DIAM.
Spedito - 30 giugno 2015 : 13:29:47
