'Ramco e Morenish
'CENTRALE (1-Dist)
'Tecnica
'Ricerca di un Ambo unito , isotopo su due ruote che abbia in comune una distanza scelta (Cardine).
'La somma Verticale / Diagonale Uguale (comune), determinerą il k2
'Il suo Diametrale , determinerą il k1
'Le Distanze non Uguali Verticale e/o Diagonale = abb1 e abb2
'I suoi Diametrali saranno abb3 e abb4
'Agosto 2007
Sub main()
Dim ruote(2)
Dim nr(2),nt(6), pt(5),ptm(5),nk(2)
ptm(1)=1 : pt(2)=1
rs=InputBox("Quante estrazioni vuoi controllare?",,350)
dts=CInt (InputBox ("Che Distanza scegliamo ?",,43))
clp=CInt (InputBox ("Per quanti colpi giochiamo ?",,12))
co=0
fin=EstrazioneFin : ini=fin-rs
For es=ini To fin
Messaggio DataEstrazione (es)
For r= 1 To 9
For i= 1 To 4
j=i+1
a=Estratto (es,r,i)
b=Estratto(es,r,j)
c=Distanza (a,b)
If Distanza (a,b)=dts Then
For r2=r+1 To 10
aa=Estratto(es,r2,i)
bb=Estratto(es,r2,j)
cc=Distanza (aa,bb)
If cc=c Then
d1=Distanza (a,bb) : dd1=Distanza (b,aa)
dv=Distanza (a,aa) : dv1=Distanza (b,bb)
sd1=Fuori90 (a+bb) : sd2=Fuori90 (b+aa)
sv1=Fuori90 (a+aa) : sv2=Fuori90 (b+bb)
co=co+1
ColoreTesto 2 : Scrivi "=============================================================================",1
ColoreTesto 1 : Scrivi " Ambo isotopo Unito in Distanza orizzontale - Diagonale e verticale " ,1
ColoreTesto 0 : Scrivi "----------------- SCHEMA ESPOSIZIONE -------------------------------"
Scrivi DataEstrazione(es,1)
Scrivi SiglaRuota(r)&" "&StringaEstratti (es,r)
Scrivi SiglaRuota(r2)&" "&StringaEstratti (es,r2)
Scrivi
Scrivi SiglaRuota(r)&" "&Cint(a)&" e "&Cint(b)&" = Dist. Orizz. "&Cint(c)
Scrivi " | |"
Scrivi SiglaRuota(r2)&" "&Cint(aa)&" e "&Cint(bb)&" = Dist. Orizz. "&Cint(cc)
Scrivi " "&cint(dv)&" Dist. Vert. "
Scrivi " "&cint (dv1)&" Dist. Vert."
Scrivi
Scrivi "Diagonale dx ("&cint (a)&")..("&cint (bb)&") Distanza "& CInt (d1)
Scrivi "Diagonale sx ("&cint (b)&")..("&cint (aa)&") Distanza "& CInt (dd1)
Scrivi
Scrivi "Somme Verticale ("&cint (a)&")..("&cint (aa)&") Somma "& CInt (sv1)
Scrivi "Somme Verticale ("&cint (b)&")..("&cint (bb)&") Somma "& CInt (sv2)
Scrivi
Scrivi "Diagonale dx ("&cint (a)&")..("&cint (bb)&") Somma "& CInt (sd1)
Scrivi "Diagonale sx ("&cint (b)&")..("&cint (aa)&") Somma "& CInt (sd2)
ColoreTesto 2 :Scrivi "-----------------------------------------------------------------------------"
If dv<>dv1 Then nr(1)=dv : nr(2)=dv1
If d1<>dd1 Then nr(1)=d1 : nr(2)=dd1
If sv1=sv2 Then nk(1)=sv1 : nk(2)=Diametrale (nk(1))
If sd1=sd2 Then nk(1)=sd1 : nk(2)=Diametrale (nk(1))
ruote(1)=r : ruote(2)=r2
nt(1)=nr(1)
nt(2)=nr(2)
nt(3)=Diametrale (nr(1))
nt(4)=Diametrale (nr(2))
nt(5)=nk(1)
nt(6)=nk(2)
ImpostaGiocata 1,nk,ruote,ptm,clp,2
ImpostaGiocata 2,nt,ruote,pt,clp,2
Gioca es
End If
Next
End If
Next : Next : Next
Scrivi : Scrivi "Casi Analizzati Trovati "& CInt (co),1
ScriviResoconto 1
ScriviResoconto 2
Scrivi "Tecnica CENTRALE (1-Dist) by Morenish , realizzata da Ramco in
www.Ramcolotto.it ",1
End Sub
