stock2

How to download and try this example

Usage: pl -gif stock2.htm
Data source: quote.yahoo.com (Spreadsheet format)

Illustrates use of segment bars, and tics on bars to show opening and
closing price.  Also illustrates ranging of data using the $inrange() function.


#proc page
#if @DEVICE in gif,png
  scale: 0.7
#endif

// define top plotting area using proc areadef
#proc areadef
title: Trailer Tongue Technologies Corp.
rectangle: 1 3 5 5
xscaletype: date dd-mmm-yy
xrange: 4-Apr-99 1-Jun-99
yrange: 50 60
yscaletype: log
#saveas: A

// read data file using proc getdata
#proc getdata
file: stock.csv
select: $inrange(@@1,X) = 1
delimit: comma

// reverse the record order, since the data is provided in reverse chronological
// order, using proc processdata
#proc processdata
action: reverse

// set up X axis using proc xaxis
#proc xaxis
stubs: inc 7
stubformat: Mmmdd
stubrange: 4-Apr-99
grid: color=skyblue
#saveas: XAX

// set up Y axis using proc yaxis
#proc yaxis
stubs: inc 2
grid: color=skyblue

// draw hi/low/close bars using proc bars
#proc bars
locfield: 1
segmentfields: 3 4	
leftticfield: 2		
rightticfield: 5	
thinbarline: width=0.3 color=green

// do volume

// define bottom plotting area using proc areadef
#proc areadef
#clone: A
rectangle: 1 1.6 5 2.6
yrange: 0 5000000
yscaletype: linear
title:

// set up X axis using proc xaxis
#proc xaxis
label: Volume (1000s)
ticincrement: 7 
labeldetails: adjust=0,0.2 size=8

// set up Y axis using proc yaxis
#proc yaxis
stubs: inc 1000 1000
grid: color=skyblue

// render histogram using proc bars
#proc bars
barwidth: 0.001
locfield: 1
lenfield: 6
thinbarline: color=green