LON.EVOLUTION

« Older Newer »

occhidigiada58.

Posted on 22/3/2011, 19:54

metodo rielaborato dal Prof. Matteo Paalumbo..
e' uno script dell'amico damper, ma il procedimento nn ce l'ho!!!

CODICE

Sub main()
Dim am(2),ab(5),ruota(2),posta(1),poste(3)
posta(1)=1 : poste(2)=1 : poste(3)=1

For es=EstrazioneFin-100 To EstrazioneFin : Messaggio "Estrazione: ["&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 r2=r1+1 To 12
If r2<>11 Then
For p3=1 To 4
For p4=p3+1 To 5

c=Estratto(es,r2,p3) : d=Estratto(es,r2,p4)

If (a=c And b=d) Then
If Pari(a) And Pari(b) Or Pari((a)+1)_
And Pari((b)+1) Then

cont=cont+1
Scrivi : ColoreTesto 2 : Scrivi String(29,32)&" Pronostico n° " &cont&"",1
ColoreTesto 0 : Scrivi

Scrivi DataEstrazione(es,1)&""&Space(2)&_
"["&es&"]ª"&Space(3)&""&Left(NomeRuota(r1),3)&_
""&Space(3)&""& StringaEstratti (es,r1)&_
""&Space(6)&""& Format2(a)&""&Space(1)&""& Format2(b)&_
""&Space(4)&"("&p1&"-"&p2&")"
Scrivi DataEstrazione(es,1)&""&Space(2)&_
"["&es&"]ª"&Space(3)&""&Left(NomeRuota(r2),3)&_
""&Space(3)&""& StringaEstratti (es,r2)&_
""&Space(6)&""& Format2(c)&""&Space(1)&_
""& Format2(d)&""&Space(4)&"("&p3&"-"&p4&")" : Scrivi

am(1)=Fuori90((a+b)/2)

For w=1 To 3
For h=4 To 6
For k=7 To 9

If Cadenza (am(1))=w Then x=Fuori90(am(1)+3) : y=Fuori90(am(1)+6)
If Cadenza (am(1))=h Then x=Fuori90(am(1)-3) : y=Fuori90(am(1)+3)
If Cadenza (am(1))=k Then x=Fuori90(am(1)-3) : y=Fuori90(am(1)-6)

Next
Next
Next

v=Diametrale(am(1)) : v1=Fuori90(v+30)
v2=Fuori90(v+60) : am(2)=v
ruota(1)=r1 : ruota(2)=r2
ImpostaGiocata 1,am,ruota,posta,16

ab(1)=am(1) : ab(2)=am(2)
ab(4)=Fuori90(a+b): ab(5)=Vert(ab(4))
ab(3)=x : ImpostaGiocata 2,ab,ruota,poste,18
ab(3)=y : ImpostaGiocata 3,ab,ruota,poste,18
ab(3)=v1 : ImpostaGiocata 4,ab,ruota,poste,18
ab(3)=v2 : ImpostaGiocata 5,ab,ruota,poste,18

Gioca es : Scrivi String(67,151)
End If
End If
Next
Next
End If
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi "METODO: LON. EVOLUTION",1
Scrivi "AUTORI: Antonio Longo - Matteo Palumbo",1
ColoreTesto 2 : Scrivi "•damper•",1 : End Sub

Edited by pigreko73.. - 25/3/2011, 19:27

max_gionni

Posted on 25/3/2011, 19:19

Salve qui è stato postato lo script del metodo, è possibile sapere il metodo cartaceo?
Grazie,
gionni

occhidigiada58.

Posted on 27/3/2011, 10:01

Ricerca ambi uguali
Ambate
1° ambata somma dell’ambo risultato diviso 2
2° ambata diametrale 3
abbinamenti
Somma dell’ambo e vertibile
Calcolare la figura della prima ambata
Se la cadenza e' da 1 a 3 sommarle 3 e 6
Se la cadenza e' da 4 a 6 sottrarle e sommarle 3
Se la cadenza e' da 7 a 9 sottrarle 3 e 6
terzina simmetrica della seconda ambata!!

fai i controlli a mano e verificali con lo script i risultati!!! se vanno bene ho decifrato bene!!

