// Indicateur SAR de Wilder
// Chroniques de Bourse

once facteur=0.02
once increment=0.02
once maxfacteur=0.2
extreme1=extreme[1]
tendance1=tendance[1]
tmpsar1=tmpSAR[1]
high1=high[1]
low1=low[1]

if tendance1 = 1 then
extreme = max(extreme1, high)
if tmpsar1 > low then
tendance = -1
facteur = 0.02
tmpSAR = extreme
extreme = low
else
if extreme > extreme1 and facteur <maxfacteur then
facteur = min( maxfacteur, facteur + increment)
endif
tmpSAR =tmpsar1+facteur*(extreme-tmpsar1)
tmpSAR = min(tmpSAR,min(low,low1))
endif
elsif tendance1 = -1 then
extreme = min(extreme1, low )
if tmpsar1 <high then
tendance = 1
facteur = 0.02
tmpSAR = extreme
extreme = high
else
if extreme < extreme1 and facteur <maxfacteur then
facteur = min( maxfacteur, facteur + increment )
endif
tmpSAR = tmpsar1+facteur*(extreme-tmpsar1)
tmpSAR = max(tmpSAR,max(high,high1))
endif
else
facteur = 0.02
tmpSAR = low
extreme = high
tendance = 1
endif
return tmpsar1 coloured by tendance[1]