# 10.7.jl # 2025-6-28 # $Id: 10.7.jl 1.1 2025/06/28 09:08:42 s Exp $ # 現在価格 s # 先渡価格 f # クーポン c # 利子率 r1 # 利子率 r2 # キャッシュフロー流列 x # 割引係数配列 d # 現在価値 pv # input s = 920 c = 80 f = 940 m = 2 r1 = 0.07 r2 = 0.08 x = (function () # 即時実行関数 x1 = [-s, 0, 0] # 初期支出 x2 = [ 0, c, c] # クーポン収入 x3 = [ 0, 0, f] # 満期時収入 +(x1, x2, x3) end)() # calculation d = (function() # 即時実行関数 d0 = 1 d1 = 1 / (1 + r1 / m) d2 = 1 / (1 + r2 / m) ^ 2 [d0, d1, d2] end)() xd = x .* d pv = sum(xd) # output println( "10.7.js") println( "s= $s") println( "c= $c") println( "f= $f") println( "r1= $r1") println( "r2= $r2") println( "m= $m") println( "x= $x") println( "d= $d") println( "xd= $xd") println( "pv= $pv") # end