SuperSar Strategy by Dexter

I took the liberty to write the CTL code for the strategy i found on
http://www.free-forex-systems.com/

Full description of this strategy can be found:
http://www.free-forex-systems.com/forex-trading-system-SuperSar-Strategy

The code for those that are using a new version of dealbook or prostation.

strategy SuperSarStrategy;
input period = 10, lots = 1,
 CalcPriceType = 1,
  TrendPriceType = 2,
  VolatPeriod = 1,
  VolatCoeff = 1.8,
  AvgToVolatRatio = 10,
  UpDnCalcType = 6; 
begin
integer currentbar;
SuperTrend(CalcPriceType, TrendPriceType, VolatPeriod, VolatCoeff, AvgToVolatRatio, UpDnCalcType);
currentbar:= back(SuperTrend.Stop);
if currentbar < front(SuperTrend.Stop)+2 then
return;
Parabolic_SAR();
if SuperTrend.Stop[currentbar-1] < SuperTrend.AvgPrice[currentbar-1] and
    SuperTrend.Stop[currentbar-2] > SuperTrend.AvgPrice[currentbar-2] and
    close[currentbar]>Parabolic_SAR.line[currentbar] and
    not long() and not short() then buy(lots);
   
if SuperTrend.Stop[currentbar-1] > SuperTrend.AvgPrice[currentbar-1] and
    SuperTrend.Stop[currentbar-2] < SuperTrend.AvgPrice[currentbar-2] and
    close[currentbar]<Parabolic_SAR.line[currentbar] and
    not long() and not short() then sell(lots);
   
if long() and close[currentbar]<Parabolic_SAR.line[currentbar] then exitlong();
if short() and close[currentbar]>Parabolic_SAR.line[currentbar] then exitshort();
end. 

The code for those that are using the old version of dealbook or prostation.

strategy SuperSarStrategy;
input period = 10, lots = 1,
 CalcPriceType = 1,
  TrendPriceType = 2,
  VolatPeriod = 1,
  VolatCoeff = 1.8,
  AvgToVolatRatio = 10,
  UpDnCalcType = 6;
vars currentbar(number);
begin
SuperTrend(CalcPriceType, TrendPriceType, VolatPeriod, VolatCoeff, AvgToVolatRatio, UpDnCalcType);
currentbar:= back(SuperTrend.Stop);
if currentbar < front(SuperTrend.Stop)+2 then
return;
Parabolic_SAR();
if SuperTrend.Stop[currentbar-1] < SuperTrend.AvgPrice[currentbar-1] and
    SuperTrend.Stop[currentbar-2] > SuperTrend.AvgPrice[currentbar-2] and
    close[currentbar]>Parabolic_SAR.line[currentbar] and
    not long() and not short() then buy(lots);
   
if SuperTrend.Stop[currentbar-1] > SuperTrend.AvgPrice[currentbar-1] and
    SuperTrend.Stop[currentbar-2] < SuperTrend.AvgPrice[currentbar-2] and
    close[currentbar]<Parabolic_SAR.line[currentbar] and
    not long() and not short() then sell(lots);
   
if long() and close[currentbar]<Parabolic_SAR.line[currentbar] then exitlong();
if short() and close[currentbar]>Parabolic_SAR.line[currentbar] then exitshort();
end.

Conclusion after backtest:

I agree with the advantages and disadvantage given on that site. It performs great in a trending market but it is terrible if it is ranging. Don't start this strategy when you expect it to be a "ranging" day.