ChartDirector 7.0 (Perl Edition)

Candlestick Chart




This example demonstrates a candlestick chart.

Source Code Listing

perldemo\candlestick.pl
#!/usr/bin/perl # The ChartDirector for Perl module is assumed to be in "../lib" use File::Basename; use lib (dirname($0)."/../lib") =~ /(.*)/; use perlchartdir; # # Sample data for the CandleStick chart. # my $highData = [2043, 2039, 2076, 2064, 2048, 2058, 2070, 2033, 2027, 2029, 2071, 2085, 2034, 2031, 2056, 2128, 2180, 2183, 2192, 2213, 2230, 2281, 2272]; my $lowData = [1931, 1921, 1985, 2028, 1986, 1994, 1999, 1958, 1943, 1944, 1962, 2011, 1975, 1962, 1928, 2059, 2112, 2103, 2151, 2127, 2123, 2152, 2212]; my $openData = [2000, 1957, 1993, 2037, 2018, 2021, 2045, 2009, 1959, 1985, 2008, 2048, 2006, 2010, 1971, 2080, 2116, 2137, 2170, 2172, 2171, 2191, 2240]; my $closeData = [1950, 1991, 2026, 2029, 2004, 2053, 2011, 1962, 1987, 2019, 2040, 2016, 1996, 1985, 2006, 2113, 2142, 2167, 2158, 2201, 2188, 2231, 2242]; # The labels for the CandleStick chart my $labels = ["Mon 1", "Tue 2", "Wed 3", "Thu 4", "Fri 5", "Mon 8", "Tue 9", "Wed 10", "Thu 11", "Fri 12", "Mon 15", "Tue 16", "Wed 17", "Thu 18", "Fri 19", "Mon 22", "Tue 23", "Wed 24", "Thu 25", "Fri 26", "Mon 29", "Tue 30", "Wed 31"]; # Create a XYChart object of size 600 x 350 pixels my $c = new XYChart(600, 350); # Set the plotarea at (50, 25) and of size 500 x 250 pixels. Enable both the horizontal and vertical # grids by setting their colors to grey (0xc0c0c0) $c->setPlotArea(50, 25, 500, 250)->setGridColor(0xc0c0c0, 0xc0c0c0); # Add a title to the chart $c->addTitle("Universal Stock Index on Jan 2001"); # Add a custom text at (50, 25) (the upper left corner of the plotarea). Use 12pt Arial Bold/blue # (4040c0) as the font. $c->addText(50, 25, "(c) Global XYZ ABC Company", "Arial Bold", 12, 0x4040c0); # Add a title to the x axis $c->xAxis()->setTitle("Jan 2001"); # Set the labels on the x axis. Rotate the labels by 45 degrees. $c->xAxis()->setLabels($labels)->setFontAngle(45); # Add a title to the y axis $c->yAxis()->setTitle("Universal Stock Index"); # Draw the y axis on the right hand side of the plot area $c->setYAxisOnRight(1); # Add a CandleStick layer to the chart using green (00ff00) for up candles and red (ff0000) for down # candles my $layer = $c->addCandleStickLayer($highData, $lowData, $openData, $closeData, 0x00ff00, 0xff0000); # Set the line width to 2 pixels $layer->setLineWidth(2); # Output the chart $c->makeChart("candlestick.png");