[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [amibroker] AFL language from a Trade Station scan



PureBytes Links

Trading Reference Links

Please do not put words in that i did not say
I just put forward my observations.
In future best if I say nothing

On 12/22/05, aajohnah <aajohnah@xxxxxxxxxxxxxxx> wrote:
> Graham,
>
> Both Trade Station and AIQ can run this  and get the same data within
> fractions
> And you think AB can not?
>
>
>
> Mark
>
>
>
>
>
>
>
>
> -----Original Message-----
> From: amibroker@xxxxxxxxxxxxxxx [mailto:amibroker@xxxxxxxxxxxxxxx] On Behalf
> Of Graham
> Sent: Wednesday, December 21, 2005 5:28 PM
> To: amibroker@xxxxxxxxxxxxxxx
> Subject: Re: [amibroker] AFL language from a Trade Station scan
>
> Personally I ahve found it 99% impossible to match results of
> seemingly the same thing between different charting packages. The
> programs obviously handle things differently internally enough to
> offset results.
>
> --
> 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/22/05, Mark Keitel <mkeitel@xxxxxxxxxxxxxxx> wrote:
> >
> >
> > Been playing with it and some of the ranking on the Efficiency are off
> from
> > what Trade station gives back
> >
> > Looks like it really does not have anything to do with the parameter
> setting
> > though as to changing the number on the efficiency rating
> >
> >
> >
> >
> >
> >
> >
> >
> > Mark
> >
> >
> >
> >
> >
> >
> >
> >
> > ________________________________
> >
> >
> > From: amibroker@xxxxxxxxxxxxxxx [mailto:amibroker@xxxxxxxxxxxxxxx] On
> Behalf
> > Of NW Trader
> > Sent: Tuesday, December 20, 2005 2:57 PM
> > To: amibroker@xxxxxxxxxxxxxxx
> > Subject: Re: [amibroker] AFL language from a Trade Station scan
> >
> >
> >
> >
> > Hi Mark,
> >
> >
> >
> >
> >
> > Try the attached exploration for efficient stocks.  Use the parameters to
> > set your price, volume and efficiency levels, plus some other output info.
> > I wrote this quickly last night, it runs, but I've not tested it for
> optimal
> > settings.  Seemingly an efficiency of > 8 or > 10 will find some stocks,
> but
> > I also see good runners whose levels are lower so I don't know if this
> > really is a good filter.  Perhaps tweaking the periods used for the
> > efficiency as I'm a lot shorter term trader.  If you play with it, let us
> > know what you find.  Enjoy.
> >
> >
> >
> >
> >
> > Peace and Justice   ---   Patrick
> >
> >
> > ----- Original Message -----
> >
> >
> > From: Mark Keitel
> >
> >
> > To: amibroker@xxxxxxxxxxxxxxx
> >
> >
> > 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
> >
> >
> >
> >
> >
> >
> > ________________________________
> >
> >
> > From: amibroker@xxxxxxxxxxxxxxx [mailto:amibroker@xxxxxxxxxxxxxxx] On
> Behalf
> > Of Dan Clark
> > Sent: Tuesday, December 20, 2005 9:50 AM
> > To: amibroker@xxxxxxxxxxxxxxx
> > Subject: RE: [amibroker] AFL language from a Trade Station scan
> >
> >
> >
> > 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
> >
> >
> >
> >
> >
> >
> >
> >
> > Mark
> >
> >
> >
> >
> >
> >
> >
> >
> > ________________________________
> >
> >
> > 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
> > > >
> > >
> >
> >
> >
> >
> >
> >
> >
> > 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 other support material please check also:
> > http://www.amibroker.com/support.html
> >
> >
> >
> >
> > ________________________________
> > YAHOO! GROUPS LINKS
> >
> >  Visit your group "amibroker" on the web.
> >
> >  To unsubscribe from this group, send an email to:
> >  amibroker-unsubscribe@xxxxxxxxxxxxxxx
> >
> >  Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
> >  To unsubscribe from this group, send an email to:
> >  amibroker-unsubscribe@xxxxxxxxxxxxxxx
> >
> >  Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
> >  Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
> > ________________________________
> >
> > ________________________________
> > YAHOO! GROUPS LINKS
> >
> >  Visit your group "amibroker" on the web.
> >
> >  To unsubscribe from this group, send an email to:
> >  amibroker-unsubscribe@xxxxxxxxxxxxxxx
> >
> >  Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
> >  To unsubscribe from this group, send an email to:
> >  amibroker-unsubscribe@xxxxxxxxxxxxxxx
> >
> >  Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
> >  Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
> > ________________________________
> >
> >
> >
>
>
>
> 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 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 other support material please check also:
> http://www.amibroker.com/support.html
>
>
> Yahoo! Groups Links
>
>
>
>
>
>
>


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


------------------------ Yahoo! Groups Sponsor --------------------~--> 
Try Online Currency Trading with GFT. Free 50K Demo. Trade 
24 Hours. Commission-Free. 
http://us.click.yahoo.com/RvFikB/9M2KAA/U1CZAA/GHeqlB/TM
--------------------------------------------------------------------~-> 

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

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