husrt
Ciao,
ho trovato su un sito francese
HURST Cycles (page 3) | Autres sujets
degli indicatori di ciclo di hurst
[Graphe AT PRo : programmation] (page 164) | Logiciels d'analyse, solo che il codice e' per mt4, riuscite a tradurlo in linguaggio prorealtime? Credo che settati correttamente potrebbero dare ottimi risultati. Io sinceramente non saprei da dove partire
/Hurst Cycles Profiles
//====================
//version adaptée de Wtfx sur MT4
//ggo
//31/05/2011
//=====================
PerLong = P1
DemiLong = ENTIER(P1/2)
PerMed = P2
DemiMed = ENTIER(P2/2)
PerShort = P3
DemiShort = ENTIER(P3/2)
// P4 = nombre de barres considérées
Si RangHisto=FinHisto //on se place en fin d'historique
Alors
i=P4
TantQue i>=0 Faire
sLong=(PerLong+1)*Cloture(i)
swLong=PerLong+1
j=1
k=PerLong
TantQue j<=PerLong Faire
sLong=sLong+k*Cloture(i+j)
swLong=swLong+k
Si j<=i Alors
sLong=sLong+k*Cloture(i-j)
swLong=swLong+k
FinSi
j=j+1
k=k-1
FinTantQue
sMed=(PerMed+1)*Cloture(i)
swMed=PerMed+1
j=1
k=PerMed
TantQue j<=PerMed Faire
sMed=sMed+k*Cloture(i+j)
swMed=swMed+k
Si j<=i Alors
sMed=sMed+k*Cloture(i-j)
swMed=swMed+k
FinSi
j=j+1
k=k-1
FinTantQue
sShort=(PerShort+1)*Cloture(i)
swShort=PerShort+1
j=1
k=PerShort
TantQue j<=PerShort Faire
sShort=sShort+k*Cloture(i+j)
swShort=swShort+k
Si j<=i Alors
sShort=sShort+k*Cloture(i-j)
swShort=swShort+k
FinSi
j=j+1
k=k-1
FinTantQue
sDLong=(DemiLong+1)*Cloture(i)
swDLong=DemiLong+1
j=1
k=DemiLong
TantQue j<=DemiLong Faire
sDLong=sDLong+k*Cloture(i+j)
swDLong=swDLong+k
Si j<=i Alors
sDLong=sDLong+k*Cloture(i-j)
swDLong=swDLong+k
FinSi
j=j+1
k=k-1
FinTantQue
sDMed=(DemiMed+1)*Cloture(i)
swDMed=DemiMed+1
j=1
k=DemiMed
TantQue j<=DemiMed Faire
sDMed=sDMed+k*Cloture(i+j)
swDMed=swDMed+k
Si j<=i Alors
sDMed=sDMed+k*Cloture(i-j)
swDMed=swDMed+k
FinSi
j=j+1
k=k-1
FinTantQue
sDShort=(DemiShort+1)*Cloture(i)
swDShort=DemiShort+1
j=1
k=DemiShort
TantQue j<=DemiShort Faire
sDShort=sDShort+k*Cloture(i+j)
swDShort=swDShort+k
Si j<=i Alors
sDShort=sDShort+k*Cloture(i-j)
swDShort=swDShort+k
FinSi
j=j+1
k=k-1
FinTantQue
MTL(i) = sDLong/swDLong - sLong/swLong
MTM(i) = sDMed/swDMed - sMed/swMed
MTS(i) = sDShort/swDShort - sShort/swShort
i=i-1
FinTantQue
FinSi
//fin du code