Имитационное моделирование - VB (59917)
Формулировка задачи:
Друзья, есть готовая прога и данные для финансовой модели, но нужно это программу вывести через VBA.
Кто сможет помочь при написании макроса, чтобы программа работала???????Помогитеее пожалуйста!
Решение задачи: «Имитационное моделирование»
textual
Листинг программы
Function VasicekCIRZeroValue(imod, a, b, r, nowyr, zeroyr, sigma) ' returns the Vasicek (imod=1) or CIR (imod=2) zero-coupon bond value Dim syr, sig2, Asyr, Bsyr, rinf, gamma, c1, c2 syr = zeroyr - nowyr sig2 = sigma^2 If imod = 1 Then If a = 0 Then Bsyr = syr Asyr = Exp((sig2 * syr^3) / 6) Else Bsyr =(1 - Exp(-a * syr)) / a rinf = b - 0.5 * sig2 / (a^2) Asyr = Exp((Bsyr-syr) * rinf - ((sig2 * Bsyr ^ 2) /(4 * a))) End If ElseIf imod = 2 Then gamma = Sqr(a^2 + 2 * sig2) c1 = 0.5 * (a + gamma) c2 = c1 * (Exp(gamma * syr) - 1) + gamma Bsyr = (Exp(gamma * syr) - 1) / c2 Asyr = ((gamma * Exp(c1 * syr)) / c2) ^ (2 * a * b / sig2) End If VasicekCIRZeroValue = Asyr * Exp(-Bsyr * r) End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д