|
PureBytes Links
Trading Reference Links
|
The top3 MACDs may define a new, on-code, effective WatchList W.
The effective WL is defined outside the loop and may have any further
use, as if it was one of the 64 available WLs. Its use is limited
inside the code, we can not call it from another IB window.
An elementary example is at the end of the code.
We could say we have a "conditional WatchList".
// Conditional WatchList creation, by D. Tsokakis, Nov2003
No=0;
GraphXSpace=5;
list = GetCategorySymbols( categoryWatchlist, No );
R = 0;
COUNT=0;// the final COUNT value is the population of the WL
for( i = 0; ( sym = StrExtract( list, i ) ) != ""; i++ )
{
SetForeign(sym);
f=MACD();
R[BarCount-1-i] = LastValue(ValueWhen(Cum(1)==LastValue(Cum(1)-
10),f));
COUNT=COUNT+1;
}
Plot(r,"R",2,2);
G=0;L1=LastValue(Cum(1));TOP=3;W="";
Counter=0;Title="Top3 MACD"+"\n";
for(K=1;K<=TOP;K++)
{
H1=LastValue(HHV(R,COUNT));
BAR1=LastValue((ValueWhen(R==H1,Cum(1)-1)));
R[BAR1]=-100000;
Counter=Counter+1;
G[L1-CountER]=-H1;
shape=IIf(Counter%10==1,shapeDigit1,
IIf(Counter%10==2 ,shapeDigit2,
IIf(Counter%10==3 ,shapeDigit3,
IIf(Counter%10==4 ,shapeDigit4,
IIf(Counter%10==5 ,shapeDigit5,
IIf(Counter%10==6 ,shapeDigit6,
IIf(Counter%10==7 ,shapeDigit7,
IIf(Counter%10==8 ,shapeDigit8,
IIf(Counter%10==9 ,shapeDigit9,shapeDigit0)))))))));
shape1=IIf(floor(Counter/10)==1,shapeDigit1,
IIf(floor(Counter/10)==2 ,shapeDigit2,
IIf(floor(Counter/10)==3 ,shapeDigit3,
IIf(floor(Counter/10)==4 ,shapeDigit4,
IIf(floor(Counter/10)==5 ,shapeDigit5,
IIf(floor(Counter/10)==6 ,shapeDigit6,
IIf(floor(Counter/10)==7 ,shapeDigit7,
IIf(floor(Counter/10)==8 ,shapeDigit8,
IIf(floor(Counter/10)==9 ,shapeDigit9,
shapeNone)))))))));
PlotShapes((Cum(1)==bar1+1)*shape,colorBlue,0,Graph0,5);
PlotShapes((Cum(1)==bar1+1)*shape1,colorRed,0,Graph0,15);
Title=Title+WriteVal(Counter,1.0)+")"+WriteVal(H1)+ " ["+WriteVal(L1-
bar1-1,1.0)+"-" +StrExtract(LIST,L1-BAR1-1)+"]\n";
w=w+StrExtract(List,L1-bar1-1)+WriteIf(k<top,",","");
}
Title=Title+"The topMACD stock is "+StrExtract(w,0);
Note1: In StrExtract( list, item ) description we read the example
StrExtract( "MSFT,AAPL,AMD,INTC", 2 )
I could not reproduce the "" but they are not necessary.
My output is simply MSFT,AAPL,AMD,INTC and it works fine with
StrExtract() function.
Dimitris Tsokakis
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for your HP, Epson, Canon or Lexmark
Printer at MyInks.com. Free s/h on orders $50 or more to the US & Canada.
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/mOAaAA/3exGAA/qnsNAA/GHeqlB/TM
---------------------------------------------------------------------~->
Send BUG REPORTS to bugs@xxxxxxxxxxxxx
Send SUGGESTIONS to suggest@xxxxxxxxxxxxx
-----------------------------------------
Post AmiQuote-related messages ONLY to: amiquote@xxxxxxxxxxxxxxx
(Web page: http://groups.yahoo.com/group/amiquote/messages/)
--------------------------------------------
Check group FAQ at: http://groups.yahoo.com/group/amibroker/files/groupfaq.html
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
|