Pds Double 30 5 100
APds Double 3 0 100
Code: Select all
Apr:= (High + Low + Close)/3;
At:=ATR(pds)*0.1;
Vpd:= If (APR >= (Ref(APR,1) + at),Volume,0);
VNd:= If (APR <= (Ref(APR,1) - at),Volume,0);
VP:= Sum(VPD,Pds);
VN:= Sum(VND,Pds);
VPN: (((VP-VN)/MA(Volume,Pds))/Pds)*100,Width2,Color.Blue;
VPNA: EMA(VPN,APDS),Width2,Color.Red;
MMax:= Max(VPN,VPNA);
MMin:= Min(VPN,VPNA);
FillRGN(MMin > 0,MMin,0),Brush#200000FF;
FillRGN(MMax < 0,MMax,0),Brush#30FF7F50;
FILLRGN(VPN>VPNA,VPN,VPNA),Brush#600000FF;
FILLRGN(VPNA>VPN,VPNA,VPN),Brush#50FF0000;
UpperZone: MA(VPN,34)+(1.3185*Std(VPN,34)),Width1,ColorBlack;
LowerZone: MA(VPN,34)-(1.3185*Std(VPN,34)),Width1,ColorBlack;