İndikatör Anti Volume Stop Loss by ilkertufekci

VWmaS:= sum(c*v,26)/sum(v,26);
AvgS := MOV(C,26,S);
VPC := VWmaS - AvgS  ;

VWmaF:= sum(c*v,12)/sum(v,12);
AvgF := MOV(C,12,S);
VPR := VWmaF/AvgF ;

VM:= MOV(V,12,S) / MOV(V,26,S);
VPCI:= VPC* VPR*VM;
DeV:= 2.0*  (VPCI * VM);

lenV1:= IF(VPC<0, int(ABS(VPCI-3)),1);
lenV:= IF(VPC>=0, int(ABS(VPCI+3)),lenV1);

VPCca := IF(VPC>-1 and VPC <0,-1,VPC);
VPCcb := IF(VPC < 1 and VPC >= 0,1,VPC);
VPCc := VPCca and VPCcb ;
ii:=Ref(lenV,-1);
Price:= (C + MOV(Ref(C,-ii)*1/  Ref(VPCc,-ii)*1/ Ref(VPR,-ii),ii,S))/100;
PriceV:=  MOV( Price+VPC+VPR,ii,S)/100;
Leen:= L-PriceV+DeV;
AVSL:= MOV(Leen,26,S);
AVSL