|
PureBytes Links
Trading Reference Links
|
Hello Don,
Thanks for the code.
It's a nice training example for explorer; updated to use the latest
features.
I haven't been game to try Alan's AFL code 'I am lost' not having
read the book on how to write VB in Xcel.
A small tip, in case you haven't noticed it.
To scroll through the info page symbol by symbol:
select info view in workspace
display ticker tool bar
select the symbol in the ticker box on ticker tool bar (symbol is
highlighted in blue)
use the keyboard down arrow to scroll down through the hidden symbol
list and vice versa.
BrianB.
--- In amibroker@xxxxxxxxxxxxxxx, "Don Lindberg" <dlindber@xxx>
wrote:
>
> // This is a sample Exploration using the Fundamental Data
collected
> by AmiBroker. Written by Don Lindberg 08-16-2006
> // Exploration is run against all symbols and all quotations (the
> Status("lastbarintest") setting limits output to current date.)
> // I have also include some calculations on Shares Short at
bottom,
> just uncomment to use.
> // I did this to show that even a programming dummy can create a
> useful Exploration. Play around make some changes, learn and enjoy!
> // To Use, just copy everything into your Formula Editor save to a
> name that makes sense to you, then run the Exploration.
>
> EPS = GetFnData ("EPS");
> EPSEstCurrent = GetFnData("EPSEstCurrentYear") ;
> EPSEstNext = GetFnData ("EPSEstNextYear" );
> PEGRatio = GetFnData("PEGRatio");
> SharesOut = GetFnData("SharesOut");
> SharesShort = GetFnData("SharesShort");
> SharesShortPrev = GetFnData("SharesShortPrevMonth");
> SharesShortChg= SharesShortPrev -SharesShort ;
> BookValue = GetFnData("BookValuePerShare");
> ReturnOnEquity = GetFnData("ReturnOnEquity");
> GrossProfit = GetFnData("GrossProfitPerShare");
> ProfitMargin = GetFnData("ProfitMargin");
> OneYrTarget = GetFnData("OneYearTargetPrice");
> PE = Close / EPS;
> UpSidePotential = 100 * ((EPSEstNext / EPS)-1);
> ESPEstChange =EPSEstNext -EPSEstCurrent;
> InstitutionPercent = GetFnData ("InstitutionHoldPercent");
>
> Filter = Close <= 50 AND Close <= OneYrTarget AND UpSidePotential
>
> 1
> AND ReturnOnEquity > 1 AND GrossProfit > 1 AND ProfitMargin > 1
> AND ESPEstChange > 1 AND Status("lastbarintest");
>
> AddColumn (Close, "Close", 1.3);
> AddColumn (InstitutionPercent, "InstitutionPercent", 1.2);
> AddColumn (PE, "CalculatedPE", 1.2);
> AddColumn (OneYrTarget, "OneYrTarget", 1.2);
> AddColumn (UpSidePotential, "UpSidePotential", 1.2);
> AddColumn (BookValue, "BookValue",1.2);
> AddColumn (ReturnOnEquity,"ReturnOnEquity",1.2);
> AddColumn (GrossProfit, "GrossProfitPerShare",1.2);
> AddColumn (ProfitMargin, "ProfitMargin",1.2);
> AddColumn (EPS, "EPSCurrent", 1.2);
> AddColumn (ESPEstChange, "ESPEstChange", 1.2);
> //AddColumn (SharesShort, "SharesShort", 1);
> //AddColumn (SharesShortPrev, "SharesShortPrev", 1);
> //AddColumn (SharesShortChg, "SharesShortChg", 1);
>
|