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
>
>
>