## 5.12.f90
# 2024-10-09
# $Id: 5.12.jl 1.1 2024/11/02 12:06:42 s Exp $

# df : discount factor
# d : dividend
# r : interest rate
# g : growth rate
# v : value of the company

using Printf

# input
n  = 5
r  = 0.15
g1 = 0.10 # for the next 5 years
g2 = 0.05 # thereafter
d0 = 10000.0

# calculation
i  = 1:n
d1 = d0 * (1.0 + g1)
df = 1.0 ./ (1.0 .+ r) .^ i
v5 = sum(d1 .* ((1.0 .+ g1) .^ (i .- 1)) .* df)
d5 = d1 * (1.0 + g1) ^ (n - 1)
v6 = (1.0 + g2) * d5 / (r - g2) / (1.0 + r) ^ n
v0 = v5 + v6

# output
println("5.12.jl")
@printf("%5s%10.2f\n", "r ",  r)
@printf("%5s%10.2f\n", "g1", g1)
@printf("%5s%10.2f\n", "g2", g2)
@printf("%5s%10d\n",   "d0", round(d0))
@printf("%5s%10d\n",   "d1", round(d1))
@printf("%5s","df")
foreach(x-> @printf("%5.2f", x), df)
@printf("\n%5s%10d\n", "v5", round(v5))
@printf("%5s%10d\n",   "d5", round(d5))
@printf("%5s%10d\n",   "v6", round(v6))
@printf("%5s%10d\n",   "v0", round(v0))
#end