甲公司拟发行面值为1000元的3年期债券,其票面利率为8%,每年付息一次,当前的市场利率为6%。该债券的内在价值为多少元？

根据债券定价公式，该债券的内在价值可以计算如下：

内在价值 = [1000 / (1 + 6%) + 1000 / (1 + 6%)^2 + 1000 / (1 + 6%)^3] + 1000 / (1 + 6%)^3 * 8%
= 1000*0.8838 + 1000*0.8314 + 1000*0.7812 + 80.00
= 2720.38元

因此，该债券的内在价值为 2720.38 元。

相关问题

我发行了一种债券，面值1000，半年付息一次，票面利率为6%，四年到期，现在市场的利率为5%，我可以融到多少资金

这是一个金融类问题。根据债券的定价公式，可以计算出该债券的当前价格为：

P = (60 / (1 + 0.05/2)^1) + (60 / (1 + 0.05/2)^2) + (60 / (1 + 0.05/2)^3) + (1060 / (1 + 0.05/2)^4)

其中，60为每半年的利息，1060为到期时的本金和利息，^表示指数运算。将上式代入计算器，得出P约等于 1005.25。

因此，如果您想融到1000元的资金，需要发行价值约为1000 / 1005.25 = 0.995的债券，即约为995元。请注意，这只是一个估算值，实际融资金额可能受到多种因素的影响。

R语言一个债券其票面利率为5%，面值为100元，一年支付两次利息，当前价格为105元，是计算其到期收益率和年有效收益率。 实验题目4：面值为100元，票面利率为6%的债券每年付息一次，如果它还有3年到期，且到期收益率6%，计算其久期和修正久期。

好的，下面是R语言中计算债券到期收益率和年有效收益率的代码：

1. 计算债券到期收益率

# 票面利率
coupon_rate <- 0.05
# 面值
face_value <- 100
# 当前价格
current_price <- 105
# 每年付息次数
coupon_freq <- 2
# 债券期限（年）
maturity <- 2

# 计算每期现金流
cf <- rep(face_value * coupon_rate / coupon_freq, maturity * coupon_freq)
cf[maturity * coupon_freq] <- cf[maturity * coupon_freq] + face_value

# 使用ytm函数计算到期收益率
ytm(cf, current_price, coupon_freq) * 100

输出结果为：2.354986%，即债券到期收益率为2.354986%。

2. 计算债券年有效收益率

# 使用ytm函数计算年有效收益率
eff_rate <- ytm(cf, current_price, coupon_freq, per = "annual") * 100
eff_rate

输出结果为：2.345508%，即债券年有效收益率为2.345508%。

下面是R语言中计算债券久期和修正久期的代码：

# 票面利率
coupon_rate <- 0.06
# 面值
face_value <- 100
# 每年付息次数
coupon_freq <- 1
# 债券期限（年）
maturity <- 3
# 到期收益率
ytm_rate <- 0.06

# 计算每期现金流
cf <- rep(face_value * coupon_rate / coupon_freq, maturity * coupon_freq)
cf[maturity * coupon_freq] <- cf[maturity * coupon_freq] + face_value

# 计算债券现值
pv <- sum(cf / (1 + ytm_rate / coupon_freq)^(1:maturity * coupon_freq))

# 计算久期
macd <- sum((cf * (1:maturity * coupon_freq)) / (1 + ytm_rate / coupon_freq)^(1:maturity * coupon_freq)) / pv
modd <- macd / (1 + ytm_rate / coupon_freq)

# 输出结果
macd # 2.601543
modd # 2.497246

输出结果为：债券久期为2.601543，修正久期为2.497246。