Evoluzione correttore differenziale

« Older Newer »

pigreko73..

Posted on 9/8/2014, 10:38

Group:: Administrator

Posts:: 8,316

Location:: Pescara

Status:

Web Contacts

miki7

Posted on 29/1/2018, 16:11

ciao a tutti volevo spaere se gentilemnte c'e qualcuno che puo' realizzare lo script di questo metodo di Pace,se si se e' possibile mettere nel pronostico anche gli ambi a tutte,grazie ancora a chi mi potra' aiutare ciaoooo

Edited by miki7 - 30/1/2018, 08:32

miki7

Posted on 1/2/2018, 20:45

CITAZIONE (miki7 @ 29/1/2018, 16:11)

spero che qualcuno mi aiuti grazie lo stesso

federico53

Posted on 1/2/2018, 22:34

Group:: Utente

Posts:: 3,010

Location:: avellino

Status:

CITAZIONE (miki7 @ 1/2/2018, 20:45)

CITAZIONE (miki7 @ 29/1/2018, 16:11)

spero che qualcuno mi aiuti grazie lo stesso

ciao Miki7, adesso ho visto la tua richiesta provo a farlo servirebbe anche la prima parte per capire meglio

miki7

Posted on 1/2/2018, 23:25

grazie federico ma mi sa che c'e solo questa parte ho provato a vedere anche su internet

federico53

Posted on 2/2/2018, 00:08

Group:: Utente

Posts:: 3,010

Location:: avellino

Status:

CITAZIONE (miki7 @ 1/2/2018, 23:25)

grazie federico ma mi sa che c'e solo questa parte ho provato a vedere anche su internet

dammi ancora un pò di tempo che mi sembra che ho risolto

federico53

Posted on 2/2/2018, 00:54

Group:: Utente

Posts:: 3,010

Location:: avellino

Status:

CITAZIONE (pigreko73.. @ 9/8/2014, 10:38)

ciao Miki, il listato sul metodo di "Evoluzione sul Correttore Differenziale è questo

CODICE

Sub main()
ColoreTesto 2
Scrivi" F O R U M S U P E R L O T T O "
ColoreTesto 1
Scrivi"EVOLUZIONE SUL CORRETTORE DIFFERENZIALE"
Scrivi"Metodo di Michele PACE - Listed by Federico53"
ColoreTesto 0
Dim amb(10),lg(2),lg1(5),amb1(2),lg2(2)
Dim ruote(10)
Dim posta(5)
Dim poste(5)
poste(1)=0
poste(2)=1
poste(3)=1
clp=13
fin=EstrazioneFin
ini=9300
For es=ini To fin
AvanzamentoElab ini,fin,es
caso = 0
For r1 = 1 To 10
For p=1 To 4
For p1=p+1 To 5
A = Estratto(es,r1,p):B = Estratto(es,r1,p1)
di1 = Distanza(A,B)
If di1=45 Then
For r2=1 To 12
If r2=11 Then r2=12
For p2=1 To 4
For p3=p2+1 To 5
C = Estratto(es,r2,p2):D = Estratto(es,r2,p3)
di2 = Distanza(C,D)
If r2>r1 Then
If di2 = di1 Then
so1=Fuori90(A+B):so2=Fuori90(C+D)
dm1=Diametrale(so1):dm2=Diametrale(so2)
sv1=Fuori90(A+C):sv2=Fuori90(B+D)
sd1=Fuori90(A+D):sd2=Fuori90(B+C)
dv1=Distanza(A,C):dv2=Distanza(B,D)
dd1=Distanza(A,D):dd2=Distanza(B,C)
cd=Abs(dv1-dd1)
a1=Fuori90(cd+sv1):a2=Fuori90(cd+sd1)
x1=Fuori90(a1+a2)'AMBATA
caso = caso + 1
casi = casi + 1
Scrivi String(65,"=")
ColoreTesto 2
Scrivi" F O R U M S U P E R L O T T O "
ColoreTesto 1
Scrivi"EVOLUZIONE SUL CORRETTORE DIFFERENZIALE"
Scrivi"Metodo di Michele PACE - Listed by Federico53"
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es))&" " & Left(NomeRuota(r1),3) & " " & StringaEstratti(es,r1),1
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es))&" " & Left(NomeRuota(r2),3) & " " & StringaEstratti(es,r2),1
ColoreTesto 1
Scrivi String(53,"-") & " Caso N " & Format2(caso) & " Estraz. ",0,0
ColoreTesto 2
Scrivi Format2(es)
ColoreTesto 1
Scrivi String(53,"-") & " Casi Totali N " & Format2(casi)
ColoreTesto 0

Scrivi " Ambi Diametrali che formano la Struttura ",1
Scrivi String(31,"-")
ColoreTesto 2
Scrivi " " & Left(NomeRuota(r1),3) & " " & Format2(A) & Space(1) & Format2(B) & " DO1 " & Format2(di1) &_
" DV1 " & Format2(dv1) & Space(1)& " DD1 " & Format2(dd1) & " SV1 " & Format2(sv1)& " SD1 " & Format2(sd1),1
Scrivi " " & Left(NomeRuota(r2),3) & " " & Format2(C) & Space(1) & Format2(D) & " DO2 " & Format2(di2) &_
" DV2 " & Format2(dv2) & Space(1)& " DD2 " & Format2(dd2) & " SV2 " & Format2(sv2)& " SD2 " & Format2(sd2),1
ColoreTesto 1
Scrivi" CORRETTORE DIFFERENZIALE " & Format2(cd),1

ColoreTesto 0
Scrivi String(25,"-")

ruote(1) = r1
ruote(2) = r2
ruote(3)= 11

