30 lines
856 B
Gnuplot
30 lines
856 B
Gnuplot
set term postscript eps enhanced
|
|
set output "pennies.eps"
|
|
set grid
|
|
set xdata time
|
|
set timefmt "%Y-%m-%d"
|
|
set xtics format "%b %d"
|
|
set xlabel "Date (2013 - 2014)"
|
|
set ylabel "Cents(Date)"
|
|
set title "Net Personal Income due to Scrapping the Canadian Penny"
|
|
|
|
set style line 1 lc rgb '#0060ad' lt 1 lw 2 pt 7 pi -1 ps 1.5
|
|
#set pointintervalbox 3
|
|
|
|
set label "for Neil Edelman" at screen 0.2, screen 0.15
|
|
|
|
# the time format is seconds since 2000-01-01
|
|
# the penny was discontinued 4783 days since 2000-01-01
|
|
|
|
#parameters:
|
|
#m = -0.0643952 +/- 0.000402505
|
|
#Reduced chi-squared = 9.88744
|
|
|
|
f(x) = m*(x-(4783 * 3600 * 24))
|
|
m = -0.0643952 / (3600 * 24)
|
|
|
|
plot \
|
|
"pennies.data" using 1:2 title "Net Cents" with linespoints ls 1,\
|
|
f(x) title "-23.52 cents / year; reduced-{/Symbol c}^2 = 9.90"
|
|
#"days.data" using ($1 + 2013-02-04):2 title "Net Cents" with linespoints#,\
|