Ken Thompson在老婆带孩子回娘家的一个月里写了一个操作系统。咱比不了大牛，但利用这个空档，给GnuCash写了一个现金流柱状图报表。

GnuCash提供现金流报表，可以总结一段时间内（比如一个月或者一年）的现金流进出情况，但是没有柱状图，无法看出逐月或者逐年的趋势。开始想把数据抄到电子表格里，然后利用电子表格的图表功能做分析。但是懒惰的程序员太懒了，不想搬数据。利用独立日假期长周末，照着GnuCash里面两个现成的报表，综合了一下，弄出一个现金流柱状图报表，部分截图效果如下：

想看具体数据的话可以选中下图里的show table选项，表格就会出现在柱状图下面。

由于RMS老爷爷的执拗，GNU项目一律使用Guile作为扩展主程序的方式，幸好有点LISP的底子，照猫画虎写了这个报表，至此，Scheme, Common Lisp和Emacs Lisp三大LISP方言全用过啦！

下载链接：cash-flow-barchart.scm （GPL）

银行存款愈少，内心愈感到不安，于是在八月的一天，终于按捺不住，打开Google Spreadsheet，计算了今年以来每月现金流情况（如下图）。不算不知道，一算吓一跳。这样下去，岂不是破产的节奏！（注：三月没有房贷，四月五月有退税和奖金相继入账，略显安慰！）

到了十月，银行存款眼看就要三位数了，突然收到一张五位数的房产税账单，险些晕了过去。这么大一笔支出居然忘记了，之前还突击还贷来着呢。幸好股票账户一直轻仓操作，即使在最近股市震荡期间逐渐加到半仓，仍然还是有些余钱可以应对燃眉之急。

再也不能这样活！没钱的日子，要开始精打细算了，于是又整理了一张每月固定支出的图表（如下图）。房贷一直是每月最大支出，二月份做了一次refinance，把利率从30年固定5%降到5/5 ARM 2.875%，并且在更换贷款银行的三月无需还贷。儿子在八月上了公立的Kindergarten，省去了之前私立Preschool的学费，但是同时贷款买车，增加了一份车贷。Kindergarten每天只有三个小时，又另外花钱参加了其它的活动。这张图出来之后顿时感觉之前提前还贷的决定是错误的，以后每月不再额外偿还本金，等到股票熟了之后卖出再说吧。目前最大的任务是保证每月现金流为正！

具体数额（为了网页排版美观，省略了房贷车贷和学费）参见下表，其中还不包括每年要支付的800多的房屋保险和半年800多的汽车保险，以及那五位数的房产税。

下一步的目标是分析每月其它支出的情况，如油费、食品、医疗、房屋维护等等，做到心中有数。明年要开始做预算，并严格执行！