#!/usr/bin/perl

$OCTAVE="stocksim.m";
$INPUT="buysell.dat";
$OUTPUT="buysell-gnuplot.png";

system("octave $OCTAVE");

print "Using gnuplot to plot graphs. Results are saved to $OUTPUT.\n";
open(GNUPLOT, "|gnuplot -persist");
print GNUPLOT <<PLOT;

set title "Tsang's 2-day-19-day moving average strategy (Source: 0005.HK from 20030101 to 20071231)"
#set title "Buy and hold strategy (Source: 0005.HK from 20030101 to 20071231)"
set xlabel "Days"
set ylabel "Amount relative to initial value"

set terminal png small
set output "$OUTPUT"

set key left top

plot \\
  "$INPUT" using 1:2 with points title "Value: cash",\\
  "$INPUT" using 1:3 with points title "Value: stock",\\
  "$INPUT" using 1:4 with lines title "Value: total",\\
  "$INPUT" using 1:5 with lines title "Stock price"

PLOT
close(GNUPLOT)