/*******************************************************************


Description : This Indicator plots a digital Stochastic


Provided By : kahler / quanttrader.at (C) Copyright 2008


********************************************************************/





Length=Param("Length", 5, 1, 100, 1);


KAdjust=Param("KAdjust", 3, 1, 100, 1);


DAdjust=Param("DAdjust", 3, 1, 100, 1);








KAdjusted = StochK(KAdjust, Length);


DAdjusted = StochD(DAdjust, Length);





//{ Digitalisierung }


summ=IIf((22*KAdjusted+8*DAdjusted)/30 >50, 1, -1);





Plot(WMA(summ,Length), "Stoch. Dig.", colorBlue);