#set timefmt "%h:%m"
#plot [] "charge_battery.data" using ($1-1201163274):2

wince_capa(v) = \
	      v < 3412 ? 0  : v < 3437 ? 4  : v < 3457 ? 8  : v < 3477 ? 12 : \
	      v < 3497 ? 16 : v < 3512 ? 20 : v < 3527 ? 24 : v < 3542 ? 28 : \
	      v < 3557 ? 32 : v < 3572 ? 36 : v < 3587 ? 40 : v < 3602 ? 44 : \
	      v < 3617 ? 48 : v < 3632 ? 52 : v < 3647 ? 56 : v < 3668 ? 60 : \
	      v < 3687 ? 64 : v < 3707 ? 68 : v < 3727 ? 72 : v < 3752 ? 76 : \
	      v < 3777 ? 80 : v < 3802 ? 84 : v < 3827 ? 88 : v < 3852 ? 92 : \
	      v < 3882 ? 96 : 100;

wince_volt(c) = \
	      c < 4  ? 3412 : c < 8  ? 3437 : c < 12 ? 3457 : c < 16 ? 3477 : \
	      c < 20 ? 3497 : c < 24 ? 3512 : c < 28 ? 3527 : c < 32 ? 3542 : \
	      c < 36 ? 3557 : c < 40 ? 3572 : c < 44 ? 3587 : c < 48 ? 3602 : \
	      c < 52 ? 3617 : c < 56 ? 3632 : c < 60 ? 3647 : c < 64 ? 3668 : \
	      c < 68 ? 3687 : c < 72 ? 3707 : c < 76 ? 3727 : c < 80 ? 3752 : \
	      c < 84 ? 3777 : c < 88 ? 3802 : c < 92 ? 3827 : c < 96 ? 3852 : \
	      3882;

approx_volt(c) = (3882 - 3412) * c / 100 + 3412;


set xdata time
set format x "%H:%M"
set grid xtics ytics

set term png medium transparent size 1280x1024
set output "battery_charge_cycle.png"
plot [] "charge_battery.data" using ($1-1201163274):2 smooth bezier
set output "battery_charging.png"
plot [] "battery_charging.data" using ($1-1201163274):2 smooth bezier
set output "battery_discharging.png"
plot [] "battery_discharging.data" using ($1-1201163274):2 smooth bezier

set term png medium transparent size 640x320
set output "battery_charge_cycle.mini.png"
plot [] "charge_battery.data" using ($1-1201163274):2 smooth bezier
set output "battery_charging.mini.png"
plot [] "battery_charging.data" using ($1-1201163274):2 smooth bezier
set output "battery_discharging.mini.png"
plot [] "battery_discharging.data" using ($1-1201163274):2 smooth bezier

# Create comparative curves : real, wince disassembled, and linear approximation
set term png medium transparent size 640x320
set output "battery_3methods.mini.png"
plot [] "battery_discharging.data" using ($1-1201163274):2 smooth bezier title "Real discharge curve", \
     wince_volt(100-(x-15000)*100/(36000-15000)) smooth bezier title "Wince disassembled curve", \
     approx_volt(100-(x-15000)*100/(36000-15000)) smooth bezier title "Linear approximation"

set term png medium transparent size 1280x1024
set output "battery_3methods.png"
plot [] "battery_discharging.data" using ($1-1201163274):2 smooth bezier title "Real discharge curve", \
     wince_volt(100-(x-15000)*100/(36000-15000)) smooth bezier title "Wince disassembled curve", \
     approx_volt(100-(x-15000)*100/(36000-15000)) smooth bezier title "Linear approximation"