注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

鑫淼梦园的博客

圆你的梦想 从这里开始

 
 
 

日志

 
 

Delphi_XE2 Math单元函数09-3  

2015-04-18 12:03:48|  分类: delphixe7 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
Delphi_XE2 Math单元函数09-3

以下参数:Rate利率,NPeriods计算期,;2)函数FutureValue(constRat;Extended;PaymentTime:TPa;等额支付终值公式(终值(FVAL))基于固定利率;FV?PV?(1?R)?Pmt?NP(1?R)N;FV?PV?(1?R)NP;R(1?R)NP?1?1?Pmt?[?1];当P;3)函数InterestPaym


以下参数:Rate利率,NPeriods计算期,Payment每期支付款,FutureValue终值,PresentValue现值,PaymentTime每期支付时间,Period欲求的计算期。

2) 函数 FutureValue(const Rate: Extended; NPeriods: Integer; const Payment, PresentValue:

Extended; PaymentTime: TPaymentTime): Extended;

等额支付终值公式(终值(FVAL))基于固定利率和等额分期付款方式,计算投资的未来终值,PV是计算期开始时的一次性支付的(首付款),可以是0。

FV?PV?(1?R)?Pmt?NP(1?R)NP?1

FV?PV?(1?R)NP

R(1?R)NP?1?1?Pmt?[?1];当PT?ptStartOfPeriod时R;当PT?ptEndOfPeriod时

3) 函数 InterestPayment(const Rate: Extended; Period, NPeriods: Integer; const PresentValue,

FutureValue: Extended; PaymentTime: TPaymentTime): Extended;

支付利息(IPAYMT)。返回定期偿还,固定利率下,第Period期的利息。NPeriods总偿还期,PresentValue为首付款,FutureValue为到期时的余额。

计算方法

(1)利用等额资金回收计算每期应付金额A

(2)计算每期应付的利息和本金

4) 函数 InterestRate(NPeriods: Integer; const Payment, PresentValue, FutureValue: Extended;

PaymentTime: TPaymentTime): Extended;

利率(IRATE),返回投资的实际利率。NPeriod总投资期,Payment各期应收取的金额,PresentValue开始的总投入现值,PaymentTime最后一次收款后的余额

5) 函数 InternalRateOfReturn(const Guess: Extended; const CashFlows: array of Double):

Extended;

内部收益率(Internal Rate of Return. (IRR))需要现金流数组,返回一系列现金流的内部报酬率,Guess是内部报酬率的猜测值(试算值10%)。

6) 函数 NumberOfPeriods(const Rate: Extended; Payment: Extended; const PresentValue,

FutureValue: Extended; PaymentTime: TPaymentTime): Extended;

现值PresentValue或者终 偿还期数{ Number of Periods (NPER) }已知每次付款Payment,

值FutureValue,利率Rate,求偿还期。

7) 函数 NetPresentValue(const Rate: Extended; const CashFlows: array of Double;

PaymentTime: TPaymentTime): Extended;

净现值(Net Present Value. (NPV),需要现金流数组,给定利率,现金流,分别折算到最开始时的现值之和。

8) 函数 Payment(Rate: Extended; NPeriods: Integer; const PresentValue, FutureValue:

Extended; PaymentTime: TPaymentTime): Extended;

等额分期偿还额 { Payment (PAYMT) }等额资金回收现值公式,等额偿债基金终值公式,返回每年应偿还的金额。

9) 函数 PeriodPayment(const Rate: Extended; Period, NPeriods: Integer; const PresentValue,

FutureValue: Extended; PaymentTime: TPaymentTime): Extended;

还款本金{ Period Payment (PPAYMT) }返回定期偿还,固定利率下,第Period期的本金。

10) 函数 PresentValue(const Rate: Extended; NPeriods: Integer; const Payment, FutureValue:

Extended; PaymentTime: TPaymentTime): Extended;

现值{ Present Value (PVAL) }等额付款现值公式

