;$Id: pbalance.pro,v 1.1 2006/04/03 15:31:00 brandenb Exp $
;
Heating=4.74E+04
cp=0.0335
chi=0.001
plot,obj.x,Heating-obj.cooling,yr=[-1,1]*3.4e4
oplot,obj.x,-cp*chi*deriv(obj.x,deriv(obj.x,obj.tt)),ps=-1,col=111
END