Function: PreferredSlowK

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

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

 Function: PreferredSlowD

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

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

 Indicator: 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;

 Indicator : Pretty Weird Late Night Stuff

input:NUM(10),avglen(5),thold(10);

value1 =
MaxList(h-h[1],h-h[2],h-h[3],h-h[4],h-h[5],h-h[6],h-h[7],
h-h[8],h-h[9],h-h[10],h-h[11],h-h[12],h-h[13],h-h[14],
h-h[15],h-h[16],h-h[17],h-h[18],h-h[19],h-h[20]);

value3 =
MaxList(h-h[21],h-h[22],h-h[23],h-h[24],h-h[25],h-h[26],
h-h[27],h-h[28],h-h[29],h-h[30],h-h[31],h-h[32],h-h[33],
h-h[34],h-h[35],h-h[36],h-h[37],h-h[38],h-h[39],h-h[40]);

value5 =
MaxList(h-h[41],h-h[42],h-h[43],h-h[44],h-h[45],h-h[46],
h-h[47],h-h[48],h-h[49],h-h[50],h-h[51],h-h[52],h-h[53],
h-h[54],h-h[55],h-h[56],h-h[57],h-h[58],h-h[59],h-h[60]);

value2 =
MinList(l-l[1],l-l[2],l-l[3],l-l[4],l-l[5],l-l[6],l-l[7],
l-l[8],l-l[9],l-l[10],l-l[11],l-l[12],l-l[13],l-l[14],
l-l[15],l-l[16],l-l[17],l-l[18],l-l[19],l-l[20]);

value4 =
MinList(l-l[21],l-l[2],l-l[23],l-l[24],l-l[25],l-l[26],
l-l[27],l-l[28],l-l[29],l-l[30],l-l[31],l-l[32],l-l[33],
l-l[34],l-l[35],l-l[36],l-l[37],l-l[38],l-l[39],l-l[40]);

Value6 =
MinList(l-l[41],l-l[2],l-l[43],l-l[44],l-l[45],l-l[46],
l-l[47],l-l[48],l-l[49],l-l[50],l-l[51],l-l[52],l-l[53],
l-l[54],l-l[55],l-l[56],l-l[57],l-l[158],l-l[59],l-l[60]);

Value9 =average( MaxList(0,value1)*SquareRoot(num),avglen);
Value10 =average( MinList(0,value2)*SquareRoot(num),avglen);
Value11= value9-(-value10);
plot1(value11,"ax");

if value9< -value10 then begin
plot2(-thold,"di-");end;

if value9> -value10 then begin
plot3(thold,"di+");end;

if value11>0 then
if Value11[0]>(average(value11[1],2)) then plot4(0,"TrendStart") ;

if value11<0 then
if Value11[0]<(average(value11[1],2)) then plot4(0,"TrendStart");

indicator: pferoc  

input:price(close),period(9), lev(50);

Var:pferoc(0);

If C>C[PERIOD] then
pferoc = SquareRoot(Square(RateOfChange(price,period)) + 100) / Summation(SquareRoot(Square(RateOfChange(price,1)) +1),period) * 100
else
pferoc = -SquareRoot(Square(RateOfChange(price,period)) + 100) / Summation(SquareRoot(Square(RateOfChange(price,1)) +1),period) * 100;


value1 = xaverage(pferoc,4);


plot1(value1,"pferoc");
plot2(lev);
plot3(-lev);
plot4(average(plot1,4));