RE: Ross Hook

["John F. Berentson" <jfbnyc@xxxxxxxxxxxxxxxx>]

A Ross Hook. Trade the breakout of the point.

   |
  |  |
 |
|

I have the following Ross Hook indicator. Never used it and have no idea
where I got it. Don't even know how or if it works. I just collect this kind
of thing with the idea of looking it over before I die. Probably won't.

Use at your own risk.

JFB
Shaven Heads Trading
NYC

------------------------------------------
INPUT:  GannDays(4),SigExpir(50);
VAR:
MarketHigh(-99999),MarketLow(999999),PHi(0),PLo(0),Idx(0),PrevPHiBar(0),PBar
Count(0),LowestPLo(0),LowestPLoBar(0),PLoFound(FALSE),Lo2HiDays(0),

TempBuyPrice(0),TempBuyBar(0),TempBuyON(FALSE),PrevPLoBar(0),HighestPHi(0),H
ighestPHiBar(0),PHiFound(FALSE),Hi2LoDays(0),
	        TempSellPrice(0),TempSellBar(0),TempSellON(FALSE);

ARRAY: PHiBar[1500](0),PHiPrice[1500](0),PLoBar[1500](0),PLoPrice[1500](0);



PLoFound=FALSE;
PHiFound=FALSE;

If High>MarketHigh Then	{Capture Highest High of Market}
	MarketHigh=High
Else
	MarketHigh=MarketHigh[1];

If Low<MarketLow Then    {Capture Lowest Low of Market}
	MarketLow=Low
Else
	MarketLow=MarketLow[1];

If High<High[1] and High[1]>High[2]    {Identify Privot Highs}
Then Begin
	PHi=PHi+1;		{Pivot High Counter}
	PHiBar[Phi]=CurrentBar -1;    {Most Recent Pivot High Bar}
	PHiPrice[PHi]=High[1];           {Most Recent Pivot High Price}

If Low>Low[1] and Low[1]<Low[2]
Then Begin
	PLo=PLo+1;
	PLoBar[PLo]=CurrentBar-1;
	PLoPrice[PLo]=Low[1];
End;

If PHiBar[PHi]=CurrentBar -1 and PHiPrice[PHi]<MarketHigh and PHi>1 and
PLo>1
Then Begin
	For Idx=PHi-1 DownTo 1
Begin
	If PHiPrice[PHi]<PHiPrice[Idx]
Then Begin
	PrevPHiBar=PHiBar[Idx];
	Idx=1;
	End;
End;

PBarCount=PHiBar[PHi]-PrevPHiBar;

If PBarCount>GannDays
Then Begin
	LowestPlo=PLoPrice[PLo];
	LowestPLoBar=PLoBar[PLo];

For Idx=PLo-1 DownTo 1
Begin

If PLoBar[Idx]>PrevPHiBar
Then Begin
	If LowestPLo>PLoPrice[Idx]
Then Begin
	LowestPLo=PLoPrice[Idx];
	LowestPLoBar=PLoBar[Idx];
	PLoFound=TRUE;
	End;
End Else
	Idx=1;
	End;
End;

If PLoFound
Then Begin
Lo2HiDays=PHiBar[Phi]-LowestPLoBar;
If Lo2HiDays>=GannDays and PHiBar[PHi]>TempBuyBar
Then Begin
	TempBuyPrice=PHiPrice[PHi];
	TempBuyBar=PHiBar[PHi];
	TempBuyOn=TRUE;
	End;
End;
End;


If TempBuyON
Then Begin
	If High<TempBuyPrice and CurrentBar-TempBuyBar<=SigExpir
Then
	Plot1(TempBuyPrice+1*MinMove POINT,"Phi")
Else
	TempBuyON=FALSE;
End;


If PLoBar[PLo]=CurrentBar-1 and PLoPrice[PLo]>MarketLow and PHi>1 and PLo>1
Then Begin
	PBarCount=0;
For Idx=PLo-1 DownTo 1
Begin
	If PLoPrice[PLo]>PLoPrice[Idx]
	Then Begin
	PrevPLoBar=PLoBar[Idx];
	PBarCount=PLoBar[PLo]-PrevPLoBar;
	Idx=1;
	End;
End;

If PBarCount>GannDays
Then Begin
	HighestPHi=PHiPrice[PHi];
	HighestPHiBar=PHiBar[PHi];
	For Idx=PHi-1 DownTo 1
Begin
	If PHiBar[Idx]>PrevPLoBar
Then Begin
	If HighestPHi<PHiPrice[Idx]
Then Begin
	HighestPHi=PHiPrice[Idx];
	HighestPHiBar=PHiBar[Idx];
	PHiFound=TRUE;
	End;
End Else
	Idx=1;
	End;
End;

If PHiFound
Then Begin
	Hi2LoDays=PloBar[PLo]-HighestPHiBar;
	If Hi2LoDays>GannDays and PLoBar[PLo]>TempSellBar
Then Begin
	TempSellPrice=PLoPrice[PLo];
	TempSellBar=PLoBar[PLo];
	TempSellOn=TRUE;
	End;
	End;
End;

If TempSellON
Then Begin
	If Low>TempSellPrice and CurrentBar-TempSellBar<=SigExpir
	Then Plot2(TempSellPrice-1*MinMove POINT,"PLo")
	Else TEMPSellON=FALSE;
End;
End;

-----Original Message-----
From: Rick Francis [mailto:rcfran@xxxxxxxxxxxxx]
Sent: Thursday, September 16, 1999 10:27 PM
To: Code List; omega-list@xxxxxxxxxx
Subject: Ross Hook


Dear List Members:

Can someone please explain the Ross Hook as used in intraday
trading.....  Also, has anyone coded this??  Thanks in advance...