input
    inp0:"%K Time Periods", 5, 1, 20;
    inp1:"%K Slowing", 3, 1, 20;
    inp2:"%D Time Periods", 3, 1, 20;
end_input

var
  KPERIODS:=inp0;
  KSLOW:=inp1;
  DPERIODS:=inp2;
  K:=100 * (CumSum(CLOSE - Lowest(LOW, KPERIODS), KSLOW)) / (CumSum(Highest(HIGH, KPERIODS) - Lowest(LOW,KPERIODS), KSLOW));
  D:=Mov(K, DPERIODS, S);
end_var

return D;