Squeez Power

CODE////////


REM Ecart type sur cours
ETCours=STD[20](close)
lc=lowest[150](STD[20](close))
Xcours=ETcours/lc
IF Xcours> 1.3 then
r=200
else
r =200+100*(1-(10/3)*(Xcours-1))
endif

REM SQUEEZE CARTER
MA = Average[20](TypicalPrice)
UpperBand = MA + 1.7*Average[20](Range)
LowerBand = MA - 1.7*Average[20](Range)

Bollup =BollingerUp[20](close)
Bolllow= BollingerDown[20](close)

Xksup = Bollup-upperband
xkinf = Bolllow-lowerband

If xksup>0 THEN
IF XKINF<0 THEN
XK=200
endif
endif


if xksup>0 THEN
IF XKINF>0 THEN
XK=250
endif
endif


If xksup<0 THEN
IF XKINF<0 THEN
XK=250
endif
endif

If xksup<0 THEN
IF XKINF>0 THEN
XK=300
endif
endif


REM Squeeze sur MACD
VNK=STD[20](MACDline[9,19,6](close))
LimitMini=Lowest[70](VNK)
XMACD=VNK/limitmini

IF XMACD>1.3 then
rm=200
else
rm =200+100*(1-(10/3)*(XMACD-1))
endif

REM Squeeze sur OBVD
a=STD[20](OBV(totalprice))
l=lowest[100](a)
XOBVD=a/l

IF XOBVD>1.3 then
ro=200
else
ro =200+100*(1-(10/3)*(XOBVD-1))
endif

m=2*((r+rm+ro+xk)/4-200)

return r as "Puissance squeeze sur cours", rm as "Puissance squeeze MACD", ro as "Puissance squeeze OBVD", xk as "Puissance squeeze Carter",m as "Puissance squeeze moyen"