Créer un indicateur « DOW »

Bonjour à tous,

Comme promis, à mon retour de vacances je procède à quelques codages d’indicateurs suivant certaines de vos demandes.
J’ai jugé intéressant de répondre à une demande : réaliser un indicateur qui affiche visuellement un stop loss évolutif, selon la théorie de Charles Dow.

La vidéo expose brièvement un petit rappel de cette théorie.
Nous allons surtout voir que ce n’est pas aisé du tout de répondre à cette demande ! Pour cela, je vous propose 4 indicateurs :

  • un canal de Donchian
  • un canal à base de Fractales
  • un indicateur classique Zig Zag
  • un indicateur Commodity Channel index « extrémités »

 

 

 

Voici le code du Canal de Donchian (avec le décalage d’une période) : 

P = 10 // nombre de périodes

HAUT = highest[p](high[1])
BAS = lowest[p](low[1])

// Il faut afficher l'indicateur sur le graphique principal
return haut as "high", bas as "low"

 

Voici le code du canal à base de Fractales : 

nCandles = 11
decalage = 5

// Nombres de bougies de chaque côté de la bougie extrême (fractale)
Nside = (nCandles - 1) / 2

// Définition de la fractale supérieure
IF high[Nside] >= highest[nCandles](close[decalage]) THEN
DOWup = high[Nside]
ENDIF

// Définition de la fractale inférieure
IF low[Nside] <= lowest[nCandles](close[decalage]) THEN
DOWdown = low[Nside]
ENDIF

RETURN DOWup, DOWdown

 

Voici le code de l’indicateur « Zig Zag » (extrait du site prorealcode.com) :

cp = 20
once lastpoint = 0

if high[cp] >= highest[2*cp+1](high) then
LH = 1
else
LH = 0
endif

if low[cp] <= lowest[2*cp+1](low) then
LL = -1
else
LL = 0
endif

if LH = 1 then
TOPy = high[cp]
TOPx = barindex[cp]
endif

if LL = -1 then
BOTy = low[cp]
BOTx = barindex[cp]
endif

if LH>0 and (lastpoint=-1 or lastpoint=0) then
DRAWSEGMENT(lastX,lastY,TOPx,TOPy) COLOURED(200,0,0,255)
DRAWTEXT("■",TOPx,TOPy,Dialog,Bold,20) coloured(200,0,0,255)
lastpoint = 1
lastX = TOPx
lastY = TOPy
endif

if LL<0 and (lastpoint=1 or lastpoint=0) then
DRAWSEGMENT(lastX,lastY,BOTx,BOTy) COLOURED(0,200,0,255)
DRAWTEXT("■",BOTx,BOTy,Dialog,Bold,20) coloured(0,200,0,255)
lastpoint = -1
lastX = BOTx
lastY = BOTy
endif

RETURN TOPy, BOTy

 

 

Voici le code de l’indicateur CCI extr (mettre l’affichage en histogramme et changer la couleur) : 

once nivCCI = 0

IF CCI[20] crosses over 100 THEN
nivCCI = 1
ELSIF CCI[20] crosses under -100 THEN
nivCCI = -1
ENDIF

RETURN nivCCI

 

 

Share Button