Re: Parabolic

["Charles V. Mercer, Jr." <sundance@xxxxxxxxxxx>]

Dear Clyde, Unable to get the above to verify. Please Advise.

Best'
cvmjr.

Study           : Trend Finder (LeeX4)
        
Last Edit       : 8/7/98
Provided By : Andrew Abraham                   (c) Copyright 1998
Modified By : Clyde Lee (SYTECH/FuturesMagic)  (c) Copyright 1998
********************************************************************
}
Inputs:         ATRMult(NumericSimple),
                ATRLeng(NumericSimple);
Vars:           ATRVal(0),HHigh(H),LLow(L),Position(1),SAR(c);
                        
If ATRLeng<>0 then begin
   if High > HHigh then         HHigh = High;
   if Low  < LLow then  LLow = Low;
   ATRVal = WAverage(TrueRange,ATRLeng);
        
   if Position = 1 then begin
      if Low  <= SAR and Low[1] <SAR then  Position = -1; {Reverse}
   end
   else begin
      if High >= SAR and High[1]>SAR then  Position = +1; {Reverse}
   end;
   if Position = 1      then begin
      if Position[1] <> 1 then begin
         LLow = Low;
         HHigh = High;
         SAR = HHigh-ATRVal*ATRMult;
      end
      else begin
         SAR = HHigh[1]-ATRVal*ATRMult;
         If SAR[1]>SAR THEN SAR=SAR[1]*.9+SAR*.1;
      end;
   end
   else If Position < 0 then begin
      if  Position[1] <> -1 then begin
         LLow = Low;
         HHigh = High;
         SAR = LLow+ATRVal*ATRMult;
      end
      else begin
         SAR = LLow[1]+ATRVal*ATRMult;
         If SAR[1]<SAR THEN SAR=SAR[1]*.9+SAR*.1;
      end;
   end;
   LeeX4 = SAR*Sign(Position);
End
Else  LeeX4=C;


- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Clyde Lee   Chairman/CEO        (Home of SwingMachine)
SYTECH Corporation              email:   <clydelee@xxxxxxx> 
7910 Westglen, Suite 105        Work:    (713) 783-9540
Houston,  TX  77063             Fax:     (713) 783-1092     
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -