--
BB:=CLOSE;
EMA08[1]:=BB[1];
EMA17[1]:=BB[1];
FAST[1]:=0;
SLOW[1]:=0;
FOR I=2 TO DATACOUNT DO BEGIN
EMA08[I]:=(((BB[I] * 2) + (EMA08[(I - 1)] * 7.3896)) / 9.3896);
EMA17[I]:=(((BB[I] * 2) + (EMA17[(I - 1)] * 16.5185)) / 18.5185);
FAST[I]:=(EMA08[I] - EMA17[I]);
SLOW[I]:=(((FAST[I] * 2) + (SLOW[(I - 1)] * 8.0503)) / 10.0503);
END;
DMP:(((((18.5185 * 9.3896) * SLOW) + ((EMA17 * 9.3896) * 16.5185)) - ((EMA08 * 18.5185) * 7.3896)) / 18.2578),SHIFT1,COLORBLUE;
DNDMP:PARTLINE((CLOSE > DMP),DMP),SHIFT1,COLORRED;
DRAWICON((SYSPARAM(3) = BARSCOUNT(CLOSE)),DMP,12),SHIFT1;
STICKLINE(C>dmp,O,C,10,0),COLORRED;
STICKLINE(C<dmp,O,C,10,0),COLORCYAN;