这里每半年支付一次利息，所以45=1000*9%/2;20年所以为40期，因为每半年支付一次，所以0.06=0.12/2.

p1为各年息票的现值

这个程序应该有问题吧。到期收益率为12%，即贴现率设为12%，而且息票率为9%，按题意是否是年率呢？如果是年率的话，那程序中的是按半年一付来算的。45就是半年一付的利息。

如果按半年付的话，贴现率也不应该是6%，而应该是5.83%（sqrt(1.12)-1）.修改后P1应该是一个40期的年金为45的现值P1=45*年金系数。我认为上式是不对的。还有P2的贴现率也应该改为0.0583.

不知对否，请指正。