利用 Annuity 计算抵押贷款和贷款
年金的现值可以通过 TimeValue 表达式用每期支付值、期数、区间大小和利率值表示。
求抵押贷款的每月付款，令现值等于某个值：
使用函数 Solve 解方程，得到每月付款：
这将返回支付值的代数解，该解用其他变量表示。Solve 的输出结果是一个规则的列表。
Solve 也可以得到数值解。例如，已知抵押贷款额为20万元，名义利率为5.2%，按揭贷款期限30年，求月供，可以运算下式：
Solve[TimeValue[Annuity[payments, 30, 1/12], EffectiveInterest[.052, 1/12], 0] == 200000, payments]
{{payments -> 1098.22}}
也可以求其他参数，如支付次数等。：例如，已知利率为8%，月支付额200元，求还清1万元贷款所需的年数，可通过下式得到：
Solve[TimeValue[Annuity[200,periods, 1/12], .08, 0] == 10000,periods]
{{periods -> 5.04369}}
计算下式可以得到3年内还清5000元贷款的每月支付额：
Solve[TimeValue[Annuity[payments, 3, 1/12], .08, 0] == 5000, payments]
{{payments -> 156.039}}
3000元贷款在5年内于每季度末按季分期偿还。如果利率是10％，每半年复利一次，每季度支付的金额可以通过运算下式计算：
Solve[TimeValue[Annuity[payments, 5, 1/4], EffectiveInterest[.1, 1/2], 0] == 3000, payments]
{{payments -> 191.888}}
Solve 还可以求解两个参数的关系。例如，我们可以得到支付额与利率的函数关系，并作出图形：
relationship = First[Solve[ TimeValue[Annuity[payments, 5, 1/4], interest, 0] == 3000, payments]]
Plot[payments /. relationship, {interest, 0, 10}]
