// Downloaded From https://www.WiseStockTrader.com
//-- Create by KelvinHand ---
LE=Param("LENGHT",14,1,200);
Esp=Param("Exponent",5, 1,200);

VRB= abs( StochK(LE,1)-50)/50;

MEsp=2/(Esp+1);

C_O = C-O;
H_L = H-L;

C1 = Cum(1)<=((Le+Esp)*2);

i=0;
CaMe1[i]=0;
CaMe2[i]=0;
i++;
for(;i<BarCount; i++)
{
  prev1 = CaMe1[i-1];
  prev2 = CaMe2[i-1];


  if (C1[i])
  {
      CaMe1[i]=C_O[i];
      CaMe2[i]=H_L[i];

  }
  else
  {
      CaMe1[i]=PREV1+MEsp[i]*VRB[i]*(C_O[i]-PREV1);
      CaMe2[i]=PREV2+MEsp[i]*VRB[i]*(H_L[i]-PREV2);

  }
}


i=0;
CaMe11[i]=0;
CaMe22[i]=0;
i++;

for(;i<BarCount; i++)
{
  prev1 = CaMe11[i-1];
  prev2 = CaMe22[i-1];


  if (C1[i])
  {
      CaMe11[i]=CaMe1[i];
      CaMe22[i]=CaMe2[i];

  }
  else
  {
      CaMe11[i]=PREV1+MEsp[i]*VRB[i]*(CaMe1[i]-PREV1);
      CaMe22[i]=PREV2+MEsp[i]*VRB[i]*(CaMe2[i]-PREV2);

  }
}

ECO=CaMe11/CaMe22*100;

Plot(ECO, "Auto-adaptive Ergotic Candlestick Oscillator", colorRed);
Plot(0, "", colorGrey50);