[EquisMetaStock Group] Ross Hook

["Claudio" <bastaromeo@xxxxxxxx>]

I have found in web the formula of Ross Hook in ELA format for 
Tradestation. 
Someone of you can help me translate this formula from ELA 
Tradestation to Equis Metastock?
Thanks


__________________________________________________________

 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;

__________________________________________________________






------------------------ Yahoo! Groups Sponsor --------------------~--> 
Has someone you know been affected by illness or disease?
Network for Good is THE place to support health awareness efforts!
http://us.click.yahoo.com/Rcy2bD/UOnJAA/cosFAA/BefplB/TM
--------------------------------------------------------------------~-> 

 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/equismetastock/

<*> To unsubscribe from this group, send an email to:
    equismetastock-unsubscribe@xxxxxxxxxxxxxxx

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/