defparam drawonlastbaronly=true
iatr=exponentialaverage[100](tr)
REM TRUE RANGE
amax=max(dclose(1),dhigh(0))
amin=min(dclose(1),dlow(0))
REM Calcul Volatilité journalière minimale par rapport à l'ouverture
volathaute=amax[1]-dopen(1) // calcul de la volatilité au dessus de l’ouverture de la veille.
volatbasse=dopen(1)-amin[1] // calcul de la volatilité en dessous de l’ouverture de la veille.
volatmin=min(volatbasse,volathaute) // on veut la plus petite des deux
REM moyenne volatilité minimale sur 10 jours
if opendate<>opendate[1] then
$memo[lastset($memo)+1]=volatmin
endif
if lastset($memo)>=10 then
Volatcumu=0
For i= lastset($memo)-9 to lastset($memo)
Volatcumu= Volatcumu+$memo[i]
next
VolatMoy=Volatcumu/10
endif
REM Définition des limites des 2 zones décrites plus haut:
ZoneUP= dopen(0)+VolatMoy
ZoneDN= dopen(0)-VolatMoy
valup=round(zoneup,2)
valdn=round(zonedn,2)
ouverture=round(dopen(0),2)
if intradaybarindex=0 or day<>day[1] then
startbar=barindex
startprice=open
endif
if islastbarupdate then
ALPHAfond=25
drawrectangle(startbar,startprice,barindex,zoneup) coloured(0,204,0,ALPHAfond) bordercolor(0,0,0,20)
DRAWTEXT("#valup#",BARINDEX-3,valup+1*iatr,SansSerif,Bold,14) coloured(51,102,255)
drawrectangle(startbar,startprice,barindex,zonedn) coloured(255,51,51,ALPHAfond) bordercolor(0,0,0,20)
DRAWTEXT("#valdn#",BARINDEX-3,valdn-1*iatr,SansSerif,Bold,14) coloured(204,0,0)
DRAWTEXT("#ouverture#",BARINDEX-3,ouverture-1*iatr,SansSerif,Bold,14) coloured(0,0,0)
endif
return
.
