原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
实验目的：
熟悉差分方程的求解，以及相关金融问题的数学建模方法。
实验内容：
假设住房贷款的年利率表为
贷款时间
年利率
1~5年
4.77%
5年以上（不含5年）
5.04%
试根据以上年率表，计算出每万元1~10年的月还款表。
小李夫妇曾经准备申请商业贷款10万元用于购置住房，每月还款880.66元，25年还清。 房产商介绍的一家金融机构提出：贷款10万元，每半月还款440.33元, 22年还清, 不过由于中介费手续费等原因，贷款时要预付4000元。 小李考虑，虽然预付费用不少，可是减少三年还款期意味着减少还款近3万2千元，而每月多跑一趟，那不算什么.这机构的条件似乎还是蛮优惠的。 试通过计算两种贷款的利率水平，比较那种贷款更优惠。
试通过计算两种贷款的利率水平，比较那种贷款更优惠。 试比较两种提前还款方式的优劣（附加） 所谓提前还贷是指借款人在保证按月按额偿还个人住房贷款本息的基础上，提前偿还部分或全部购房借款的一种经济行为。每次提前还款后，相应冲减余贷款本金。银行根据尚未归还的贷款本金重新计算借款人的月均还款额，直至贷款本息全部还清。重新计算月还款金额有两种方式： A、提前还款额冲抵最后月份的本金，每月的还款额度不变，还款时间缩短； B、提前还款额冲抵本金后，将剩余的贷款重新计算月还款额减少，还款时间不变。 例如，谢先生申请公积金贷款30万元，贷款期限为20年，在正常按月还了5年贷款后，谢先生决定提前还5万元本金，然后再继续按月还款。 试比较两种提前还款方式的优劣？
实验要求：
撰写实验报告
写出试验过程中所使用的Mathematica程序或语句和计算结果
第一题：
第一年：
In
m=
A=m*k
Out[2]=0.004425
Out[3]=857.496
Out[4]=10290.0
第二年和第三年：
In
m=
A=m*k
Out[6]=0.04500
Out[7]=857.909
Out[8]=10294.9
第四年和第五年：
In
m=
A=m*k
Out[10]=0.0048
Out[11]=859.562
Out[12]=10314.7
五年以上：
In13：=A0=10000;k=12;r=5.
For[n=1,n=5,n++,sum=(A0*r*(1+r)^(k*n))/((1+r)^(k*n)-1);Print[sum];
A=sum*k*n;Print[A]]
Out[14]=0.00495
860.389 10324.7
442.936 10630.5
303.948 10942.1
234.575 11259.6
193.049 11582.9
10000万元1~10年的月还款表
年限（年）
年利率（%）
月利率
月还款额（元）
本息总额（元）
1
5.31
0.004425
857.496
10290.0
2
5.40
0.04500
857.909
10294.9
3
5.40
0.04500
857.909
10294.9
4
5.76
0.0048
859.562
10314.7
5
5.76
0.0048
859.562
10314.7
6
5.94
0.00495
860.389
10324.7
7
5.94
0.00495
442.936
10630.5
8
5.94
0.00495
303.948
10942.1
9
5.94
0.00495
234.575
11259.6
10
5.94
0.00495
193.049
11582.9
第二题：
商业贷款：
In[15]:=A0=100000;k=25*12;m=880.66;
For[r=0.005,r=0.01,r=r+1*0.0000000001;
n=(A0*r*(1+r)^k)/((1+r)^k-1);
If[Abs[n-m]=0.0001,Print[r]]
];
Out[16]=0房产贷款：
In[17]:=A0=100000-4000;k=22*12*2;
FindRoot[440.33==(A0*r*(1+r)^k)/((1+r)^k-1),{r,0.01}]
Out[18]={r?0}
一个月的利率：0.004041417*2=0.008082834
综上所述，商业贷款的月利率少。
第三题：
In[19]:=A0=300000;k=20*1
文档评论（0）