| Caretteristiche tecniche : piattaforma l8+ settare timeout alto si risale ai casi in esempio dell'autore
Cartteristiche metodo : Casi rari, molto affidabile ,alta resa
Sub main()
Dim ru(2)
Dim ru1(10)
Dim ru2(1)
Dim nn(4)
Dim n1(2)
Dim nnn(10)
Dim nx(3)
Dim nxx(3)
Dim posta(5)
Dim poste(5)
posta(1)=10
poste(2)=4.5
poste(3)=0.5
poste(4)=0.5
ru1(10)=11
ru2(1)=12
co=0
ini=EstrazioneFin-600
fin=EstrazioneFin
For es=ini To fin
For p=1 To 5
For p1=p+1 To 5
For r=1 To 10
For rr= r+1 To 12
a=Estratto(es,r,p)
c=Estratto(es,r,p1)
b=Estratto(es,rr,p)
d=Estratto(es,rr,p1)
da=Distanza(a,b)
dc=Distanza(c,d)
dax=Distanza(a,c)
daxx=Distanza(a,d)
dcx=Distanza(c,a)
dcxx=Distanza(c,b)
superd=dax:if dax<>dcxx Then superd=da
If daxx=dcxx And daxx=30 And dax =18 Or daxx=dcxx And daxx=30 And dax=36 Then
co=co+1
am=Fuori90(a+30):if am=d Then am=Fuori90(a+60)
cm=Fuori90(c+30):if cm=b Then cm=Fuori90(c+60)
amx=am:if cm>am Then amx=cm
ambata=(Fuori90(am+cm))
ambo1=Fuori90(2*(amx+dax))
ambo2=Diametrale(ambo1)
ru(1)=r ' prima ruota in gioco
ru(2)=rr ' seconda ruota in gioco
nn(1)= ambata 'prima Ambata
nx(1)=ambata:nx(2)=ambo1
nxx(1)=ambata:nxx(2)=ambo2
nnn(1)= AMBATA :nnn(3)=ambo1:nnn(4)=ambo2
Scrivi "---------------------------------------------------------------"
ColoreTesto 2
Scrivi " Generatori previsione incrociati : " & a & "-" & c & "- " & b & "-" & d & " distanza " & dax & " su " & NomeRuota(r) & " e " & NomeRuota(rr)
ColoreTesto 0
ImpostaGiocata 1,nn,ru,posta,15,2
ImpostaGiocata 2,nx,ru,poste,15,3
ImpostaGiocata 3,nxx,ru,poste,15,3
ImpostaGiocata 4,nnn,ru,poste,15,3
ImpostaGiocata 5,nnn,ru1 ,poste,9,3
ImpostaGiocata 6,nnn,ru2 ,poste,9,3
Gioca es
End If
If da=dc And da=30 And dax =18 Or da=dc And da=30 And dax=36 Then
co=co+1
am=Fuori90(a+30):if am=b Then am=Fuori90(a+60)
cm=Fuori90(c+30):if cm=d Then cm=Fuori90(c+60)
amx=am:if cm>am Then amx=cm
ambata=(Fuori90(am+cm))
ambo1=Fuori90(2*(amx+dax))
ambo2=Diametrale(ambo1)
ru(1)=r ' prima ruota in gioco
ru(2)=rr ' seconda ruota in gioco
nn(1)= ambata 'prima Ambata
nx(1)=ambata:nx(2)=ambo1
nxx(1)=ambata:nxx(2)=ambo2
nnn(1)= AMBATA :nnn(3)=ambo1:nnn(4)=ambo2
Scrivi "---------------------------------------------------------------"
ColoreTesto 1
Scrivi " Generatori previsione isotopi : " & a & "-" & c & "- " & b & "-" & d & " distanza " & dax & " su " & NomeRuota(r) & " e " & NomeRuota(rr)
ColoreTesto 0
ImpostaGiocata 1,nn,ru,posta,15,2
ImpostaGiocata 2,nx,ru,poste,15,3
ImpostaGiocata 3,nxx,ru,poste,15,3
ImpostaGiocata 4,nnn,ru,poste,15,3
ImpostaGiocata 5,nnn,ru1 ,poste,9,3
ImpostaGiocata 6,nnn,ru2 ,poste,9,3
Gioca es
End If
Next
Next
Next
Next
Next
ColoreTesto 1
Scrivi : Scrivi
Scrivi " CASI TROVATI : "& co
ColoreTesto 0
ScriviResoconto
Scrivi String(70,"=")&"listato by lele67 ",1
ColoreTesto 0
End Sub
|
