Overblog Suivre ce blog
Editer l'article Administration Créer mon blog
3 mars 2008 1 03 /03 /mars /2008 16:37

Indicateurs ATD, partie 1.

Je debute une nouvelle catégorie d'articles vous présentant les codes pour la pratique de l'ATD.  Je commence par le SAR (le code vient de jcp31) et le stochastic (c'est simplement le sto 14,5,5 expo).  Voici une vue de CSCO avec les indicateurs :

hk96.gif

Les codes pour Prorealtime :

//////////////// SAR jcp31 ///////////////////
if barindex < 1 then
    facteur =0.02
    tmpsar=low
    extreme=high
    tendance=1
else
    if tendance[1]=1 then
        extreme = max(extreme[1],high)
        if tmpsar[1] >low then
            tendance =-1
            facteur=0.02
            tmpsar=extreme
            extreme=low
        else
            if extreme>extreme[1] and facteur <0.2 then
                facteur=min(0.2,facteur+0.02)
            endif
            tmpsar=tmpsar[1]+facteur*(extreme-tmpsar[1])
            tmp=min(low,low[1])
            tmpsar=min(tmpsar,tmp)
        endif
    else
        extreme=min (extreme[1],low)
        if tmpsar[1]<high then
            tendance=1
            facteur=.02
            tmpsar=extreme
            extreme=high
        else
            if extreme<extreme[1] and facteur<.2 then
                facteur=min(.2,facteur+.02)
            endif
            tmpsar=tmpsar[1]+facteur*(extreme-tmpsar[1])
            tmp=max(high, high[1])
            tmpsar=max(tmpsar,tmp)
        endif
    endif
endif
return tmpsar[1] coloured by tendance[1]


////////////// STO ATD ////////////
r=5
q=5
p=14
plusHaut = highest[p](high)
plusBas = lowest[p](low)
oscillateur = (close - plusBas) / (plusHaut - plusBas) * 100
ligneK = ExponentialAverage[q](oscillateur)
ligneD = exponentialaverage[r](ligneK)
return ligneK as "%K", ligneD as "%D",20,50,80expoi_bug_fck

Partager cet article

Repost 0

commentaires