PureBytes Links
Trading Reference Links
|
Herman,
Glad you found my code useful. I played some more ...
In the code below one needs to simply indicate what ticker he/she wants to plot and in what color in a ticker, color pair such as "MSFT,red,JNJ,green,C,yellow,WMT,pink,IP,violet,CAT,blue", and update the AmiBroker's color codes in the function getColorNumber.
// Chart display similar to FT
Title = "";
barvisible = Status("barvisible");
firstBarVisible = barvisible AND NOT Ref( barvisible, -1 );
procedure plotScaled ( ticker, color)
{
array = Foreign(ticker,"C");
scaledArray = 100*(array / ValueWhen(firstBarVisible,array ) -1);
Plot(scaledArray ,"", color , styleLine|styleThick);
Title = Title + EncodeColor(color) + ticker + " ";
}
function getColorNumber( inColor )
{
colorToNumber = "red,29,green,27,yellow,42,pink,40,violet,38,blue,32,white,55,black,16";
colorNumber = 47;
for( colorIndex = 0;
(color = StrExtract(colorToNumber, colorIndex)) != "";
colorIndex = colorIndex + 2
) {
if ( color == inColor ) {
colorNumber = StrToNum(StrExtract(colorToNumber, colorIndex+1));
}
}
return colorNumber;
}
tickerColorList = "MSFT,red,JNJ,green,C,yellow,WMT,pink,IP,violet,CAT,blue";
for( tickerIndex=0; (ticker=StrExtract(tickerColorList, tickerIndex))!= ""; tickerIndex = tickerIndex + 2) {
plotScaled ( ticker, getColorNumber(StrExtract(tickerColorList, tickerIndex+1)));
}
Regards,
- Salil V Gangal
Herman van den Bergen <psytek@xxxxxxxx> wrote:
Thanks for your code Salil, nice to play with :-) here is a slight modification of your code to plot normalized charts for a small watchlist:
// Chart display similar to FTbarvisible = Status("barvisible");firstBarVisible = barvisible AND NOT Ref( barvisible, -1 );global ChartColor;
function PlotNormalizedTicker( Ticker) { array2=Foreign(ticker,"C"); scaledArray2=100*(array2/ValueWhen(firstBarVisible,array2)-1); Plot(scaledArray2,"\n"+Ticker,ChartColor++,4); }
list = GetCategorySymbols( categoryWatchlist, 6);ChartColor=1;for( n=0; (Ticker=StrExtract( List, n))!= ""; n++) PlotNormalizedTicker( Ticker);
herman
-----Original Message-----From: Salil V Gangal [mailto:salil_gangal@xxxxxxxxx]Sent: Saturday, May 15, 2004 7:41 PMTo: amibroker@xxxxxxxxxxxxxxxSubject: Re: [amibroker] Performance Charts
Sam,
Perhaps following will help. This code is for AmiBroker's IB. Copy-n-paste the code block of 2nd ticker multiple times per your needs to put additional tickers. Also, use tickers you need in place of "MSFT", "YHOO".
// Chart display similar to FT
barvisible = Status("barvisible");
firstBarVisible = barvisible AND NOT Ref( barvisible, -1 );
// code block for 1st ticker
ticker = "MSFT";
array1=Foreign(ticker,"C");
scaledArray1=100*(array1/ValueWhen(firstBarVisible,array1)-1);
Plot(scaledArray1,"",colorBlue,4);
Title = EncodeColor(colorBlue) + ticker + " ";
// code block for 2nd ticker
ticker = "YHOO";
array2=Foreign(ticker,"C");
scaledArray2=100*(array2/ValueWhen(firstBarVisible,array2)-1);
Plot(scaledArray2,"",colorRed,4);
Title = Title + EncodeColor(colorRed) + ticker + " ";
Regards,
- Salil V Gangal
--- Sam Levy <slevy1220@xxxxxxxxxxxxx> wrote: > Has anyone used Amibroker to construct "performance charts" similar > to those available at the following link? > > http://stockcharts.com/charts/performance/ > > If so, would appreciate a suggestion on how to construct afl code. > Thanks > >
Do you Yahoo!?SBC Yahoo! - Internet access at a great low price. Send BUG REPORTS to bugs@xxxxxxxxxxxxxSend 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 Send BUG REPORTS to bugs@xxxxxxxxxxxxxSend SUGGESTIONS to suggest@xxxxxxxxxxxxx-----------------------------------------Post AmiQuote-related messages ONLY to: amiquote@xxxxxxxxxxxxxxx (Web page: <A
href="">http://groups.yahoo.com/group/amiquote/messages/)--------------------------------------------Check group FAQ at: http://groups.yahoo.com/group/amibroker/files/groupfaq.html
Do you Yahoo!?SBC Yahoo! - Internet access at a great low price.
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
Yahoo! Groups Sponsor
ADVERTISEMENT
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 the Yahoo! Terms of Service.
|