LA TRIADE Osvaldo Manara

« Older Newer »

sean69

Posted on 13/3/2011, 19:41

sean69

Group: Administrator

Posts: 5,897

Location: Provincia di Roma..

Status: Offline

Salve,questa volta riesco a citare l' esecutore materiale di questo script,fortunatamente e' stato lasciato il suo nome nello Script presente nel pacchetto zippato(Florindi ),e lo ringrazio per aver creato questo splendido lavoro sul metodo di Manara " LA TRIADE".Grazie davvero..spero di aver reso cosa utile..

Triade

la tecnica si base sui terni somma o triade numeriche, cioè quelle terzine formate da un ambo e da un terzo numero che è la somma degli altri due.

esempio:

11-26-37 11+26=37
62-90-28 62+28=90
58-13-45 13+45=58

il metodo porrà in gioco su due ruote 5 ambi secchi e 1 cinquina

iter operativo:

1) si rintracci in un estrazione un terno somma su una ruota qualsiasi ed in qualunque posizione esso si trovi.

2) una volta rintracciato il terno si calcolano i complementari a 90 dei tre numeri che formano il terno somma.

3) con i complementari a 90 si è ottenuto il terno derivato. ora occorre rintracciare nelle seguenti 1 o massimo 2 estrazioni successive,un ambo formato dai numeri appartenenti alla terzina del terno derivato.

4) rintracciato l'ambo, abbiamo la previsione da mettere in gioco sulla ruota dove è stato rintracciato il terno somma e sulla ruota dove è stato rintracciato il terno derivato.

5) la previsione sarà formata:
ambi secchi formati dall'elemento mancante del terno derivato e tutti gli altri elementi sortiti

1 cinquina da giocare facoltativamente per terno e quaterna anche a tutte, formata da tutti gli elementi della formazione tranne l'elemento non sortito del terno derivato.

esempio:

nell'estrazione del 30/05/2001 sortì il terno somma sulla ruota di milano 42-5-47 42+5=47

calcoliamo i complementi a 90
per il 42 è il 48
per il 5 è il 85
per il 47 è il 43

quindi il terno derivato sarà 48-85-43

ora occorre rintracciare nelle prossime due etrazioni sucessive un ambo appartenente al terno derivato. l'ambo che troviamo è sulla ruota di genova in data 02/06/2001 85-43.

l'elemento mancante della terzina derivata è il numero 48, questo numero rapresenta il capogioco per la formazione degli ambi secchi.

la previsione finita sarà:

genova milano

48-42 ambo principale

48-5 48-43 48-47 48-85 gli ambi secchi da giocare su genova e milano

42-5-47-43-85 la cinquina da giocare per terno e quaterna anche a tutte.

consigli di gioco:

è consigliabile non porre in gioco la previsione qualora:

la ruota di rintracciamento del terno somma e del terno derivato sia la stessa.

Ecco il listato L8+:

CODICE

Sub main()
Scrivi
Scrivi
Scrivi
ColoreTesto 2
Scrivi String(45,"=")&"** LA TRiADE DI SOMMA - FABARRI E MANARA **",1
ColoreTesto 0
Scrivi
Scrivi
Scrivi
ColoreTesto 1
Scrivi String(70,"-")&"listato by F.F. ",1
ColoreTesto 0
Dim nu1(3),nu(3),nr(3),amb(1),ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),lg1(5)
Dim ruote(2),ru(1)
Dim posta(1),poste1(2),poste(5)
posta(1)=1
poste1(2)=1
poste(2)=3.50 : poste(3)=1 : poste(4)=.40 : poste(5)=.10
rs=InputBox(" Quante estrazioni vuoi controllare?","Florindi",20)
ini=EstrazioneFin-rs : fin=EstrazioneFin
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)
For p3=1 To 5
If p3<>p1 And p3<>p2 Then
c=Estratto(es,r1,p3)
If Fuori90(a+b)=c And c<>90 Then
nu(1)=90-a : nu(2)=90-b : nu(3)=90-c
'Controlla la presenza dell'ambo in terzina su un'altra ruota.
For r2=1 To 10
If r2<>r1 Then
ru(1)=r2
sf=SerieFreq (es,es,nu,ru,2)
If sf>0 Then
'Trova l'ambo, che deve essere unico.
g=0
For q=1 To 5
nx=Estratto (es,r2,q)
For i=1 To 3
If nx=nu(i) Then g=g+1 : nr(g)=nx
Next
Next
If g=2 Then
'Cerca il numero mancante(cg)della terzina derivata.
ok=0
For y=1 To 3
If nu(y)<>nr(1) And nu(y)<>nr(2) Then cg=nu(y) : ok=1
If ok=1 Then Exit For
Next
amb(1)=cg
ambo1(1)=cg : ambo1(2)=a
ambo2(1)=cg : ambo2(2)=b
ambo3(1)=cg : ambo3(2)=c
ambo4(1)=cg : ambo4(2)=nr(1)
ambo5(1)=cg : ambo5(2)=nr(2)
lg1(1)=a : lg1(2)=b : lg1(3)=c : lg1(4)=nr(1) : lg1(5)=nr(2)

