Diabolo divergence

/// VARIABLES
///
/// p=50
/// x=188 (dépend du TF)
///
///
REM volatility magic trend
//////////////////////////////
ATR1=average[2](average[2](average[2](AverageTrueRange[5](close))))

if (CCI[50](typicalPrice)>=0) then
magic=Low[0]-AverageTrueRange[5](close)
endif

if (CCI[50](typicalPrice)<0) then
magic=High[0]+AverageTrueRange[5](close)
endif

if (CCI[50](typicalPrice)>=0 and magic magic=magic[1]
endif

if (CCI[50](typicalPrice)<0 and magic>magic[1]) then
magic=magic[1]
endif

if magic[1] c=1
elsif magic[1]>magic then
c=-1
endif

if c[1]=1 and magic[1]=magic then
c=1
elsif c[1]=-1 and magic[1]=magic then
c=-1
endif


h=highest[x](ATR1)
l=lowest[x](ATR1)

ATR2=((ATR1)/(h-l))-1

if c=1 then
ATR=ATR2
elsif c=-1 then
ATR=-ATR2
endif

//////////////////////////////

REM diabolo-menthe indicator
//////////////////////////////
diabolo1=(exponentialaverage[2](exponentialaverage[2](exponentialaverage[2](close)))-average[p](customclose))*BollingerBandWidth[14](close)*10


h=highest[x](diabolo1)
l=lowest[x](diabolo1)

diabolo2=((200*((diabolo1)/(h-l))+(exponentialaverage[2](exponentialaverage[2](CCI[14](typicalPrice))))/2)/2)+ATR*25
//////////////////////////////



return 0,diabolo2 as"diabolo-menthe", average[5](diabolo2) as"delay"



merci a l auteur pour le travail