// Version 1.1
quality=5
m1 = average[20](close)
m2 = exponentialaverage[20](close)
a = m2 - m1
rge = averagetruerange[10](close)
dir = 0
flag1 = 1
for i = 1 to quality
if ( a > a[i+1] ) then
flag1 = 0
break
endif
next
if ( a > a[1] and flag1 = 1 ) then
dir = 1
endif
flag2 = 1
for i = 1 to quality
if ( a < a[i+1] ) then
flag2 = 0
break
endif
next
if ( a < a[1] and flag2 = 1 ) then
dir = -1
endif
if ( hour > 22 or hour < 8 ) then
dir = 0
endif
if ( dir = 1 ) then
drawarrowup(barindex[1], high - rge ) coloured(200,250,200,200)
endif
if ( dir = -1 ) then
drawarrowdown(barindex[1], low + rge ) coloured(250,200,200,200)
endif
// mode indicateur
return dir as "acceleration"
--> Avec le AS cela corrige le problème de mise à l'échelle
