stock

How to download and try this example

Usage: pl -gif stock.htm
Data source: http://quote.yahoo.com  "Spreadsheet format"


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

// read data file using proc getdata
#proc getdata
file: stock.csv
delimit: comma
//showresults: yes


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

// 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: 01-Jan-99 01-Jun-99
yrange: 45 65
yscaletype: log
#saveas: A

// set up X axis using proc axis
#proc xaxis
stubs: inc 1 month
stubformat: Mmmyy
grid: color=skyblue

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

// draw hi low bars using proc bars
#proc bars
locfield: 1
segmentfields: 3 4
thinbarline: color=gray(0.8)

// draw closing price curve using proc lineplot
#proc lineplot
xfield: 1
yfield: 5
linedetails: width=0.3 color=green

// compute and render moving average curve using proc curvefit
#proc curvefit
xfield: 1
yfield: 5
order: 50
legendlabel: 50 day\nmoving avg
linedetails: color=orange

// render legend proc legend
#proc legend
location: max-2 max

// do volume

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

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

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

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