11) 函数 SLNDepreciation(const Cost, Salvage: Extended; Life: Integer): Extended;

直线折旧法{ Straight Line depreciation (SLN) }返回每年折旧额

12) 函数 SYDDepreciation(const Cost, Salvage: Extended; Life, Period: Integer): Extended;

年限总和折旧法{ Sum-of-Years-Digits depreciation (SYD) }返回第Period期的年折旧额。

十、FPU/SSE 异常/精度/舍入管理

以下函数允许你控制FPU/SSE行为。控制FPU/SSE异常处理,FPU默认精度设置,FPU/SSE怎样舍入控制.

type

TRoundingMode = (rmNearest, rmDown, rmUp, rmTruncate);

TFPURoundingMode = type TRoundingMode;

TSSERoundingMode = type TRoundingMode;

返回当前舍入模式

1) 函数 GetFPURoundMode: TFPURoundingMode; platform;

2) 函数 GetSSERoundMode: TSSERoundingMode; platform;

3) 函数 GetRoundMode: TRoundingMode;

设置新的舍入模式并且返回旧的模式

4) 函数 SetFPURoundMode(const RoundMode: TFPURoundingMode): TFPURoundingMode;

platform;

5) 函数 function SetSSERoundMode(const RoundMode: TSSERoundingMode):

TSSERoundingMode; platform;

6) 函数 SetRoundMode(const RoundMode: TRoundingMode): TRoundingMode;

type

TFPUPrecisionMode = (pmSingle, pmReserved, pmDouble, pmExtended);

7) 函数 GetPrecisionMode: TFPUPrecisionMode; 返回当前精度控制模式

8) 函数 SetPrecisionMode(const Precision: TFPUPrecisionMode): TFPUPrecisionMode;

设置新的精度控制模式并且返回旧的模式

type

TArithmeticException = (exInvalidOp, exDenormalized, exZeroDivide,

exOverflow, exUnderflow, exPrecision);

TFPUException = type TArithmeticException;

TSSEException = type TArithmeticException;

const

exAllArithmeticExceptions = [exInvalidOp, exDenormalized, exZeroDivide,

exOverflow, exUnderflow, exPrecision];

type

TArithmeticExceptionMask = set of TArithmeticException;

TFPUExceptionMask = set of TFPUException;

TSSEExceptionMask = set of TSSEException;

从控制字中返回异常掩码。码中任何元素设置防止FPU产生各种异常。它企图返回一个最好的数值,经常是NaN 或 infinity。数值依靠运算和当前的舍入模式。

9) 函数 GetFPUExceptionMask: TFPUExceptionMask; platform;

10) 函数GetSSEExceptionMask: TSSEExceptionMask; platform;

11) 函数GetExceptionMask: TArithmeticExceptionMask;

设置新的异常掩码并返回旧的

12) 函数SetFPUExceptionMask(const Mask: TFPUExceptionMask): TFPUExceptionMask;

platform;

13) 函数 SetSSEExceptionMask(const Mask: TSSEExceptionMask): TSSEExceptionMask;

platform;

14) 函数 SetExceptionMask(const Mask: TArithmeticExceptionMask):

TArithmeticExceptionMask;

清除状态字中任何挂起的异常位

15) 过程 ClearFPUExceptions(RaisePending: Boolean = True); platform;

16) 过程 ClearSSEExceptions(RaisePending: Boolean = True); platform;

17) 过程 ClearExceptions(RaisePending: Boolean = True);

十一、 ystem.testsse 变量SSE类型

seSSE = $0001; seSSE2 = $0002; seSSE3 = $0004; seSSSE3 = $0008; seSSE41 = $0010; seSSE42 = $0020; sePOPCNT = $0040; seAESNI = $0080;

sePCLMULQDQ = $0100;

三亿文库3y.uu456.com包含各类专业文献、文学作品欣赏、各类资格考试、幼儿教育、小学教育、生活休闲娱乐、Delphi_XE2 Math单元函数09等内容。

  评论这张
 
阅读(351)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017