Edited by occhidigiada58. - 27/3/2011, 11:30

max_gionni

Posted on 27/3/2011, 15:38

Mille grazie occhidigiada.
Ciao,
gionni

occhidigiada58.

Posted on 27/3/2011, 18:19

uh figurati per cosi' poco, e' che ero proprio sbadata, la soluzione l'avevo sotto il naso e nn la vedevo!!

Enplein*

Posted on 27/3/2011, 19:21

Group:: Fan

Posts:: 164

Status:

...ho trovato lo script di Damper su "Evolution Longo e Palumbo", mi sembra diverso...
anche questo, però, non presenta la spiegazione.

Ciao, Enplein.

CODICE

Sub main()
Dim am(1),ab(3),j(2),ruota(2),ruote(3),posta(1),poste(3)
posta(1)=1 : poste(2)=1 : poste(3)=1

For es=EstrazioneFin-100 To EstrazioneFin : Messaggio "Estrazione: ["&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 r2=r1+1 To 12
If r2<>11 Then
For p3=1 To 4
For p4=p3+1 To 5

c=Estratto(es,r2,p3) : d=Estratto(es,r2,p4)

If (a=c And b=d) Then

cont=cont+1
Scrivi : ColoreTesto 2 : Scrivi String(29,32)&" Pronostico n° " &cont&"",1
ColoreTesto 0 : Scrivi

Scrivi DataEstrazione(es,1)&""&Space(2)&_
"["&es&"]ª"&Space(3)&""&Left(NomeRuota(r1),3)&_
""&Space(3)&""& StringaEstratti (es,r1)&""&Space(6)&""& Format2(a)&""&Space(1)&_
""& Format2(b)&""&Space(4)&"("&p1&"-"&p2&")"
Scrivi DataEstrazione(es,1)&""&Space(2)&_
"["&es&"]ª"&Space(3)&""&Left(NomeRuota(r2),3)&_
""&Space(3)&""& StringaEstratti (es,r2)&""&Space(6)&""& Format2(c)&""&Space(1)&_
""& Format2(d)&""&Space(4)&"("&p3&"-"&p4&")" : Scrivi

a1=Fuori90(a+c) : b1=Fuori90(b+d)
c1=Abs(a1-b1) : d1=c1\2

j(1)=a1 : j(2)=b1
e=Fuori90(Minimo(j(1),j(2))+d1)
f=Fuori90(Massimo(j(1),j(2))-d1)

ruote(1)=r1 : ruote(2)=r2 : ruote(3)=11
am(1)=Fuori90(d+e) : z=Fuori90(a+e)

For w=1 To 3
For h=4 To 6
For k=7 To 9

If Cadenza (am(1))=w Then x=Fuori90(am(1)+3) : y=Fuori90(am(1)+6)
If Cadenza (am(1))=h Then x=Fuori90(am(1)-3) : y=Fuori90(am(1)+3)
If Cadenza (am(1))=k Then x=Fuori90(am(1)-3) : y=Fuori90(am(1)-6)

Next
Next
Next

v=Diametrale(am(1)) : v1=Fuori90(v+30)
v2=Fuori90(v+60) : ruota(1)=r1 : ruota(2)=r2
ImpostaGiocata 1,am,ruota,posta,13

ab(1)=am(1) : ab(2)=Fuori90(am(1)+z)
ab(3)=x : ImpostaGiocata 2,ab,ruote,poste,13
ab(3)=y : ImpostaGiocata 3,ab,ruote,poste,13
ab(3)=v1 : ImpostaGiocata 4,ab,ruote,poste,13
ab(3)=v2 : ImpostaGiocata 5,ab,ruote,poste,13

Gioca es : Scrivi String(67,151)
End If
Next
Next
End If
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi "METODO: LON. EVOLUTION",1
Scrivi "AUTORI: Antonio Longo - Matteo Palumbo",1
ColoreTesto 2 : Scrivi "•damper•",1 : End Sub

occhidigiada58.

Posted on 28/3/2011, 00:10

e' totalmente diverso!!! cambia il calcolo delle ambate e di conseguenza il risultato degli abbinamenti!!!!ora quale e' quello il vero lon. evolution??mah!!!

Enplein*

Posted on 28/3/2011, 09:30

Group:: Fan

Posts:: 164

Status:

Ciao occhidigiada, non vorrei sbagliarmi, ma penso di
aver fatto dei cambiamenti in merito alle variazioni
del prof. M. Palumbo.
Peccato che non abbia copiato il procedimento.

Ciao, Enplein.

Enplein*

Posted on 29/3/2011, 10:35

Group:: Fan

Posts:: 164

Status:

Procedimento dell'ambo ripetuto "Evolution di Longo & Palumbo" in base allo script
ralizzato da Damper e modificato da Enplein.

17+17=34
22+22=44
Differenza:
44-34=10, 10:2=5
34+5=39, 44-5=39 Condizione rispettata.

Mia variante:
La somma dei ripetuti dell'ambo base, dve essere di ordine pari, così
si può calcolare il punto medio; infatti
34+44=78:2=39 condizione rispettata.

Il maggiore dell'ambo ripetuto viene sommato al punto medio che sarà l'ambata.
22+39=61 Ambata
17+39=56
61+56=27 1° abbinamento

61 con chiusura triplare = 61+3=64, 61+6=67
61 diametrale =16 con chiusura figurale 16+30=46, 16+60=76

Ambata 61
Terzina1=61.27.64
Terzina2=61.27.67
Terzina3=61.27.46
Terzina4=61.27.76

Ciao, Enplein.

pigreko73..

Posted on 29/3/2011, 11:23

Group:: Administrator

Posts:: 8,315

Location:: Pescara

Status:

Grazie Enplein..

Web Contacts

*plutone

Posted on 29/3/2011, 15:14

A nessuno è mai nociuto essere stato zitto.--Catone

Group:: Administrator

Posts:: 9,992

Status:

Haaaaaaaaaaa

bello grazieeeeeeeeeee

Web

occhidigiada58.

Posted on 29/3/2011, 16:19

quindi quello di enplein e' l'originale???

Enplein*

Posted on 29/3/2011, 16:23

Group:: Fan

Posts:: 164

Status:

Ciao occhidigiada, riporto il risultato dello script in relazione
all'esempio postato.

Ciao, Enplein.

CODICE

Pronostico n° 1

sab 23.11.1996 [6568]ª Rom 07.17.12.22.43 17 22 (2-4)
sab 23.11.1996 [6568]ª Tor 21.17.23.22.08 17 22 (2-4)

sab 23.11.1996 [6568]
G 1: M 61 Ro To 13/13
M 61 su Ro 3° colpo [6571/14.12.1996]

G 2: AT 61.27.64 Ro To Tu 13/13
A 27.61 su Ro 3° colpo [6571/14.12.1996]
A 27.61 su Tu (Ro) 3° colpo [6571/14.12.1996]
A 27.61 su Tu (Ve) 3° colpo [6571/14.12.1996]

G 3: AT 61.27.67 Ro To Tu 13/13
A 27.61.67 su Ro 3° colpo [6571/14.12.1996]
T 27.61.67 su Ro 3° colpo [6571/14.12.1996]
A 27.61.67 su Tu (Ro) 3° colpo [6571/14.12.1996]
T 27.61.67 su Tu (Ro) 3° colpo [6571/14.12.1996]
A 27.61 su Tu (Ve) 3° colpo [6571/14.12.1996]

G 4: AT 61.27.46 Ro To Tu 13/13
A 27.61 su Ro 3° colpo [6571/14.12.1996]
A 27.61 su Tu (Ro) 3° colpo [6571/14.12.1996]
A 27.61 su Tu (Ve) 3° colpo [6571/14.12.1996]

G 5: AT 61.27.76 Ro To Tu 13/13
A 27.61 su Ro 3° colpo [6571/14.12.1996]
A 27.61 su Tu (Ro) 3° colpo [6571/14.12.1996]
A 27.61 su Tu (Ve) 3° colpo [6571/14.12.1996]
A 61.76 su Tu (Mi) 6° colpo [6574/04.01.1997]

occhidigiada58.

Posted on 29/3/2011, 16:38

mmmmhhhh preferisco il primo script!!!

ci sono piu' casi negativi se togli la giocata a tutte!!!

prova un po' fra'!!!

13 replies since 22/3/2011, 19:54 612 views