Scalper Pivot Points - code

[SKane777 <SKane777@xxxxxxx>]

Here we go again -Scaper Pivot points for only $350.

About six months ago I found out that a so called
friend of mine (Rick at S&P Bootcamp) was selling code
that belonged to me.  Months ago, I had sent him a copy for evaluation
purposes only.

Some of you may remember all those posts to the omega-list about this subject.

Rick has since admitted to me that it was my code
and that he would quit selling it. Unfortunately, I see he is
again trying to sell my code renaming it Scalper Pivot points.

The code is no more than a stochastic indicator with a few small wrinkles.

I have decided to post the code I sent to Rick at this time so nobody will
have to pay $350 for this show me study which I feel does not have much value.
  

Please experiment with the input values for different time periods
so as to allow for maximum curvefitting.


Input: 

  LRSBval(-0.12), {level which buys must be below}
  LRSSval(0.11), {level which sells must be above}
  Length3(20),{Length for buy LRS}
  Length4(20),{Length for sell LRS}
  FDBLen(20), {Number of bars to use for FastD calculation for buy side}
  FDSLen(20), {Number of bars to use for FastD calculation for sell side}
  FDBuy(6), {Value of FastD to signal long }
  FDSell(94), {Value of FastD to signal short }
  MAvgLen(20),{Length of moving average to compute bands}
  PctAbvMA(.1),{percentage distance away from lower band}
  PctBlwMA(.05);{percentage distance away from upper band}


Vars:

  PctAbvMAValue(0.0),
  PctBlwMAValue(0.0),
  FDBVal(0.0),
  FDSVal(0.0),
  FastDValL(0.0),
  FastDValS(0.0);


  PctAbvMAValue = (Average(Close,MAvgLen) * (100- PctAbvMA) / 100);
  PctBlwMAValue = (Average(Close,MAvgLen) * (100+ PctBlwMA) / 100);


  FDBVal = FastD(FDBLen);
  FDSVal = FastD(FDSLen);



  condition1 = c < PctAbvMAValue;
  
  condition2 = c > PctBlwMAValue;
  
  condition3=LinearregSlope(c,length3)<LRSBval;

  condition4=Linearregslope(c,length4)>LRSSval;

  condition5= (FDBVal <= FDBuy and FDBVal > FDBVal[1]) or
         (FDBVal[1] <= FDBuy and FDBVal > FDBVal[1]);

  condition6= (FDSVal >= FDSell and FDSVal < FDSVal[1]) or
         (FDSVal[1] >= FDSell and FDSVal < FDSVal[1]);
       


  if condition1 and condition3 and condition5  then begin
    Plot1(L - .5,"GoLong");
  end;

  if condition2 and condition4 and condition6 then begin
    Plot2(H + .5,"GoShort");
  end;