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