СТОХАСТИК ДИНАПОЛИ

Type: Function, Name: PreferredSlowK

Inputs:
SlowKLen(NumericSeries),
FastKLen(NumericSeries);

PreferredSlowK=PreferredSlowK[1]+((1/SlowKLen)*
(FastK(FastKLen)-PreferredSlowK[1]));

Type: Function, Name: PreferredSlowD

Inputs:
FastKLen(NumericSeries),
SlowKLen(NumericSeries),
SlowDLen(NumericSeries);

PreferredSlowD = PreferredSlowD[1]+((1/SlowDLen)*
(PreferredSlowK(SlowKLen, FastKLen)-
PreferredSlowD[1]));

Type: Indicator, Name: DiNapoli Stochastic Preferred

Input: FastKLen(8), SlowKLen(3), SlowDLen(3);

Plot1(PreferredSlowK(SlowKLen, FastKLen), «%K» );
Plot2(PreferredSlowD(FastKLen, SlowKLen, SlowDLen), «%D» );
Plot3(80);
Plot4(20);

If CheckAlert then begin
If Plot1 crosses above Plot1 or Plot1 crosses below Plot2 then
Alert = TRUE;
End;