----- Original Message -----
Sent:
Tuesday, December 20, 2005 7:25 AM
Subject: RE:
[amibroker] AFL language from a Trade Station
scan
Dan,
Alright I was
trying to use it as an Explore or something like that and did not try it as
just an indicator
Mark,
When you say “…will
not work…”, what do you mean? When I tried it, it worked fine.
Regards,
Dan.
p.s. Just so we are
on the same page, here’s the code that I used:
ATRD180 =
ATR(180);
ATRD90 =
ATR(90);
ATRD45 =
ATR(45);
ATRD20 =
ATR(20);
ATRD5 =
ATR(5);
DifferenceD180
= Close - Ref(Close,-180);
DifferenceD90
= Close - Ref(Close,-90);
DifferenceD45
= Close - Ref(Close,-45);
DifferenceD20
= Close - Ref(Close,-20);
DifferenceD5
= Close - Ref(Close,-5);
EfficiencyD180
= IIf(ATRD180!=0,DifferenceD180/ATRD180,1);
EfficiencyD90
= IIf(ATRD90!=0,DifferenceD90/ATRD90,1);
EfficiencyD45
= IIf(ATRD45!=0,DifferenceD45/ATRD45,1);
EfficiencyD20
= IIf(ATRD20!=0,DifferenceD20/ATRD20,1);
EfficiencyD5
= IIf(ATRD5!=0,DifferenceD5/ATRD5,1);
Averageeff
= (EfficiencyD180 + EfficiencyD90 + EfficiencyD45 +
EfficiencyD20
) / 4;
Plot(
averageeff, "AvgEff", colorRed, styleLine );
From:
amibroker@xxxxxxxxxxxxxxx
[mailto:amibroker@xxxxxxxxxxxxxxx] On Behalf Of Mark Keitel
Sent: Tuesday, December 20, 2005 6:00
AM
To: amibroker@xxxxxxxxxxxxxxx
Subject: RE: [amibroker] AFL language
from a Trade Station scan
Thank
you
Though it will not
work using the exact format as below
I must be missing
something here
From:
amibroker@xxxxxxxxxxxxxxx
[mailto:amibroker@xxxxxxxxxxxxxxx] On Behalf Of Graham
Sent: Tuesday, December 20, 2005 12:24
AM
To: amibroker@xxxxxxxxxxxxxxx
Subject: Re: [amibroker] AFL language
from a Trade Station scan
Why is I see an error as soon as sent
it
Change this line
DifferenceD5 = Close -
Ref(Close,-5);
--
Cheers
Graham
AB-Write >< Professional AFL Writing
Service
Yes, I write AFL code to
your requirements
http://e-wire.net.au/~eb_kavan/ab_write.htm
On 12/20/05, Graham <kavemanperth@xxxxxxxxx>
wrote:
> Try
this
> ATRD180 =
ATR(180);
> ATRD90 =
ATR(90);
> ATRD45 =
ATR(45);
> ATRD20 =
ATR(20);
> ATRD5 =
ATR(5);
>
>
DifferenceD180 = Close - Ref(Close,-180);
> DifferenceD90 = Close -
Ref(Close,-90);
>
DifferenceD90 = Close - Ref(Close,-90);
> DifferenceD45 = Close -
Ref(Close,-45);
>
DifferenceD20 = Close - Ref(Close,-20);
> DifferenceD5 = Close -
Ref(Close,5);
>
>
EfficiencyD180 =
IIf(ATRD180!=0,DifferenceD180/ATRD180,1);
> EfficiencyD90 =
IIf(ATRD90!=0,DifferenceD90/ATRD90,1);
> EfficiencyD45 =
IIf(ATRD45!=0,DifferenceD45/ATRD45,1);
> EfficiencyD20 =
IIf(ATRD20!=0,DifferenceD20/ATRD20,1);
> EfficiencyD5 =
IIf(ATRD5!=0,DifferenceD5/ATRD5,1);
>
>
Averageeff = (EfficiencyD180 + EfficiencyD90 + EfficiencyD45
+
> EfficiencyD20 ) /
4;
>
> Plot( averageeff, "AvgEff", colorRed, styleLine
);
>
>
>
--
>
Cheers
> Graham
> AB-Write >< Professional AFL Writing
Service
> Yes, I write AFL
code to your requirements
>
http://e-wire.net.au/~eb_kavan/ab_write.htm
>
>
> On
12/20/05, aajohnah <aajohnah@xxxxxxxxxxxxxxx>
wrote:
>
>
>
>
> > Efficiency Rating
for stocks. It is a system for picking stocks that have
a
> > strong trending
action and go up 'no matter what'. The concept is
credited
> > to Van K
Tharpe,
>
>
>
>
>
>
>
>
>
>
> > Below is the code
from a Tradestation Indicator
> >
> > works fine as a plot or as a RadarScreen
indicator for those of you who use
> > Tradestation.
> >
> >
> >
> > Thank you for any help on
this
>
>
>
>
>
>
>
>
>
>
> > Tradestation
EasyLanguage.
>
>
>
>
>
>
> > {Indicator: Avg
Eff.}
>
>
>
>
>
>
>
>
inputs:
>
>
>
>
Price(close),
>
>
>
>
Length1(20),
>
>
>
>
Length2(20),
>
>
>
>
Displace(0),
>
>
>
>
D180( 180 ),
>
>
>
>
D90( 90 ),
>
>
>
>
D45( 45 ),
>
>
>
>
D20( 20 ),
>
>
>
>
D5( 5 );
>
>
>
>
>
>
>
>
variables:
>
>
>
>
ATRD180(0),
>
>
>
>
ATRD90(0),
>
>
>
>
ATRD45(0),
>
>
>
>
ATRD20(0),
>
>
>
>
ATRD5(0),
>
>
>
>
DifferenceD180(0),
>
>
>
>
DifferenceD90(0),
>
>
>
>
DifferenceD45(0),
>
>
>
>
DifferenceD20(0),
>
>
>
>
DifferenceD5(0),
>
>
>
>
EfficiencyD180(0),
>
>
>
>
EfficiencyD90(0),
>
>
>
>
EfficiencyD45(0),
>
>
>
>
EfficiencyD20(0),
>
>
>
>
EfficiencyD5(0),
>
>
>
>
AverageEff(0);
>
>
>
>
>
>
>
>
>
>
>
>
ATRD180 = AvgTrueRange(D180);
> >
>
>
ATRD90 = AvgTrueRange(D90);
>
>
>
>
ATRD45 = AvgTrueRange(D45);
>
>
>
>
ATRD20 = AvgTrueRange(D20);
>
>
>
>
ATRD5 = AvgTrueRange(D5);
>
>
>
>
>
>
>
>
DifferenceD180 = close - close[180];
> >
>
>
DifferenceD90 = close - close[90];
> >
>
>
DifferenceD90 = close - close[90];
> >
>
>
DifferenceD45 = close - close[45];
> >
>
>
DifferenceD20 = close - close[20];
> >
>
>
DifferenceD5 = close - close[5];
> >
> >
> >
>
>
EfficiencyD180 =
> >
IFF(ATRD180<>0,DifferenceD180/ATRD180,1);
> >
>
>
EfficiencyD90 =
> >
IFF(ATRD90<>0,DifferenceD90/ATRD90,1);
> >
>
>
EfficiencyD45 =
> >
IFF(ATRD45<>0,DifferenceD45/ATRD45,1);
> >
>
>
EfficiencyD20 =
> >
IFF(ATRD20<>0,DifferenceD20/ATRD20,1);
> >
>
>
EfficiencyD5 =
> >
IFF(ATRD5<>0,DifferenceD5/ATRD5,1);
> >
>
>
Averageeff = (EfficiencyD180 + EfficiencyD90 +
> > EfficiencyD45 + EfficiencyD20 ) /
4;
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> > Plot1(
AverageEff, "AverageEff" ) ;
> >
> >
> >
> >
> >
> > Mark
> >
>