在Javascript中的PMT
我试图编写相当于EXCEL PMTfunction的代码。
在Java Script中,公式如下所示:
function PMT (ir, np, pv, fv ) { /* ir - interest rate per month np - number of periods (months) pv - present value fv - future value (residual value) */ pmt = ( ir * ( pv * Math.pow ( (ir+1), np ) + fv ) ) / ( ( ir + 1 ) * ( Math.pow ( (ir+1), np) -1 ) ); return pmt; }
这对于Type = 1的PMT计算很有用(即付款发生在期初)
但是,我正在尝试编写类型0方案(即付款发生在期末))。
任何数学巫师都可以告诉我如何修改我的公式?
谢谢
@ dps123:当我最近不得不使用一些金融方程来转换Excel工作簿中的函数时,我遇到了EGM数学金融课程 ,它试图模仿Excel函数。 如果只是为了看看函数看起来像是像Excel一样工作,那么可能值得一看。
用法示例:
* @copyright (c) 2002-2004 EGM :: Ingenieria sin fronteras * @since Saturday, November 30, 2002 **/ /*************************************************************************** * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * ***************************************************************************/ include('financial_class.php'); echo ''; echo 'FV: ' . $f->FV(1.1, 1/360, 0, -100) . "\n"; echo 'PV: ' . $f->PV(1.1, 1/360, 0, -100.206306226) . "\n"; echo 'PMT: ' . $f->PMT(1.1, 1/360, -100) . "\n"; echo 'PMT: ' . $f->PMT(1.1, 1/360, 0, -100.206306226) . "\n"; echo 'NPER: ' . $f->NPER(1.1, 53428.7980679, -100) . "\n"; echo 'NPER: ' . $f->NPER(1.1, 0, -100, -100.206306226) . "\n"; echo 'FV: ' . $f->FV(0.1, 1/360, 0, -100) . "\n"; echo 'PV: ' . $f->PV(0.1, 1/360, 0, -100.026478555) . "\n"; echo 'PMT: ' . $f->PMT(0.1, 1/360, -100) . "\n"; echo 'PMT: ' . $f->PMT(0.1, 1/360, 0, -100.026478555) . "\n"; echo 'NPER: ' . $f->NPER(1.1, 37776.4114948, -100) . "\n"; echo 'NPER: ' . $f->NPER(1.1, 0, -100, -100.026478555) . "\n"; echo 'EFFECT: ' . $f->EFFECT(0.0525, 4) . "\n"; echo 'NOMINAL: ' . $f->NOMINAL(0.053543, 4) . "\n"; echo 'NPV: ' . $f->NPV(0.1, array(-10000,3000,4200,6800)) . "\n"; echo 'XNPV: ' . $f->XNPV(0.09, array(-10000,2750,4250,3250,2750), array( mktime(0,0,0,1,1,2008), mktime(0,0,0,3,1,2008), mktime(0,0,0,10,30,2008), mktime(0,0,0,2,15,2009), mktime(0,0,0,4,1,2009), )) . "\n"; echo 'XIRR: ' . $f->XIRR(array(-10000,2750,4250,3250,2750), array( mktime(0,0,0,1,1,2008), mktime(0,0,0,3,1,2008), mktime(0,0,0,10,30,2008), mktime(0,0,0,2,15,2009), mktime(0,0,0,4,1,2009), ), 0.1) . "\n"; echo 'IRR: ' . $f->IRR(array(-70000,12000,15000,18000,21000)) . "\n"; echo 'DISC: ' . $f->DISC( mktime(0,0,0,1,25,2007), mktime(0,0,0,6,15,2007), 97.975, 100, 0) . "\n"; echo 'DISC: ' . $f->DISC( mktime(0,0,0,1,25,2007), mktime(0,0,0,6,15,2009), 97.975, 100, 1) . "\n"; echo 'DISC: ' . $f->DISC( mktime(0,0,0,1,25,2007), mktime(0,0,0,6,15,2007), 97.975, 100, 2) . "\n"; echo 'DISC: ' . $f->DISC( mktime(0,0,0,1,25,2007), mktime(0,0,0,6,15,2007), 97.975, 100, 3) . "\n"; echo 'DISC: ' . $f->DISC( mktime(0,0,0,1,25,2007), mktime(0,0,0,6,15,2007), 97.975, 100, 4) . "\n"; echo 'INTRATE: ' . $f->INTRATE( mktime(0,0,0,2,15,2008), mktime(0,0,0,5,15,2008), 1000000, 1014420, 2) . "\n"; echo 'IPMT: ' . $f->IPMT(0.1/12, 3, 3, 8000) . "\n"; echo 'IPMT: ' . $f->IPMT(0.1, 3, 3, 8000) . "\n"; echo 'RECEIVED: ' . $f->RECEIVED( mktime(0,0,0,2,15,2008), mktime(0,0,0,5,15,2008), 1000000, 0.0575, 2) . "\n"; echo 'DOLLARDE: ' . $f->DOLLARDE(1.02, 16) . "\n"; echo 'DOLLARDE: ' . $f->DOLLARDE(1.1, 32) . "\n"; echo 'DOLLARFR: ' . $f->DOLLARFR(1.125, 16) . "\n"; echo 'DOLLARFR: ' . $f->DOLLARFR(1.125, 32) . "\n"; echo 'FVSCHEDULE: ' . $f->FVSCHEDULE(1, array(0.09,0.11,0.1)) . "\n"; echo 'PPMT: ' . $f->PPMT(0.1/12, 1, 2*12, 2000) . "\n"; echo 'PPMT: ' . $f->PPMT(0.08, 10, 10, 200000) . "\n"; echo 'RATE: ' . $f->RATE(4*12,-200, 8000) . "\n"; echo 'RATE: ' . $f->RATE(4*12,-200, 8000)*12 . "\n"; echo 'SYD: ' . $f->SYD(30000, 7500, 10, 10) . "\n"; echo 'SLN: ' . $f->SLN(30000, 7500, 10) . "\n"; echo 'DDB: ' . $f->DDB(1000000, 100000, 10, 4) . "\n"; echo 'DELTA: ' . $f->DELTA(5, 4) . "\n"; echo 'DELTA: ' . $f->DELTA(5, 5) . "\n"; echo 'PRICEDISC: ' . $f->PRICEDISC(mktime(0,0,0,2,16,2008), mktime(0,0,0,3,1,2008), 0.0525, 100, 2) . "\n"; echo 'YIELDDISC: ' . $f->YIELDDISC(mktime(0,0,0,2,16,2008), mktime(0,0,0,3,1,2008), 99.795, 100, 2) . "\n"; echo 'COUPNUM: ' . $f->COUPNUM(mktime(0,0,0,1,25,2007), mktime(0,0,0,11,15,2008), 2, 1) . "\n"; echo 'COUPDAYBS: ' . $f->COUPDAYBS(mktime(0,0,0,1,25,2007), mktime(0,0,0,11,17,2008), 1, 1) . "\n"; echo 'VDB: ' . $f->VDB(2400,300,10*365,0,1) . "\n"; echo 'VDB: ' . $f->VDB(2400,300,10*12,0,1) . "\n"; echo 'VDB: ' . $f->VDB(2400,300,10,0,1) . "\n"; echo 'VDB: ' . $f->VDB(2400,300,10*12,6,18) . "\n"; echo 'VDB: ' . $f->VDB(2400,300,10*12,6,18,1.5) . "\n"; echo 'VDB: ' . $f->VDB(2400,300,10,0,0.875,1.5) . "\n"; echo 'MIRR: ' . $f->MIRR(array(-120000,39000,30000,21000,37000,46000), 0.1, 0.12) . "\n"; echo 'MIRR: ' . $f->MIRR(array(-120000,39000,30000,21000), 0.1, 0.12) . "\n"; echo 'MIRR: ' . $f->MIRR(array(-120000,39000,30000,21000,37000,46000), 0.1, 0.14) . "\n"; echo '
'; ?>
@dps
你需要修改利息因子变为的分母(ir * type + 1)
如果是年金到期意味着期间支付的开始,则Type
的值1
将确保利息因子(ir + 1)
并且当它是普通年金意味着期末支付的结束时, Type
的值0
将减少因子1
。
pmt = ( ir * ( pv * Math.pow ( (ir+1), np ) + fv ) ) / ( ( ir * type + 1 ) * ( Math.pow ( (ir+1), np) -1 ) );
您提供的等式实际上是MS Excel如何计算5个货币时间价值函数,即FV
, PV
, PMT
, NPER
和RATE
。 通过重新排列等式并求解FV
, PV
或PMT
,可以很容易地计算前三个。 对于NPER
和RATE
,需要其他方法,有些使用二进制搜索算法来查找RATE
但是使用Newton Raphson方法找到RATE
的更好和更优雅的解决方案。
下面是java中的代码:
double pmt = ((pv - fv) * ir / (1 - Math.pow((1 + ir), -np)));
我不是一个数学专家,但一个简单的谷歌搜索改变了这个主题:
http://www.excelforum.com/excel-general/370948-pmt-function-does-anyone-know-the-formula.html
这里他有类型= 0的以下公式:
pmt = ((pv - fv) * ir / (1 - (1 + ir) ^ -(np)));
也许这对你有用:)