PureBytes Links
Trading Reference Links
|
just use the ELA he send a day later - works fine
rgds hans
> 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
> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
>
>
|