amb(1) = x1:amb(2) = so1
ImpostaGiocata 1,amb,ruote,poste,clp
lg(1) = x1:lg(2) = so2
ImpostaGiocata 2,lg,ruote,poste,clp
amb1(1) = x1:amb1(2) = dm1
ImpostaGiocata 3,amb1,ruote,poste,clp
lg2(1) = x1:lg2(2) = dm2
ImpostaGiocata 4,lg2,ruote,poste,clp
lg1(1) = x1:lg1(2) = so1:lg1(3) = so2:lg1(4) = dm1:lg1(5) = dm2
ImpostaGiocata 5,lg1,ruote,poste,clp
Gioca es
Scrivi"Listed by federico53"
End If
End If
Next
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

miki7

Posted on 2/2/2018, 07:58

CITAZIONE (federico53 @ 2/2/2018, 00:54)

CITAZIONE (pigreko73.. @ 9/8/2014, 10:38)

ciao Miki, il listato sul metodo di "Evoluzione sul Correttore Differenziale è questo

CODICE

GRAZIEEEEEE Federico sei davvero gentile.ho visto che funziona e d e' abbastanza buono..poi posso chiederti una cosa in pvt?grazie ancora

GRAZIE anche a Pigreko x l aiuto

kiros

Posted on 5/2/2018, 08:30

Group:: Utente

Posts:: 2,856

Status:

Dall'ultima estrazione ho trovato e provato: CA 22 67 VE 13 58 che mi hanno dato 79 ambata e abbinamenti 89 44 71 26.
Vorrei chiedere cortesemente a Federico se i miei calcoli sono giusti, o vi è errore.
Grazie Kiros

miki7

Posted on 5/2/2018, 08:46

CITAZIONE (kiros @ 5/2/2018, 08:30)

giusto kiros

Cag 67 22 DO1 45 DV1 36 DD1 09 SV1 80 SD1 35
Ven 13 58 DO2 45 DV2 36 DD2 09 SV2 80 SD2 35
CORRETTORE DIFFERENZIALE 27
-------------------------
Estrazione generatrice del pronostico 09430 [ 15 - 03/02/2018]
G 0001 Numeri in gioco : 79.89 su CA VE TT per Ambo,Terno
In corso per altre 13 estrazioni
G 0002 Numeri in gioco : 79.71 su CA VE TT per Ambo,Terno
In corso per altre 13 estrazioni
G 0003 Numeri in gioco : 79.44 su CA VE TT per Ambo,Terno
In corso per altre 13 estrazioni
G 0004 Numeri in gioco : 79.26 su CA VE TT per Ambo,Terno
In corso per altre 13 estrazioni
G 0005 Numeri in gioco : 79.89.71.44.26 su CA VE TT per Ambo,Terno
In corso per altre 13 estrazioni
Listed by federico53

kiros

Posted on 5/2/2018, 09:03

Group:: Utente

Posts:: 2,856

Status:

Grazie Miki7 per la pronta risposta.

Rivedendo le estrazioni è curioso aver rilevato, anche se succede, che nell'estrazione del 27 gennaio scorso su VE è sortita la stessa coppia di CA ovvero 22 67, la cui somma dà di nuovo 89. Sperammm

kiros

miki7

Posted on 5/2/2018, 10:24

kiros ci sono ancora 2 prev in corso te le metto

Cag 67 22 DO1 45 DV1 14 DD1 31 SV1 58 SD1 13
Naz 81 36 DO2 45 DV2 14 DD2 31 SV2 58 SD2 13
CORRETTORE DIFFERENZIALE 17
-------------------------
Estrazione generatrice del pronostico 09430 [ 15 - 03/02/2018]
G 0001 Numeri in gioco : 15.89 su CA TT NZ per Ambo,Terno
In corso per altre 13 estrazioni
G 0002 Numeri in gioco : 15.27 su CA TT NZ per Ambo,Terno
In corso per altre 13 estrazioni
G 0003 Numeri in gioco : 15.44 su CA TT NZ per Ambo,Terno
In corso per altre 13 estrazioni
G 0004 Numeri in gioco : 15.72 su CA TT NZ per Ambo,Terno
In corso per altre 13 estrazioni
G 0005 Numeri in gioco : 15.89.27.44.72 su CA TT NZ per Ambo,Terno
In corso per altre 13 estrazioni
Listed by federico53

Ven 13 58 DO1 45 DV1 22 DD1 23 SV1 04 SD1 49
Naz 81 36 DO2 45 DV2 22 DD2 23 SV2 04 SD2 49
CORRETTORE DIFFERENZIALE 01
-------------------------
Estrazione generatrice del pronostico 09430 [ 15 - 03/02/2018]
G 0001 Numeri in gioco : 55.71 su VE TT NZ per Ambo,Terno
In corso per altre 13 estrazioni
G 0002 Numeri in gioco : 55.27 su VE TT NZ per Ambo,Terno
In corso per altre 13 estrazioni
G 0003 Numeri in gioco : 55.26 su VE TT NZ per Ambo,Terno
In corso per altre 13 estrazioni
G 0004 Numeri in gioco : 55.72 su VE TT NZ per Ambo,Terno
In corso per altre 13 estrazioni
G 0005 Numeri in gioco : 55.71.27.26.72 su VE TT NZ per Ambo,Terno
In corso per altre 13 estrazioni
Listed by federico53

notavo che con la prima previsione inserita c'e in convergenza almeno su tutte le ruote 89-44

nei precedenti esce spesso l ambo in convergenza su tutte le ruote..speriamo ciaooo

kiros

Posted on 5/2/2018, 17:31

Group:: Utente

Posts:: 2,856

Status:

Grazie
kiros

12 replies since 9/8/2014, 10:38 2159 views