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