|
PureBytes Links
Trading Reference Links
|
Try here...
http://www.guppytraders.com/Metastock%20Formulas/metastock%20formula%
2024.htm
Trader Joe...
--- In equismetastock@xxxxxxxxxxxxxxx, "Claudio" <bastaromeo@xxxx>
wrote:
> 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/
|