ruote(1)=r1:ruote(2)=r2

casi=casi+1:Scrivi String(70,"="),1
ColoreTesto 2
Scrivi Space (30)& "Caso "&casi
ColoreTesto 0
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" "& StringaEstratti(es,r1)&" ]" &_
" Terna di somma: "& Format2(a)&"."& Format2(b)&"."& Format2(c)& Chr (10)&_
Space (37)& "Terno Derivato: "& StringaNumeri (nu),1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" "& StringaEstratti(es,r2)&" ]" & Chr (10) &_
"Ambo trovato "& StringaNumeri (nr)&" su "& SiglaRuota (r2)& Chr (10)&_
"Num. mancante - CAPOGIOCO: "& (amb(1)),1
Scrivi String(70,"-")

ImpostaGiocata 1,amb,ruote,posta,14
ImpostaGiocata 2,ambo1,ruote,poste1,14
ImpostaGiocata 3,ambo2,ruote,poste1,14
ImpostaGiocata 4,ambo3,ruote,poste1,14
ImpostaGiocata 5,ambo4,ruote,poste1,14
ImpostaGiocata 6,ambo5,ruote,poste1,14
ImpostaGiocata 7,lg1,ruote,poste,14
Gioca es
End If
End If
End If
Next
End If
End If
Next:Next : Next:Next:Next
ScriviResoconto
ColoreTesto 1
Scrivi String(70,"-")&"listato by F.Florindi. ",1
ColoreTesto 0
End Sub

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

clicca qui

Saluti,sean69!!

Edited by sean69 - 6/5/2011, 11:47

Web

drago29

Posted on 26/9/2012, 12:33

Member

Group: Member

Posts: 403

Location: milano

Status: Offline

