{ Downloaded From https://www.WiseStockTrader.com }
LE:=Input("LENGHT",1,200,14);
Esp:=Input("Exponent",1,200,5);
VRB:= Abs( Stoch(LE,1)-50)/50;

MEsp:=2/(Esp+1);

CaMe1:=If(Cum(1)<=((Le+Esp)*2),C-O,PREV+MEsp*VRB*((C-O)-PREV));
CaMe2:=If(Cum(1)<=((Le+Esp)*2),H-L,PREV+MEsp*VRB*((H-L)-PREV));
CaMe11:=If(Cum(1)<=((Le+Esp)*2),CaMe1,PREV+MEsp*VRB*(CaMe1-PREV));
CaMe22:=If(Cum(1)<=((Le+Esp)*2),CaMe2,PREV+MEsp*VRB*(CaMe2-PREV));
ECO:=CaMe11/CaMe22*100;

ECO;
0