Inputs :


Series(Close), 


Ratio(   1),   


Art(   0),


Forward(   2),


Back(   2), 


ColorDwn(   red),


ColorUp(   Blue), 


BackColor(   black), {Color equals the back color of your chart}


LineWidth(   1),


Length(   5);





Variables : LongStop(   0),Lstop(   0),ShortStop(   0),Sstop(   0), CloseX(0   ), HighX(   0), LowX(0    ), DataInput(0   );





{Using a moving average can produce better results and less }{whipsaws, use a MA thats has less lag}


{DataInput = T3Average(Series,6);}


{DataInput = jrc.jma.2k(Series,6,0);}


If Art=0 then                                      


DataInput = Series;


If Art=1 then


DataInput = average (Series,Length);


CloseX = DataInput;


HighX = High;


LowX = Low;








{calculate long stop}


Lstop = lowx-(highx[   1] - lowx[   1])*ratio;





If Lstop < Longstop and condition1 = true then Lstop = Longstop[   1];





If closex > highest(closex[   1],Forward) or lowx < lowest(lowx[   1],Back) and condition1 = true then begin


Longstop = Lstop;


end


else begin


Longstop = Longstop[1   ];


end;





Condition1 = closex > Longstop;


Condition2 = closex < Longstop;





IF Condition1 and condition98 = false THEN 


Condition99 = TRUE{short}


ELSE IF Condition2 THEN


Condition99 = FALSE;{long}





If Condition99 then Begin


SetPlotColor(1, ColorUp);


SetPlotWidth(1,LineWidth);


END


ELSE BEGIN


SetPlotColor(1, BackColor);


SetPlotWidth(1,0);


End;











Sstop = highx+(highx[  1] - lowx[1    ])*ratio;





If Sstop > Shortstop[1    ] and condition3 = true then Sstop = shortstop[1    ];





If closex < lowest(closex[1    ],Forward) or highx > highest(highx[1    ],Back) and condition3 = true then begin


Shortstop = Sstop;


end


else begin


Shortstop = Shortstop[1    ];


end;





Condition3 = closex <= Shortstop;


Condition4 = closex > Shortstop;





IF Condition3 and condition99 = false THEN 


Condition98 = TRUE{short}


ELSE IF Condition4 THEN


Condition98 = FALSE;{long}








If Condition98 then Begin


SetPlotColor(2, ColorDwn);


SetPlotWidth(2,LineWidth);


END


ELSE BEGIN


SetPlotColor(2, BackColor);


SetplotWidth(2,0);


End;








Plot1(Longstop,"Long");


Plot2(Shortstop,"Short");