Ecco il listati
Sub main()
Dim nu2(10),nu1(10),nu3(10)
Dim ruote(10),ruota(10)
Dim poste(2)
poste(2)=1
fin=EstrazioneFin
ini=fin-100
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 10
n1=Fuori90(Estratto(es-2,r1,1)+Estratto(es-2,r1,2))
n2=Fuori90(Estratto(es-2,r1,1)+Estratto(es-2,r1,3))
n3=Fuori90(Estratto(es-2,r1,1)+Estratto(es-2,r1,4))
n4=Fuori90(Estratto(es-2,r1,1)+Estratto(es-2,r1,5))
n5=Fuori90(Estratto(es-2,r1,2)+Estratto(es-2,r1,3))
n6=Fuori90(Estratto(es-2,r1,2)+Estratto(es-2,r1,4))
n7=Fuori90(Estratto(es-2,r1,2)+Estratto(es-2,r1,5))
n8=Fuori90(Estratto(es-2,r1,3)+Estratto(es-2,r1,4))
n9=Fuori90(Estratto(es-2,r1,3)+Estratto(es-2,r1,5))
n10=Fuori90(Estratto(es-2,r1,4)+Estratto(es-2,r1,5))
For p1=1 To 5
nn=Estratto(es-3,r1,p1)
If nn=n1 Or nn=n2 Or nn=n3 Or nn=n4 Or nn=n5 Or nn=n6 Or nn=n7 Or nn=n8 Or nn=n9 Or nn=n10 Then
c1=0:c2=0:c3=0
If nn=n1 Then c1=nn :c2=Estratto(es-2,r1,1):c3=Estratto(es-2,r1,2)
If nn=n2 Then c1=nn :c2=Estratto(es-2,r1,1):c3=Estratto(es-2,r1,3)
If nn=n3 Then c1=nn :c2=Estratto(es-2,r1,1):c3=Estratto(es-2,r1,4)
If nn=n4 Then c1=nn :c2=Estratto(es-2,r1,1):c3=Estratto(es-2,r1,5)
If nn=n5 Then c1=nn :c2=Estratto(es-2,r1,2):c3=Estratto(es-2,r1,3)
If nn=n6 Then c1=nn :c2=Estratto(es-2,r1,2):c3=Estratto(es-2,r1,4)
If nn=n7 Then c1=nn :c2=Estratto(es-2,r1,2):c3=Estratto(es-2,r1,5)
If nn=n8 Then c1=nn :c2=Estratto(es-2,r1,3):c3=Estratto(es-2,r1,4)
If nn=n9 Then c1=nn :c2=Estratto(es-2,r1,3):c3=Estratto(es-2,r1,5)
If nn=n10 Then c1=nn :c2=Estratto(es-2,r1,4):c3=Estratto(es-2,r1,5)
a1=90-c1
a2=90-c2
a3=90-c3
For r2=1 To 2
xs=es-3+r2
For r3=1 To 10
If r3<>r1 Then
For p2=1 To 4
For p3=p2+1 To 5
b1=Estratto(xs,r3,p2)
b2=Estratto(xs,r3,p3)
If (b1=a1 And b2=a2 Or b1=a1 And b2=a3 Or b1=a2 And b2=a3)_
Or (b2=a1 And b1=a2 Or b2=a1 And b1=a3 Or b2=a2 And b1=a3) Then

If b1=a1 And b2=a2 Then w=a3
If b1=a1 And b2=a3 Then w=a2
If b1=a2 And b2=a3 Then w=a1

If b2=a1 And b1=a2 Then w=a3
If b2=a1 And b1=a3 Then w=a2
If b2=a2 And b1=a3 Then w=a1

casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es-3,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es-3,r1)&_
" > Somma Triade < "&Format2(c2)&" + "&Format2(c3)&" = "&Format2(nn)&" . "
Scrivi "Numeri da cercare nelle estrzzioni Precedenti "&Format2(a1)&" . "&Format2(a2)&" . "&Format2(a3)&" . "
Scrivi DataEstrazione(xs,1)&" < "&siglaRuota(r3)& " "& StringaEstratti(xs,r3)&_
" > Trovati < "&Format2(b1)&" . "&Format2(b2)&"> Manca "&Format2(w)&" . "
Scrivi "Soluzione Trovata + "&Format2(r2)&" Estrazioni "
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:k=14:ruote(2)=r3:ruota(1)=11:co=0
If w+c1=90 Then kk=c1
If w+c2=90 Then kk=c2
If w+c3=90 Then kk=c3
nu1(1)=w
nu1(2)=kk
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu2(1)=w
nu2(2)=c1
nu2(3)=c2
nu2(4)=c3
nu2(5)=kk
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu2(1)=w
nu2(2)=b1
nu2(3)=b2
nu2(4)=c3
nu2(5)=kk
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu3(1)=w
nu3(2)=kk
nu3(3)=c1
nu3(4)=c2
nu3(5)=c3
nu3(6)=b1
nu3(7)=b2
co=co+1
ImpostaGiocata co,nu3,ruote,poste,k

Gioca xs
End If
Next
Next
End If
Next
Next
End If
Next
Next
Next
ScriviResoconto
End Sub

1 replies since 13/3/2011, 19:41 4908 views