//
Ranking_Alt01.afl
KSC 07/05/2008
//
Original code by Paul Ho, Amibroker list 07/05/2008
//
Modifications and expansions by Ken Close 07/05/2008
//
Will ordinal rank every symbol in watchlist for every
bar.
mOwnROC =
ROC(C, 14);
mOwnRSI
= RSIa(C,
14);
mRoc =
0;
mRSI =
0;
list =
CategoryGetSymbols(categoryWatchlist, 16);
ROCcount[0] = rocrank[0] = 0;
RSIcount[0] = RSIrank[0] = 0;
for(i = 0; (sym = StrExtract(list, i)) != ""; i++)
{
SetForeign(sym);
mRoc
= ROC(C, 14);
mRSI = RSIa(C, 14);
RestorePriceArrays();
n =
!IsNull(mRoc);
m = !IsNull(mRSI);
roccount
+= n;
rsicount += m;
rocrank
= IIf(Nz(mRoc) > mOwnROC, Rocrank + n,
rocrank);
rsirank
= IIf(Nz(mRsi) > mOwnRSI, Rsirank + m,
rsirank);
Totrank = rocrank + rsirank;
}
ROCn =
ROC(C, 14);
RSIn =
RSIa(C, 14);
Filter = 1;
Buy = Sell = 0;
AddColumn(ROCn, "ROCn",1.2);
AddColumn(RSIn, "RSIn",1.2);
AddColumn(mRoc, "MROC", 1.2);
AddColumn(ROCrank, "ROCRank", 1.0);
AddColumn(RSIrank, "rsirank",1.0);
AddColumn(Totrank, "Totrank", 1.0);
// To
check the sorting, run on a watchlist, then click once on the date column,
//
Then shift click on one of the indicators, ie, RSIn, and you will
see the
//
ordinal values in order.