|
PureBytes Links
Trading Reference Links
|
Hello,
If you are referring to Daryl Guppy's Count Back Line (CBL) then the
following code transcribed by Stephane Carrasset should do the trick (the
AFL code plots OK on my machine).
Hope this helps,
Gordon Sutherland
/* Stephane Carrasset's Countback Line (CBL) popularized by Daryl Guppy
Refer to amibroker posting 30th December 2004 */
nR=2;
Cbl[nR]=Null;
bCBL=False;
for( i=nR; i < BarCount; i++)
{
if( (Low[i-2]<Low[i-1]) && (Low[i-1]<Low[i]) )
{
Cbl[i] = Low[i-2];
bCBL = True;
}
else if (bCBL)
{
if (Low[i] < Cbl[i-1])
{
Cbl[i] = Cbl[i-1];
bCBL = False;
}
else
{
n = nR;
minval[i] = Low[i];
breakloop= False;
for (j = 1; NOT(breakloop) && j <= i; j++)
{
if (Low[i-j] < minval[i])
{
if (n>1)
{
minval[i] = Low[i-j];
n--;
}
else
{
Cbl[i] = Low[i-j];
breakloop=True;
}
}
}
if (Cbl[i] < Cbl[i-1])
Cbl[i] = Cbl[i-1];
}
}
else
{
Cbl[i] = Cbl[i-1];
}
if (Cbl[i]==0)
Cbl[i] = Cbl[i-1];
}
Plot(Cbl,"",colorDarkGreen,1);
Plot(C,"",-1,64);
-----Original Message-----
From: amibroker@xxxxxxxxxxxxxxx [mailto:amibroker@xxxxxxxxxxxxxxx] On Behalf
Of murphybr2001
Sent: Saturday, 1 March 2008 9:09 a.m.
To: amibroker@xxxxxxxxxxxxxxx
Subject: [amibroker] Re: Countdown Line Formula
--- In amibroker@xxxxxxxxxxxxxxx, "murphybr2001" <murphybr2001@xxx>
wrote:
>
> Hi,
> I have been trying for several days to try to translate the
> Metastock code for Countdown Line Formula and can't seem to get it
to
> work. If someone has the AFL code for it, or can translate
> this for me I would be most appreciative...
>
> CBLhi:
>
> HighDays := Input("Enter # days to cover last HIGH for CBL
calc'n:",
> 3, 55, 13);
>
> If(HIGH < HHV(HIGH, HighDays), {then ...}
> PREV, {previous CBLhi, else...}
> If(Ref(L,-2) < Ref(L,-1) AND
> Ref(L,-2) < L AND
> Ref(L,-1) < L, {then ...} Ref(L,-2), {2nd day back low,
else...}
> If((Ref(L,-3)< Ref(L,-2) AND
> Ref(L,-3) < Ref(L,-1) AND
> Ref(L,-3) < L) AND
> (Ref(L,-2)< L OR
> Ref(L,-1) < L), {then ... }
> Ref(L,-3), {3rd day back low,
else...}
> If((Ref(L,-4)< Ref(L,-3) AND
> Ref(L,-4) < Ref(L,-2) AND
> Ref(L,-4) < Ref(L,-1) AND
> Ref(L,-4) < L) AND
> (Ref(L,-3)< L OR
> Ref(L,-2) < L OR Ref(L,-1) < L), {then... }
> Ref(L,-4), {4th day back low,
else...}
> If((Ref(L,-5)< Ref(L,-4) AND
> Ref(L,-5) < Ref(L,-3) AND
> Ref(L,-5) < Ref(L,-2) AND
> Ref(L,-5) < Ref(L,-1) AND
> Ref(L,-5) < L) AND
> (Ref(L,-4)< L OR
> Ref(L,-3) < L OR
> Ref(L,-2) < L OR
> Ref(L,-1) < L), {then ...}
> Ref(L,-5), {5th day back low, else...}
> PREV )))))
>
> and for the CBL from a LOW
>
> CBLlo:
>
> LowDays := Input("Enter # days to cover last LOW for CBL calc'n:",
3,
> 55, 13);
>
> If(LOW > LLV(LOW, LowDays), {then ...} PREV, {previous CBLlo,
> else...} If(Ref(H,-2) > Ref(H,-1) AND Ref(H,-2) > H AND Ref(H,-1) >
> H, {then ...} Ref(H,-2), {2nd day back high,else...} If((Ref(H,-3)>
> Ref(H,-2) AND Ref(H,-3) > Ref(H,-1) AND Ref(H,-3) > H) AND (Ref(H,-
2)
> > H OR Ref(H,-1) > H), {then ... } Ref(H,-3), {3rd day back
> high,else...} If((Ref(H,-4)> Ref(H,-3) AND Ref(H,-4) > Ref(H,-2)
AND
> Ref(H,-4) > Ref(H,-1) AND Ref(H,-4) > H) AND (Ref(H,-3)> H OR Ref
(H,-
> 2) > H OR Ref(H,-1) > H), {then... } Ref(H,-4), {4th day back
> high,else...} If((Ref(H,-5)> Ref(H,-4) AND Ref(H,-5) > Ref(H,-3)
AND
> Ref(H,-5) > Ref(H,-2) AND Ref(H,-5) > Ref(H,-1) AND Ref(H,-5) > H)
> AND (Ref(H,-4)> H OR Ref(H,-3) > H OR Ref(H,-2) > H OR Ref(H,-1) >
> H), {then ...} Ref(H,-5), {5th day back high,else...} PREV )))))
>
Please note that this group is for discussion between users only.
To get support from AmiBroker please send an e-mail directly to
SUPPORT {at} amibroker.com
For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG:
http://www.amibroker.com/devlog/
For other support material please check also:
http://www.amibroker.com/support.html
Yahoo! Groups Links
Please note that this group is for discussion between users only.
To get support from AmiBroker please send an e-mail directly to
SUPPORT {at} amibroker.com
For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG:
http://www.amibroker.com/devlog/
For other support material please check also:
http://www.amibroker.com/support.html
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/amibroker/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/amibroker/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:amibroker-digest@xxxxxxxxxxxxxxx
mailto:amibroker-fullfeatured@xxxxxxxxxxxxxxx
<*> To unsubscribe from this group, send an email to:
amibroker-unsubscribe@xxxxxxxxxxxxxxx
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
|