İndikatör Volume Price Confirmation Indicator VPCI

x:=Input("long term periods",30,200,50);
y:=Input("short term periods",5,30,10);
(Mov(C,x,VOL)-Mov(C,x,S))*
(Mov(C,y,VOL)/Mov(C,y,S))*
(Mov(V,y,S)/Mov(V,x,S))

LP:=Input("Long Term Length",1,500,20);
SP:=Input("Short Term Length",1,500,5);
VPCISMMAL:=Input("VPCI SMOOTHING LENGTH",1,500,8);
VWMALP:=SUM(C*V,LP)/SUM(V,LP);
VPC:=(VWMALP-Mov(C,LP,S));
VWMALS:=SUM(C*V,SP)/SUM(V,SP);
VPR:=VWMALS/Mov(C,SP,S);
VM:=Mov(V,SP,S)/Mov(V,LP,S);
VPCI:=VPC*VPR*VM;
VPCISM:=MOV(VPCI,VPCISMMAL,S);
VPCI;
VPCISM:0