|
PureBytes Links
Trading Reference Links
|
Ray,
For the TradeStation bunch, if I understand your logic
(and don't bet that I do), the following is a PaintBar
for the Hammer.
Please note that this is 2000i code (not ts4).
The attached shows a few hammers on sp cash 30 min.
Clyde
{***************************************
Written by: Clyde Lee
Idea from: RayF
Description:
Ref((C-L)/(H-L),-1)<=.30 AND
((C-L)/(H-L)) >= .70 AND
Ref(ATR(1),-1) >ATR(10) AND
ATR(1) >= ATR(10)
****************************************}
Vars: ATR1(TrueRange), ATR10(AvgTrueRange(10)), CLHL(0);
ATR1 = TrueRange;
ATR10= AvgTrueRange(10);
Value9 = (h-l);
CLHL = (C-L)/Iff(Value9>0,Value9,.001);
Condition1 =CLHL[1] <= .30 AND
CLHL >= .70 AND
ATR1[1] > ATR10 AND
ATR1 >= ATR10;
If Condition1 Then Begin
Value1 = H;
value2 = L;
PlotPaintBar(value1, value2, "PaintBar");
Alert("Had a Hammer");
End;
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
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
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
To subscribe / unsubscribe from SwingMachine list
http://www.egroups.com/list/swingmachine/
After joining list the freeware SwingMachine program
(DOS Version) is available in the VAULT at:
http://www.egroups.com/list/swingmachine/
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
----- Original Message -----
From: <Candlestyk@xxxxxxx>
To: <realtraders@xxxxxxxxxxxxxxx>
Sent: Thursday, June 15, 2000 13:14
Subject: [RT] Re: trade this!
> Phil,
> Here is a similar study I call a two day Hammer. It is written for
> Metastock. The first day is a close near the low, the second day is a
close
> near the high. It also specifies an increase in Average True Range.
Good
> hammer days seem to be high volatility days too.
> You can further refine by requiring the low of the second day to be a
multi
> day low.
>
> Ref((C-L)/(H-L),-1)<=.30 AND
>
> ((C-L)/(H-L)) >= .70 AND
>
> Ref(ATR(1),-1) >ATR(10) AND
>
> ATR(1) >= ATR(10)
>
> RayF
>
>
>
Attachment Converted: "f:\eudora\attach\junk125.gif"
|