Dragon45 - Osvaldo Manara

« Older Newer »

sean69

Posted on 30/5/2011, 06:56

sean69

Group: Administrator

Posts: 5,897

Location: Provincia di Roma..

Status: Offline

il Listato che trovate qui' e' stato creato dall'utente lele67:grazie a Occhidigiada per la segnalazione.Sono pubblicati su questo Forum solo ed esclusivamente per essere messi a disposizione di tutti,ogni consiglio e modifica e' ben accetto,grazie..

Dragon45 -Osvaldo Manara

Una volta rintracciati 2 ambi diametrali 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( 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.

Previsione finale
Torino – Venezia
45 ambata
45 – 66
45 – 54
45 – 90
ambi anche a tutte

Ecco il listato(autore lele67):

CODICE

Scrivi
Scrivi
Scrivi
ColoreTesto 2
Scrivi String(45,"=")&"**Dragon 45**",1
ColoreTesto 0
Scrivi
Scrivi
Scrivi
ColoreTesto 1
Scrivi String(70,"=")&"listato by Anonimo. ",1
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 posta(1)
Dim poste(4)

posta(1)=1
poste(2)=3.50
poste(3)=1
poste(4)=.50
ca=0
fin=EstrazioneFin
ini=fin-150
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(n),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,posta,9,1
ImpostaGiocata 2,ambo1,ruote,poste,9,3
ImpostaGiocata 3,ambo2,ruote,poste,9,3
ImpostaGiocata 4,ambo3,ruote,poste,9,3
ImpostaGiocata 5,lg,ruote,poste,9,3
ImpostaGiocata 6,lg,ruotas,poste,9,3

Gioca es
End If
End If
Next
Next
Next
End If
Next
Next
Next
Next

ColoreTesto 2
Scrivi "================================================================================================"
Scrivi " casi giocabili: "& ca ,1
Scrivi "================================================================================================"
ColoreTesto 0
ScriviResoconto
End Sub

Sono graditi i vostri voti per aiutare questo Forum a crescere.Grazie!