|
|
Salve,questa volta riesco a citare gli esecutori materiali di questo script,fortunatamente sono stati lasciati i loro nomi nello Script presente nel pacchetto zippato(Florindi e Patrick),e li ringrazio per aver creato questo splendido lavoro sul metodo di Manara " Ambo Relativo".Grazie davvero..spero di aver reso cosa utile..
SINTESI METODO AMBO RELATIVO di Osvaldo Manara *****************************
BISOGNA SELEZIONARE DUE AMBI UNITI, NELLA STESSA ESTRAZIONE E SU DUE RUOTE DIVERSE, CHE ABBIANO IN COMUNE LA STESSA DISTANZA ORIZZONTALE.
ESEMPIO AL 28/01/1998 CAGLIARI 25-33 = DISTANZA +8 VENEZIA 51-43 = DISTANZA -8
51-25=26 43-33=10
26+45=71 10+45=55 - ambo 71-55
51-45=06 25+45=70 - ambo 06-70
43+45=88 33+45=78 - ambo 88-78.
SI ATTENDE PER TUTTE LE RUOTE, LA SORTITA DI UNO DEI TRE AMBI UNITO, ENTRO 5 COLPI. SORTISCE 88-78 SU GENOVA. SI RIGIOCA LO STESSO AMBO SULLA STESSA RUOTA.
DISPONENDO GLI AMBI PREVISIONE E QUELLO SORTITO NEL SEGUENTE MODO: 25-33 - 51-43 - 88-78 SI RICAVA IL SEGNO DISTANZIALE +--
GIOCARE SUI SEGNI DISTANZIALI: --+ / -++ / +-- / ++- NON GIOCARE SUI SEGNI DISTANZIALI: - + - / + - + / - - - / + + +
Ecco il Listato L8+:
CODICE Sub main() Dim ruote(2) Dim ruota(1) Dim posta(2) Dim poste(2) Dim nn(2),nr1(2),nr2(2),nr3(2) 'Ambo relativo.di O. Manara & modificato da Florindi. posta(1)=1 posta(2)=1 poste(2)=1 Scrivi Scrivi ColoreTesto 2 Scrivi String(40," ")&"****** L'AMBO RELATIVO CON I SEGNI DISTANZIALI ****** ",1 ColoreTesto 0 Scrivi Scrivi ColoreTesto 1 Scrivi String(70,"=")&"Listato da Patrik e Franco Florindi ",1 ColoreTesto 0 fin=EstrazioneFin ini=fin-20 t=0 For es = ini To fin AvanzamentoElab ini,fin,es For r=1 To 9 : For p1 = 1 To 5 : p2=p1+1 If p2=6 Then p2=1 a = Estratto (es-5,r,p1) : b = Estratto (es-5,r,p2) do1 = Distanza(a,b) For rr=r+1 To 10 : For p3=1 To 5 : p4=p3+1 If p4=6 Then p4=1 c = Estratto (es-5,rr,p3) : d = Estratto (es-5,rr,p4) do2 = Distanza(c,d) If do1=do2 Then 'Distanza Verticale dv1=Distanza (a,c) : dv2= Distanza (b,d) If dv1<>dv2 Then nr1(1)=Diametrale (dv1): nr1(2)=Diametrale (dv2) nr2(1)=Diametrale (a) : nr2(2)=Diametrale (c) nr3(1)=Diametrale (b) : nr3(2)=Diametrale (d) 'Cerca gli ambi derivati entro 5 colpi. ok=0:co=0 For ex=es-4 To es For r2=1 To 12 For p5=1 To 5 : p6=p5+1 If p6=6 Then p6=1 x1 = Estratto (ex,r2,p5) : x2 = Estratto (ex,r2,p6) If ((x1=nr1(1) And x2=nr1(2)) Or (x1=nr1(2) And x2=nr1(1))) Or ((x1=nr2(1) And x2=nr2(2)) Or (x1=nr2(2) And x2=nr2(1))) Or ((x1=nr3(1) And x2=nr3(2)) Or (x1=nr3(2) And x2=nr3(1)))Then If (x1=nr1(1) And x2=nr1(2)) Or (x1=nr1(2) And x2=nr1(1)) Then nn(1)=x1 : nn(2)=x2 If (x1=nr2(1) And x2=nr2(2)) Or (x1=nr2(2) And x2=nr2(1)) Then nn(1)=x1 : nn(2)=x2 If (x1=nr3(1) And x2=nr3(2)) Or (x1=nr3(2) And x2=nr3(1)) Then nn(1)=x1 : nn(2)=x2 'Controlla i segni distanziali df1=Abs (a-b) : df2=Abs (c-d) : df3=Abs (nn(1)-nn(2)) If df1>45 And a>b Then k1="+" If df1>45 And a<b Then k1="-" If df1=<45 And a>b Then k1="-" If df1=<45 And a<b Then k1="+" If df2>45 And c>d Then k2="+" If df2>45 And c<d Then k2="-" If df2=<45 And c>d Then k2="-" If df2=<45 And c<d Then k2="+" If df3>45 And nn(1)>nn(2) Then k3="+" If df3>45 And nn(1)<nn(2) Then k3="-" If df3=<45 And nn(1)>nn(2) Then K3="-" If df3=<45 And nn(1)<nn(2) Then k3="+" If k1="-" And K2="-" And K3="+" Or k1="-" And K2="+" And K3="+" Or k1="+" And K2="-" And K3="-" Or k1="+" And K2="+" And K3="-" Then t=t+1 : ok=1 : co=co+1 ruota(1)=r2 ruote(1)=11 ruote(2)=12 Scrivi "-------------------------------------------------------------------------" Scrivi "Estrazione "& DataEstrazione(es-5),1 Scrivi SiglaRuota(r) &" "& Format2 (a)&"."& Format2 (b)& " [Pos. "&p1&"/"&p2&"] Do1. "& Format2 (do1) &" Dv1. "& Format2 (dv1) ,1 Scrivi SiglaRuota(rr)&" "& Format2 (c)&"."& Format2 (d)& " [Pos. "&p3&"/"&p4&"] Do2. "& Format2 (do2) &" Dv2. "& Format2 (dv2) ,1 ColoreTesto 1 Scrivi Scrivi "Ambi Derivati: "& StringaNumeri(nr1)&" / " & StringaNumeri(nr2)&" / "& StringaNumeri(nr3) ColoreTesto 0 ColoreTesto 2 Scrivi "Ambo trovato su "& SiglaRuota (r2)&" il "& DataEstrazione(ex)&" Colpo "&co&"° "& StringaNumeri (nn)& " [Pos. "&p5& "/"&p6&"]",1 ColoreTesto 0 Scrivi Scrivi "Ambi sortiti per determinare i segni distanziali: "&" "& Format2 (a)&"."& Format2 (b)&_ " / "& Format2 (c)&"."& Format2 (d)& " / "& Format2 (nn(1))&"."& Format2 (nn(2)),1 Scrivi "Segni Distanziali : "& K1&"/"&K2&"/"&K3,1 Scrivi "----------------------------------------------------------------Giocata n°"&t ImpostaGiocata 1,nn,ruota,posta,18,1 ImpostaGiocata 2,nn,ruote,poste,18,2 Gioca ex
End If End If : Next : Next co=co+1 If ok=1 Then Exit For Next End If End If : Next : Next : Next : Next : Next ScriviResoconto
End Sub
Sono graditi i vostri voti per aiutare questo Forum a crescere.Grazie!clicca qui
Saluti,sean69!!
|
|